arsperl-users

[Arsperl-users] REmedy problem

[Amen A. <aas...@ho...>]

Hi,

I am trying to run a perl script in a filter but i keep getting ARERR [38] 
Filter/escalation 'set field' process returned an error.

Iam trying to use the $PROCESS$ command to set a field . Please help..

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

Re: [Arsperl-users] REmedy problem

[Carey M. B. <bla...@gm...>]

Amen,

Make sure your script always exits with status zero.
exit(0);
If you do not exit with a status of zero then the ARS server will
throw an exception.

print anything to STDOUT that you want to to end up in the field.

A simple example would be:
#! /usr/bin/perl
print "The fields new value is this whole string";
exit(0);


Also .. in the filter.. make sure you fully qualify the path to the
perl script and maybe even perl itself.

/path/to/myscript/junk.pl

or maybe...

/usr/bin/perl /path/to/myscript/junk.pl


You can also run Filter logs and check the arerror.log for more
details on what the ARS server is seeing from the script too.

Hope that helps.

--=20
Carey Matthew Black
Remedy Skilled Professional (RSP)
ARS =3D Action Request System(Remedy)

Solution =3D People + Process + Tools
Fast, Accurate, Cheap.... Pick two.
Never ascribe to malice, that which can be explained by incompetence.

http://www.fellowshipchurch.com

On 6/8/05, Amen Asemota <aas...@ho...> wrote:
> Hi,
>=20
> I am trying to run a perl script in a filter but i keep getting ARERR [38=
]
> Filter/escalation 'set field' process returned an error.
>=20
> Iam trying to use the $PROCESS$ command to set a field . Please help..
>=20
> _________________________________________________________________
> Express yourself instantly with MSN Messenger! Download today it's FREE!
> http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>=20
>=20
>=20
> -------------------------------------------------------
> This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you sho=
tput
> a projector? How fast can you ride your desk chair down the office luge t=
rack?
> If you want to score the big prize, get to know the little guy.
> Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=3D20
> _______________________________________________
> Arsperl-users mailing list
> Ars...@ar...
> https://lists.sourceforge.net/lists/listinfo/arsperl-users
>

Re: [Arsperl-users] REmedy problem

[Amen A. <aas...@ho...>]

Hi Carey and Steve,

Here is my Code :

#!/usr/bin/perl

#use strict 'vars';
my $status = "Active";
my $count3 = 0;
my $countDTR = 0;
my @save_DTR;
my @save_entry;
my @save_type;
my @save_PartNumber;
my @save_ProductName;
my @save_qty;
my @save_unitCost;
my @save_ExtendedCost;
my $save_filename;
my $DTR = "DTR";
my $flag = 1;
my $flag2 = "Sent" ;

use arControl;
my $server = $arControl::SERVER;
my $username = $arControl::USERNAME;
my $pw = $arControl::PW;
use ARS;
#open(TXT,">datafile.txt") ||die printf "unable to open flat file\n";

# text file opened
#printf "The datafile has been opened\n";
$ctrl = ars_Login($server,$username,$pw)||die printf "AR Server login 
Error\n";
#$query = "'650001031' != \$NULL\$";
#my $query = "'Assigned To' != \$NULL\$";
my $query = "'PO Flag?'!= \$NULL\$";
my $qual = ars_LoadQualifier($ctrl, "Schema",$query);
if(!defined($qual))
{
        $error = "Unable to create Schema Load qualifier
$ars_errstr";
}

# created the qualifier
#printf "Qualifier has been created\n";
%firstentry = ars_GetListEntry($ctrl,"Schema",$qual,0);
#getting DTR numbers
#printf "DTR numbers being retrieved\n";
foreach $entryId (sort keys %firstentry)
{
    %firstvalue = ars_GetEntry($ctrl,"Schema", $entryId,
650001006);
    foreach $entryId (sort keys %firstvalue)
    {
       $save_DTR{$countDTR} = $firstvalue{650001006};
       $save_entry{$countDTR} = $entryId;
#      printf $save_DTR{$countDTR};
       $countDTR++;
      }
}
#printf("DTR count=%d\n",$countDTR);
# creating the header file
print TXT "H","0001","0000000","000000","000","0000000000";
print TXT "00000","00000","00000000";
# Retrieving the Items for this DTR  table

$qualb = ars_LoadQualifier($ctrl,"Schema2", "1=1");
if(!defined($qualb))
        {
                $error = "Unable to create Schema2  Load qual
ifier $ars_errstr";
        }
