# waisquery.pl
#
$CRLF = "\n";
$br="
\n";
print "Content-type: text/html\n",$CRLF,$CRLF;
$qu=$ENV{"QUERY_STRING"};
if($qu ne ""){
#
# --- inserire il path giusto per waislook.exe
#
$outmsg=`c:\PATH\waislook.exe -http -h localhost $qu `;
print $outmsg
}else{
print "query ",$CRLF,$br;
print $qu;
}