wrt/display.pl

#!/usr/bin/perl

=pod

=head1 NAME

display.pl - simple wrapper script for Display.pm

=head1 DESCRIPTION

Pulls in Display.pm, runs a configuration file, and passes off parameters to
Display::handle.

=cut

use strict;
use warnings;
no  warnings 'uninitialized';

use lib 'lib';
use lib 'wala';

use Display;

# Grab configuration:
our (%DISPLAY_CONF, %WalaConf);
do 'conf.pl' if (-e 'conf.pl');

my $d = Display->new(%DISPLAY_CONF);
$WalaConf{ShowSearchlinks} = 0;
$d->walaconf(%WalaConf);

print $d->display(@ARGV);