summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlookshe <lookshe@fumuga.com>2012-03-09 01:10:35 +0100
committerlookshe <lookshe@fumuga.com>2012-03-09 01:10:35 +0100
commit388ab8f432ff7e91671a0208863a620469bebcc3 (patch)
treeb2ae353dc71314b97471034da55140be62b7c3ae
parentdf40278af8372313dd19f62ef875cf4c6f9e7253 (diff)
and again some more wiki fixes...
-rw-r--r--wiki2.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/wiki2.pl b/wiki2.pl
index 5563c72..b91475a 100644
--- a/wiki2.pl
+++ b/wiki2.pl
@@ -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) {