WakeonLan

#!/usr/bin/perl


use Socket;
use Getopt::Std;
use Time::Local;




$Dest = $opt_d  || "localhost";
$Port = $opt_p  || 2001;
$Cmd  = "next" || Error("missing command");






$obiregex = '250\s[0-9]{1,2}\s[[A-Za-z]{3,3} (Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)\s\s?([0-9]{1,2})\s([0-9]{1,2}:[0-9]{2,2}):[0-9]{2,2}\s([0-9]{4,4})';


%longmonth = (
        "Null" => "0",
        "Jan" => "1",
        "Feb" => "2",
        "Mar" => "3",
        "Apr" => "4",
        "May" => "5",
        "Jun" => "6",
        "Jul" => "7",
        "Aug" => "8",
        "Sep" => "9",
        "Oct" => "10",
        "Nov" => "11",
        "Dec" => "12",
);


$Timeout = 10; # max. seconds to wait for response


$SIG{ALRM} = sub { Error("timeout"); };
alarm($Timeout);


$iaddr = inet_aton($Dest)                   || Error("no host: $Dest");
$paddr = sockaddr_in($Port, $iaddr);


$proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto)  || Error("socket: $!");
connect(SOCK, $paddr)                       || Error("connect: $!");
select(SOCK); $| = 1;
Receive();
Send($Cmd);
Send("quit");
close(SOCK)                                 || Error("close: $!");


sub Send
{
  my $cmd = shift || Error("no command to send");
  print SOCK "$cmd\r\n";
  Receive();
}


sub Receive
{
  while (<SOCK>) {
        if (/250/){
                ($monat,$tag,$zeit,$jahr) = (/$obiregex/);
                $datum = "$tag.$longmonth{$monat}.$jahr";
                print STDOUT "$zeit $datum\n";
                $command = 'admin@192.168.100.70'.' "at '.$zeit." ".$datum. ' < /opt/tmp/vdr.at"';
                $result = `ssh $command > /dev/null`;
                $result = `ssh admin\@192.168.100.70 atq /dev/null`;
                $result =~ /\d+\s+(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}) \S+/;


                my ($year,$month,$day,$hour,$minute) = ($1,$2,$3,$4,$5);


                ($sendhour,$sendminute) = split(/:/,$zeit);


                $sendtime = timelocal(0,$sendminute,$sendhour,$tag,$longmonth{$monat},$jahr);
                $receivetime = timelocal(0,$minute,$hour,$day,$month,$year);


                if ($sendtime-$receivetime){
                                Error("timer set error");
                        }
        }
        last if substr($_, 3, 1) ne "-";
        }
}




sub Error
{
  print STDERR "@_\n";
  close(SOCK);
  exit 0;
}

#!/usr/bin/perl


$command = "admin\@192.168.100.70 atq";


$result = `ssh $command`;


$result =~ /\d+\s+(\d{4})-(\d{2})-(\d{2}) (\d{2}):(\d{2}) \S+/;
my ($year,$month,$day,$hour,$minute) = ($1,$2,$3,$4,$5);


print STDOUT "$result";
print STDOUT "$var\n";
print STDOUT "Tag = $day\n";
print STDOUT "Monat = $month\n";
print STDOUT "Jahr = $year\n";
print STDOUT "Stunde = $hour\n";
print STDOUT "Minute = $minute\n";

#!/bin/bash
# $Id: vdrshutdown 773 2004-08-23 01:22:35Z bistr-o-math $


#NVRAMCMD=/usr/local/bin/nvram-wakeup
WAKESSH=/root/perl/obisvdr.pl
SVDRPCMD=/usr/local/src/VDR/svdrpsend.pl
LOGGER=/bin/logger
CHECKSCRIPT=/root/perl/test.sh


#################
##  if the script $CHECKSCRIPT thinks that we should     shutdown,
##     it must not print anything on stdout.
##  if it                      thinks that we should NOT shutdown,
##     it must print a one-line message on stdout describing the reason.
##
##  note that all parameters passed to vdrshutdown will also be passed to $CHECKSCRIPT
##  so it might use them (e.g. $5 -eq 0 below)
##
##  it might look like this:
##  --------------------------
##    #!/bin/bash
##
##    pgrep 2divx >/dev/null 2>&1       && { echo Divx-Conversion is still running;  exit; }
##
##    test -a /some/file                && { echo /some/file exists;                 exit; }
##
##    USERCOUNT=`who | wc -l`;
##    test $5 -eq 0 -a $USERCOUNT -gt 0 && { echo "$USERCOUNT users are logged in."; exit; }
##
##  --------------------------
##
##  now if $CHECKSCRIPT exists and is executable, the message will be passed through
##  SVDRP to the tv screen.
##


test -x $CHECKSCRIPT && {
     msg=`$CHECKSCRIPT "$@"`
     test "$msg" != "" && {
          $SVDRPCMD MESG $msg &
          $LOGGER -t `basename $0` "shutdown aborted: $msg"
          exit 1
     }
}


#################


# Add here needed options like --configfile=...
# (read 'man nvram-wakeup' and 'man nvram-wakeup.conf' for more details)
#$NVRAMCMD --syslog --settime $1


$WAKESSH


# if you are going to use the set_timer script instead of nvram-wakeup,
# comment out the line above and uncomment the following line.
# (read the comments inside the script for more details)
# $PATH_TO_SET_TIMER/set_timer $1 $2




case $PIPESTATUS in
     0) # all went ok - new date and time set
        shutdown -h now
        EXITSTATUS=0
        ;;
     1) # all went ok - new date and time set.
        #
        # *** but we need to reboot. ***
        #
        # for some boards this is needed after every change.
        #
        # for some other boards, we only need this after changing the
        # status flag, i.e. from enabled to disabled or the other way.




        # For plan A - (Plan A is not supported anymore---see README)
        #
        # For plan B - (don't forget to install the modified kernel image first)
        #


        lilo -R PowerOff


        shutdown -r now
        EXITSTATUS=0
        ;;
     2) # something went wrong
        # don't do anything - just exit with status 1
        EXITSTATUS=1
        ;;
esac


# exit with 0 if everything went ok.
# exit with 1 if something went wrong.
exit $EXITSTATUS