diff --git a/en/cgi/dosendpr.cgi b/en/cgi/dosendpr.cgi
index 39715f2276..68e8c79450 100755
--- a/en/cgi/dosendpr.cgi
+++ b/en/cgi/dosendpr.cgi
@@ -1,105 +1,106 @@
 #!/usr/bin/perl
 #
 #  Send-pr perl script to send a pr.
 #
 # Copyright (c) 1996 Free Range Media
 #
 #  Copying and distribution permitted under the conditions of the
 #  GNU General Public License Version 2.  
 #     (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
 #
+# $FreeBSD$
 
 require "html.pl";
 
 sub prerror {
     &html_title ("Problem Report Error");
     &html_body();
     print "There is an error in the configuration of the problem\n",
           "report form genator.  Please back up one page and report\n",
           "the problem to the owner of that page.  Report @_[0].";
     &html_end();
     exit (1);
 }
 
 &www_content ("text","html");
 &cgi_form_in();
 
 $gndb = $cgi_data{'gndb'};
 if (-e "$gndb.def")
   { require "$gndb.def"; }
 else
   { &prerror("gndb problem"); }
 
 
 # Configuration
 if ($gnhow eq "mail")
   {
     if (-e "/usr/lib/sendmail")
       { $submitprog = "/usr/lib/sendmail -t" };
     if (-e "/usr/sbin/sendmail")
       { $submitprog = "/usr/sbin/sendmail -t" };
   }
 else
   { if (-e "$gnroot/queue-pr")
       { $submitprog = "$gnroot/queue-pr -q" };
   }
 
 if (!$submitprog) { &prerror("submit program problem"); }
 
 &html_title ($gnspreptitle);
 &html_body ($gnsprepbody);
 
 # Verify the data ...
 if (!$cgi_data{'email'} || !$cgi_data{'originator'} ||
     !$cgi_data{'synopsis'}) {
     if ($gnsprepbad && -e $gnsprepbad )
       { print `cat $gnsprepbad`; }
     else {
 	print "<h1>Bad Data</h1>\nYou need to specify at least your ",
           "electronic mail address, your name and a synopsis of the ",
           "of the problem.\n  Please return to the form and add the ",
           "missing information.  Thank you.\n";
     }
     &html_end();
 
     exit(1);
 }
 
 # Build the PR.
 $pr = "To: $gnemail\n" .
       "From: $cgi_data{'email'}\n" . 
       "Subject: $cgi_data{'synopsis'}\n" .
       "X-Send-Pr-Version: www-1.0\n\n" .
       ">Submitter-Id:\t$cgi_data{'submitterid'}\n" .
       ">Originator:\t$cgi_data{'originator'}\n" .
       ">Organization:\t$cgi_data{'organization'}\n" .
       ">Confidential:\t$cgi_data{'confidential'}\n" .
       ">Synopsis:\t$cgi_data{'synopsis'}\n" .
       ">Severity:\t$cgi_data{'severity'}\n" .
       ">Priority:\t$cgi_data{'priority'}\n" .
       ">Category:\t$cgi_data{'category'}\n" .
       ">Class:\t\t$cgi_data{'class'}\n" .
       ">Release:\t$cgi_data{'release'}\n" .
       ">Environment:\t$cgi_data{'environment'}\n" .
       ">Description:\n$cgi_data{'description'}\n" .
       ">How-To-Repeat:\n$cgi_data{'howtorepeat'}\n" .
       ">Fix:\n$cgi_data{'fix'}\n";
 
 # remove any carrage returns that appear in the report.
 $pr =~ s/\r//g;
 
 #print "<PRE>$submitprog\n\n$pr\n</PRE>";
 if (open (SUBMIT, "|$submitprog")){
 
     print SUBMIT $pr;
     close (SUBMIT);
     if ($gnspreppage && -e $gnspreppage )
       { print `cat $gnspreppage`; }
     else
       { print "<h1>Thank You</h1>",
 	  "Thank you for the problem report.  You should receive confirmation",
 	  " of your report by electronic mail within a day."; }
 } else {
     print "<h1>Error</h1>An error occured processing your problem report.";
 }
 &html_end();
diff --git a/en/cgi/ftp.cgi b/en/cgi/ftp.cgi
index 575f4fbb55..d8e48ecd7b 100755
--- a/en/cgi/ftp.cgi
+++ b/en/cgi/ftp.cgi
@@ -1,35 +1,37 @@
 #!/usr/bin/perl
