[0.2] shutdown funktioniert nicht

Jun 26 00:07:37 Wohnzimmer vdr: [1772] extb: answer from extb complete
Jun 26 00:07:37 Wohnzimmer vdr: [1569] Power button pressed
Jun 26 00:07:37 Wohnzimmer vdr: [1569] confirm: Taste drücken, um Ausschalten abzubrechen
Jun 26 00:07:37 Wohnzimmer vdr: [1569] warning: Taste drücken, um Ausschalten abzubrechen
Jun 26 00:07:37 Wohnzimmer vdr: [2504] Text2Skin: message display update thread started (pid=1569, tid=2504)
Jun 26 00:07:43 Wohnzimmer vdr: [2504] Text2Skin: message display update thread ended (pid=1569, tid=2504)
Jun 26 00:07:43 Wohnzimmer vdr: [1569] confirmed
Jun 26 00:07:43 Wohnzimmer vdr: [1569] executing '/usr/lib/vdr/vdr-shutdown.wrapper 0 0 0 "" 1'
Jun 26 00:07:43 Wohnzimmer vdr: [1569] saved setup to /var/lib/vdr/setup.conf
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S50.noad as shell script
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S90.acpiwakeup as shell script
Jun 26 00:07:43 Wohnzimmer vdr-addon-acpiwakeup: ACPIWakeup functionality is disabled
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S90.custom as shell script
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S90.nvram-wakeup as shell script
Jun 26 00:07:43 Wohnzimmer vdr-nvram-wakeup: nvram-wakeup functionality is disabled
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S90.shutdown
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S91.extb as shell script
Jun 26 00:07:43 Wohnzimmer vdr-shutdown: executing /usr/share/vdr/shutdown-hooks/S91.lifeguard as shell script
Jun 26 00:07:44 Wohnzimmer vdr: [1569] connect from 127.0.0.1, port 49910 - accepted
Jun 26 00:07:44 Wohnzimmer vdr: [1569] Power button pressed
Jun 26 00:07:44 Wohnzimmer vdr: [1569] confirm: Taste drücken, um Ausschalten abzubrechen
Jun 26 00:07:44 Wohnzimmer vdr: [1569] warning: Taste drücken, um Ausschalten abzubrechen
Jun 26 00:07:44 Wohnzimmer vdr: [2574] Text2Skin: message display update thread started (pid=1569, tid=2574)
Jun 26 00:07:44 Wohnzimmer vdr: [1569] closing SVDRP connection
Jun 26 00:07:44 Wohnzimmer atd[2538]: Exec failed for mail command: No such file or directory
Jun 26 00:07:47 Wohnzimmer vdr: [2574] Text2Skin: message display update thread ended (pid=1569, tid=2574)
Jun 26 00:07:47 Wohnzimmer vdr: [1569] not confirmed

#
# Shutdownscript extb-poweroff.pl for extb-Board
#
# adapt by Andreas Brachold <vdr04-at-deltab.de>
# based on Shutdownscript for ACPI by Thomas Koch <tom-at-linvdr.org>
#
use strict;
use POSIX qw(strftime sprintf localtime time);
use Time::Local;


################################################################################
# Our readed config file, to overload the default values
my $CONFIGFILE = "/etc/vdr/plugins/extb-poweroff.conf";


################################################################################
### Defaultvalues, for adjust you can use /etc/vdr/plugins/extb-poweroff.conf
################################################################################
my %Config;
# How many Seconds should poweron before timer started
$Config{"STARTUPMARGIN"} = 300;
# How many second need your system for Shutdown, extb-timer run not until power is down
$Config{"SHUTDOWNDURATION"} = 15; 	
# How many seconds can drift the timer on one day
$Config{"DAILYOFFSET"} = 0;
# Wake avery night at 02:00 for e.g. EPG Scan
$Config{"WAKEFOREPGSCAN"} = 0;
# if you wish to use external script to stop shutdown, maybe adjust name
$Config{"CHECKSCRIPT"} = "";
# Send Macro before Shutdown "" for nothing, "M2" for 
$Config{"RCSEND_VIDEOOFF"} = "";
# shutdown command, on small system like LINVDR use "/bin/busybox poweroff"
#$Config{"SHUTDOWN"} = "/sbin/shutdown -h now";
# Which command should call to transfer IR Codes to extb-board rc or irsend
$Config{"RCCMD"} = "/usr/bin/irsend";
# required commando to send messages to VDR, maybe adjust path
$Config{"SVDRSEND_PL"} = "/usr/lib/vdr/svdrpsend.pl";
# Should set hardware clock through ext-poweroff.pl, set it to "hwclock -w"
$Config{"SETCLOCK"} = "";


