Gecko [ thatnerdshow.com ]

Name	Size	Permission	Date
HTTP	[ DIR ]	drwxr-xr-x	2025-04-01 21:20
Common.pm	7.07 KB	-rw-r--r--	2025-04-01 21:20
CpanelConfig.pm	7.22 KB	-rw-r--r--	2025-04-01 21:20
CpanelGPG.pm	5.65 KB	-rw-r--r--	2025-04-01 21:20
CpanelLogger.pm	3.37 KB	-rw-r--r--	2025-04-01 21:20
CpanelMySQL.pm	5.17 KB	-rw-r--r--	2025-04-01 21:20
Installer.pm	46.74 KB	-rw-r--r--	2025-07-30 20:26
InstallerRhel.pm	25.62 KB	-rw-r--r--	2025-07-30 20:26
InstallerUbuntu.pm	9.15 KB	-rw-r--r--	2025-04-01 21:20
OSDetect.pm	4.87 KB	-rw-r--r--	2025-04-01 21:20
TIERS	1.76 KB	-rw-r--r--	2025-08-06 07:53
VERSION	75 B	-rw-r--r--	2025-07-30 20:26
apt-get-wait	1.85 KB	-rwxr-xr-x	2025-04-01 21:20
bootstrap	2.86 KB	-rwxr-xr-x	2025-04-01 21:20
bootstrap-dnsonly	41 B	-rwxr-xr-x	2025-04-01 21:20
bootstrap-wp2	37 B	-rwxr-xr-x	2025-04-01 21:20
dpkg-wait	1.85 KB	-rwxr-xr-x	2025-04-01 21:20
fix-cpanel-perl	28.82 KB	-rwx------	2025-08-06 07:53
guess.my.ip	13 B	-rw-r--r--	2025-08-06 07:53
install	5.8 KB	-rwxr-xr-x	2025-07-30 20:26
installlogo	181 B	-rw-r--r--	2025-04-01 21:20
installlogo-bw	165 B	-rw-r--r--	2025-04-01 21:20
installlogo-bw.wp2	466 B	-rw-r--r--	2025-04-01 21:20
installlogo.wp2	644 B	-rw-r--r--	2025-04-01 21:20
updatenow.static	1.91 MB	-rwxr-xr-x	2025-08-06 07:53
verify.license.xml	287 B	-rw-r--r--	2025-08-06 07:53

Rename

package Common;

#                                      Copyright 2024 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 IO::Handle ();
use IO::Select ();
use IPC::Open3 ();
use HTTP::Tiny ();    # Fatpacked.

use CpanelLogger;     # Must import!
use CpanelGPG    ();
use CpanelConfig ();

################################################################################
# Set up output handling code

################################################################################

sub ssystem {
    my @cmd     = @_;
    my $conf_hr = ref( $cmd[-1] ) eq 'HASH' ? pop(@cmd) : {};
    die "no command line passed to ssystem!" unless @cmd;

no warnings 'redefine';
    local *DEBUG = *DEBUG;
    *DEBUG = sub { }
      if $conf_hr->{'quiet'};

local $CpanelLogger::message_caller_depth = $CpanelLogger::message_caller_depth + 1;    # Set caller depth deeper during this sub so debugging it clearer.
    DEBUG( '- ssystem [BEGIN]: ' . join( ' ', @cmd ) );
    open( my $rnull, '<', '/dev/null' ) or die "Can't open /dev/null: $!";
    my $io  = IO::Handle->new;
    my $pid = IPC::Open3::open3( $rnull, $io, $io, @cmd );
    $io->blocking(0);

my $select = IO::Select->new($io);

my $exit_status;
    my $buffer                 = '';
    my $buffered_waiting_count = 0;
    while ( !defined $exit_status ) {
        while ( my $line = readline($io) ) {

# Push the buffer lacking a newline onto the front of this.
            if ($buffer) {
                $line   = $buffer . $line;
                $buffer = '';
            }

$line =~ s/\r//msg;    # Strip ^M from output for better log output.

# Internally buffer on newlines.
            if ( $line =~ m/\n$/ms ) {
                DEBUG( "  " . $line );
                $buffered_waiting_count = 0;
            }
            else {
                print "." if ( $buffered_waiting_count++ > 1 );
                $buffer = $line;
            }
        }

# Parse exit status or yield time to the CPU.
        if ( waitpid( $pid, 1 ) == $pid ) {
            DEBUG( "  " . $buffer ) if $buffer;
            $exit_status = $? >> 8;
        }
        else {

# Watch the file handle for output.
            $select->can_read(0.01);
        }
    }

if ($exit_status) {
        if ( !$conf_hr->{'ignore_errors'} ) {
            ERROR("  - ssystem [EXIT_CODE] '$cmd[0]' exited with $exit_status");
        }
        else {
            DEBUG("  - ssystem [EXIT_CODE] '$cmd[0]' exited with $exit_status (ignored)");
        }
    }

close($rnull);
    $io->close();

DEBUG('- ssystem [END]');

return $exit_status;
}