+#
+# $FreeBSD$
 
 require 'cgi-lib.pl';
 require 'cgi-style.pl';
 
 
 $newloc = "http://www.FreeBSD.org/";
 
 print &html_header("FTP Download");
 
 open (MIRRORS, "ftp.mirrors");
 
 print "<h2>Download <em>$ARGV[0]</em> from one of the following mirror sites:</h2>\n";
 
 $oldplace = "";
 
 while (<MIRRORS>) {
     if (/.*:.*:/ && !/^#/) {
     ($place, $site, $root) = split(':',$_);
 	chop $root; $root =~ s/ *$//;
 	if ($place ne $oldplace) {
 	    if ($oldplace ne "") {
 		print "</ul>\n";
 	    }
 	    print "<strong>$place</strong>\n<ul>\n";
 	    $oldplace = $place;
 	}
 	print "<li><a href='ftp://${site}${root}/$ARGV[0]'>$site</a></li>\n";
     }
 }
 
 close (MIRRORS);
 
 print "</ul>\n";
 print &html_footer;
diff --git a/en/cgi/html.pl b/en/cgi/html.pl
index 6496252a2a..b61ab22447 100755
--- a/en/cgi/html.pl
+++ b/en/cgi/html.pl
@@ -1,211 +1,212 @@
 #	$NetBSD: html.pl,v 1.2 1996/06/14 19:52:38 thorpej Exp $
 #
 # perl routines to help generate html from cgi scripts in perl.
 #
 # written by Philip A. Nelson, 1995 and 1996.
 #
 #  Copyright (c) 1995, 1996 Philip A. Nelson.
 #
 #  Last modified: May 13, 1996.
 #
 #  Copying and distribution permitted under the conditions of the
 #  GNU General Public License Version 2.  
 #     (http://www.gnu.ai.mit.edu/copyleft/gpl.html)
 #
