perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Dean Powers" <deanpow...@priceobjects.com>
Subject Re: Apache::SessionX Installation
Date Sat, 07 Sep 2002 02:08:32 GMT
This problem of installing the SessionX patch when I was pointed to how to install patches.
It
works now! Thanks everyone for their help.
> On Thu, 2002-09-05 at 20:01, Dean Powers wrote:
>> I'm trying to install SessionX from CPAN. It fails, of course, and now I'm trying
to modify
>> the MD5.pm file in per the following patch from May 26th.
>> Question. Exactly what part of this patch do I put in the MD5.pm file? What is @@
-26,7 +26,7
>> @@? Why is there a minus sign in front of "use MD5".
>>
>> Why can't this get added to the CPAN so us Newbies don't have to do go in and patch
files?
>>
>> I've added the part from "use strict;  to the last "}" bracket but it doesn't work.
>>
>> Thanks for anyone's help. I really need to install SessionX.
>
> Rather then explain the patch process, it would be better/simpler to just install MD5
if you
> can.  I just did a fresh install under Perl 5.8 and have 5.6.1 on my other servers and
I have
> not had to batch any files in order to get it to work.  The error that I got most recently
that
> indicated I needed MD5 was misleading.  The error that was reported via the server was
that the
> error was in an Apache::Session handler, when in theory we expect it to die with a "Can't
> locate Snorkal.pm in @INC...." error message.  This is due, I believe, to the nature
in which
> the inheritance between the session modules work.
>
> Aaron Johnson
>
>>
>>
>> --- /tmp/MD5.pm Sun May 12 22:13:34 2002
>> > +++ /usr/lib/perl5/site_perl/5.6.0/Apache/SessionX/Generate/MD5.pm Sun May 12
22:12:57 2002
>> > @@ -12,7 +12,7 @@
>> >
>> >  use strict;
>> >  use vars qw($VERSION);
>> > -use MD5;
>> > +use Digest::MD5;
>> >
>> >  $VERSION = '2.1';
>> >
>> > @@ -26,7 +26,7 @@
>> >      }
>> >
>> >      $session->{data}->{_session_id} =
>> > -        substr(MD5->hexhash(MD5->hexhash($arg || (time(). {}. rand().
>> $$))), 0, $length);
>> > +        substr(Digest::MD5::md5_hex(Digest::MD5::md5_hex($arg || (time().
>> {}. rand(). $$))), 0, $length);
>> >
>> >
>> >  }
>> >
>> >
>>
>>
>>
>> Dean Powers,
>> PriceObjects
>>
>>
>>
>> --------------------------------------------------------------------- To unsubscribe,
e-mail:
>> embperl-unsubscribe@perl.apache.org
>> For additional commands, e-mail: embperl-help@perl.apache.org
>>
>>


Dean Powers,
PriceObjects



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message