summaryrefslogtreecommitdiff
path: root/httemplate/config/config-delete.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'httemplate/config/config-delete.cgi')
-rw-r--r--httemplate/config/config-delete.cgi33
1 files changed, 0 insertions, 33 deletions
diff --git a/httemplate/config/config-delete.cgi b/httemplate/config/config-delete.cgi
deleted file mode 100644
index 4888868..0000000
--- a/httemplate/config/config-delete.cgi
+++ /dev/null
@@ -1,33 +0,0 @@
-<%init>
-
-my $curuser = $FS::CurrentUser::CurrentUser;
-die "access denied\n" unless $curuser->access_right('Configuration');
-
-my $fsconf = new FS::Conf;
-if ( $fsconf->exists('disable_settings_changes') ) {
- my @changers = split(/\s*,\s*/, $fsconf->config('disable_settings_changes'));
- my %changers = map { $_=>1 } @changers;
- unless ( $changers{$curuser->username} ) {
- errorpage("Disabled in web demo");
- die "shouldn't be reached";
- }
-}
-
-$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) %>