+# openidstart - вызывается когда обнаружено что текущее имя
+# пользователя, пытающегося аутентифицироваться, содержит http://
+#
+#
+
+sub openidstart {
+ my ($cgi,$forum,$openidurl) = @_;
+ #
+ # Fix duplicated http:// which can be produced by our sprintf based
+ # login system
+ #
+ $openidurl=~s!^http://http://!http://!;
+ my $csr = create_openid_consumer($cgi,$forum);
+ my $claimed_identity=$csr->claimed_identity($openidurl);
+ if (!defined $claimed_identity) {
+ show_error($forum,"Указанная URL $openidurl не является OpenId");
+ exit;
+ }
+ $cgi->param("openidvfy",1);
+ $cgi->delete("user");
+ $cgi->delete("openidsite");
+ $cgi->delete("password");
+ my $check_url = $claimed_identity->check_url(
+ return_to=> $cgi->url(-full=>1,-path_info=>1,-query=>1),
+ trust_root=> $cgi->url(-base=>1));
+ print $cgi->redirect(-location=>$check_url);
+ exit;
+}
+#
+# Вызывается при редиректе от openid producer-а. Проверяет, что
+# удаленный сервер подтвердил openid и вызывает операцию для которой
+# (либо возврат на исходную страницу при операции login, либо постинг
+# реплики)
+#
+sub openid_verify {
+ my ($cgi,$forum) = @_;
+ my $csr = create_openid_consumer($cgi,$forum);
+ if (my $setup_url = $csr->user_setup_url) {
+ print $cgi->redirect(-location=>$setup_url);
+ exit;
+ } elsif ($csr->user_cancel) {
+ show_error($forum,"Ваш openid-сервер отказался подтвержать вашу
+ идентичность");
+ exit;
+ } elsif (my $vident = $csr->verified_identity) {
+ #Успешная аутентификация.
+ #Создаем сессию
+ my $user = $vident->url;
+ my %userbase;
+ dbmopen %userbase,datafile($forum,"passwd"),0664;
+ if (!$userbase{$user}) {
+ $userbase{$user} = $forum->{authenticated}={};
+ } else {
+ $forum->{authenticated} = thaw ($userbase{$user});
+ }
+ dbmclose %userbase;
+ $forum->{"authenticated"}{"user"} = $user;
+ newsession(undef,$forum,$user);
+ # Если указан параметр reply, вызываем обработку реплики
+ if ($cgi->param("reply")) {
+ reply("reply",$cgi,$forum);
+ exit;
+ }
+ #Иначе, возвращаемся на исходную страницу
+ forum_redirect($cgi,$forum,undef);
+ } else {
+ show_error($forum,"Ошибка OpenId аутентификации");
+ exit;
+ }
+}