################################################################################
# Internal Limits and change only if you know what you do
# How long should extb sleep, eg only 1 Day, 1 Week , 1 Month ... if used timer delay bigger
my $SLEEPLIMIT = 0xFFFFFF; # FFFFFF are 2^24 * 0.524288 Sek = 8.796.093 Sek = 146.601 Min = 101,8 Days
# Duration of one counter step inside the PIC,  4MHz are 0.524288 sek
my $PICTICKER = 0.524288;  
# Dump any messages on Screen and don't go powerdown
my $DEBUG = 0;


################################################################################
my ($STARTUPMARGIN,$SHUTDOWNDURATION,$DAILYOFFSET,$WAKEFOREPGSCAN,$CHECKSCRIPT);
my ($RCSEND_VIDEOOFF,$SHUTDOWN,$RCCMD,$SVDRSEND_PL,$SETCLOCK);


################################################################################
# Dump some Debugmessages
sub dprint {
  $_ = join("", @_);
  chomp;
  print "$_\n" if($DEBUG);
}


################################################################################
# Run external user script
sub CheckScript {
	if ($CHECKSCRIPT && -x $CHECKSCRIPT) {
      my($Next, $Delta, $Channel, $Recording, $UserShutdown) = @ARGV;
      my $msg = `$CHECKSCRIPT $Next $Delta $Channel \"$Recording\" $UserShutdown`;
    if($msg) {
        SendMsg($msg);
        dprint("Shutdown canceld");
        exit 1;
    }
  }
}


################################################################################
# Execute external command
sub ExecCmd {
  my $cmd = shift;
  dprint("Exec: ".$cmd);
  system( $cmd ) if(!$DEBUG);
}


################################################################################
# send message to VDR
sub SendMsg {
  my $msg = shift;
  dprint("SendMsg: ".$msg);
  # Hmm, nix funktioniert ...
  #`$SVDRSEND_PL MESG $msg &> /dev/null`;
  #`echo -e "MESG $msg\nQUIT" | nc 127.0.0.1 2001 &> /dev/null`;
  # nur per atd geht es ...
  `echo '$SVDRSEND_PL MESG "$msg" &> /dev/null' | at now &> /dev/null`;
}


################################################################################
# Turn Video off, or send other RC Code to extb-board
sub VideoOff {
  if($RCSEND_VIDEOOFF) {
  ExecCmd( sprintf("%s send_once EXTB_TX %s",$RCCMD, $RCSEND_VIDEOOFF));
  }
}


################################################################################
# Set clock, if your need it
sub setTime {
  if($SETCLOCK) {
      ExecCmd($SETCLOCK); 
  }
}  


################################################################################
# Set Alarm, your will need it ;-)
sub setAlarm {
  my $Next = shift;
  setTime();  
  dprint("Next event at ", strftime("%d.%m.%Y %H:%M:%S", localtime($Next)));
  dprint("Programming wakeup at ", strftime("%d.%m.%Y %H:%M:%S", localtime($Next-$STARTUPMARGIN)));


  # Get difference between now and next timer
  my $delta = (($Next - ($STARTUPMARGIN + $SHUTDOWNDURATION)) - time());
  if($delta < $STARTUPMARGIN)
  {
    SendMsg("Weckzeit zu kurz ".$delta." Sekunden");
    dprint("Shutdown canceld");
    exit 1;
  }


  VideoOff(); 


  dprint("Wakeup at ",int($delta), " Seconds");
  # Adjust drift crystal with 6 Sec on one day
  if( $DAILYOFFSET > 0) {
    $delta -= ($delta / 86400)*$DAILYOFFSET; # 24h*60m*60s
    dprint("Adjusted Wakeup at ",int($delta), " Seconds");
  }




  # Adjust for PIC Counterticks
  my $valueint =  $delta / $PICTICKER;
  dprint("PIC value ", int($valueint), " PicTics");


  # Userclipping
  if(int($valueint) > $SLEEPLIMIT){ $valueint = $SLEEPLIMIT;  }
  # Systemclipping
  if(int($valueint) > 0xFFFFFF)   { $valueint = 0xFFFFFF;     }


  # integer to hex ( 6 Characters)
  my $valuehex = uc(sprintf("%06x",int($valueint)));
  # insert between all hex character a placeholder "space"
  my $valuestring = "";
  for(my $i = 0; $i <= length($valuehex); $i+=1){
  $valuestring = $valuestring.substr($valuehex,$i,1)." ";
  };


  # Execute rc to send new timer
  ExecCmd( sprintf("%s send_once EXTB_TX %s",$RCCMD,$valuestring ));
}


