byp4a55 professor6T9

Linux ded7073.inmotionhosting.com 4.18.0-553.72.1.el8_10.x86_64 #1 SMP Tue Sep 2 06:07:48 EDT 2025 x86_64
Apache
209.182.213.109

File Name : proxydomains

#!/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->{'domain'}, 35 ) . $response->{'msg'} . "\n";
            }

print $msg . "\n" if $msg;
            return 1          if !$status;
        }
        elsif ($domain) {
            print "Adding service subdomains for domain ${domain}.\n";
            $args{'domain'} = $domain;
            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->{'domain'}, 35 ) . $response->{'msg'} . "\n";
            }

print $msg . "\n" if $msg;
            return 1          if !$status;
        }
        else {
            print "Adding service subdomains for all users.\n";
            print "This may take several minutes if there are many accounts on the system.\n";
            my $rsp = Cpanel::Proxy::setup_all_proxy_subdomains(%args);                       # issafe
            foreach my $response ( @{$rsp} ) {
                print _pad( $response->{'domain'}, 35 ) . $response->{'msg'} . "\n";
            }
            return 0;
        }
    }
    elsif ( $action eq 'remove' ) {
        if ($user) {
            print "Removing service subdomains for user ${user}.\n";
            $args{'user'} = $user;
            my ( $status, $msg, $results ) = Cpanel::Proxy::remove_proxy_subdomains(%args);    # issafe
            foreach my $response ( sort { $a->{'domain'} cmp $b->{'domain'} } @{ $results->{'domain_status'} || [] } ) {
                print _pad( $response->{'domain'}, 35 ) . $response->{'msg'} . "\n";
            }

print $msg . "\n" if $msg;
            return 1          if !$status;
        }
        elsif ($domain) {
            print "Removing service subdomains for domain ${domain}.\n";
            $args{'domain'} = $domain;
            my ( $status, $msg, $results ) = Cpanel::Proxy::remove_proxy_subdomains(%args);    # issafe
            foreach my $response ( sort { $a->{'domain'} cmp $b->{'domain'} } @{ $results->{'domain_status'} || [] } ) {
                print _pad( $response->{'domain'}, 35 ) . $response->{'msg'} . "\n";
            }

print $msg . "\n" if $msg;
            return 1          if !$status;
        }
        else {
            print "Removing service subdomains for all users.\n";
            print "This may take several minutes if there are many accounts on the system.\n";
            my $rsp = Cpanel::Proxy::remove_all_proxy_subdomains(%args) || [];                 # issafe
            foreach my $response ( @{$rsp} ) {
                print _pad( $response->{'domain'}, 35 ) . $response->{'msg'} . "\n";
            }
            return 0;
        }
    }

return 0;
}

sub _pad {
    my ( $text, $length ) = @_;

if ( length($text) > $length ) {
        return substr( $text, 0, ( $length - 1 ) ) . '…';
    }
    else {
        return $text . ( ' ' x ( $length - length $text ) );
    }
}

__END__

=head1 NAME

servicedomains - Add or remove service subdomains

=head1 SYNOPSIS

servicedomains [action] [options]

Options:
      --help                          Brief help message
      --man                           Full help message
      --user=                         User to configure
      --domain=                       Domain to configure
      --subdomain=                    Service subdomain to manipulate
      --no_replace=0                  Enable replacment of existing records (currently
                                      only used for changing autodiscover hosts)
      --old_autodiscover_host=        The previously configured autodiscover host (used
                                      for matching old records and updating them to the
                                      new host)
      --force_autodiscover_support=1  Behave as if the autodiscover support has not been
                                      disabled even if it has. This is useful for
                                      removing the autodiscovery service subdomains after
                                      the support for them has been disabled.
      --ifenabled                     Only perform the operation if service subdomains
                                      are enabled.

Actions:
      add          Create service subdomains
      remove       Remove service subdomains

=head1 DESCRIPTION

