59 |
if($format eq '') |
if($format eq '') |
60 |
{ |
{ |
61 |
my $txt=join("\t",@args); |
my $txt=join("\t",@args); |
|
|
|
62 |
$format='%s'; |
$format='%s'; |
63 |
@args=($txt); |
@args=($txt); |
64 |
} |
} |
69 |
{ |
{ |
70 |
$format=~s/\%m/$!/g; |
$format=~s/\%m/$!/g; |
71 |
|
|
72 |
my $time=time; |
my $time = ($::CONF{'LogTimeFormat'} eq 'unix') ? time : localtime(time); |
73 |
|
|
74 |
print STDERR "$time\t$::PGM($priority): "; |
print STDERR "$time\t$priority\t"; |
75 |
print STDERR sprintf($format,@_); |
print STDERR sprintf($format,@args); |
76 |
print STDERR "\n" unless(substr($format,-1) eq "\n"); |
print STDERR "\n" unless(substr($format,-1) eq "\n"); |
77 |
|
|
78 |
return; |
return; |