Parsing fix

This commit is contained in:
Difrex(Denis Zheleztsov) 2014-08-11 12:25:49 +04:00
parent 87dca0e2c1
commit 8be1c614f1

View File

@ -209,10 +209,10 @@ sub pre {
$pre = 0; $pre = 0;
} }
$txt .= $line; $txt .= $line;
$txt =~ s/<br \/>//g; $txt =~ s/<br \/>//g if $pre == 1;
# $txt =~ s/<li>//g; $txt =~ s/<li>//g if $pre == 1;
# $txt =~ s/<\/li>//g; $txt =~ s/<\/li>//g if $pre == 1;
# $txt =~ s/<font.+>(>.+)<\/font>/$1/g; $txt =~ s/<font.+>(>.+)<\/font>/$1/g if $pre == 1;
} }
close $fh; close $fh;