1 files changed, 44 insertions, 0 deletions
diff --git a/old/symbian/scripts/startProcess.bat b/old/symbian/scripts/startProcess.bat
new file mode 100644
index 0000000..abe33f8
--- /dev/null
+++ b/old/symbian/scripts/startProcess.bat
@@ -0,0 +1,44 @@
+@rem = '--*-Perl-*--
+@echo off
+if "%OS%" == "Windows_NT" goto WinNT
+perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
+goto endofperl
+:WinNT
+perl -x -S %0 %*
+if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
+if %errorlevel% == 9009 echo You do not have Perl in your PATH.
+if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
+goto endofperl
+@rem ';
+#!perl
+#line 15
+use SOAP::Lite;
+
+$wsdl = $ENV{HTI_WSDL} or die("HTI_WSDL not set");
+$htiSystem = SOAP::Lite->service("file:$wsdl/HtiSystem.wsdl");
+$htiEcho = SOAP::Lite->service("file:$wsdl/HtiEcho.wsdl");
+$htiSysInfo = SOAP::Lite->service("file:$wsdl/HtiSysInfo.wsdl");
+$htiApplication = SOAP::Lite->service("file:$wsdl/HtiApplication.wsdl");
+
+$process = shift @ARGV or die "ERROR: Process name not specified";
+$args = join " ", @ARGV;
+
+# Authenticate - doesn't matter what the token is but HTI won't work otherwise
+$htiSystem->authentication("hello");
+
+# HTI connectivity check
+$htiEcho->echo("Connected to device...");
+
+# Toggle key lock. This also ensures display is visible.
+$htiSysInfo->keyLockToggle(1,0);
+$htiSysInfo->keyLockToggle(0,0);
+
+# Start process
+$result = $htiApplication->startProcess($process, "-style qtuitest $args");
+$pid = $$result{"pid"};
+
+sleep(5);
+print "$pid\n";
+
+__END__
+:endofperl