From 4816fe413437e7fc10728d233f1c555e0e711ba7 Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Mon, 24 Mar 2008 13:39:51 +0000
Subject: [PATCH] Fixed bug creating openid user-info

---
 forum/forum | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/forum/forum b/forum/forum
index 696cbd5..59bc266 100755
--- 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});
 		}
-- 
2.39.5