httemplate/config/config-delete.cgi

   1 <%init>
   2 die "access denied\n"
   3   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
   4
   5 $cgi->param('confnum') =~ /^(\d+)$/ or die "illegal or missing confnum";
   6 my $confnum = $1;
   7
   8 my $conf = qsearchs('conf', {'confnum' => $confnum});
   9 die "Configuration not found!" unless $conf;
  10 $conf->delete;
  11
  12 my $redirect = popurl(2);
  13 if ( $cgi->param('redirect') eq 'config_view_showagent' ) {
  14   $redirect .= 'config/config-view.cgi?showagent=1#'. $conf->name;
  15 } elsif ( $cgi->param('redirect') eq 'config_view' ) {
  16   $redirect .= 'config/config-view.cgi';
  17 } else {
  18   $redirect .= 'browse/agent.cgi';
  19 }
  20
  21 </%init>
  22 <% $cgi->redirect($redirect) %>