/[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 12 by dpavlin, Sat Apr 11 11:45:36 2009 UTC revision 13 by dpavlin, Sat Apr 11 12:17:53 2009 UTC
# Line 15  our $dsn    = 'DBI:Pg:dbname=syslog'; Line 15  our $dsn    = 'DBI:Pg:dbname=syslog';
15  our $user   = 'dpavlin';  our $user   = 'dpavlin';
16  our $log    = '/tmp/sysplog.log';  our $log    = '/tmp/sysplog.log';
17    
18  require 'conf.pl' if -e 'conf.pl';  my $config = $0;
19    $config =~ s{/[^/]+$}{/conf.pl};
20    if ( -e $config ) {
21            require $config;
22            warn "# using $config ", -s $config, $/;
23    }
24    
25  my $debug  = 0;  my $debug  = 0;
26  my $schema = 0;  my $schema = 0;
# Line 107  sub _log { Line 112  sub _log {
112    
113  _log "INFO: listen on $port";  _log "INFO: listen on $port";
114    
 my $rin = '';  
115  my $buf;  my $buf;
116  while(1) {  while(1) {
117          $sock->recv($buf, $MAXLEN);          $sock->recv($buf, $MAXLEN);

Legend:
Removed from v.12  
changed lines
  Added in v.13

  ViewVC Help
Powered by ViewVC 1.1.26