diff --git a/es/search/Makefile b/es/search/Makefile
index 5ed2d06fb9..79e962d338 100644
--- a/es/search/Makefile
+++ b/es/search/Makefile
@@ -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"
diff --git a/es/search/atoz.pl b/es/search/atoz.pl
deleted file mode 100644
index 1f4b3990ce..0000000000
--- a/es/search/atoz.pl
+++ /dev/null
@@ -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};
-
diff --git a/es/search/site.pl b/es/search/site.pl
deleted file mode 100755
index cd0667947f..0000000000
--- a/es/search/site.pl
+++ /dev/null
@@ -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;