1 #ˆl–ß=¿JJj"Tâ‚ ÆÃq—Tţ ƒh¹ÁÀ¿DMA32 #ˆl–Ðz¾” Ja,j�nã"¸©‹Fÿà ƒ ͹ÂÁÀ@a ÿé!^,ã@sHdZddlZddlZGdd„deƒZGdd„deƒZGdd„deƒZdS) z!Exception classes used by PexpectéNcs0eZdZdZ‡fdd„Zdd„Zdd„Z‡ZS)ÚExceptionPexpectz9Base class for all exceptions raised by this module. cstt|ƒ |¡||_dS©N)ÚsuperrÚ__init__Úvalue)Úselfr©Ú __class__©ú6/usr/lib/python3.9/site-packages/pexpect/exceptions.pyr szExceptionPexpect.__init__cCs t|jƒSr)Ústrr)rr r r Ú__str__szExceptionPexpect.__str__cCs4t t ¡d¡}dd„|Dƒ}t |¡}d |¡S)z¬This returns an abbreviated stack trace with lines that only concern the caller. In other words, the stack trace inside the Pexpect module is not included. écSs(g|] }d|dvrd|dvr|‘qS)zpexpect/__init__rzpexpect/expectr )Ú.0Úitemr r r Ú s ÿz.ExceptionPexpect.get_trace..Ú)Ú tracebackÚ extract_tbÚsysÚexc_infoÚ format_listÚjoin)rZtblistr r r Ú get_traces zExceptionPexpect.get_trace)Ú__name__Ú __module__Ú __qualname__Ú__doc__rr rÚ __classcell__r r rr rs rc@seZdZdZdS)ÚEOFzRRaised when EOF is read from a child. This usually means the child has exited.N©rrrrr r r r rsrc@seZdZdZdS)ÚTIMEOUTz-Raised when a read time exceeds the timeout. Nr r r r r r!"sr!)rrrÚ Exceptionrrr!r r r r Ús #ˆl–Ãa¾” Šj"Tâ€zãm\h bÑ¿Ä ƒd@ÃÂÁ ‰#!/usr/local/cpanel/3rdparty/bin/perl # Copyright 2026 WebPros International, LLC # 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::DIp::MainIP (); use Cpanel::DnsUtils::Add (); use Cpanel::Hooks (); use Cpanel::Validate::Domain::Tiny (); use Cpanel::Validate::Domain::Normalize (); use Cpanel::Validate::IP::v4 (); use Getopt::Long (); my ( $domain, $ip, $reseller, $allowoverwrite, $trueowner ); my $opts = Getopt::Long::GetOptions( 'domain=s' => \$domain, 'ip=s' => \$ip, 'reseller=s' => \$reseller, 'overwrite' => \$allowoverwrite, 'owner=s' => \$trueowner ); # Domain if ( !$domain ) { show_usage(); exit 1; } else { $domain = Cpanel::Validate::Domain::Normalize::normalize($domain); if ( !Cpanel::Validate::Domain::Tiny::validdomainname($domain) ) { print "No valid domain specified.\n"; show_usage(); exit 1; } } # IP if ( !$ip || !Cpanel::Validate::IP::v4::is_valid_ipv4($ip) ) { $ip = Cpanel::DIp::MainIP::getmainip(); print "No valid IP specified. Using $ip\n"; } # Reseller if ( !$reseller ) { $reseller = 'root'; } # Allow Over Write if ($allowoverwrite) { if ( $allowoverwrite =~ m/^n/i ) { $allowoverwrite = 0; } else { $allowoverwrite = 1; } } else { $allowoverwrite = 0; } $trueowner ||= 'root'; my $hook_data = { 'domain' => $domain, 'ip' => $ip, 'trueowner' => $trueowner, 'reseller' => $reseller, 'allowoverwrite' => $allowoverwrite, }; my $pre_hook_info = { 'category' => 'Whostmgr', 'event' => 'Domain::zone_add', 'stage' => 'pre', 'blocking' => 1, }; my ( $pre_hook_result, $hook_ms