From db5da8eaf53881f215970b8030827b5f6d844efa Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Fri, 28 Feb 2014 17:53:18 +0200 Subject: [PATCH] Move lastjob to the user hash --- lib/Gruntmaster/Data.pm | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm index 4592ac1..ce39b5d 100644 --- a/lib/Gruntmaster/Data.pm +++ b/lib/Gruntmaster/Data.pm @@ -78,7 +78,7 @@ sub defhash{ defhash problem => qw/name level difficulty statement owner author private generator runner judge testcnt timeout olimit/; defhash contest => qw/start end name owner/; defhash job => qw/date errors extension filesize private problem result result_text user/; -defhash user => qw/name email town university level/; +defhash user => qw/name email lastjob town university level/; sub clean_job (_){ HDEL cp . "job.$_[0]", qw/result result_text results daemon/ @@ -94,14 +94,6 @@ sub get_open { HGET cp . 'open', "$problem.$user"; } -sub lastjob { - HGET 'lastjob', $_[0]; -} - -sub set_lastjob { - HSET 'lastjob', $_[0], time; -} - our @EXPORT = do { no strict 'refs'; grep { $_ =~ /^[a-zA-Z]/ and exists &$_ } keys %{__PACKAGE__ . '::'}; -- 2.39.2