+# $FreeBSD$
 
 #
 # typical use is &www_content ("text","html");
 #	Should be the first output from a cgi script.
 #
 sub www_content {
   print "Content-type: $_[0]/$_[1]\n\n";
 }
 
 #
 # &html_title ( title, other_head_html )
 #	Starts the html with a head and title.
 #
 sub html_title {
   print "<html>\n<head>\n<title>$_[0]</title>\n$_[1]\n</head>\n";
 }
 
 #
 # &html_body (Body_tag_attributes);
 #
 sub html_body {
   print "<body $_[0]>\n";
 }
 
 #
 # Last call to end a complete html page.
 #	&html_end();
 #
 sub html_end {
   print "</body>\n</html>\n";
 }
 
 #
 # &www_href (URL, link text, anchor_name)
 #    link text and anchor name are optional.
 #    If no link text, no </a> is generated.
 #
 sub html_href {
   print "<a href=\"$_[0]\"";
   if ($_[2]) { print "name=\"$_[2]\""; }
   if ($_[1]) { print $_[1], "</a>"; }
 }
 
 #
 #  &cgi_form_in();
 #
 #  Form support:
 #	Defines:
 #	    $cgi_data{$key} the data indexed by the key.
 #		keys repeated twice gets data collected in
 #		$cgi_data{$key} separated by "|"s.
 #
 #	    @keys (sequential list of keys)
 #	    @vals (sequential list of values)
 #	    $cgi_method
 #
 sub cgi_form_in {
   local ($data);
   $cgi_method = $ENV{'REQUEST_METHOD'};
   if ($cgi_method eq 'GET') {
     $data = $ENV{'QUERY_STRING'};
   } else {
     read(STDIN,$data,$ENV{'CONTENT_LENGTH'});
   }
   @lines = split (/&/, $data);
   $nkeys = 0;
   foreach $line (@lines) {
     ($key,$val) = split (/=/, $line);
     $val =~ s/\+/ /g;
     $val =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C",hex($1))/eg ;
     if ($cgi_data{$key}) {
 	$cgi_data{$key} = $cgi_data{$key}."|".$val;
     } else {
 	$cgi_data{$key} = $val;
     }
     push (@keys, "$key");
     push (@vals, "$val");
     $nkeys += 1;
   }
 }
 
 #
 # Form creation routines
 #
 
 #
 # &html_form (action)  - form with post method
 #
 sub html_form {
   print "<form action=\"$_[0]\" method=POST>\n";
 }
 
 #
 # &html_getform (action)  - form with get method
 #
 sub html_getform {
   print "<form action=\"$_[0]\" method=POST>\n";
 }
 
 #
 # &html_endform();
 #
 sub html_endform {
   print "</form>\n";
 }
 
 #
 # &html_input (type, name, value, size, maxlength, checked)
 #
 sub html_input {
   local ($type, $name, $value, $size, $maxlength, $checked) = @_;
   print "<input type=\"$type\" ";
   if ($name)      { print "name=\"$name\" "; }
   if ($value)     { print "value=\"$value\" "; }
   if ($size)      { print "size=\"$size\" "; }
   if ($maxlength) { print "maxlength=\"$maxlength\" "; }
   if ($checked)   { print "checked "; }
   print ">\n";
 }
 
 #
 # &html_radio (name, value_list)
 #
 sub html_radio {
   local ($name, @values) = @_;
   foreach $val (@values) {
     &html_input ("radio", $name, $val);
   }
 }
 
 #
 # &html_checkbox (name, values)
 #    checked values include a : which is removed.
 #
 sub html_checkbox {
   local ($name, @values) = @_;
   foreach $val (@values) {
     $val1 = $val;
     $val1 =~ s/://;
     if ($val eq $val1) 
       { &html_input ("checkbox", $name, $val); }
     else
       { &html_input ("checkbox", $name, $val1,"" ,"" ,"checked"); }
     print $val1;
   }
 }
 
 #
 # &htlm_select (name, options ...)
 #
 #   options including : are selected and the : is removed.
 #
 sub html_select {
   local ($name, @options) = @_;
   print "<select name=\"$name\">\n";
   foreach $opt (@options) {
     $opt1 = $opt;
     $opt1 =~ s/://;
     if ($opt eq $opt1) 
       { print "<option> $opt1\n"; }
     else
       { print "<option SELECTED> $opt1\n"; }
   }
   print "</select>\n";
 }
 
 #
 # &htlm_selectmult (name, options ...)
 #
 #    allow multiple selections
 #
 sub html_selectmult {
   local ($name, @options) = @_;
   print "<select name=\"$name\" multiple>\n";
   foreach $opt (@options) {
     $opt1 = $opt;
     $opt1 =~ s/://;
     if ($opt eq $opt1) 
       { print "<option> $opt1\n"; }
     else
       { print "<option SELECTED> $opt1\n"; }
   }
   print "</select>\n";
 }
 
 #
 #  &html_textarea (name, rows, cols, value);
 #
 sub html_textarea {
   local ($name, $rows, $cols, $value) = @_;
   print "<textarea name=\"$name\" rows=\"$rows\" cols=\"$cols\">\n";
   print "$value\n";
   print "</textarea>"; 
 }
 
 # return true!
 1;
diff --git a/en/cgi/reg.cgi b/en/cgi/reg.cgi
index 6933253a97..93064cc8c0 100755
--- a/en/cgi/reg.cgi
+++ b/en/cgi/reg.cgi
@@ -1,106 +1,107 @@
 #!/usr/bin/perl
-
+#
 # Perl program to send mail.
