#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - cleanphpsessions Copyright 2010 cPanel, Inc.
# All rights Reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
use Cpanel::AccessIds ();
use Cpanel::PwCache ();
use Cpanel::Binaries ();
my $php_bin = Cpanel::Binaries::get_binary_location('php');
opendir my $dir_h, '/var/cpanel/userhomes';
my @dirs = grep { /^cpanel/ } grep { !/-/ } grep { !/\.\.?/ } readdir $dir_h;
closedir $dir_h;
foreach my $user (@dirs) {
my $homedir = ( Cpanel::PwCache::getpwnam($user) )[7];
if ( $homedir && -e $homedir . '/sessions/phpsess.sdb' ) {
my $script = '/usr/local/cpanel/scripts/cleanphpsessions.php';
Cpanel::AccessIds::run_as_user( $user, $php_bin, $script, $user );
}
}
Copyright 2K16 - 2K18 Indonesian Hacker Rulez