From cc0c6be1aa795f85d05f15a3e8568fcef2bbd380 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Wed, 18 Jul 2007 18:07:38 +0000
Subject: config in database cleanup, editing, and agent-specific config (452,
 1419)

---
 httemplate/config/config-delete.cgi | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 httemplate/config/config-delete.cgi

(limited to 'httemplate/config/config-delete.cgi')

diff --git a/httemplate/config/config-delete.cgi b/httemplate/config/config-delete.cgi
new file mode 100644
index 000000000..cdac434fa
--- /dev/null
+++ b/httemplate/config/config-delete.cgi
@@ -0,0 +1,15 @@
+<%init>
+die "access denied\n"
+  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+die "No configuration item specified (bad URL)!" unless $cgi->keywords;
+my ($query) = $cgi->keywords;
+$query =~ /^(\d+)$/;
+my $confnum = $1;
+
+my $conf = qsearchs('conf', {'confnum' => $confnum});
+die "Configuration not found!" unless $conf;
+$conf->delete;
+
+</%init>
+<% $cgi->redirect(popurl(2) . "browse/agent.cgi") %>
-- 
cgit v1.2.1