Parent Directory | Revision Log | Patch
revision 1.3 by dpavlin, Mon Dec 15 00:26:57 2003 UTC | revision 1.4 by dpavlin, Mon Dec 15 01:00:13 2003 UTC | |
---|---|---|
# | Line 75 $html =~ s!(<a\s+[^>]*href=")([^"]+)("[^ | Line 75 $html =~ s!(<a\s+[^>]*href=")([^"]+)("[^ |
75 | $html =~ s!<a target="_new"[^>]*href="http://[^>]+>(.+?)</a>!$1!gs; | $html =~ s!<a target="_new"[^>]*href="http://[^>]+>(.+?)</a>!$1!gs; |
76 | ||
77 | $html =~ s!<img[^>]+Buy Print Version[^>]+>!!gs; | $html =~ s!<img[^>]+Buy Print Version[^>]+>!!gs; |
78 | $html =~ s!<a[^>]+onclick="OpenWin[^>]+mode=downloadPDF[^>]+>\s*<img[^>]+Download this chapter[^>]+>\s*</a>!!gs; | |
79 | ||
80 | open(OUT,"> $outfile") || die "$outfile: $!"; | open(OUT,"> $outfile") || die "$outfile: $!"; |
81 | print "$outfile\n"; | print "$outfile\n"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |