@ -55,6 +55,7 @@ sub startup {
$user->get ('/logout') ->to(action => 'logout');
$user->post('/create') ->to(action => 'create');
$user->post('/update') ->to(action => 'update');
$user->get('/eaccess') ->to(action => 'eaccess');
}
{ # /zerobin
@ -51,6 +51,7 @@ our %Lexicon =
'Internal error' => 'Внутренняя ошибка',
'Paste your text here' => 'Вставьте текст сюда',
'Uploaded file not looks like text' => 'Загружен не-текстовый файл',
'Authorized users only' => 'Только для зарегистрированных пользователей',
# imgbin
'Latest images' => 'Последние изображения',
@ -132,4 +132,11 @@ sub update {
return;
sub eaccess {
my ($self) = @_;
$self->res->code(403);
$self->render;
1;
@ -0,0 +1,6 @@
% layout 'default';
% title 'Zerobin -- Access error';
<h1>Доступ ограничен</h1>
<div>
<p style="color: red; font-size: 14pt;"><%= l('Authorized users only') %></p>
</div>