/[nn]/find4.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 /find4.pl

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

revision 1.2 by dpavlin, Fri Feb 15 16:31:06 2002 UTC revision 1.4 by dpavlin, Wed Sep 3 13:43:06 2003 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  # indexer, Dobrica Pavlinusic <dpavlin@rot13.org> 2001-01-28  # indexer, Dobrica Pavlinusic <dpavlin@rot13.org> 2002-01-28
4  # options:      -q quiet  # options:      -q quiet
5  #               -d debug  #               -d debug
6  #               -v verbose  #               -v verbose
# Line 74  foreach my $file (@files) { Line 74  foreach my $file (@files) {
74                          $naslov_czs =~ tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/;                          $naslov_czs =~ tr/¹©ðÐèÈæƾ®/sSdDcCcCzZ/;
75                          $naslov_czs =~ tr/a-zA-Z/ /cs;  # non a-z  -> space                          $naslov_czs =~ tr/a-zA-Z/ /cs;  # non a-z  -> space
76                          $naslov_czs = join(" ",$hr->alternatives(split(/ /,$naslov_czs)));                          $naslov_czs = join(" ",$hr->alternatives(split(/ /,$naslov_czs)));
77    #                       $naslov_czs = $hr->minimal(split(/ /,$naslov_czs));
78                          $sth->execute($br,$god,$nr,$aname,$naslov,$naslov_czs) || die $dbh->errstr();                          $sth->execute($br,$god,$nr,$aname,$naslov,$naslov_czs) || die $dbh->errstr();
79                          $naslov="";                          $naslov="";
80                          $nr=0;                          $nr=0;
# Line 81  foreach my $file (@files) { Line 82  foreach my $file (@files) {
82                  }                  }
83    
84                  if ($sadrzaj) {                  if ($sadrzaj) {
85                          if (s/<a href="#([^"]+)">\s*(\d+)\.\s*<[^>]+>//i) {                          if (s/<a href="#([^"]+)">\s*(\S+)\.\s*<[^>]+>//i) {
86                                  ($aname,$nr) = ($1,$2);                                  ($aname,$nr) = ($1,$2);
87                          } elsif (s/<a href="Javascript:Mojdok\((\d+),(\d+),(\w+),(\d+)\)[^>]*>//i) {                          } elsif (s/<a href="Javascript:Mojdok\((\d+),(\d+),(\w+),(\d+)\)[^>]*>//i) {
88                                  ($nr,$aname) = ($3,$4);                                  ($nr,$aname) = ($3,$4);
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26