Gecko [ goons4good.org ]

Name	Size	Permission	Date
Activate.ps1	8.82 KB	-rw-r--r--	2026-01-20 08:00
activate	1.65 KB	-rw-r--r--	2026-01-20 08:00
activate.csh	915 B	-rw-r--r--	2026-01-20 08:00
activate.fish	2.14 KB	-rw-r--r--	2026-01-20 08:00
alembic	202 B	-rwxr-xr-x	2026-01-20 08:00
cagefs_enter_site.py	1.83 KB	-rwxr-xr-x	2026-01-20 09:14
chardetect	210 B	-rwxr-xr-x	2026-01-20 08:00
cl_sysctl	4.51 KB	-rwxr-xr-x	2026-01-20 09:08
clcpapi	3.64 KB	-rwxr-xr-x	2026-01-20 09:08
coverage	204 B	-rwxr-xr-x	2026-01-20 08:00
coverage-3.11	204 B	-rwxr-xr-x	2026-01-20 08:00
coverage3	204 B	-rwxr-xr-x	2026-01-20 08:00
cpanel-dbmapping	3.83 KB	-rwxr-xr-x	2026-01-20 09:08
crontab-user-wrapper.py	2.46 KB	-rwxr-xr-x	2026-01-20 09:14
da_suid_caller.py	686 B	-rw-r--r--	2026-01-20 09:08
detect-requirements	211 B	-rwxr-xr-x	2026-01-20 08:00
dodgy	197 B	-rwxr-xr-x	2026-01-20 08:00
epylint	208 B	-rwxr-xr-x	2026-01-20 08:00
f2py	205 B	-rwxr-xr-x	2026-01-20 08:00
f2py3	205 B	-rwxr-xr-x	2026-01-20 08:00
f2py3.11	205 B	-rwxr-xr-x	2026-01-20 08:00
flake8	203 B	-rwxr-xr-x	2026-01-20 08:00
futurize	204 B	-rwxr-xr-x	2026-01-20 08:00
get_gprof	1.84 KB	-rwxr-xr-x	2026-01-20 08:00
get_objgraph	1.63 KB	-rwxr-xr-x	2026-01-20 08:00
isort	198 B	-rwxr-xr-x	2026-01-20 08:00
isort-identify-imports	232 B	-rwxr-xr-x	2026-01-20 08:00
jsonschema	202 B	-rwxr-xr-x	2026-01-20 08:00
lvestats_config_reader.py	1.12 KB	-rw-r--r--	2025-12-10 09:16
mako-render	202 B	-rwxr-xr-x	2026-01-20 08:00
normalizer	233 B	-rwxr-xr-x	2026-01-20 08:00
pasteurize	206 B	-rwxr-xr-x	2026-01-20 08:00
pip	237 B	-rwxr-xr-x	2026-01-20 08:00
pip3	237 B	-rwxr-xr-x	2026-01-20 08:00
pip3.11	237 B	-rwxr-xr-x	2026-01-20 08:00
plesk_suid_caller.py	905 B	-rw-r--r--	2026-01-20 09:08
prospector	202 B	-rwxr-xr-x	2026-01-20 08:00
py.test	210 B	-rwxr-xr-x	2026-01-20 08:00
pycodestyle	201 B	-rwxr-xr-x	2026-01-20 08:00
pydocstyle	202 B	-rwxr-xr-x	2026-01-20 08:00
pyflakes	200 B	-rwxr-xr-x	2026-01-20 08:00
pylint	206 B	-rwxr-xr-x	2026-01-20 08:00
pylint-config	222 B	-rwxr-xr-x	2026-01-20 08:00
pyreverse	212 B	-rwxr-xr-x	2026-01-20 08:00
pysemver	198 B	-rwxr-xr-x	2026-01-20 08:00
pytest	210 B	-rwxr-xr-x	2026-01-20 08:00
python	6.98 KB	-rwxr-xr-x	2026-01-07 17:06
python3	6.98 KB	-rwxr-xr-x	2026-01-07 17:06
python3.11	6.98 KB	-rwxr-xr-x	2026-01-07 17:06
raven	208 B	-rwxr-xr-x	2026-01-20 08:00
symilar	208 B	-rwxr-xr-x	2026-01-20 08:00
tap	196 B	-rwxr-xr-x	2026-01-20 08:00
tappy	196 B	-rwxr-xr-x	2026-01-20 08:00
undill	603 B	-rwxr-xr-x	2026-01-20 08:00
virtualenv	227 B	-rwxr-xr-x	2026-01-20 08:00

Rename

#!/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;
}