Current Path : /proc/2/cwd/scripts/

Upload File :

Current File : //proc/2/cwd/scripts/make_hostname_unowned

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

use strict;
use warnings;

use Cpanel::ConfigFiles         ();
use Cpanel::Config::CpUserGuard ();
use Cpanel::FileUtils::Modify   ();
use Cpanel::Sys::Hostname::Tiny ();

my $hostname = Cpanel::Sys::Hostname::Tiny::gethostname();
die "Unable to obtain hostname" unless $hostname;

print "Removing ownership of $hostname from $Cpanel::ConfigFiles::USERDOMAINS_FILE\n";
Cpanel::FileUtils::Modify::remlinefile( $Cpanel::ConfigFiles::USERDOMAINS_FILE, "$hostname:", 'begin' );

print "Ensuring that the system user does not own $hostname\n";

my $cpuser_guard = Cpanel::Config::CpUserGuard->new('system');
if ($cpuser_guard) {
    @{ $cpuser_guard->{'data'}->{'DOMAINS'} } = grep { $_ ne $hostname } @{ $cpuser_guard->{'data'}->{'DOMAINS'} };
    $cpuser_guard->save();
}
else {
    print "System user file does not exist\n";
}

Copyright 2K16 - 2K18 Indonesian Hacker Rulez