geos_one/archie
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add release dir

Browse Source
This commit is contained in:
Mario Fetka
2024-05-28 17:59:32 +02:00
parent 1a700daf11
commit 2d5eb9fe1c
142 changed files with 34106 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

435
release/base/cgi/bin/archie.cgi Normal file
View File

@@ -0,0 +1,435 @@
#!/usr/local/bin/perl
#
# Archie Perl Client (front-end)
# This script needs the binary cgi-client (back-end) to pass the query parameters
# to. It then reads the result returned from cgi-client and reformats it
# for the http server.
##############################################################################
##############################################################################
# These few lines MUST be configured according to your system.
# The first variable holds the full path to your cgi-client binary which could
# be of any name you wish. The $archie_user variable holds the user name under which
# your archie service is running.
##############################################################################
$archiebin = "/services/archie/archie-3.5/cgi/bin/cgi-client";
# You can rename the binary to archie.bin or any other suitable name you
# choose.
$archieperl = "http://services.bunyip.com:8800/cgi-bin/archie.cgi";
# This same perl script you are looking at. Where will its URL be?
$archie_user = "archie";
# If your archie server is running under another user name then please
# change this accordingly.
$adv_page = "/archie-adv.html";
$smpl_page = "/archie.html";
# The above URLs will take you to our web pages! We don't mind but we doubt
# that you setup an Archie server for nothing! Please change the web site
# in those lines to your web site name.
$gif_url = "http://services.bunyip.com:8800/results.gif";
# Where the results.gif file is.
##############################################################################
# The following lines hold the different strings sent back to the httpd
# server. It is optional to modify them to comply with your HTML-look
# preference.
##############################################################################
$excerpt_offset = 9;
$site_offset = 6;
$info_offset = 5;
$archie_title = "<HTML><TITLE>Archie Results</TITLE>\n";
$archie_header_plain = "<H2>Archie Results</H2><PRE>\n";
$archie_header_logo = "<IMG SRC=\"%s\" ALT=\"Archie Results\">\n";
$archie_continue_button = "<CENTER><B><A HREF=\"$adv_page\">New Advanced Query</A> | <A HREF=\"$smpl_page\">New Simple Query</A><br><FONT SIZE=\"+2\">M</FONT>odify <FONT SIZE=\"+2\">S</FONT>earch</B> : <INPUT TYPE=text SIZE=40 NAME=query VALUE=\"%s\"><br></CENTER>\n";
$archie_pages = "<CENTER><B><A HREF=\"$adv_page\">New Advanced Query</A> | <A HREF=\"$smpl_page\">New Simple Query</A><br></CENTER>\n";
$str1 = "<h3>Found %d Hit(s)</h3>\n";
$str2 = "<i>(%d)</i><b> %s </b><p>\n";
$str3 = "<INPUT TYPE=\"submit\" VALUE=\"Search for More\">\n";
$str4 = "<INPUT TYPE=hidden NAME=\"%s\" VALUE=\"%s\">\n";
$str5 = "<i>(%d)</i><B>%s</B><p>\n";
$str6 = "<i>(%d)</i><B><A HREF=\"%s\">%s</A></B><p>\n";
$str7 = ' 'x$info_offset."<A HREF=\"%s://%s%s\"><i>%d </i></A> ";
$str8 = ' 'x$site_offset."<b><A HREF=\"%s\">%s</A></b>";
$str9 = "<b>Keyword: </b>%s";
$str10 = "<b>Date: </b>%s";
$str11 = ' 'x$info_offset."<b>Size: </b>%d";
$str12 = ' 'x$excerpt_offset."</pre><BLOCKQUOTE><i>%s</i></BLOCKQUOTE> <p> <pre>";
$str13 = "</FORM></PRE></HTML>\n";
format OUTINFO =
~ </b><i>@<<<<<<<<<<<<<@<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<< </i>@*
$perms, $size, $date, $strout
.
format OUTPATH =
<b>@*
$path
.
##############################################################################
# END OF CHANGES
##############################################################################
%proto =(
"Anonymous FTP", "ftp",
"Web Index", "http"
);
%main_tran =(
FORM_PLAIN_OUTPUT_FLAG, "oflag",
FORM_CASE, "case",
FORM_CASE_SENS, "Sensitive",
FORM_CASE_INS, "Insensitive",
FORM_QUERY, "query",
FORM_OLD_QUERY, "oldquery",
FORM_STRINGS_ONLY, "strings",
FORM_MORE_SEARCH, "more",
FORM_SERV_URL, "url",
FORM_GIF_URL, "gifurl",
FORM_STR_HANDLE, "strhan",
FORM_STRINGS_NO, "NO",
FORM_STRINGS_YES, "YES",
FORM_DB, "database",
FORM_ANONFTP_DB, "Anonymous FTP",
FORM_WEB_DB, "Web Index",
I_ANONFTP_DB, 0,
I_WEBINDEX_DB, 1,
FORM_TYPE, "type",
FORM_EXACT, "Exact",
FORM_SUB, "Sub String",
FORM_REGEX, "Regular Expression",
FORM_MAX_HITS, "maxhits",
FORM_MAX_HPM, "maxhpm",
FORM_MAX_MATCH, "maxmatch",
FORM_PATH_REL, "pathrel",
FORM_PATH, "path",
FORM_EXCLUDE_PATH, "expath",
FORM_AND, "AND",
FORM_OR, "OR",
FORM_START_STRING, "start_string",
FORM_START_STOP, "start_stop",
FORM_START_SITE_STOP, "start_site_stop",
FORM_START_SITE_FILE, "start_site_file",
FORM_START_SITE_PRNT, "start_site_prnt",
PATH_AND, 0,
PATH_OR, 1,
FORM_DOMAINS, "domains",
FORM_DOMAIN_1, "domain1",
FORM_DOMAIN_2, "domain2",
FORM_DOMAIN_3, "domain3",
FORM_DOMAIN_4, "domain4",
FORM_DOMAIN_5, "domain5",
PLAIN_HITS, "HITS",
FORM_ERROR, "ERROR",
FORM_FORMAT, "format",
FORM_FORMAT_KEYS, "Keywords Only",
FORM_FORMAT_EXC, "Excerpts Only",
FORM_FORMAT_LINKS, "Links Only",
FORM_FORMAT_STRINGS_ONLY, "Strings Only",
I_FORMAT_KEYS, 2,
I_FORMAT_EXC, 0,
I_FORMAT_LINKS, 1
);
%result_tran=(
PLAIN_START, "START_RESULT",
PLAIN_END, "END_RESULT",
PLAIN_URL, "URL",
PLAIN_STRING, "STRING",
PLAIN_TITLE, "TITLE",
PLAIN_NO_TITLE, "NO_TITLE",
PLAIN_SITE, "SITE",
PLAIN_PATH, "PATH",
PLAIN_TYPE, "TYPE",
PLAIN_WEIGHT, "WEIGHT",
PLAIN_TEXT, "TEXT",
PLAIN_PERMS, "PERMS",
PLAIN_SIZE, "SIZE",
PLAIN_DATE, "DATE",
PLAIN_FILE, "FILE",
PLAIN_KEY, "KEY",
PLAIN_START_STRINGS, "START_STRINGS_ONLY",
PLAIN_END_STRINGS, "END_STRINGS_ONLY"
);
$ENV{"ARCH_USER"} = $archie_user;
$| = 1;
open(stdin,"-");
open(IN,"$archiebin < '$stdin' |");
$i = 1;
$s = 1;
$top=1;
$k = 1;
$no_sites = 1;
$entry{"FORM_GIF_URL"} = $gif_url;
$entry{"FORM_SERV_URL"} = $archieperl;
while (<IN>){
chop;
if( $_ =~ /^$main_tran{"FORM_PLAIN_OUTPUT_FLAG"}/ ){
($junk,$flag) = split(/=/,$_,2);
if( $flag == 1 ){
## This is for plain results returned to the web
## server in record-like format (no processing is
## done on the results). Used for certain types
## of URAs. Unlikely to be used by our clients!
print STDOUT "Content-type: text/plain\n\n";
print STDOUT $_."\n";
foreach $k (keys %entry){
print STDOUT "$main_tran{$k}=$entry{$k}\n";
}
while (<IN>){
print STDOUT $_;
}
exit 1;
}
}
if ( $_ =~ /^$main_tran{"FORM_ERROR"}/ ) {
$entry{"PLAIN_HITS"} = 0;
($junk,$err) = split(/=/,$_,2);
&print_error($err,$entry{"FORM_GIF_URL"});
last;
}elsif( ($i == 0) && !( $_ =~ /^$main_tran{"PLAIN_HITS"}/ )){
&print_error("Returned results are incorrect",$entry{"FORM_GIF_URL"});
last;
}else{
if( !($_ =~ /=/) ) {
last;
}
($junk,$value) = split(/=/,$_,2);
if( ($i == 1) && ( $junk eq $main_tran{"PLAIN_HITS"} ) && ($value == 0)){
&print_error("No hits",$entry{"FORM_GIF_URL"});
exit 1;
}
if($value eq ""){
next;
}
$main = 0;
foreach $key (keys (%main_tran)) {
if( $main_tran{$key} eq $junk ){
$entry{$key} = $value;
$main = 1;
last;
}
}
$strings_only=0;
if($result_tran{"PLAIN_START_STRINGS"} eq $junk){
$strings_only = 1;
&print_header($entry{"FORM_GIF_URL"},$entry{"FORM_SERV_URL"});
printf STDOUT $str1,$entry{"PLAIN_HITS"};
$_ = <IN>;
if( $_ eq "" ){
last;
}
chop;
if( $_ !~ /=/ ) {
last;
}
($junk,$value) = split(/=/,$_,2);
if($value eq ""){
next;
}
}elsif( ($main == 0) && ($junk ne $result_tran{"PLAIN_START"}) ){
$entry{$junk} = $value;
$main = 1;
}
if( $main == 0 ){
if( defined($entry{"FORM_DB"}) && ($entry{"FORM_DB"} eq $main_tran{"FORM_ANONFTP_DB"} )){
$db = $main_tran{"I_ANONFTP_DB"};
}else{
$db = $main_tran{"I_WEBINDEX_DB"};
}
if (($strings_only == 0) && (!defined( $entry{"FORM_SERV_URL"} )) ){
&print_error("The submitted information does not include URL information. Read the HELP pages to setup your html page correctly.",$entry{"FORM_GIF_URL"});
exit 1;
}
# do while instead
while (1){
if($result_tran{"PLAIN_END_STRINGS"} eq $junk){
last;
}elsif($strings_only == 1){
printf STDOUT $str2, $s ,$value;
$s++;
}elsif( $result_tran{"PLAIN_START"} eq $junk ){
$rec_num = $value+1;
if($top != 1){
$old_site = $curr_site;
$old_str = $curr_str;
}
}elsif( $result_tran{"PLAIN_END"} eq $junk ){
if ($top == 1){
&print_header($entry{"FORM_GIF_URL"},$entry{"FORM_SERV_URL"});
printf STDOUT $archie_continue_button, $entry{"FORM_OLD_QUERY"};
foreach $k ( keys %entry ){
if( $k eq "PLAIN_HITS" ){
printf STDOUT $str1, $entry{$k};
printf STDOUT $str3;
}else{
printf STDOUT $str4, $main_tran{$k}, $entry{$k};
}
}
print STDOUT "<PRE>\n";
$top=0;
}
if($db == $main_tran{"I_ANONFTP_DB"}){
if( $old_site ne $curr_site ){
## Do some processing for a new site
$no_sites++;
printf STDOUT "<p>";
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
printf STDOUT $str5, $rec_num, $result{"PLAIN_SITE"};
}else{
printf STDOUT $str6, $rec_num, $result{"PLAIN_URL"}, $result{"PLAIN_SITE"};
}
}
$str = $result{"PLAIN_STRING"};
$size = $result{"PLAIN_SIZE"};
$date = $result{"PLAIN_DATE"};
$perms = $result{"PLAIN_PERMS"};
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
$path = $result{"PLAIN_PATH"};
&print_spaces($info_offset);
printf STDOUT $str7, $proto{"Anonymous FTP"}, $result{"PLAIN_SITE"}, $result{"PLAIN_PATH"}, $rec_num;
$~ = "OUTPATH";
write;
$strout = "<A HREF=\"".$result{"PLAIN_URL"}."\">".$result{"PLAIN_STRING"}."</A><p>";
$~ = "OUTINFO";
write;
}
}elsif($db == $main_tran{"I_WEBINDEX_DB"}){
if( defined( $result{"PLAIN_TITLE"})){
$title =$result{"PLAIN_TITLE"};
}else{
$title = $result{"PLAIN_NO_TITLE"};
}
(defined ($result{"PLAIN_SITE"})) && ($site = $result{"PLAIN_SITE"});
(defined ($result{"PLAIN_TEXT"})) && ($text = $result{"PLAIN_TEXT"});
(defined ($result{"PLAIN_STRING"})) && ($str = $result{"PLAIN_STRING"});
(defined ($result{"PLAIN_SIZE"})) && ($size = $result{"PLAIN_SIZE"});
(defined ($result{"PLAIN_WEIGHT"})) && ($weight = $result{"PLAIN_WEIGHT"});
(defined ($result{"PLAIN_DATE"})) && ($date = $result{"PLAIN_DATE"});
(defined ($result{"PLAIN_URL"})) && ($strurl = $result{"PLAIN_URL"});
if ($strurl eq $title) {
$title =~ s/:80\//\//;
$strurl = $title;
$title = "(NO-TITLE) <i>$title</i>";
}elsif($strurl !~ /:80\d+/){
$strurl =~ s/:80//;
}
if($site !~ /:80\d+/){
$site =~ s/:80//;
}
if( $old_site ne $curr_site ){
## Do some processing for a new site
$no_sites++;
print STDOUT "<p>";
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
printf STDOUT $str5, $rec_num, $site;
}else{
printf STDOUT $str6, $rec_num, $strurl, $site;
}
}
if($result{"PLAIN_STRING"} ne $result{"PLAIN_SITE"}){
&print_spaces($site_offset);
printf STDOUT $str8, $strurl, $title;
defined( $weight ) && (print STDOUT "\n\n".' 'x$site_offset) && (printf STDOUT $str9, $str);
defined( $date ) && (print STDOUT "\n\n".' 'x$site_offset) && (printf STDOUT $str10, $date) && (&print_spaces($info_offset)) && (printf STDOUT $str11, $size);
printf STDOUT $str12, $text;
}
}
undef(%result);
undef $site; undef $text; undef $str; undef $size; undef $weight; undef $date; undef $strurl;
}else{
foreach $key (keys (%result_tran)) {
if( $result_tran{$key} eq $junk ){
$result{$key} = $value;
if($key eq "PLAIN_SITE"){
$curr_site = $value;
}
if($key eq "PLAIN_STRING"){
$curr_str = $value;
}
$main = 1;
last;
}
}
}
$_ = <IN>;
if( $_ eq "" ){
last;
}
chop;
if( $_ !~ /=/ ) {
last;
}
($junk,$value) = split(/=/,$_,2);
if($value eq ""){
next;
}
}
last;
}
}
$i++;
}
# printf STDOUT $archie_continue_button, $entry{"FORM_OLD_QUERY"};
if( !defined( $entry{"PLAIN_HITS"} ) ){
&print_error("No hits",$entry{"FORM_GIF_URL"});
}elsif($err eq ""){
print STDOUT $str13;
}
exit 1;
sub print_error {
local($error_msg,$gifurl) = @_;
print STDOUT "Content-type: text/html\n\n";
if( $gifurl eq "" ){
print STDOUT "<html><center><h2>Archie Results</h2><HR>\n\n";
}else{
printf STDOUT $archie_header_logo, $gifurl;
print STDOUT "<html><center><h2>Archie Results</h2><HR>\n\n";
}
# print STDOUT "<html><h2>Archie Error</h2><HR>\n\n";
print STDOUT "<i>".$error_msg."</i></center><br>\n";
printf STDOUT $archie_pages;
print STDOUT "</html>\n";
return(1);
}
sub print_header {
local($gifurl, $url) = @_;
print STDOUT "Content-type: text/html\n\n";
printf STDOUT $archie_title;
if( $gifurl eq "" ){
printf STDOUT $archie_header_plain;
}else{
printf STDOUT $archie_header_logo, $gifurl;
}
print STDOUT "<FORM method=\"POST\" action=\"".$url."\">\n";
return(1);
}
sub print_spaces {
local($n) = $_;
print STDOUT ' 'x$n;
return(1);
}

