Intel/AMT/Redir.pm

package Intel::AMT::Redir;

use warnings;
use strict;

use IO::Socket::INET;
use Data::Dump qw/dump/;

sub hdump {
        my $data = shift;
        my $out = unpack('H*', $data),$/;
        $out =~ s/(..)/$1 /g;
        warn $out,$/;
}

our $sock;

sub connect {
        my ( $host ) = shift;
        my $port = 16994;

        my $user = 'admin';
        my $passwd = $ENV{AMT_PASSWORD};

        warn 'connect ', $host, ':', $port;

        $sock = IO::Socket::INET->new(
                PeerAddr => $host,
                PeerPort => $port,
        );

        $sock->autoflush(1);

        put( pack('C4A4', 0x10, 0, 0, 0, "SOL ") );
        get( 0x11, 13 );

        my $credentials = pack('CA*CA*', length($user), $user, length($passwd), $passwd);

        put( pack('C9', 0x13, 0, 0, 0, 0x01, length($credentials), 0, 0, 0) . $credentials );
        get( 0x14, 9 );

}

sub put {
        my ( $data ) = shift;
        hdump $data;
        syswrite $sock, $data, length($data);
}

sub get {
        my ( $expect, $len ) = @_;

        my $reply;
        sysread $sock,$reply,$len;
        hdump $reply;

        my ( $op, $error ) = unpack('CC', $reply);
        die "expected $expect got $op" unless $op == $expect;
        die "error" unless $error == 0x00;

        return $reply;
}

1;

1	dpavlin	8	package Intel::AMT::Redir;
2
3			use warnings;
4			use strict;
5
6			use IO::Socket::INET;
7			use Data::Dump qw/dump/;
8
9			sub hdump {
10			my $data = shift;
11			my $out = unpack('H*', $data),$/;
12			$out =~ s/(..)/$1 /g;
13			warn $out,$/;
14			}
15
16			our $sock;
17
18			sub connect {
19			my ( $host ) = shift;
20			my $port = 16994;
21
22			my $user = 'admin';
23			my $passwd = $ENV{AMT_PASSWORD};
24
25			warn 'connect ', $host, ':', $port;
26
27			$sock = IO::Socket::INET->new(
28			PeerAddr => $host,
29			PeerPort => $port,
30			);
31
32			$sock->autoflush(1);
33
34			put( pack('C4A4', 0x10, 0, 0, 0, "SOL ") );
35			get( 0x11, 13 );
36
37			my $credentials = pack('CACA', length($user), $user, length($passwd), $passwd);
38
39			put( pack('C9', 0x13, 0, 0, 0, 0x01, length($credentials), 0, 0, 0) . $credentials );
40			get( 0x14, 9 );
41
42			}
43
44			sub put {
45			my ( $data ) = shift;
46			hdump $data;
47			syswrite $sock, $data, length($data);
48			}
49
50			sub get {
51			my ( $expect, $len ) = @_;
52
53			my $reply;
54			sysread $sock,$reply,$len;
55			hdump $reply;
56
57			my ( $op, $error ) = unpack('CC', $reply);
58			die "expected $expect got $op" unless $op == $expect;
59			die "error" unless $error == 0x00;
60
61			return $reply;
62			}
63
64			1;
65