10 itkaclcommon::check_csrf_token();
12 my $allow = $itkaclcommon::cgi->param('allow');
13 my $entry = $itkaclcommon::cgi->param('entry');
14 my $entity = $itkaclcommon::cgi->param('entity');
15 my $entity_type = $itkaclcommon::cgi->param('entity_type');
16 my $comment = $itkaclcommon::cgi->param('comment');
18 $itkaclcommon::dbh->do('INSERT INTO aclentries (allow,object,entity_type,entity,comment) VALUES (?,?,?,?,?)', undef,
19 $allow, $entry, $entity_type, $entity, $comment)
20 or die "Couldn't add new ACL entry";
22 # Let sync-itkacl know there's updates
23 utime(time(), time(), '/etc/itkacl/updated');
25 print $itkaclcommon::cgi->redirect("view.pl?entry=$entry");