282a032540
- Repocopy from www/<lang> to head/<lang>/htdocs to eliminate duplicate information in the www and the doc directory. - Add various administration files to svnadmin. Approved by: doceng (implicit)
53 lines
1.7 KiB
Perl
53 lines
1.7 KiB
Perl
#!/usr/bin/perl
|
|
# Copyright (c) May 1997 Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
|
|
#
|
|
# atoz - create automatically an `A-Z Index' from a pre-sorted database
|
|
# (sort -uf) with the format `<titel>|<url>'
|
|
#
|
|
# $FreeBSD$
|
|
|
|
# The FreeBSD French Documentation Project
|
|
# Original revision: 1.5
|
|
|
|
if ($ARGV[0] eq '-u' && $#ARGV > 0) {
|
|
$urlprefix = $ARGV[1]; shift; shift; # prefix for relative URLs
|
|
} elsif ($ARGV[0] =~ /^-/) { die "usage: $0 [-u urlprefix] files ...\n" }
|
|
|
|
$top = 'ruebezahl'; # HTML tag name for `go to top of page'
|
|
$hr = "<HR NOSHADE>\n\n"; $h2 = 'H2';
|
|
$table = 1; # use table output for alphabet
|
|
sub eol { "</UL>\n\n" }
|
|
|
|
$firstold = ''; @az = (); @list = ();
|
|
while(<>) {
|
|
chop; next if /^\s*#/ || /^\s*$/; # ignore comments
|
|
$first = substr($_, 0, 1); $first =~ y/a-z/A-Z/;
|
|
|
|
if ($firstold ne $first) { # a new alphabet character
|
|
push(@az, $first);
|
|
push(@list, &eol) if $#az > 0; # close previous list
|
|
push(@list,
|
|
qq{<$h2><A NAME="$first" HREF="#$top">$first</a></$h2>\n<UL>\n});
|
|
}
|
|
$firstold = $first;
|
|
($title, $url) = split('\|', $_); $url =~ s/^\s+//; $url =~ s/\s+$//;
|
|
$url = $urlprefix . $url unless
|
|
($url =~ m%^/% || $url =~ /^(news|mailto|ftp|http|telnet):/oi);
|
|
push(@list, qq{<LI><A HREF="$url">$title</A>\n});
|
|
}
|
|
push(@list, &eol); # close last list
|
|
|
|
# Output header, list, and copyright
|
|
print qq{<A NAME="$top"></A>\n};
|
|
print qq{<TABLE BORDER=4><TR>\n} if $table;
|
|
foreach (@az) {
|
|
if ($table) {
|
|
print qq{<TD><A HREF="#$_">$_</A></TD>\n};
|
|
} else {
|
|
print qq{<A HREF="#$_">$_</A>\n};
|
|
}
|
|
}
|
|
print "</TR></TABLE>\n" if $table;
|
|
print $hr; print @list;
|
|
#print qq{<link ref="made" href="http://www.de.freebsd.org/~wosch/">\n};
|
|
|