#!/afs/athena/contrib/perl/perl

require 'syslog.pl';
require 'getopts.pl';

sub usage {
    print STDERR "usage: logger.pl [-i] [-s] [-p pri] [-t tag] message\n";
    exit 1;
}

do Getopts('isp:t:') || do usage;

$tag = $opt_t || getpwuid($<);
@pri = split(/\./,$opt_p) || ("user","notice");
&usage if ($#pri != 1);
$opt = "pid" if $opt_i;
$opt .= " cons" if $opt_s;

# do openlog("hi!", "pid,cons", "user");
# do syslog("notice", "blaa");
# do closelog();

do openlog($tag, $opt, $pri[0]);
do syslog($pri[1], join(" ",@ARGV));
do closelog();