Automation using perl?

Hi All,
We have a test automation framework build using perl. We want to automate a flex application and want to integrate it with this perl based framework. We cannot recompile the source code of this flex application.
We can automate flex application using run time loading, similar to how Flexmonkey does it. I am unable to find anything that will enable such automation using Perl similar to how Funfx enables using Ruby programming.
Any help in this regard will be much appreciated.
Thanks,
-Harshad

It is a big SDK and to learn its features requires a lot of reading. But to start with I guess I should start with "Introduction to SDK".
Since you want to control Acrobat from another application you should consider this under "Interapplication communication". You will be using OLE/COM.

Similar Messages

Word Document generation using Perl programming on Windows Server 2003 R2

Hello,
Our application generates word document based on pre-defined template on Windows Server 2003 using Perl Scripting.
Configuration data is fetched from the database and document is populated based on the template. Sections in the document are identified using Bookmarks. We are facing a problem on Windows server 2003 R2. When I do a group update operation, i.e generation
of multiple word documents (using Word 2010) in a loop, one of the section of the word document shifts up and data gets overlapped.
When I use the same piece of code in windows 7 machine, the issue doesn't replicate.
Can anyone provide some pointers to look into this issue ?
Regards
Prashant Jain
software developer

Hi,
This forum is mailly talk about the product use related issue and not the best place to talk about the develop issue, for the develop issue we can post in MSDN forum for the further help.
MSDN forum
https://social.msdn.microsoft.com/Forums/en-US/home
Thanks for your understanding and support.
Please remember to mark the replies as answers if they help and unmark them if they provide no help. If you have feedback for TechNet Support, contact [email protected]

Using perl DBI on Solaris 10 gives core dump

