src/Utilities/AddDir.pm

=head1 NAME

Utilities::AddDir - Utility functions for creating or copying directories.

=head1 SYNOPSIS

        &Utilities::AddDir::adddir($dir);
        &Utilities::AddDir::copydir($src,$dest);
        &Utilities::AddDir::copydirwithskip($src,$dest,@files_to_skip);

=head1 METHODS

=over

=cut

package AddDir;
require 5.001;
require Exporter;
use Cwd;
@ISA    = qw(Exporter);
@EXPORT = qw(adddir copydir copydirwithskip);

=item   C<adddir($dir)>

Create a new directory.

=cut

sub adddir {
 my $indir=shift;
 my $startdir=cwd;
 my @dir=split /\//,  $indir;

 if ( $indir=~/^\// ) {
   chdir "/";
   shift @dir;
 }
 umask 02;
 foreach $dirname ( @dir ) {
  next if ( $dirname eq "" );
  if ( ! -e $dirname ) {
   mkdir ( $dirname , 0755) ||
                die "cannot make directory ".$dirname." $!\n";
   print $i." ".$dirname."\n" if $debug;
  }
 chdir $dirname;
 }
 chdir $startdir;
}


=item   C<copydir($src, $dest)>

Copy a directory $src and contents to $dest.

=cut

sub copydir
   {
   my $src=shift;
   my $dest=shift;
   
   use DirHandle;
   use File::Copy;
   
   adddir($dest);
   my $dh=DirHandle->new($src);
   
   if (defined $dh)
      {
      my @allfiles=$dh->read();
   
      my $file;
      foreach $file ( @allfiles )
         {
         next if $file=~/^\.\.?/;
         if ( -d $src."/".$file )
            {
            copydir($src."/".$file,$dest."/".$file);
            }
         else
            {
            copy($src."/".$file,$dest."/".$file);
            if ( -x $src."/".$file || -X $src."/".$file ) {chmod(0755,$dest."/".$file);}
            }
         }
      undef $dh;
      }
   else
      {
      die "Attempt to open a non-existent directory ($src). Exiting\n";
      }
   }

=item   C<copydirwithskip($src, $dest, @files_to_skip)>

Recursively copy a directory $src to $dest. All files
in @files_to_skip will be skipped.

=cut

sub copydirwithskip
   {
   my $src=shift;
   my $dest=shift;
   my $filetoskip=shift || [];
   
   use DirHandle;
   use File::Copy;
   
   adddir($dest);
   
   my $dh=DirHandle->new($src);
   
   if (defined $dh)
      {
      my @allfiles=$dh->read();
   
      my $file;
      foreach $file ( @allfiles )
         {
         next if $file=~/^\.\.?/;
         # Skip backup files and x~ files:
         next if $file =~ /.*\.bak$/;
         next if $file =~ /.*~$/;

         my $skip=0;
         foreach my $fskip (@$filetoskip)
            {
            my $fullfile = "${src}/${file}";
            if ($fullfile eq $fskip)
               {
               $skip = 1;
               last;
               }
            }
         if ($skip)
            {
            next;
            }
         
         if ( -d $src."/".$file )
            {
            copydirwithskip($src."/".$file,$dest."/".$file,$filetoskip);
            }
         else
            {
            copy($src."/".$file,$dest."/".$file);
            if ( -x $src."/".$file || -X $src."/".$file ) {chmod(0755,$dest."/".$file);}
            }
         }
      undef $dh;
      }
   else
      {
      die "Attempt to open a non-existent directory ($src). Exiting\n";
      }
   }

=back

=head1 AUTHOR

Originally written by Christopher Williams.

=head1 MAINTAINER

Shaun ASHBY 

=cut

