RE: [Arsperl-users] REmedy problem
Brought to you by:
jeffmurphy
Menu
▾
▴
RE: [Arsperl-users] REmedy problem
|
From: Amen A. <aas...@ho...> - 2005-06-09 16:35:04
|
Hey Carey,
Thank you so much. I just added /usr/bin/perl to the path e.g
$PROCESS$ /usr/bin/perl /path/file.pl
and it is working great now. Thank you.
Amen.
>From: Steve McDonald <ste...@ch...>
>Reply-To: ars...@ar...
>To: ars...@ar...
>Subject: RE: [Arsperl-users] REmedy problem
>Date: Thu, 09 Jun 2005 09:17:28 -0700
>
>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
>
>
>
>-------------------------------------------------------
>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/
|
