3
# Copyright (c) 1998 by Marco Budde (Budde@tu-harburg.de)
4
# GNU General Public License
6
##################################################
7
# converts a .dhelp file to a .dwww-index file #
9
# usage: dhelp2dwww <dwww section> #
10
##################################################
17
print ".dhelp -> .dwww-index\n";
20
$pwd =~ /.*?\/usr\/doc\/(.*)/;
23
open (IN, "< .dhelp") or die "can't open .dhelp!\n";
24
open (OUT, "> .dwww-index") or die "can't open .dwww-index!\n";
29
while ($zw !~ /<\/item>/)
31
$linkname = $1 if ($zw =~ /<linkname>(.*)/);
32
$filename = $1 if ($zw =~ /<filename>(.*)/);
33
if ($zw =~ /<description>/)
35
while ($zw !~ /<\/description>/)
38
$descrip = $descrip . $zw if ($zw !~ /<\/description>/);
43
print OUT "#section $ARGV[0]\n";
44
print OUT "<dt><a href=\"$pwd/$filename\">$linkname</a>\n";
45
print OUT "<dd>$descrip\n";