Select Code to Download

Select or download this

     36 # get a timestamp in the format YYYYMMDDHMS
     37 my ($year, $month, $dayofmonth, $hour, $minute, $second)
     38         = (localtime())[5, 4, 3, 2, 1, 0];

Select or download this

# get a timestamp in the format YYYYMMDDHMS
my ( $second, $minute, $hour, $dayofmonth, $month, $year )
        = localtime;

Select or download this

     70 parse_config($path_to_conf_file) if $path_to_conf_file;

...
    214             $path_to_log_file = $1;
    215             next;
    216         }

Select or download this

    268 sub logger {
    269     my ($message, $level) = @_;
...
    283     
    284     print $LOG "[" . scalar(localtime()) . "] " . $level_names
+[$level] . ": $message\n";
    285 }

Select or download this

    syswrite $LOG "[" . scalar(localtime()) . "] " . $level_names[$lev
+el] . ": $message\n";

Select or download this

    202             if (-d $1) {
    203                 warn "in $conf_filename line $.: $1 is a direc
+tory";
...
    220                 next;
    221             }
    222             unless (-e $1) {

Select or download this

    202             if (-d $1) {
    203                 warn "in $conf_filename line $.: $1 is a direc
+tory";
...
    220                 next;
    221             }
    222             unless (-e _) {