/[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 97 by dpavlin, Sun Apr 24 16:33:53 2005 UTC revision 98 by dpavlin, Sun Apr 24 18:09:01 2005 UTC
# Line 8  my $collection;                # name which will be in Line 8  my $collection;                # name which will be in
8  my $path_add;           # add additional info in path  my $path_add;           # add additional info in path
9  my $verbose;  my $verbose;
10  my $exclude;  my $exclude;
11    my $skip_output;
12    
13  #$verbose = 1;  #$verbose = 1;
14    
# Line 17  my $result = GetOptions( Line 18  my $result = GetOptions(
18          "verbose!" => \$verbose,          "verbose!" => \$verbose,
19          "debug!" => \$verbose,          "debug!" => \$verbose,
20          "exclude=s" => \$exclude,          "exclude=s" => \$exclude,
21            "skipoutput!" => \$skip_output,
22  );  );
23    
24  my $dir = shift @ARGV || die "usage: $0 [dir]";  my $dir = shift @ARGV || die "usage: $0 [dir]";
# Line 52  sub dump_contents($$$) { Line 54  sub dump_contents($$$) {
54    
55          print STDERR " [$size]" if ($verbose);          print STDERR " [$size]" if ($verbose);
56    
57            return if ($skip_output);
58    
59          # Output the document (to swish)          # Output the document (to swish)
60          print <<EOF;          print <<EOF;
61  Path-Name: $path  Path-Name: $path
# Line 120  sub file { Line 124  sub file {
124                  open(F,"$path") || die "can't open file: $path";                  open(F,"$path") || die "can't open file: $path";
125                  print STDERR "$path" if ($verbose);                  print STDERR "$path" if ($verbose);
126                  while(<F>) {                  while(<F>) {
127                          $contents .= "$_";                          $contents .= $_;
128                  }                  }
129                  $contents .= "\n\n";                  $contents .= "\n\n";
130    
Legend:
Removed from v.97  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.26