/[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 46 by dpavlin, Sat Jan 17 23:57:55 2004 UTC revision 48 by dpavlin, Tue Jan 20 16:01:13 2004 UTC
# Line 21  sub file { Line 21  sub file {
21          my $path = $_;          my $path = $_;
22    
23          open(F,"$path") || die "can't open file: $path";          open(F,"$path") || die "can't open file: $path";
24          print STDERR "$path";  #       print STDERR "$path";
25          my $contents;          my $contents;
26          while(<F>) {          while(<F>) {
27  #               chomp;  #               chomp;
# Line 37  sub file { Line 37  sub file {
37          my $mtime = time;          my $mtime = time;
38          my $size = length $contents;          my $size = length $contents;
39    
40          print STDERR " [$size]\n";  #       print STDERR " [$size]\n";
41    
42          # Output the document (to swish)          # Output the document (to swish)
43          print <<EOF;          print <<EOF;

Legend:
Removed from v.46  
changed lines
  Added in v.48

  ViewVC Help
Powered by ViewVC 1.1.26