#!/usr/bin/perl
# geaendert 2009-04-05
use Time::Local;
#
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@param=split("&",$buffer);
#
$sec1=0;
$sec2=0;
#
@file=split("=",$param[0]);
$file=$file[1];
$file="$file.avi";
@chan=split("=",$param[1]);
$chan=$chan[1];
$chan1=$chan;
#
@day1=split("=",$param[2]);
$day1=$day1[1];
@month1=split("=",$param[3]);
$month1=$month1[1];
@year1=split("=",$param[4]);
$year1=$year1[1];
@hour1=split("=",$param[5]);
$hour1=$hour1[1];
@min1=split("=",$param[6]);
$min1=$min1[1];
#
@day2=split("=",$param[7]);
$day2=$day2[1];
@month2=split("=",$param[8]);
$month2=$month2[1];
@year2=split("=",$param[9]);
$year2=$year2[1];
@hour2=split("=",$param[10]);
$hour2=$hour2[1];
@min2=split("=",$param[11]);
$min2=$min2[1];
#
# readline etwas nach unten versetzt
#$readline="$chan $day1\.$month1\.$year1 $hour1\:$min1 Uhr - $hour2\:$min2 Uhr $file";
#
$start=timelocal($sec1,$min1,$hour1,$day1,$month1-1,$year1-1900);
$stop=timelocal($sec2,$min2,$hour2,$day2,$month2-1,$year2-1900);
$diff=$stop-$start;
$mpglen=$diff*25;
$tslen=$diff;
#
# Ein Versuch, 2 -> 02 usw.
#
if ($min1 < 10) {$min1="0$min1"};
if ($hour1 < 10) {$hour1="0$hour1"};
if ($min2 < 10) {$min2="0$min2"};
if ($hour2 < 10) {$hour2="0$hour2"};
if ($day1 < 10) {$day1="0$day1"};
if ($month1 < 10) {$month1="0$month1"};
#
if ($chan eq "E10") {$chan1="ard"};
if ($chan eq "E8") {$chan1="zdf"};
if ($chan eq "SE9") {$chan1="kika"};
if ($chan eq "E9") {$chan1="nick"};
if ($chan eq "SE20") {$chan1="pro7"};
if ($chan eq "SE15") {$chan1="kabel1"};
if ($chan eq "E5") {$chan1="rtl"};
if ($chan eq "SE10") {$chan1="vox"};
if ($chan eq "E6") {$chan1="sat1"};
if ($chan eq "SE8") {$chan1="rtl2"};
if ($chan eq "SE11") {$chan1="srtl"};
if ($chan eq "E7") {$chan1="ndr3"};
if ($chan eq "SE4") {$chan1="qvc"};
if ($chan eq "SE12") {$chan1="br3"};
if ($chan eq "SE17") {$chan1="wdr3"};
if ($chan eq "SE6") {$chan1="mdr3"};
if ($chan eq "E11") {$chan1="3sat"};
if ($chan eq "S21") {$chan1="arte"};
if ($chan eq "SE16") {$chan1="phoenix"};
if ($chan eq "S23") {$chan1="das4"};
if ($chan eq "SE13") {$chan1="dmax"};
if ($chan eq "SE18") {$chan1="viva"};
if ($chan eq "SE7") {$chan1="mtv"};
if ($chan eq "E12") {$chan1="hh1"};
if ($chan eq "21") {$chan1="tide"};
if ($chan eq "SE14") {$chan1="eurosport"};
if ($chan eq "SE19") {$chan1="dsf"};
if ($chan eq "22") {$chan1="9life"};
if ($chan eq "SE5") {$chan1="n-tv"};
if ($chan eq "S22") {$chan1="n24"};
if ($chan eq "23") {$chan1="cnn"};
#
$readline="$chan1 $day1\.$month1\.$year1 $hour1\:$min1 Uhr - $hour2\:$min2 Uhr $file";
#
#$file="$chan-$day1-$month1-$hour1-$min1-$file";
#$file="$year1-$month1-$day1-$hour1-$min1-$chan-$file";
$file="$year1.$month1.$day1-$hour1.$min1-$chan1-$file";
#
$cronline="$min1 $hour1 $day1 $month1 * mencoder tv://$chan -o $file -frames $mpglen";
#
open (DATEI,">>readfile");
print DATEI "$readline\n";
close(DATEI);
open (DATEI,">>cronfile");
print DATEI "$cronline\n";
close(DATEI);
print `crontab cronfile`;
#
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "$cronline
\n";
print "Crontab wurde geändert
\n";
print "Zurück zu Videomin
\n";
print "\n";
print "\n";
#