Parent Directory | Revision Log | Patch
revision 76 by dpavlin, Fri Feb 23 17:16:51 2007 UTC | revision 77 by dpavlin, Fri Feb 23 17:33:43 2007 UTC | |
---|---|---|
# | Line 70 sub fetch { | Line 70 sub fetch { |
70 | if ( $a ) { | if ( $a ) { |
71 | ||
72 | my $page_uri = $uri . $a->attr('href'); | my $page_uri = $uri . $a->attr('href'); |
73 | $page_uri =~ s/\Q?action=\Q.*$//; | |
74 | ||
75 | warn "fetching page: ",$a->as_text," from $page_uri\n"; | warn "fetching page: ",$a->as_text," from $page_uri\n"; |
76 | if ( $mech->follow_link( url => $a->attr('href') ) ) { | if ( $mech->follow_link( url => $a->attr('href') ) ) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |