--- mirror_cpan.pl	2003/02/01 00:51:51	1.2
+++ mirror_cpan.pl	2003/09/04 14:39:17	1.4
@@ -15,7 +15,8 @@
 ### CONFIG
 
 #my $REMOTE = "http://ftp.linux.hr/CPAN/";
-my $REMOTE = "http://www.cpan.org/";
+#my $REMOTE = "http://www.cpan.org/";
+my $REMOTE = "http://cpan.pliva.hr/";
 # my $REMOTE = "http://fi.cpan.org/";
 # my $REMOTE = "http://au.cpan.org/";
 # my $REMOTE = "file://Users/merlyn/MIRROR/CPAN/";
@@ -33,6 +34,7 @@
 use File::Basename qw(dirname);
 use File::Spec::Functions qw(catfile devnull);
 use File::Find qw(find);
+use Getopt::Long;
 
 ## LWP -
 use URI ();
@@ -44,6 +46,16 @@
 ## Archive::Tar -
 use Archive::Tar qw();
 
+## process command-line arguments
+my $result = GetOptions(
+	"local=s" => \$LOCAL,
+	"remote=s" => \$REMOTE,
+	"verbose!" => \$TRACE,
+	"debug!" => \$TRACE
+	);
+
+print "local path: $LOCAL\nremote URI: $REMOTE\n" if ($TRACE);
+
 ## first, get index files
 my_mirror($_) for qw(
                      authors/01mailrc.txt.gz