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 |
# |
# |
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"; |