for($count3 = 0; $count3 < $countDTR; $count3++)
{# printf("next DTR=%s\n",$save_DTR{$count3});
$save_filename = $DTR.$save_DTR{$count3};
open(TXT,">$save_filename.txt") ||die printf "unable to open flat file\n";
#printf($save_filename, "\n");
%second = ars_GetListEntry($ctrl,"Schema2",$qualb, 0);
my $allHWSW=0;
my $prtHWSW=0;

foreach $entryId(sort keys %second)
{      $allHWSW++;
        #Gets table information
        %secondvalue = ars_GetEntry($ctrl,"Schema2",$entryId,
650008002,8,7,650008003,650008007,
                 650008016,650008005,650008004,650008015);
       if(($secondvalue{650008002} eq $save_DTR{$count3}) && 
(($secondvalue{6500
08015} == 0) && ($secondvalue{7} == 0)))
              { $prtHWSW++;
                 $save_type{$count3}= $secondvalue{8};
                 $save_PartNumber{$count3} = $secondvalue{650008003};
                 $save_ProductName{$count3} = $secondvalue{650008007};
                 $save_qty{$count3} = $secondvalue{650008016};
                 $save_unitCost{$count3} = $secondvalue{650008005};
                 $save_extendedCost{$count3} = $secondvalue{650008004};
                 $save_WO{$count3} = $secondvalue{650008015};
                 $save_Status{$count3} = $secondvalue{7};
                #send items to file
                print TXT $save_DTR{$count3};
                print TXT "L","0001","0000000","000000","000","0";
                print TXT $save_type{$count3};
                print TXT $save_PartNumber{$count3};
                print TXT $save_ProductName{$count3},"  ";
                print TXT $save_qty{$count3},"  ";
                print TXT $save_unitCost{$count3},"  ";
                print TXT $save_extendedCost{$count3};
                #$count3++;
           }
  }
#printf("   allHWSW=%d prtHWSW=%d\n",$allHWSW,$prtHWSW);
close(TXT);
}

#close(TXT);
ars_Logoff($ctrl);
print "Sent \n";
exit(0);




Then in the Remedy filter i enter the process $PROCESS$ /path/file.pl  
because I want it to Set a text field in the filter to "Sent". With the 
exit(0), I am still getting the same error msg. This script compiles with no 
problem in Unix and it prints out Sent to the STDOUT but when I use it in 
the set field it keep getting the error ARERR [38] Filter/escalation 'set 
field' process returned an error.



Thanks.

Amen.

>From: Carey Matthew Black <bla...@gm...>
>Reply-To: ars...@ar...
>To: ars...@ar...
>Subject: Re: [Arsperl-users] REmedy problem
>Date: Wed, 8 Jun 2005 11:04:16 -0500
>
>Amen,
>
>Make sure your script always exits with status zero.
>exit(0);
>If you do not exit with a status of zero then the ARS server will
>throw an exception.
>
>print anything to STDOUT that you want to to end up in the field.
>
>A simple example would be:
>#! /usr/bin/perl
>print "The fields new value is this whole string";
>exit(0);
>
>
>Also .. in the filter.. make sure you fully qualify the path to the
>perl script and maybe even perl itself.
>
>/path/to/myscript/junk.pl
>
>or maybe...
>
>/usr/bin/perl /path/to/myscript/junk.pl
>
>
>You can also run Filter logs and check the arerror.log for more
>details on what the ARS server is seeing from the script too.
>
>Hope that helps.
>
>--
>Carey Matthew Black
>Remedy Skilled Professional (RSP)
>ARS = Action Request System(Remedy)
>
>Solution = People + Process + Tools
>Fast, Accurate, Cheap.... Pick two.
>Never ascribe to malice, that which can be explained by incompetence.
>
>http://www.fellowshipchurch.com
>
>On 6/8/05, Amen Asemota <aas...@ho...> wrote:
> > Hi,
> >
> > I am trying to run a perl script in a filter but i keep getting ARERR 
>[38]
> > Filter/escalation 'set field' process returned an error.
> >
> > Iam trying to use the $PROCESS$ command to set a field . Please help..
> >
> > _________________________________________________________________
> > Express yourself instantly with MSN Messenger! Download today it's FREE!
> > http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
> >
> >
> >
> > -------------------------------------------------------
> > This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you 
>shotput
> > a projector? How fast can you ride your desk chair down the office luge 
>track?
> > If you want to score the big prize, get to know the little guy.
> > Play to win an NEC 61" plasma display: http://www.necitguy.com/?r=20
> > _______________________________________________
> > Arsperl-users mailing list
> > Ars...@ar...
> > https://lists.sourceforge.net/lists/listinfo/arsperl-users
> >
>
>
>
>-------------------------------------------------------
>This SF.Net email is sponsored by: NEC IT Guy Games.  How far can you 
>shotput
>a projector? How fast can you ride your desk chair down the office luge 
>track?
>If you want to score the big prize, get to know the little guy.
>Play to win an NEC 61" plasma display: http://www.necitguy.com/?r
>_______________________________________________
>Arsperl-users mailing list
>Ars...@ar...
>https://lists.sourceforge.net/lists/listinfo/arsperl-users

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/