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

4
lib/WebGUI/Session/DateTime.pm
View file

@ -721,7 +721,7 @@ sub mailToEpoch {
my $parser = DateTime::Format::Mail->new->loose;
my $dt = eval {$parser->parse_datetime($date)};
if ($@) {
$self->session->errorHandler->warn($date." is not a valid date for email, and is so poorly formatted, we can't even guess what it is.");
$self->session->log->warn($date." is not a valid date for email, and is so poorly formatted, we can't even guess what it is.");
return undef;
}
return $dt->epoch;
@ -919,7 +919,7 @@ sub setToEpoch {
$dt = $parser->parse_datetime($set);
}
unless ($dt) {
$self->session->errorHandler->warn("Could not format date $set for epoch. Returning current time");
$self->session->log->warn("Could not format date $set for epoch. Returning current time");
return time();
}
return $dt->epoch;

2
lib/WebGUI/Session/Http.pm
View file

@ -504,7 +504,7 @@ sub setRedirect {
my $type = shift || 302;
my @params = $self->session->form->param;
return undef if ($url eq $self->session->url->page() && scalar(@params) < 1); # prevent redirecting to self
$self->session->errorHandler->info("Redirecting to $url");
$self->session->log->info("Redirecting to $url");
$self->setRedirectLocation($url);
$self->setStatus($type);
$self->session->style->setMeta({"http-equiv"=>"refresh",content=>"0; URL=".$url});

2
lib/WebGUI/Session/Icon.pm
View file

@ -253,7 +253,7 @@ sub getToolbarOptions {
my $self = shift;
$options{useLanguageDefault} = WebGUI::International->new($self->session,'WebGUI')->get(1084);
my $dir = $self->session->config->get("extrasPath")."/toolbar";
opendir (DIR,$dir) or $self->session->errorHandler->warn("Can't open toolbar directory!: $!");
opendir (DIR,$dir) or $self->session->log->warn("Can't open toolbar directory!: $!");
my @files = readdir(DIR);
foreach my $file (@files) {
if (substr($file,0,1) ne ".") {

28
lib/WebGUI/Session/ErrorHandler.pm → lib/WebGUI/Session/Log.pm
View file

@ -1,4 +1,4 @@
package WebGUI::Session::ErrorHandler;
package WebGUI::Session::Log;
=head1 LEGAL
@ -23,7 +23,7 @@ use Scalar::Util qw(weaken);
=head1 NAME
Package WebGUI::Session::ErrorHandler
Package WebGUI::Session::Log
=head1 DESCRIPTION
@ -31,22 +31,22 @@ This package provides simple but effective error handling, debugging, and loggi
=head1 SYNOPSIS
use WebGUI::Session::ErrorHandler;
use WebGUI::Session::Log;
my $errorHandler = WebGUI::Session::ErrorHandler->new($session);
my $log = WebGUI::Session::Log->new($session);
$errorHandler->audit($message);
$errorHandler->debug($message);
$errorHandler->error($message);
$errorHandler->fatal($message);
$errorHandler->info($message);
$errorHandler->security($message);
$errorHandler->warn($message);
$log->audit($message);
$log->debug($message);
$log->error($message);
$log->fatal($message);
$log->info($message);
$log->security($message);
$log->warn($message);
$logger = $errorHandler->getLogger;
$logger = $log->getLogger;
$text = $errorHandler->getStackTrace;
$html = $errorHandler->showDebug;
$text = $log->getStackTrace;
$html = $log->showDebug;
=head1 METHODS