diff options
| author | dakkar <dakkar@luxion> | 2006-01-14 17:25:35 +0000 |
|---|---|---|
| committer | dakkar <dakkar@luxion> | 2006-01-14 17:25:35 +0000 |
| commit | 1afeddc08f6c61cff204980cfae93d97320ae39f (patch) | |
| tree | 05f9af022636b26e493bb1e7a778e2d44b0205c5 /lib/Bookmarks/C/Main.pm | |
| parent | corretta la modifica e cancellazione di link, aggiunti un po' di filtri nei t... (diff) | |
| download | Bookmarks-1afeddc08f6c61cff204980cfae93d97320ae39f.tar.gz Bookmarks-1afeddc08f6c61cff204980cfae93d97320ae39f.tar.bz2 Bookmarks-1afeddc08f6c61cff204980cfae93d97320ae39f.zip | |
aggiornamento a nuovo Catalyst, e "permessi di scrittura" (orendo)
Diffstat (limited to 'lib/Bookmarks/C/Main.pm')
| -rw-r--r-- | lib/Bookmarks/C/Main.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/Bookmarks/C/Main.pm b/lib/Bookmarks/C/Main.pm index d64f2fd..1039ade 100644 --- a/lib/Bookmarks/C/Main.pm +++ b/lib/Bookmarks/C/Main.pm @@ -87,6 +87,12 @@ sub jump : Global { sub add : Global { my ( $self, $c ) = @_; + unless ($self->_authorized($c)) { + $c->res->status(403); + $c->res->body('non puoi'); + return; + } + my %pre_link=(); for my $field (qw(pk url title descr)) { $pre_link{$field}=$c->req->param($field); @@ -167,6 +173,12 @@ sub add : Global { sub edit : Global { my ( $self, $c ) = @_; + unless ($self->_authorized($c)) { + $c->res->status(403); + $c->res->body('non puoi'); + return; + } + my $link=Bookmarks::M::DB::Links->retrieve($c->req->param('link')); $c->stash->{link}=$link; @@ -198,6 +210,15 @@ sub search : Global { $c->stash->{template}='results'; } +sub _authorized { + my ($self,$c)=@_; + + if ($ENV{BOOKMARKS_CAN_EDIT}) { + return 1; + } + return; +} + =head1 AUTHOR A clever guy |