15 |
### CONFIG |
### CONFIG |
16 |
|
|
17 |
#my $REMOTE = "http://ftp.linux.hr/CPAN/"; |
#my $REMOTE = "http://ftp.linux.hr/CPAN/"; |
18 |
my $REMOTE = "http://www.cpan.org/"; |
#my $REMOTE = "http://www.cpan.org/"; |
19 |
|
my $REMOTE = "http://cpan.pliva.hr/"; |
20 |
# my $REMOTE = "http://fi.cpan.org/"; |
# my $REMOTE = "http://fi.cpan.org/"; |
21 |
# my $REMOTE = "http://au.cpan.org/"; |
# my $REMOTE = "http://au.cpan.org/"; |
22 |
# my $REMOTE = "file://Users/merlyn/MIRROR/CPAN/"; |
# my $REMOTE = "file://Users/merlyn/MIRROR/CPAN/"; |
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 |