create method

diff --git a/MANIFEST b/MANIFEST
index 31fd4b47eff47d195e9ec4ef5f84f409911d790f..7a17737efdc5ac50c9860d7494adcc0d354da655 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,4 +1,5 @@
 Makefile.PL
 MANIFEST
 lib/VJournal/Format.pm
+lib/VJournal/Session.pm
 t/user_link.t

diff --git a/lib/VJournal/Session.pm b/lib/VJournal/Session.pm
index f07ce4ea1dd5a5cb3afe2f9de2a80e16505ea149..989c7aa3a84a15bbf47895c28fa74dfc391fbe86 100644 (file)
--- a/lib/VJournal/Session.pm
+++ b/lib/VJournal/Session.pm
@@ -94,7 +94,7 @@ sub new {
                        [$cgi->cookie(-name=>COOKIE_NAME,-value=>$sess_id,-expires=>
                                $expire)];
                }       
-               return bless $pkg,$me;
+               return bless $me,$pkg;
        }
 }      
 
@@ -124,10 +124,63 @@ sub create {
                croak("Invalid call to ".$pkg."->create");
        }       
        my %params = @_;
-       croack("User name is required by ".$pkg."->creae");
+       croack("User name is required by ".$pkg."->creae") unless $params{-user};
        $params{-cgi}=CGI->new() if(!$params{-cgi});
        load_config($params{-cgi});
+       my $user=$params{-user};
+       my %users;
+       my %sessions;
+       dbmopen %users,$config{-userbase},0644;
+       my $session={-cgi=>$params{-cgi},-name=>$params{-user}};
+       if (!exists($users{$user})) {
+               # New user come.
+               require VJournal::Avatar;
+               my @avatar;
+               if (exists $params{-avatar}) {
+                       @avatar = VJournal::Avatar::cache($params{-avatar});
+               } else {        
+                       @avatar = VJournal::Avatar::by_openid($user);
+               }
+               if (!@avatar && exists $params{-email}) {
+                       @avatar = VJournal::Avatar::by_email($params{-email});
+               }
+               my %a = @avatar;
+               $users{$user}=join(":",$params{-email},$a{-src},$a{-width},$a{-height});
+       }
+       my ($email,$avatarsrc,$avatarwidth,$avatarheight)=split(":",$users{$user});
+       $session->{-email} = $email if $email;
+       if ($avatarsrc) {
+               $session->{-avatar} = $avatarsrc;
+               $session->{-avwidth} = $avatarwidth;
+               $session->{-avheight} = $avatarheight;
+       }
+       my $expire = time()+$config{-sessiontime};
+       require Digest::MD5;
+       my
+       $sessioninfo=join(":",$user,$avatarsrc,$email,$avatarwidth,$avatarheight,
+               ($params{-bind_to_ip}?$session->{-cgi}->remote_addr():""),$expire);
+       $session->{-id} = Digest::MD5::md5_base64($sessioninfo);
+       $sessions{$session->{-id}} = $sessioninfo;
+       bless $session,$pkg;                    
+       $session->{-cookie}=
+                       [$session->cookie(-name=>COOKIE_NAME,-value=>$session->{-id},-expires=>
+                               $expire)];
+       return $session                 
+}
 
+=head2 set_cookie
+
+       $s->set_cookie($s->cookie(-name=>name,-value=>value));
+
+Stores new cookie to be send to client inside the session object.
+They would be output when $s->header would be printed.
+
+=cut
+
+sub set_cookie {
+       my $self=shift;
+       $self->{-cookie}=[] if !exists $self->{-cookie};
+       push @{$self->{-cookie}},@_;
 }
 
 =head2 avatar