#!/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 qw(%WalaConf %DISPLAY_CONF &handle);
|
|
|
|
# Grab configuration:
|
|
if (-e 'conf.pl') {
|
|
do 'conf.pl';
|
|
}
|
|
|
|
$WalaConf{'ShowSearchlinks'} = 0;
|
|
|
|
print handle(@ARGV);
|