#!/usr/bin/perl
my $domain = '%domain%';
my $installpath = '%installpath%';
my $modulename = '%modulename%';
my $modulepath = '%modulepath%';
my $homedir = '%homedir%';
my $user = '%user%';
my $installdir = '%installdir%';
my $publichtml = '%public_html%';
my $sqldb = '%sqldb%';
my $sqluser = '%sqluser%';
my $sqlpass = '%sqlpass%';
my $sqlserver = '%sqlhost%';
my $username = '%username%';
my $password = '%password%';
my $system = `uname -s`;
chomp($system);

print "Now uninstalling cPSupport...<br/>";
@CL = split(/\n/, `crontab -l`);
@CL = grep(!/${installdir}\/bin\/waitnotice/, @CL);
open(CRON,">.crontab");
foreach $line (@CL) {
   print CRON "$line\n";
}
close(CRON);
system("crontab .crontab");
unlink(".crontab");