diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-10-23 16:17:51 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-10-23 16:17:51 -0700 |
| commit | 80c2d997c5c983344c530ecbb46f94f1c299b35f (patch) | |
| tree | 28bafc1d55836acb5455e6554941c06f0912ef98 /httemplate/misc/delete-log_email.html | |
| parent | 3b1a5e8789d76f0581079d07190664f57bd773a3 (diff) | |
| parent | 0806f9fdbf2086671c151b3bcb078dc008e96f6c (diff) | |
Merge branch 'master' of git.freeside.biz:/home/git/freeside
Diffstat (limited to 'httemplate/misc/delete-log_email.html')
| -rw-r--r-- | httemplate/misc/delete-log_email.html | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/httemplate/misc/delete-log_email.html b/httemplate/misc/delete-log_email.html new file mode 100644 index 000000000..cc17b15a0 --- /dev/null +++ b/httemplate/misc/delete-log_email.html @@ -0,0 +1,20 @@ +% if ($error) { +<P STYLE="color: red"><% $error %></P> +% } else { +<H1>Log email condition deleted</H1> +<SCRIPT> +window.top.location.reload(); +</SCRIPT> +% } + +<%init> +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right([ 'View system logs', 'Configuration' ]); + +my $logemailnum = $cgi->param('logemailnum'); +$logemailnum =~ /^\d+$/ or die "bad logemailnum '$logemailnum'"; +my $log_email = FS::log_email->by_key($logemailnum) + or die "logemailnum '$logemailnum' not found"; +my $error = $log_email->delete; +</%init> + |