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-сервера
# Запрос методом POST. Вызываем обработчик
for my $param ($cgi->param) {
if (exists $actions{$param}) {
- print STDERR "Calling $param handler\n";
$actions{$param}->($param,$cgi,$forum);
exit;
}
#
if (! exists $config{"templates"}
&& -d (my $filename = join("/",@path,"templates"))) {
- print STDERR "get_forum_config: set templates to $filename\n";
$config{"templates"} = $filename;
}
#
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";
+
+
}
#
# Если нет ссылки в конфиге на файл паролей или он не
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 "<html><head><title>Ошибка конфигурации форума</title></head>",
"<body><h1>Ошибка конфигурации форума</h1><p>",
#
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");
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);
projects / oss / stilllife.git / commitdiff