lib/NonameTV/DataStore/Dummy.pm

   1 package NonameTV::DataStore::Dummy;
   2
   3 use strict;
   4
   5 use Carp;
   6
   7 =head1 NAME
   8
   9 NonameTV::DataStore::Dummy
  10
  11 =head1 DESCRIPTION
  12
  13 Dummy-interface to the datastore for NonameTV. Prints debugging
  14 information to STDOUT. Does not touch the database for StartBatch,
  15 AddProgramme and EndBatch. All other requests are sent to the
  16 database unmodified.
  17
  18 =cut
  19
  20 use base 'NonameTV::DataStore';
  21
  22 sub new
  23 {
  24   my $proto = shift;
  25   my $class = ref($proto) || $proto;
  26   my $self  = $class->SUPER::new( @_ );
  27   bless ($self, $class);
  28
  29   return $self;
  30 }
  31
  32 sub DESTROY
  33 {
  34   my $self = shift;
  35
  36 }
  37
  38 sub StartBatch
  39 {
  40   my( $self, $batchname ) = @_;
  41
  42   print "StartBatch $batchname\n";
  43   $self->{currbatch} = $batchname;
  44   $self->{currbatchname} = $batchname;
  45   $self->{last_end} = "1970-01-01 00:00:00";
  46 }
  47
  48 sub EndBatch
  49 {
  50   my( $self, $success ) = @_;
  51
  52   print "EndBatch $success\n";
  53   delete $self->{currbatch};
  54 }
  55
  56 sub AddProgramme
  57 {
  58   my( $self, $data ) = @_;
  59
  60   print "AddProgramme $data->{start_time} $data->{title}\n";
  61   print "End: $data->{end_time}\n" if exists( $data->{end_time} );
  62   print "Desc: $data->{description}\n" if exists( $data->{description} );
  63   print "Episode: $data->{episode}\n" if exists( $data->{episode} );
  64
  65   die "You must call StartBatch before AddProgramme"
  66     unless exists $self->{currbatch};
  67
  68   if( $self->{last_end} gt $data->{start_time} )
  69   {
  70     print STDERR $self->{currbatchname} .
  71       " Starttime must be later than or equal to last endtime: " .
  72       $self->{last_end} . " -> " . $data->{start_time} . "\n";
  73     return;
  74   }
  75
  76   $self->{last_end} = $data->{start_time};
  77
  78   if( defined( $data->{end_time} ) )
  79   {
  80     if( $data->{start_time} ge $data->{end_time} )
  81     {
  82       print STDERR $self->{currbatchname} .
  83           " Stoptime must be later than starttime: " .
  84           $data->{start_time} . " -> " . $data->{end_time} . "\n";
  85       return;
  86     }
  87     $self->{last_end} = $data->{end_time};
  88   }
  89
  90   $data->{batch_id} = $self->{currbatch};
  91
  92   if( defined( $data->{category} ) )
  93   {
  94     my $cat = join "++", @{$data->{category}};
  95     $data->{category} = $cat;
  96     print "Category: $data->{category}\n";
  97   }
  98   else
  99   {
 100     delete( $data->{category} );
 101   }
 102 }
 103
 104
 105 =head1 COPYRIGHT
 106
 107 Copyright (C) 2004 Mattias Holmlund.
 108
 109 =cut
 110
 111 1;