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

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

revision 14 by dpavlin, Tue Jun 4 06:39:53 2002 UTC revision 15 by dpavlin, Sun Mar 16 21:31:55 2003 UTC
# Line 78  if( $response->code() == RC_OK ) { Line 78  if( $response->code() == RC_OK ) {
78    
79  sub linkcb {  sub linkcb {
80      my($tag, %links) = @_;      my($tag, %links) = @_;
81      if (($tag eq "a") && ($links{"href"})) {      if (($tag eq "a" || $tag eq "area") && ($links{"href"})) {
82          my $link = $links{"href"};          my $link = $links{"href"};
83    
84          #          #
# Line 98  sub linkcb { Line 98  sub linkcb {
98          # hack for Apache directory listings          # hack for Apache directory listings
99          $link =~ s,/\?[NMSD]=[AD]$,/,g;          $link =~ s,/\?[NMSD]=[AD]$,/,g;
100    
101            # speedup, skip pictures
102            return if ($link =~ m/\.(gif|jpg|png)/);
103    
104          if ($no_parent_url) {          if ($no_parent_url) {
105                          if ($link =~ m/$no_parent_url/) {                          if ($link =~ m/$no_parent_url/) {
106                                  print LINKS "$link $no_parent_url\n";                                  print LINKS "$link $no_parent_url\n";
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.26