Diff for scripts/perl/postfix/pf-savelog-mysql.pl between version 1.5 and 1.6
| version 1.5, 2005/09/16 21:29:28 |
version 1.6, 2005/12/04 21:33:24 |
|
|
| # |
# |
| |
|
| |
|
| # $Platon: scripts/perl/postfix/pf-savelog-mysql.pl,v 1.4 2004/10/31 11:50:28 rajo Exp $ |
# $Platon: scripts/perl/postfix/pf-savelog-mysql.pl,v 1.5 2005/09/16 21:29:28 rajo Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
| Line 45 while (my $line = <STDIN>) { |
|
| Line 45 while (my $line = <STDIN>) { |
|
| $log->savelog($line) or print STDERR "Error saving log entry #$nr: '$line'"; |
$log->savelog($line) or print STDERR "Error saving log entry #$nr: '$line'"; |
| } |
} |
| |
|
| |
# IMPORTANT, otherwise you can lose some data |
| |
$log->flush(); |
| |
|
| |
|
| # vim: ts=4 |
# vim: ts=4 |
Platon Group <platon@platon.org> http://platon.org/
|
|