Re: [Arsperl-users] ars_CreateEntry crashing perl

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

I had some time today to do a bit more systematic testing of this 
problem, so here is what I did:
I created a form called UTest in the ARSystem server. This form has two 
required fields, and both are of type character.
I wrote the following script to insert entries into this form:
use ARS;
print("loggin in \r\n");
my $c = ars_Login("ohio", "Demo", "", undef, undef, 6777, 0);
my $cnt = 0;
while($cnt<5){
         print("inserting ticket\r\n");
         my $id = ars_CreateEntry($c, "UTest",
	    	2, "Perl Test ticket $cnt",
		8,"Testing this is a test");
	print "TICKET ID: $id\r\n";
          $cnt++;
}
I tried to make the script as simple as possible, using the static 
field IDs instead of using the ars_getFieldTable sub.
I then tested this script on four different versions of windows (all 
completely fresh installs):
Windows 2000 pro
Windows 2000 Server
Windows XP pro
Windows 2003 Server

I installed Remedy User 6.3, ActivePerl 5.8.3 build 809, and ARSPerl 
1.84_63 windows binary on all 4 machines.

I then ran the script on all 4 systems. On windows 2000 pro and server, 
it crashed perl.exe with the same memory error as before on the second 
call to ars_CreateEntry. On windows XP, it completed all 5 inserts and 
then crashed. I played around with inserting as many as 100 tickets in 
the loop, and indeed on windows xp it inserted all 100 and then 
crashed, with nothing in $ars_errstr (so it always crashed after the 
last call to ars_CreateEntry). On windows 2003 Server the script worked 
fine, without crashing, no matter how many tickets I inserted.
Anyone have any ideas?
Thanks,
-Sam.

On Sep 26, 2005, at 2:48 PM, Sam Vanderhyden wrote:

