X-Git-Url: https://git.sesse.net/?a=blobdiff_plain;f=itkacl-web-1.0%2Fweb%2Fdelete.pl;h=f1d1d9509b82183cf9b81130c529ae906c9f41ac;hb=HEAD;hp=9165b0e51e987073d9051a9ccdf3a2c613b1192a;hpb=e7130e30ca2a76082de68a72fb2a52b4510f7bf1;p=itkacl diff --git a/itkacl-web-1.0/web/delete.pl b/itkacl-web-1.0/web/delete.pl index 9165b0e..0c390ac 100755 --- a/itkacl-web-1.0/web/delete.pl +++ b/itkacl-web-1.0/web/delete.pl @@ -7,6 +7,7 @@ use lib '../include'; use itkaclcommon; itkaclcommon::init(); +itkaclcommon::check_csrf_token(); my $entry = $itkaclcommon::cgi->param('entry'); my $entity = $itkaclcommon::cgi->param('entity'); @@ -16,8 +17,5 @@ $itkaclcommon::dbh->do('DELETE FROM aclentries WHERE object=? AND entity_type=? $entry, $entity_type, $entity) or die "Couldn't do deletion"; -# Let sync-itkacl know there's updates -utime(time(), time(), '/etc/itkacl/updated'); - print $itkaclcommon::cgi->redirect("view.pl?entry=$entry");