diff options
author | lookshe <lookshe@fumuga.com> | 2012-03-09 01:10:35 +0100 |
---|---|---|
committer | lookshe <lookshe@fumuga.com> | 2012-03-09 01:10:35 +0100 |
commit | 388ab8f432ff7e91671a0208863a620469bebcc3 (patch) | |
tree | b2ae353dc71314b97471034da55140be62b7c3ae | |
parent | df40278af8372313dd19f62ef875cf4c6f9e7253 (diff) |
and again some more wiki fixes...
-rw-r--r-- | wiki2.pl | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -72,8 +72,10 @@ if (defined $result) { $ln = 0; my $lst = 0; foreach my $line (@newlines) { +#print "$line\n"; $line =~ s/<!--.*-->//g; - $line=~ s/^.*}}//g; + $line=~ s/^[^}{]*}}//g; + $line=~ s/^{{Infobox.*}}//g; $line=~ s/^[^\[]*\]\]//g; $line=~ s/^\s*//; $line=~ s/\s*$//; @@ -88,6 +90,7 @@ if (defined $result) { $line =~ s/\(\s*\)//g; #$line = strip_tags($line); $line =~ s/<ref[^>]*>[^<]*<\/ref>//g; + $line =~ s/<ref[^>]*\/>//g; $line =~ s/\s+/ /g; $line =~ s/\s([,.\?!])/$1/g; if ($isDis) { |