47
release/base/cgi/html/archie-adv.html Normal file
View File

@@ -0,0 +1,47 @@
<HTML>
<BODY BGCOLOR="#ccccdd">
<TITLE>Search in Archie</TITLE>
<!-- Please modify the action field in the following line to accomodate your system -->
<FORM method="POST" action="http://archie.bunyip.com/cgi-bin/archie.cgi">
<INPUT TYPE=hidden NAME=oflag VALUE="0">
<CENTER>
<IMG SRC="query.gif" ALT="Archie Query Form"><br>
<font size="+2">S</font>earch <font size="+2">f</font>or:<br>
<INPUT SIZE=48 NAME="query"><P>
</CENTER>
<PRE>
<blockquote>
<b><font size="+1">D</font>atabase:</b> <INPUT TYPE=radio NAME=database VALUE="Anonymous FTP" CHECKED>Anonymous FTP <INPUT TYPE=radio NAME=database VALUE="Web Index">Web Index
<b><font size="+1">S</font>earch Type:</b> <INPUT TYPE=radio NAME=type VALUE="Sub String" CHECKED>Sub String <INPUT TYPE=radio NAME=type VALUE="Exact">Exact <INPUT TYPE=radio NAME=type VALUE="Regular Expression">Regular Expression
<b><font size="+1">C</font>ase:</b> <INPUT TYPE=radio NAME=case VALUE="Insensitive" CHECKED>Insensitive <INPUT TYPE=radio NAME=case VALUE="Sensitive">Sensitive<p>
<b><font size="+1">O</font>utput Format For Web Index Search:</b> <INPUT TYPE=radio NAME="format" VALUE="Keywords Only">Keywords <INPUT TYPE=radio NAME="format" VALUE="Excerpts Only" CHECKED>Excerpts
<INPUT TYPE=radio NAME="format" VALUE="Links Only">Links <INPUT TYPE=radio NAME="format" VALUE="Strings Only">Strings
</blockquote>
<CENTER> <INPUT TYPE="submit" VALUE=" Search "> <INPUT TYPE="reset" VALUE="Reset"></CENTER></PRE>
<HR>
<H3>Optional Search Parameters</H3>
<ul>
<p>
<li>Maximum Hits: <INPUT TYPE="text" SIZE=5 NAME="maxhits" VALUE="100"><BR>
<li>If you want to limit the search so that it only looks in certain domains
(such as ca, edu or com), enter one or more in the following boxes:<BR>
<INPUT TYPE="text" NAME=domain1 SIZE=5> <INPUT TYPE="text" NAME=domain2
SIZE=5> <INPUT TYPE="text" NAME=domain3 SIZE=5> <INPUT TYPE="text"
NAME=domain4 SIZE=5> <INPUT TYPE="text" NAME=domain5 SIZE=5>
<!--A HREF="domains.html"To view a list of domains/A--!><BR>
<li>Limit the search results to match a directory path (this is optional):
<BR><INPUT TYPE="text" SIZE=48 NAME="path"><BR>
<li>You can use as many terms as you like in your path restriction field, as long as you separate them by spaces. The operator among these terms is:
<BR><INPUT TYPE=radio NAME=pathrel VALUE="OR" CHECKED> OR <INPUT TYPE=radio NAME=pathrel VALUE="AND"> AND<BR>
<li>Exclude search results that match a directory path you don't want (this is also optional):
<BR><INPUT TYPE="text" SIZE=48 NAME="expath"><BR>
</ul>
<CENTER>
<B><A HREF="archie-help.html">Help</A> | <A HREF="archie.html">Simple Search</A> | <A HREF="http://www.bunyip.com/products/archie"> Archie's Home Page</A></B>
</CENTER>
</FORM>
</HTML>

