SWAMPy

✎ CARVE FLESH

EDITING: getdocroots.pm

#!/bin/sh
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

# Copyright (c) Cloud Linux GmbH & Cloud Linux Software, Inc 2010-2018 All Rights Reserved
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#    http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

BEGIN { unshift @INC, '/usr/local/cpanel', '/scripts'; }

use strict;
use Data::Dumper;
use Cpanel::DomainLookup          ();
use Cpanel::Config::Users         ();

my @users =Cpanel::Config::Users::getcpusers();
foreach my $user (@users) {
    my @pathes = Cpanel::DomainLookup::getdocrootlist($user);
    foreach my $path (@pathes) {
        my @k = keys %{$path};
        foreach my $path_i (@k) {
            print "$user $path_i\n";
        }
    }
}

CANCEL

Name	Type	Size	Modified	Actions
↩ ..	DIR	—	—
📄 checkconfdutil.pm	PM	2.5 KB	2026-08-11 22:47	EDIT
📄 cpanel-delete-lve	?	1.9 KB	2026-08-11 22:47	EDIT
📄 cpanel-hooks-lve	?	4.5 KB	2026-08-11 22:47	EDIT
📄 cpanel-make-lve	?	984 B	2026-08-11 22:47	EDIT
📄 cpanel_hooks_manage.py	PY	3.5 KB	2026-08-11 22:47	EDIT
📄 getdocroot.pm	PM	2.8 KB	2026-08-11 22:47	EDIT
📄 getdocroots.pm	PM	1.3 KB	2026-08-11 22:47	EDIT
📄 getuserdomains.pm	PM	1.4 KB	2026-08-11 22:47	EDIT
📄 inserphpconf.pm	PM	2.5 KB	2026-08-11 22:47	EDIT
📄 lsapi-cache	?	1 KB	2026-08-11 22:47	EDIT