I am using perl 5.8.4 which comes along with Solaris 10.
I have installed DBI-1.58.
Even a test command is not working.
perl -MDBI -e 'print "$DBI::VERSION\n";'
Bus Error (core dumped)
truss perl -MDBI -e 'print "$DBI::VERSION\n";'
shows
stat("/usr/local/lib/libc.so.1", 0xFFBFE5D0) Err#2 ENOENT
mprotect(0xFEED0000, 104171, PROT_READ|PROT_WRITE|PROT_EXEC) = 0
mprotect(0xFEED0000, 104171, PROT_READ|PROT_EXEC) = 0
munmap(0xFF370000, 8192) = 0
brk(0x000A2470) = 0
brk(0x000A4470) = 0
brk(0x000A4470) = 0
brk(0x000A6470) = 0
brk(0x000A6470) = 0
brk(0x000A8470) = 0
brk(0x000A8470) = 0
brk(0x000AA470) = 0
brk(0x000AA470) = 0
brk(0x000AC470) = 0
Incurred fault #5, FLTACCESS %pc = 0xFEED44CC
siginfo: SIGBUS BUS_ADRALN addr=0x00000001
Received signal #10, SIGBUS [default]
siginfo: SIGBUS BUS_ADRALN addr=0x00000001
$perl -v
command shows like its compiled with Intsize of 64 is this creating problem?
Summary of my perl5 (revision 5 version 8 subversion 4) configuration:
Platform:
osname=solaris, osvers=2.10, archname=sun4-solaris-64int
uname='sunos localhost 5.10 sun4u sparc SUNW,Ultra-2'
config_args=''
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=define use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -xarch=v8 -D_TS_ERRNO',
optimize='-xO3 -xspace -xildoff',
cppflags=''
ccversion='Sun WorkShop', gccversion='', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=87654321
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='cc', ldflags =''
libpth=/lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc
perllibs=-lsocket -lnsl -ldl -lm -lc
libc=/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-R /usr/perl5/5.8.4/lib/sun4-solaris-64int/CORE'
cccdlflags='-KPIC', lddlflags='-G'
Characteristics of this binary (from libperl):
Compile-time options: USE_64_BIT_INT USE_LARGE_FILES
Locally applied patches:
22667 The optree builder was looping when constructing the ops ...
22715 Upgrade to FileCache 1.04
22733 Missing copyright in the README.
22746 fix a coredump caused by rv2gv not fully converting a PV ...
22755 Fix 29149 - another UTF8 cache bug hit by substr.
22774 [perl #28938] split could leave an array without ...
22775 [perl #29127] scalar delete of empty slice returned garbage
22776 [perl #28986] perl -e "open m" crashes Perl
22777 add test for change #22776 ("open m" crashes Perl)
22778 add test for change #22746 ([perl #29102] Crash on assign ...
22781 [perl #29340] Bizarre copy of ARRAY make sure a pad op's ...
22796 [perl #29346] Double warning for int(undef) and abs(undef) ...
22818 BOM-marked and (BOMless) UTF-16 scripts not working
22823 [perl #29581] glob() misses a lot of matches
22827 Smoke [5.9.2] 22818 FAIL(F) MSWin32 WinXP/.Net SP1 (x86/1 cpu)
22830 [perl #29637] Thread creation time is hypersensitive
22831 improve hashing algorithm for ptr tables in perl_clone: ...
22839 [perl #29790] Optimization busted: '@a = "b", sort @a' ...
22850 [PATCH] 'perl -v' fails if local_patches contains code snippets
22852 TEST needs to ignore SCM files
22886 Pod::Find should ignore SCM files and dirs
22888 Remove redundant %SIG assignments from FileCache
23006 [perl #30509] use encoding and "eq" cause memory leak
23074 Segfault using HTML::Entities
23106 Numeric comparison operators mustn't compare addresses of ...
23320 [perl #30066] Memory leak in nested shared data structures ...
23321 [perl #31459] Bug in read()
Built under solaris
Compiled at Jul 26 2005 05:26:55
@INC:
/usr/perl5/5.8.4/lib/sun4-solaris-64int
/usr/perl5/5.8.4/lib
/usr/perl5/site_perl/5.8.4/sun4-solaris-64int
/usr/perl5/site_perl/5.8.4
/usr/perl5/site_perl
/usr/perl5/vendor_perl/5.8.4/sun4-solaris-64int
/usr/perl5/vendor_perl/5.8.4
/usr/perl5/vendor_perl
Other details:
file /usr/bin/perl
/usr/bin/perl: ELF 32-bit MSB executable SPARC Version 1, dynamically linked, stripped
I tried installing DBI module using perlgcc also.
perlgcc Makefile.PL
make
make test
make install.
$uname -a
SunOS twirl 5.10 Generic_118822-25 sun4u sparc SUNW,Ultra-80
Please help me out.

Try this guy's list, he maintain an archive of Solaris package.
http://www.ibiblio.org/pub/packages/solaris/sparc/html/creating.solaris.packages.html
Of course, if you can get directly from Sun will be better.

Driving Automator using Voice Over

Hello,
I am visually impaired and so use Voice Over for all MAC access. I am trying to create a workflow to speak the current time. Using Voice Over without sighted assistance I can access the required actions and variables but alas I cannot fathom out how to combine the actions into a workflow. I cannot find an edit area or whatever where I can view the actions so far and move them around as necessary.The MacHelp tells me to drag and drop the necessary actions and variables into the panel on the right (or words like that) but, of course, I cannot do that using Voice Over. I tried copy and paste but to no effect, primarily because I could not find the place to paste the actions into.
So if anyone has successfully driven Automator using Voice Over without sighted help then please pass on your tips!
Many thanks.
Paul Hopewell
[email protected]

All I can suggest is to look at the instructions in the Users Guide. There is a lot on VoiceOver. See chapter 31 of
manuals.info.appleipod_touch-6.1-_user_guide.pdf

Can I use PERL in APEX

Hi All
can i use PERL language in APEX? is it gud practice to use PERL in APEX?
Thanxs

You can use PERL, in so much that you can forward on the user to a PERL application and have that PERL application take in the session + cookie and check it for validity in Oracle, but as far as interactivity between PERL and APEX, it would be either on the level of Web Services style access (one calling the other through web services type Http calls) or possibly running PERL code at system level with something like dbms_scheduler, were it to be for a background database task of some sort.
My question would be what exactly do you need to do in PERL w/ APEX?
-Richard

Engine test cell automation using labview

I want to know the hardware details of my application(engine test cell automation using labview).
Amit Amrutkar

>> I want to know the hardware details of my application(engine test cell automation using labview).
I have a feeling that that one of the following happened :
A. The "Post" button was clicked by mistake before the compilation was over.
B. The OP wants to know the hardware details for his application which looks like an engine test cell automation. ( It thus must have been in a hardware forum I guess )
Post more details on the number of analog channels , required resolution, sampling time etc and number of digital channels and there is a possiblity that we can start helping..
Raghunathan
LV2012 to Automate Hydraulic Test rigs.

How to Use Acrobat SDK for Automation Using VB or Perl

Hi Forum,
I am a new bie, just 2 days old to acrobat and javascript, and I am basically a perl developer
I am using Adobe Acrobat 9 Pro,
I downloaded Acrobat SDK, but i don't know what else to do further, how to use??
I tried to start learning SDK, but no proper documents i found to learn and start using SDK,
Please suggest some guide or documentation for start learning Acrobat SDK (Step by Step guide)
Here with I have created a small script to merge two pdf
// Create a new PDF document:
var newDoc = app.newDoc();
// Insert doc1.pdf:
newDoc.insertPages({
nPage : -1,
cPath : "/d/sathish/1.pdf",
// Insert doc2.pdf:
newDoc.insertPages({
nPage : newDoc.numPages-1,
cPath : "/d/sathish/2.pdf",
// Save the new document:
newDoc.saveAs("/d/sathish/myNewDoc.pdf");
My code is working fine and merging properly,
Is there any way to execute this script through commandline or using some other scripting languages like perl or through VB
My objective is to automate the merging process without any manual intervention, I don't want to open acrobat manually to execute this javacript, i want to automate that process too,
Please suggest me which will be very helpful to me,
Thanks in advance
Thanks & Regards
Sathish V.

It is a big SDK and to learn its features requires a lot of reading. But to start with I guess I should start with "Introduction to SDK".
Since you want to control Acrobat from another application you should consider this under "Interapplication communication". You will be using OLE/COM.

How to Install or Use Perl in 11g client?

Hi all,
I read this doc:
Perl 5.10.0 is included in the Oracle 11.2.0.1 client.
Execute the following command to ensure that the correct version of Perl is in the user
profile PATH.
perl -V
'perl' is not recognized as an internal or external command,
operable program or batch file.But if i use the full path exe:
C:\Documents and Settings\dev>C:\oracle\product\11.2.0\client_1\perl\bin\perl.exe -v
This is perl, v5.10.0 built for MSWin32-x86-multi-thread
Copyright 1987-2007, Larry Wall
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.Thanks a lot,

yes, it is there. when you installed client it is automatically added

Using perl with the HTTP POST method to exchange XML with the Auth service

Has anyone written a perl script to do this yet?
I've been trying all day and keep getting "Content is not allowed in prolog.
I've used the example xml from the docs
<?xml version="1.0" encoding="UTF-8"?>
<AuthContext version="1.0">
<Request authIdentifier="0">
<NewAuthContext orgName="dc=exampleorg,dc=com">
</NewAuthContext>
</Request>
</AuthContext>
Then I read the python post at http://swforum.sun.com/jive/thread.jspa?forumID=79&threadID=22370
and the error changed to Premature end of file.
this is the portion of perl that is getting the error:
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
my $browser = LWP::UserAgent->new(agent => 'xml client');
my $greeting = <<GREETING;
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<RequestSet vers="1.0" svcid="auth" reqid="1">
     <Request>
     <![CDATA[<?xml version="1.0" encoding="UTF-8"?>
     <AuthContext version="1.0">
          <Request authIdentifier="0">
               <NewAuthContext orgName="dc=belo,dc=com">
               </NewAuthContext>
          </Request>
     </AuthContext>]]></Request>
</RequestSet>
GREETING
my $response = $browser->request(POST 'http://idpoc1.test.belo.com/amserver/authservice',
                    Content_Type => 'text/xml',
                    Content     => [xmlRequest => $greeting]
print $response->error_as_HTML unless $response->is_success;

Your problem seems to lie in the build of the request. Here you use the "sample=$data" which will invalidate the XML itself. I've tested your code changing only the build of the Request and this works fine! Given an XML like this :
<?xml version="1.0" encoding="ISO-8859-1"?>
<data>
     <txnInfo sourcePartnerCode="6" txnDate="2005.09.08"/>
     <unitOfWorkInfo sourceTicketID="SourceTicket_1" diaryEntry="Diray_1" Status="Status_OK"/>
</data>
The Server Stub should look like this :
#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;
print qq{Content-type: text/xml\n\n};
if($ENV{'REQUEST_METHOD'} eq "GET"){
     $my_data = $ENV{'QUERY_STRING'};
     print "jfghdsfjghsdg$my_data";
} else {
     $data_length = $ENV{'CONTENT_LENGTH'};
     $bytes_read = read(STDIN, $my_data, $data_length);
     print "$bytes_read, $my_data";
     $xml = new XML::Simple (KeyAttr=>[]);
     print "have passed XML::Simple creation\n";
     $data = $xml->XMLin("$my_data");
     print "i want to be here \n";
     $transcode=$data->{txnInfo}->{sourcePartnerCode};
     #print "$data->{txnInfo}->{sourcePartnerCode}";
     print $transcode;
     CASE: {
          ($transcode==6) && do {
               print "i am here";
               $lstmoddat=$data->{txnInfo}->{txnDate};
               $srctktid=$data->{unitOfWorkInfo}->{sourceTicketID};
               $actvtylogdesc=$data->{unitOfWorkInfo}->{diaryEntry};
               $status=$data->{unitOfWorkInfo}->{Status};
               $command='bop_cmd -f update1.frg "upd_stats("""Administrator""","""'.$srctktid.'""","""FIP""","""what is this???""")"';
               print "$lstmoddat $srctktid $status \n";
               print "$command";
               system("$command");
               print "i am done";
               last CASE;
And the client stub should look like this :
use LWP::UserAgent;
use HTTP::Request;
use IO;
#use XML::Writer;
my $ua = LWP::UserAgent->new(env_proxy => 1, keep_alive => 1, timeout => 30, );
open INPUT, "<AcceptIncident.xml";
my @greeting = <INPUT>; #-- Read file containing XML struct to send
print "Hello World\n";
my $data_to_send; #-- And build a string of it
foreach my $newItem (@greeting) {
     $data_to_send = "$data_to_send$newItem";
print "Sending \n";
my $head = HTTP::Headers->new(Content_Type => "text/xml", "ID" => "sample");
my $req = HTTP::Request->new('POST', 'http://matrix/cgi-bin/test1.pl', $head, "$data_to_send");
my $response = $ua->request($req);
print $response->as_string; Also you should make sure you have both HTTP::Request amd XML::Simple installed, orelse this will not work.
Hope this is of some help to you.

Question about Automator using Spaces.

I don't think this is the right place for this question, but I figured I am probably going to need to write an applescript to do what I want, so I decided to put it here.
I have an automation to open some Word documents on my idisk, then open Dictionary, then open Safari with some tabs. But the problem comes in with spaces. I have Word and Dictionary open on Space 1 and Safari open in Space 3. When the automation ends, I end on Space 3 and would like to know how I add a function to set the focus back to Space 1. It's not all that detrimental to the success of my Automation, but I only use Safari for research and would like to focus to end back on word. I have tried switching which apps open first, but I still end up on the 3rd Space.
My other question is, where can I go for reference to commands in Xcode and AppleScript that deal with Spaces? I love using that function and I have had some ideas about scripts that could help me with them, but I don't even know were I would start with commands.

There are several solutions to this.
The first option would be to send the appropriate key command to switch to space 1. If you've left your preferences as the defaults then you can:
<pre class=command>tell application "System Events" to keystroke "1" using {control down}</pre>
Which will send a Ctrl-1 and switch to space 1.
An alternative, which may be even better, is to activate the application you want to be frontmost:
<pre class=command>tell application "Microsoft Word" to activate</pre>
This should activate the application and switch to that application's space.

Data import automation using webservices

Hi,
We have a requirement to load data into Oracle On demand monthly from an external application. We want to automate the task using webservices.
Did anyone of you work on such automation? If yes, request you please provide me the details of the same.
Thanks in advance.
regards,
m

Hi ,
Automated Data Import / Export to or from Oracle SOD using Web-Service is a very much a common requirement these days and we at CRMIT should be able to do that for you.
Drop me your requirement to [email protected] so that we can help you take it forward.
Regards,
Deepak H Andeli

Connecting to SQL Server from Solaris using Perl & Oracle.

Hey All,
Using the DBI.pm provided by the default Perl package that comes integrated with Oracle server, I am being able to connect to the Oracle database through Perl.
But is there a way I can connect to SQL Server through Perl using any package provided by Oracle like ODBC or something else (on Solaris)
I am using following version of Oracle server on Solaris 10
Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bit Production
TIA
Parag

The problem is I cannot install any third party package but I found something. Have a look at this:
bash-3.00$ pwd
/opt/oracle/product/10.2.0.4.0/perl/lib/site_perl/5.8.3/sun4-solaris-thread-multi/Win32
bash-3.00$ ls -l
total 10
-rwxr-xr-x 1 oracle dba 4532 Jul 7 2004 DBIODBC.pm
bash-3.00$
Will explore more and keep you all posted.
Cheers,
Parag

Using perl with Oracle DB

Hi,
I have perl scripts to import csv data to an existing 9.2 oracle database 32bit. It is using DBI to connect. I am moving the database in question to 10gR2 windows X64. I want the scripts to follow and run on the new server.
I know there is an install of perl in the oracle home. Is it intended to be used by oracle internally only?
So my question is: should I install perl separately or could I use the one shipped with oracle?
Best wishes!

Of course.
You are right if more modules are required, then adding them to the oracle perl would have potentially bad effects.
The only thing I need really is to read files, call sqlloader, connect to the DB and run some stored procedures... I will be ok then. I already tested connectivity and it all looks fine.
Thank you very much for the input!

Can I use Perl with Flex?

I would like to run several Perl scripts from Flex. Following the only example I found online, I have the files/code listed below. The problem is, when I test locally, I get nothing as the message. When I upload to my server, I also get nothing as the message. Perl seems to be installed properly on the server. Other scripts in the directory run fine. Also, the Perl script below runs fine when I run it through command line. So... I'm very confused as to if this can even be done.
main.mxml
<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute">
     <mx:Script>
     <![CDATA[
         private function onResult():void
             txt.htmlText = txt.htmlText + "<br/>Msg1: " + xmlService.lastResult.messages["msg1"];
             txt.htmlText = txt.htmlText + "<br/>Msg2: " + xmlService.lastResult.messages["msg2"];
     ]]>
     </mx:Script>
     <mx:HTTPService id="xmlService" result="onResult();" resultFormat="e4x" url="test_IO.pl" />
     <mx:Panel width="350" height="280" layout="absolute" horizontalCenter="0" verticalCenter="0" color="#000000" fontSize="12" fontFamily="Verdana">
         <mx:Button x="126.5" y="10" label="Test Me" click="xmlService.send();"/>
         <mx:TextArea x="10" y="42" width="310" height="188" id="txt" verticalScrollPolicy="on"/>
     </mx:Panel>
</mx:Application>
test_IO.pl
#!/usr/bin/perl
use strict;
use XML::Writer;
print "Content-type: text/xml\n\n";
my $xml = new XML::Writer();
$xml->startTag("root");
$xml->startTag("messages");
    $xml->dataElement(msg1=> "Hello World");
    $xml->dataElement(msg2=> "Goodbye World");
    $xml->endTag();
    $xml->endTag();
$xml->end();

Automation using Services like Cfg_Vod_Import_Simulator

Hi guys,
I have a script which we are using for automation trying to load Siebel Products using Cfg_Vod_Import_Simulator (which i believe is one of the service). Its working in most of the environments which has default siebel root (/apps/bss/sieb) but not working in environments which don't have "sieb" as default root. Those environments are like (/apps/bss/sieblw) or (/apps/bss/siebmr)..so on & so forth. While trying to use the service, I get this error
22/01/2009 13:25:57 - 1) ERROR: Could not import /apps/bss/sieblw/build_deploy/TestPackage/RefData/Products/CCB_Products_Fixed.xml
22/01/2009 13:25:57 -
22/01/2009 13:25:57 - cat: cannot open /apps/bss/sieblw/build_deploy/TestPackage/RefData/Products/ImportProduct.log
22/01/2009 13:25:57 - Using keyboard-interactive authentication.
22/01/2009 13:25:57 -
22/01/2009 13:25:57 - 25621735Siebel eScript runtime error occurred in procedure 'fclose' of Service [Cfg_Vod_Import_Simulator]:
22/01/2009 13:25:57 -
22/01/2009 13:25:57 - TypeError 6200: File variable is not valid
22/01/2009 13:25:57 - (SBL-SCR-00141)Unknown
22/01/2009 13:25:57 -
22/01/2009 13:25:57 - 21735 Siebel eScript runtime error occurred in procedure 'fclose' of Service [Cfg_Vod_Import_Simulator]:
22/01/2009 13:25:57 -
22/01/2009 13:25:57 - TypeError 6200: File variable is not valid
22/01/2009 13:25:57 - (SBL-SCR-00141)
22/01/2009 13:25:57 - 21735 Stack trace:
22/01/2009 13:25:57 - Service [Cfg_Vod_Import_Simulator].PropertySetToFile(), Line: 46
22/01/2009 13:25:57 - Service [Cfg_Vod_Import_Simulator].Service_PreInvokeMethod(), Line: 117
22/01/2009 13:25:57 -
It would be great if someone could advice as to whether we need to manually import a particular service "Cfg_Vod_Import_Simulator" into the environments without "sieb" as default root because i tend to think this is a configuration issue.
Plz advice as I would like to have this issue resolved asap. Let me know if any further details are required.

Jason,
Is it possible for you to have a look at the Business Service "Cfg_Vod_Import_Simulator" below & let me know if there is any changes environment specific that need to be made.
<?xml version="1.0" encoding="UTF-8"?><?Siebel-Property-Set EscapeNames="true"?><Business_spcService
Object_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments=""
Display_spcName_spc-spcStringspcOverride=""
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Browser_spcClass=""
Display_spcName_spc-spcStringspcReference=""
Object_spcLocked_spcBy_spcName=""
Sales_spcApplication_spcUse=""
Module=""
Cache="N"
Object_spcLocked_spcDate=""
Changed="N"
Application_spcCode=""
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Language_spcCode=""
Project_spcLocked_spcLanguage=""
Display_spcName_spc-spcRefspcExact=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
External_spcUse="N"
Writable="N"
Server_spcEnabled="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Display_spcName_spc-spcBasespcRow=""
Display_spcName=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Inactive="N"
Hidden="N"
Class="CSSService"
Container_spcModule=""
Name="Cfg_Vod_Import_Simulator"
Display_spcName_spc-spcRefspcDefault=""
Object_spcLanguage_spcLocked=""
<Repository_spcBusiness_spcService_spcMethodObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="Entry Point to execution"
Display_spcName_spc-spcStringspcOverride=""
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Display_spcName_spc-spcStringspcReference=""
Changed="N"
Application_spcCode=""
Project_spcUI_spcFreeze="N"
Language_spcCode=""
Project_spcLocked_spcLanguage=""
Display_spcName_spc-spcRefspcExact=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Display_spcName_spc-spcBasespcRow=""
Display_spcName=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Hidden="N"
Container_spcModule=""
Name="Start"
Display_spcName_spc-spcRefspcDefault=""
Object_spcLanguage_spcLocked=""
</Repository_spcBusiness_spcService_spcMethod
<Repository_spcBusiness_spcService_spcServer_spcScriptObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="Invoke "EAI XML Read from File" BS to read XML"
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Sales_spcApplication_spcUse=""
Changed="N"
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Project_spcLocked_spcLanguage=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Script="function GetModelPs(Inputs, Outputs)_newline{_newline var strTempo;_newline var PsReaderInputs = TheApplication().NewPropertySet();_newline strTempo = Inputs.GetProperty("FileName");_newline if (strTempo != "")_newline {_newline PsReaderInputs.SetProperty("FileName", strTempo);_newline }_newline else_newline {//Error_newline }_newline strTempo = Inputs.GetProperty("FileType");_newline if (strTempo != "")_newline {_newline PsReaderInputs.SetProperty("FileType", strTempo);_newline }_newline else_newline {_newline PsReaderInputs.SetProperty("FileType", "xml");_newline }_newline_newline //Read the file_newline var XmlReaderSvc = TheApplication().GetService("EAI XML Read from File");_newline XmlReaderSvc.InvokeMethod("ReadPropSet", PsReaderInputs, Outputs);_newline_newline return (CancelOperation);_newline}"
Program_spcLanguage="JS"
Container_spcModule=""
Name="GetModelPs"
Object_spcLanguage_spcLocked=""
Sequence="1"
</Repository_spcBusiness_spcService_spcServer_spcScript
<Repository_spcBusiness_spcService_spcServer_spcScriptObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="Write string as a line into open file"
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Sales_spcApplication_spcUse=""
Changed="N"
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Project_spcLocked_spcLanguage=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Script="function LogData(DataString, file)_newline{_newline try {_newline Clib.fputs((DataString + "\n"), file);_newline Clib.fflush(file);_newline }_newline catch (e){_newline // no action_newline }_newline}"
Program_spcLanguage="JS"
Container_spcModule=""
Name="LogData"
Object_spcLanguage_spcLocked=""
Sequence="2"
</Repository_spcBusiness_spcService_spcServer_spcScript
<Repository_spcBusiness_spcService_spcServer_spcScriptObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="Report Propset into file"
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Sales_spcApplication_spcUse=""
Changed="N"
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Project_spcLocked_spcLanguage=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Script="function PropertySetToFile (PropSet, fileName, title) _newline{ _newline var file = Clib.fopen(fileName, "at"); _newline LogData("", file); _newline LogData(title, file); _newline LogData(("Start At " + Clib.asctime(Clib.gmtime(Clib.time()))), file); _newline WritePropertySet(PropSet, file, 0); _newline Clib.fclose(file); _newline return (CancelOperation); _newline}"
Program_spcLanguage="JS"
Container_spcModule=""
Name="PropertySetToFile"
Object_spcLanguage_spcLocked=""
Sequence="3"
</Repository_spcBusiness_spcService_spcServer_spcScript
<Repository_spcBusiness_spcService_spcServer_spcScriptObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="Report String into file"
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Sales_spcApplication_spcUse=""
Changed="N"
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Project_spcLocked_spcLanguage=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Script="function ReportToFile (strReport, fileName, title) _newline{ _newline var file = Clib.fopen(fileName, "at"); _newline LogData("", file); _newline LogData(title, file); _newline LogData(("Time Stamp " + Clib.asctime(Clib.gmtime(Clib.time()))), file); _newline LogData(strReport, file); _newline Clib.fclose(file); _newline return (CancelOperation); _newline}"
Program_spcLanguage="JS"
Container_spcModule=""
Name="ReportToFile"
Object_spcLanguage_spcLocked=""
Sequence="4"
</Repository_spcBusiness_spcService_spcServer_spcScript
<Repository_spcBusiness_spcService_spcServer_spcScriptObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="main Function"
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Sales_spcApplication_spcUse=""
Changed="N"
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Project_spcLocked_spcLanguage=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Script="function Service_usPreInvokeMethod (MethodName, Inputs, Outputs)_newline{_newline var logFile;_newline var logStr;_newline var strWrn;_newline var strTempo;_newline var bFullReport = false;_newline var strBsName = "ISS Authoring Import Export Service";_newline var strBsMethod = "ImportVOD";_newline_newline_newline if (MethodName == "Start")_newline {_newline logFile = Inputs.GetProperty ("LogFile");_newline if (logFile == "")_newline {_newline logFile = "//apps//bss//sieb//build_usdeploy//TestPackage//RefData//Products//ImportProduct.log"; _newline }_newline strTempo = Inputs.GetProperty("LogFullReport");_newline if(strTempo == "Y")_newline {_newline bFullReport = true;_newline }_newline_newline var PsStructure = TheApplication().NewPropertySet();_newline var PsOutputs = TheApplication().NewPropertySet();_newline_newline logStr = "\n========== Strating Simulator with Params ==========\n";_newline PropertySetToFile(Inputs, logFile, logStr);_newline_newline _newline //Prepare for file reading_newline logStr = "\n========== Action ==========\n";_newline strTempo = "Calling: ReadPropSet on: EAI XML Read from File";_newline ReportToFile (strTempo, logFile, logStr);_newline GetModelPs(Inputs, PsStructure);_newline_newline logStr = "\n========== Action ==========\n";_newline strTempo = "Calling: " + strBsMethod + " on: " + strBsName;_newline ReportToFile (strTempo, logFile, logStr);_newline //prepare for import_newline strTempo = Inputs.GetProperty("ReportOnly");_newline if (strTempo != "")_newline {_newline PsStructure.SetProperty("ReportOnly", strTempo);_newline }_newline_newline strTempo = Inputs.GetProperty("RootObjectName");_newline if (strTempo != "")_newline {_newline PsStructure.SetProperty("RootObjectName", strTempo);_newline PsStructure.SetProperty("RootObjectType", "ISS_usJWS");_newline }_newline_newline strTempo = Inputs.GetProperty("NoTargNameChange");_newline if (strTempo != "")_newline {//"Y"_newline PsStructure.SetProperty("NoTargNameChange", strTempo);_newline }_newline strTempo = Inputs.GetProperty("NoSrcNameChange");_newline if (strTempo != "")_newline {//"Y"_newline PsStructure.SetProperty("NoSrcNameChange", strTempo);_newline }_newline strTempo = Inputs.GetProperty("AutoProceed");_newline if (strTempo != "")_newline {//"Y"_newline PsStructure.SetProperty("AutoProceed", strTempo);_newline }_newline strTempo = Inputs.GetProperty("UseNamesAsKeys");_newline if (strTempo != "")_newline {//"N"_newline PsStructure.SetProperty("UseNamesAsKeys", strTempo);_newline }_newline // get the service_newline var ExImSvc = TheApplication().GetService(strBsName);_newline // load the instance into an integration object_newline ExImSvc.InvokeMethod(strBsMethod, PsStructure, PsOutputs);_newline_newline if(bFullReport == true)_newline {_newline logStr = "\n========== Full Report: ==========\n";_newline PropertySetToFile(PsOutputs, logFile, logStr);_newline }_newline else_newline {_newline logStr = "\n========== Short Status: ==========\n";_newline strTempo = PsOutputs.GetProperty("Warning");_newline ReportToFile(strTempo, logFile, logStr);_newline }_newline_newline return (CancelOperation);_newline }_newline return (ContinueOperation);_newline}"
Program_spcLanguage="JS"
Container_spcModule=""
Name="Service_usPreInvokeMethod"
Object_spcLanguage_spcLocked=""
Sequence="6"
</Repository_spcBusiness_spcService_spcServer_spcScript
<Repository_spcBusiness_spcService_spcServer_spcScriptObject_spcLocked_spcBy_spcId=""
Project_spcId="1-3OB-22SZ5"
Comments="Recurcivelu dump Propset into open file"
Repository_spcId="1-3OB-1"
Project_spcLocked_spcBy_spcId=""
Parent_spcId="1-3OB-24DOJ"
Sales_spcApplication_spcUse=""
Changed="N"
Tools_spcApplication_spcUse=""
Project_spcUI_spcFreeze="N"
Project_spcLocked_spcLanguage=""
First_spcLevel_spcContainer_spcModule=""
Repository_spcName="Siebel Repository"
Project_spcName="Import Product XML"
Writable="N"
Project_spcLocked="N"
Service_spcApplication_spcUse=""
Object_spcLocked="N"
Project_spcUI_spcFreeze_spcBy_spcId=""
Parent_spcName="Cfg_usVod_usImport_usSimulator"
Parent_spcInactive="N"
Inactive="N"
Script="function WritePropertySet(PropSet, file, Level) _newline{ _newline if ((Level == "") || (typeof(Level) == "undefined")) _newline { _newline Level = 0; _newline } _newline var indent = ""; _newline for (var x = 0; x < Level; x++) _newline { _newline indent += "\t"; _newline } _newline var psType = PropSet.GetType(); _newline var psValue = PropSet.GetValue(); _newline _newline LogData((indent + "Type: " + psType + " Value: " + psValue), file); _newline _newline var propName = PropSet.GetFirstProperty(); _newline while (propName != "") _newline { _newline var propValue = PropSet.GetProperty(propName); _newline LogData((indent + propName + " = " + propValue), file); _newline propName = PropSet.GetNextProperty(); _newline } _newline var children = PropSet.GetChildCount(); _newline for (var x = 0; x < children; x++) _newline { _newline LogData(( indent + "CHILD PROPERTY SET " + x), file); _newline WritePropertySet(PropSet.GetChild(x), file, (Level + 1)); _newline } _newline}"
Program_spcLanguage="JS"
Container_spcModule=""
Name="WritePropertySet"
Object_spcLanguage_spcLocked=""
Sequence="5"
</Repository_spcBusiness_spcService_spcServer_spcScript
</Business_spcService

Automation using perl?

Similar Messages

Maybe you are looking for