httemplate/misc/delete-log_email.html


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

% 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 && $logemailnum =~ /^\d+$/ ) {
    if ( my $log_email = FS::log_email->by_key( $logemailnum ) ) {
      $error = $log_email->delete;
    }
  }
</%init>