60 lines
1.1 KiB
Perl
60 lines
1.1 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
# Copyright (c) June 1998 Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
|
||
|
|
#
|
||
|
|
# site - create automatically a site map
|
||
|
|
#
|
||
|
|
# Format: <url> | <description>
|
||
|
|
# An empty url begin a new section
|
||
|
|
#
|
||
|
|
# $FreeBSD$
|
||
|
|
|
||
|
|
# The FreeBSD French Documentation Project
|
||
|
|
# Original revision: 1.3
|
||
|
|
|
||
|
|
# print a dl list
|
||
|
|
# <dl><dt>foo</dt>
|
||
|
|
# <dd>bla,foo,bar</dd>
|
||
|
|
# </dl>
|
||
|
|
|
||
|
|
sub dl {
|
||
|
|
$menu = 0;
|
||
|
|
print "<DL>\n";
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
# ignore comments and empty lines
|
||
|
|
next if /^\s*#/;
|
||
|
|
next if /^\s*$/;
|
||
|
|
|
||
|
|
chop;
|
||
|
|
($url, $description) = split('\|');
|
||
|
|
$description =~ s/^\s+//;
|
||
|
|
$description =~ s/\s+$//;
|
||
|
|
|
||
|
|
# new section
|
||
|
|
if (!$url && $description) {
|
||
|
|
# close last <dd>
|
||
|
|
if ($menu) {
|
||
|
|
print "\n", " </DD>\n", "\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
$menu = 1;
|
||
|
|
print " <DT><STRONG>", $description, "</STRONG></DT>\n";
|
||
|
|
print " <DD>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
# entries for a section
|
||
|
|
elsif ($menu) {
|
||
|
|
# a comma execpt for the last entry
|
||
|
|
print ",\n" if ($menu > 1);
|
||
|
|
|
||
|
|
print " <A HREF=", '"', $url, '">', $description, "</A>";
|
||
|
|
$menu++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\n", " </DD>\n";
|
||
|
|
print "</DL>\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
&dl;
|