X-Git-Url: https://git.sesse.net/?p=itkacl;a=blobdiff_plain;f=itkacl-web-1.0%2Fweb%2Fdeletenode.pl;fp=itkacl-web-1.0%2Fweb%2Fdeletenode.pl;h=d49810f44e0544366dbf1ee2e9e96beff16259c9;hp=0000000000000000000000000000000000000000;hb=e7130e30ca2a76082de68a72fb2a52b4510f7bf1;hpb=b9014762b8051b457c68d8de11a08d64401026fa

diff --git a/itkacl-web-1.0/web/deletenode.pl b/itkacl-web-1.0/web/deletenode.pl
new file mode 100755
index 0000000..d49810f
--- /dev/null
+++ b/itkacl-web-1.0/web/deletenode.pl
@@ -0,0 +1,26 @@
+#! /usr/bin/perl -T
+use strict;
+use warnings;
+use utf8;
+
+use lib '../include';
+use itkaclcommon;
+
+itkaclcommon::init();
+
+my $entry = $itkaclcommon::cgi->param('entry');
+
+# Find the parent node before we delete this (FIXME: this will fail badly
+# for root nodes!)
+my $ref = $itkaclcommon::dbh->selectrow_hashref('SELECT parent FROM objects WHERE id=?',
+	undef, $entry);
+
+$itkaclcommon::dbh->do('DELETE FROM objects WHERE id=?', undef, $entry)
+	or die "Couldn't delete object";
+
+# Let sync-itkacl know there's updates
+utime(time(), time(), '/etc/itkacl/updated');
+
+# Redirect to the parent
+print $itkaclcommon::cgi->redirect("view.pl?entry=$ref->{'parent'}");
+