-
+#
+# $FreeBSD$
 
 $mailprog = '/usr/sbin/sendmail';
 
 print "Content-type: text/html\n\n";
 
 if ($ENV{'REQUEST_METHOD'} eq "get") { $buffer = $ENV{'QUERY_STRING'}; }
 else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
 
 @nvpairs = split(/&/, $buffer);
 foreach $pair (@nvpairs)
 {
     ($name, $value) = split(/=/, $pair);
 
     $value =~ tr/+/ /;
     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 
     $FORM{$name} = $value;
 }
 
 if ($FORM{"emaila"} eq "") {
   print "<HTML>\n";
   print "<HEAD>\n";
   print "<TITLE>Entry Error: Email Field Blank</TITLE>\n";
   print "</HEAD>\n";
   print "<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#000000\">\n";
   print "<BASEFONT SIZE=4>\n";
   print "<P>Your email address was left blank.  Please enter it.\n";
   print "</BODY>\n";
   print "</HTML>\n";
   exit(0);
 }
 
 $recipient = $FORM{'recipient'};
 exit(0) if $recipient !~ /^[a-z_\.\-]+\@freebsd\.org$/io; 
 $sub_recipient = "majordomo\@FreeBSD.org";
 #
 # format the mail file
 format MAIL =
 ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 $value
 .
 
 # Open the mail file and write to it
 open (MAIL, "|$mailprog $recipient") || die "$mailprog not available.\n";
 print MAIL "From: $FORM{'emaila'}\n";
 print MAIL "Subject: FreeBSD Registration from $FORM{'emaila'}\n\n";
 
 print MAIL "<entry>\n";
 print MAIL "<first>$FORM{'First'}</first>\n";
 print MAIL "<last>$FORM{'Last'}</last>\n";
 print MAIL "<email>$FORM{'emaila'}</email>\n";
 print MAIL "<address>$FORM{'Address'}</address>\n";
 print MAIL "<city>$FORM{'City'}</city>\n";
 print MAIL "<state>$FORM{'State'}</state>\n";
 print MAIL "<zip>$FORM{'Zip'}</zip>\n";
 print MAIL "<options commerce_email=$FORM{'commerce_email'}";
 print MAIL " announce=$FORM{'announce'} newsletter=$FORM{'newsletter'}>";
 print MAIL " </options>\n";
 print MAIL "<version>$FORM{'version'}</version>\n";
 print MAIL "</entry>\n";
 print MAIL "\n";
 close (MAIL);
 
 # Open the mail file and write to it
 # if user is subscribing to maillist 
 if ($FORM{"announce"} eq "yes") {
 open (MAIL, "|$mailprog $sub_recipient") || die "$mailprog not available.\n";
 print MAIL "From: $FORM{'emaila'}\n";
 print MAIL "Subject: subscribe freebsd-announce $FORM{'emaila'}\n\n";
     
 print MAIL "subscribe freebsd-announce $FORM{'emaila'}\n";
 
 close (MAIL);
 }
 print "<HTML>\n";
 print "<HEAD>\n";
 print "<TITLE>Mail Sent</TITLE>\n";
 print "</HEAD>\n";
 print "<BODY BGCOLOR=\"\#FFFFFF\" TEXT=\"\#660000\">\n";
 print "<FONT SIZE=4> \n";
 print "<CENTER>\n";
 print "<IMG SRC=\"..\/gifs\/bar.gif\" BORDER=0 USEMAP=\"\#bar\">\n";
 print "<MAP NAME=\"bar\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"1,1,111,31\" HREF=\"../index.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"112,11,196,31\" HREF=\"../ports/index.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"196,12,257,33\" HREF=\"../support.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"256,12,365,33\" HREF=\"../docs.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"366,13,424,32\" HREF=\"../commercial.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"425,16,475,32\" HREF=\"../search/search.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"477,16,516,33\" HREF=\"../search/index-site.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"516,15,562,33\" HREF=\"../index.html\">\n";
 print "<AREA SHAPE=\"RECT\" COORDS=\"0,0,564,32\" HREF=\"../index.html\">\n";
 print "</MAP>\n";
 print "<P>Thank you, $FORM{'First'} $FORM{'Last'}, for your registration.\n";
 print "<BR>It has been submitted.\n";
 if ($FORM{"announce"} eq "yes") {
 print "<BR>As you requested, you have also been subscribed to announce\@FreeBSD.org.\n";
 }
 print "</CENTER>\n";
 print "</BODY>\n";
 
 1;
diff --git a/en/cgi/search.cgi b/en/cgi/search.cgi
index 25766db7c3..b2e3cc87a5 100755
--- a/en/cgi/search.cgi
+++ b/en/cgi/search.cgi
@@ -1,259 +1,261 @@
 #!/usr/bin/perl
 #
 # mail-archive.pl  --  a CGI interface to a wais indexed maling list archive.
 #
 # Origin:
 #   Tony Sanders <sanders@bsdi.com>, Nov 1993
 #
 # Hacked beyond recognition by:
 #   John Fieber <jfieber@cs.smith.edu>, Nov 1994
 #
 # Format the mail messages a little nicer.
 # Add code to check database status before searching.
 #   John Fieber <jfieber@indiana.edu>, Aug 1996
 #
 # Disclaimer:
 #   This is pretty ugly in places.
