Gecko [ dealzandfreebies.com ]

Linux galileo.core-dns.net 4.18.0-553.121.1.lve.el8.x86_64 #1 SMP Thu Apr 30 16:40:41 UTC 2026 x86_64
LiteSpeed
Server IP : 104.255.170.81 & Your IP : 216.73.216.63
Domains : Cant Read [ /etc/named.conf ]
User : coachingcprog

Name	Size	Permission	Date
README.md	513 B	-rw-r--r--	2026-05-14 15:08
ea-podman-local-dir-setup	1.63 KB	-rwxr-xr-x	2026-05-14 15:08
ea-podman.json	281 B	-rw-r--r--	2026-05-14 15:08
pkg-version	8 B	-rw-r--r--	2026-05-14 15:08
podman_entrypoint.sh	68 B	-rwxr-xr-x	2026-05-14 15:08
redis.conf	91.54 KB	-rw-r--r--	2026-05-14 15:08

Rename

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - ea-podman-local-dir-setup                 Copyright 2022 cPanel, Inc.
#                                                           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;

package scripts::ea_podman_local_dir_setup;

use Path::Tiny 'path';
use Cwd ();

run(@ARGV) if !caller;

sub run {
    my ($host_path) = @_;

return add($host_path);
}

################
#### commands ##
################

sub add {
    my ($host_path) = @_;

my ( $user, $homedir ) = ( getpwuid($>) )[ 0, 7 ];

print "Adding a ea-redis62 instance for “$user” …\n";

my $curdir = Cwd::cwd();

{
        my $orig_umask = umask(0027);

mkdir $host_path;    # it may exist so don’t check it’s RV

die "Could not create directory “$host_path”" if !-d $host_path;
        chdir $host_path or die "Could not change into “$host_path”: $!\n";

path("/opt/cpanel/ea-redis62/podman_entrypoint.sh")->copy("podman_entrypoint.sh");
        path("podman_entrypoint.sh")->chmod(0750);

path("/opt/cpanel/ea-redis62/redis.conf")->copy("redis.conf");
        path("redis.conf")->chmod(0640);

umask($orig_umask);
    }

chdir $curdir or warn "Could not chdir back to “$curdir”: $!\n";
    print " … done!\n";

return;
}

###############
#### helpers ##
###############

sub _bail {
    my ($msg) = @_;

chomp($msg);
    warn "$msg\n";

exit(1);    # there is no return()ing from this lol
}