1 "ˆl–Ãa¾”êeJq@ŠãO\dJbÑ¿Â ƒqзÁÀ;#!/usr/local/cpanel/3rdparty/bin/perl # Copyright 2025 WebPros International, LLC # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited. package scripts::installpostgres; use strict; use warnings; use Cpanel::Debug (); use Cpanel::OS (); use Cpanel::SafeRun::Simple (); use Cpanel::SysPkgs (); use Cpanel::Chkservd::Manage (); use Cpanel::PostgresUtils (); use Cpanel::PostgresUtils::PgPass (); use Cpanel::ServerTasks (); use Whostmgr::Postgres (); exit( run(@ARGV) // 0 ) unless caller(); sub help { my $msg = <; if ( $res !~ /^y/i ) { print "Exiting...\n"; exit(); } } return; } # replace system calls sub _run_and_log_cmd { ## no critic(RequireArgUnpacking) # doesn't make sense in this case Cpanel::Debug::log_debug( '[EXEC] ' . join( " ", @_ ) ); my $out = Cpanel::SafeRun::Simple::saferunallerrors(@_); chomp($out); Cpanel::Debug::log_info($out); return $out; } # Get more info with CPANEL_DEBUG_LEVEL set sub _debug_run_and_log_cmd { ## no critic(RequireArgUnpacking) # doesn't make sense in this case Cpanel::Debug::log_debug( '[EXEC] ' . join( " ", @_ ) ) if $Cpanel::Debug::level; my $out = Cpanel::SafeRun::Simple::saferunallerrors(@_); chomp($out); Cpanel::Debug::log_debug($out) if $Cpanel::Debug::level; return $out; } sub run { my @args = @_; return help() if grep { $_ eq '--help' } @args; die "cPanel does not support PostgreSQL on this system at this time!" unless Cpanel::OS::supports_postgresql(); my $restart_instruction = "\tsystemctl restart postgresql"; my $minversion = Cpanel::OS::postgresql_minimum_supported_version() . '.x'; if ( my $old_pg_home = Cpanel::PostgresUtils::find_pgsql_home() ) { my $notice = <<"EOS"; This script installs PostgreSQL $minversion or later. If your system runs an older version of PostgreSQL, you must dump your databases to a file, and then restore them after installation. PostgreSQL $minversion is NOT backwards compatible. If no PostgreSQL databases exist on your system, run the following command to force the creation of a PostgreSQL $minversion -style setup: \tmv $old_pg_home $old_pg_home.old $restart_instruction Do not run this command if databases exist that you wish to keep! Are you certain that you wish to proceed? [y/(n)]: EOS prompt( $notice, @args ); } else { my $notice = <<"EOS"; This script installs PostgreSQL $minversion or later. Are you certain that you wish to proceed? [y/(n)]: EOS prompt( $notice, @args ); } Cpanel::Debug::log_info("Installing Postgres..."); my $syspkgobj = Cpanel::SysPkgs->new(); if ( !$syspkgobj ) { die Cpanel::Debug::log_error("The system could not create the SysPkgs object."); } $syspkgobj->install( 'pkglist' => Cpanel::OS::postgresql_packages() ); my $pg_user = Cpanel::PostgresUtils::PgPass::getpostgresuser(); my $pg_home = Cpanel::PostgresUtils::find_pgsql_home( 'user' => $pg_user ); my $pg_data = Cpanel::PostgresUtils::find_pgsql_data( 'home' => $pg_home ); my @cmd; foreach my $alias ( @{ Cpanel::OS::postgresql_service_aliases() } ) { my $service = 'postgresql'; if ( !-e "/etc/init.d/$service" && -e "/etc/init.d/$alias" ) { symlink( $alias, "/etc/init.d/$