lib/PXElator/wol.pm

package wol;

use warnings;
use strict;

use IO::Socket::INET;
use Regexp::Common qw/net/;

use client;

sub power_on {
        my $target = shift;

        my ( $port, $mac, $ip ) = ( 9 );

        if ( $target =~ m/$RE{net}{MAC}{-keep}/ ) {
                $mac = $1;
                $ip  = client::ip_from_mac $1;
        } elsif ( $target =~ m/$RE{net}{IPv4}{-keep}/ ) {
                $ip  = $1;
                $mac = client::mac_from_ip $1;
        } else {
                die "$target isn't IP or MAC";
        }

        warn "# power_on $ip $mac";

        my $sock = IO::Socket::INET->new( Proto=>'udp' );
        my $ip_addr = inet_aton($ip);
        my $sock_addr = sockaddr_in($port, $ip_addr);
        $mac =~ s{:}{}g;

        my $packet = pack('C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac x 16);

        setsockopt($sock, SOL_SOCKET, SO_BROADCAST, 1);
        send($sock, $packet, 0, $sock_addr);
        close ($sock);
}

1;
1	package wol;
2
3	use warnings;
4	use strict;
5
6	use IO::Socket::INET;
7	use Regexp::Common qw/net/;
8
9	use client;
10
11	sub power_on {
12	my $target = shift;
13
14	my ( $port, $mac, $ip ) = ( 9 );
15
16	if ( $target =~ m/$RE{net}{MAC}{-keep}/ ) {
17	$mac = $1;
18	$ip = client::ip_from_mac $1;
19	} elsif ( $target =~ m/$RE{net}{IPv4}{-keep}/ ) {
20	$ip = $1;
21	$mac = client::mac_from_ip $1;
22	} else {
23	die "$target isn't IP or MAC";
24	}
25
26	warn "# power_on $ip $mac";
27
28	my $sock = IO::Socket::INET->new( Proto=>'udp' );
29	my $ip_addr = inet_aton($ip);
30	my $sock_addr = sockaddr_in($port, $ip_addr);
31	$mac =~ s{:}{}g;
32
33	my $packet = pack('C6H*', 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, $mac x 16);
34
35	setsockopt($sock, SOL_SOCKET, SO_BROADCAST, 1);
36	send($sock, $packet, 0, $sock_addr);
37	close ($sock);
38	}
39
40	1;