Help for this page

Select Code to Download


  1. or download this
    This is perl, version 5.004_02
  2. or download this
    sub logit($$$) {
    my ($type, $severity, $msg) = @_ ;
...
    print LOG &timestamp . ": (type: $type | severity: $severity | msg
+: $msg)\n";
    exit(1);
    }
  3. or download this
        for ( split(/:/,$type) ) {
    switch: {
...

    close(SYSLOG);
}
  4. or download this
    Apr 16 15:19:24 hopper progname.pl: : 1.1 $
Apr 16 15:21:14 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 $