From 870fa7fa326ca21fe793efc0927d5e89efa1843c Mon Sep 17 00:00:00 2001
From: Victor Wagner <vitus@wagner.pp.ru>
Date: Mon, 24 Mar 2008 11:04:11 +0000
Subject: [PATCH] *** empty log message ***

---
 forum/forum | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/forum/forum b/forum/forum
index df265c3..696cbd5 100755
--- a/forum/forum
+++ b/forum/forum
@@ -958,13 +958,15 @@ sub openid_verify {
 		$user=~s/\/$//;
 		my %userbase;
 		dbmopen %userbase,datafile($forum,"passwd"),0664;
-		if (!$userbase{$user}) {
-			$userbase{$user} = $forum->{authenticated}={"openiduser"=>1};
+		my $username = $user; 
+		$username =~ s/^http:\/\///;
+		if (!$userbase{$username}) {
+			$userbase{$username} = $forum->{authenticated}={"openiduser"=>1};
 		} else {
-			$forum->{authenticated} = thaw ($userbase{$user});
+			$forum->{authenticated} = thaw ($userbase{$username});
 		}
 		dbmclose %userbase;
-		$forum->{"authenticated"}{"user"} = $user;
+		$forum->{"authenticated"}{"user"} = $username;
 		newsession(undef,$forum,$user);
 		# Если указан параметр reply, вызываем обработку реплики
 		if ($cgi->param("reply")) {	
-- 
2.39.2