#!/usr/bin/perl -w # search.cgi # search admin or intranet sites # # 01022001 0.1 David Maeschen # # Copyright (C) 2001, Toshiba America Information Systems, Inc # GPL require '/httpd/admin/cgi-bin/misclib.pl'; ### SET LOCAL VARIABLES ### %p = GetParms(); # grab query string or post parameters my $qu = $p{'q'}; my $btnA = $p{'btnA'}; my $btnI = $p{'btnI'}; my $start = $p{'start'}; my $home = "www.myserver.loc"; my $vwidth = "320"; my $vheight = "240"; my $swidth = "630"; my $sheight = "530"; ########################### ### OUTPUT TO STDOUT ### if ( ! $qu ) { $qu = ""; $btnA = ""; $btnI = ""; $start = "0"; } print ("Content-type: text/html\n\n"); print ("\n"); print ("\n"); if ( ! $qu ) { print ("\nIntrasearch\n"); } else { print ("\nIntrasearch: $qu\n"); } #print ("\n"); print ("\n"); print ("\n"); print ("\n\n"); print ("

\n"); print ("
\n\n"); print ("\n\n"); print ("\n
 \n"); print ("IntraSearch\n"); print ("
 \n"); print ("
\n"); print ("\n"); print ("\n"); print ("		\n"); print (" \n"); print ("Advanced Search
 \n"); print ("Preferences\n"); print ("

\n\n"); print ("\n"); print ("Admin\n"); print ("Intranet\n"); print ("
\n\n"); print ("

P \%p Query $qu A $btnA I $btnI\n"); print (""); ######################## #END