�&ǐk�@'bJ�h�ۊL'}T�:��'2�Z#$��n�a����>a��`��_3d�Qpt�/�P
-��#5�,�M���
�pA:©�q�����NW��ډ�A�����9nʺج����
�TSM��{J6?7��r�@�\����D����׶���s�f�TJj?"��D��`?��̒�	b�#�%�C*v�$�{�$����5Ծ�F�s��y�e/8��h-�f�̰
&(����Gj�L:U�	2������v�_k����Y��gp,�k�WF�R����<Q%E�,��+׬��$�䑽�0����]q�%�ˮI�����5_�}}
�c�{8�.��&���o��Ӳ�ߢ�!�2M��@��GƲz�@�Z$�b�ցK���Q��m�C���6�i����V�j|�s�y����\1�����5'?�@3�$%vP�v >��_C�R��N@���R�@�ߔ?A�w9���F("iNa-S���Q�o�3tDMLh*�#4k�T/iQ��Y*�G��m����)��8�
hBm/�I�,g�ﯖ���Z��}�Cz�q@
´��d.����L�ŕ�,��1�Z�܌�:̪���F+J-'��c�tvJ8��]Q-��b��y�6;*J`r_�d	��'�G ~p��)'�C,�%F��E(��2�k�����lР�z�!�=t��_�0��f7�
��
;�p�|�U	�%<j
��I�#!/usr/local/cpanel/3rdparty/bin/perl

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

use strict;
use warnings;

use Cpanel::Hostname              ();
use Cpanel::Config::LoadCpConf    ();
use Cpanel::ApacheConf            ();
use Cpanel::Config::Httpd::IpPort ();
use Cpanel::Mailman::Filesys      ();

my @LISTS;
my $hostname = Cpanel::Hostname::gethostname();
my %CPCONF   = Cpanel::Config::LoadCpConf::loadcpconf();

my $from_upcp = ( @ARGV && grep( /^--from-upcp$/, @ARGV ) ) ? 1 : 0;
if ($from_upcp) {
    my $apc = Cpanel::ApacheConf::loadhttpdconf();
    if ( exists $apc->{$hostname} ) {
        if ( exists $apc->{$hostname}->{'address'} ) {
            my $ssl_port = Cpanel::Config::Httpd::IpPort::get_ssl_httpd_port();
            foreach my $addyref ( @{ $apc->{$hostname}->{'address'} } ) {
                if ( $addyref->{'ip'} eq '*' || $addyref->{'port'} eq $ssl_port ) {
                    next;
                }
                print 'Hostname Virtual Host is already setup' . "\n";
                exit;
            }
        }
    }
}

my $lists_dir = Cpanel::Mailman::Filesys::MAILING_LISTS_DIR();

# May not exist on a fresh install; that's okay.
if ( opendir my $list_dh, $lists_dir ) {
    @LISTS = readdir $list_dh;
    closedir $list_dh or warn "closedir($lists_dir) failed: $!";
    @LISTS = grep( /^[^_]+_/, @LISTS );
    my @args;
    foreach my $llist (@LISTS) {
        my @LLIST = split /_/, $llist;
        my $dns   = pop @LLIST;
        my $list  = join '_', @LLIST;

        push @args, $dns, $list;
    }
    if (@args) {
        if ( $CPCONF{'usemailformailmanurl'} eq "1" ) {
            system( "/usr/local/cpanel/bin/cp_mailman_mail2", @args );
        }
        else {
            system( "/usr/local/cpanel/bin/cp_mailman2", @args );
        }
    }
}