X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FData.pm;h=9fee650af2088752301936c98a8b650eb355bf32;hb=2fec2d564242518781f99ac5aff8fdd4db0122cc;hp=1b2492cc28c6a07dc927edf30d4039ec9fe1e1eb;hpb=014ee8a614839ded741f61979d979cdd4f20044c;p=gruntmaster-data.git

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 1b2492c..9fee650 100644
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -1,102 +1,38 @@
+use utf8;
 package Gruntmaster::Data;
-use v5.14;
-use warnings;
-use parent qw/Exporter/;
-
-use JSON qw/encode_json decode_json/;
-
-use Redis;
-
-our $contest;
-my $redis = Redis->new;
-my $pubsub = Redis->new;
-
-sub dynsub{
-	no strict 'refs';
-	*{$_[0]} = $_[1];
-}
-
-BEGIN {
-	for my $cmd (qw/multi exec smembers get hget hdel hset sadd srem incr hmset hsetnx publish del/) {
-		dynsub uc $cmd, sub { $redis->$cmd(@_) };
-	}
-
-	for my $cmd (qw/subscribe wait_for_messages/) {
-		dynsub uc $cmd, sub { $pubsub->$cmd(@_) };
-	}
-}
 
-sub cp { defined $contest ? "contest.$contest." : '' }
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
 
-sub multi				()		{ MULTI }
-sub rexec				()		{ EXEC }
+use strict;
+use warnings;
 
-sub problems			()		{ SMEMBERS cp . 'problem' }
-sub contests			()		{ SMEMBERS cp . 'contest' }
-sub users				()		{ SMEMBERS cp . 'user' }
-sub jobcard				()		{ GET cp . 'job' }
+use base 'DBIx::Class::Schema';
 
-sub job_results			(_)		{ decode_json HGET cp . "job.$_[0]", 'results' }
-sub set_job_results		($+)	{ HSET cp . "job.$_[0]", 'results', encode_json $_[1] }
-sub job_inmeta			(_)		{ decode_json HGET cp . "job.$_[0]", 'inmeta' }
-sub set_job_inmeta		($+)	{ HSET cp . "job.$_[0]", 'inmeta', encode_json $_[1] }
-sub problem_meta		(_)		{ decode_json HGET cp . "problem.$_[0]", 'meta' }
-sub set_problem_meta	($+)	{ HSET cp . "problem.$_[0]", 'meta', encode_json $_[1] }
-sub job_daemon			(_)		{ HGET cp . "job.$_[0]", 'daemon' }
-sub set_job_daemon		($$)	{ HSETNX cp . "job.$_[0]", 'daemon', $_[1] };
+__PACKAGE__->load_namespaces;
 
-sub defhash{
-	my ($name, @keys) = @_;
-	for my $key (@keys) {
-		dynsub "${name}_$key", sub (_)  { HGET cp . "$name.$_[0]", $key };
-		dynsub "set_${name}_$key", sub ($$) { HSET cp . "$name.$_[0]", $key, $_[1] };
-	}
 
-	dynsub "edit_$name", sub {
-		my ($key, %values) = @_;
-		HMSET cp . "$name.$key", %values;
-	};
+# Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-03-05 13:11:39
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dAEmtAexvUaNXLgYz2rNEg
 
-	dynsub "insert_$name", sub {
-		my ($key, %values) = @_;
-		SADD cp . $name, $key or return;
-		HMSET cp . "$name.$key", %values;
-	};
-	dynsub "remove_$name", sub (_) {
-		my $key = shift;
-		SREM cp . $name, $key;
-		DEL cp . "$name.$key";
-	};
+our $VERSION = 5999.000_003;
 
-	dynsub "push_$name", sub {
-		my $nr = INCR cp . $name;
-		HMSET cp . "$name.$nr", @_;
-		$nr
-	};
-}
-
-defhash problem => qw/name level statement owner author/;
-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/;
-
-sub clean_job (_){
-	HDEL cp . "job.$_[0]", qw/result result_text results daemon/
-}
+use Lingua::EN::Inflect qw/PL_N/;
+use Sub::Name qw/subname/;
 
-sub mark_open {
-	my ($problem, $user) = @_;
-	HSETNX cp . 'open', "$problem.$user", time;
+sub dynsub{
+	our ($name, $sub) = @_;
+	no strict 'refs';
+	*$name = subname $name => $sub
 }
 
-sub get_open {
-	my ($problem, $user) = @_;
-	HGET cp . 'open', "$problem.$user";
+BEGIN {
+	for my $rs (qw/contest contest_problem job open problem user/) {
+		my $rsname = ucfirst $rs;
+		$rsname =~ s/_([a-z])/\u$1/g;
+		dynsub PL_N($rs) => sub { $_[0]->resultset($rsname)              };
+		dynsub      $rs  => sub { $_[0]->resultset($rsname)->find($_[1]) };
+	}
 }
 
-our @EXPORT = do {
-	no strict 'refs';
-	grep { $_ =~ /^[a-zA-Z]/ and exists &$_ } keys %{__PACKAGE__ . '::'};
-};
-
-1
+1;