X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData.pm;h=1ca79586a24580b06ed494727230176a4c91f91e;hb=7f0f55d8d78f78bdc76d6ac3089c6aa085d95be6;hp=77d78c02c05f61d3708a8d90fc1f7af225e3a6f5;hpb=1e683a56a8dccf4fbe9a94a9b3fc53f7fd02ad54;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm index 77d78c0..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; @@ -69,9 +74,9 @@ sub defhash{ }; } -defhash problem => qw/name level statement/; +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 (_){