LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

error on runon tags

This commit is contained in:
david 2002-01-21 07:07:42 +00:00
parent 93ed175fee
commit 855fe1a6ce
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
LDP/txt2db/txt2db.pl
View File

@ -91,6 +91,7 @@ sub proc_txt {
my ($noparatag,
$noparadepth);
$noparadepth = 0;
$noparaline = 0;
# read in the text file
#
@ -142,6 +143,7 @@ sub proc_txt {
$noparatag = $line;
$noparatag =~ s/^.*?<//;
$noparatag =~ s/>.*?$//;
$noparaline = $linenumber;
}
# count noparadepth
@ -155,6 +157,9 @@ sub proc_txt {
while ($temp =~ /<\/$noparatag>/) {
$temp =~ s/<?\/$noparatag>//;
$noparadepth --;
if ($noparadepth == 0) {
$noparaline == 0;
}
}
# recover original line -- no whitespace modifiers
@ -306,11 +311,16 @@ sub proc_txt {
$line =~ s/\]/<\/filename>/;
}
$buf .= $line;
$buf .= "$line ";
}
# close nesting
#
&close1;
if ($noparadepth > 0) {
print "txt2db: ERROR tag $noparatag on line $noparaline unterminated.\n";
exit(1);
}
}
sub close1 {