root/trunk/engine/setup/reset-setup

#!/usr/bin/perl

# ispCP ω (OMEGA) a Virtual Hosting Control Panel
# Copyright (c) 2006-2008 by ispCP | http://isp-control.net
#
#
# License:
#    This program is free software; you can redistribute it and/or
#    modify it under the terms of the GPL General Public License
#    as published by the Free Software Foundation; either version 2.0
#    of the License, or (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GPL General Public License for more details.
#
#    You may have received a copy of the GPL General Public License
#    along with this program.
#
#    An on-line copy of the GPL General Public License can be found
#    http://www.fsf.org/licensing/licenses/gpl.txt
#
########################################################################
#
# This Script only resets the ispCP Setup, it WON'T uninstall ispCP!!
# Afterwards a new install is possible. Use it, if you had an installation
# error during setup.
#
# Keep attention: The ispCP database will be deleted with all its content!
#
########################################################################

use FindBin;
use lib "$FindBin::Bin/..";
require 'ispcp_common_code.pl';
use strict;
use warnings;

## Variables
my ($rs, $sql, $rdata, $delete_cmd ) = (undef, undef, undef,undef );
my $user_prefix = $main::cfg{'APACHE_SUEXEC_USER_PREF'};
my $master_user = $main::cfg{'APACHE_SUEXEC_MIN_UID'};
my $user_delete = $main::cfg{'CMD_USERDEL'};
my $database    = $main::cfg{'DATABASE_NAME'};

## MAIN
print STDOUT "Re-setting ISPCP Setup!\n";
print STDOUT "========================\n";

if ($main::cfg{'ROOT_GROUP'} eq "wheel") {
        $delete_cmd = "rmuser -y $user_prefix$master_user";
        $rs = sys_command($delete_cmd);
} else {
        $delete_cmd = "$user_delete -r $user_prefix$master_user";
        $rs = sys_command($delete_cmd);
        my $delete_fcgi = "$main::cfg{'CMD_RM'} -r $main::cfg{'PHP_STARTER_DIR'}/master";
        $rs = sys_command($delete_fcgi);
}

$sql = "DROP DATABASE IF EXISTS $database";
($rs, $rdata) = doSQL($sql);

if ($rs != 0) {
        print STDOUT "An error occured!\n";
        print STDOUT "$rdata\n";
} else {
        print STDOUT "done!\n";
}