poweroff.pl gelöscht

#!/usr/bin/perl


##
# by Thomas Koch <tom at linvdr.org>
##
# modified by SQ


use POSIX qw(strftime sprintf);
use Time::Local;


my $PROC_ALARM = "/proc/acpi/alarm";
my $STARTUPMARGIN = "300";
my $DEBUG = 0;


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


sub setTime {
  system("hwclock -w"); 
}  


sub setAlarm {
  my $Next = shift;
  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)));
  system(sprintf("echo \"%s\" > %s", strftime("%Y-%m-%d %H:%M:%S", localtime($Next-$STARTUPMARGIN)), $PROC_ALARM));
  system(sprintf("echo \"%s\" > %s", strftime("%Y-%m-%d %H:%M:%S", localtime($Next-$STARTUPMARGIN)), $PROC_ALARM));
}


sub setNoAlarm {
  # turns alarm off, on most mainboards
  setTime();  
  print("No timers defined!");
  system(sprintf("echo \"2004-08-17 99:00:00\" > %s", $PROC_ALARM));
  system(sprintf("echo \"2004-08-17 99:00:00\" > %s", $PROC_ALARM));
}


sub PowerOff {
  system("/usr/bin/activy.sh");
  system("/usr/bin/activy_lcdclear.sh");
  system("/bin/busybox poweroff") if(!$DEBUG);
}


sub NextFiveOclock {
  my $now = time();
  # Array-Format: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
  my @today = localtime($now);
  @today[0..2] = (0, 30, 10);


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

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


my $FiveOclock = NextFiveOclock();


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

  my($Next, $Delta, $Channel, $Recording, $UserShutdown) = @ARGV;

#  # find out: Next start at 5:00 or at next timer?
#  if(($Next) && ($Next < $FiveOclock)) {
    setAlarm($Next);
#  } else {
#    setAlarm($FiveOclock);
#  }
  PowerOff();


} else {
  # called from cmdline
  $next = `svdrpsend.pl next abs`;
  if($next =~ /550 No active timers/) {
    setNoAlarm();
    system("rm /etc/nightwakeup");
    PowerOff();
  } elsif($next =~ /250 \d+ (\d+)/) {
    # find out: Next start at 5:00 or at next timer?
#    if($1 < $FiveOclock) {
      setAlarm($1);
#    system("rm /etc/nightwakeup");
#    } else {
#      setAlarm($FiveOclock);
#      system("touch /etc/nightwakeup");
#    }
    PowerOff();
  } else {
    print "HELP! What to do? ($next)\n";
  }
}