Browse Source

* LDV::Zerobin : add access settings

master
Alex 'AdUser' Z 7 years ago
parent
commit
22493d8ac2
  1. 2
      conf/ldv.conf.sample
  2. 6
      lib/LDV/Zerobin.pm

2
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,
},

6
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

Loading…
Cancel
Save