JFIF$        dd7 

Viewing File: /usr/local/cpanel/scripts/ensure_cpuser_file_ip

#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/ensure_cpuser_file_ip           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

package scripts::ensure_cpuser_file_ip;

use strict;
use warnings;

=encoding utf-8

=head1 USAGE

    ensure_cpuser_file_ip [--help]

=head1 DESCRIPTION

This script examines each cPanel user and ensures that the
user’s IP address is recorded properly. If not, the script will examine
try to copy the IP address from the user’s web vhost configuration.

This script runs automatically on upgrade to v76 and should not normally
need to be called manually.

=cut

use parent qw( Cpanel::HelpfulScript );

use Try::Tiny;

use Cpanel::Config::CpUserGuard    ();
use Cpanel::Config::Users          ();
use Cpanel::Config::userdata::Load ();

use constant _OPTIONS => ();

*_get_all_cpusers = \*Cpanel::Config::Users::getcpusers;

__PACKAGE__->new(@ARGV)->run() if !caller;

sub run {
    my ($self) = @_;

    for my $username ( sort( _get_all_cpusers() ) ) {
        $self->say("$username …");

        try {
            my $cpuser = Cpanel::Config::CpUserGuard->new($username);

            if ( $cpuser->{'data'}{'IP'} && ( '127.0.0.1' ne $cpuser->{'data'}{'IP'} ) ) {
                $cpuser->abort();
            }
            else {
                $self->say("\tDeducing “IP” …");

                $cpuser->{'data'}{'IP'} = _deduce_user_ip( $username, $cpuser );
                $self->say("\tDeduced: $cpuser->{'data'}{'IP'}");

                $cpuser->save();
                $self->say("\tSaved!");
            }
        }
        catch {
            warn $_;
        };
    }

    return;
}

sub _deduce_user_ip {
    my ( $username, $cpuser_obj ) = @_;

    my @domains = (
        $cpuser_obj->{'data'}{'DOMAIN'},
        @{ $cpuser_obj->{'data'}{'DOMAINS'} },
    );

    for my $d (@domains) {
        next if !Cpanel::Config::userdata::Load::user_has_domain( $username, $d );

        my $ref = Cpanel::Config::userdata::Load::load_userdata_domain( $username, $d );

        if ( $ref && %$ref ) {
            return $ref->{'ip'} if $ref->{'ip'};

            warn "“$username”’s vhost “$d” file lacks “ip”!\n";
        }
        else {
            warn "“$username”’s web vhost “$d” failed to load??\n";
        }
    }

    die "Found no IP address among “$username”’s web vhosts!";
}

1;
Back to Directory  nL+D550H?Mx ,D"v]qv;6*Zqn)ZP0!1 A "#a$2Qr D8 a Ri[f\mIykIw0cuFcRı?lO7к_f˓[C$殷WF<_W ԣsKcëIzyQy/_LKℂ;C",pFA:/]=H  ~,ls/9ć:[=/#f;)x{ٛEQ )~ =𘙲r*2~ a _V=' kumFD}KYYC)({ *g&f`툪ry`=^cJ.I](*`wq1dđ#̩͑0;H]u搂@:~וKL Nsh}OIR*8:2 !lDJVo(3=M(zȰ+i*NAr6KnSl)!JJӁ* %݉?|D}d5:eP0R;{$X'xF@.ÊB {,WJuQɲRI;9QE琯62fT.DUJ;*cP A\ILNj!J۱+O\͔]ޒS߼Jȧc%ANolՎprULZԛerE2=XDXgVQeӓk yP7U*omQIs,K`)6\G3t?pgjrmۛجwluGtfh9uyP0D;Uڽ"OXlif$)&|ML0Zrm1[HXPlPR0'G=i2N+0e2]]9VTPO׮7h(F*癈'=QVZDF,d߬~TX G[`le69CR(!S2!P <0x<!1AQ "Raq02Br#SCTb ?Ζ"]mH5WR7k.ۛ!}Q~+yԏz|@T20S~Kek *zFf^2X*(@8r?CIuI|֓>^ExLgNUY+{.RѪ τV׸YTD I62'8Y27'\TP.6d&˦@Vqi|8-OΕ]ʔ U=TL8=;6c| !qfF3aů&~$l}'NWUs$Uk^SV:U# 6w++s&r+nڐ{@29 gL u"TÙM=6(^"7r}=6YݾlCuhquympǦ GjhsǜNlɻ}o7#S6aw4!OSrD57%|?x>L |/nD6?/8w#[)L7+6〼T ATg!%5MmZ/c-{1_Je"|^$'O&ޱմTrb$w)R$& N1EtdU3Uȉ1pM"N*(DNyd96.(jQ)X 5cQɎMyW?Q*!R>6=7)Xj5`J]e8%t!+'!1Q5 !1 AQaqё#2"0BRb?Gt^## .llQT $v,,m㵜5ubV =sY+@d{N! dnO<.-B;_wJt6;QJd.Qc%p{ 1,sNDdFHI0ГoXшe黅XۢF:)[FGXƹ/w_cMeD,ʡcc.WDtA$j@:) -# u c1<@ۗ9F)KJ-hpP]_x[qBlbpʖw q"LFGdƶ*s+ډ_Zc"?%t[IP 6J]#=ɺVvvCGsGh1 >)6|ey?Lӣm,4GWUi`]uJVoVDG< SB6ϏQ@ TiUlyOU0kfV~~}SZ@*WUUi##; s/[=!7}"WN]'(L! ~y5g9T̅JkbM' +s:S +B)v@Mj e Cf jE 0Y\QnzG1д~Wo{T9?`Rmyhsy3!HAD]mc1~2LSu7xT;j$`}4->L#vzŏILS ֭T{rjGKC;bpU=-`BsK.SFw4Mq]ZdHS0)tLg