????
Current Path : /proc/322175/task/322175/root/scripts/ |
Current File : //proc/322175/task/322175/root/scripts/rebuild_bandwidthdb_root_cache |
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/rebuild_bandwidthdb_root_cache 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::rebuild_bandwidthdb_root_cache; #---------------------------------------------------------------------- #NOTE: It might be good to make this an API call and put a button in the UI #to the effect of: “If this doesn’t look right, try [rebuilding].” #---------------------------------------------------------------------- use strict; use Cpanel::BandwidthDB::RootCache (); __PACKAGE__->script() if !caller; sub script { Cpanel::BandwidthDB::RootCache::delete(); #So we immediately see which user the system is converting. local $| = 1; Cpanel::BandwidthDB::RootCache->new( import_options => { before_start => \&_before_start, before_user => \&_before_user, after_user => \&_after_user, }, ); return; } sub _before_start { my $users_ar = shift; my $count = scalar @$users_ar; print "Rebuilding bandwidth cache for this system’s $count cPanel user(s):\n\n"; return; } sub _before_user { my ($user) = @_; return print "$user …"; } sub _after_user { return print " Done!\n"; } 1;