*** empty log message ***

[oss/stilllife.git] / forum / forum

diff --git a/forum/forum b/forum/forum
index d4a04c0e91f7c5b28d3a9b765796e9350d481d1b..c9bb2c6caa4e92a6c173f0a909ea2b86bfc63fe3 100755 (executable)
--- a/forum/forum
+++ b/forum/forum
@@ -925,6 +925,8 @@ sub openid_verify {
                #Успешная аутентификация.         
                #Создаем сессию
                my $user = $vident->url; 
+               # Remove trailing slash from URL if any
+               $user=~s/\/$//;
                my %userbase;
                dbmopen %userbase,datafile($forum,"passwd"),0664;
                if (!$userbase{$user}) {