Add some utility functions and POD

[gruntmaster-data.git] / lib / Gruntmaster / Data.pm

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 1b2492cc28c6a07dc927edf30d4039ec9fe1e1eb..abf9a04c5f91fb32d5df83df790577a9ba690d1b 100644 (file)
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -1,102 +1,71 @@
+use utf8;
 package Gruntmaster::Data;
-use v5.14;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+use strict;
 use warnings;
-use parent qw/Exporter/;
 
-use JSON qw/encode_json decode_json/;
+use base 'DBIx::Class::Schema';
+
+__PACKAGE__->load_namespaces;
 
-use Redis;
 
-our $contest;
-my $redis = Redis->new;
-my $pubsub = Redis->new;
+# Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-03-05 13:11:39
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:dAEmtAexvUaNXLgYz2rNEg
+
+our $VERSION = 5999.000_003;
+
+use Lingua::EN::Inflect qw/PL_N/;
+use Sub::Name qw/subname/;
 
 sub dynsub{
+       our ($name, $sub) = @_;
        no strict 'refs';
-       *{$_[0]} = $_[1];
+       *$name = subname $name => $sub
 }
 
 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(@_) };
+       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]) };
        }
 }
 
-sub cp { defined $contest ? "contest.$contest." : '' }
-
-sub multi                              ()              { MULTI }
-sub rexec                              ()              { EXEC }
-
-sub problems                   ()              { SMEMBERS cp . 'problem' }
-sub contests                   ()              { SMEMBERS cp . 'contest' }
-sub users                              ()              { SMEMBERS cp . 'user' }
-sub jobcard                            ()              { GET cp . 'job' }
-
-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] };
-
-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] };
-       }
+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;
-               HMSET cp . "$name.$key", %values;
-       };
-       dynsub "remove_$name", sub (_) {
-               my $key = shift;
-               SREM cp . $name, $key;
-               DEL cp . "$name.$key";
-       };
-
-       dynsub "push_$name", sub {
-               my $nr = INCR cp . $name;
-               HMSET cp . "$name.$nr", @_;
-               $nr
-       };
-}
+__END__
 
-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/;
+=encoding utf-8
 
-sub clean_job (_){
-       HDEL cp . "job.$_[0]", qw/result result_text results daemon/
-}
+=head1 NAME
 
-sub mark_open {
-       my ($problem, $user) = @_;
-       HSETNX cp . 'open', "$problem.$user", time;
-}
+Gruntmaster::Data - Gruntmaster 6000 Online Judge -- database interface and tools
 
-sub get_open {
-       my ($problem, $user) = @_;
-       HGET cp . 'open', "$problem.$user";
-}
+=head1 SYNOPSIS
+
+  my $db = Gruntmaster::Data->connect('dbi:Pg:');
+  # Typical DBIC stuff here
+
+=head1 DESCRIPTION
+
+No documentation (yet)
+
+=head1 AUTHOR
+
+Marius Gavrilescu E<lt>marius@ieval.roE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2014 by Marius Gavrilescu
+
+This library is free software: you can redistribute it and/or modify
+it under the terms of the GNU Affero General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
 
-our @EXPORT = do {
-       no strict 'refs';
-       grep { $_ =~ /^[a-zA-Z]/ and exists &$_ } keys %{__PACKAGE__ . '::'};
-};
 
-1
+=cut