X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData.pm;h=1ca79586a24580b06ed494727230176a4c91f91e;hb=7f0f55d8d78f78bdc76d6ac3089c6aa085d95be6;hp=aac9ad1f77e3932adc23c7d1ee9e384f1a2ad5ee;hpb=2ee6edcf1262d2a3059dd0859d9b750c4a2ff02b;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm index aac9ad1..1ca7958 100644 --- a/lib/Gruntmaster/Data.pm +++ b/lib/Gruntmaster/Data.pm @@ -52,6 +52,11 @@ sub defhash{ dynsub "set_${name}_$key", sub ($$) { HSET cp . "$name.$_[0]", $key, $_[1] }; } + dynsub "edit_$name", sub { + my ($key, %values) = @_; + HMSET cp . "$name.$key", %values; + }; + dynsub "insert_$name", sub { my ($key, %values) = @_; SADD cp . $name, $key or return; @@ -71,7 +76,7 @@ sub defhash{ defhash problem => qw/name level statement owner author/; defhash contest => qw/start end name owner/; -defhash job => qw/date extension filesize private problem result result_text user/; +defhash job => qw/date errors extension filesize private problem result result_text user/; defhash user => qw/name email town university level/; sub clean_job (_){