Re: Writing my own session handler

[Lukas Zapletal]

>Hello, I need to write my own session handler class. How can I do it? I do
>not want to use Apache::Session.
I read the manual and wrote my class but I get this error:

Can't locate object method "hexhash" via package "MD5" at
D:/Perl/site/lib/HTML/Embperl.pm line 1696.

here:

 if ($HTML::Embperl::SessionMgnt == 1)
     {
            if (!$udat -> {ID})
                {
         $udat -> {ID} = $sessid ;
         $udat -> {DIRTY} = 0 ;
                }

            if ($Inputfile && !$mdat -> {ID})
                {
         $mdat -> {ID} = substr(MD5 -> hexhash ($Inputfile), 0,
&Apache::Session::ID_LENGTH ); ####### HERE ######
         $mdat -> {DIRTY} = 0 ;
                }
     }
 else
     {
     $udat -> setid ($sessid) if (!$udat -> getid) ;
     $mdat -> setid (substr(MD5 -> hexhash ($Inputfile), 0, $mdat ->
{args} -> {IDLength} || $HTML::Embperl::DefaultIDLength)) if ($Inputfile &&
!$mdat -> getid)
     }
 }
    else
        {
        return undef ; # No session Management
        }


1) whats wrong?
2) I do not use Apache::Session classes in my implementation, is this the
problem?
3) why is Embperl executing 1st branch if (SessionMgnt == 1) when this value
cannot be set (I cannot find where is it set to 1)

lzap


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]