JFIF$        dd7 

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

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

# cpanel - scripts/linksubemailtomainacct          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::linksubemailtomainacct;

use strict;
use Getopt::Long                 ();
use Cpanel::PwCache              ();
use Cpanel::PwCache::Helpers     ();
use Cpanel::PwCache::Build       ();
use Cpanel::LoginDefs            ();
use Cpanel::Config::LoadConfig   ();
use Cpanel::Email::Maildir::Link ();

if ( !caller() ) {
    $| = 1;

    # The -force option is not used, but we'll retain it due to
    # historical precedent, and in case it might be implemented
    # some day.
    my $force        = 0;
    my $quiet        = 0;
    my $exitondelete = 1;
    my $delete       = "";    # delete old symlinks

    my $opt_parse_result = Getopt::Long::GetOptions(
        "force"          => \$force,
        "quiet"          => \$quiet,
        "exitondelete=n" => \$exitondelete,
        "delete=s"       => \$delete,         # don't create new symlinks, just delete old ones for given domain
    );

    usage() unless $opt_parse_result && @ARGV <= 1;    # note ok if $ARGV == 0

    my $convertuser = $ARGV[0];

    __PACKAGE__->script( $convertuser, 'force' => $force, 'quiet' => $quiet, 'delete' => $delete );
}

sub script {
    my ( $class, $convertuser, %OPTS ) = @_;

    my $force  = $OPTS{'force'};
    my $quiet  = $OPTS{'quiet'};
    my $delete = $OPTS{'delete'};
    print "cPanel Email Linker v3.0\n" if !$quiet;

    my $pwcache_ref;
    if ($convertuser) {
        $pwcache_ref = [ [ Cpanel::PwCache::getpwnam($convertuser) ] ];
    }
    else {
        Cpanel::PwCache::Helpers::no_uid_cache();    #uid cache only needed if we are going to make lots of getpwuid calls
        Cpanel::PwCache::Build::init_passwdless_pwcache();
        $pwcache_ref = Cpanel::PwCache::Build::fetch_pwcache();
    }

    my $current_format = scalar Cpanel::Config::LoadConfig::loadConfig( "/etc/mailbox_formats", undef, ": " );
    foreach my $pw ( @{$pwcache_ref} ) {
        my ( $user, $uid, $gid, $homedir ) = ( @{$pw} )[ 0, 2, 3, 7 ];
        ($homedir) = $homedir =~ /(.*)/;             # Untaint
        next
          if ( $uid < Cpanel::LoginDefs::get_uid_min()
            || length($homedir) < 5
            || !-e $homedir . '/etc/'
            || -l $homedir . '/etc/passwd' );

        print "Processing $user..." if !$quiet;
        if ($delete) {
            Cpanel::Email::Maildir::Link::remove_maildir_symlinks_for_users_domain( $pw, $delete );
        }
        elsif ( !$current_format->{$user} || $current_format->{$user} eq 'maildir' ) {
            Cpanel::Email::Maildir::Link::setup_all_maildir_symlinks_for_user($pw);
        }
        else {
            Cpanel::Email::Maildir::Link::remove_all_maildir_symlinks_for_user($pw);
        }
        print "Done\n" if !$quiet;
    }
    return;
}

sub usage {
    die "Usage: $0 [ -force ] [ -quiet ] <username>\n(Note: The -force option is not yet implemented, and currently has no effect.)\n";
}

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