diff --git a/data/site.pl b/data/site.pl index a0968e3ee8..eed656de6a 100755 --- a/data/site.pl +++ b/data/site.pl @@ -1,55 +1,57 @@ #!/usr/bin/perl # Copyright (c) June 1998 Wolfram Schneider , Berlin. # # site - create automatically a site map # # Format: | # An empty url begin a new section # -# $Id: site.pl,v 1.1 1998-06-05 10:07:17 wosch Exp $ +# $Id: site.pl,v 1.2 1998-06-24 12:50:16 wosch Exp $ # print a dl list #
foo
#
bla,foo,bar
#
sub dl { $menu = 0; print "
\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
if ($menu) { print "\n", "
\n", "\n"; } $menu = 1; print "
", $description, "
\n"; print "
\n"; } # entries for a section elsif ($menu) { # a comma execpt for the last entry print ",\n" if ($menu > 1); print " ', $description, ""; $menu++; } } print "\n", "
\n"; print "
\n"; } &dl; diff --git a/en/search/site.pl b/en/search/site.pl index a0968e3ee8..eed656de6a 100755 --- a/en/search/site.pl +++ b/en/search/site.pl @@ -1,55 +1,57 @@ #!/usr/bin/perl # Copyright (c) June 1998 Wolfram Schneider , Berlin. # # site - create automatically a site map # # Format: | # An empty url begin a new section # -# $Id: site.pl,v 1.1 1998-06-05 10:07:17 wosch Exp $ +# $Id: site.pl,v 1.2 1998-06-24 12:50:16 wosch Exp $ # print a dl list #
foo
#
bla,foo,bar
#
sub dl { $menu = 0; print "
\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
if ($menu) { print "\n", "
\n", "\n"; } $menu = 1; print "
", $description, "
\n"; print "
\n"; } # entries for a section elsif ($menu) { # a comma execpt for the last entry print ",\n" if ($menu > 1); print " ', $description, ""; $menu++; } } print "\n", "
\n"; print "
\n"; } &dl;