| 1 |
– |
#!/usr/local/bin/perl5 |
| 2 |
– |
# |
| 3 |
– |
|
| 1 |
|
package AddDir; |
| 2 |
+ |
require 5.001; |
| 3 |
|
require Exporter; |
| 4 |
|
use Cwd; |
| 5 |
|
@ISA = qw(Exporter); |
| 6 |
< |
@EXPORT = qw(adddir); |
| 6 |
> |
@EXPORT = qw(adddir copydir); |
| 7 |
> |
|
| 8 |
|
|
| 9 |
< |
sub adddir ($directory) { |
| 9 |
> |
sub adddir { |
| 10 |
|
my $indir=shift; |
| 11 |
|
my $startdir=cwd; |
| 12 |
|
my @dir=split /\//, $indir; |
| 27 |
|
} |
| 28 |
|
chdir $startdir; |
| 29 |
|
} |
| 30 |
+ |
|
| 31 |
+ |
sub copydir |
| 32 |
+ |
{ |
| 33 |
+ |
my $src=shift; |
| 34 |
+ |
my $dest=shift; |
| 35 |
+ |
|
| 36 |
+ |
use DirHandle; |
| 37 |
+ |
use File::Copy; |
| 38 |
+ |
|
| 39 |
+ |
# print "Copying $src to $dest\n"; |
| 40 |
+ |
adddir($dest); |
| 41 |
+ |
my $dh=DirHandle->new($src); |
| 42 |
+ |
|
| 43 |
+ |
if (defined $dh) |
| 44 |
+ |
{ |
| 45 |
+ |
my @allfiles=$dh->read(); |
| 46 |
+ |
|
| 47 |
+ |
my $file; |
| 48 |
+ |
foreach $file ( @allfiles ) |
| 49 |
+ |
{ |
| 50 |
+ |
next if $file=~/^\.\.?/; |
| 51 |
+ |
if ( -d $src."/".$file ) |
| 52 |
+ |
{ |
| 53 |
+ |
copydir($src."/".$file,$dest."/".$file); |
| 54 |
+ |
} |
| 55 |
+ |
else |
| 56 |
+ |
{ |
| 57 |
+ |
copy($src."/".$file,$dest."/".$file); |
| 58 |
+ |
} |
| 59 |
+ |
} |
| 60 |
+ |
undef $dh; |
| 61 |
+ |
} |
| 62 |
+ |
else |
| 63 |
+ |
{ |
| 64 |
+ |
die "Attempt to open a non-existent directory ($src). Exitting\n"; |
| 65 |
+ |
} |
| 66 |
+ |
} |
