RE: [Arsperl-users] REmedy problem
Brought to you by:
jeffmurphy
Menu
▾
▴
RE: [Arsperl-users] REmedy problem
|
From: Steve M. <ste...@ch...> - 2005-06-09 16:18:03
|
Check that you are putting the full path to the script in the filter that is
calling the script. Also, if you have a non-root install of Remedy, that
the user that installed Remedy has permissions to the script.
-----Original Message-----
From: ars...@ar...
[mailto:ars...@ar...] On Behalf Of Amen Asemota
Sent: Thursday, June 09, 2005 8:53 AM
To: ars...@ar...
Subject: RE: [Arsperl-users] REmedy problem
Yes it does it prints out the word "Sent" and it also creates a txt file
which we also need.
Amen.
>From: Steve McDonald <ste...@ch...>
>Reply-To: ars...@ar...
>To: ars...@ar...
>Subject: RE: [Arsperl-users] REmedy problem
>Date: Thu, 09 Jun 2005 08:20:22 -0700
>
>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
>
>
>
>-------------------------------------------------------
>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
_________________________________________________________________
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
|
