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

# cpanel - scripts/resetmailmanurls               Copyright(c) 2013 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 Cpanel::Hostname           ();
use Cpanel::Config::LoadCpConf ();
use Cpanel::ApacheConf         ();
use Cpanel::Config::Httpd      ();
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::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 );

    foreach my $llist (@LISTS) {
        my @LLIST = split /_/, $llist;
        my $dns   = pop @LLIST;
        my $list  = join '_', @LLIST;

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