summaryrefslogtreecommitdiff
path: root/httemplate/misc
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2014-01-24 00:39:40 -0800
committerIvan Kohler <ivan@freeside.biz>2014-01-24 00:39:40 -0800
commitf3ac48703be75c0e2aec161487057eafeb8fc74f (patch)
treefd3bc7402cf055bbdccd86927532283cde51b562 /httemplate/misc
parent960c55002469c33ea9b0a949ad473a705e1b6cf9 (diff)
svc_pbx devices, for RT#24968
Diffstat (limited to 'httemplate/misc')
-rwxr-xr-xhttemplate/misc/delete-pbx_device.html23
1 files changed, 23 insertions, 0 deletions
diff --git a/httemplate/misc/delete-pbx_device.html b/httemplate/misc/delete-pbx_device.html
new file mode 100755
index 000000000..7540d2f9f
--- /dev/null
+++ b/httemplate/misc/delete-pbx_device.html
@@ -0,0 +1,23 @@
+% if ( $error ) {
+% errorpage($error);
+% } else {
+<% $cgi->redirect($p. "view/svc_pbx.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 $pbx_device = qsearchs('pbx_device', { 'devicenum' => $devicenum } );
+my $svcnum = $pbx_device->svcnum;
+
+my $error = $pbx_device->delete;
+
+</%init>