+ /user/eaccess

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

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' => 'Последние изображения',

lib/LDV/User.pm

@@ -132,4 +132,11 @@ sub update {
   return;
 }
 
+sub eaccess {
+  my ($self) = @_;
+
+  $self->res->code(403);
+  $self->render;
+}
+
 1;

templates/user/eaccess.html.ep

@@ -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>