################################################################################
# Execute System shutdown
sub PowerOff {
  ExecCmd( $SHUTDOWN );
}


################################################################################
# Get time from next day at 02:00
sub NextTwoOclock {
  my $now = time();
  # Array-Format: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
  my @today = localtime($now);
  @today[0..2] = (0, 0, 2);


  # get today 2:00 in seconds since epoc
  my $TwoOclock = timelocal(@today);

  # Check: Is today 2:00 in future or past?
  if($now < $TwoOclock) {
    # Today two oclock is in future
    return $TwoOclock;
  } else {
    # We're past two oclock, next two oclock is tomorrow (+86400s)
    return $TwoOclock+86400;
  }
}


################################################################################
# lookup for configuration file
if ($CONFIGFILE && -e $CONFIGFILE) {
    open(CONFIG, "< $CONFIGFILE") or die "can't open $CONFIGFILE: $!";
    while (<CONFIG>) {
    chomp;                  # no newline
    s/#.*//;                # no comments
    s/^\s+//;               # no leading white
    s/\s+$//;               # no trailing white
    next unless length;     # anything left?
    my ($var, $value) = split(/\s*=\s*/, $_, 2);
    $Config{$var} = $value;

    dprint("Config{\"$var\"} = ".$value);
    }
} 


################################################################################
# Set readed or default configuration
$STARTUPMARGIN = $Config{"STARTUPMARGIN"};
$SHUTDOWNDURATION = $Config{"SHUTDOWNDURATION"}; 	
$DAILYOFFSET  = $Config{"DAILYOFFSET"};
$WAKEFOREPGSCAN  = $Config{"WAKEFOREPGSCAN"};
$CHECKSCRIPT  = $Config{"CHECKSCRIPT"};
$RCSEND_VIDEOOFF  = $Config{"RCSEND_VIDEOOFF"};
$SHUTDOWN  = $Config{"SHUTDOWN"};
$RCCMD = $Config{"RCCMD"};
$SVDRSEND_PL = $Config{"SVDRSEND_PL"};
$SETCLOCK = $Config{"SETCLOCK"};


################################################################################
# Main task
# 
my $TwoOclock = NextTwoOclock();


if(scalar(@ARGV)) {
  # called from vdr
  die "Wrong parameter count\n" if(scalar(@ARGV) != 5);


  CheckScript();

  my($Next, $Delta, $Channel, $Recording, $UserShutdown) = @ARGV;
  # dprint ("$Next, $Delta, $Channel, $Recording, $UserShutdown");
  # find out: Next start at 2:00 or at next timer?
  if(($Next) && (!($WAKEFOREPGSCAN) || ($Next < $TwoOclock))) {
    setAlarm($Next);
    } else {
      if($WAKEFOREPGSCAN) {
          setAlarm($TwoOclock);
      }
      else {
          VideoOff();
      }
    }
    PowerOff();
  } else {
  # called from cmdline
  my $next = `$SVDRSEND_PL next abs`;
  if($next =~ /550 No active timers/) {
    if($WAKEFOREPGSCAN) {
      # start every day at 2:00 local time for EPG update & Co.
      setAlarm($TwoOclock);
    }
    else {
      VideoOff();
    }
    PowerOff();
  } elsif($next =~ /250 \d+ (\d+)/) {
    # find out: Next start at 2:00 or at next timer?
    if(($1 < $TwoOclock) || !($WAKEFOREPGSCAN)) {
      setAlarm($1);
    } else {
        if($WAKEFOREPGSCAN) {
            setAlarm($TwoOclock);
        }
        else {
        VideoOff();
        }
    }
    PowerOff();
  } else {
    print "HELP! What to do? ($next)\n";
  }
}

