^^&&^^

Edit File: unpkgacct

#!/bin/sh
eval 'if [ -x /usr/local/cpanel/3rdparty/bin/perl ]; then exec /usr/local/cpanel/3rdparty/bin/perl -x -- $0 ${1+"$@"}; else exec /usr/bin/perl -x $0 ${1+"$@"}; fi;'
  if 0;

#!/usr/bin/perl
# cpanel - scripts/unpkgacct                         Copyright 2014 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

BEGIN {
    unshift @INC, '/usr/local/cpanel';
    my %seen_inc;
    @INC = grep { !/(?:^\.|\.\.|\/\.+)/ && !$seen_inc{$_}++ } @INC;
    undef %seen_inc;
}

require 5.006;

our $VERSION = '1.0';

$| = 1;

if ( @ARGV && grep( m{version}, @ARGV ) ) {
    print "unpkgacct VERSION $VERSION\n";
    exit(0);
}

my $user     = $ARGV[0];
my $mntpoint = $ARGV[1];

if ( !getpwnam($user) && !enXim($user) ) {
    print "unpkgacct: Invalid Account\n";
    exit;
}

$mntpoint ||= getmntpoint();

if ( -d "$mntpoint/cpmove-${user}" && !-l "$mntpoint/cpmove-${user}" ) {
    system( "rm", "-rf", '--', "$mntpoint/cpmove-${user}" );
}

if ( -d "$mntpoint/cpmove-${user}-split" && !-l "$mntpoint/cpmove-${user}-split" ) {
    system( "rm", "-rf", '--', "$mntpoint/cpmove-${user}-split" );
}

if ( -f "$mntpoint/cpmove-${user}.tar.gz" && !-l "$mntpoint/cpmove-${user}.tar.gz" ) {
    system( "rm", "-rf", '--', "$mntpoint/cpmove-${user}.tar.gz" );
}

if ( -f "$mntpoint/cpmove-${user}.tar" && !-l "$mntpoint/cpmove-${user}.tar" ) {
    system( "rm", "-rf", '--', "$mntpoint/cpmove-${user}.tar" );
}

if ( !-d '/usr/local/cpanel' ) {
    system( 'rm', '-f', '--', '/etc/trueuserdomains' );
}

## case 34397 deprecation: use Cpanel::Filesys::getmntpoint
sub getmntpoint {

my ($homedir);
    my ($homematch);

open( CONF, "/etc/wwwacct.conf" );
    while (<CONF>) {
        $_ =~ s/\n//g;
        if ( $_ !~ /^;/ ) {
            if ( $_ =~ /HOMEDIR/ ) {
                ( undef, $homedir ) = split( / /, $_ );
            }
            if ( $_ =~ /HOMEMATCH/ ) {
                ( undef, $homematch ) = split( / /, $_ );
            }
        }
    }
    close(CONF);
    $homedir =~ s/\/$//g;

## case 34397: mark for deprecation
    my $disk = `df`;

my $max = 0;
    my $mnt = "/";
    my (@DISK) = split( /\n/, $disk );
    my $addline = '';
    foreach my $line (@DISK) {
        if ( $line !~ /[\s|\t]+/ ) {
            $addline = $line;
            $addline =~ s/\n//g;
            next;
        }
        if ( $line =~ /^\/dev/ || $addline ne "" ) {
            $line =~ s/\n//g;

$line =~ /\s(\d*)\s*\d*\%\s*(\S+)$/;
            my $free  = $1;
            my $mount = $2;

my $assess = 1;
            if ( ( $mount eq "/" ) && ( $homedir eq 0 ) ) {
                $assess = 0;
            }
            $free = int($free);
            $max  = int($max);

if ( ( $max < $free ) && ( $assess eq 1 ) && ( $mount =~ /$homematch/ || $mount eq "/" ) ) {
                $max = $free;
                if ( $mount eq "/" ) {
                    $mount = $homedir;
                }
                $mnt = $mount;
            }
        }
    }

if ( $mnt eq "" || $mnt eq "/" ) { $mnt = '/home'; }
    return ($mnt);
}

sub enXim {
    my ($enxim_user) = @_;

return $enxim_user if $enxim_user =~ /site\d+/;

my $found = 0;
    opendir( VH, "/home/virtual" );
    my @FILES = grep( /^site/, readdir(VH) );
    closedir(VH);
    foreach my $xsite (@FILES) {
        my ( $ul, $dns );
        my $sitedir = '/home/virtual/' . $xsite . "/fst";
        open( DNS, "$sitedir/etc/passwd" );
        chomp( $ul = <DNS> );
        my $muser = ( split /:/, $ul )[0];
        close(DNS);

if ( $muser eq $enxim_user ) { $found = 1; last }
    }
    return $found;
}