wrt/display.fcgi

#!/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;

# Grab configuration:
our (%DISPLAY_CONF, %WalaConf);
do 'conf.pl' if -e 'conf.pl';
$WalaConf{'ShowSearchlinks'} = 0;

my $d = Display->new(%DISPLAY_CONF);
$d->walaconf(%WalaConf);

use Data::Dumper;

# Handle input from FastCGI:
while (my $query = CGI::Fast->new) {
    print $d->display($query);
}

exit;