trunk/bin/amt-repl.pl

#!/usr/bin/perl -w

use warnings;
use strict;

use Devel::REPL::Script;

use lib 'lib';
use Intel::AMT::RemoteControl;

my $host = $ENV{AMT_HOST} || die "export AMT_HOST=\n";
warn "host: $host ", '*' x length($ENV{AMT_PASSWORD}), $/;

warn Intel::AMT::RemoteControl::Capabilities;

Intel::AMT::RemoteControl::run( @ARGV ) if @ARGV;

Devel::REPL::Script->new->run();

1	dpavlin	4	#!/usr/bin/perl -w
2
3			use warnings;
4			use strict;
5
6			use Devel::REPL::Script;
7
8			use lib 'lib';
9	dpavlin	6	use Intel::AMT::RemoteControl;
10	dpavlin	4
11			my $host = $ENV{AMT_HOST} \|\| die "export AMT_HOST=\n";
12	dpavlin	6	warn "host: $host ", '*' x length($ENV{AMT_PASSWORD}), $/;
13
14			warn Intel::AMT::RemoteControl::Capabilities;
15
16			Intel::AMT::RemoteControl::run( @ARGV ) if @ARGV;
17
18	dpavlin	4	Devel::REPL::Script->new->run();
19