/[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.3 by dpavlin, Wed Jun 19 10:58:59 2002 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;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26