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

clean up and comment parseKey in cache

Browse source
This commit is contained in:
Graham Knop 2008-07-09 20:50:57 +00:00
parent c3cb1c05c3
commit c017e52939
1 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lib/WebGUI/Cache.pm
View file

@ -157,20 +157,23 @@ Can either be a text key, or a composite key. If it's a composite key, it will b
sub parseKey {
my $class = shift;
my $key = shift;
if (ref $key eq "ARRAY") {
my @parts = @{ $key };
foreach my $part (@parts) {
$part = Digest::MD5::md5_base64(Encode::encode_utf8($part));
$part =~ tr{/}{-};
}
return join('/',@parts);
# check for composite or simple key, make array from either
my @key;
if (! $_[0]) {
return;
}
elsif (ref $_[0] eq 'ARRAY') {
@key = @{ +shift };
}
else {
$key = Digest::MD5::md5_base64(Encode::encode_utf8($key));
$key =~ tr{/}{-};
return $key;
}
@key = shift;
}
foreach my $part (@key) {
# convert to octets, then md5 them
$part = Digest::MD5::md5_base64(Encode::encode_utf8($part));
$part =~ tr{/}{-};
}
return join('/', @key);
}
#-------------------------------------------------------------------