Current Path : /proc/3/task/3/cwd/proc/self/root/scripts/

Upload File :

Current File : //proc/3/task/3/cwd/proc/self/root/scripts/fixwebalizer

#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - scripts/fixwebalizer                      Copyright 2014 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use strict;

use Cpanel::AccessIds ();

my $user = $ARGV[0];

if ( !defined($user) ) {
    print "Warning: this will destory all previous webalizer data!\n";
    print "Enter Username to fix webalizer for? ";
    chomp( $user = <STDIN> );

}

my $homedir = ( getpwnam($user) )[7];

if ( !-e $homedir ) {
    print "Can not find home directory for user '$user'.\n";
}

my $op = sub {
    system("rm -fv $homedir/tmp/webalizer/webalizer.*");
    system("rm -fv $homedir/tmp/webalizer/*.db");
    system( "/usr/local/cpanel/scripts/runweblogs", "$user" );
};

Cpanel::AccessIds::do_as_user( $user, $op );

Copyright 2K16 - 2K18 Indonesian Hacker Rulez