--- burst.pl	2001/05/11 22:04:54	1.17
+++ burst.pl	2001/09/04 23:10:55	1.19
@@ -135,6 +135,7 @@
 
 my $pack = 0;
 my @pack_additional;	# additional files to pack (pictures, logos...)
+my %nesttag = init_nesttag();
 
 ##############################################################################
 ## reading user input from $infos
@@ -388,7 +389,7 @@
 		author => $author,
 		authorUrl => $authorUrl,
 		author2 => $author2,
-		authorUrl2 => $authorUrl2,
+		author2Url => $author2Url,
 
 		date => $date,
 
@@ -528,7 +529,8 @@
 	$status =~ s/<[^>]+>//g;
 	print STDERR $status;
 
-	&verify_html($content);    # check the html
+	&verify_html($content);		# check the html
+	&check_tags($content);		# check open and closed tags
 
 	## write to the slide
 	open(SLIDE, ">slide$nr.html") || die "can't save slide$nr.html: $!";
@@ -593,7 +595,7 @@
 		author => $author,
 		authorUrl => $authorUrl,
 		author2 => $author2,
-		authorUrl2 => $authorUrl2,
+		author2Url => $author2Url,
 
 		date => $date,
 
@@ -739,3 +741,112 @@
 		}
 	}
 }
+
+##############################################################################
+# check tags in slide
+# based on code from hindent 1.1.2 by Paul Balyoz <pab@domtools.com>
+
+sub init_nesttag {
+# Tags that require their own end tag <TAG>...</TAG> we will nest them
+# properly:   (WARNING, you must use lower-case here)
+# All other tags (not on this list) will be ignored for indenting purposes.
+return (
+	'html' => 1,
+	'head' => 1,
+	'body' => 1,
+	'title' => 1,
+
+	'a' => 1,
+
+	'table' => 1,
+	'tr' => 1,
+	'th' => 1,
+	'td' => 1,
+
+	'form' => 1,
+	'select' => 1,
+	'textarea' => 1,
+
+#	'p' => 1,      Don't do this one because many people use <P> but not </P>
+	'ul' => 1,
+	'ol' => 1,
+	'dl' => 1,
+	'blockquote' => 1,
+	'center' => 1,
+	'div' => 1,
+
+	'font' => 1,
+	'pre' => 1,
+	'tt' => 1,
+	'i' => 1,
+	'b' => 1,
+	'u' => 1,
+	'strike' => 1,
+	'big' => 1,
+	'small' => 1,
+	'sub' => 1,
+	'sup' => 1,
+	'em' => 1,
+	'strong' => 1,
+	'dfn' => 1,
+	'code' => 1,
+	'samp' => 1,
+	'kbd' => 1,
+	'var' => 1,
+	'cite' => 1,
+
+	'h1' => 1,
+	'h2' => 1,
+	'h3' => 1,
+	'h4' => 1,
+	'h5' => 1,
+	'h6' => 1,
+
+	'applet' => 1,
+
+	'map' => 1,
+
+	'frameset' => 1,
+	'noframes' => 1,
+);
+}
+
+sub check_tags {
+	my $tmp = $_[0];
+	my @tagstack;
+	my $level=0;
+
+	while ($tmp =~ /<(.*?)>/gsm) {
+		my $tag=$1; $tag=~s/\s.+//g;
+		# if regular tag, push it on stack; if end-tag, pop it off stack.
+		# but don't do any of this if it's not a special "nesting" tag!
+		if ($tag !~ m,^/,) {
+			if ($nesttag{lc($tag)}) {
+				push @tagstack,$tag;
+				$level++;		# remember how much for later
+			}
+		} else {
+			$tag =~ s,^/,,;		# convert this end-tag to a begin-tag
+			$tag = lc($tag);
+			if ($nesttag{lc($tag)}) {
+				# throw away tags until we find a match
+				if ($#tagstack > -1) {
+					while ($tag ne lc(pop @tagstack)) {
+						$level--;	# we threw away extra tags
+						last if $#tagstack <= 0;
+					}
+					$level--;	# we threw away extra tags
+					if ($level < 0) {
+						print STDERR "WARNING: more end than begin tags around </$tag> !\n";
+					}
+				}
+			}
+		}
+	}
+
+	if ($level > 0) {
+		print STDERR "WARNING: level=$level, ", $#tagstack+1," tags left on stack after done parsing!  Specifically:\n<",join("> <",@tagstack),">\n";
+	}
+
+}
+