blob: 98b25e4c1bf9aaf3981f3d3a399b3438f7e70c67 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
<% include("/elements/header.html", 'Log email condition configuration') %>
<P>
<A HREF="<% $p %>search/log.html">System Log</A>
| <a href="<% $p %>browse/log_email.html">Log E-Mail Condition</a>
</p>
% if ($error) {
<P STYLE="color: red"><% $error %></P>
% } else {
<H1>Log email condition deleted</H1>
<SCRIPT>
window.top.location = "<% $fsurl %>browse/log_email.html";
</SCRIPT>
% }
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right([ 'View system logs', 'Configuration' ]);
my $error;
my $logemailnum = $cgi->param('logemailnum');
if ( $logemailnum =~ /^\d+$/ ) {
if ( my $log_email = FS::log_email->by_key($logemailnum) ) {
$error = $log_email->delete;
} else {
$error = "logemailnum '$logemailnum' not found";
}
} else {
$error = "bad logemailnum '$logemailnum'";
}
</%init>
|
