/[meteor]/trunk/Meteor/Syslog.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/Meteor/Syslog.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 47 by knops.gerd, Mon Feb 4 21:06:42 2008 UTC revision 50 by andrew.betts, Wed Feb 27 13:55:35 2008 UTC
# Line 59  sub ::syslog { Line 59  sub ::syslog {
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          }          }
# Line 70  sub ::syslog { Line 69  sub ::syslog {
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;
Legend:
Removed from v.47  
changed lines
  Added in v.50
  ViewVC Help
Powered by ViewVC 1.1.26