[GRASS-SVN] r41044 - grass/branches/releasebranch_6_4/tools/g.html2man

[svn_grass at osgeo.org]

Author: neteler
Date: 2010-02-16 08:43:34 -0500 (Tue, 16 Feb 2010)
New Revision: 41044

Modified:
   grass/branches/releasebranch_6_4/tools/g.html2man/g.html2man
Log:
fix backported from 6.5

Modified: grass/branches/releasebranch_6_4/tools/g.html2man/g.html2man
===================================================================
--- grass/branches/releasebranch_6_4/tools/g.html2man/g.html2man	2010-02-16 12:43:40 UTC (rev 41043)
+++ grass/branches/releasebranch_6_4/tools/g.html2man/g.html2man	2010-02-16 13:43:34 UTC (rev 41044)
@@ -137,8 +137,8 @@
   &DoPara($_);
   if (! $preformat) {
     if (m/^$/) {return 0};
-    s#^[ \t]*##;    
-    s#<[^>]*>##g;    
+    s#^[ \t]*##;
+    s#<[^>]*>##g;
   }
   return 1;
 }
@@ -279,6 +279,11 @@
 &PrintHeader($page,$sect,$TITLE[0]);
 
 while (<INP>) {
+  # for intro pages which lack a module NAME (for whois entry)
+  if ($_ =~ s/<!-- meta page description:(.*)-->/$1/) {
+	print OUT ".SH NAME\n$page -$_\n";
+  }
+
   s/\\/\\(rs/g;
   $result = &DoLine($_);
   if ($result == 2) {
@@ -286,6 +291,7 @@
     close(OUT);
     return;
   }
+
   if (&DoLine($_) == 1) {
     s#&lt#<#g;
     s#&gt#>#g; 
@@ -312,7 +318,6 @@
     #
     # end of comment part
     #
-
     
     $out .= $line;