Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:49:22
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/exim_tidydb
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/exim_tidydb 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::exim_tidydb; use strict; use warnings; use File::Glob (); use File::Basename (); use Umask::Local (); use Cpanel::Autodie (); use Cpanel::FileUtils::TouchFile (); use Cpanel::NameVariant (); use Cpanel::Time::ISO (); use Cpanel::Binaries (); use Cpanel::SafeRun::Object (); use Cpanel::AccessIds::ReducedPrivileges (); our @exim_dirs = qw(/var/spool/exim_incoming /var/spool/exim); use constant VALID_STATIC_DB_NAMES => ( 'retry', 'misc', 'callout', 'ratelimit', ); __PACKAGE__->script() unless caller(); sub script { my $exim_tidydb = Cpanel::Binaries::path('exim_tidydb'); if ( !-x $exim_tidydb ) { die 'Cannot find exim_tidydb'; } foreach my $dir (@exim_dirs) { next if ( !-d $dir ); my @dbs = File::Glob::bsd_glob("$dir/db/*"); foreach my $db (@dbs) { my $basedb = File::Basename::basename($db); next if ( $basedb =~ /^\.|\.lock(file)?$/ ); # Valid database names = retry | misc | wait-<transport-name> | callout | ratelimit my $is_valid = grep { $_ eq $basedb } VALID_STATIC_DB_NAMES(); $is_valid ||= $basedb =~ m{^wait-}; next if !$is_valid; my $dbpath = "$dir/db/$basedb"; my $lock = "$dbpath.lockfile"; unless ( -e $lock ) { my $privs = Cpanel::AccessIds::ReducedPrivileges->new(qw/mailnull mail/); my $umask = Umask::Local->new(027); Cpanel::FileUtils::TouchFile::touchfile($lock); } my $run = Cpanel::SafeRun::Object->new( 'program' => $exim_tidydb, 'args' => [ ( $basedb eq 'ratelimit' ? ( '-t', '1d' ) : () ), $dir, $basedb ] ); print $run->stdout(); if ( $run->CHILD_ERROR() && $run->error_code() == 1 ) { my $new_filename = Cpanel::NameVariant::find_name_variant( max_length => 254, name => $dbpath . '.broken.' . Cpanel::Time::ISO::unix2iso(), test => sub { Cpanel::Autodie::link_if_no_conflict( $dbpath, $_[0] ); }, ); unlink $dbpath or warn "unlink($dbpath): $!"; print "Renamed corrupt “$dbpath” to “$new_filename”.\n"; } } } Cpanel::SafeRun::Object->new( 'program' => '/usr/local/cpanel/scripts/cleanmsglog' ); return; } 1;
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18