--- trunk/spider/progspider	2005/04/24 16:33:53	95
+++ trunk/spider/progspider	2005/04/24 18:09:01	98
@@ -8,6 +8,7 @@
 my $path_add;		# add additional info in path
 my $verbose;
 my $exclude;
+my $skip_output;
 
 #$verbose = 1;
 
@@ -17,6 +18,7 @@
 	"verbose!" => \$verbose,
 	"debug!" => \$verbose,
 	"exclude=s" => \$exclude,
+	"skipoutput!" => \$skip_output,
 );
 
 my $dir = shift @ARGV || die "usage: $0 [dir]";
@@ -52,6 +54,8 @@
 
 	print STDERR " [$size]" if ($verbose);
 
+	return if ($skip_output);
+
 	# Output the document (to swish)
 	print <<EOF;
 Path-Name: $path
@@ -120,7 +124,7 @@
 		open(F,"$path") || die "can't open file: $path";
 		print STDERR "$path" if ($verbose);
 		while(<F>) {
-			$contents .= "$_";
+			$contents .= $_;
 		}
 		$contents .= "\n\n";