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/"; |
23 |
|
|
24 |
## warning: unknown files below this dir are deleted! |
## warning: unknown files below this dir are deleted! |
25 |
my $LOCAL = "/mirrors/cpan/CPAN/"; |
#my $LOCAL = "/mirrors/cpan/CPAN/"; |
26 |
|
my $LOCAL = "/rest/cpan/CPAN/"; |
27 |
|
|
28 |
my $TRACE = 0; |
my $TRACE = 0; |
29 |
|
$TRACE = 1 if grep(/-v/,@ARGV); |
30 |
|
$TRACE = 1 if grep(/-d/,@ARGV); |
31 |
|
|
32 |
### END CONFIG |
### END CONFIG |
33 |
|
|
126 |
print "$File::Find::name ... removed\n" if $TRACE; |
print "$File::Find::name ... removed\n" if $TRACE; |
127 |
unlink $_ or warn "Cannot remove $File::Find::name: $!"; |
unlink $_ or warn "Cannot remove $File::Find::name: $!"; |
128 |
my $path = $File::Find::name; |
my $path = $File::Find::name; |
129 |
if ($path =~ s/\.tar\.gz/.readme/g && -f $path) { |
if ($path =~ s/(\.tar\.gz|\.tgz)/.readme/g && -f $path) { |
130 |
# only if we erase archive also! |
# only if we erase archive also! |
131 |
unlink $path or warn "Cannot remove $path: $!"; |
unlink $path or warn "Cannot remove $path: $!"; |
132 |
} |
} |
136 |
sub check_readme { |
sub check_readme { |
137 |
|
|
138 |
my $path = shift; |
my $path = shift; |
|
|
|
139 |
# fixup some things |
# fixup some things |
140 |
my $readme_path = $path; |
my $readme_path = $path; |
141 |
$readme_path =~ s/\.tar\.gz/.readme/g || return; # just .tar.gz is supported! |
$readme_path =~ s/\.(tar\.gz|\.tgz)/.readme/g || return; # just .tar.gz is supported! |
142 |
|
|
143 |
my $at = Archive::Tar->new($path) or die "Archive::Tar failed on $path\n"; |
my $at = Archive::Tar->new($path) or die "Archive::Tar failed on $path\n"; |
144 |
|
|