trunk/Search/search.cgi.unix

#!/usr/bin/perl
#
# Douglas Thrift's Search Engine CGI Script
#
# Douglas Thrift
#

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

my $root = "/usr/local/dtse";
my $data = "$root/data";
my $search = "$root/bin/Search";
my $index = "$data/*.xml";
my $page = param('p');
my $query = param('q');
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";
}

close(SEARCH) || die "$0: cannot close $search: $!";
unlink $temp;
Revision:	184
Committed:	2003-07-10T17:08:06-07:00 (22 years ago) by douglas
File size:	1007 byte(s)
Log Message:	Moved CGI content output so that server errors will occur if their is an error starting Search; also, fixed case.
#	User	Rev	Content
1	douglas	1	#!/usr/bin/perl
2			#
3			# Douglas Thrift's Search Engine CGI Script
4			#
5			# Douglas Thrift
6			#
7
8			# Perl pragma
9			use strict;
10			use CGI qw/:standard :cgi/;
11			use File::Temp qw/ tempfile tempdir /;
12
13	douglas	34	my $root = "/usr/local/dtse";
14	douglas	1	my $data = "$root/data";
15			my $search = "$root/bin/Search";
16			my $index = "$data/*.xml";
17			my $page = param('p');
18			my $query = param('q');
19			my $header = "$data/header.html";
20			my $body = "$data/body.html";
21			my $footer = "$data/footer.html";
22			my $notfound = "$data/notfound.html";
23			my $pages = "$data/pages.html";
24
25			if ($page == 0)
26			{
27			$page = 1;
28			}
29
30			my ($temphandle, $temp) = tempfile();
31
32			open($temphandle, "> $temp") \|\| die "$0: cannot open $temp";
33			print $temphandle "$query\n";
34			close $temphandle;
35
36			open(SEARCH, "$search $index -P $page -h $header -b $body -f $footer -n " .
37			"$notfound -p $pages <$temp \|" ) \|\| die "$0: cannot fork $!";
38
39	douglas	184	print "Content-Type: text/html
40
41			";
42
43	douglas	1	my $line;
44			while($line = <SEARCH>)
45			{
46			chomp($line);
47			print "$line\n";
48			}
49
50			close(SEARCH) \|\| die "$0: cannot close $search: $!";
51			unlink $temp;