site/cgi-bin/search.fcgi

   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