138
release/base/cgi/html/archie-help.html Normal file
View File

@@ -0,0 +1,138 @@
<html>
<title>Archie Help</title>
<center><h2>Archie Help</h2></center>
<blockquote>This help file explains in moderate detail what each field in the search page
means. If you still can't locate the help you need or you want to report an
error please mail us at <i><A
HREF="mailto:archie-group@bunyip.com">archie-group@bunyip.com</A></i> and we
will get back to you as soon as we can.
</blockquote>
<hr>
<br>
<b>Search For:</b>
<blockquote>
Here you type in the search variable. If regular expression is the type of
search you are using then the string would be the
<A HREF="archie-help.html#regex" REL="SUBDOCUMENT">regular expression</A> you are
looking for.
</blockquote>
<b>Database:</b>
<blockquote>
The database which will be undergoing the search. If you are searching the
web then press on the <i>Web Index</i> button. Otherwise if you are searching
the FTP sites then press on the other button.
</blockquote>
<b>Search Type:</b>
<blockquote>
<ul>
<li><b>Exact: </b>
<li><b>Sub String: </b><br>
<i>Substring (case insensitive)</i>: A match occurs if
the file (or directory) name in the database contains
the user-given substring, without regard to case.
<pre>
Example:
The pattern:
is
matches any of the following:
islington
this
poison
</pre>
<i>Substring (case sensitive):</i> As above, but taking case as significant.
<pre>
Example:
The pattern:
TeX
will match:
LaTeX
but neither of the following:
Latex
TExTroff
</pre>
<li><b><A NAME="regex" REL="SUBDOCUMENT">Regular Expression</A>: </b>
Regular expressions follow the conventions of the ed(1) command,
allowing sophisticated pattern matching. Regular expressions imbue
certain characters with special meaning, providing a quoting mechanism to remove
this special meaning when required.
</ul>
</blockquote>
<b>Case: </b>
<blockquote>
This option only affects searches of type Regular Expression and Substring.
</blockquote>
<b>Output Format: </b>
<blockquote>
This controls the output format for results from the Web Index database.
<ul>
<li><b>Keywords Only</b>: The most frequently occurring Keywords in each document will
be displayed after the document's URL.
<li><b>Excerpts Only</b>: A short excerpt from each document is displayed
after its URL.
<li><b>Links Only</b>: Only links are displayed with no further details. No excerpts
or Keywords are displayed with each URL.
</ul>
</blockquote>
<h3>Optional Parameters</h3>
<ul>
<li><b>Path restriction or exclusion: </b>Several parameters could be used to
improve your search results. But first you must specify what type of operation
to be used on those upcoming fields. If you specify <b>OR</b> then you ask
that the strings you provide in these fields have an OR relationship among
them. Otherwise if you specify <b>AND</b> then you are asking for all the
strings that you provide in these fields to be considered.
<ul>
<li><b>Path Restriction</b> : You can improve the results by restricting on
the path of each URL that comes back. The strings you provide in these field
will be matched against the paths returned in the result and paths that do not
contain these strings will be disregarded. If you have chosen the <b>OR</b>
as your operator among the strings then if any of the strings occur in a path
this path will be considered valid. However if you have chosen <b>AND</b> as
your operator then unless all the entered strings appear in the path, the path
is invalid.
<li><b>Path Exclusion</b> : You can exclude certain results from coming back
if they contain a specific string you don't need to see. By specifying this
string in this field you will achieve your goal.
</ul>
<li><b>Domains: </b> This variable allows you to restrict the scope of
your search based upon the Fully Qualified Domain Names (FQDN) of the
anonymous FTP or Web sites being searched. In this way, you can specify a
list of domain names to which all returned sites must match.
<li><b>Maximum Hits :</b> Allows Archie to generate at most the
specified number of matches (permissible range: 0-200; default: 100).
<li><b>Maximum Hits Per Match :</b> Across all the anonymous FTP and
Web archives on the Internet (and even on one single anonymous FTP archive) many
files will have the same name. For example, if you
search for a very common filename like "README" you can
get hundreds even thousands of matches. You can limit
the number of files with the same name through this variable.
<li><b>Maximum Match :</b> This variable will limit the number filenames (or
strings matched) returned.
For example, if maxmatch is set to 2 and you perform a
substring search for the string "etc", and the database
contains filenames "etca", "betc" and "detc" only the
filenames "etca" and "betc" will be returned. However,
depending on the values of maxhitspm and maxhits you
will get back a number of actual files with those
names.
</ul>
</html>

