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; |
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); |