
$version = "1.1";

################################
# Location of support programs #
################################

$btoa = "/usr/local/bin/btoa";
$uuencode = "/usr/bin/uuencode";
$atob = "/usr/local/bin/atob";
$uux = "/usr/bin/uux";
$perl = "/usr/local/bin/perl";
$split = "/bin/split";	# cmd to split file into pieces
$cat = "/bin/cat";

#######################################
# Location of system and server files #
#######################################

# where to log transactions (if file exists and writable).
# set to "" to disable logging.

$lib = "/usr/local/lib/mailserver";	# where the progams and files reside
$logfile = "$lib/.logfile";
$lockfile = "$lib/.lockfile";		# exclusive locking of multiple jobs
$docdir = "$lib/docs";
$hints = "$docdir/hints";
$shorthelp = "$docdir/help";

# where to find the files which are being served.  Each NOT should end in "/"
@libdirs = (	"/home/ftp/pub/bmes",
		"/home/ftp/pub/mailserver",
		"/home/ftp/pub/servers",
		"/home/ftp/pub/misc",
		"/home/ftp/pub/techreports");

#####################
# Anti-hacker stuff #
#####################

$ENV{'PATH'} = "/bin:$lib";		# Might want to expand this...
$ENV{'IFS'} = " ";

############################
# Name and network address #
############################

$syslogname = "csdserv";		# What I call myself
$domain = "cs.iastate.edu";	# Used only in forming "complete" headers in dorequest
$myaddr = "csdserv@cs.iastate.edu";
$myname = "Iowa State U Com S Mail Server";
$humanaddr = "csdserv-admin@cs.iastate.edu";

#########################
# Other constant things #
#########################

$tmpfile_prefix = "/tmp/drq$$.";
$host = `/bin/hostname`; chop ($host);
split(/ /, `date`); $timezone = @_[4];
$howmail = "/usr/lib/sendmail -t -f \'$myaddr\'";
	# Mailer which can accept mail file which includes mail headers
$fromline = "From: $myname <$myaddr>";

$getlav = 'substr(`uptime`, 53, 10)';	# How to get system load ave
$maxlav = 1.5; # Won't process request if lav higher than this
$defaultencoding = "uuencode";
$minlimit = 1024;	# Minimum "limit" allowed
$maxlimit = 256*1024;	# Maxiumu "limit" allowed
$def_limit = 64*1024;	# Default "limit" allowed
$sleepbetween = 60;	# Number of seconds we sleep between sending
			# the sub-parts of a request
$bcc = $humanaddr;	# If you want a Bcc: of reply to commands

# Characters which have special meaning to shell.  This is groked
# twice by perl, so be careful with those \'s

@special = ("\\\"", "\\\'", "\\\`", "\\\$", "\\n", ";", "&",
	"|", "^", "<", ">", "(", ")", "*", "?" );
$special ="\" \' \` \$ \\n ; & | ^ < > ( ) * ?";	# Used only in mail msg

# optional mail headers. set to "" if not wanted.
@xheaders = (	"X-Server: $myname v$version",
		"X-Info: problems/questions: send mail to <$humanaddr>");

@days = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
@months = ("Jan","Feb","Mar","Apr","May","Jun", "Jul","Aug","Sep","Oct","Nov","Dec");

# If the return address contains any of these strings, the message
# is considered bogus and it is sent to $humanaddr

@badnames = ("mailer-daemon", "mailerdaemon");

# If the "commands" in the body of the message contain any of these
# strings, the message is considered bogus and it is sent to $humanaddr
# These come from bounced mail messages.

@null = split(/ /, $myname);
@badcmds = ("-----", "550", ">>>>>>>>", $null[0], "Processing");

1;
