/[safari]/filter.pl
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 /filter.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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";
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26