4294966784 7 Zs_I|Mdv &K Index of /FSS-OZR/root/usr/lib/python3.9/site-packages/firewall/core

Index of /FSS-OZR/root/usr/lib/python3.9/site-packages/firewall/core

 NameLast modifiedSizeDescription
 Parent Directory   -  
 __pycache__/ 2026-03-12 06:21 -  
 io/ 2026-03-12 06:21 -  
 _I|Mjq؂ File not found. " lz Jj"Tҁzţ iгi #!/bin/bash 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 # cpanel - scripts/unpkgacct 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 # NOTE: This script is designed to run on other systems during a transfer, usually as /usr/bin/perl. package scripts::unpkgacct; BEGIN { unshift @INC, '/usr/local/cpanel'; my %seen_inc; @INC = grep { !/(?:^\.|\.\.|\/\.+)/ && !$seen_inc{$_}++ } @INC; undef %seen_inc; } require 5.006; use Errno; our $VERSION = '1.0'; run(@ARGV) if !caller; sub run { my (@argv) = @_; local $| = 1; if ( grep { m{version} } @argv ) { print "unpkgacct VERSION $VERSION\n"; return; } my ( $user, $mntpoint ) = @argv; if ( !_is_sane_username($user) && !enXim($user) ) { die "$0: invalid account “$user”\n"; } #die() is for sanity $mntpoint ||= getmntpoint() || die 'Failed to find mountpoint!'; my @paths_to_check = ( "$mntpoint/cpmove-${user}", "$mntpoint/cpmove-${user}-split", "$mntpoint/cpmove-${user}.tar.gz", "$mntpoint/cpmove-${user}.tar", ); my @paths_to_remove; for my $path (@paths_to_check) { next if -l $path; my $err = $!; if ( -e _ ) { #Exists and is not a symlink -> delete print "Found archive: $path\n"; push @paths_to_remove, $path; } elsif ( $err != Errno::ENOENT ) { #lstat() shouldn’t fail except for ENOENT. warn "lstat($path): $err"; } } if ( !( -d '/usr/local/cpanel' ) && $! ) { if ( $!{'ENOENT'} ) { push @paths_to_remove, '/etc/trueuserdomains'; } else { warn "stat(/usr/local/cpanel): $!"; } } if (@paths_to_remove) { exec( '/bin/rm', '--recursive', '--force', '--', @paths_to_remove ) or die "exec(rm): $!"; } print "The mountpoint “$mntpoint” does not contain any archives for “$user”.\n"; return; } ## case 34397 deprecation: use Cpanel::Filesys::Home::get_homematch_with_most_free_space sub getmntpoint { my ($homedir); my ($homematch); open( CONF, "/etc/wwwacct.conf" ); while () { $_ =~ s/\n//g; if ( $_ !~ /^;/ ) { if ( $_ =~ /HOMEDIR/ ) { ( undef, $homedir ) = split( / /, $_ );