[bse.git] / site / cgi-bin / search.fcgi

#!/usr/bin/perl -w
# -d:ptkdb
BEGIN { $ENV{DISPLAY} = '192.168.32.15:0.0' }
use strict;
use FindBin;
use CGI::Fast;
use lib "$FindBin::Bin/modules";
use BSE::DB;
use BSE::Request;
use BSE::Template;
use Carp 'confess';
use BSE::UI::Search;

my $cfg = BSE::Cfg->new; # only do this once

$SIG{__DIE__} = sub { confess $@ };

while(my $cgi = CGI::Fast->new) {
  my $req = BSE::Request->new(cfg=>$cfg, cgi=>$cgi);

  my $result = BSE::UI::Search->dispatch($req);

  BSE::Template->output_result($req, $result);
}
Commit	Line	Data
e58486b7 TC	1	#!/usr/bin/perl -w
	2	# -d:ptkdb
	3	BEGIN { $ENV{DISPLAY} = '192.168.32.15:0.0' }
	4	use strict;
	5	use FindBin;
	6	use CGI::Fast;
	7	use lib "$FindBin::Bin/modules";
	8	use BSE::DB;
	9	use BSE::Request;
	10	use BSE::Template;
	11	use Carp 'confess';
	12	use BSE::UI::Search;
	13
	14	my $cfg = BSE::Cfg->new; # only do this once
	15
	16	$SIG{__DIE__} = sub { confess $@ };
	17
	18	while(my $cgi = CGI::Fast->new) {
	19	my $req = BSE::Request->new(cfg=>$cfg, cgi=>$cgi);
	20
	21	my $result = BSE::UI::Search->dispatch($req);
	22
	23	BSE::Template->output_result($req, $result);
	24	}
	25