RE: [Arsperl-users] REmedy problem

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

Does this script work from the command line?

-----Original Message-----
From: ars...@ar...
[mailto:ars...@ar...] On Behalf Of Amen Asemota
Sent: Thursday, June 09, 2005 6:42 AM
To: ars...@ar...
Subject: Re: [Arsperl-users] REmedy problem

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/

-------------------------------------------------------
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