Fallagassrini Bypass Shell

echo"Fallagassrini ";

Current Path : /usr/share/lve/modlscapi/utils/

Linux 141.162.178.68.host.secureserver.net 3.10.0-1160.114.2.el7.x86_64 #1 SMP Wed Mar 20 15:54:52 UTC 2024 x86_64

Current File : //usr/share/lve/modlscapi/utils/getuserdomains.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 Cpanel::DomainLookup             ();
use Data::Dumper;
use Cpanel::Config::Users         ();

sub getdocrootlist_my {
    my $user         = shift;                # optional
    my %DOCROOTS     = ();
    my $docroots_ref = Cpanel::DomainLookup::getdocroots($user);
    foreach my $domain ( keys %{$docroots_ref} ) {
        print $user, "\t",$domain, "\n";
    }
}


my @users =Cpanel::Config::Users::getcpusers();
foreach my $user (@users) {
    getdocrootlist_my($user);
}

bypass 1.0, Devloped By El Moujahidin (the source has been moved and devloped)
Email: contact@elmoujehidin.net