Diff for scripts/perl/postfix/pf-savelog-mysql.pl between version 1.1 and 1.2
| version 1.1, 2004/10/21 17:34:23 |
version 1.2, 2004/10/30 10:37:01 |
|
|
| # |
# |
| |
|
| |
|
| # $Platon$ |
# $Platon: scripts/perl/postfix/pf-savelog-mysql.pl,v 1.1 2004/10/21 17:34:23 rajo Exp $ |
| |
|
| use strict; |
use strict; |
| |
|
|
|
| while (my $line = <STDIN>) { |
while (my $line = <STDIN>) { |
| chomp $line; |
chomp $line; |
| $nr++; |
$nr++; |
| print $line, "\n"; |
|
| $log->savelog($line) or print STDERR "Error saving log entry #$nr: '$line'"; |
$log->savelog($line) or print STDERR "Error saving log entry #$nr: '$line'"; |
| } |
} |
| |
|
Platon Group <platon@platon.org> http://platon.org/
|
|
Login
Registration
Slovak
![[BACK]](http://cvsweb.platon.sk/icons/back.gif){kind=icon}
![[TXT]](http://cvsweb.platon.sk/icons/text.gif){kind=icon}
![[DIR]](http://cvsweb.platon.sk/icons/dir.gif){kind=icon}
Up to