DRIVER=psmouse
SERIO_TYPE=01
SERIO_PROTO=00
SERIO_ID=00
SERIO_EXTRA=00
MODALIAS=serio:ty01pr00id00ex00
SERIO_FIRMWARE_ID=PNP: PNP0f13
g
Index of /anon_sym/anon/proc/self/root/sys/bus/pci/devices/0000:00:01.3/firmware_node
Index of /anon_sym/anon/proc/self/root/sys/bus/pci/devices/0000:00:01.3/firmware_node
" lm_J*j"Tn-m1h߿
h 4:31
File not found.
File not found.
am_J*j"TrZ'Tţ File not found.
" lm_J*j"TnAJbѿ
h 4:57
" 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 i