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

12
info/emp2html.pl
View file

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