tools/nonametv-icon-update

   1 #!/usr/bin/perl -w
   2
   3 # Update the channels-table with information about which channels
   4 # have an icon.
   5
   6 use strict;
   7
   8 use FindBin;
   9 use lib "$FindBin::Bin/../lib";
  10
  11 use NonameTV;
  12 use NonameTV::DataStore;
  13 use NonameTV::Config qw/ReadConfig/;
  14 use NonameTV::Factory qw/CreateDataStore/;
  15
  16 use LWP::Simple;
  17 use Getopt::Long;
  18
  19 my $opt = {
  20   verbose => 0,
  21   quiet => 0,
  22   unattended => 0,
  23 };
  24
  25 my $res = GetOptions( $opt, qw/verbose quiet unattended/ );
  26
  27 # Read configuration
  28 my $conf = ReadConfig();
  29
  30 # Create Datastore
  31 my $ds = CreateDataStore();
  32
  33 my $iconroot = $conf->{Exporters}->{Xmltv}->{IconRootUrl};
  34
  35 my $sth = $ds->sa->Iterate( 'channels' );
  36
  37 while( my $entry = $sth->fetchrow_hashref() ) {
  38   my $xmltvid = $entry->{xmltvid};
  39   my $logo = $entry->{logo};
  40
  41   print "Processing $xmltvid\n" if $opt->{verbose};
  42
  43   my $url = "$iconroot$xmltvid.png";
  44   if( head( $url ) ) {
  45     if( not $logo ) {
  46       $ds->sa->Update( 'channels', { xmltvid => $xmltvid }, { logo => 1 } );
  47       print "Added icon for $xmltvid\n" if not $opt->{quiet};
  48     }
  49   }
  50   else
  51   {
  52     if( $logo ) {
  53       if( $opt->{unattended} ) {
  54         print "Icon for $xmltvid has disappeared.\n";
  55       }
  56       else {
  57         $ds->sa->Update( 'channels', { xmltvid => $xmltvid }, { logo => 0 } );
  58         print "Removed icon for $xmltvid\n" if not $opt->{quiet};
  59       }
  60     }
  61   }
  62 }
  63
  64 $sth->finish();