sub check_file_is_valid_xz {
    my ($file) = @_;

open( my $fh, '<:raw', $file ) or die "Cannot open file '$file': $!";

# read the first 6 bytes (the magic number)
    my $magic_number;
    my $bytes_read = read( $fh, $magic_number, 6 );

# check for incomplete downloads
    if ( defined $bytes_read && $bytes_read == 6 ) {

# seek to 2 bytes from the end of the file
        seek( $fh, -2, 2 );

my $footer;
        my $footer_read = read( $fh, $footer, 2 );

close($fh);

return $footer_read == 2 && $magic_number eq "\xFD\x37\x7A\x58\x5A\x00" && $footer eq "\x59\x5A";
    }

return 0;
}

sub cpfetch {
    my ( $url, %opts ) = @_;

if ( !$url ) {
        FATAL("The system called the cpfetch process without a URL.");
    }

my $file = _get_file( $url, %opts );
    return unless defined $file;

if ( $file =~ /\.bz2$/ ) {
        ssystem( "/usr/bin/bunzip2", $file );
    }

if ( CpanelConfig::signatures_enabled() ) {
        $url  =~ s/\.bz2$//g;
        $file =~ s/\.bz2$//g;

my $sig = _get_file("$url.asc");
        CpanelGPG::verify_file( $file, $sig, $url );
    }

if ( $file =~ /\.xz$/ ) {
        if ( check_file_is_valid_xz($file) ) {
            ssystem( "/usr/bin/unxz", $file );
        }
        else {
            FATAL(
                'The downloaded file is not in the expected format.

Ensure that the URLs in /etc/cpsources.conf are valid mirrors.'
            );
        }
    }

return;
}