> I just tried undefing all my vars in between calls, and it still 
> crashes. I also tried logging off (using ars_Logoff($c) ) and then 
> logging in again in between calls and that still crashes on the third 
> call.
>
> -Sam.
>
> On Sep 26, 2005, at 2:31 PM, Matt.Reinfeldt wrote:
>
>> The only other thing is have you tried 'undef'ing your variables 
>> before
>> the 2nd, 3rd, etc createEntry calls?
>>
>> undef $id;
>> undef %f;
>>
>> etc...
>>
>> Matt Reinfeldt
>> Senior Production Support Specialist
>> Entuition Inc.
>> Phone: 608-848-9071
>> Cell#: 920.791.0083
>> Email: mat...@en...
>>
>>
>> -----Original Message-----
>> From: ars...@ar...
>> [mailto:ars...@ar...] On Behalf Of Sam Vanderhyden
>> Sent: Monday, September 26, 2005 4:27 PM
>> To: ars...@ar...
>> Subject: Re: [Arsperl-users] ars_CreateEntry crashing perl
>>
>> Matt,
>> I've tried using for and while loops. perl.exe crashes on the third
>> call to ars_createEntry in both cases.
>>
>> Thanks for the help.
>> -Sam.
>>
>> On Sep 26, 2005, at 2:15 PM, Matt.Reinfeldt wrote:
>>
>>> Sam,
>>>
>>> Have you tried encapsulating each createEntry call in a while loop?
>>>
>>> Something like:
>>>
>>> my $cnt = 0;
>>> while ($cnt <= 1) {
>>> 	... your create entry code here
>>> 	$cnt += 1;
>>> }
>>>
>>> I use that methodology and create thousands of tickets successfully.
>> I
>>> don't know why one way would work over the other... further testing
>>> would be needed to track that down.
>>>
>>> Let us know if that works for you.
>>>
>>> Matt Reinfeldt
>>> Senior Production Support Specialist
>>> Entuition Inc.
>>> Phone: 608-848-9071
>>> Cell#: 920.791.0083
>>> Email: mat...@en...
>>>
>>> -----Original Message-----
>>> From: ars...@ar...
>>> [mailto:ars...@ar...] On Behalf Of Sam Vanderhyden
>>> Sent: Monday, September 26, 2005 3:47 PM
>>> To: ars...@ar...
>>> Subject: Re: [Arsperl-users] ars_CreateEntry crashing perl
>>>
>>> $ars_errstr contains the following after the second call:
>>> [OK]  (Support-Software has been notified of the assignment.) (ARERR
>>> #42108)
>>> %ars_errhash has only one entry:
>>> 	numItems -> 1
>>> 	messagenum -> 42108
>>> 	messageType -> 0
>>> 	messageText -> (Support-Software has been notified of the
>>> assignment.)
>>>
>>> Other things I've been trying:
>>> I uninstalled the ARSystem server from my dev machine and installed
>>> only Remedy User. I then ran the original script and it worked fine
>>> connecting to a remote ARSystem and creating two tickets. I thought
>>> that the problem was with the local ARSystem server, but then I tried
>>> creating more than two tickets in the script, and it crashed perl 
>>> with
>>> the same message on the attempt to create the third ticket (the third
>>> ticket was not created).
>>>
>>> -Sam.
>>>
>>>
>>> On Sep 26, 2005, at 12:09 PM, Mark Vaughan wrote:
>>>
>>>> Sam,
>>>> Do you receive any values in $ars_errstr and %ars_errhash?
>>>>
>>>> Mark Vaughan
>>>>
>>>> Programmer III
>>>>
>>>>
>>>>
>>>> Direct: +1 303 802 2426
>>>>
>>>> Cell: +1 303 601 4434
>>>>
>>>> Fax: +1 303 802 1420
>>>>
>>>> mar...@ev...
>>>>
>>>> Evolving Systems, Inc.
>>>>
>>>> 9777 Pyramid Court, Suite 100, Englewood, CO USA 80112
>>>>
>>>> www.evolving.com
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: ars...@ar...
>>>> [mailto:ars...@ar...] On Behalf Of Sam 
>>>> Vanderhyden
>>>> Sent: Thursday, September 22, 2005 6:43 PM
>>>> To: ars...@ar...
>>>> Subject: [Arsperl-users] ars_CreateEntry crashing perl
>>>>
>>>> I am using activestate perl 5.8.3 build 809 on Windows 2k, with
>>>> ARSystem 6.03.00. I have installed ARSPerl-1.84 windows binary
>>>> distribution available on the site.
>>>> I am trying to insert multiple entries into a form in using the
>>>> following code:
>>>>
>>>> my $c = ars_Login("ohio", "Demo", "", undef, undef, 6777, 0);
>>>> %f = ars_GetFieldTable($c, "HPD:HelpDesk");
>>>> my $id = ars_CreateEntry($c, "HPD:HelpDesk",
>>>> 	$f{'Summary'}, "Perl Test ticket #1",	
>>>> 	$f{'Description'}, "his is the description",
>>>> 	$f{'Category'},"Software",
>>>> 	$f{'Type'}, "Other",
>>>>           $f{'Item'}, "Drivers",
>>>>           $f{'Case Type'}, "Incident",
>>>>           $f{'Priority'}, "Low",
>>>>           $f{'Requester Login Name+'}, "Demo",
>>>>           $f{'Requester Name+'}, "Demo",
>>>>           $f{'Source'}, "Phone");
>>>>   print "TICKET ID: $id\r\n";
>>>>   $id = ars_CreateEntry($c, "HPD:HelpDesk",
>>>> 	$f{'Summary'}, "Perl Test ticket #2",
>>>> 	$f{'Description'}, "his is the description",
>>>>           $f{'Category'},"Software",
>>>>           $f{'Type'}, "Other",
>>>>           $f{'Item'}, "Drivers",
>>>>           $f{'Case Type'}, "Incident",
>>>>           $f{'Priority'}, "Low",
>>>>           $f{'Requester Login Name+'}, "Demo",
>>>>           $f{'Requester Name+'}, "Demo",
>>>>           $f{'Source'}, "Phone");
>>>>     print "TICKET ID: $id\r\n";
>>>>
>>>> When I run the above script, I get an application error dialog for
>>>> perl.exe which states "The instruction "0x77fcb861" referenced 
>>>> memory
>>>> at "0x015cd4a0". The memory cannot be "written"." The dialog comes 
>>>> up
>>>> after the two IDs are printed out, and if I use Remedy User to view
>>> the
>>>> tickets, they are indeed created. If I remove the code to create the
>>>> second ticket, the whole thing works fine.
>>>> Does ARSPerl work under activestate perl? Is there something I can 
>>>> do
>>>> to get around this problem?
>>>> -Sam
>>>>
>>>>
>>>>
>>>> -------------------------------------------------------
>>>> SF.Net email is sponsored by:
>>>> Tame your development challenges with Apache's Geronimo App Server.
>>>> Download it for free - -and be entered to win a 42" plasma tv or 
>>>> your
>>>> very
>>>> own Sony(tm)PSP.  Click here to play:
>>>> http://sourceforge.net/geronimo.php
>>>> _______________________________________________
>>>> Arsperl-users mailing list
>>>> Ars...@ar...
>>>> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>>>> This e-mail and any attachments may be confidential and/or legally
>>>> privileged. If you have received this e-mail and you are not a named
>>>> addressee, please inform Evolving Systems TIS at ti...@ev... 
>>>> and
>>>> then delete the e-mail from your system. If you are not a named
>>>> addressee you must not use, disclose, distribute, copy, print or 
>>>> rely
>>>> on this e-mail. To ensure regulatory compliance and for the
>> protection
>>>
>>>> of our clients and business, Evolving Systems may monitor and read
>>>> e-mails sent to and from its servers. Although Evolving Systems
>>>> routinely screens for viruses, addressees should scan this e-mail 
>>>> and
>>>> any attachments for viruses. Evolving Systems makes no 
>>>> representation
>>>> or warranty as to the absence of viruses in this e-mail or any
>>>> attachments.
>>>>
>>>> Registered Office: 9777 Mt. Pyramid Ct Suite 100, Englewood, CO 
>>>> 80112
>>>>
>>>>
>>>>
>>>> -------------------------------------------------------
>>>> SF.Net email is sponsored by:
>>>> Tame your development challenges with Apache's Geronimo App Server.
>>>> Download it for free - -and be entered to win a 42" plasma tv or 
>>>> your
>>>> very
>>>> own Sony(tm)PSP.  Click here to play:
>>>> http://sourceforge.net/geronimo.php
>>>> _______________________________________________
>>>> Arsperl-users mailing list
>>>> Ars...@ar...
>>>> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>>>
>>>
>>>
>>> -------------------------------------------------------
>>> SF.Net email is sponsored by:
>>> Tame your development challenges with Apache's Geronimo App Server.
>>> Download it for free - -and be entered to win a 42" plasma tv or your
>>> very
>>> own Sony(tm)PSP.  Click here to play:
>>> http://sourceforge.net/geronimo.php
>>> _______________________________________________
>>> Arsperl-users mailing list
>>> Ars...@ar...
>>> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>>>
>>>
>>>
>>>
>>> -------------------------------------------------------
>>> SF.Net email is sponsored by:
>>> Tame your development challenges with Apache's Geronimo App Server.
>>> Download it for free - -and be entered to win a 42" plasma tv or your
>>> very
>>> own Sony(tm)PSP.  Click here to play:
>>> http://sourceforge.net/geronimo.php
>>> _______________________________________________
>>> Arsperl-users mailing list
>>> Ars...@ar...
>>> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>>
>>
>>
>> -------------------------------------------------------
>> SF.Net email is sponsored by:
>> Tame your development challenges with Apache's Geronimo App Server.
>> Download it for free - -and be entered to win a 42" plasma tv or your
>> very
>> own Sony(tm)PSP.  Click here to play:
>> http://sourceforge.net/geronimo.php
>> _______________________________________________
>> Arsperl-users mailing list
>> Ars...@ar...
>> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>>
>>
>>
>>
>> -------------------------------------------------------
>> SF.Net email is sponsored by:
>> Tame your development challenges with Apache's Geronimo App Server.
>> Download it for free - -and be entered to win a 42" plasma tv or your 
>> very
>> own Sony(tm)PSP.  Click here to play: 
>> http://sourceforge.net/geronimo.php
>> _______________________________________________
>> Arsperl-users mailing list
>> Ars...@ar...
>> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>
>
>
> -------------------------------------------------------
> SF.Net email is sponsored by:
> Tame your development challenges with Apache's Geronimo App Server. 
> Download it for free - -and be entered to win a 42" plasma tv or your 
> very
> own Sony(tm)PSP.  Click here to play: 
> http://sourceforge.net/geronimo.php
> _______________________________________________
> Arsperl-users mailing list
> Ars...@ar...
> https://lists.sourceforge.net/lists/listinfo/arsperl-users