#!/usr/bin/perl
# -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
# session_expire - Delete all expired sessions.
# (c) 1996-2002 ABC Startsiden AS, see the file AUTHORS.
#
# See the file LICENSE in the Giza top source distribution tree for
# licensing information. If this file is not present you are *not*
# allowed to view, run, copy or change this software or it's sourcecode.
# -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
#####


#%include <config.pimpx>

#%ifdef PREFIX
#%  define INCLUDE "%{PREFIX}/include"
#%endif

#%print use lib '%{INCLUDE}';
use strict;
use Giza;
use Giza::User;
use Giza::User::SDB;

my $g = new Giza;
my $sdb = new Giza::User::SDB (giza=>$g);
$sdb->open or die $g->error, "\n";
my $sessions = $sdb->content;

foreach my $sid (sort keys %$sessions) {
	my($uname, $salt, $addr, $start, $expire)
		= split ':', $sessions->{$sid};
	if(time > $expire) {
		delete $sessions->{$sid};
	}
}
$sdb->close or die $g->error, "\n";

