/[sysplogd]/sysplogd
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 /sysplogd

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

revision 6 by dpavlin, Sat Apr 11 09:29:22 2009 UTC revision 8 by dpavlin, Sat Apr 11 09:52:59 2009 UTC
# Line 96  my $sock = IO::Socket::INET->new( Line 96  my $sock = IO::Socket::INET->new(
96  #       ReuseAddr => 1,  #       ReuseAddr => 1,
97  ) || die "can't listen to $port: $!";  ) || die "can't listen to $port: $!";
98    
 print "INFO: listen on $port",$/;  
   
99  open(my $log_fh, '>>', $log) || die "can't open log $log: $!";  open(my $log_fh, '>>', $log) || die "can't open log $log: $!";
100  $log_fh->autoflush(1);  $log_fh->autoflush(1);
101  sub _log {  sub _log {
# Line 105  sub _log { Line 103  sub _log {
103          print $log_fh time() . '|' . join('|', @_), $/;          print $log_fh time() . '|' . join('|', @_), $/;
104  }  }
105    
106    _log "INFO: listen on $port";
107    
108  my $rin = '';  my $rin = '';
109  my $buf;  my $buf;
110  while(1) {  while(1) {

Legend:
Removed from v.6  
changed lines
  Added in v.8

  ViewVC Help
Powered by ViewVC 1.1.26