empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Implement request ig, except for argument.

Browse source
This commit is contained in:
Markus Armbruster 2004-03-22 10:34:49 +00:00
parent d5ef02c34f
commit 333f106137
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
info/emp2html.pl
View file

@ -4,6 +4,7 @@ use strict;
use warnings; use warnings;
my $esc = "\\"; my $esc = "\\";
my $ignore = 0;
my @a; my @a;
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n"; print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n";
@ -16,13 +17,20 @@ line: while (<>) {
s/((^|[^\\])(\\\\)*)\\\".*/$1/g; # strip comments s/((^|[^\\])(\\\\)*)\\\".*/$1/g; # strip comments
@a = req($_); @a = req($_);
if (!@a) { if (!@a) {
print htmlify($_), "\n"; print htmlify($_), "\n" unless $ignore;
next line; next line;
} }
# requests # requests
if ($a[1] eq "ig") { $ignore = 1; next line; }
if ($ignore) {
$ignore = 0 if $a[1] eq "..";
next line;
}
if ($a[1] eq "TH") { if ($a[1] eq "TH") {
@a = checkarg(2, @a); @a = checkarg(2, @a);
$a[3] = htmlify($a[3]); $a[3] = htmlify($a[3]);