#!/usr/bin/perl print "Content-Type: text/html\n\n"; # ($sec0,$min0,$hour0,$mday0,$mon0,$year0,$wday0,$ydat0,$isdst0)=localtime(time); ($sec3,$min3,$hour3,$mday3,$mon3,$year3,$wday3,$ydat3,$isdst3)=localtime(time); ($sec1,$min1,$hour1,$mday1,$mon1,$year1,$wday1,$ydat1,$isdst1)=localtime(time+180); ($sec2,$min2,$hour2,$mday2,$mon2,$year2,$wday2,$ydat2,$isdst2)=localtime(time+240); # $mon0=$mon0+1; $mon1=$mon1+1; $mon2=$mon2+1; $mon3=$mon3+1; $year0=$year0+1900; $year1=$year1+1900; $year2=$year2+1900; $year3=$year3+1900; # if ($sec3 < 10){$sec3="0$sec3"}; if ($min3 < 10){$min3="0$min3"}; if ($hour3 < 10){$hour3="0$hour3"}; if ($mday3 < 10){$mday3="0$mday3"}; if ($mon3 < 10){$mon3="0$mon3"}; # print `df -h | tr -s [:blank:] '\n' > dfh.dat`; # $index=0; @dfh_string=""; open(DATEI,"dfh.dat"); while () { chop; $dfh_string[$index]="$_"; $index++; } close(DATEI); # $index=0; @readstring=""; open(DATEI,"readfile"); while () { chop; $readstring[$index]="$_"; $index++; } close(DATEI); # print qq( Videorecorder
 

Videorecorder Programmierhilfe

  
 

Für Kabelanschluß

  
  $mday3.$mon3.$year3 $hour3:$min3:$sec3  
  Frei $dfh_string[10] von $dfh_string[8] => $dfh_string[11] belegt  
  Version 01032009 www.michael-puls.de  

Kanal
Tag Monat Jahr Stunde Minute
Startzeit
Stopzeit

$readstring[0]
$readstring[1]
$readstring[2]
$readstring[3]
$readstring[4]
$readstring[5]
$readstring[6]
$readstring[7]
$readstring[8]
$readstring[9]
$readstring[10]
$readstring[11]
$readstring[12]
$readstring[13]
$readstring[14]
$readstring[15]
);