/[swish]/trunk/spider/filter.pm
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 /trunk/spider/filter.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 102 by dpavlin, Sat Apr 30 20:21:02 2005 UTC revision 103 by dpavlin, Sat Apr 30 23:29:27 2005 UTC
# Line 66  sub filter { Line 66  sub filter {
66          # construct new title (from various parts of DocBook if available)          # construct new title (from various parts of DocBook if available)
67          my $new_title;          my $new_title;
68    
69          sub create_title($) {          sub create_title($$) {
70                  my $contents = shift || return;                  my $contents = shift || return;
71                    my $verbose = shift;
72                  my $new_title = substr($contents, 0, 4096);                  my $new_title = substr($contents, 0, 4096);
73                  $new_title =~ s/<[^>]+>//gis;                  $new_title =~ s/<[^>]+>//gis;
74                  $new_title =~ s/^\s+//s;                  $new_title =~ s/^\s+//s;
# Line 106  sub filter { Line 107  sub filter {
107                          $new_title = $1;                          $new_title = $1;
108                          print STDERR "using title '$new_title' from <h_>\n" if ($verbose);                          print STDERR "using title '$new_title' from <h_>\n" if ($verbose);
109                  } else {                  } else {
110                          $new_title = create_title($contents);                          $new_title = create_title($contents, $verbose);
111                  }                  }
112          }          }
113    
# Line 128  sub filter { Line 129  sub filter {
129          } else {          } else {
130                  # fall-back to collection title                  # fall-back to collection title
131                  $new_title = $collection;                  $new_title = $collection;
132                  my $tmp = create_title($ontents);                  my $tmp = create_title($ontents, $verbose);
133                  $new_title .= " :: $tmp" if ($tmp);                  $new_title .= " :: $tmp" if ($tmp);
134          }          }
135    
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.26