1 #

     2 # Copyright (c) 2005-2009 Nokia Corporation and/or its subsidiary(-ies).

     3 # All rights reserved.

     4 # This component and the accompanying materials are made available

     5 # under the terms of "Eclipse Public License v1.0"

     6 # which accompanies this distribution, and is available

     7 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 #

     9 # Initial Contributors:

    10 # Nokia Corporation - initial contribution.

    11 #

    12 # Contributors:

    13 #

    14 # Description:  

    15 #

    16 

    17 #

    18 # Initial Contributors:

    19 # Nokia Corporation - initial contribution.

    20 #

    21 # Contributors:

    22 #

    23 # Description:

    24 #

    25 

    26 package Symbian::StatAPI;

    27 require 5.000;

    28 use Win32::API;

    29 use Win32::TieRegistry(Delimiter=>"/");

    30 use IO::File;

    31 use File::Basename;

    32 use LWP::Simple;

    33 use LWP::UserAgent;

    34 use HTTP::Request;

    35 use HTTP::Response;

    36 use Exporter;

    37 use vars qw (@ISA @EXPORT $VERSION);

    38 @ISA		= qw(Exporter);

    39 @EXPORT		= qw(

    40 				&set_dll_folder

    41 				&set_working_folder

    42 				&initialise

    43 				&get_version

    44 				&set_connection_logging

    45 				&close_connection_logging

    46 				&get_device_log_file

    47 				&set_screenshot_dir

    48 				&get_last_error

    49 				&connect_to_target

    50 				&connect_to_target_multithreaded

    51 				&disconnect_from_target

    52 				&set_command_delay

    53 				&set_image_verification

    54 				&set_command_logging

    55 				&get_screenshot

    56 				&get_device_info

    57 				&touch_screen

    58 				&start_application

    59 				&start_program

    60 				&open_application

    61 				&close_application

    62 				&basic_key_sequence

    63 				&control_keystroke

    64 				&combination_keystroke

    65 				&pause

    66 				&start_eshell

    67 				&stop_eshell

    68 				&copy_commonfile_to_target

    69 				&copy_testfile_to_target

    70 				&copy_buildfile_to_target

    71 				&move_from_target

    72 				&copy_from_target

    73 				&remove_unwanted_file

    74 				&send_command_file

    75 				&send_raw_command

    76 				&hold_key

    77 				&remove_file

    78 				&create_folder

    79 				&remove_folder);

    80 

    81 

    82 ##########################################################################

    83 # AUTO-GENERATED BLOCK - DO NOT MODIFY

    84 ##########################################################################

    85 $VERSION = 3.3;

    86 ##########################################################################

    87 

    88 

    89 # global variables

    90 my $FUNCTION;			# dll function entrypoint

    91 my $dllname;			# dll to call

    92 my $def_connection_type;	# default (global) connection type

    93 my $def_codetype;		# default (global) code type

    94 my $lasterror;			# last error thrown

    95 my $imagedir;			# image retrieve location

    96 my $logfile;			# log file to write to

    97 my $senddir;			# temp send directory

    98 my $recvdir;			# temp receive directory

    99 my $workdir;			# stat working directory

   100 my $statdir;			# stat dll location

   101 my $loglevel;			# internal logging level

   102 

   103 #TMS required vars

   104 my $httpserver;  		# http server for downloading files

   105 my $runno;			# needed to obtain build location to download files

   106 my $commondir;			# common files temp dir

   107 my $builddir;			# build files location

   108 

   109 

   110 ################################################################

   111 # exported functions

   112 # Come in 2 levels: Global - apply to all connections, 

   113 #                   Local - apply to individual connections

   114 ################################################################

   115 

   116 ################################################################

   117 # GLOBAL ENTRYPOINTS

   118 # Apply to all connections

   119 ################################################################

   120 

   121 ################################################################

   122 # 	set_dll_folder(<dll folder>);

   123 #

   124 # 	Required parameters:

   125 #	$statdir 	e.g. "C:\epoc32\tools\STAT";

   126 #

   127 ################################################################

   128 sub set_dll_folder

   129 {

   130 	my @cmdline = @_;

   131 	my $cmdref = \@cmdline;

   132 	my $dir = $cmdref->[0];

   133 

   134 	$statdir = $dir;

   135 

   136 	return 1;

   137 }

   138 

   139 

   140 ################################################################

   141 # 	set_working_folder(<working folder>);

   142 #

   143 # 	Required parameters:

   144 #	$statdir 	e.g. "C:\apps\STAT";

   145 #

   146 ################################################################

   147 sub set_working_folder

   148 {

   149 	my @cmdline = @_;

   150 	my $cmdref = \@cmdline;

   151 	my $dir = $cmdref->[0];

   152 

   153 	$workdir = $dir;

   154 

   155 	return 1;

   156 }

   157 

   158 

   159 ################################################################

   160 # Must be the first function called

   161 # 	initialise(@ARGV);

   162 # 	initialise(<dll name>, <connection type>, <code type>, <log level>, <log file>, <send dir>, <recv dir>, <common dir>, <httpserver>, <runno>, <builddir>);

   163 #

   164 # 	Required parameters:

   165 #	$dllname 	e.g. STAT.DLL;

   166 #

   167 #	Needed only if connection/code types won't change throughout the script

   168 #	$def_connection_type	e.g. 2 (Symbian Serial)

   169 #	$def_codetype		e.g. COM2

   170 #

   171 #	Needed only for logging

   172 #	$loglevel 	# internal logging level:

   173 			# 0 = terse

   174 			# 1 = noraml

   175 			# 2 = verbose

   176 			# 3 = Perl output redirected to log file

   177 #	$logfile 	e.g. C:\Apps\Stat\LogFiles\StatPerl.log;

   178 #

   179 #	Needed only for sending/receiving files (must end in 'slash')

   180 #	$senddir 	e.g. auto/12267/send/

   181 #	$recvdir 	e.g. auto/12267/recv/

   182 #

   183 #	Needed only for sending common files to target (TMS only - must end in 'slash')

   184 #	$commondir 	e.g. auto/12267/common/

   185 

   186 #	Needed only for sending build files to target (TMS only)

   187 #	$httpserver e.g. http://lon-adminpool01:8080/AutoTest

   188 #	$runno	e.g. 150

   189 #	$builddir 	e.g. auto/12267/build/	(must end in 'slash')

   190 #

   191 ################################################################

   192 sub initialise

   193 {

   194 	my @cmdline = @_;

   195 	my $cmdref = \@cmdline;

   196 	$dllname = $cmdref->[0];

   197 	$def_connection_type = $cmdref->[1];

   198 	$def_codetype = $cmdref->[2];

   199 	$loglevel = $cmdref->[3];

   200 	$logfile = $cmdref->[4];

   201 	$senddir = $cmdref->[5];

   202 	$recvdir = $cmdref->[6];

   203 	$commondir = $cmdref->[7];

   204 	$httpserver = $cmdref->[8];

   205 	$runno = $cmdref->[9];

   206 	$builddir = $cmdref->[10];

   207 

   208 	# required parameter

   209 	if (!$dllname)

   210 	{

   211 		$lasterror = "DLL name not supplied!";

   212 		Line(get_last_error());

   213 		return 0;

   214 	}

   215 

   216 	# adjust log level if necessary

   217 	if ($loglevel < 0)

   218 	{

   219 		$loglevel = 0;

   220 	}

   221 	if ($loglevel > 3)

   222 	{

   223 		$loglevel = 3;

   224 	}

   225 	

   226 	# redirect output to log file if we've supplied one, else will go to screen

   227 	if ($logfile and ($loglevel eq 3))

   228 	{

   229 		print "Redirecting output to [$logfile]...\n";

   230 		open(STDOUT, ">> $logfile");

   231 		open(STDERR, ">> $logfile");

   232 	}

   233 		

   234 	# reverse '/' to '\\' in filenames

   235 	$senddir =~ s/\//\\/g;

   236 	$recvdir =~ s/\//\\/g;

   237 	$commondir =~ s/\//\\/g;

   238 	$builddir =~ s/\//\\/g;

   239 

   240 	if (!$workdir)

   241 	{

   242 		$workdir = "C:\\apps\\stat";

   243 	}

   244 	Line("Working directory: $workdir\n");

   245 

   246 	if (!$statdir)

   247 	{

   248 		$statdir = "C:\\epoc32\\tools\\STAT";

   249 	}

   250 	Line("Stat directory: $statdir\n");

   251 

   252 	Line("Initialising STAT API:\n  DLLName [$dllname]\n  Default Connection [$def_connection_type]\n  Default Code Type [$def_codetype]\n  Log Level [$loglevel]\n  LogFile [$logfile]\n  Send [$senddir]\n  Recv [$recvdir]\n  Common [$commondir]\n  HTTPServer [$httpserver]\n  Run No [$runno]\n  Build [$builddir]\n");

   253 	return 1;

   254 }

   255 

   256 

   257 ################################################################

   258 # Get the version of the dll

   259 ################################################################

   260 sub get_version

   261 {

   262 	$FUNCTION = new Win32::API("$statdir/$dllname", "StdVersion", [V], P);

   263 	if (defined($FUNCTION))

   264 	{

   265 		$ret = $FUNCTION->Call();

   266 		if ($ret)

   267 		{

   268 			return $ret;

   269 		}

   270 		else

   271 		{

   272 			$lasterror = "Version could not be established\n";

   273 		}

   274 	}

   275 	else

   276 	{

   277 		$lasterror = "Function StdVersion not found\n";

   278 	}

   279 

   280 	Line(get_last_error());

   281 	return 0;

   282 }

   283 

   284 

   285 ################################################################

   286 # Set logging of stat connection attempts

   287 # param0: logfile

   288 ################################################################

   289 sub set_connection_logging

   290 {

   291 	Line("Setting connection logging...");

   292 	if ($loglevel and $logfile)

   293 	{

   294 		$FUNCTION = new Win32::API("$statdir/$dllname", "StdSetConnectionLogging", [P], I);

   295 		if (defined($FUNCTION))

   296 		{

   297 			Line("Logging to $logfile");

   298 			$ret = $FUNCTION->Call($logfile);

   299 			if ($ret)

   300 			{

   301 				return 1;

   302 			}

   303 			else

   304 			{

   305 				GetDllError(0);

   306 			}

   307 		}

   308 		else

   309 		{

   310 			$lasterror = "Function StdSetConnectionLogging not found\n";

   311 		}

   312 	}

   313 	else

   314 	{

   315 		$lasterror = "Logging disabled or logfile not supplied";

   316 	}

   317 

   318 	Line(get_last_error());

   319 	return 0;

   320 }

   321 

   322 

   323 ################################################################

   324 # Set logging of stat connection attempts

   325 # param0: logfile

   326 ################################################################

   327 sub close_connection_logging

   328 {

   329 	Line("Closing connection logging...");

   330 	if ($loglevel and $logfile)

   331 	{

   332 		$FUNCTION = new Win32::API("$statdir/$dllname", "StdCloseConnectionLogging", [], V);

   333 		if (defined($FUNCTION))

   334 		{

   335 			Line("Stopping logging to $logfile");

   336 			$FUNCTION->Call();

   337 			return 1;

   338 		}

   339 		else

   340 		{

   341 			$lasterror = "Function StdCloseConnectionLogging not found\n";

   342 		}

   343 	}

   344 	else

   345 	{

   346 		$lasterror = "Logging disabled or logfile not supplied";

   347 	}

   348 

   349 	Line(get_last_error());

   350 	return 0;

   351 }

   352 

   353 

   354 ################################################################

   355 # Retrieve the device log file to our log and truncate it at that point on the device

   356 ################################################################

   357 sub get_device_log_file

   358 {

   359 	Line("Retrieving log file...");

   360 	my @cmdline = @_;

   361 	my $cmdref = \@cmdline;

   362 	my $hndl = $cmdref->[0];

   363 

   364 	if ($loglevel and $logfile)

   365 	{

   366 		if ($hndl)

   367 		{

   368 			if (SendCommand($hndl, "<B><G><E>"))

   369 			{

   370 				return 1;

   371 			}

   372 		}

   373 		else

   374 		{

   375 			$lasterror = "Handle not supplied";

   376 		}

   377 	}

   378 	else

   379 	{

   380 		$lasterror = "Logging disabled or logfile not supplied";

   381 	}

   382 	

   383 	Line(get_last_error());

   384 	return 0;

   385 }

   386 

   387 

   388 ################################################################

   389 # Set the output directory for screenshots

   390 ################################################################

   391 sub set_screenshot_dir

   392 {

   393 	Line("Setting screenshot dir...");

   394 	my @cmdline = @_;

   395 	my $cmdref = \@cmdline;

   396 	my $dir = $cmdref->[0];

   397 	if ($dir)

   398 	{

   399 		$imagedir = $dir;

   400 

   401 		# reverse '/' to '\\' for DOS

   402 		$imagedir =~ s/\//\\/g;

   403 		

   404 		Line("Directory ($imagedir)");

   405 		return 1;

   406 	}

   407 

   408 	$lasterror = "Directory not supplied";

   409 	Line(get_last_error());

   410 	return 0;

   411 }

   412 

   413 

   414 ################################################################

   415 # Get the last error that occurred

   416 ################################################################

   417 sub get_last_error

   418 {

   419 	# add prefix if not one already	

   420 	if (!(substr($lasterror, 0, 8) =~ "ERROR : "))

   421 	{

   422 		$lasterror = "ERROR : $lasterror";

   423 	}

   424 	

   425 	return $lasterror;

   426 }

   427 

   428 

   429 ################################################################

   430 # LOCAL ENTRYPOINTS

   431 # Apply to individual connection

   432 ################################################################

   433 

   434 ################################################################

   435 # Connect to the target device

   436 ################################################################

   437 sub connect_to_target

   438 {

   439 	Line("Connecting to $statdir/$dllname...");

   440 	my @cmdline = @_;

   441 	my $cmdref = \@cmdline;

   442 	my $connection_type = $cmdref->[0];

   443 	my $codetype = $cmdref->[1];

   444 

   445 	# if we haven't supplied a connection type through here, maybe it was defined during initialise()

   446 	if (!$connection_type)

   447 	{

   448 		$connection_type = $def_connection_type;

   449 	}

   450 

   451 	# if we haven't supplied a code type through here, maybe it was defined during initialise()

   452 	if (!$codetype)

   453 	{

   454 		$codetype = $def_codetype;

   455 	}

   456 	

   457 	if ($connection_type)

   458 	{

   459 		if ($codetype)

   460 		{

   461 			$FUNCTION = new Win32::API("$statdir/$dllname", "StdConnect", [I, P, P, P], I);

   462 			if (defined($FUNCTION))

   463 			{

   464 				Line("Connecting ($connection_type, $codetype)...");

   465 				my $hndl = $FUNCTION->Call($connection_type, $codetype, 0, 0);

   466 				if ($hndl)

   467 				{

   468 					return $hndl;

   469 				}

   470 				else

   471 				{

   472 					GetDllError(0);

   473 				}

   474 			}

   475 			else

   476 			{

   477 				$lasterror = "Function StdConnect not found";

   478 			}

   479 		}

   480 		else

   481 		{

   482 			$lasterror = "Code type not supplied";

   483 		}

   484 	}

   485 	else

   486 	{

   487 		$lasterror = "Connection type not supplied";

   488 	}

   489 

   490 	Line(get_last_error());

   491 	return 0;

   492 }

   493 

   494 

   495 ################################################################

   496 # Connect to the target device in a multithreaded environment

   497 ################################################################

   498 sub connect_to_target_multithreaded

   499 {

   500 	Line("Connecting to $statdir/$dllname (" . get_version() . ")...");

   501 	my @cmdline = @_;

   502 	my $cmdref = \@cmdline;

   503 	my $connection_type = $cmdref->[0];

   504 	my $codetype = $cmdref->[1];

   505 

   506 	# if we haven't supplied a connection type through here, maybe it was defined during initialise()

   507 	if (!$connection_type)

   508 	{

   509 		$connection_type = $def_connection_type;

   510 	}

   511 

   512 	# if we haven't supplied a code type through here, maybe it was defined during initialise()

   513 	if (!$codetype)

   514 	{

   515 		$codetype = $def_codetype;

   516 	}

   517 	

   518 	if ($connection_type)

   519 	{

   520 		if ($codetype)

   521 		{

   522 			$FUNCTION = new Win32::API("$statdir/$dllname", "StdConnectMT", [I, P], I);

   523 			if (defined($FUNCTION))

   524 			{

   525 				Line("Connecting ($connection_type, $codetype)...");

   526 				my $hndl = $FUNCTION->Call($connection_type, $codetype);

   527 				if ($hndl)

   528 				{

   529 					return $hndl;

   530 				}

   531 				else

   532 				{

   533 					GetDllError(0);

   534 				}

   535 			}

   536 			else

   537 			{

   538 				$lasterror = "Function StdConnect not found";

   539 			}

   540 		}

   541 		else

   542 		{

   543 			$lasterror = "Code type not supplied";

   544 		}

   545 	}

   546 	else

   547 	{

   548 		$lasterror = "Connection type not supplied";

   549 	}

   550 

   551 	Line(get_last_error());

   552 	return 0;

   553 }

   554 

   555 

   556 ################################################################

   557 # Disconnect from the target device

   558 ################################################################

   559 sub disconnect_from_target

   560 {

   561 	Line("Disconnecting from $statdir/$dllname...");

   562 	my @cmdline = @_;

   563 	my $cmdref = \@cmdline;

   564 	my $hndl = $cmdref->[0];

   565 

   566 	if ($hndl)

   567 	{

   568 		$FUNCTION = new Win32::API("$statdir/$dllname", "StdDisconnect", [I], I);

   569 		if (defined($FUNCTION))

   570 		{

   571 			Line("Disconnecting $statdir/$dllname ($hndl)...");

   572 			$ret = $FUNCTION->Call($hndl);

   573 			if ($ret)

   574 			{

   575 				return 1;

   576 			}

   577 			else

   578 			{

   579 				GetDllError($hndl);

   580 			}

   581 		}

   582 		else

   583 		{

   584 			$lasterror = "Function StdDisconnect not found";

   585 		}

   586 	}

   587 	else

   588 	{

   589 		$lasterror = "Handle not supplied";

   590 	}

   591 

   592 	Line(get_last_error());

   593 	return 0;

   594 }

   595 

   596 

   597 ################################################################

   598 # Set logging of stat commands

   599 # param0: logfile

   600 # param1: log level

   601 # param2: append or overwrite

   602 # param3: reserved

   603 # param4: reserved

   604 ################################################################

   605 sub set_command_logging

   606 {

   607 	Line("Setting command logging...");

   608 	my @cmdline = @_;

   609 	my $cmdref = \@cmdline;

   610 	my $hndl = $cmdref->[0];

   611 	if (($loglevel > 1) and $logfile)

   612 	{

   613 		if ($hndl)

   614 		{

   615 			if ($logfile)

   616 			{

   617 				$FUNCTION = new Win32::API("$statdir/$dllname", "StdSetCommandLogging", [I, P, P, I, I, P, P], I);

   618 				if (defined($FUNCTION))

   619 				{

   620 					Line("Logging to ($hndl, $logfile, $actual_level)");

   621 					$ret = $FUNCTION->Call($hndl, $logfile, 0, $loglevel, 0, 0, 0);

   622 					if ($ret)

   623 					{

   624 						return 1;

   625 					}

   626 					else

   627 					{

   628 						GetDllError($hndl);

   629 					}

   630 				}

   631 				else

   632 				{

   633 					$lasterror = "Function StdSetCommandLogging not found\n";

   634 				}

   635 			}

   636 			else

   637 			{

   638 				$lasterror = "Logfile not supplied";

   639 			}

   640 		}

   641 		else

   642 		{

   643 			$lasterror = "Handle not supplied";

   644 		}

   645 	}

   646 	else

   647 	{

   648 		$lasterror = "Logging level incorrect or logfile not supplied";

   649 	}

   650 	

   651 	Line(get_last_error());

   652 	return 0;

   653 }

   654 

   655 

   656 ################################################################

   657 # Set command delay

   658 # param0: delay (in milliseconds).  Range 100 (default) -> 30,000

   659 # The delay is inserted between complete commands, not between

   660 # individual keystrokes.

   661 ################################################################

   662 sub set_command_delay

   663 {

   664 	Line("Setting command delay...");

   665 	my @cmdline = @_;

   666 	my $cmdref = \@cmdline;

   667 	my $hndl = $cmdref->[0];

   668 	my $delay = $cmdref->[1];

   669 	if ($hndl)

   670 	{

   671 		if ($delay)

   672 		{

   673 			$FUNCTION = new Win32::API("$statdir/$dllname", "StdSetCommandDelay", [I, I], I);

   674 			if (defined($FUNCTION))

   675 			{

   676 				Line("Delay ($hndl, $delay)");

   677 				$ret = $FUNCTION->Call($hndl, $delay);

   678 				if ($ret)

   679 				{

   680 					return 1;

   681 				}

   682 				else

   683 				{

   684 					GetDllError($hndl);

   685 				}

   686 			}

   687 			else

   688 			{

   689 				$lasterror = "Function StdSetCommandDelay not found\n";

   690 			}

   691 		}

   692 		else

   693 		{

   694 			$lasterror = "Delay not supplied";

   695 		}

   696 	}

   697 	else

   698 	{

   699 		$lasterror = "Handle not supplied";

   700 	}

   701 

   702 	Line(get_last_error());

   703 	return 0;

   704 }

   705 

   706 

   707 ################################################################

   708 # Set image verification

   709 # param0: Ref Dir (string) - the directory where the reference 

   710 # images are located

   711 # param1: Remove old images (bool)

   712 # param2: Fudge factor - what percentage (0 -> 100%) of mismatched 

   713 # pixels are still considered to be a match

   714 ################################################################

   715 sub set_image_verification

   716 {

   717 	Line("Setting image verification...");

   718 	my @cmdline = @_;

   719 	my $cmdref = \@cmdline;

   720 	my $hndl = $cmdref->[0];

   721 	my $refdir = $cmdref->[1];

   722 	my $removeImages = $cmdref->[2];

   723 	my $fudgeFactor = $cmdref->[3];

   724 	if ($hndl)

   725 	{

   726 		if ($refdir)

   727 		{

   728 			$FUNCTION = new Win32::API("$statdir/$dllname", "StdSetImageVerification", [I, P, I, I], I);

   729 			if (defined($FUNCTION))

   730 			{

   731 				Line("Reference Directory ($hndl, $refdir, $removeImages, $fudgeFactor)");

   732 				$ret = $FUNCTION->Call($hndl, $refdir, $removeImages, $fudgeFactor);

   733 				if ($ret)

   734 				{

   735 					return 1;

   736 				}

   737 				else

   738 				{

   739 					GetDllError($hndl);

   740 				}

   741 			}

   742 			else

   743 			{

   744 				$lasterror = "Function StdSetImageVerification not found\n";

   745 			}

   746 		}

   747 		else

   748 		{

   749 			$lasterror = "Reference Image Directory not supplied";

   750 		}

   751 	}

   752 	else

   753 	{

   754 		$lasterror = "Handle not supplied";

   755 	}

   756 

   757 	Line(get_last_error());

   758 	return 0;

   759 }

   760 

   761 

   762 ################################################################

   763 # Get a target screenshot

   764 ################################################################

   765 sub get_screenshot

   766 {

   767 	Line("Getting screenshot...");

   768 	my @cmdline = @_;

   769 	my $cmdref = \@cmdline;

   770 	my $hndl = $cmdref->[0];

   771 	my $name = $cmdref->[1];

   772 	my $command;

   773 	if ($hndl)

   774 	{

   775 		if ($name)

   776 		{

   777 			if ($imagedir)

   778 			{

   779 				$command = "<B><#image $imagedir/><S$name><E>";

   780 			}

   781 			else

   782 			{

   783 				$command = "<B><S$name><E>";

   784 			}

   785 		}	

   786 		else

   787 		{

   788 			if ($imagedir)

   789 			{

   790 				$command = "<B><#image $imagedir/><S><E>";

   791 			}

   792 			else

   793 			{

   794 				$command = "<B><S><E>";

   795 			}

   796 		}

   797 

   798 		if (SendCommand($hndl, $command))

   799 		{

   800 			return 1;

   801 		}

   802 	}

   803 	else

   804 	{

   805 		$lasterror = "Handle not supplied";

   806 	}

   807 

   808 	Line(get_last_error());

   809 	return 0;

   810 }

   811 

   812 

   813 ################################################################

   814 # Get Device Information

   815 ################################################################

   816 sub get_device_info

   817 {

   818 	Line("Getting device info...");

   819 	my @cmdline = @_;

   820 	my $cmdref = \@cmdline;

   821 	my $hndl = $cmdref->[0];

   822 

   823 	if (SendCommand($hndl, "<B><D><E>"))

   824 	{

   825 		return 1;

   826 	}

   827 

   828 	Line(get_last_error());

   829 	return 0;

   830 }

   831 

   832 

   833 ################################################################

   834 # 'Touch' the screen at specified co-ordinates

   835 ################################################################

   836 sub touch_screen

   837 {

   838 	Line("Touching screen...");

   839 	my @cmdline = @_;

   840 	my $cmdref = \@cmdline;

   841 	my $hndl = $cmdref->[0];

   842 	my $xx = $cmdref->[1];

   843 	my $yy = $cmdref->[2];

   844 	if ($hndl)

   845 	{

   846 		if ($xx and $yy)

   847 		{

   848 			if (SendCommand($hndl, "<B><I$xx,$yy><E>"))

   849 			{

   850 				return 1;

   851 			}

   852 		}

   853 		else

   854 		{

   855 			$lasterror = "X-Y co-ordinates not specified";

   856 		}

   857 	}

   858 	else

   859 	{

   860 		$lasterror = "Handle not supplied";

   861 	}

   862 

   863 	Line(get_last_error());

   864 	return 0;

   865 }

   866 

   867 

   868 ################################################################

   869 # Start an application and create a new file

   870 ################################################################

   871 sub start_application

   872 {

   873 	Line("Starting application...");

   874 	my @cmdline = @_;

   875 	my $cmdref = \@cmdline;

   876 	my $hndl = $cmdref->[0];

   877 	my $name = $cmdref->[1];

   878 	my $doc = $cmdref->[2];

   879 	if ($hndl)

   880 	{

   881 		if ($name)

   882 		{

   883 			my $command;

   884 			if ($doc)

   885 			{

   886 				$command = "<B><A$name,$doc><E>";

   887 			}

   888 			else

   889 			{

   890 				$command = "<B><A$name><E>";

   891 			}

   892 	

   893 			if (SendCommand($hndl, $command))

   894 			{

   895 				return 1;

   896 			}

   897 		}

   898 		else

   899 		{

   900 			$lasterror = "Application name not supplied";

   901 		}

   902 	}

   903 	else

   904 	{

   905 		$lasterror = "Handle not supplied";

   906 	}

   907 

   908 	Line(get_last_error());

   909 	return 0;

   910 }

   911 

   912 

   913 ################################################################

   914 # Start a program with parameters

   915 ################################################################

   916 sub start_program

   917 {

   918 	Line("Starting program...");

   919 	my @cmdline = @_;

   920 	my $cmdref = \@cmdline;

   921 	my $hndl = $cmdref->[0];

   922 	my $name = $cmdref->[1];

   923 	my $param = $cmdref->[2];

   924 	if ($hndl)

   925 	{

   926 		if ($name)

   927 		{

   928 			my $command;

   929 			if ($param)

   930 			{

   931 				$command = "<B><J$name,$param><E>";

   932 			}

   933 			else

   934 			{

   935 				$command = "<B><J$name><E>";

   936 			}

   937 	

   938 			if (SendCommand($hndl, $command))

   939 			{

   940 				return 1;

   941 			}

   942 		}

   943 		else

   944 		{

   945 			$lasterror = "Program name not supplied";

   946 		}

   947 	}

   948 	else

   949 	{

   950 		$lasterror = "Handle not supplied";

   951 	}

   952 

   953 	Line(get_last_error());

   954 	return 0;

   955 }

   956 

   957 

   958 ################################################################

   959 # Start an application and open an existing new file

   960 ################################################################

   961 sub open_application

   962 {

   963 	Line("Opening application...");

   964 	my @cmdline = @_;

   965 	my $cmdref = \@cmdline;

   966 	my $hndl = $cmdref->[0];

   967 	my $name = $cmdref->[1];

   968 	my $doc = $cmdref->[2];

   969 	if ($hndl)

   970 	{

   971 		if ($name and $doc)

   972 		{

   973 			if (SendCommand($hndl, "<B><F$name,$doc><E>"))

   974 			{

   975 				return 1;

   976 			}

   977 		}

   978 		else

   979 		{

   980 			$lasterror = "Application name and file not supplied";

   981 		}

   982 	}

   983 	else

   984 	{

   985 		$lasterror = "Handle not supplied";

   986 	}

   987 

   988 	Line(get_last_error());

   989 	return 0;

   990 }

   991 

   992 

   993 ################################################################

   994 # Close the current application

   995 ################################################################

   996 sub close_application

   997 {

   998 	Line("Closing application...");

   999 	my @cmdline = @_;

  1000 	my $cmdref = \@cmdline;

  1001 	my $hndl = $cmdref->[0];

  1002 	if ($hndl)

  1003 	{

  1004 		if (SendCommand($hndl, "<B><C><E>"))

  1005 		{

  1006 			return 1;

  1007 		}

  1008 	}

  1009 	else

  1010 	{

  1011 		$lasterror = "Handle not supplied";

  1012 	}

  1013 	

  1014 	Line(get_last_error());

  1015 	return 0;

  1016 }

  1017 

  1018 

  1019 ################################################################

  1020 # Send a sequence of basic keystrokes

  1021 ################################################################

  1022 sub basic_key_sequence

  1023 {

  1024 	Line("Sending basic key sequence...");

  1025 	my @cmdline = @_;

  1026 	my $cmdref = \@cmdline;

  1027 	my $hndl = $cmdref->[0];

  1028 	my $sequence = $cmdref->[1];

  1029 	if ($hndl)

  1030 	{

  1031 		if ($sequence)

  1032 		{

  1033 			if (SendCommand($hndl, "<B><K$sequence><E>"))

  1034 			{

  1035 				return 1;

  1036 			}

  1037 		}

  1038 		else

  1039 		{

  1040 			$lasterror = "Key sequence not supplied";

  1041 		}

  1042 	}

  1043 	else

  1044 	{

  1045 		$lasterror = "Handle not supplied";

  1046 	}

  1047 

  1048 	Line(get_last_error());

  1049 	return 0;

  1050 }

  1051 

  1052 

  1053 ################################################################

  1054 # Send a control keystroke

  1055 ################################################################

  1056 sub control_keystroke

  1057 {

  1058 	Line("Sending control keystroke...");

  1059 	my @cmdline = @_;

  1060 	my $cmdref = \@cmdline;

  1061 	my $hndl = $cmdref->[0];

  1062 	my $keystroke = $cmdref->[1];

  1063 	if ($hndl)

  1064 	{

  1065 		if ($keystroke)

  1066 		{

  1067 			if (SendCommand($hndl, "<B><L$keystroke><E>"))

  1068 			{

  1069 				return 1;

  1070 			}

  1071 		}

  1072 		else

  1073 		{

  1074 			$lasterror = "Control keystroke not supplied";

  1075 		}

  1076 	}

  1077 	else

  1078 	{

  1079 		$lasterror = "Handle not supplied";

  1080 	}

  1081 

  1082 	Line(get_last_error());

  1083 	return 0;

  1084 }

  1085 

  1086 

  1087 ################################################################

  1088 # Send a combination keystroke

  1089 ################################################################

  1090 sub combination_keystroke

  1091 {

  1092 	Line("Sending combination keystroke...");

  1093 	my @cmdline = @_;

  1094 	my $cmdref = \@cmdline;

  1095 	my $hndl = $cmdref->[0];

  1096 	my $combination = $cmdref->[1];

  1097 	if ($hndl)

  1098 	{

  1099 		if ($combination)

  1100 		{

  1101 			if (SendCommand($hndl, "<B><M$combination><E>"))

  1102 			{

  1103 				return 1;

  1104 			}

  1105 		}

  1106 		else

  1107 		{

  1108 			$lasterror = "Combination keystroke not supplied";

  1109 		}

  1110 	}

  1111 	else

  1112 	{

  1113 		$lasterror = "Handle not supplied";

  1114 	}

  1115 

  1116 	Line(get_last_error());

  1117 	return 0;

  1118 }

  1119 

  1120 

  1121 ################################################################

  1122 # Pause for milliseconds

  1123 ################################################################

  1124 sub pause

  1125 {

  1126 	Line("Pausing...");

  1127 	my @cmdline = @_;

  1128 	my $cmdref = \@cmdline;

  1129 	my $hndl = $cmdref->[0];

  1130 	my $pause = $cmdref->[1];

  1131 	if ($hndl)

  1132 	{

  1133 		if ($pause)

  1134 		{

  1135 			if (SendCommand($hndl, "<B><P$pause><E>"))