% include("/elements/header.html", 'Log email condition configuration') %>
System Log
| Log E-Mail Condition
% if ($error) {
<% $error %>
% } else {
Log email condition deleted
% }
<%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>