This script creates the DNS records required to use cpanel.domain.com,
webmail.domain.com, webdisk.domain.com, whm.domain.com, cpcontacts.domain.com,
and cpcalendars.domain.com service redirect domains. This script will add the
required subdomains to the main domain's DNS record without creating any
matching VirtualHost entry in httpd.conf. When the service domains setting in
the WebHostManger Tweak Settings has also been enabled, this will allow http
and https connections to cpanel.domain.com to be internally proxied to
port 2082, webmail.domain.com to port 2095, webdisk.domain.com to port 2077,
whm.domain.com to port 2086, and cpcalendars.domain.com and cpcontacts.domain.com
to port 2079.

When no --user or --domain argument is supplied this script will attempt to
configure the service subdomains for all cPanel accounts.

If no --user or --domain argument is supplied and
the system will not configure autoconfig, autodiscover, or SRV
records for domains that are not listed in /etc/localdomains.

When --subdomain is specified, this script will only add or remove the
specified service subdomain.  When no --subdomain is specified, it will
add or remove all four service subdomains.

The --ifenabled flag causes the script to immediately exit if service subdomains
are not enabled. This may be used as a convenience in cases where systems that
already have service subdomains need to have all of them updated, but systems that
don't have service subdomains should be left alone.

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2026-03-18 03:50:03
..	dir	-	root/root	0755	2026-03-17 11:24:57
adddomainkey	text/x-perl	1.15 KB	root/root	0755	2022-02-09 06:45:55
addlocaldomain	text/plain	2.23 KB	root/root	0755	2026-03-17 11:24:57
addspf	text/x-perl	3.75 KB	root/root	0755	2022-02-09 06:45:55
baksync		20.15 KB	root/root	0700	2026-03-02 03:10:07
build_maxemails_config	text/x-perl	1.14 KB	root/root	0755	2022-02-09 06:45:56
checkip	text/x-script.python	4.2 KB	root/root	0755	2026-03-17 11:24:57
chpass	text/x-perl	3.26 KB	root/root	0755	2022-02-09 06:45:57
create_db	text/plain	1.39 KB	root/root	0755	2026-03-17 11:24:57
dcv	text/x-shellscript	2.37 KB	root/root	0755	2026-03-17 11:24:57
downchk	text/x-shellscript	4.5 KB	root/root	0755	2026-03-17 11:24:57
editquota	text/x-perl	3.43 KB	root/root	0755	2025-02-11 05:07:53
exim_tidydb	text/x-perl	2.96 KB	root/root	0755	2022-02-09 06:45:56
ipusage	text/x-perl	7.45 KB	root/root	0755	2022-02-09 06:45:56
mysqlconnectioncheck	text/x-perl	6.72 KB	root/root	0755	2025-02-11 05:07:53
proxydomains	text/x-perl	9.59 KB	root/root	0755	2025-12-10 04:48:41
rmdomainkey	text/x-perl	1.15 KB	root/root	0755	2022-02-09 06:45:55
rmlocaldomain	text/plain	2.23 KB	root/root	0755	2026-03-17 11:24:57
rmpwb	text/plain	2.07 KB	root/root	0755	2026-03-17 11:24:57
rmspf	text/x-perl	910 B	root/root	0755	2022-02-09 06:45:55
runweblogs	text/x-perl	1.02 KB	root/root	0755	2022-02-09 06:45:57
sdig	text/x-shellscript	19.38 KB	root/root	0755	2026-03-17 11:24:57
server_overview	text/x-script.python	20.29 KB	root/root	0755	2026-03-17 11:24:57
simpleps	text/x-perl	3.05 KB	root/root	0755	2022-02-09 06:45:57
switch	text/x-script.python	1.98 KB	root/root	0755	2026-03-17 11:24:57
unblock	text/plain	2.73 KB	root/root	0755	2026-03-17 11:24:57
updateuserdomains	text/x-perl	774 B	root/root	0755	2022-02-09 06:45:57
usernano	text/x-script.python	783 B	root/root	0755	2026-03-17 11:24:57
validate_zone	text/x-script.python	1.08 KB	root/root	0755	2026-03-17 11:24:57
whoowns	text/x-perl	1.13 KB	root/root	0755	2016-09-13 04:25:31

Team Anon Force

https://t.me/Professor6T9x