[xorg-commit-diffs] xc/config/util mkhtmlindex.pl, 1.1.10.2, 1.1.10.3

[Keith Packard]

Committed by: keithp

Update of /cvs/xorg/xc/config/util
In directory pdx:/tmp/cvs-serv25347/config/util

Modified Files:
      Tag: XORG-RELEASE-1
	mkhtmlindex.pl 
Log Message:
 72. Fix mkhtmlindex.pl to accept upper or lower case html tags.
     (Keith Packard)


Index: mkhtmlindex.pl
===================================================================
RCS file: /cvs/xorg/xc/config/util/mkhtmlindex.pl,v
retrieving revision 1.1.10.2
retrieving revision 1.1.10.3
diff -u -d -r1.1.10.2 -r1.1.10.3
--- a/mkhtmlindex.pl	2 Apr 2004 21:47:10 -0000	1.1.10.2
+++ b/mkhtmlindex.pl	5 Apr 2004 18:56:42 -0000	1.1.10.3
@@ -57,15 +57,15 @@
 			open(file, "<$dir/$file") || die "Can't open $dir/$file";
 			while (<file>) {
 				chop;
-				if (/^<H2>/) {
-					if (! /<\/H2>$/) {
-						while (<file> && ! /<\/H2>$/) {
+				if (/^<[hH]2>/) {
+					if (! /<\/[hH]2>$/) {
+						while (<file> && ! /<\/[hH]2>$/) {
 							;
 						}
 					}
 					$heading = "";
 					while (<file>) {
-						if (/^<H2>/) {
+						if (/^<[hH]2>/) {
 							last;
 						}
 						$heading = "$heading" . "$_";
@@ -76,7 +76,7 @@
 						($name, $descr) = split(/-/, $heading, 2);
 						$file =~ /(.*)\.$vol\.html/;
 						$fname = $1;
-						$descr =~ s/<[P]>//g;
+						$descr =~ s/<[pP]>//g;
 						print mindex
 							"<LI><A href=\"$file\">$fname</A> - $descr</LI>";
 					}