/[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.2 by dpavlin, Sun Dec 14 22:27:18 2003 UTC revision 1.3 by dpavlin, Mon Dec 15 00:26:57 2003 UTC
# Line 9  sub xmlid2file { Line 9  sub xmlid2file {
9          $pre |= '';          $pre |= '';
10          $post |= '';          $post |= '';
11          my $isbn;          my $isbn;
12          if ($href =~ m/xmlid=([^&]+)&/) {          if ($href =~ m/xmlid=([^&]+)&/i) {
13                  $isbn = $1;                  $isbn = $1;
14          } elsif ($href =~ m/xmlid=([^&]+)$/i) {          } elsif ($href =~ m/xmlid=([^&]+)$/i) {
15                  $isbn = $1;                  $isbn = $1;
# Line 39  sub xmlid2file { Line 39  sub xmlid2file {
39          $isbn .= ".html";          $isbn .= ".html";
40    
41          # anchor          # anchor
42          if ($href =~ m/(#.+)$/) {          if ($href =~ m/(#[^&]+)/) {
43                  $isbn .= $1;                  $isbn .= $1;
44          }          }
45    
# Line 61  close(IN); Line 61  close(IN);
61  $html =~ s!(<title>)O'Reilly Network Safari Bookshelf\s+-\s+!$1!gsi || die "$infile: title";  $html =~ s!(<title>)O'Reilly Network Safari Bookshelf\s+-\s+!$1!gsi || die "$infile: title";
62    
63  $html =~ s!<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">!<body leftmargin="10" topmargin="10" marginwidth="10" marginheight="10">!s || die "$infile: margins";  $html =~ s!<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">!<body leftmargin="10" topmargin="10" marginwidth="10" marginheight="10">!s || die "$infile: margins";
64  $html =~ s;<a name="toppage">.*<!--Copyright.*?-->;;s || die "$infile: surround layout";  $html =~ s;<a name="toppage">.*<!--Copyright.*?-->;<a name="toppage"></a>;s || die "$infile: surround layout";
65    
66  $html =~ s!<td valign="top" class="v2">.*?(<td valign="top" class="v2" align="right">)!$1!s || die "$infile: top buttons";  $html =~ s!<td valign="top" class="v2">.*?(<td valign="top" class="v2" align="right">)!$1!s || die "$infile: top buttons";
67  $html =~ s!<td valign="top" class="v2"><a target="_new".*?(<td valign="top" class="v2" align="right">)!$1!s || warn "bottom buttons";  $html =~ s!<td valign="top" class="v2"><a target="_new".*?(<td valign="top" class="v2" align="right">)!$1!s || warn "bottom buttons";
# Line 74  $html =~ s!(<a\s+[^>]*href=")([^"]+)("[^ Line 74  $html =~ s!(<a\s+[^>]*href=")([^"]+)("[^
74    
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;
78    
79  open(OUT,"> $outfile") || die "$outfile: $!";  open(OUT,"> $outfile") || die "$outfile: $!";
80  print "$outfile\n";  print "$outfile\n";
81  print OUT $html;  print OUT $html;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26