|
|
- #!/usr/bin/perl
-
- =pod
-
- =head1 NAME
-
- display.fcgi - FastCGI wrapper script for Display.pm
-
- =head1 DESCRIPTION
-
- Pulls in Display.pm and CGI::Fast, runs a configuration file, and
- loops over FastCGI queries, passing them to Display::handle.
-
- =cut
-
- use strict;
- use warnings;
- no warnings 'uninitialized';
-
- use lib 'lib';
- use lib 'wala';
-
- use CGI::Fast;
- use Display qw(%WalaConf %DISPLAY_CONF &handle);
-
- # Grab configuration:
- if (-e 'conf.pl') {
- do 'conf.pl';
- }
-
- $WalaConf{'ShowSearchlinks'} = 0;
-
- # Handle input from FastCGI:
- while (my $query = new CGI::Fast) {
- print handle($query);
- }
-
- exit;
|