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

Cosmetic tweaks for the search interface.

Browse source
This commit is contained in:
John Fieber 1996-09-29 02:34:21 +00:00
parent 15be435f08
commit 7458bcc2b4
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=559
4 changed files with 28 additions and 12 deletions

10
data/cgi/cgi-style.pl
View file

@ -1,4 +1,4 @@
# $Id: cgi-style.pl,v 1.4 1996-09-29 02:19:27 jfieber Exp $
# $Id: cgi-style.pl,v 1.5 1996-09-29 02:34:13 jfieber Exp $
#
# Perl routines to encapsulate various elements of HTML page style.
@ -33,6 +33,14 @@ sub html_header {
"$i_daemon <h1 align=right>$title</h1><br clear=all><hr noshade>\n";
}
sub short_html_header {
local ($title) = @_;
return "Content-type: text/html\n\n" .
"<html>\n<title>$title</title>\n</head>\n$t_body\n" .
"<img src=\"$hsty_base/gifs/topbar.gif\" alt=\"\">";
}
sub html_footer {
return "<hr noshade>$hsty_home<address>$hsty_author<br>$hsty_date</address>\n";
}

10
data/cgi/search.cgi
View file

@ -20,7 +20,7 @@ $server_root = '/usr/local/www';
$waisq = "/usr/local/www/bin/waisq";
$sourcepath = "/f/jfieber/index";
$hints = "/searchhints.html";
$myurl = "/cgi/search.cgi";
$myurl = $ENV{'SCRIPT_NAME'};
require "open2.pl";
require "cgi-lib.pl";
@ -118,8 +118,8 @@ sub do_wais {
}
print "</OL>\n";
print "<hr><p>Didn't get what you expected? ";
print "<a href=\"$hints\">Look here for searching hints</a>.";
print "<p>Didn't get what you expected? ";
print "<a href=\"$hints\">Look here for searching hints</a>.</p>";
if ($hits == 0) {
print "Nothing found.\n";
@ -136,7 +136,7 @@ sub do_wais {
#
else {
print &html_header("Search Results: Document");
print &short_html_header("Search Results");
&open2(WAISOUT, WAISIN, $waisq, "-g");
print WAISIN $w_question;
@ -220,7 +220,7 @@ sub printdoc {
}
print "</pre>\n";
print "<hr>\n<pre>\n$body\n</pre>\n";
print "<pre>\n$body\n</pre>\n";
}
sub htmlescape {

10
en/cgi/cgi-style.pl
View file

@ -1,4 +1,4 @@
# $Id: cgi-style.pl,v 1.4 1996-09-29 02:19:27 jfieber Exp $
# $Id: cgi-style.pl,v 1.5 1996-09-29 02:34:13 jfieber Exp $
#
# Perl routines to encapsulate various elements of HTML page style.
@ -33,6 +33,14 @@ sub html_header {
"$i_daemon <h1 align=right>$title</h1><br clear=all><hr noshade>\n";
}
sub short_html_header {
local ($title) = @_;
return "Content-type: text/html\n\n" .
"<html>\n<title>$title</title>\n</head>\n$t_body\n" .
"<img src=\"$hsty_base/gifs/topbar.gif\" alt=\"\">";
}
sub html_footer {
return "<hr noshade>$hsty_home<address>$hsty_author<br>$hsty_date</address>\n";
}

10
en/cgi/search.cgi
View file

@ -20,7 +20,7 @@ $server_root = '/usr/local/www';
$waisq = "/usr/local/www/bin/waisq";
$sourcepath = "/f/jfieber/index";
$hints = "/searchhints.html";
$myurl = "/cgi/search.cgi";
$myurl = $ENV{'SCRIPT_NAME'};
require "open2.pl";
require "cgi-lib.pl";
@ -118,8 +118,8 @@ sub do_wais {
}
print "</OL>\n";
print "<hr><p>Didn't get what you expected? ";
print "<a href=\"$hints\">Look here for searching hints</a>.";
print "<p>Didn't get what you expected? ";
print "<a href=\"$hints\">Look here for searching hints</a>.</p>";
if ($hits == 0) {
print "Nothing found.\n";
@ -136,7 +136,7 @@ sub do_wais {
#
else {
print &html_header("Search Results: Document");
print &short_html_header("Search Results");
&open2(WAISOUT, WAISIN, $waisq, "-g");
print WAISIN $w_question;
@ -220,7 +220,7 @@ sub printdoc {
}
print "</pre>\n";
print "<hr>\n<pre>\n$body\n</pre>\n";
print "<pre>\n$body\n</pre>\n";
}
sub htmlescape {