*** empty log message ***

diff --git a/forum/forum b/forum/forum
index df265c3c6157b3723baa8ddfc2c95628ca22c10a..696cbd5c5aefa911e21ec2c909f42f2d4904e918 100755 (executable)
--- 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")) {