11 |
|
|
12 |
my $MAXLEN = 1524; |
my $MAXLEN = 1524; |
13 |
|
|
14 |
my $dsn = 'DBI:Pg:dbname=syslog'; |
my $dsn = 'DBI:Pg:dbname=syslog;host=llin.lan'; |
15 |
my $user = 'dpavlin'; |
my $user = 'dpavlin'; |
16 |
my $debug = 0; |
my $debug = 0; |
17 |
|
|
46 |
my $ip = join('.', unpack('C4',$ipaddr)); |
my $ip = join('.', unpack('C4',$ipaddr)); |
47 |
warn "# ",dump( $port, $ipaddr, $hostname, $buf ); |
warn "# ",dump( $port, $ipaddr, $hostname, $buf ); |
48 |
|
|
49 |
if ( $buf=~/<(\d+)>(.*?):(.*)/ ) { |
if ( $buf =~ /<(\d+)>\s*(\S*)\s*:\s*(.*)/ ) { |
50 |
my $level=$1 % 8; |
my $level=$1 % 8; |
51 |
my $fac=($1-$level) / 8; |
my $fac=($1-$level) / 8; |
52 |
$sth->execute( $ip, $hostname, $fac, $1, $level, $2, $3 ); |
$sth->execute( $ip, $hostname, $fac, $1, $level, $2, $3 ); |
53 |
|
} else { |
54 |
|
$sth->execute( $ip, $hostname, undef, undef, undef, undef, $buf ); |
55 |
} |
} |
56 |
} |
} |