2010-05-13 19:51:42 +04:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
|
|
use IO::Socket;
|
|
|
|
|
|
2010-05-13 20:48:46 +04:00
|
|
|
$vm = shift;
|
|
|
|
|
|
2010-05-13 19:51:42 +04:00
|
|
|
my $server = new IO::Socket::INET(LocalPort => 7183, Listen => 1);
|
|
|
|
|
die "Could not create socket: $!\n" unless $server;
|
|
|
|
|
|
2010-05-20 11:32:49 +04:00
|
|
|
system("vboxmanage startvm $vm --type headless");
|
2010-05-13 20:48:46 +04:00
|
|
|
|
|
|
|
|
print "Listening for connection...\n";
|
|
|
|
|
|
2010-05-13 19:51:42 +04:00
|
|
|
my $client = $server->accept();
|
|
|
|
|
|
|
|
|
|
print while (<$client>);
|
|
|
|
|
|
