Gruta/Data.pm

   1 package Gruta::Data;
   2
   3 use strict;
   4 use warnings;
   5
   6 package Gruta::Data::BASE;
   7
   8 use Carp;
   9
  10 sub fields { return (); }
  11 sub vfields { return (); }
  12 sub afields { return ($_[0]->fields(), $_[0]->vfields()); }
  13
  14 sub source {
  15         my $self        = shift;
  16
  17         if (@_) {
  18                 $self->{_source} = shift;
  19         }
  20
  21         return $self->{_source};
  22 }
  23
  24
  25 sub _assert {
  26         my $self        = shift;
  27
  28         my $id = $self->get('id') || '';
  29         $id =~ /^[\d\w_-]+$/ or croak "Bad id [$id]";
  30
  31         return $self;
  32 }
  33
  34 sub new {
  35         my $class       = shift;
  36         my %args        = @_;
  37
  38         my $self = bless({ }, $class);
  39
  40         foreach my $k ($self->afields()) {
  41                 $self->{$k} = $args{$k};
  42         }
  43
  44         return $self;
  45 }
  46
  47 sub get {
  48         my $self        = shift;
  49         my $field       = shift;
  50
  51         croak 'get ' . ref($self) . " field '$field'?" unless exists $self->{$field};
  52
  53         return $self->{$field};
  54 }
  55
  56 sub set {
  57         my $self        = shift;
  58         my $field       = shift;
  59
  60         croak 'set ' . ref($self) . " field '$field'?" unless exists $self->{$field};
  61
  62         $self->{$field} = shift;
  63
  64         return $self->{$field};
  65 }
  66
  67
  68 package Gruta::Data::Topic;
  69
  70 use base 'Gruta::Data::BASE';
  71
  72 sub fields { return qw(id name editors max_stories internal); }
  73
  74 package Gruta::Data::Story;
  75
  76 use base 'Gruta::Data::BASE';
  77
  78 use Carp;
  79
  80 sub fields { return qw(id topic_id title date userid format hits ctime content); }
  81 sub vfields { return qw(tags abstract body); }
  82
  83 sub _assert {
  84         my $self        = shift;
  85
  86         $self->SUPER::_assert();
  87
  88         my $topic_id = $self->get('topic_id') || '';
  89         $topic_id =~ /^[\d\w_-]+$/ or croak "Bad topic_id";
  90
  91         return $self;
  92 }
  93
  94 sub date {
  95         my $self        = shift;
  96         my $format      = shift;
  97
  98         if (defined($format)) {
  99                 my ($y, $m, $d, $H, $M, $S) = ($self->get('date') =~
 100                         /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/);
 101
 102                 $format =~ s/%Y/$y/g;
 103                 $format =~ s/%y/$y/g;
 104                 $format =~ s/%m/$m/g;
 105                 $format =~ s/%d/$d/g;
 106                 $format =~ s/%H/$H/g;
 107                 $format =~ s/%M/$M/g;
 108                 $format =~ s/%S/$S/g;
 109         }
 110         else {
 111                 $format = $self->get('date');
 112         }
 113
 114         return($format);
 115 }
 116
 117 sub touch { return $_[0]; }
 118
 119 sub tags {
 120         my $self        = shift;
 121         my @ret         = undef;
 122
 123         if (scalar(@_)) {
 124                 $self->set('tags', [ @_ ]);
 125         }
 126         else {
 127                 @ret = @{ $self->get('tags') };
 128         }
 129
 130         return @ret;
 131 }
 132
 133 sub new_id {
 134         my $self        = shift;
 135
 136         return sprintf ('%08x', int(rand(0xffffffff)));
 137 }
 138
 139 package Gruta::Data::User;
 140
 141 use base 'Gruta::Data::BASE';
 142
 143 sub fields { return qw(id username email password can_upload is_admin xdate); }
 144 sub vfields { return qw(sid); }
 145
 146 package Gruta::Data::Session;
 147
 148 use base 'Gruta::Data::BASE';
 149
 150 sub fields { return qw(id time user_id ip); }
 151
 152 1;