archive/eggdrop
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove gallery-tags

Browse source
This commit is contained in:
lookshe 2014-12-05 11:02:14 +01:00
parent bce4eccea5
commit a699b94537
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
wiki2.pl
View file

@ -46,6 +46,7 @@ if (defined $result) {
my $isDis = 0;
my $ln = 0;
my $comment = 0;
my $gallery = 0;
foreach my $line (@lines) {
#print "$line\n";
$line =~ s/<!--.*-->//g;
@ -55,6 +56,8 @@ if (defined $result) {
$line=~ s/\s*$//;
$comment = 1 if $line =~ m/^<!--$/;
$comment = 0 if $line =~ m/^-->$/;
$gallery = 1 if $line =~ m/^<gallery[^>]*>$/;
$gallery = 0 if $line =~ m/^<\/gallery>$/;
if ($line && $line =~ m/^\*\s?/ && $ln < 4) {
push(@newlines, $newline);
push(@newlines, $line);
@ -64,6 +67,7 @@ if (defined $result) {
$newline = "$newline$line ";
$ln++;
} elsif ($comment) {
} elsif ($gallery) {
} else {
push(@newlines, $newline);
$newline = "";
@ -74,7 +78,8 @@ if (defined $result) {
my $lst = 0;
foreach my $line (@newlines) {
#print "$line\n";
$line =~ s/<!--.*-->//g;
$line=~ s/<!--.*-->//g;
$line=~ s/<gallery[^>]*>[^<]*<\/gallery>//g;
$line=~ s/^[^}{]*}}//g;
$line=~ s/^{{Infobox.*}}//g;
$line=~ s/^[^\[]*\]\]//g;