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

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

revision 1.1 by dpavlin, Thu Jan 31 16:54:32 2002 UTC revision 1.2 by dpavlin, Tue Feb 5 12:58:30 2002 UTC
# Line 127  foreach my $file (@files) { Line 127  foreach my $file (@files) {
127                  s/\015//g;      # kill cr                  s/\015//g;      # kill cr
128                  tr/šðžèæŠÐŽÈÆ/¹ð¾èæ©Ð®ÈÆ/;      # 1250 -> iso8859-2                  tr/šðžèæŠÐŽÈÆ/¹ð¾èæ©Ð®ÈÆ/;      # 1250 -> iso8859-2
129    
130                  $sadrzaj++ if (m,<div class=sadrzaj>,);                  if (m,<div class=sadrzaj>,) {
131                                    $sadrzaj++;
132                  if ($sadrzaj) {                          next;
                         if (s/<a href="#([^"]+)">\s*(\d+)\.\s*<[^>]+>//i) {  
                                 ($aname,$nr) = ($1,$2);  
                                 $aname = $1 if ($aname =~ m/Javascript:Mojdok\(\d+,\d+,\d+,(\d+)\);/);  
                         }  
                         $naslov.=$_;  
133                  }                  }
134                    
135                  if ($sadrzaj && m,</div>,) {                  if ($sadrzaj && m,</div>,) {
136                          $sadrzaj--;                          $sadrzaj--;
137                          $naslov=~s/\s+/ /g;                          $naslov=~s/\s+/ /g;
# Line 152  foreach my $file (@files) { Line 147  foreach my $file (@files) {
147                          $naslov="";                          $naslov="";
148                          $nr=0;                          $nr=0;
149                  }                  }
150    
151                    if ($sadrzaj) {
152                            if (s/<a href="#([^"]+)">\s*(\d+)\.\s*<[^>]+>//i) {
153                                    ($aname,$nr) = ($1,$2);
154                            } elsif (s/<a href="Javascript:Mojdok\((\d+),(\d+),(\d+),(\d+)\)[^>]*>//i) {
155                                    ($nr,$aname) = ($3,$4);
156                                    die "conflict in godina: $1 != $god"  if ($god != $1);
157                                    die "conflict in broj: $2 != $br"  if ($br != $2);
158                            } else {
159                                    die "can't find nr in line: $_";
160                            }
161                            $naslov.=$_;
162                    }
163                    
164          }          }
165    
166          close(IN);          close(IN);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26