ACE/bin/PerlACE/TestTarget_WinCE.pm

   1 #!/usr/bin/env perl
   2 package PerlACE::TestTarget_WinCE;
   3
   4 # ******************************************************************
   5 # Description : Creates a PerlACE::WinCE
   6 # Author      : Johnny Willemsen
   7 # Create Date : 29/20/2008
   8 # ******************************************************************
   9
  10 # ******************************************************************
  11 # Pragma Section
  12 # ******************************************************************
  13
  14 use strict;
  15
  16 use PerlACE::TestTarget;
  17 use PerlACE::ProcessVX;
  18 use File::Copy;
  19 use Cwd;
  20 use English;
  21
  22 our @ISA = qw(PerlACE::TestTarget);
  23
  24 sub new
  25 {
  26     my $proto = shift;
  27     my $config_name = shift;
  28     my $class = ref ($proto) || $proto;
  29     my $self = {};
  30     bless ($self, $class);
  31     $self->GetConfigSettings($config_name);
  32     my $targethost;
  33     my $env_name = $config_name.'_IPNAME';
  34     if (exists $ENV{$env_name}) {
  35         $targethost = $ENV{$env_name};
  36     }
  37     else {
  38         print STDERR "You must define target hostname/IP with $env_name\n";
  39         undef $self;
  40         return undef;
  41     }
  42
  43     $env_name = $config_name.'_FS_ROOT';
  44     my $fsroot = '\network\temp\ACE\wince6';
  45     if (exists $ENV{$env_name}) {
  46         $fsroot = $ENV{$env_name};
  47     }
  48     else {
  49         print STDERR "Warning: no $env_name variable; falling back ",
  50                      "to $fsroot\n";
  51     }
  52     $self->{FSROOT} = $fsroot;
  53
  54     $self->{REBOOT_CMD} = $ENV{'ACE_REBOOT_LVRT_CMD'};
  55     if (!defined $self->{REBOOT_CMD}) {
  56         $self->{REBOOT_CMD} = 'I_Need_A_Reboot_Command';
  57     }
  58     $self->{REBOOT_TIME} = $ENV{'ACE_LVRT_REBOOT_TIME'};
  59     if (!defined $self->{REBOOT_TIME}) {
  60         $self->{REBOOT_TIME} = 200;
  61     }
  62
  63     $self->{REBOOT_TIME} = $ENV{'ACE_RUN_LVRT_REBOOT_TIME'};
  64     if (!defined $self->{REBOOT_TIME}) {
  65         $self->{REBOOT_TIME} = 200;
  66     }
  67     $self->{REBOOT_NEEDED} = undef;
  68
  69     my $telnet_port = $ENV{'ACE_RUN_VX_TGT_TELNET_PORT'};
  70     my $telnet_host = $ENV{'ACE_RUN_VX_TGT_TELNET_HOST'};
  71     if (!defined $telnet_host)  {
  72       $telnet_host = $ENV{'ACE_RUN_VX_TGTHOST'};
  73     }
  74     if (!defined $telnet_port)  {
  75       $telnet_port = 23;
  76     }
  77     if (!defined $self->{HOST_ROOT})  {
  78       $self->{HOST_ROOT} = $self->{FSROOT};
  79     }
  80
  81     $PerlACE::ProcessVX::ExeExt = '.exe';
  82
  83     return $self;
  84 }
  85
  86 # ******************************************************************
  87 # Subroutine Section
  88 # ******************************************************************
  89
  90 sub LocalFile {
  91     my $self = shift;
  92     my $file = shift;
  93     my $cwdrel = $file;
  94     my $prjroot = defined $ENV{'ACE_RUN_VX_PRJ_ROOT'} ? $ENV{'ACE_RUN_VX_PRJ_ROOT'}  : $ENV{'ACE_ROOT'};
  95     if (length ($cwdrel) > 0) {
  96         $cwdrel = File::Spec->abs2rel( cwd(), $prjroot );
  97     }
  98     else {
  99         $cwdrel = File::Spec->abs2rel( $cwdrel, $prjroot );
 100     }
 101     my $newfile = $self->{FSROOT} . "/" . $cwdrel . "/" . $file;
 102     if (defined $ENV{'ACE_TEST_VERBOSE'}) {
 103       print STDERR "WinCE LocalFile for $file is $newfile\n";
 104     }
 105     return $newfile;
 106 }
 107
 108 sub AddLibPath ($)
 109 {
 110     my $self = shift;
 111     my $dir = shift;
 112     if (defined $ENV{'ACE_TEST_VERBOSE'}) {
 113         print STDERR "Adding libpath $dir\n";
 114     }
 115     PerlACE::add_lib_path ($dir);
 116 }
 117
 118 sub CreateProcess
 119 {
 120     my $self = shift;
 121     if ($OSNAME eq "MSWin32") {
 122         my $process = new PerlACE::ProcessVX ($self, @_);  return $process;
 123     } else {
 124         my $process = new PerlACE::ProcessVX (@_, $self);  return $process;
 125     }
 126 }
 127
 128 # Need a reboot when this target is destroyed.
 129 sub NeedReboot ($)
 130 {
 131     my $self = shift;
 132     $self->{REBOOT_NEEDED} = 1;
 133 }
 134
 135 # Reboot target
 136 sub RebootNow ($)
 137 {
 138     my $self = shift;
 139     $self->{REBOOT_NEEDED} = undef;
 140     print STDERR "Attempting to reboot target...\n";
 141     reboot ();
 142 }
 143
 144 sub WaitForFileTimed ($)
 145 {
 146     my $self = shift;
 147     my $file = shift;
 148     my $timeout = shift;
 149     my $cwdrel = $file;
 150     my $prjroot = defined $ENV{'ACE_RUN_VX_PRJ_ROOT'} ? $ENV{'ACE_RUN_VX_PRJ_ROOT'}  : $ENV{'ACE_ROOT'};
 151     if (length ($cwdrel) > 0) {
 152         $cwdrel = File::Spec->abs2rel( cwd(), $prjroot );
 153     }
 154     else {
 155         $cwdrel = File::Spec->abs2rel( $cwdrel, $prjroot );
 156     }
 157     my $newfile = $self->{HOST_ROOT} . "/" . $cwdrel . "/" . $file;
 158     if (defined $ENV{'ACE_TEST_VERBOSE'}) {
 159         print STDERR "WinCE waits for $newfile timeout $timeout\n";
 160     }
 161     return PerlACE::waitforfile_timed ($newfile, $timeout);
 162 }
 163
 164 # Put file from a to b
 165 sub PutFile ($)
 166 {
 167     my $self = shift;
 168     my $src = shift;
 169     return 0;
 170 }
 171
 172 sub DeleteFile ($)
 173 {
 174     my $self = shift;
 175     my $file = shift;
 176     my $newfile = $self->LocalFile($file);
 177     if (defined $ENV{'ACE_TEST_VERBOSE'}) {
 178         print STDERR "delete $newfile\n";
 179     }
 180     unlink ("$newfile");
 181 }
 182
 183 sub KillAll ($)
 184 {
 185     my $self = shift;
 186     my $procmask = shift;
 187     PerlACE::ProcessVX::kill_all ($procmask, $self);
 188 }
 189
 190 1;