#!/usr/bin/perl
# cpanel - cleanphpsessions                       Copyright(c) 2010 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

BEGIN { unshift @INC, '/usr/local/cpanel'; }

use Cpanel::AccessIds ();
use Cpanel::PwCache   ();

my $php_bin = '/usr/local/cpanel/3rdparty/bin/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 = '/scripts/cleanphpsessions.php';
        Cpanel::AccessIds::run_as_user( $user, $php_bin, $script, $user );
    }
}