[Scoop-checkins] scoop/lib/Scoop Cron.pm

[scoop at lithium.sabren.com]

Update of /cvs/scoop/scoop/lib/Scoop
In directory lithium.sabren.com:/tmp/cvs-serv20585/lib/Scoop

Modified Files:
	Cron.pm 
Log Message:
janra's bug for for bug #154 -- hulver


Index: Cron.pm
===================================================================
RCS file: /cvs/scoop/scoop/lib/Scoop/Cron.pm,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Cron.pm	23 Jan 2005 03:45:59 -0000	1.28
--- Cron.pm	26 May 2005 10:06:45 -0000	1.29
***************
*** 638,642 ****
  	my $S = shift;
  
! 	$S->{UI}->{VARS}->{keep_sessions_for} =~ /(\d+)\s*(.+)/;
  	my ($length, $unit) = ($1, $2);
  
--- 638,642 ----
  	my $S = shift;
  
! 	$S->var('keep_sessions_for') =~ /(\d+)\s*(.+)/;
  	my ($length, $unit) = ($1, $2);
  
***************
*** 644,648 ****
  		DEBUG => $DEBUG,
  		FROM  => 'sessions',
! 		WHERE => "last_accessed < " . $S->db_date_sub("NOW()", "$length $unit")
  	});
  	my $ret = $rv ? 1 : "couldn't cleanup sessions";
--- 644,648 ----
  		DEBUG => $DEBUG,
  		FROM  => 'sessions',
! 		WHERE => "last_update < " . $S->db_date_sub("NOW()", "$length $unit")
  	});
  	my $ret = $rv ? 1 : "couldn't cleanup sessions";