cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Session Cookie.pm

[spadkins]

cvsuser     02/04/19 09:24:30

  Modified:    P5EEx/Blue/P5EEx/Blue/Session Cookie.pm
  Log:
  rename state to store
  
  Revision  Changes    Path
  1.4       +6 -6      p5ee/P5EEx/Blue/P5EEx/Blue/Session/Cookie.pm
  
  Index: Cookie.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Session/Cookie.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- Cookie.pm 2 Mar 2002 03:07:47 -0000       1.3
  +++ Cookie.pm 19 Apr 2002 16:24:29 -0000      1.4
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Cookie.pm,v 1.3 2002/03/02 03:07:47 spadkins Exp $
  +## $Id: Cookie.pm,v 1.4 2002/04/19 16:24:29 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Session::Cookie;
  @@ -169,7 +169,7 @@
       my ($self, $options) = @_;
       my ($sessiontext, $sessiondata, $html, $headers, $cookieoptions);
   
  -    $sessiondata = $self->{state};
  +    $sessiondata = $self->{store};
       $sessiontext = encode_base64(Compress::Zlib::memGzip(freeze($sessiondata)));
   
       my ($maxvarsize, $maxvarlines);
  @@ -290,10 +290,10 @@
   
   sub init {
       my ($self, $args) = @_;
  -    my ($cgi, $sessiontext, $state);
  +    my ($cgi, $sessiontext, $store);
   
       $cgi = $args->{cgi} if (defined $args);
  -    $state = {};
  +    $store = {};
       if (defined $cgi) {
           $sessiontext = $cgi->cookie("p5ee_sessiondata");
           if ($sessiontext) {
  @@ -307,11 +307,11 @@
               }
               $sessiontext =~ s/(.{76})/$1\n/g;
               $sessiontext .= "\n";
  -            $state = thaw(Compress::Zlib::memGunzip(decode_base64($sessiontext)));
  +            $store = thaw(Compress::Zlib::memGunzip(decode_base64($sessiontext)));
           }
       }
       $self->{context} = $args->{context} if (defined $args->{context});
  -    $self->{state} = $state;
  +    $self->{store} = $store;
       $self->{cache} = {};
   }