26 |
my $LOCAL = "/rest/cpan/CPAN/"; |
my $LOCAL = "/rest/cpan/CPAN/"; |
27 |
|
|
28 |
my $TRACE = 0; |
my $TRACE = 0; |
|
$TRACE = 1 if grep(/-v/,@ARGV); |
|
|
$TRACE = 1 if grep(/-d/,@ARGV); |
|
29 |
|
|
30 |
### END CONFIG |
### END CONFIG |
31 |
|
|
34 |
use File::Basename qw(dirname); |
use File::Basename qw(dirname); |
35 |
use File::Spec::Functions qw(catfile devnull); |
use File::Spec::Functions qw(catfile devnull); |
36 |
use File::Find qw(find); |
use File::Find qw(find); |
37 |
|
use Getopt::Long; |
38 |
|
|
39 |
## LWP - |
## LWP - |
40 |
use URI (); |
use URI (); |
46 |
## Archive::Tar - |
## Archive::Tar - |
47 |
use Archive::Tar qw(); |
use Archive::Tar qw(); |
48 |
|
|
49 |
|
## process command-line arguments |
50 |
|
my $result = GetOptions( |
51 |
|
"local=s" => \$LOCAL, |
52 |
|
"remote=s" => \$REMOTE, |
53 |
|
"verbose!" => \$TRACE, |
54 |
|
"debug!" => \$TRACE |
55 |
|
); |
56 |
|
|
57 |
|
print "local path: $LOCAL\nremote URI: $REMOTE\n" if ($TRACE); |
58 |
|
|
59 |
## first, get index files |
## first, get index files |
60 |
my_mirror($_) for qw( |
my_mirror($_) for qw( |
61 |
authors/01mailrc.txt.gz |
authors/01mailrc.txt.gz |