* LDV::Zerobin : add access settings

conf/ldv.conf.sample

@@ -49,7 +49,7 @@
   },
 
   zerobin => {
-    root => 'data/zerobin',
+    access => 'all',
     syntax => ['bash', 'c', 'css', 'html', 'perl', 'php', 'python', 'other'],
     maxsize => 1 * 1024 * 1024,
   },

lib/LDV/Zerobin.pm

@@ -46,6 +46,9 @@ sub _content_load {
 sub create {
   my ($self) = @_;
 
+  $self->access_allowed($self->app->config->{zerobin}->{access})
+    or return;
+
   my @syntax = ($self->c(text => ['plaintext', 'markdown']));
   my $langs = $self->app->config->{zerobin}->{syntax};
   push @syntax, $self->c(code => $langs)
@@ -79,6 +82,9 @@ sub view {
 sub save {
   my ($self) = @_;
 
+  $self->access_allowed($self->app->config->{zerobin}->{access})
+    or return;
+
   eval {
     my $source = $self->req->param('source') || '-';
     my $expire = $self->req->param('expire') || 30; # 30 days or 1 month