1 files changed, 52 insertions, 6 deletions

diff --git a/bin/PerlACE/ProcessVX.pm b/bin/PerlACE/ProcessVX.pm
index 6c7e63f7e15..852e77493da 100644
--- a/bin/PerlACE/ProcessVX.pm
+++ b/bin/PerlACE/ProcessVX.pm
@@ -130,6 +130,16 @@ sub IgnoreExeSubDir
     return $self->{IGNOREEXESUBDIR};
 }
 
+sub IgnoreHostRoot
+{
+    my $self = shift;
+
+    if (@_ != 0) {
+        $self->{IGNOREHOSTROOT} = shift;
+    }
+
+    return $self->{IGNOREHOSTROOT};
+}
 
 sub delay_factor {
   my($lps)    = 128;
@@ -192,6 +202,8 @@ sub iboot_cycle_power {
 
   if (defined($iboot_outlet) && defined($iboot_user) && defined($iboot_passwd)) {
     # We perform case #3
+    # This case doesn't support shutdown
+    return if $mode == 1;
 
     my $t = new Net::Telnet();
 
@@ -363,6 +375,7 @@ sub reboot {
 # Helper for spawning with list of kernel modules in a .vxtest file
 sub handle_vxtest_file
 {
+  my $self = shift;
   my $vxtestfile = shift;
   my $vx_ref = shift;
   my $unld_ref = shift;
@@ -383,6 +396,26 @@ sub handle_vxtest_file
   return 1;
 }
 
+# Load a file that is used as startup script. This script has to be
+# located on the host system
+sub handle_startup_script
+{
+  my $script = shift;
+  my $cmds = shift;
+  my $fh = new FileHandle;
+  if (open ($fh, $script)) {
+    while(<$fh>) {
+      my $line1 = $_;
+      chomp $line1;
+      push @$cmds, "$line1";
+    }
+    close $fh;
+  } else {
+    return 0;
+  }
+  return 1;
+}
+
 ### Check for -ExeSubDir commands, store the last one
 my @new_argv = ();
 
@@ -405,14 +438,27 @@ for(my $i = 0; $i <= $#ARGV; ++$i) {
 $PerlACE::ProcessVX::WAIT_DELAY_FACTOR = $ENV{"ACE_RUNTEST_DELAY"};
 
 if (defined $ENV{'ACE_TEST_WINCE'}) {
-    require PerlACE::ProcessWinCE;
+  if ($OSNAME eq "MSWin32") {
+      require PerlACE::ProcessWinCE;
+  } else {
+      require PerlACE::ProcessWinCE_Unix;
+  }
 } else {
-if ($OSNAME eq "MSWin32") {
-    require PerlACE::ProcessVX_Win32;
-}
-else {
-    require PerlACE::ProcessVX_Unix;
+  if ($OSNAME eq "MSWin32") {
+      require PerlACE::ProcessVX_Win32;
+  }
+  else {
+      require PerlACE::ProcessVX_Unix;
+  }
 }
+
+###
+
+sub kill_all
+{
+  my $procmask = shift;
+  my $target = shift;
+  ## NOT IMPLEMENTED YET
 }
 
 1;