From 14c5096e04f0d1ac2a19a3c6c41e537a9aa0f78c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 6 Oct 2011 07:02:49 +0000
Subject: add dsl_device to track mac addresses, RT#13656

---
 httemplate/misc/delete-dsl_device.html | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 httemplate/misc/delete-dsl_device.html

(limited to 'httemplate/misc')

diff --git a/httemplate/misc/delete-dsl_device.html b/httemplate/misc/delete-dsl_device.html
new file mode 100755
index 000000000..0b985faa7
--- /dev/null
+++ b/httemplate/misc/delete-dsl_device.html
@@ -0,0 +1,23 @@
+% if ( $error ) {
+%   errorpage($error);
+% } else {
+<% $cgi->redirect($p. "view/svc_dsl.cgi?". $svcnum) %>
+% }
+<%init>
+
+# :/  needs agent-virt so you can't futz with arbitrary devices
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
+
+#untaint devicenum
+my($query) = $cgi->keywords;
+$query =~ /^(\d+)$/ || die "Illegal devicenum";
+my $devicenum = $1;
+
+my $dsl_device = qsearchs('dsl_device', { 'devicenum' => $devicenum } );
+my $svcnum = $dsl_device->svcnum;
+
+my $error = $dsl_device->delete;
+
+</%init>
-- 
cgit v1.2.1