From 2c5e6e0e562230816a01308a0daee850958a953a Mon Sep 17 00:00:00 2001 From: Victor Wagner Date: Tue, 18 Mar 2008 21:50:37 +0000 Subject: [PATCH] Define userurl. --- forum/forum | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/forum/forum b/forum/forum index 3407034..33dc755 100755 --- a/forum/forum +++ b/forum/forum @@ -32,10 +32,8 @@ my $cgi = new CGI; my $forum=get_forum_config(); -print STDERR "Config = $forum\nkeys= ".join(" ",keys %$forum)."\n" ; authorize_user($cgi,$forum); -print STDERR "Request method = ".$cgi->request_method()."\n"; if ($cgi->request_method ne "POST") { # Запрос к скрипту методом GET. Надо показать форму, если только это не # редирект от OpenId-сервера @@ -72,7 +70,6 @@ if ($cgi->request_method ne "POST") { # Запрос методом POST. Вызываем обработчик for my $param ($cgi->param) { if (exists $actions{$param}) { - print STDERR "Calling $param handler\n"; $actions{$param}->($param,$cgi,$forum); exit; } @@ -105,7 +102,6 @@ sub get_forum_config { # if (! exists $config{"templates"} && -d (my $filename = join("/",@path,"templates"))) { - print STDERR "get_forum_config: set templates to $filename\n"; $config{"templates"} = $filename; } # @@ -114,6 +110,13 @@ sub get_forum_config { if (! exists $config{"userdir"} && -d (my $filename = join("/",@path,"users"))) { $config{"userdir"} = $filename; + my + $taillen=length($ENV{PATH_TRANSLATED})-length(join("/",@path)); + $config{"userurl"} = + $cgi->url(-base=>1).substr($ENV{'PATH_INFO'},0, + length($ENV{'PATH_INFO'})-$taillen)."/users"; + + } # # Если нет ссылки в конфиге на файл паролей или он не @@ -164,7 +167,6 @@ sub show_error { print $cgi->header(-type=>'text/html',-charset=>'utf-8'); print $tree->as_HTML("<>&"); } else { - print STDERR "templates= $cfg->{templates}\n" ; print $cgi->header(-type=>'text/html',-charset=>'utf-8'); print "Ошибка конфигурации форума", "

Ошибка конфигурации форума

", @@ -180,7 +182,6 @@ sub show_error { # sub show_template { my ($form,$cgi,$forum) = @_; - print STDERR "show_template: form=$form forum=$forum\n"; my $filename=$forum->{"templates"}."/$form.html"; if (! -r $filename) { show_error($forum,"Нет шаблона для операции $form"); @@ -506,7 +507,7 @@ sub register { if (exists $forum->{default_status}) { $userinfo->{status} = $forum->{default_status}; } - print STDERR "registering user $user\n"; + print STDERR "stilllife forum: registering user $user\n"; $userbase{$user} = freeze($userinfo); dbmclose %userbase; newsession(undef,$forum,$user); -- 2.39.5