/[perl]/mirror_cpan.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /mirror_cpan.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by dpavlin, Sat Feb 1 00:51:51 2003 UTC revision 1.4 by dpavlin, Thu Sep 4 14:39:17 2003 UTC
# Line 15  $|++; Line 15  $|++;
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/";
# Line 33  use File::Path qw(mkpath); Line 34  use File::Path qw(mkpath);
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 ();
# Line 44  use Compress::Zlib qw(gzopen $gzerrno); Line 46  use Compress::Zlib qw(gzopen $gzerrno);
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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26