--- trunk/spider/progspider	2005/04/24 18:09:01	98
+++ trunk/spider/progspider	2005/04/30 20:20:42	99
@@ -21,7 +21,7 @@
 	"skipoutput!" => \$skip_output,
 );
 
-my $dir = shift @ARGV || die "usage: $0 [dir]";
+die "usage: $0 [dir] ..." unless (@ARGV);
 
 my $basedir = $0;
 $basedir =~ s,/[^/]+$,/,;
@@ -34,10 +34,14 @@
 
 print STDERR "using $pdftotext to convert pdf into html\n" if ($pdftotext && $verbose);
 
-find({ wanted => \&file, 
-	follow => 1,
-	no_chdir => 1
-}, $dir);
+while (my $dir = shift @ARGV) {
+	print STDERR "indexing $dir\n" if ($verbose);
+
+	find({ wanted => \&file, 
+		follow => 1,
+		no_chdir => 1
+	}, $dir);
+}
 
 sub dump_contents($$$) {
 	my ($contents,$mtime,$path) = @_;