Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:39:19
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/setpostgresconfig
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/setpostgresconfig 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 #---------------------------------------------------------------------- # XXX XXX IMPORTANT!! XXX XXX # # This modulino is loaded and run as a module in at least one place. # Do NOT add exit() to this code! #---------------------------------------------------------------------- package scripts::setpostgresconfig; use strict; use warnings; use Whostmgr::Postgres (); use Cpanel::PwCache (); use Cpanel::FileUtils::TouchFile (); use Cpanel::PostgresAdmin (); use Cpanel::PostgresUtils (); use Cpanel::PostgresUtils::PgPass (); use Cpanel::Postgres::Connect (); # PPI USE OK -- This binary always needs to so ok perlcc ahead of time use Cpanel::Config::Users (); use Cpanel::Usage (); use Cpanel::SafeFile (); exit( run(@ARGV) ) unless caller(); my $dryrun = 0; my $force = 0; my $verbose = 0; sub run { my (@argv) = @_; my $dryrun = 0; my $force = 0; my $verbose = 0; my %opts = ( 'dryrun' => \$dryrun, 'dry-run' => \$dryrun, 'force' => \$force, 'verbose' => \$verbose, ); # ==== init process options Cpanel::Usage::wrap_options( \@argv, \&usage, \%opts ); $verbose = 1 if $dryrun; my $setup = scripts::setpostgresconfig->new( dryrun => $dryrun, force => $force, verbose => $verbose ); return $setup->check() ? 0 : 1; } sub new { my ( $class, %opts ) = @_; return bless {%opts}, $class; } sub check { my $self = shift; my @actions = qw{check_prerequires}; push @actions, 'check_first_upgrade' unless $self->{force}; push @actions, qw{update_config fix_users add_lock}; foreach my $action (@actions) { $self->msg("running action $action") if $self->{dryrun}; my $status = $self->$action(); return $status unless $status && $status == 1; } return 1; } sub check_prerequires { my $self = shift; return $self->by("Cannot find postgres version.") unless Whostmgr::Postgres::get_version(); return $self->by("Cannot find pgsql_data dir.") unless Cpanel::PostgresUtils::find_pgsql_data(); if ( $self->{force} && !-e _pg_hba_file() ) { my $pg_hba = _pg_hba_file(); Cpanel::FileUtils::TouchFile::touchfile($pg_hba); my $user = Cpanel::PostgresUtils::PgPass::getpostgresuser(); my ( $uid, $gid ) = ( Cpanel::PwCache::getpwnam($user) )[ 2, 3 ]; # If we change the uid/gid on the file we need to update Whostmgr::Postgres::update_config chown( $uid, $gid, $pg_hba ) or warn "Failed to chown($uid,$gid,$pg_hba): $!"; # If we change the mode on the file we need to update Whostmgr::Postgres::update_config chmod( 0600, $pg_hba ) or warn "Failed to chmod(0600,$pg_hba): $!"; } return $self->by("Cannot find pg_hba.conf.") unless -e _pg_hba_file(); return 1; } sub check_first_upgrade { my $self = shift; my $cfg; my $lock = Cpanel::SafeFile::safeopen( $cfg, '<', _pg_hba_file() ); return $self->by("cannot read config file") unless $lock; my $ok = grep { /^\s*local\s+samerole\s+all/ } (<$cfg>); Cpanel::SafeFile::safeclose( $cfg, $lock ); if ($ok) { $self->msg("Nothing todo, configuration looks fine."); # solve problem with users having already upgraded to 11.36.1 without the lock file $self->add_lock(); return -1; } return $self->by("Warning: pg_hba.conf was secured but entries have been removed ( you can run it with --force ).") if !$self->{force} && -e _version_file(); return 1; } sub add_lock { return Cpanel::FileUtils::TouchFile::touchfile( _version_file() ); } sub _version_file { return '/var/cpanel/version/pg_hba_conf_secured'; } sub _pg_hba_file { return join( '/', Cpanel::PostgresUtils::find_pgsql_data(), 'pg_hba.conf' ); } sub usage { my $prog = $0; $prog =~ s{^.+/(.+)$}{$1}; print <<EOF; $prog [options] [ -f FILE ] This script will improve postgres security : - update pg_hba.conf - create role foreach database - grant users to roles Modifiers Flags: --force - force to update config. --verbose - display some friendly verbose messages. --dry-run - do nothing and display some verbose messages. --help - dislay this help message and exit. EOF exit; } sub update_config { my $self = shift; my $dryrun = $self->{dryrun}; $self->msg( "-", $dryrun ? 'will' : '', "update postgres configuration" ); $self->msg("\tnothing done [dryrun]") and return if $dryrun; my ( $status, $message ) = Whostmgr::Postgres::update_config(); $self->by("Cannot update postgres config") unless $status; $self->msg($message) if $message; return Whostmgr::Postgres::reload(); } sub fix_users { my $self = shift; my $postgresadmin = Cpanel::PostgresAdmin->new( { 'cpuser' => 'root' } ); return 0 if !$postgresadmin; foreach my $cpuser ( Cpanel::Config::Users::getcpusers() ) { local $postgresadmin->{'cpuser'} = $cpuser; $postgresadmin->clear_map(); my @dbs = $postgresadmin->listdbs(); next unless scalar @dbs; $postgresadmin->setupdbrole( \@dbs ); my %dbusers = $postgresadmin->listusersindb(); foreach my $db ( keys %dbusers ) { foreach my $user ( @{ $dbusers{$db} } ) { $self->msg( '-', $dryrun ? 'will' : '', 'repair access to', $db, 'for user', $user ); next if $dryrun; $postgresadmin->addusertodb( $db, $user, 1 ); } } } return 1; } sub msg { my ( $self, @msg ) = @_; print join( ' ', @msg, "\n" ) if $self->{verbose}; return; } sub by { my ( $self, @msg ) = @_; $self->msg(@msg); return; } 1;
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18