os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

- Remove two more superfluous files

Browse source 
Discussed with:	carvay
This commit is contained in:
Gabor Kovesdan 2008-01-28 23:16:04 +00:00
parent f762430c82
commit d235d037e2
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=31399
3 changed files with 3 additions and 110 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
es/search/Makefile
View file

@ -1,4 +1,4 @@
# $FreeBSD: www/es/search/Makefile,v 1.2 1999/09/06 07:03:13 peter Exp $
# $FreeBSD: www/es/search/Makefile,v 1.3 2000/11/29 23:57:09 kuriyama Exp $
.if exists(../Makefile.conf)
.include "../Makefile.conf"
@ -18,9 +18,9 @@ CLEANFILES+=atoz.sgml site.sgml
index-site.html: atoz.sgml site.sgml
atoz.sgml: web.atoz
sort -fu ${.ALLSRC} | ${PERL} ${.CURDIR}/atoz.pl > ${.TARGET}
sort -fu ${.ALLSRC} | ${PERL} ${.CURDIR}/../../en/search/atoz.pl > ${.TARGET}
site.sgml: site.map
${PERL} ${.CURDIR}/site.pl < ${.ALLSRC} > ${.TARGET}
${PERL} ${.CURDIR}/../../en/search/site.pl < ${.ALLSRC} > ${.TARGET}
.include "${WEB_PREFIX}/share/mk/web.site.mk"

50
es/search/atoz.pl
View file

@ -1,50 +0,0 @@
#!/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$
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};

57
es/search/site.pl
View file

@ -1,57 +0,0 @@
#!/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$
# 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;