Re: [Arsperl-users] ars_CreateEntry crashing perl

[Sam V. <sa...@si...>]

I have tried creating more than two tickets, but, interestingly enough,=20=

it always crashes after the second one is created. Also, if I open the=20=

form using the OO layer, I can create exactly one ticket, then when I=20
try to create the second it crashes before it gets created.
Thanks for the help.
-Sam.
On Sep 23, 2005, at 12:31 AM, Stapff, Thilo wrote:

> My current hypothesis about this is that the memory problem occurs=20
> always at the end of the script (if it occurs at all), when some=20
> objects are destroyed, irrespective of the number of tickets created.
>
> Could you test this (perhaps by wrapping the ars_CreateEntry calls in=20=

> a loop)?
>
> Thanks in advance.
> Thilo
>
>
> -----Original Message-----
> From: Sam Vanderhyden [mailto:sa...@si...]
> Sent: Friday, September 23, 2005 2:43 AM
> 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 =3D ars_Login("ohio", "Demo", "", undef, undef, 6777, 0); %f =3D=20=

> ars_GetFieldTable($c, "HPD:HelpDesk"); my $id =3D ars_CreateEntry($c,=20=

> "HPD:HelpDesk",
>
> =A0=A0=A0=A0=A0=A0=A0 $f{'Summary'}, "Perl Test ticket #1",=A0=A0
> =A0=A0=A0=A0=A0=A0=A0 $f{'Description'}, "his is the description",
> =A0=A0=A0=A0=A0=A0=A0 $f{'Category'},"Software",
> =A0=A0=A0=A0=A0=A0=A0 $f{'Type'}, "Other",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Item'}, "Drivers",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Case Type'}, "Incident",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Priority'}, "Low",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Requester Login Name+'}, "Demo",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Requester Name+'}, "Demo",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Source'}, "Phone");
> =A0 print "TICKET ID: $id\r\n";
> =A0 $id =3D ars_CreateEntry($c, "HPD:HelpDesk",
> =A0=A0=A0=A0=A0=A0=A0 $f{'Summary'}, "Perl Test ticket #2",
> =A0=A0=A0=A0=A0=A0=A0 $f{'Description'}, "his is the description",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Category'},"Software",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Type'}, "Other",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Item'}, "Drivers",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Case Type'}, "Incident",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Priority'}, "Low",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Requester Login Name+'}, "Demo",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Requester Name+'}, "Demo",
> =A0=A0=A0=A0=A0=A0=A0=A0=A0 $f{'Source'}, "Phone");
> =A0=A0=A0 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=20=

> very own Sony(tm)PSP.=A0 Click here to play:=20
> http://sourceforge.net/geronimo.php
>
> _______________________________________________
> Arsperl-users mailing list
> Ars...@ar...=20
> https://lists.sourceforge.net/lists/listinfo/arsperl-users