1 |
< |
#!@which_perl@ |
1 |
> |
#!@PERL@ |
2 |
|
# |
3 |
|
# Douglas Thrift's Search Engine CGI Script |
4 |
|
# |
5 |
|
# Douglas Thrift |
6 |
|
# |
7 |
< |
# $Id: search.cgi.in,v 1.2 2003/08/07 22:58:21 douglas Exp $ |
7 |
> |
# $Id$ |
8 |
|
|
9 |
|
use strict; |
10 |
|
use CGI qw/:standard :cgi/; |
40 |
|
|
41 |
|
open($temphandle, "> $temp") || die "$0: cannot open $temp"; |
42 |
|
print $temphandle "$query\n"; |
43 |
< |
close $temphandle; |
43 |
> |
close($temphandle); |
44 |
|
|
45 |
|
open(SEARCH, "$search $index -P $page -h $header -b $body -f $footer -n " . |
46 |
|
"$notfound -p $pages <$temp |" ) || die "$0: cannot fork $!"; |