Intel/AMT/Redir.pm

package Intel::AMT::Redir;

use warnings;
use strict;

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

our $sock;

my $MAX_TRANSMIT_BUFFER = 1000;
my $TRANSMIT_BUFFER_TIMEOUT = 100;
my $TRANSMIT_OVERFLOW_TIMEOUT = 0;
my $HOST_SESSION_RX_TIMEOUT = 10000;
my $HOST_FIFO_RX_FLUSH_TIMEOUT = 0;
my $HEARTBEAT_INTERVAL = 5000;

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 ")
                , 'start redirection session' );
        get( 0x11, 13
                , 'start redirection session reply' );

        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
                , 'autheniticate session' );
        get( 0x14, 9
                , 'authenticate session reply' );

        put(
                pack('C8v6C4',
                        0x20, 0,0,0,
                        0,0,0,0,
                        $MAX_TRANSMIT_BUFFER,
                        $TRANSMIT_BUFFER_TIMEOUT,
                        $TRANSMIT_OVERFLOW_TIMEOUT,
                        $HOST_SESSION_RX_TIMEOUT,
                        $HOST_FIFO_RX_FLUSH_TIMEOUT,
                        $HEARTBEAT_INTERVAL,
                        0,0,0,0,
                )
                , 'start sol redirection' );
        get( 0x21, 23
                , 'start sol redirection reply' );

        my $send = "\r";

        put(
                pack('C8v', 0x28,0,0,0, 0,0,0,0, length($send) ) . $send,
                'sol data to host'
        );
        my $host = get( 0x2a, -10, 'sol data from host' );

        warn "$host\n";

        put(
                pack('C8', 0x22,0,0,0, 0,0,0,0),
                'end sol redirection'
        );
        get( 0x23, 8, 'end sol redirection reply' );

}

sub hdump {
        my ($data,$desc) = @_;
        my $out = unpack('H*', $data);
        $out =~ s/(.{16})/$1 /g;
        $out =~ s/(\S\S)/$1 /g;
        warn $desc ? "# $desc\n$out\n" : "$out\n";
}

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

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

        my $reply;
        sysread $sock,$reply,abs($len);
        hdump $reply, $desc;

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

        if ( $len < 0 ) {
                $len = unpack('x8v', $reply);
                warn "len: $len\n";
                sysread $sock, $reply, $len;
                hdump $reply, 'data';
        }

        return $reply;
}

1;

1	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	our $sock;
10
11	my $MAX_TRANSMIT_BUFFER = 1000;
12	my $TRANSMIT_BUFFER_TIMEOUT = 100;
13	my $TRANSMIT_OVERFLOW_TIMEOUT = 0;
14	my $HOST_SESSION_RX_TIMEOUT = 10000;
15	my $HOST_FIFO_RX_FLUSH_TIMEOUT = 0;
16	my $HEARTBEAT_INTERVAL = 5000;
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	, 'start redirection session' );
36	get( 0x11, 13
37	, 'start redirection session reply' );
38
39	my $credentials = pack('CACA', length($user), $user, length($passwd), $passwd);
40
41	put( pack('C9', 0x13, 0, 0, 0, 0x01, length($credentials), 0, 0, 0) . $credentials
42	, 'autheniticate session' );
43	get( 0x14, 9
44	, 'authenticate session reply' );
45
46	put(
47	pack('C8v6C4',
48	0x20, 0,0,0,
49	0,0,0,0,
50	$MAX_TRANSMIT_BUFFER,
51	$TRANSMIT_BUFFER_TIMEOUT,
52	$TRANSMIT_OVERFLOW_TIMEOUT,
53	$HOST_SESSION_RX_TIMEOUT,
54	$HOST_FIFO_RX_FLUSH_TIMEOUT,
55	$HEARTBEAT_INTERVAL,
56	0,0,0,0,
57	)
58	, 'start sol redirection' );
59	get( 0x21, 23
60	, 'start sol redirection reply' );
61
62	my $send = "\r";
63
64	put(
65	pack('C8v', 0x28,0,0,0, 0,0,0,0, length($send) ) . $send,
66	'sol data to host'
67	);
68	my $host = get( 0x2a, -10, 'sol data from host' );
69
70	warn "$host\n";
71
72	put(
73	pack('C8', 0x22,0,0,0, 0,0,0,0),
74	'end sol redirection'
75	);
76	get( 0x23, 8, 'end sol redirection reply' );
77
78	}
79
80	sub hdump {
81	my ($data,$desc) = @_;
82	my $out = unpack('H*', $data);
83	$out =~ s/(.{16})/$1 /g;
84	$out =~ s/(\S\S)/$1 /g;
85	warn $desc ? "# $desc\n$out\n" : "$out\n";
86	}
87
88	sub put {
89	my ( $data, $desc ) = @_;
90	hdump $data, $desc;
91	syswrite $sock, $data, length($data);
92	}
93
94	sub get {
95	my ( $expect, $len, $desc ) = @_;
96
97	my $reply;
98	sysread $sock,$reply,abs($len);
99	hdump $reply, $desc;
100
101	my ( $op, $error ) = unpack('CC', $reply);
102	die "expected $expect got $op" unless $op == $expect;
103	die "error" unless $error == 0x00;
104
105	if ( $len < 0 ) {
106	$len = unpack('x8v', $reply);
107	warn "len: $len\n";
108	sysread $sock, $reply, $len;
109	hdump $reply, 'data';
110	}
111
112	return $reply;
113	}
114
115	1;
116