RE: [Arsperl-users] REmedy problem
Brought to you by:
jeffmurphy
Menu
▾
▴
RE: [Arsperl-users] REmedy problem
|
From: Steve M. <ste...@ch...> - 2005-06-09 20:30:03
|
Does the script user(remedy install user) have permissions to create files
in the specified location?
-----Original Message-----
From: ars...@ar...
[mailto:ars...@ar...] On Behalf Of Amen Asemota
Sent: Thursday, June 09, 2005 1:21 PM
To: ars...@ar...
Subject: RE: [Arsperl-users] REmedy problem
Yes it does. I do have another problem though. It is supposed to be creating
a text file also but it's not doing that. It just sets the field and that's
it.
Thanks.
Amen.
>From: "PC Wai" <PC...@TE...>
>Reply-To: ars...@ar...
>To: <ars...@ar...>
>Subject: RE: [Arsperl-users] REmedy problem
>Date: Thu, 9 Jun 2005 09:03:33 -0700
>
>Hi Amen,
>
>Just a wild guess. Does your Remedy owner have execution permission to the
>script and the modules?
>
>Regards
>PC
>
>-----Original Message-----
>From: ars...@ar...
>[mailto:ars...@ar...] On Behalf Of Amen Asemota
>Sent: Thursday, June 09, 2005 08:53
>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
>_______________________________________________
>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
|
