6 |
use Devel::REPL::Script; |
use Devel::REPL::Script; |
7 |
|
|
8 |
use lib 'lib'; |
use lib 'lib'; |
9 |
use Intel::AMT::SOAP; |
use Intel::AMT::RemoteControl; |
10 |
|
|
11 |
my $host = $ENV{AMT_HOST} || die "export AMT_HOST=\n"; |
my $host = $ENV{AMT_HOST} || die "export AMT_HOST=\n"; |
12 |
warn "host: $host"; |
warn "host: $host ", '*' x length($ENV{AMT_PASSWORD}), $/; |
13 |
Intel::AMT::SOAP::init(); |
|
14 |
|
warn Intel::AMT::RemoteControl::Capabilities; |
15 |
|
|
16 |
|
Intel::AMT::RemoteControl::run( @ARGV ) if @ARGV; |
17 |
|
|
18 |
Devel::REPL::Script->new->run(); |
Devel::REPL::Script->new->run(); |
19 |
|
|