[docs] docs - heins modified scripts/breakdown.pl

[docs@interchange.redhat.com]

User:      heins
Date:      2001-10-08 22:58:27 GMT
Modified:  scripts  breakdown.pl
Log:
	* Fix docdb generation.....

Revision  Changes    Path
1.3       +13 -6     docs/scripts/breakdown.pl


rev 1.3, prev_rev 1.2
Index: breakdown.pl
===================================================================
RCS file: /anon_cvs/repository/docs/scripts/breakdown.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- breakdown.pl	2001/04/25 16:02:01	1.2
+++ breakdown.pl	2001/10/08 22:58:27	1.3
@@ -57,10 +57,14 @@
 	print NAV $nav_base;
 
 for(@chunks) {
-	/<a\s+name\s*=\s*"([^"]+)">([^<]+)/i;
+	m{<a\s+name\s*=\s*"([^"]+)">(.*?)</a>}is;
 	$secname[$i] = $1;
-	$secname[$i] =~ s/([^-.\w])/'%' . sprintf("%02x", ord($1))/eg;
 	$title[$i] = $2;
+	$title[$i] =~ s/<.*?>//sg;
+	$title[$i] =~ s/^\s+//;
+	$title[$i] =~ s/\s+$//;
+	$secname[$i] =~ s/([^-.\w])/'%' . sprintf("%02x", ord($1))/eg;
+warn("empty title for $secname[$i]") unless $title[$i] =~ /\S/;
 	$i++;
 }
 
@@ -101,7 +105,7 @@
 	($rest,@bits) = split /<H2>/i, $chunk;
 	my $dbtitle = $title[$i];
 	my $sectype = 'overview';
-	if($dbtitle =~ /^\s*NAME\s*$/) {
+	if($secname[$i] = /^s*name\s*$/i) {
 		$sectype = 'filler';
 	}
 	elsif($dbtitle =~ /^\s*DESCRIPTION\s*$/) {
@@ -131,10 +135,13 @@
 	my $j = 1;
 
 	for(@bits) {
-		/<a\s+name\s*=\s*"([^"]+)">([^<]+)/i;
+		m{<a\s+name\s*=\s*"([^"]+)">(.*?)</A>}si;
 		$subname[$j] = $1;
-		$subname[$j] =~ s/([^-.\w])/'%' . sprintf("%02x", ord($1))/eg;
 		$subtitle[$j] = $2;
+		$subtitle[$j] =~ s/<.*?>//sg;
+		$subtitle[$j] =~ s/^\s+//;
+		$subtitle[$j] =~ s/\s+$//;
+		$subname[$j] =~ s/([^-.\w])/'%' . sprintf("%02x", ord($1))/eg;
 		$j++;
 	}
 
@@ -167,7 +174,7 @@
 %%
 $ENV{DOCUMENT}
 %%
-$secname[$i]
+$secname[$j]
 %%
 item
 %%