#! /usr/bin/perl
# Timer laden

$Timerfile= "/etc/vdr/timers.conf";
open(Timer,"$Timerfile");
# Timer ins array und Kosmetik
while (<Timer>) {
        @tmp1 = split (/:/); # Zeile ins array
        @tmp=splice(@tmp1,2,3);  # Die Zeiten extrahieren
        push @tmp,splice(@tmp1,4,2); # Die Daten extrahieren
        #$tmp[0]=~ s/-/./g;   # Datumsformat ändern
        substr($tmp[1], 2, 0) = ":";  # Startzeit statt 1730 nun 17:30
        substr($tmp[2], 2, 0) = ":";  # Dito für Endzeit
        @tmp1=join('#', @tmp);  # array in string überführen
        push @Timer_unsort,  @tmp1 ;   #  string in ein array
        }    # nächste Timerzeile
close(Timer);
@Timer_sort= sort @Timer_unsort;   # array nach Startzeit sortieren
foreach (@Timer_sort) {
        @tmp = split (/#/); # Zeile ins array
        @Datum = split (/-/,$tmp[0]); # Datum ins array
        @tmp1=split (/~/,$tmp[3]);
        @Timer_fertig = "\"$Datum[2].$Datum[1] $tmp[1] - $tmp[2] $tmp1[1]\"";  # Ausgabe: 'Tag'.'Monat' 'Startzeit' bis 'Endzeit' 'Verzeichnis'
        $Titel="\"$tmp1[0]\"";   # Ausgabe: Aufzeichnungstitel in 2ter Zeile
        push @Ausgabe,  @Timer_fertig ;
        push @Ausgabe, $Titel;

        }

# system "echo @Ausgabe";

 system "glcdshowtimer @Ausgabe";