tools/de/nonametv-xmltv-genhtml

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/../../lib";
   7
   8 use NonameTV::Factory qw/CreateDataStore/;
   9
  10 use File::Copy;
  11
  12 # How large an empty xmltv-file can be.
  13 use constant EMPTY_SIZE => 140;
  14
  15 if( scalar( @ARGV ) != 2 )
  16 {
  17   print << 'EODOC';
  18 nonametv-xmltv-genhtml <outputdir> <installationdir>
  19
  20 Generate a table with data for each day and channel. The .xml.gz-files
  21 should be located in <dir> and the table will be written to
  22 <dir>/00index.html.
  23
  24 <installationdir> should be the basedir for a nonametv installation.
  25
  26 Furthermore, the program generates a file 00logos.html that contains
  27 a list of all channels and shows their logos.
  28
  29 If the result of nonametv-xmltv-genhtml is identical to the previous
  30 content of 00index.html, the original file will be left untouched.
  31
  32 EODOC
  33
  34   exit 1;
  35 }
  36
  37 my( $dir, $installdir ) = @ARGV;
  38
  39 my $ds = CreateDataStore();
  40
  41 # Build list of files
  42 my %files;
  43
  44 foreach my $file ( glob("$dir/*.xml.gz") )
  45 {
  46   my( $name ) = ($file =~ m%/([^/]+_\d{4}-\d{2}-\d{2}).xml.gz%);
  47   $files{$name} = "X" if defined $name;
  48 }
  49
  50 foreach my $file (keys %files)
  51 {
  52   if( -s( "$dir/$file.xml.gz" ) < EMPTY_SIZE  )
  53   {
  54     # File is empty.
  55     $files{$file} = "E";
  56     next;
  57   }
  58 }
  59
  60 my @channels;
  61 my %dates;
  62
  63 my $ch = $ds->sa->LookupMany( "channels", { export => 1 }, ['xmltvid'] );
  64
  65 foreach my $c (@{$ch}) {
  66   push @channels, $c->{xmltvid};
  67 }
  68
  69 foreach my $file (keys %files)
  70 {
  71   my( $channel, $date ) = split( "_", $file );
  72   $dates{$date} = 1;
  73 }
  74
  75 open OUT, "> $dir/00index.html.new"
  76   or die "Failed to open output file: $@";
  77
  78 print OUT << "EOHEAD";
  79 <html>
  80 <head>
  81 <style type="text/css">
  82   .X {  text-align: center; }
  83   .E {  text-align: center; background-color: grey; }
  84 </style>
  85 </head>
  86 <body>
  87 <h1>Schedules</h1>
  88 <table>
  89 <thead>
  90   <tr>
  91     <td>Channel</td>
  92 EOHEAD
  93
  94 foreach my $date (sort keys %dates)
  95 {
  96   my( $s ) = ($date =~ m/(\d\d-\d\d)$/);
  97   print OUT "    <td>$s</td>\n";
  98 }
  99
 100 print OUT << "EOD";
 101   </tr>
 102 </thead>
 103 <tbody>
 104
 105 EOD
 106
 107 foreach my $channel (@channels)
 108 {
 109   print OUT << "EOD";
 110 <tr>
 111   <td>$channel</td>
 112
 113 EOD
 114
 115   foreach my $date (sort keys %dates)
 116   {
 117     my $file = "${channel}_$date";
 118     $files{$file} = ' ' unless defined $files{$file};
 119
 120     if( $files{$file} eq 'U' )
 121     {
 122       print OUT "<td class='$files{$file}'><a href='$file.diff'>$files{$file}</a></td>";
 123     }
 124     else
 125     {
 126       print OUT "<td class='$files{$file}'><a href='displayfile.html?$file'>$files{$file}</a></td>";
 127     }
 128   }
 129
 130   print OUT "</tr>\n";
 131 }
 132
 133 print OUT << "EOD";
 134
 135 </tbody>
 136 </table>
 137 </body>
 138 </html>
 139
 140 EOD
 141
 142 close(OUT);
 143
 144 update_if_changed( "$dir/00index.html.new", "$dir/00index.html" );
 145
 146 open OUT, "> $dir/00logos.html.new"
 147   or die "Failed to open output file: $@";
 148
 149 print OUT << "EOHEAD";
 150 <html>
 151 <head>
 152
 153 <script language="JavaScript">
 154 function changeBg(col)
 155 {
 156   document.bgColor = col;
 157 }
 158
 159 </script>
 160
 161 </head>
 162 <body>
 163 <h1>Logos</h1>
 164 Background:
 165 <a href="javascript:changeBg('#ffffff')">White</a>
 166 <a href="javascript:changeBg('#dddddd')">Light grey</a>
 167 <a href="javascript:changeBg('#333333')">Dark grey</a>
 168 <a href="javascript:changeBg('#000000')">Black</a>
 169 <a href="javascript:changeBg('#0000dd')">Dark blue</a>
 170
 171 <table>
 172
 173 EOHEAD
 174
 175 foreach my $channel (@channels)
 176 {
 177   print OUT << "EOREC";
 178 <tr>
 179   <td>$channel</td>
 180   <td><img src="http://xmltv.spaetfruehstuecken.org/chanlogos/$channel.png"></td>
 181   <td><img src="http://xmltv.spaetfruehstuecken.org/chanlogos/44x44/$channel.png"></td>
 182   <td><img src="http://xmltv.spaetfruehstuecken.org/chanlogos/16x16/$channel.png"></td>
 183 </tr>
 184
 185 EOREC
 186
 187 }
 188
 189 print OUT << "EOFOOT";
 190 </table>
 191 </body>
 192 </html>
 193
 194 EOFOOT
 195
 196 close(OUT);
 197
 198 update_if_changed( "$dir/00logos.html.new", "$dir/00logos.html" );
 199
 200 system( "zcat $dir/channels.xml.gz | xsltproc $installdir/examples/channel-list.xsl - > $dir/channels.html.new" );
 201
 202 update_if_changed( "$dir/channels.html.new", "$dir/channels.html" );
 203
 204 sub update_if_changed {
 205   my( $new, $old ) = @_;
 206
 207   system("diff $new $old > /dev/null 2>&1");
 208   if( $? ) {
 209     move( "$new", "$old" );
 210   }
 211   else {
 212     unlink( "$new" );
 213   }
 214 }
 215