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	#!/usr/bin/perl -w
2
3	use warnings;
4	use strict;
5
6	use Devel::REPL::Script;
7
8	use lib 'lib';
9	use Intel::AMT::RemoteControl;
10
11	my $host = $ENV{AMT_HOST} \|\| die "export AMT_HOST=\n";
12	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	Devel::REPL::Script->new->run();
19