lib/DVB.pm

   1 package DVB;
   2
   3
   4 =pod
   5
   6 This file contains some DVB related functions.
   7 Draft: "ETSI EN 300 468"
   8
   9 =cut
  10
  11 use strict;
  12 use warnings;
  13
  14 use utf8;
  15 use Env;
  16
  17 use NonameTV::Log qw/progress/;
  18
  19 BEGIN {
  20     use Exporter   ();
  21     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
  22
  23     # set the version for version checking
  24     $VERSION     = 0.1;
  25
  26     @ISA         = qw(Exporter);
  27     @EXPORT      = qw( );
  28     %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  29     @EXPORT_OK   = qw/DVBCategory/;
  30 }
  31 our @EXPORT_OK;
  32
  33 sub DVBCategory
  34 {
  35   my( $ds, $categ, $type ) = @_;
  36
  37   my $defaultcategory = "0:0:0:0";
  38   return $defaultcategory if ( $categ !~ /\S+/i );
  39
  40   my $q = "SELECT * from dvb_cat WHERE `category` LIKE '%" . $categ . "%' LIMIT 1";
  41   my( $res, $data ) = $ds->sa->Sql( $q );
  42
  43   return $defaultcategory if( ! $res );
  44
  45   while( my $category = $data->fetchrow_hashref() ) {
  46     return $category->{dvb_category};
  47   }
  48
  49   return $defaultcategory;
  50 }
  51
  52 1;
  53
  54 ### Setup coding system
  55 ## Local Variables:
  56 ## coding: utf-8
  57 ## End: