После этого администратору подается сводка, подтверждающая действия
взятый.
$par{summary} = << "EOF4";
$добавляет имена пользователей, добавленные с паролями по умолчанию.<br>
$remove удаляет имена пользователей (хотя страницы останутся).
EOF4
236
ПРОВЕРЕННЫЕ КОМПОНЕНТЫ WIKI
}
открыть (T, 'template.html 1 );
пока (<T>) {
s/\$(\w+)/определено($par{$l}) ? $par{$l} : ''/гео;
Распечатать;
}
шкаф);
Пользовательский модуль выходит здесь.
Подпрограмма обработки ошибок отображает сообщение об ошибке и предоставляет
некоторые рекомендации для пользователя.
дополнительная ошибка {
печать « "EOF" ;
<hl>Проблема:</hl>
Вики-сервер не может обработать ваш запрос.<br>
Обнаружена следующая ошибка.
<blockquotexi>$_[0] </ix/blockquote>
Если вы не можете решить эту проблему самостоятельно, вы можете<br>
обратиться за помощью к своему
<a href=wiki.cgi?Системный администратор>Системный администратор</a>.
умереть ($ _ [0]);
}
Это заботится о добавлении и удалении участников.
Управление паролями
Модуль паролей позволяет участникам изменять свои собственные пароли из (скорее
очевидно) по умолчанию.
пройти.cgi
#! /USR/бен/перл
#(c) 1999, Cunningham & Cunningham, Inc.
использовать строгий;
my $link = "[AZ][az]+([AZ][az]+)+";
print "Тип контента: text/html\n\n";
ДОПОЛНИТЕЛЬНЫЕ ДОПОЛНИТЕЛЬНЫЕ КОМПОНЕНТЫ
237
моя $page = $ENV{QUERY_STRING} =~ / A \w+$/
? $&
: die ("неправильное использование\n");
die("Несанкционированное использование\n")
если только $ ENV{REMOTE_USER} не эквивалентно $page
или $ ENV{REMOTE_USER} eq 'Системный администратор 1 ;
Подразумеваемое здесь «правильное использование» означает, что пользователь должен указать «страницу», которая
совпадает с ранее аутентифицированным именем пользователя (хранится на сервере удаленных пользователей
переменная) — пользователь должен войти в систему, используя существующий пароль
чтобы зайти так далеко. Таким образом, мы гарантируем, что пользователи могут изменить только свой собственный пароль.
Исключением является администратор, который может изменить любой пароль.