diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /httemplate/config/config-delete.cgi | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'httemplate/config/config-delete.cgi')
-rw-r--r-- | httemplate/config/config-delete.cgi | 33 |
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 488886824..000000000 --- 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) %> |