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 OSDetect;

#                                      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;

## NOTE: This code has been copied from Cpanel/OS/SysPerlBootstrap.pm with minor modifications.

=encoding utf-8

=head1 NAME

Cpanel::OS::SysPerlBootstrap - SysPerlBootstrap logic used by Cpanel::OS

=head1 DO NOT USE THIS MODULE DIRECTLY

This code is intended to be system and cpanel perl compatible and to be consumed only in very specific circumstances.

Instead use L<Cpanel::OS> directly, and as its POD outlines, do not do logic on the OS info to determine what it is you need.

=head1 FUNCTIONS

=head2 get_os_info ($iknowwhatimdoing)

Please use Cpanel::OS for your OS info needs.
This is an internal helper to Cpanel::OS to get the
- distro
- major
- minor
- build id

=cut

use constant CACHE_FILE        => "/var/cpanel/caches/Cpanel-OS";
use constant CACHE_FILE_CUSTOM => CACHE_FILE . '.custom';

sub get_os_info {
    my @os_info = _read_os_info_cache();
    return @os_info if @os_info;

if ( -e '/etc/redhat-release' ) {
        @os_info = _read_redhat_release();
    }
    elsif ( -e '/etc/os-release' ) {    # Only Ubuntu doesn't provide redhat-release
        @os_info = _read_os_release();
    }

my ( $distro, $major, $minor, $build ) = @os_info;

if ( grep { !length $_ } ( $distro, $major, $minor, $build ) ) {
        die sprintf( "Could not determine OS info (distro: %s, major: %s, minor: %s, build: %s)\n", $distro // '', $major // '', $minor // '', $build // '' );
    }

return ( $^O, $distro, $major, $minor, $build );
}

=head2 clear(%opts)

Clear the /var/cpanel/caches/Cpanel-OS file
(optionally the .custom file too)

clear();
    clear( custom => 1 );

=cut

sub clear {
    my (%opts) = @_;

unlink CACHE_FILE;
    unlink CACHE_FILE_CUSTOM if $opts{custom};

return;
}

=head2 _read_os_info_cache()

Read the previous cached values from /var/cpanel/caches/Cpanel-OS

=cut

sub _read_os_info_cache {

my $cpanel_os_cache_file = CACHE_FILE;

# If we've cached the information, just use it.
    my $cache_mtime = ( lstat $cpanel_os_cache_file )[9] or return;

my $custom_os = readlink "$cpanel_os_cache_file.custom";

# Do we need to cache bust?
    if ( !$custom_os ) {
        my $os_rel_mtime = ( stat("/etc/os-release") )[9];
        $os_rel_mtime //= ( stat("/etc/redhat-release") )[9];    # in the case of cloudlinux 6, we check against this instead

# Bail out only if one of the release files is present since the cache file is suddenly our only valid source of truth.
        return if ( defined($os_rel_mtime) && $cache_mtime <= $os_rel_mtime );
    }

return split /\|/, readlink($cpanel_os_cache_file);
}

=head2 _read_os_release()

Internal helper to read /etc/os-release

=cut

sub _read_os_release {
    open( my $os_fh, "<", "/etc/os-release" ) or die "Could not open /etc/os-release for reading: $!\n";

my ( $distro, $ver, $ver_id );
    while ( my $line = <$os_fh> ) {
        my ( $key, $value ) = split( qr/\s*=\s*/, $line, 2 );
        chomp $value;
        $value =~ s/\s.+//;
        $value =~ s/"\z//;
        $value =~ s/^"//;

if ( !$distro && $key eq "ID" ) {
            $distro = $value;
        }
        elsif ( !$ver_id && $key eq "VERSION_ID" ) {
            $ver_id = $value;
        }
        elsif ( !$ver && $key eq "VERSION" ) {
            $ver = $value;
        }

last if length $distro && length $ver && length $ver_id;
    }
    close $os_fh;

# ver_id is often enough.
    my ( $major, $minor, $build ) = split( qr/\./, $ver_id );
    return unless $distro;    # We have to at a minimum have a distro name. All hope is lost otherwise.

unless ( length $major && length $minor && length $build ) {
        my ( $ver_major, $ver_minor, $ver_build ) = split( qr/\./, $ver );
        $major //= $ver_major;
        $minor //= ( $ver_minor // 0 );
        $build //= ( $ver_build // 0 );
    }

return ( $distro, $major, $minor, $build );
}

=head2 _read_redhat_release()

Internal helper to read /etc/redhat-release

=cut

sub _read_redhat_release {
    open( my $cr_fh, "<", "/etc/redhat-release" ) or die "Could not open /etc/redhat-release for reading: $!\n";
    my $line = <$cr_fh>;
    chomp $line;

my ($distro) = $line =~ m/^(\w+)/i;
    $distro = lc($distro);
    $distro = 'rhel' if $distro eq 'red';

my ( $major, $minor, $build ) = $line =~ m{\b([0-9]+)\.([0-9]+)\.([0-9]+)};
    if ( !$major ) {
        ( $major, $minor ) = $line =~ m{\b([0-9]+)\.([0-9]+)};
    }
    if ( !$major ) {
        ($major) = $line =~ m{\b([0-9]+)};
    }
    $minor //= 0;
    $build //= 0;

return ( $distro, $major, $minor, $build );
}

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

Item Name	Size	Date	Permissions
.	4096	2026-03-14 23:36:20	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	2549	2026-03-14 23:36:20	0644
Dereknef	1699	2026-03-14 18:05:27	0644
KevinRit	2522	2026-03-14 23:36:19	0644
Lmh0YWNjZXNz	404	2026-03-14 18:09:26	0644
Stevenler	2597	2026-03-14 19:11:01	0644
assets	4096	2025-12-11 22:32:26	0755
cell tower brokerage	95	2026-03-14 19:32:21	0644
connects.php	12859	2026-03-14 15:10:17	0644
digitalmagazine	4096	2025-12-11 16:03:57	0755
error_log	257285	2026-03-15 01:46:47	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-14 23:36:20

0750

12288

2026-03-14 18:38:26