sub _get_file {
    my ( $url, %opts ) = @_;

$url = 'http://' . CpanelConfig::source() . $url;

# NOTE: assumes no query or fragment in URL
    my @FILE = split( /\//, $url );
    my $file = pop(@FILE);

if ( -e $file ) {
        WARN("Warning: Overwriting the $file file...");
        unlink $file;
        FATAL("The system could not remove the $file file.") if ( -e $file );
    }

DEBUG("Retrieving $url to the $file file...");
    my ( $rc, $out ) = fetch_url_to_file( $url, $file );

if ( !-e $file || -z $file ) {
        unlink $file;
        FATAL("The system could not fetch the $file file: $out");
    }

return $file;
}

# $file can be '-' to return the output as a scalar, or the path to a file to download the given $url
sub fetch_url_to_file {
    my ( $url, $file ) = @_;

# wget fallback for our single https call. RHEL 6 does not have a new enough SSL stack.
    if ( $url =~ m/^https/i && HTTP::Tiny->can_ssl == 0 ) {
        unlink $file;
        ssystem( qw{/usr/bin/wget --no-verbose --inet4-only --output-document}, $file, $url );
        return ( 1, 'ok' ) if $? == 0 && -s $file;
    }

my $data_callback = sub {
        my ( $data, $progress ) = @_;

open( my $fh, '>>', $file ) or die("Cannot open $file for write");
        binmode $fh;
        print {$fh} $data;
        close $fh;
    };

my $download_failure_reason = '';

my $max = 3;
    foreach my $iter ( 1 .. $max ) {
        unlink $file;
        my $http     = HTTP::Tiny->new;
        my $response = $http->get( $url, { 'data_callback' => $data_callback } );
        return ( 1, 'ok' ) if $response && $response->{'success'};

$download_failure_reason = sprintf( "%s: %s", $response->{'status'} // 0, $response->{'reason'} // "unknown failure" );
        WARN("Call to URL '$url' failed, attempt [$iter/$max]");
        if ( $iter == $max ) {

# If HTTP::Tiny did not work, try with wget
            # wget has better handling for failed mirrors
            ssystem( qw{/usr/bin/wget --no-verbose --inet4-only --output-document}, $file, $url );
            return ( 1, 'ok' ) if $? == 0 && -s $file;

my $type = substr( $url, -4 ) eq '.asc' ? 'signature' : 'file';
            if ( $download_failure_reason =~ /^[4-5]\d\d/ ) {    # response code in 400s or 500s
                FATAL(
                    "Failed to download $type at URL $url: $download_failure_reason

Ensure that the URLs in /etc/cpsources.conf are valid mirrors
  and that the version number set in /etc/cpupdate.conf is a valid
  version number."
                );
            }
            else {
                FATAL("Failed to download $type at URL $url: $download_failure_reason");
            }
        }
        sleep 3;
    }

return ( 0, $download_failure_reason );
}

__ Bye Bye Litespeed _____ __ __| |___ ___ ___ ___ ___ | __| | v.1.3 | | | .'| . | . | .'| | |__ | |__ |_____|__,|_ |___|__,|_|_| |_____|_____| |___| ./Heartzz

Item Name	Size	Date	Permissions
.	4096	2026-03-15 04:33:51	0750
..	12288	2026-03-14 18:38:26	0711
.htaccess	2525	2025-12-30 23:14:50	0644
.well-known	4096	2025-12-15 14:54:22	0755
Albertmaync	1592	2026-03-14 18:07:37	0644
DanielVof	2546	2026-03-15 04:00:50	0644
DavidShied	3480	2026-03-15 03:49:42	0644
Dereknef	1699	2026-03-14 18:05:27	0644
KevinRit	2536	2026-03-15 04:01:14	0644
Lmh0YWNjZXNz	404	2026-03-14 18:09:26	0644
Richardswory	3521	2026-03-15 02:02:21	0644
Stevenler	2597	2026-03-14 19:11:01	0644
WilliamGep	3513	2026-03-15 04:33:51	0644
assets	4096	2025-12-11 22:32:26	0755
cell tower brokerage	95	2026-03-14 19:32:21	0644
cell tower consultant	103	2026-03-15 04:10:02	0644
connects.php	12859	2026-03-14 15:10:17	0644
digitalmagazine	4096	2025-12-11 16:03:57	0755
error_log	395390	2026-03-15 04:41:49	0644
images	4096	2025-12-11 16:04:06	0755
index.php	19853	2025-12-10 02:09:08	0444
license.txt	19903	2025-12-09 06:40:00	0644
readme.html	7425	2026-03-11 18:39:46	0644
wp-activate.php	7349	2025-12-09 06:40:00	0644
wp-admin	4096	2026-02-08 16:27:32	0755
wp-blog-header.php	522	2025-12-10 02:09:08	0444
wp-comments-post.php	2323	2025-10-03 05:00:54	0644
wp-config-sample.php	3339	2025-12-09 06:40:00	0644
wp-config.php	3720	2025-12-10 02:09:15	0644
wp-content	4096	2026-03-14 16:33:20	0755
wp-cron.php	5617	2025-10-03 05:00:54	0644
wp-includes	16384	2025-12-12 04:33:18	0755
wp-links-opml.php	2493	2025-12-09 06:40:00	0644
wp-load.php	4108	2025-12-10 02:09:08	0444
wp-login.php	51437	2025-12-09 06:40:00	0644
wp-mail.php	8727	2025-12-09 06:40:00	0644
wp-settings.php	31055	2025-12-10 02:09:15	0644
wp-signup.php	34516	2025-10-03 05:00:54	0644
wp-trackback.php	5214	2025-12-09 06:40:00	0644
xmlrpc.php	3205	2025-10-03 05:00:54	0644

Item Name

Size

Date

Permissions

View

Delete

Rename

4096

2026-03-15 04:33:51

0750

12288

2026-03-14 18:38:26