--- find3.pl 2002/01/31 16:54:32 1.1 +++ find3.pl 2002/02/05 12:58:30 1.2 @@ -127,16 +127,11 @@ s/\015//g; # kill cr tr/šðžèæŠÐŽÈÆ/¹ð¾èæ©Ð®ÈÆ/; # 1250 -> iso8859-2 - $sadrzaj++ if (m,
,); - - if ($sadrzaj) { - if (s/\s*(\d+)\.\s*<[^>]+>//i) { - ($aname,$nr) = ($1,$2); - $aname = $1 if ($aname =~ m/Javascript:Mojdok\(\d+,\d+,\d+,(\d+)\);/); - } - $naslov.=$_; + if (m,
,) { + $sadrzaj++; + next; } - + if ($sadrzaj && m,
,) { $sadrzaj--; $naslov=~s/\s+/ /g; @@ -152,6 +147,20 @@ $naslov=""; $nr=0; } + + if ($sadrzaj) { + if (s/
\s*(\d+)\.\s*<[^>]+>//i) { + ($aname,$nr) = ($1,$2); + } elsif (s/