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

Overcome maximum key length of 255 characters

Browse source
This commit is contained in:
Len Kranendonk 2005-04-25 13:40:54 +00:00
parent f99b5dab44
commit d8ead51499
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Cache/Memcached.pm
View file

@ -15,6 +15,7 @@ package WebGUI::Cache::Memcached;
=cut
use Cache::Memcached;
use Digest::MD5;
use HTTP::Headers;
use HTTP::Request;
@ -135,6 +136,11 @@ sub new {
my $key = shift;
my $namespace = shift || $session{config}{configFile};
# Overcome maximum key length of 255 characters
if(length($key.$namespace) > 255) {
$key = Digest::MD5::md5_base64($key);
}
my $servers = $session{config}{memcached_servers};
$servers = [ $servers ] unless (ref $servers);