4:41 ˆ¾À 0à ˆ¾À 0ÃÂ# ˆl–Ãa¾”ªa,jq@ŠãN\ŠbÑ¿Á „]}ŸÄÃ?÷ #!/usr/local/cpanel/3rdparty/bin/perl # Copyright 2026 WebPros International, LLC # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited. package scripts::log_retention; use cPstrict; use Getopt::Long (); use Try::Tiny; use File::Find; use File::Path qw(remove_tree); use File::Basename; use Time::HiRes; use Cpanel::AccessIds::ReducedPrivileges (); use Cpanel::Config::LoadCpConf (); use Cpanel::Config::Users (); use Cpanel::Hooks (); use Cpanel::Logger (); use Cpanel::LogManager (); use Cpanel::SafeRun::Object (); use Cpanel::YAML (); use constant { PLUGIN_DIR => '/var/cpanel/log_retention/plugins', }; # Built-in log types my %BUILTIN_LOG_TYPES = ( web => { get_default_retention => \&_get_web_default_retention, get_user_retention => \&_get_web_user_retention, sys_paths => \&_get_web_sys_paths, user_paths => \&_get_web_user_paths, description => 'Web server logs (Apache/NGINX access and error logs)', }, ); # Combined log types (built-in + plugins) my %LOG_TYPES; sub script { my (@args) = @_; local $| = 1; # Load built-in types first, then plugins %LOG_TYPES = %BUILTIN_LOG_TYPES; _load_plugin_log_types(); my %opts = ( help => 0, run => 0, type => [], verbose => 0, ); my $getopt_result = Getopt::Long::GetOptionsFromArray( \@args, 'help|h' => \$opts{help}, 'run' => \$opts{run}, 'type=s@' => $opts{type}, 'verbose|v' => \$opts{verbose}, ); if ( !$getopt_result || $opts{help} ) { _usage(); return 0; } my $logger = Cpanel::Logger->new(); if ( $opts{run} ) { return _run_retention_cleanup( $opts{type}, $opts{verbose}, $logger ); } else { return _show_log_types( $opts{type}, $opts{verbose}, $logger ); } } sub _usage { print <<"EOF"; Usage: $0 [options] Log retention management utility for cPanel & WHM Options: --help, -h Show this help message --run Execute log retention cleanup --type TYPE Process specific log type(s) only (can be repeated) --verbose, -v Enable verbose output Examples: $0 # Show all log types and their settings $0 --run # Process all log types $0 --run --type web # Process only web logs $0 --run --type web --type custom # Process web and custom log types $0 --verbose # Show detailed information Built-in log types: EOF for my $type ( sort keys %BUILTIN_LOG_TYPES ) { printf " %-10s %s\n", $type, $BUILTIN_LOG_TYPES{$type}{description}; } # Show plugin log types if any my @plugin_types = grep { !exists $BUILTIN_LOG_TYPES{$_} } keys %LOG_TYPES; if (@plugin_types) { print "\nPlugin log types:\n"; for my $type ( sort @plugin_types ) { printf " %-10s %s\n", $type, $LOG_TYPES{$type}{description}; } } print "\nPlugin directory: " . PLUGIN_DIR . "\n"; print "\n"; return; } sub _show_log_types { my ( $requested_types, $verbose, $logger ) = @_; my @types_to_show = @{$requested_types} ? @{$requested_types} : sort keys %LOG_TYPES; print "Log Retention Configuration:\n"; print "=" x 50 . "\n"; for my $type (@types_to_show) { if ( !exists $LOG_TYPES{$type} ) { $logger->warn("Unknown log type: $type"); next; } my $config = $LOG_TYPES{$type}; my $default_retention = $config->{get_default