#!/usr/bin/perl
# cpanel12 - cpanelkill.cgi Copyright(c) 1997-2006 cPanel, Inc.
# All Rights Reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
print "Content-type: text/html\r\n\r\n";
$ENV{'QUERY_STRING'} =~ s/\n//g;
$ENV{'QUERY_STRING'} =~ s/\s//g;
my $user = (split( /\&/, $ENV{'QUERY_STRING'}, 2 ))[0];
if ( !$user ) {
print "INVALID PARAMETERS\n";
exit 1;
}
my $homedir = ( getpwnam($user) )[7];
if ( !$homedir || !-d $homedir || $homedir eq '/' ) {
print "INVALID USER\n";
exit 1;
}
my @account_pkgs = glob $homedir . '/backup-*_' . $user . '.tar.gz';
if ( @account_pkgs ) {
my $acct_pkg = pop @account_pkgs; # Latest backup
if ( unlink $acct_pkg ) {
print "UNLINKED\n";
}
}
else {
print "NO VALID ACCOUNT PACKAGES EXIST\n";
}
system '/bin/rm', '-rvf', $homedir . '/public_html/cgi-bin/cpdownload';
exit;