#! /usr/bin/perl
##  $Revision: 1.2 $
##  Set up any and all perl variables that an INN perl script
##  might need.  Also sets umask.


##  =()<$ACTIVE='@<_PATH_ACTIVE>@';>()=
$ACTIVE='/var/lib/news/active';
##  =()<$ACTIVETIMES='@<_PATH_ACTIVETIMES>@';>()=
$ACTIVETIMES='/var/lib/news/active.times';
##  =()<$AWK='@<_PATH_AWK>@';>()=
$AWK='awk';
##  =()<$BATCH='@<_PATH_BATCHDIR>@';>()=
$BATCH='/var/spool/news/.outgoing';
##  =()<$COMPRESS='@<_PATH_COMPRESS>@';>()=
$COMPRESS='/usr/bin/compress';
##  =()<$CONTROLPROGS='@<_PATH_CONTROLPROGS>@';>()=
$CONTROLPROGS='/usr/lib/news/control';
##  =()<$CTLFILE='@<_PATH_CONTROLCTL>@';>()=
$CTLFILE='/etc/news/control.ctl';
##  =()<$CYCLES='@<LOG_CYCLES>@';>()=
$CYCLES='7';
##  =()<$DAILY='@<_PATH_LOCKS>@/LOCK.news.daily';>()=
$DAILY='/var/lock/LOCK.news.daily';
##  =()<$EGREP='@<_PATH_EGREP>@';>()=
$EGREP='/usr/bin/egrep';
##  =()<$ERRLOG='@<_PATH_ERRLOG>@';>()=
$ERRLOG='/var/log/news/errlog';
##  =()<$CTLWATCH='@<_PATH_CTLWATCH>@';>()=
$CTLWATCH='/etc/news/innwatch.ctl';
##  =()<$HAVE_UUSTAT='@<HAVE_UUSTAT>@';>()=
$HAVE_UUSTAT='DO';
##  =()<$HISTORY='@<_PATH_HISTORY>@';>()=
$HISTORY='/var/lib/news/history';
##  =()<$INCOMING='@<_PATH_SPOOLNEWS>@';>()=
$INCOMING='/var/spool/news/.incoming';
##  =()<$INEWS='@<_PATH_INEWS>@';>()=
$INEWS='/usr/bin/inews';
##  =()<$INNCONFVAL='@<_PATH_NEWSBIN>@/innconfval';>()=
$INNCONFVAL='/usr/lib/news/bin/innconfval';
##  =()<$INND='@<_PATH_INND>@';>()=
$INND='/usr/sbin/innd';
##  =()<$INNDDIR='@<_PATH_INNDDIR>@';>()=
$INNDDIR='/var/run/innd';
##  =()<$INNDSTART='@<_PATH_INNDSTART>@';>()=
$INNDSTART='/usr/sbin/inndstart';
##  =()<$INNWATCH='@<_PATH_NEWSBIN>@/innwatch';>()=
$INNWATCH='/usr/lib/news/bin/innwatch';
##  =()<$LOCKS='@<_PATH_LOCKS>@';>()=
$LOCKS='/var/lock';
##  =()<$LOG='@<_PATH_LOGFILE>@';>()=
$LOG='/var/log/news/log';
##  =()<$MAILCMD='@<_PATH_MAILCMD>@';>()=
$MAILCMD='/usr/bin/mail';
##  =()<$MOST_LOGS='@<_PATH_MOST_LOGS>@';>()=
$MOST_LOGS='/var/log/news';
##  =()<$NEWACTIVE='@<_PATH_NEWACTIVE>@';>()=
$NEWACTIVE='/var/lib/news/active.tmp';
##  =()<$NEWSBIN='@<_PATH_NEWSBIN>@';>()=
$NEWSBIN='/usr/lib/news/bin';
##  =()<$NEWSCONTROL='@<_PATH_NEWSCONTROL>@';>()=
$NEWSCONTROL='/var/run/innd/control';
##  =()<$NEWSFEEDS='@<_PATH_NEWSFEEDS>@';>()=
$NEWSFEEDS='/etc/news/newsfeeds';
##  =()<$NEWSGROUPS='@<_PATH_NEWSGROUPS>@';>()=
$NEWSGROUPS='/etc/news/newsgroups';
##  =()<$NEWSLIB='@<_PATH_NEWSLIB>@';>()=
$NEWSLIB='/usr/lib/news';
##  =()<$NEWSMASTER='@<NEWSMASTER>@';>()=
$NEWSMASTER='usenet';
##  =()<$NEWSUSER='@<NEWSUSER>@';>()=
$NEWSUSER='news';
##  =()<$NNTPCONNECT='@<_PATH_NNTPCONNECT>@';>()=
$NNTPCONNECT='/var/run/innd/nntpin';
##  =()<$OLDACTIVE='@<_PATH_OLDACTIVE>@';>()=
$OLDACTIVE='/var/lib/news/active.old';
##  =()<$RNEWS='@<_PATH_RNEWS>@';>()=
$RNEWS='/usr/bin/rnews';
##  =()<$SED='@<_PATH_SED>@';>()=
$SED='sed';
##  =()<$SERVERPID='@<_PATH_SERVERPID>@';>()=
$SERVERPID='/var/run/innd/innd.pid';
##  =()<$SLEEPTIME='@<INNWATCH_SLEEPTIME>@';>()=
$SLEEPTIME='600';
##  =()<$SPOOL='@<_PATH_SPOOL>@';>()=
$SPOOL='/var/spool/news';
##  =()<$STATUS='@<_PATH_INNWSTATUS>@';>()=
$STATUS='/var/run/innd/innwatch.status';
##  =()<$TEMPSOCK='@<_PATH_TEMPSOCK>@';>()=
$TEMPSOCK='/var/run/innd/ctlinndXXXXXX';
$TEMPSOCK =~ s/^.*\/([^\/]+)XXXXXX$/$1*/;
##  =()<$TEMPSOCKDIR='@<_PATH_TEMPSOCK>@';>()=
$TEMPSOCKDIR='/var/run/innd/ctlinndXXXXXX';
$TEMPSOCKDIR =~ s/^(.*)\/[^\/]+/$1/;
##  =()<$WATCHPID='@<_PATH_WATCHPID>@';>()=
$WATCHPID='/var/run/innd/innwatch.pid';
##  =()<$Z='@<_PATH_COMPRESSEXT>@';>()=
$Z='.Z';

$LOCALGROUPS="$ENV{'NEWSLIB'}/localgroups";

$TMPDIR = '/tmp' if ($TMPDIR eq '');
$PATH="$ENV{'NEWSBIN'}:$ENV{'PATH'}:/bin:/usr/bin:/usr/ucb";

##  =()<umask (@<NEWSUMASK>@);>()=
umask (02);

