You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2001/09/19 08:06:43 UTC
cvs commit: embperl/Embperl Session.pm
richter 01/09/18 23:06:43
Modified: Embperl Tag: Embperl2c Session.pm
Log:
Make old session handling compatible
Revision Changes Path
No revision
No revision
1.4.4.4 +14 -0 embperl/Embperl/Session.pm
Index: Session.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Session.pm,v
retrieving revision 1.4.4.3
retrieving revision 1.4.4.4
diff -u -r1.4.4.3 -r1.4.4.4
--- Session.pm 2000/11/13 18:38:50 1.4.4.3
+++ Session.pm 2001/09/19 06:06:43 1.4.4.4
@@ -239,6 +239,11 @@
my $session_id = $self->{data}->{_session_id} ;
+ if (!$session_id && $self -> {idfrom})
+ {
+ $session_id = $self->{data}->{_session_id} = &{$self->{generate}}($self, $self -> {idfrom}) ;
+ }
+
$self->{initial_session_id} ||= $session_id ;
$self->populate;
@@ -407,6 +412,15 @@
$self->{'status'} = 0 ;
$self->{data}->{_session_id} = $self->{initial_session_id} = shift ;
+
+}
+
+sub setidfrom {
+ my $self = shift;
+
+ $self->{'status'} = 0 ;
+ $self->{data}->{_session_id} = $self->{initial_session_id} = undef ;
+ $self->{idfrom} = shift ;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org