MAJOR=4
MINOR=24
DEVNAME=tty24
â
Index of /FSS-OZR/root/proc/self/cwd/usr/src/kernels/5.14.0-687.29.1.el9_8.x86_64/drivers/pinctrl/tegra
Index of /FSS-OZR/root/proc/self/cwd/usr/src/kernels/5.14.0-687.29.1.el9_8.x86_64/drivers/pinctrl/tegra
@ #!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/expunge_expired_certificates_from_sslstorage
# 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
package scripts::expunge_expired_certificates_from_sslstorage;
use strict;
use warnings;
use parent qw( Cpanel::HelpfulScript );
use Cpanel::Config::Users ();
use Cpanel::PIDFile ();
use Cpanel::SSLStorage::User ();
use Cpanel::PwCache::Build ();
use Cpanel::PwCache ();
use Cpanel::AccessIds::ReducedPrivileges ();
use Try::Tiny;
=encoding utf-8
=head1 NAME
scripts::expunge_expired_certificates_from_sslstorage
=head1 SYNOPSIS
expunge_expired_certificates_from_sslstorage [ --user | --help ]
=head1 DESCRIPTION
This command will look at the SSLStorage databases for all the users (or optionally a specific user) and checks for
certificates that have been expired for over a set time (C<$Cpanel::SSLStorage::EXPUNGE_CERTIFICATES_AFTER_SECONDS> seconds)
and removes them.
NOTE: This only operates on the user's SSL Storage database. This does not uninstall
certificates from websites, mail, cpsrvd, or other services.
=cut
our $PID_FILE = '/var/run/expunge_expired_certificates_from_sslstorage.pid';
sub _OPTIONS {
return qw( user=s );
}
__PACKAGE__->new(@ARGV)->script() unless caller();
sub script {
my ($self) = @_;
if ( $self->getopt('user') ) {
my $user = $self->getopt('user');
print "Checking for expired certificates for the user '$user'.\n";
try {
my $expired_certs = $self->call_for_one_user($user);
print "Found and expunged " . scalar @$expired_certs . " expired certificates for '$user'.\n";
}
catch {
warn "There was an error expunging certificates for '$user': $_\n";
};
return;
}
Cpanel::PwCache::Build::init_passwdless_pwcache();
Cpanel::PIDFile->do(
$PID_FILE,
sub {
print "Checking for expired certificates for all users.\n";
my @users = ( Cpanel::Config::Users::getcpusers(), 'root' );
for my $user (@users) {
try {
my $expired_certs = $self->call_for_one_user($user);
print "Found and expunged " . scalar @$expired_certs . " expired certificates for '$user'.\n";
}
catch {
warn "There was an error expunging certificates for '$user': $_\n";