Diff for perl-modules/Platon/Log/Mail/Postfix.pm between version 1.4 and 1.5
| version 1.4, 2004/10/30 00:27:43 |
version 1.5, 2004/10/31 11:52:30 |
|
|
| # 2004-10-19 - created |
# 2004-10-19 - created |
| # |
# |
| |
|
| # $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.3 2004/10/29 23:02:30 rajo Exp $ |
# $Platon: perl-modules/Platon/Log/Mail/Postfix.pm,v 1.4 2004/10/30 00:27:43 rajo Exp $ |
| |
|
| package Platon::Log::Mail::Postfix; |
package Platon::Log::Mail::Postfix; |
| |
|
| Line 181 sub _savelog($$;) |
|
| Line 181 sub _savelog($$;) |
|
| { # {{{ |
{ # {{{ |
| my ($self, $data) = @_; |
my ($self, $data) = @_; |
| |
|
| |
$self->{dbh}->check(); |
| |
|
| $self->{sql_insert}->execute( |
$self->{sql_insert}->execute( |
| $data->{created}, $data->{host}, $data->{log_level}, $data->{process_name}, |
$data->{created}, $data->{host}, $data->{log_level}, $data->{process_name}, |
| $data->{pid}, $data->{postfix_key}, $data->{client_hostname}, $data->{client_ip}, $data->{uid}, |
$data->{pid}, $data->{postfix_key}, $data->{client_hostname}, $data->{client_ip}, $data->{uid}, |
Platon Group <platon@platon.org> http://platon.org/
|
|