Revision:	1.14
Committed:	Fri Jan 11 13:34:10 2008 UTC (17 years, 3 months ago) by elmer
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_1_7, V1_1_6, V1_1_5, V1_2_0-cand3, V1_2_0-cand2, V1_2_0-cand1, V1_1_4, V1_1_3, V1_1_2, V1_1_0_reltag8, V1_1_0_reltag7, V1_1_0_reltag6, V1_1_1, V1_1_0_reltag5
Branch point for:	forBinLess_SCRAM
Changes since 1.13:	+2 -2 lines
Log Message:	Fix spelling error: Exitting --> Exiting
#	User	Rev	Content
1	sashby	1.10	=head1 NAME
2
3			Utilities::AddDir - Utility functions for creating or copying directories.
4
5			=head1 SYNOPSIS
6
7			&Utilities::AddDir::adddir($dir);
8			&Utilities::AddDir::copydir($src,$dest);
9			&Utilities::AddDir::copydirwithskip($src,$dest,@files_to_skip);
10
11			=head1 METHODS
12
13			=over
14
15			=cut
16
17	williamc	1.1	package AddDir;
18	williamc	1.2	require 5.001;
19	williamc	1.1	require Exporter;
20			use Cwd;
21			@ISA = qw(Exporter);
22	sashby	1.9	@EXPORT = qw(adddir copydir copydirwithskip);
23	williamc	1.4
24	sashby	1.10	=item C<adddir($dir)>
25
26			Create a new directory.
27
28			=cut
29	williamc	1.1
30	williamc	1.3	sub adddir {
31	williamc	1.1	my $indir=shift;
32			my $startdir=cwd;
33			my @dir=split /\//, $indir;
34
35			if ( $indir=~/^\// ) {
36			chdir "/";
37			shift @dir;
38			}
39			umask 02;
40			foreach $dirname ( @dir ) {
41			next if ( $dirname eq "" );
42			if ( ! -e $dirname ) {
43	sashby	1.9	mkdir ( $dirname , 0755) \|\|
44	williamc	1.1	die "cannot make directory ".$dirname." $!\n";
45			print $i." ".$dirname."\n" if $debug;
46			}
47			chdir $dirname;
48			}
49			chdir $startdir;
50	williamc	1.4	}
51
52	sashby	1.10
53			=item C<copydir($src, $dest)>
54
55			Copy a directory $src and contents to $dest.
56
57			=cut
58
59	sashby	1.6	sub copydir
60			{
61			my $src=shift;
62			my $dest=shift;
63
64			use DirHandle;
65			use File::Copy;
66
67			adddir($dest);
68			my $dh=DirHandle->new($src);
69
70			if (defined $dh)
71			{
72			my @allfiles=$dh->read();
73
74			my $file;
75			foreach $file ( @allfiles )
76			{
77	williamc	1.4	next if $file=~/^\.\.?/;
78	sashby	1.6	if ( -d $src."/".$file )
79			{
80			copydir($src."/".$file,$dest."/".$file);
81			}
82			else
83			{
84			copy($src."/".$file,$dest."/".$file);
85	sashby	1.12	if ( -x $src."/".$file \|\| -X $src."/".$file ) {chmod(0755,$dest."/".$file);}
86	sashby	1.6	}
87	williamc	1.4	}
88	sashby	1.6	undef $dh;
89			}
90			else
91			{
92	elmer	1.14	die "Attempt to open a non-existent directory ($src). Exiting\n";
93	sashby	1.6	}
94			}
95	sashby	1.8
96	sashby	1.10	=item C<copydirwithskip($src, $dest, @files_to_skip)>
97
98			Recursively copy a directory $src to $dest. All files
99			in @files_to_skip will be skipped.
100
101			=cut
102
103	sashby	1.8	sub copydirwithskip
104			{
105			my $src=shift;
106			my $dest=shift;
107	muzaffar	1.13	my $filetoskip=shift \|\| [];
108	sashby	1.8
109			use DirHandle;
110			use File::Copy;
111
112			adddir($dest);
113
114			my $dh=DirHandle->new($src);
115
116			if (defined $dh)
117			{
118			my @allfiles=$dh->read();
119
120			my $file;
121			foreach $file ( @allfiles )
122			{
123			next if $file=~/^\.\.?/;
124			# Skip backup files and x~ files:
125	muzaffar	1.13	next if $file =~ /.*\.bak$/;
126	sashby	1.8	next if $file =~ /.*~$/;
127
128	muzaffar	1.13	my $skip=0;
129			foreach my $fskip (@$filetoskip)
130			{
131			my $fullfile = "${src}/${file}";
132			if ($fullfile eq $fskip)
133			{
134			$skip = 1;
135			last;
136			}
137			}
138			if ($skip)
139	sashby	1.8	{
140			next;
141			}
142
143			if ( -d $src."/".$file )
144			{
145	muzaffar	1.13	copydirwithskip($src."/".$file,$dest."/".$file,$filetoskip);
146	sashby	1.8	}
147			else
148			{
149			copy($src."/".$file,$dest."/".$file);
150	sashby	1.12	if ( -x $src."/".$file \|\| -X $src."/".$file ) {chmod(0755,$dest."/".$file);}
151	sashby	1.8	}
152			}
153			undef $dh;
154			}
155			else
156			{
157	elmer	1.14	die "Attempt to open a non-existent directory ($src). Exiting\n";
158	sashby	1.8	}
159			}
160	sashby	1.10
161			=back
162
163			=head1 AUTHOR
164
165			Originally written by Christopher Williams.
166
167			=head1 MAINTAINER
168
169	sashby	1.11	Shaun ASHBY
170	sashby	1.10
171			=cut
172