--- trunk2/all2all.pl	2004/09/13 12:13:04	433
+++ trunk2/all2all.pl	2004/09/13 15:32:55	437
@@ -9,18 +9,35 @@
 use strict;
 use Data::Dumper;
 use Carp;
+use Getopt::Long;
 
 use lib './lib';
 use WebPAC;
 use WebPAC::jsFind;
 use WebPAC::Index;
 
+# options which can be changed via command line
+#
+my $code_page = 'ISO-8859-2';
+my ($limit_mfn, $start_mfn, $debug, $low_mem);
+my $index_path = './out/index';
+
+my $result = GetOptions(
+	"code_page=s"	=> \$code_page,
+	"limit_mfn=i"	=> \$limit_mfn,
+	"start_mfn=i"	=> \$start_mfn,
+	"debug!"	=> \$debug,
+	"low_mem!"	=> \$low_mem,
+);
+
+# create WebPAC object
+#
 my $webpac = new WebPAC(
-	code_page => 'ISO-8859-2',
-	limit_mfn => 500,
-	start_mfn => 6000,
-#	debug => 1,
-#	low_mem => 1,
+	code_page => $code_page,
+	limit_mfn => $limit_mfn,
+	start_mfn => $start_mfn,
+	debug => $debug,
+	low_mem => $low_mem,
 ) || die;
 
 my $log = $webpac->_get_logger() || die "can't get logger";
@@ -28,7 +45,7 @@
 $log->debug("creating WebPAC::jsFind object");
 
 my $index = new WebPAC::jsFind(
-	index_path => './out/index',
+	index_path => $index_path,
 	keys => 10,
 ) || die;