/usr/local/cpanel/scripts
Edit: /usr/local/cpanel/scripts/unpkgacct (4713B)
#!/bin/bash
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 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, '/usr/local/cpanel';
my %seen_inc;
@INC = grep { !/(?:^\.|\.\.|\/\.+)/ && !$seen_inc{$_}++ } @INC;
undef %seen_inc;
}
require 5.006;
use Errno;
our $VERSION = '1.0';
run(@ARGV) if !caller;
sub run {
my (@argv) = @_;
local $| = 1;
if ( grep { m{version} } @argv ) {
print "unpkgacct VERSION $VERSION\n";
return;
}
my ( $user, $mntpoint ) = @argv;
if ( !_is_sane_username($user) && !enXim($user) ) {
die "$0: invalid account “$user”\n";
}
#die() is for sanity
$mntpoint ||= getmntpoint() || die 'Failed to find mountpoint!';
my @paths_to_check = (
"$mntpoint/cpmove-${user}",
"$mntpoint/cpmove-${user}-split",
"$mntpoint/cpmove-${user}.tar.gz",
"$mntpoint/cpmove-${user}.tar",
);
my @paths_to_remove;
for my $path (@paths_to_check) {
next if -l $path;
my $err = $!;
if ( -e _ ) {
#Exists and is not a symlink -> delete
print "Found archive: $path\n";
push @paths_to_remove, $path;
}
elsif ( $err != Errno::ENOENT ) {
#lstat() shouldn’t fail except for ENOENT.
warn "lstat($path): $err";
}
}
if ( !( -d '/usr/local/cpanel' ) && $! ) {
if ( $!{'ENOENT'} ) {
push @paths_to_remove, '/etc/trueuserdomains';
}
else {
warn "stat(/usr/local/cpanel): $!";
}
}
if (@paths_to_remove) {
exec( '/bin/rm', '--recursive', '--force', '--', @paths_to_remove ) or die "exec(rm): $!";
}
print "The mountpoint “$mntpoint” does not contain any archives for “$user”.\n";
return;
}
## case 34397 deprecation: use Cpanel::Filesys::Home::get_homematch_with_most_free_space
sub getmntpoint {
my ($homedir);
my ($homematch);
open( CONF, "/etc/wwwacct.conf" );
while (
) {
$_ =~ 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;
my $sitedir = '/home/virtual/' . $xsite . "/fst";
open( DNS, "$sitedir/etc/passwd" );
chomp( $ul = );
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<>;
return 0 if $name eq '.' || $name eq '..';
return 1;
}
1;