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

Fix off-by-one in arguments of substr() that ate first letter of .SY,

Browse source 
.EX and .L text.
This commit is contained in:
Markus Armbruster 2004-02-06 19:31:41 +00:00
parent 875d72a00f
commit f71b9a6de2
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
info/emp2html.pl
View file

@ -24,20 +24,20 @@ procline:
if (/^\.SY../) {
# $i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
# $str = substr($_, $i + 1, length($_) - $i - 1);
$str = substr($_,5);
$str = substr($_,4);
$str = &htmlify($str);
printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
next line;
}
if (/^\.EX../) {
$str = substr($_, 5);
$str = substr($_, 4);
printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
next line;
}
if (/^\.L../) {
$str = substr($_, 4);
$str = substr($_, 3);
printf "<h2>%s</h2>\n", &htmlify($str);
next line;
}

4
info/subj2html.pl
View file

@ -25,14 +25,14 @@ procline:
if (/^\.SY../) {
# $i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
# $str = substr($_, $i + 1, length($_) - $i - 1);
$str = substr($_,5);
$str = substr($_,4);
$str = &htmlify($str);
printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
next line;
}
if (/^\.EX../) {
$str = substr($_, 5);
$str = substr($_, 4);
printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
next line;
}