4:65 "li~ *j"Tf ۪bѿ h0 _I|Mjq؂File not found.   h 4:6 " laeJq@O\d bѿ } &^ #!/usr/local/cpanel/3rdparty/bin/perl # Copyright 2025 WebPros International, LLC # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited. package scripts::servicedomains; use strict; use warnings; use Cpanel::Config::LoadCpConf (); use Cpanel::Hostname (); use Cpanel::Proxy (); use Cpanel::Server::Type (); use Getopt::Long; use Pod::Usage; exit( __PACKAGE__->script(@ARGV) ); sub script { ## no critic qw(Subroutines::ProhibitExcessComplexity) my ( $class, @args ) = @_; if ( $> != 0 ) { die "Must be root to run $0"; } # process arguments my $help; my $user; my $domain; my $man; my $subdomain; my $force_autodiscover_support; my $allow_disabled; my $old_autodiscover_host; my $no_replace; my $ifenabled; Getopt::Long::GetOptionsFromArray( \@args, 'domain=s' => \$domain, 'force_autodiscover_support=s' => \$force_autodiscover_support, 'allow_disabled' => \$allow_disabled, 'help' => \$help, 'man' => \$man, 'no_replace=s' => \$no_replace, 'old_autodiscover_host=s' => \$old_autodiscover_host, 'subdomain=s' => \$subdomain, 'user=s' => \$user, 'ifenabled' => \$ifenabled, ) || pod2usage("Invalid options"); if ($ifenabled) { my $conf = Cpanel::Config::LoadCpConf::loadcpconf_not_copy(); if ( !$conf->{proxysubdomains} ) { print "Service subdomains are not enabled; there is nothing to do.\n"; return; } } my $action = shift @args || ( $help = 1 ); $action = lc $action if $action; # validate if ( $user && $domain ) { pod2usage("User and Domain cannot be specified at the same time"); } if ( ( $domain eq Cpanel::Hostname::gethostname() ) && Cpanel::Server::Type::is_dnsonly() ) { pod2usage("Service subdomains cannot be applied to the hostname of a DNSONLY system."); } if ( !$help && $action ne 'add' && $action ne 'remove' ) { pod2usage("Invalid action ($action) specified"); } my @subdomains; if ( defined $subdomain ) { @subdomains = split( m{,}, $subdomain ); if ( grep ( !m/^(?:webmail|webdisk|cpcalendars|cpcontacts|whm|cpanel|autoconfig|autodiscover)$/, @subdomains ) ) { pod2usage("Invalid subdomain specified, must be: whm, cpanel, webmail, webdisk, cpcalendars, cpcontacts, autoconfig, and autodiscover"); } } pod2usage( { -verbose => 2 } ) if $man; pod2usage(1) if $help; # dispatch my %args = (); if ($force_autodiscover_support) { $args{'force_autodiscover_support'} = 1; } if ($allow_disabled) { $args{'include_disabled'} = 1; } if ( defined $no_replace ) { $args{'no_replace'} = $no_replace; # we have to replace the old records } if ($old_autodiscover_host) { $args{'old_autodiscover_host'} = $old_autodiscover_host; } if (@subdomains) { $args{'subdomain'} = \@subdomains; } if ( $action eq 'add' ) { if ($user) { print "Adding service subdomains for user ${user}.\n"; $args{'user'} = $user; my ( $status, $msg, $results ) = Cpanel::Proxy::setup_proxy_subdomains(%args); # issafe foreach my $response ( sort { $a->{'domain'} cmp $b->{'domain'} } @{ $results->{'domain_status'} } ) { print _pad( $response->{'dom