#!/bin/perl5

$\ = "\n";

$directory = "/import/ftp/pub/lennox/superguy/";

use CGI;
$query = new CGI;

@logfilesfound =
    glob("$directory/sguy*[0-9] $directory/sguy*.gz");

# Globbing order should work okay with the new four-digit filenames.

shift(@logfilesfound) =~ /sguy(\d*)/;
($log_lower = $1) =~ s/^0*//;
pop(@logfilesfound) =~ /sguy(\d*)/;
($log_upper = $1) =~ s/^0*//;

$query->autoEscape(undef);

print $query->header;
print $query->start_html('The Superguy Autocollector','lennox@cs.columbia.edu');
print <<END;
<H1>The Superguy Autocollector</H1>
Welcome to the <A HREF="http://www.halcyon.com/superguy/">Superguy</A>
Automatic Collection generator!
<p>
END

print $query->startform('Get',"http:autocollect-srv.cgi");
print "Search for posts matching pattern: ",$query->textfield('pattern','',30);

%patterns = ("string" => " string", "casestring" => " case insensitive string",
	     "regexp" =>
	     " <A HREF=\"http:perlre.html\">regular expression</A>");
print "<P>using ",$query->radio_group('searchtype',
				      ['string','casestring','regexp'],
				      'casestring',0,\%patterns),
    " matching";
print "<P>in logs ",$query->textfield('start',$log_lower,5),
        " through ",$query->textfield('end',$log_upper,5),".";
print "<P>", $query->checkbox('index',undef,'on',
			      " Show index entries instead of post contents.");
print "<P>";
print $query->submit('Search');
print $query->endform;

print <<END;
<P>
The collections the Autocollector generates are created from the Superguy
archives, which are also available by FTP at
<A HREF="ftp://ftp.cs.columbia.edu/pub/lennox/superguy/">ftp://ftp.cs.columbia.edu/pub/lennox/superguy/</A>
or
<A HREF="ftp://ftp.eyrie.org/pub/superguy/">ftp://ftp.eyrie.org/pub/superguy/</A>.
<P>
The Autocollector selects the posts to output by performing the appropriate
sort of matching on the
<A HREF="ftp://ftp.cs.columbia.edu/pub/lennox/superguy/Superguy.Index.complete.txt">complete index</A>.  If your search didn't find a post you were expecting to
find, you might want to browse that file to find out what is wrong.
<P>
All material extracted by the Autocollector is copyright its respective
Authors.  See the
<A HREF="ftp://ftp.cs.columbia.edu/pub/lennox/superguy/TEB/Frequently-Asked-Questions">Superguy FAQ</A> for details.
<P>
<EM>Jonathan Lennox</EM><BR>
<EM>
<A HREF="mailto:lennox\@cs.columbia.edu">lennox\@cs.columbia.edu</A>
</EM><BR>
<EM>April 3, 1996</EM>
END

print $query->end_html;