| Server IP : 217.18.85.50 / Your IP : 3.147.56.125 Web Server : LiteSpeed System : Linux server50.tr85.dhs.com.tr 3.10.0-962.3.2.lve1.5.85.el7.x86_64 #1 SMP Thu Apr 18 15:18:36 UTC 2024 x86_64 User : ferhatgenc ( ) PHP Version : 7.2.34 Disable Function : restore_ini,mail,openbasedir,f_open,system,dl,array_compare,array_user_key_compare,passthru,cat,exec,popen,proc_close,proc_get_status,proc_nice,proc_open,escapeshellcmd,escapeshellarg,show_source,posix_mkfifo,ini_restore,mysql_list_dbs,getmyuid,pconnect,link,symlink,fin,passthruexec,fileread,shell_exec,pcntl_exec,ini_alter,leak,apache_child_terminate,chown,posix_kill,posix_setpgid,posix_setsid,posix_setuid,proc_terminate,syslog,allow_url_fopen,fpassthru,execute,shell,chgrp,passthru,socket_select,socket_create,socket_create_listen,socket_create_pair,socket_listen,socket_accept,socket_bind,foreach,socket_strerror,pcntl_fork,pcntl_signal,pcntl_waitpid,pcntl_wexitstatus,pcntl_wifexited,pcntl_wifsignaled,pcntl_wifstopped,pcntl_wstopsig,pcntl_wtermsig,openlog,apache_get_version,apache_getenv,apache_note,apache_setenv,virtualal MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /opt/cloudlinux/venv/bin/ |
Upload File : |
#!/bin/bash
# Copyright © Cloud Linux GmbH & Cloud Linux Software, Inc 2010-2018 All Rights Reserved
#
# Licensed under CLOUD LINUX LICENSE AGREEMENT
# http://cloudlinux.com/docs/LICENSE.TXT
eval 'if [ -x /usr/local/cpanel/3rdparty/bin/perl ]; then exec /usr/local/cpanel/3rdparty/bin/perl -x -- $0 ${1+"$@"}; else exec /usr/bin/perl -x $0 ${1+"$@"}; fi;'
if 0;
#!/usr/bin/perl
#BEGIN { unshift @INC, '/scripts'; }
BEGIN { unshift @INC, '/usr/local/cpanel', '/scripts'; }
my $pckg_name = 'Cpanel';
use strict;
use warnings;
eval "use " .$pckg_name . "::Config::Users ();";
if ($@){
$pckg_name = 'cPScript';
eval "use " .$pckg_name . "::Config::Users ();";
}
#eval "use " .$pckg_name . "::Config::Users ();";
eval "use " .$pckg_name . "::DB::Map ();";
eval "use " .$pckg_name . "::DB ();";
use Data::Dumper;
my @old = ();
my @new = ();
my @copy_new = ();
my $noSystemUsers = ($#ARGV >= 0 && $ARGV[0] eq "--nosys");
if ($noSystemUsers) {
shift @ARGV;
}
my $numArgs = $#ARGV + 1;
if($numArgs>0){
foreach my $mb (@ARGV) {
if($mb>0){
my $uname_1 = getpwuid($mb);
@new = get_map_list_user_($uname_1);
foreach my $item (@new){
my $fnd = 0;
foreach my $item2 (@old){
if (($$item[0] eq $$item2[0]) && ($$item[1] eq $$item2[1])){
$fnd = 1;
last;
}
}
if($fnd==0){
push @old, $item;
}
}
}
}
foreach my $item (@old){
print $$item[0], " ", $$item[1], " ", $$item[2], "\n";
}
} else {
@new = get_map_list_();
@copy_new = map { [@$_] } @new;
my @del_list = ();
my @del_list2 = ();
my $i=0;
my $j=0;
foreach my $item (@new){
$j=0;
my $del = 0;
foreach my $item2 (@old){
if (($$item[0] eq $$item2[0]) && ($$item[1] eq $$item2[1])){
push @del_list, $j;
$del = 1;
}
$j++;
}
if($del==1){
push @del_list2, $i;
}
$i++;
}
foreach my $item (@del_list){
delete $old[$item];
}
foreach my $item (@del_list2){
delete $new[$item];
}
@old = grep {$_} @old;
@new = grep {$_} @new;
my $cnt_old = @old;
my $cnt_new = @new;
if($cnt_old>0 || $cnt_new>0){
foreach my $item (@copy_new){
print $$item[0], " ", $$item[1], " ", $$item[2], "\n";
}
}
}
sub get_map_list_ {
my @arr = ();
my @users =Cpanel::Config::Users::getcpusers();
foreach my $user (@users) {
my $user_map1 = Cpanel::DB::get_map ( {'cpuser' => $user} );
my $name="";
my $uid= -1;
my $dummy;
($name, $dummy, $uid, $dummy, $dummy, $dummy, $dummy, $dummy, $dummy) = getpwnam($user);
if ($uid>=0 && !$noSystemUsers){
push @arr, [ $user, $user, "$uid" ];
}
if ($uid>=0 && exists($$user_map1{'stash'}{'MYSQL'}{'dbusers'})){
for my $key (keys %{$$user_map1{'stash'}{'MYSQL'}{'dbusers'}}) {
push @arr, [ $key, $user, "$uid" ];
}
}
}
return @arr;
}
sub get_map_list_user_ {
my @arr = ();
my $user = shift;
my $user_map1 = Cpanel::DB::get_map ( {'cpuser' => $user} );
my $name = "";
my $uid = -1;
my $dummy;
($name, $dummy, $uid, $dummy, $dummy, $dummy, $dummy, $dummy, $dummy) = getpwnam($user);
if ($uid>=0 && !$noSystemUsers){
push @arr, [ $user, $user, "$uid" ];
}
if ($uid>=0 && exists($$user_map1{'stash'}{'MYSQL'}{'dbusers'})){
for my $key (keys %{$$user_map1{'stash'}{'MYSQL'}{'dbusers'}}) {
push @arr, [ $key, $user, "$uid" ];
}
}
return @arr;
}