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

Added a little error handling to the setByHTTP method.

Browse source
This commit is contained in:
JT Smith 2003-03-13 02:07:30 +00:00
parent b956825a7e
commit 3cbbb5dce4
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Cache.pm
View file

@ -22,6 +22,7 @@ eval " use Cache::FileCache; "; $hasCache=0 if $@;
use HTTP::Headers;
use HTTP::Request;
use LWP::UserAgent;
use WebGUI::ErrorHandler;
use WebGUI::Session;
@ -203,7 +204,11 @@ sub setByHTTP {
$header->referer($referer);
my $request = new HTTP::Request (GET => $_[1], $header);
my $response = $userAgent->request($request);
$_[0]->set($response->content,$_[2]);
if ($response->is_error) {
WebGUI::ErrorHandler::warn($_[1]." could not be retrieved.");
} else {
$_[0]->set($response->content,$_[2]);
}
return $response->content;
}