BLACKSITE


	: 216.73.217.4
	: 104.37.75.190 / alpenpass.ca
	: Linux server3.pointsplan.com 5.14.0-503.38.1.el9_5.x86_64 #1 SMP PREEMPT_DYNAMIC Fri Apr 18 08:52:10 EDT 2025 x86_64

: /scripts/

files >> //scripts/cpfetch

 #!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/cpfetch                         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

use strict;

use Cpanel::HttpRequest     ();
use Cpanel::Config::Sources ();

$| = 1;

my @remaining_args;
my $signed = 0;

while (@ARGV) {
    my $arg = shift @ARGV;

    if ( $arg eq '--signed' ) {
        $signed = 1;
    }
    else {
        push @remaining_args, $arg;
    }
}

my $url = $remaining_args[0];

my $httpClient = Cpanel::HttpRequest->new(
    'hideOutput' => 0,
    'signed'     => $signed,
);

if ( !$url ) {
    die 'No file specified';
}
elsif ( $url !~ /^http/ ) {
    my $sources = Cpanel::Config::Sources::loadcpsources();
    $url = 'http://' . $sources->{'HTTPUPDATE'} . '/' . $url;
}

my $file;
if ( !defined $ARGV[1] || $ARGV[1] eq '' ) {
    my @FILE = split( /\//, $url );
    $file = pop(@FILE);
}
else {
    $file = $ARGV[1];
}

if ( !-e $file ) {
    $httpClient->download( $url, $file );
}

if ( !-e $file ) {
    die "Unable to fetch file $file.";
}

exit 1;