#
# Das ist eine Beispielkonfigurationsdatei für den shutdownscript extb-poweroff.pl
# installiere es unter /etc/vdr/plugins/extb-poweroff.conf
#
# !!! Achtung jede weitere Zeile mit '#' ist eine Kommentar, 
#     die Parameter mit # Anfang werden ignoriert und nicht gelesen.
# Format : Parameter = Value


################################################################################
# How many Seconds should poweron before timer started
## STARTUPMARGIN
# => 300 Sekunden, wieviele Sekunden soll der Rechner vor dem nächsten 
#        Programmieren Timer des VDR aufwachen, meist reichen schon 60 oder weniger Sekunden,
#        um keinen Timer des VDR zu verpassen, bedenke aber das Linux in regelmäßigen Abständen 
#        ein Festplattenscan auf korrekte Filesystemdaten durchführt, was die Startphase verlängern kann.


STARTUPMARGIN = 300


################################################################################
# How many second need your system for Shutdown, extb-timer run not until power is down
## SHUTDOWNDURATION
# =>  15 Sekunden, wie lange braucht der Rechner zwischen Programmierung des Timer
#        und erreichen des Standbyzustandes. Der extb-Timer beginnt erst zulaufen wenn
#        der Rechner den Standbyzustandes erreicht hat. (Einfach einmal ausmessen)


SHUTDOWNDURATION = 30


################################################################################
# How many seconds can drift the timer on one day
##


DAILYOFFSET = 6


################################################################################
# Wake avery night at 02:00 for e.g. EPG Scan
## WAKEFOREPGSCAN
#    => 1 - Jede Nacht den VDR um 2:00 aufwachen lassen um z.B. EPG scan ausführen zulassen, 
#            der VDR fährt nach gewählter Inaktiven Phase selbst ständig herunter
#    => 0 - nur bei programmieren Timer aufwachen


#WAKEFOREPGSCAN = 0


################################################################################
# if you wish to use external script to stop shutdown, maybe adjust name
## CHECKSCRIPT
#    => externer Userscript (siehe examples/checkscript.sh), welcher den Shutdown abbrechen kann,
#        existiert der Script nicht oder produziert er keine Ausgabe wird der Shutdown-Prozess
#        normal fortgesetzt, produziert der eine Ausgabe nach stdout wird der  Shutdown-Prozess
#        abgebrochen und die Meldung als OSD-Msg weitergeleitet.
#        Bei Bedarf nächste Zeile auskommentieren.


#CHECKSCRIPT = /usr/bin/checkscript.sh


################################################################################
# Send Macro before Shutdown "" for nothing, "M2" for 
## RCSEND_VIDEOOFF
#    => ""   - Keine RC-Kommandos an das extb-board senden
#    => "M2" - Makro M2 als RC-Kommando an das extb-board senden (Video aus / LED aus...)


#RCSEND_VIDEOOFF = M2


################################################################################
# shutdown command, on small system like LINVDR use "/bin/busybox poweroff"
## SHUTDOWN
#    => der verwendet Befehl um das System endgültig herunterzufahren
#    auf kleinen Systemen wie LINVDR wird "/bin/busybox poweroff" verwendet.


SHUTDOWN = /usr/bin/poweroffvdr


################################################################################
# Which command should call to transfer IR Codes to extb-board rc or irsend
## RCCMD
#    => der verwendet Befehl um IR Codes zum extb-board zu senden, rc oder irsend


RCCMD = /usr/bin/irsend  


################################################################################
# required commando to send messages to VDR, maybe adjust path
## SVDRSEND_PL
#    => erforderlicher Befehl um Nachrichten zum VDR zu senden, der Path muss 
#       möglicherweise angepasst werden.


SVDRSEND_PL = /usr/lib/vdr/svdrpsend.pl


################################################################################
# Should set hardware clock through ext-poweroff.pl, 
## SETCLOCK
#     => Mit welche Kommando soll die Hardwareuhr syncronisiert werden,
#        die meisten Distri. machen dies selber, aber möglicher weise braucht
#        LINVDR dies. Bei Bedarf nächste Zeile auskommentieren.


#SETCLOCK = hwclock -w