Search/trunk/search.cgi.in

#!@which_perl@
#
# Douglas Thrift's Search Engine CGI Script
#
# Douglas Thrift
#
# $Id: search.cgi.in,v 1.3 2003/08/08 03:16:21 douglas Exp $

use strict;
use CGI qw/:standard :cgi/;
use File::Temp qw/ tempfile tempdir /;

my $prefix = "@prefix@";
my $exec_prefix = "@exec_prefix@";
my $bindir = "@bindir@";
my $search = "$bindir/Search@EXEEXT@";

open(TEST, "< $search") || die "$0: cannot open $search";
close(TEST);

my $page = param('p');
my $query = param('q');

# These can be edited to customize your configuration:
my $data = "$prefix/data";
my $index = "$data/*.xml";
my $header = "$data/header.html";
my $body = "$data/body.html";
my $footer = "$data/footer.html";
my $notfound = "$data/notfound.html";
my $pages = "$data/pages.html";
#

if ($page == 0)
{
        $page = 1;
}

my ($temphandle, $temp) = tempfile();

open($temphandle, "> $temp") || die "$0: cannot open $temp";
print $temphandle "$query\n";
close($temphandle);

open(SEARCH, "$search $index -P $page -h $header -b $body -f $footer -n " .
        "$notfound -p $pages <$temp |" ) || die "$0: cannot fork $!";

print "Content-Type: text/html

";

my $line;
while($line = <SEARCH>)
{
        chomp($line);
        print "$line\n";
}

unlink $temp;
close(SEARCH) || die "$0: cannot close $search: $!";
Revision:	233
Committed:	2003-08-07T20:16:21-07:00 (19 years, 6 months ago) by douglas
Original Path:	*trunk/Search/search.cgi.in*
File size:	1248 byte(s)
Log Message:	Got Windows configure script working and such.
#	User	Rev	Content
1	douglas	232	#!@which_perl@
2			#
3			# Douglas Thrift's Search Engine CGI Script
4			#
5			# Douglas Thrift
6			#
7	douglas	233	# $Id: search.cgi.in,v 1.3 2003/08/08 03:16:21 douglas Exp $
8	douglas	232
9			use strict;
10			use CGI qw/:standard :cgi/;
11			use File::Temp qw/ tempfile tempdir /;
12
13			my $prefix = "@prefix@";
14			my $exec_prefix = "@exec_prefix@";
15			my $bindir = "@bindir@";
16			my $search = "$bindir/Search@EXEEXT@";
17
18			open(TEST, "< $search") \|\| die "$0: cannot open $search";
19			close(TEST);
20
21			my $page = param('p');
22			my $query = param('q');
23
24			# These can be edited to customize your configuration:
25			my $data = "$prefix/data";
26			my $index = "$data/*.xml";
27			my $header = "$data/header.html";
28			my $body = "$data/body.html";
29			my $footer = "$data/footer.html";
30			my $notfound = "$data/notfound.html";
31			my $pages = "$data/pages.html";
32			#
33
34			if ($page == 0)
35			{
36			$page = 1;
37			}
38
39			my ($temphandle, $temp) = tempfile();
40
41			open($temphandle, "> $temp") \|\| die "$0: cannot open $temp";
42			print $temphandle "$query\n";
43	douglas	233	close($temphandle);
44	douglas	232
45			open(SEARCH, "$search $index -P $page -h $header -b $body -f $footer -n " .
46			"$notfound -p $pages <$temp \|" ) \|\| die "$0: cannot fork $!";
47
48			print "Content-Type: text/html
49
50			";
51
52			my $line;
53			while($line = <SEARCH>)
54			{
55			chomp($line);
56			print "$line\n";
57			}
58
59			unlink $temp;
60			close(SEARCH) \|\| die "$0: cannot close $search: $!";