+#
+# $FreeBSD$
 
 
 $server_root = '/usr/local/www';
 $waisq = "/usr/local/www/bin/waisq";
 $sourcepath = "$server_root/db/index";
 $hints = "/search/searchhints.html"; 
 $searchpage = '/search/search.html';   
 $myurl = $ENV{'SCRIPT_NAME'};
 
 require "open2.pl";
 require "cgi-lib.pl";
 require "cgi-style.pl";
 
 @months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
 
 sub do_wais {
     &ReadParse;
     
     @FORM_words = split(/ /, $in{"words"});
     @FORM_source = split(/\0/, $in{"source"});
     $FORM_max = $in{"max"};
     $FORM_docnum = $in{"docnum"};
    
     if ($#FORM_words < 0) {
     	print &html_header("Mail Archive Search") .
     	    "<p>No search term given.";
     	print "<p>\nPlease return to the " .
     	    "search page and fill out the 'Search for' field!\n";
 	print &html_footer;
     	exit 0;
     }
 
     @AVAIL_source = &checksource(@FORM_source);
     if ($#FORM_source != $#AVAIL_source) {
     	$j = 0;
     	$k = 0;
     	foreach $i (0 .. $#FORM_source) {
     	    if ($FORM_source[$i] ne $AVAIL_source[$j]) {
     	    	$badsource[$k] = $FORM_source[$i];
     	    	$k++;
     	    } else {
     	    	$j++;
     	    }
     	}
     	$badsource = join("</em>, <em>", @badsource);
     	$badsource =~ s/,([^,]*)$/ and $1/;
     	if ($#FORM_source - $#AVAIL_source > 1) {
     	    $availmsg = "<p>[The <em>$badsource</em> archives are currently unavailable.]</p>";
     	} else {
     	    $availmsg = "<p>[The <em>$badsource</em> archive is currently unavailable.]</p>";
     	}
     }
     if ($#AVAIL_source < 0) {
     	$i = join("</em>, <em>", @FORM_source);
     	$i =~ s/,([^,]*)$/ and $1/;
     	print &html_header("Mail Archive Search") .
     	    "<p>None of the archives you requested (<em>$i</em>) are " .
 		" available at this time.</p>\n";
     	print "<p>Please try again later, or return to the " .
     	    "search page and select a different archive.</p>\n";
 	print &html_footer;
     	exit 0;
     }
 
     # Now we formulate the question to ask the server
     foreach $i (@AVAIL_source) {
 	$w_sources .=  "(:source-id\n        :filename \"$i.src\"\n        )  ";
     }
     $w_question = "\n  (:question 
     :version  2 
     :seed-words \"@FORM_words\"
     :relevant-documents 
     (  )
     :sourcepath \"$sourcepath/:\"
     :sources 
     (  $w_sources      )
     :maximum-results  $FORM_max 
     :result-documents 
     (  ) 
     )\n";
     
 
     #
     # First case, no document number so this is a regular search
     #
     print &html_header("Search Results");
     print $availmsg;
     if ($#AVAIL_source > 0) {
 	$src = join("</em>, <em>", @AVAIL_source);
 	$src =~ s/,([^,]*)$/ and $1/;
 	print "<p>The archives <em>$src</em> contain ";
     }
     else {
 	print "The archive <em>@AVAIL_source</em> contains ";
     }
     print " the following items relevant to \`@FORM_words\':\n";
     print "<OL>\n";
 
     &open2(WAISOUT, WAISIN, $waisq, "-g");
     print WAISIN $w_question;
 
     local(@mylist) = ();
     local($hits, $score, $headline, $lines, $bytes, $docid, $date, $file);
 
     while (<WAISOUT>) {
 	/:original-local-id.*#\(\s+([^\)]*)/ && 
 	    ($docid = pack("C*", split(/\s+/, $1)),
 	     $docid =~ s/\s+/+/g);
 	/:score\s+(\d+)/ && ($score = $1);
 	/:filename "(.*)"/ && ($file = $1);
 	/:number-of-lines\s+(\d+)/ && ($lines = $1);
 	/:number-of-bytes\s+(\d+)/ && ($bytes = $1);
 	/:headline "(.*)"/ && ($headline = $1, 
 			       $headline =~ s/[Rr]e://);  # XXX
 	/:date "(\d+)"/ && ($date = $1, $hits++, 
 			    push(@mylist, join("\t", $date, $headline, $docid, 
 					       $bytes, $lines, $file, $score, $hits)));
     }
 
     if ($in{'sort'} eq "date") {
 	foreach (reverse sort {$a <=> $b} @mylist) {
 	    ($date, $headline, $docid, $bytes, $lines, 
 	     $file, $score, $hits) = split("\t");
 	    &docdone;
 	}
     } elsif ($in{'sort'} eq "subject") {
 	local(@a, @c, $b, $d);
 	foreach (@mylist) {
 	    @a = split("\t");
 	    $b = $a[0];
 	    # swap date and subject
 	    if ($a[1] =~ /(^[^:]+)(Re:.*)/) {
 		$a[0] = "$2\t$1";
 	    } else {
 		$a[0] = "$a[1]\t.";
 	    }
 	    $a[1] = $b;
 	    push(@c, join("\t", @a));
 	} 
 	local($subject, $author);
 	foreach (sort {$a cmp $b} @c) {
 	    ($subject, $author, $date, $docid, $bytes, 
 	     $lines, $file, $score, $hits) = split("\t");
 	    $headline = $author . $subject;
 	    &docdone;
 	}
 
     } elsif ($in{'sort'} eq "author") {
 	local(@a, @c, $b);
 	foreach (@mylist) {
 	    @a = split("\t");
 	    # swap date and subject
 	    $b = $a[0]; $a[0] = $a[1]; $a[1] = $b;
 	    push(@c, join("\t", @a));
 	} 
 	foreach (sort {$a cmp $b} @c) {
 	    ($headline, $date, $docid, $bytes, 
 	     $lines, $file, $score, $hits) = split("\t");
 	    &docdone;
 	}
 
     } else {
 	foreach (@mylist) {
 	    ($date, $headline, $docid, $bytes, 
 	     $lines, $file, $score, $hits) = split("\t");
 	    &docdone;
 	}
     }
     #print qq[in: $in{'sort'}\n];
 
     print "</OL>\n";
 
     print "<p>Didn't get what you expected? ";
     print "<a href=\"$hints\">Look here for searching hints</a>.</p>";
 
     print qq{<p><a href="$searchpage">Return to the search page</a></p>\n};
 
     if ($hits == 0) {
 	print "Nothing found.\n";
     }
 
     print &html_footer;
     close(WAISOUT);
     close(WAISIN);
 
 }			     
 
 # Given an array of sources (sans .src extension), this routine
 # checks to see if they actually exist, and if they do, if they
 # are currently available (ie, not being updated).  It returns
 # an array of sources that are actually available.
 
 sub checksource {
     local (@sources) = @_;
 
     $j = 0;
     foreach $i (@sources) {
     	if (stat("$sourcepath/$i.src")) {
        	    if (!stat("$sourcepath/$i.update.lock")) {
     	    	$goodsources[$j] = $i;
     	    	$j++;
     	    }
     	}
     }
     return(@goodsources);
 }
 
 sub htmlescape {
     local ($data) = @_;
     $data =~ s/&/&amp;/g;
     $data =~ s/</&lt;/g;
     return $data;
 }
 
 sub docdone {
     $file =~ s/\.src$//;
     if ($headline =~ /Search produced no result/) {
 	print "<p>The archive <em>$file</em> contains no relevant documents.</p>"
     } else {
         $headline = &htmlescape($headline);
         $headline =~ s/\\"/\"/g;
         if ($file eq "www") {
             print "<li><a href=\"$headline\">$headline</a>\n";
         } else {
             print "<li><A HREF=\"getmsg.cgi?fetch=${docid}\">$headline</A>\n";
         }
         print "<br>";
 #	print "<input type=\"checkbox\" name=\"rf\" value=\"$docnum\">";
 	print "Score: <em>$score</em>; ";
     	$_ = $date;
     	/(..)(..)(..)/ && ($yr = $1 + 1900, $mo = $months[$2 - 1], $dy = $3);
 	print "Lines: <em>$lines</em>; ";
     	print "${dy}-${mo}-${yr}; ";
 	print "Archive: <em>$file</em>";
 	print "<p></p></li>\n";
     }
 #    $score = $headline = $lines = $bytes = $docid = $date = $file = '';
 }
 
 $| = 1;
 open (STDERR,"> /dev/null");
 eval '&do_wais';