/[swish]/trunk/spider/progspider
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 /trunk/spider/progspider

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

revision 98 by dpavlin, Sun Apr 24 18:09:01 2005 UTC revision 99 by dpavlin, Sat Apr 30 20:20:42 2005 UTC
# Line 21  my $result = GetOptions( Line 21  my $result = GetOptions(
21          "skipoutput!" => \$skip_output,          "skipoutput!" => \$skip_output,
22  );  );
23    
24  my $dir = shift @ARGV || die "usage: $0 [dir]";  die "usage: $0 [dir] ..." unless (@ARGV);
25    
26  my $basedir = $0;  my $basedir = $0;
27  $basedir =~ s,/[^/]+$,/,;  $basedir =~ s,/[^/]+$,/,;
# Line 34  select(STDOUT); $|=1; Line 34  select(STDOUT); $|=1;
34    
35  print STDERR "using $pdftotext to convert pdf into html\n" if ($pdftotext && $verbose);  print STDERR "using $pdftotext to convert pdf into html\n" if ($pdftotext && $verbose);
36    
37  find({ wanted => \&file,  while (my $dir = shift @ARGV) {
38          follow => 1,          print STDERR "indexing $dir\n" if ($verbose);
39          no_chdir => 1  
40  }, $dir);          find({ wanted => \&file,
41                    follow => 1,
42                    no_chdir => 1
43            }, $dir);
44    }
45    
46  sub dump_contents($$$) {  sub dump_contents($$$) {
47          my ($contents,$mtime,$path) = @_;          my ($contents,$mtime,$path) = @_;
Legend:
Removed from v.98  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.26