/[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 9 by dpavlin, Sat Apr 11 10:03:04 2009 UTC
# Line 24  GetOptions( Line 24  GetOptions(
24          'log=s'   => \$log,          'log=s'   => \$log,
25  ) || die "usage: $0 --debug --schema\n";  ) || die "usage: $0 --debug --schema\n";
26    
27  my @facilities = ( qw/  our $VERSION = '0.00';
 / );  
28    
29  my $sql_schema = q{  my $sql_schema = q{
30    
# Line 96  my $sock = IO::Socket::INET->new( Line 95  my $sock = IO::Socket::INET->new(
95  #       ReuseAddr => 1,  #       ReuseAddr => 1,
96  ) || die "can't listen to $port: $!";  ) || die "can't listen to $port: $!";
97    
 print "INFO: listen on $port",$/;  
   
98  open(my $log_fh, '>>', $log) || die "can't open log $log: $!";  open(my $log_fh, '>>', $log) || die "can't open log $log: $!";
99  $log_fh->autoflush(1);  $log_fh->autoflush(1);
100  sub _log {  sub _log {
# Line 105  sub _log { Line 102  sub _log {
102          print $log_fh time() . '|' . join('|', @_), $/;          print $log_fh time() . '|' . join('|', @_), $/;
103  }  }
104    
105    _log "INFO: listen on $port";
106    
107  my $rin = '';  my $rin = '';
108  my $buf;  my $buf;
109  while(1) {  while(1) {
Legend:
Removed from v.6  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26