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

more session related changes

Browse source
This commit is contained in:
JT Smith 2006-01-09 19:56:26 +00:00
parent 16b9675b0c
commit 024514c549
106 changed files with 1498 additions and 1313 deletions
Download patch file Download diff file Expand all files Collapse all files

34
lib/WebGUI/Cache.pm
View file

@ -14,7 +14,6 @@ package WebGUI::Cache;
=cut
use WebGUI::Session;
use File::Path;
use HTTP::Headers;
use HTTP::Request;
@ -77,7 +76,8 @@ Flushes the caching system. Must be overridden.
=cut
sub flush {
rmtree($WebGUI::Session::session{config}{uploadsPath}."/temp");
my $self = shift;
rmtree($self->session->config->get("uploadsPath")."/temp");
}
#-------------------------------------------------------------------
@ -95,10 +95,14 @@ sub get {
#-------------------------------------------------------------------
=head2 new ( key, [ namepsace ] )
=head2 new ( session, key, [ namepsace ] )
The new method will return a handler for the configured caching mechanism. Defaults to WebGUI::Cache::FileCache. You must override this method when building your own cache plug-in.
=head3 session
A reference to the current session.
=head3 key
A key to store the value under or retrieve it from.
@ -112,12 +116,13 @@ A subdivider to store this cache under. When building your own cache plug-in def
sub new {
my $cache;
my $class = shift;
if($WebGUI::Session::session{config}{memcached_servers}) {
my $session = shift;
if($session->config->get("memcached_servers")) {
require WebGUI::Cache::Memcached;
return WebGUI::Cache::Memcached->new(@_);
return WebGUI::Cache::Memcached->new($session,@_);
} else {
require WebGUI::Cache::FileCache;
return WebGUI::Cache::FileCache->new(@_);
return WebGUI::Cache::FileCache->new($session,@_);
}
}
@ -154,6 +159,19 @@ sub parseKey {
#-------------------------------------------------------------------
=head2 session ( )
Returns a reference session.
=cut
sub session {
my $self = shift;
return $self->{_session};
}
#-------------------------------------------------------------------
=head2 set ( value [, ttl] )
Sets a key value to the cache. Must be overridden.
@ -197,13 +215,13 @@ sub setByHTTP {
$userAgent->agent("WebGUI/".$WebGUI::VERSION);
$userAgent->timeout(30);
my $header = new HTTP::Headers;
my $referer = "http://webgui.http.request/".$WebGUI::Session::session{env}{SERVER_NAME}.$WebGUI::Session::session{env}{REQUEST_URI};
my $referer = "http://webgui.http.request/".$self->session->env->get("SERVER_NAME").$self->session->env->get("REQUEST_URI");
chomp $referer;
$header->referer($referer);
my $request = new HTTP::Request (GET => $url, $header);
my $response = $userAgent->request($request);
if ($response->is_error) {
WebGUI::ErrorHandler::error($url." could not be retrieved.");
$self->session->errorHandler->error($url." could not be retrieved.");
} else {
$self->set($response->content,$ttl);
}