Fixed bug creating openid user-info

diff --git a/forum/forum b/forum/forum
index 696cbd5c5aefa911e21ec2c909f42f2d4904e918..59bc266643e0a40feca1fede9a59116a8316da73 100755 (executable)
--- a/forum/forum
+++ b/forum/forum
@@ -480,6 +480,7 @@ sub authorize_user  {
                                        my %userbase;
                                        dbmopen %userbase,datafile($forum,"passwd"),0644;
                                        if ( $userbase{$user}) {
+                                               print STDERR "getting user info for $user\n";
                                                my $userinfo = thaw($userbase{$user});
                                                delete $userinfo->{"passwd"};
                                                $userinfo->{"user"} = $user;
@@ -961,7 +962,7 @@ sub openid_verify {
                my $username = $user; 
                $username =~ s/^http:\/\///;
                if (!$userbase{$username}) {
-                       $userbase{$username} = $forum->{authenticated}={"openiduser"=>1};
+                       $userbase{$username} = freeze($forum->{authenticated}={"openiduser"=>1});
                } else {
                        $forum->{authenticated} = thaw ($userbase{$username});
                }