use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex %printer $gzip $GLOBALDBH); # available printers %printer = ( Laser => 'lpr -Plaser', Epson => 'lpr -PEpson', ); # if the server can't find gzip, latex, dvips or pdflatex, add the path $ENV{PATH} .= ":/usr/local/bin:/usr/local/pgsql/bin"; # on mac os X using Fink's Perl libs, add the path #$ENV{PERL5LIB} .= ":/sw/lib/perl5"; 1;