#!/usr/local/perl -s
eval "exec /usr/local/perl -s -S $0 $*"
    if $running_under_some_shell;
			# this emulates #! processing on NIH machines.
			# (remove #! line above if indigestible)

#   This perl script is designed to do load statistics on athena.mit.edu

	open(PS,"/bin/ps axww |");
	if (! $debug) {
		open(stdout,">>/usr/adm/logstats");
	}
	($sec, $min, $hour) = localtime(time);
	$_ = `/usr/ucb/uptime`;
	($users, $load) =
		(/.*(\d+) user.* average: (\d+.\d+),/i);

	$sendmail = 0;
	<PS>;
	while (<PS>) {
		if (/sendmail/) {
			$sendmail++;
		}
	}		
	opendir(QUEUEDIR, "/usr/spool/mqueue");
	$qffile = 0;
	while ($_ = readdir(QUEUEDIR)) {
		if (/^qf/) {
			$qffile++;
		}
	}
	closedir(QUEUEDIR);
	printf("%02s:%02s\t%s\t%s\t%s\t%s\n", $hour, $min, 
		$load, $users, $sendmail, $qffile);