This is perl, version 5.004_02

##</code><code>##

sub logit($$$) {
    my ($type, $severity, $msg) = @_ ;
    my $facility = "local0.info";

    if ( !defined($type) or !defined($severity) or !defined($msg) ) {
	$type     ||= "undefined";
	$severity ||= "undefined";
	$msg      ||= "undefined";

	print STDERR " In order to use the logit subroutine the caller must provide\n";
	print STDERR " three arguments: type, severity, and the message!!!\n";
	print "(type: $type | severity: $severity | msg: $msg)\n\n";
	print LOG &timestamp . ": Exited!  Error in $plProgName - caller did not properly\n";
	print LOG &timestamp . ": call subroutine \&logit!\n";
	print LOG &timestamp . ": (type: $type | severity: $severity | msg: $msg)\n";
	exit(1);
    }

##</code><code>##

    for ( split(/:/,$type) ) {
	switch: {
	    /syslog/ && do {
# Print only to syslog here
	print "(type: $type | severity: $severity | msg: $msg)\n\n";
		print SYSLOG "$severity - $msg";
		last switch;
	    };

	    /stdout/ && do {
# Print only to stdout here
		print("$severity - $msg\n");
		last switch;
	    };
	    
	    /stderr/ && do {
# Print only to stderr here
		print STDERR "$severity - $msg\n";
		last switch;
	    };

	    /log/ && do {
# Print to the log file here
		print LOG &timestamp . ": $severity - $msg\n";
		last switch;
	    };

	    /all/ && do {
# Print to everything here (except stderr)
		for ( *STDOUT, *LOG, *SYSLOG ) {
		    print $_ &timestamp . ": $severity - $msg ($_)\n";
		}
		last switch;
	    };

	    /allerr/ && do {
# Print to everything here (except stdout)
		for ( *STDERR, *LOG, *SYSLOG ) {
		    print $_ &timestamp . ": $severity - $msg ($_)\n";
		}
		last switch;
	    };

# This next line is simply for completeness.  It will most likely
# never get used because of the check in the beginning of this
# sub.
	    DEFAULT: {
		print LOG &timestamp . ": $severity - $msg\n";
		print STDOUT "$severity - $msg\n" if ( $DEBUG == "1" );
# Print only to the log here
	    };
	}
    }

    close(SYSLOG);
}

##</code><code>##

Apr 16 15:19:24 hopper progname.pl: : 1.1 $
Apr 16 15:21:14 hopper progname.pl: : 1.1 $
Apr 16 15:21:14 hopper progname.pl: : 1.1 $
Apr 16 15:25:34 hopper progname.pl: : 1.1 $
Apr 16 15:42:31 hopper progname.pl: : 1.1 $
Apr 16 15:46:14 hopper progname.pl: : 1.1 $
Apr 16 15:49:20 hopper progname.pl: : 1.1 $