From: Victor Wagner <vitus@wagner.pp.ru>
Date: Mon, 24 Mar 2008 11:04:11 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Url: http://wagner.pp.ru/gitweb/?a=commitdiff_plain;h=870fa7fa326ca21fe793efc0927d5e89efa1843c;p=oss%2Fstilllife.git

*** empty log message ***
---

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")) {