1 11File not found. 93lz Jj"Tҁzţ a4()P@W-3#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/updatesigningkey 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 package updatesigningkey; use strict; use Cpanel::Crypt::GPG::VendorKeys (); use Cpanel::Usage (); sub main { my @argv = @_; my ( $force, $noverify, $url, $vendor, $category ); my $opts = { noverify => \$noverify, url => \$url, vendor => \$vendor, category => \$category, force => \$force, }; if ( Cpanel::Usage::wrap_options( \@argv, \&usage, $opts ) ) { return 0; } my $key; if ( $url || $vendor || $category ) { if ( $url && $vendor && $category ) { $key = [ { url => $url, vendor => $vendor, category => $category, }, ]; } else { print "URL, Vendor, and Category must all be specified."; return 1; } } my $s = Cpanel::Crypt::GPG::VendorKeys::download_public_keys( noverify => $noverify, keys => $key, force => $force, ); return $s ? 0 : 1; } sub usage { print < This script grabs the cPanel signing keys and inserts them into the vendor keychain used to validate assets downloaded from the cPanel mirrors. Options: --help Brief help message --noverify Disables SSL hostname verification. --url URL to fetch ascii armored keys from. --vendor Key vendor. --category Key category. --force Force Key Refresh USAGE return; } unless ( caller() ) { exit main(@ARGV); } 1; 5ž5File not found. "7lY>D  rS 8957#!/usr/bin/sh # Copyright (c) 2005 Silicon Graphics, Inc. # All rights reserved. # # Nathan Scott # 14 Sep 2005 Initial version # TRACEOPTS="" PARSEOPTS="-b100000" USAGE="Usage: btrace [-s] [-t] [-w N] [-n N] [-b N] [-a ...] [-r ] ..." DIRNAME=`dirname $0` while getopts "a:w:n:b:r:sthv" c do case $c in a) TRACEOPTS=$TRACEOPTS" -a "$OPTARG" ";; w) TRACEOPTS=$TRACEOPTS" -w "$OPTARG" ";; n) TRACEOPTS=$TRACEOPTS" -n "$OPTARG" ";; b) TRACEOPTS=$TRACEOPTS" -b "$OPTARG" ";; r) TRACEOPTS=$TRACEOPTS" -r "$OPTARG" ";; s) PARSEOPTS=$PARSEOPTS" -s";; t) PARSEOPTS=$PARSEOPTS" -t";; h) PARSEOPTS=$PARSEOPTS" -h";; v) PARSEOPTS=$PARSEOPTS" -v";; \?) echo $USAGE 1>&2 exit 2 ;; esac done shift `expr $OPTIND - 1` if [ $# -eq 0 ]; then echo $USAGE 1>&2 exit 2 fi ${DIRNAME}/blktrace ${TRACEOPTS} -o- $@ | ${DIRNAME}/blkparse ${PARSEOPTS} -i- 9ƿ9File not found. ; i5H;#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/fixetchosts 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 package scripts::fixetchosts; use strict; use Cpanel::SafeFile (); use Cpanel::Validate::Hostname (); use Cpanel::IP::Loopback (); use Cpanel::DIp::MainIP (); use Cpanel::Sys::Hostname::FQDN (); use Cpanel::FileUtils::TouchFile (); use IO::Handle (); exit script(@ARGV) unless caller; sub script { return run('/etc/hosts'); } sub run { my ($file) = @_; my $mainip = Cpanel::DIp::MainIP::getmainserverip(); my $hostname = Cpanel::Sys::Hostname::FQDN::get_fqdn_hostname(); my $s