oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

change ErrorHandler to Log

Browse source
This commit is contained in:
Doug Bell 2010-10-27 12:50:12 -05:00
parent d11cd6f4f7
commit 199c4e4960
90 changed files with 311 additions and 311 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Mail/Get.pm
View file

@ -77,11 +77,11 @@ sub connect {
my $params = shift;
my $pop = Net::POP3->new($params->{server}, Timeout => 60);
unless (defined $pop) {
$session->errorHandler->error("Couldn't connect to POP3 server ". $params->{server});
$session->log->error("Couldn't connect to POP3 server ". $params->{server});
return undef;
}
unless ($pop->login($params->{account}, $params->{password})) {
$session->errorHandler->error("Couldn't log in to POP3 server ".$params->{server}." as ".$params->{account});
$session->log->error("Couldn't log in to POP3 server ".$params->{server}." as ".$params->{account});
return undef;
}
my $messageNumbers = $pop->list;
@ -160,7 +160,7 @@ sub getNextMessage {
$self->{_pop}->delete($id);
}
else {
$self->session->errorHandler->error("Could not parse POP3 message $id");
$self->session->log->error("Could not parse POP3 message $id");
return undef;
}
my $head = $parsedMessage->head;
@ -191,7 +191,7 @@ sub getNextMessage {
my $messageId = decode('MIME-Header', $head->get("Message-Id")) || undef;
chomp $messageId;
if ($skipAuto) { # drop autogenerated messages
$self->session->errorHandler->info("POP3: Dropped auto generated message ".$messageId." from ".$from." to ".$to);
$self->session->log->info("POP3: Dropped auto generated message ".$messageId." from ".$from." to ".$to);
return $self->getNextMessage;
}
my $cc = decode('MIME-Header', $head->get("Cc")) || undef;
@ -213,7 +213,7 @@ sub getNextMessage {
);
$data{parts} = $self->parseParts($parsedMessage);
unless (scalar(@{$data{parts}}) > 0) { # drop empty messages
$self->session->errorHandler->info(
$self->session->log->info(
"POP3: Dropped empty message ".$data{messageId}." from ".$data{from}." to ".$data{to}
);
return $self->getNextMessage;