Add wakeonlan 0.41

[pmenzel]

Sends 'magic packets' to wake-on-LAN enabled ethernet adapters

Donald wrote a similar script.

$ more /project/admin/tools/wake
#! /usr/local/bin/perl -w
use strict;
use IO::Socket::INET;

@ARGV==1 or die "usage: $0 name|ip|ether\n";

our $ether;
our $ip;

if ($ARGV[0]=~/^([a-z0-9]{1,2}:){5}[a-z0-9]{1,2}$/) {
    $ether=$ARGV[0];
} else {
    our %last_ether;

    open DB,'<','/home/buczek/pcap/arplisten/arplisten.out' or die "/home/buczek/pcap/arplisten/arplisten.out: $!\n";
    while(<DB>) {
        my ($ether,$name)=split;
        my ($timestamp,$ip)=/# arp seen time=(.+) ip=(.+)/;
                if (!exists $last_ether{$ip} || $last_ether{$ip}->[0] lt $timestamp)
                {
            $last_ether{$ip} = [$timestamp,$ether];
                }
        }
        close DB;

    if ($ARGV[0]=~/^\d/) {
        $ip=($ARGV[0]); 
    } else {
        my $pa=gethostbyname($ARGV[0]); # ($ARGV[0]);
        defined $pa or die "$ARGV[0]: unknown host\n";
        $ip=join('.',unpack('C*',$pa));
    }
    exists $last_ether{$ip} or die "$ip: no ethernet address recorded\n";
    $ether=$last_ether{$ip}->[1];
}


my $s=new IO::Socket::INET (Proto=>'udp',Broadcast=>1);
defined $s or die "$!\n";

my $data=pack('C*',(255)x6, (map(hex,split(':',$ether))) x16);
warn "broadcast wake message to $ether\n";
$s->send($data,0,pack_sockaddr_in(9,inet_aton('141.14.31.255'))) or die "$!\n";

Other alternatives exist.