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

Fixed bugs in storage causing multiple storage locations to be created any time a file was created or updated. Fixed a bug which prevents files from potentially breaking on operating systems that are not case sensitive.

Browse source
This commit is contained in:
Frank Dillon 2007-05-04 19:19:01 +00:00
parent 1f0dd18f61
commit 9a8207fee0
5 changed files with 196 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lib/WebGUI/Session/Id.pm
View file

@ -18,7 +18,7 @@ package WebGUI::Session::Id;
use strict;
use Digest::MD5;
use Time::HiRes qw( gettimeofday usleep );
use MIME::Base64;
=head1 NAME
@ -104,6 +104,29 @@ sub session {
return $self->{_session};
}
#-------------------------------------------------------------------
=head2 toHex ( guid )
Returns the hex value of a guid
=head3 guid
guid to convert to hex value.
=cut
sub toHex {
my $self = shift;
my $id = shift;
$id =~ tr{_-}{+/};
my $bin_id = decode_base64("$id==");
my $hex_id = sprintf('%*v02x', '', $bin_id);
return $hex_id
}
#-------------------------------------------------------------------
=head2 valid ( $idString )