diff --git a/lib/LDV.pm b/lib/LDV.pm index 02e2bf5..782018c 100644 --- a/lib/LDV.pm +++ b/lib/LDV.pm @@ -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 diff --git a/lib/LDV/I18N/ru.pm b/lib/LDV/I18N/ru.pm index 0d61e89..abeb9a1 100644 --- a/lib/LDV/I18N/ru.pm +++ b/lib/LDV/I18N/ru.pm @@ -51,6 +51,7 @@ our %Lexicon = 'Internal error' => 'Внутренняя ошибка', 'Paste your text here' => 'Вставьте текст сюда', 'Uploaded file not looks like text' => 'Загружен не-текстовый файл', + 'Authorized users only' => 'Только для зарегистрированных пользователей', # imgbin 'Latest images' => 'Последние изображения', diff --git a/lib/LDV/User.pm b/lib/LDV/User.pm index 8175acd..9fb6a8e 100644 --- a/lib/LDV/User.pm +++ b/lib/LDV/User.pm @@ -132,4 +132,11 @@ sub update { return; } +sub eaccess { + my ($self) = @_; + + $self->res->code(403); + $self->render; +} + 1; diff --git a/templates/user/eaccess.html.ep b/templates/user/eaccess.html.ep new file mode 100644 index 0000000..a0c3e8c --- /dev/null +++ b/templates/user/eaccess.html.ep @@ -0,0 +1,6 @@ +% layout 'default'; +% title 'Zerobin -- Access error'; +

Доступ ограничен

+
+

<%= l('Authorized users only') %>

+