10 itkaclcommon::check_csrf_token();
12 my $entry = $itkaclcommon::cgi->param('entry');
13 my $entity = $itkaclcommon::cgi->param('entity');
14 my $entity_type = $itkaclcommon::cgi->param('entity_type');
16 $itkaclcommon::dbh->do('DELETE FROM aclentries WHERE object=? AND entity_type=? AND entity=?', undef,
17 $entry, $entity_type, $entity)
18 or die "Couldn't do deletion";
20 # Let sync-itkacl know there's updates
21 utime(time(), time(), '/etc/itkacl/updated');
23 print $itkaclcommon::cgi->redirect("view.pl?entry=$entry");