30
release/base/cgi/html/archie.html Normal file
View File

@@ -0,0 +1,30 @@
<HTML>
<BODY BGCOLOR="#ccccdd">
<TITLE>Search in Archie</TITLE>
<!-- Please modify the action field in the following line to accomodate your system -->
<FORM method="POST" action="http://archie.bunyip.com/cgi-bin/archie.cgi">
<INPUT TYPE=hidden NAME=oflag VALUE="0">
<CENTER>
<IMG SRC="query.gif" ALT="Archie Query Form"><br>
<font size="+2">S</font>earch <font size="+2">f</font>or:<br>
<INPUT SIZE=48 NAME="query"><br>
<INPUT TYPE="submit" VALUE=" Search "><INPUT TYPE="reset" VALUE="Reset">
</CENTER>
<PRE>
<blockquote>
<b><font size="+1">D</font>atabase:</b> <INPUT TYPE=radio NAME=database VALUE="Anonymous FTP" CHECKED>Anonymous FTP <INPUT TYPE=radio NAME=database VALUE="Web Index">Web Index
<b><font size="+1">S</font>earch Type:</b> <INPUT TYPE=radio NAME=type VALUE="Sub String" CHECKED>Sub String <INPUT TYPE=radio NAME=type VALUE="Exact">Exact <INPUT TYPE=radio NAME=type VALUE="Regular Expression">Regular Expression
<b><font size="+1">C</font>ase:</b> <INPUT TYPE=radio NAME=case VALUE="Insensitive" CHECKED>Insensitive <INPUT TYPE=radio NAME=case VALUE="Sensitive">Sensitive<p>
<b><font size="+1">O</font>utput Format For Web Index Search:</b> <INPUT TYPE=radio NAME="format" VALUE="Keywords Only">Keywords
<INPUT TYPE=radio NAME="format" VALUE="Excerpts Only" CHECKED>Excerpts
<INPUT TYPE=radio NAME="format" VALUE="Links Only">Links
<INPUT TYPE=radio NAME="format" VALUE="Strings Only">Strings
</blockquote>
</PRE>
<HR>
<CENTER>
<B><A HREF="archie-help.html">Help</A> | <A HREF="archie-adv.html">Advanced Search</A> | <A HREF="http://www.bunyip.com/products/archie"> Archie's Home Page</A></B>
</CENTER>
</FORM>
</HTML>

BIN
release/base/cgi/html/query.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.7 KiB

BIN
release/base/cgi/html/results.gif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 10 KiB