diff options
Diffstat (limited to 'httemplate/config/config-delete.cgi')
| -rw-r--r-- | httemplate/config/config-delete.cgi | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/httemplate/config/config-delete.cgi b/httemplate/config/config-delete.cgi new file mode 100644 index 000000000..a05cb1e14 --- /dev/null +++ b/httemplate/config/config-delete.cgi @@ -0,0 +1,22 @@ +<%init> +die "access denied\n" + unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); + +$cgi->param('confnum') =~ /^(\d+)$/ or die "illegal or missing confnum"; +my $confnum = $1; + +my $conf = qsearchs('conf', {'confnum' => $confnum}); +die "Configuration not found!" unless $conf; +$conf->delete; + +my $redirect = popurl(2); +if ( $cgi->param('redirect') eq 'config_view_showagent' ) { + $redirect .= 'config/config-view.cgi?showagent=1#'. $conf->name; +} elsif ( $cgi->param('redirect') eq 'config_view' ) { + $redirect .= 'config/config-view.cgi'; +} else { + $redirect .= 'browse/agent.cgi'; +} + +</%init> +<% $cgi->redirect($redirect) %> |