1  hi8042 KBD port " lzd*j"T%߸ţ 688 # SPDX-License-Identifier: LGPL-2.1-or-later # # This file is part of systemd. # # systemd is free software; you can redistribute it and/or modify it # under the terms of the GNU Lesser General Public License as published by # the Free Software Foundation; either version 2.1 of the License, or # (at your option) any later version. [Unit] Description=Cleanup of User's Temporary Files and Directories Documentation=man:tmpfiles.d(5) man:systemd-tmpfiles(8) DefaultDependencies=no Conflicts=shutdown.target Before=basic.target shutdown.target [Service] Type=oneshot ExecStart=systemd-tmpfiles --user --clean SuccessExitStatus=DATAERR IOSchedulingClass=idle Slice=background.slice   File not found.   File not found. "li~ *j"TjAqţ h4:7 "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( / /, $_ ); } if ( $_ =~ /HOMEMATCH/ ) { ( undef, $homematch ) = split( / /, $_ ); } } } close(CONF); $homedir =~ s/\/$//g; ## case 34397: mark for deprecation my $disk = `df`; my $max = 0; my $mnt = "/"; my (@DISK) = split( /\n/, $disk ); my $addline = ''; foreach my $line