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(0775,$dest."/".$file);}
            }
         }
      undef $dh;
      }
   else
      {
      die "Attempt to open a non-existent directory ($src). Exitting\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)=@_;
   
   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 =~ /.*~$/;

         if ($file eq $filetoskip)
            {
            next;
            }
         
         if ( -d $src."/".$file )
            {
            copydir($src."/".$file,$dest."/".$file);
            }
         else
            {
            copy($src."/".$file,$dest."/".$file);
            if ( -x $src."/".$file || -X $src."/".$file ) {chmod(0775,$dest."/".$file);}
            }
         }
      undef $dh;
      }
   else
      {
      die "Attempt to open a non-existent directory ($src). Exitting\n";
      }
   }

=back

=head1 AUTHOR

Originally written by Christopher Williams.

=head1 MAINTAINER

Shaun ASHBY 

=cut

Revision:	1.11
Committed:	Wed Aug 17 11:11:48 2005 UTC (19 years, 8 months ago) by sashby
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V1_0_2, V1_0_2_p1
Branch point for:	v103_branch
Changes since 1.10:	+1 -1 lines
Log Message:	Added more POD doc.
#	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.7	if ( -x $src."/".$file \|\| -X $src."/".$file ) {chmod(0775,$dest."/".$file);}
86	sashby	1.6	}
87	williamc	1.4	}
88	sashby	1.6	undef $dh;
89			}
90			else
91			{
92			die "Attempt to open a non-existent directory ($src). Exitting\n";
93			}
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			my ($filetoskip)=@_;
108
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			next if $file =~ /.*bak$/;
126			next if $file =~ /.*~$/;
127
128			if ($file eq $filetoskip)
129			{
130			next;
131			}
132
133			if ( -d $src."/".$file )
134			{
135			copydir($src."/".$file,$dest."/".$file);
136			}
137			else
138			{
139			copy($src."/".$file,$dest."/".$file);
140			if ( -x $src."/".$file \|\| -X $src."/".$file ) {chmod(0775,$dest."/".$file);}
141			}
142			}
143			undef $dh;
144			}
145			else
146			{
147			die "Attempt to open a non-existent directory ($src). Exitting\n";
148			}
149			}
150	sashby	1.10
151			=back
152
153			=head1 AUTHOR
154
155			Originally written by Christopher Williams.
156
157			=head1 MAINTAINER
158
159	sashby	1.11	Shaun ASHBY
160	sashby	1.10
161			=cut
162