I would agree but I continually get the following type of error and I've
tried a few different ways of submitting teh Set request:
Fault :
MessageType: 2
MessageNum: 8961
MessageText: Required element expected in the input XML document
AppendedText: <Brand>
Faultcode :soapenv:Server.userException
Faultdetail :
Brand is getting set in the Data section.
Any further insight on why this error would appear?
On 5/24/07, Grooms, Frederick W <[EMAIL PROTECTED]> wrote:
** The actual operation should not matter (Create vs Set).
#!/apps/remdev/ars/ars/perl -w
#
# Test Remedy WebService
#
use Env;
use SOAP::Lite +trace => [ transport => \&SOAP_log ];
sub SOAP_log {
# Assume Transport Logging Only
my ($in) = @_;
my $doubleLF = chr(10).chr(10);
my $singleLF = chr(10);
my($sName,$sVal) = split(/=/,$in,2);
while( my ($k, $v) = each %$in ) {
if ( $k eq "_content" ) {
$sVal = "$sName\n".$v;
$sVal =~ s/$doubleLF/$singleLF/g;
write_log ( $sVal );
}
}
}
sub write_log {
# my $arLogFile=$ENV{'ARCONFIGDIR'}."/tmp/fred_Remedy_SOAP.log";
my $arLogFile="fred_Remedy_SOAP.log";
my($message) = @_;
$message="$message";
chop(my $date = `date +'%a %b %e %Y %T'`);
my $messagehead = "<PERL> <TID: 0> <RPC ID: 0> <Queue: 0> <Client-RPC:
0> <USER: perl> /* $date */ ";
warn "Could not open logfile: $arLogFile\n" unless (open (LOGFILE,
">>$arLogFile"));
print LOGFILE "$messagehead $message\n";
warn "Could not close logfile: $arLogFile\n" unless (close (LOGFILE));
}
my $USERNAME = "USER";
my $PASSWORD = "PASS";
my $arServer = "devars";
my $ServiceName = "TestService";
my $RemedyURL = "http://devtomcat
/ars/services/ARService?server=".$arServer."&webService=".$ServiceName<http://devtomcat/ars/services/ARService?server=%22.$arServer.%22&webService=%22.$ServiceName>
;
my $RemedyNS = "urn:".$ServiceName;
my $RecordID = "TST000001290066";
my $StatusTxt = "Success";
my $UpdateDate = "2006-11-17T20:35:11";
my $soap = SOAP::Lite
-> proxy($RemedyURL)
-> ns($RemedyNS,'ns1')
-> autotype(0)
-> readable(1);
my $som = $soap->OpSet(
SOAP::Header->name('AuthenticationInfo' => \SOAP::Header->value(
SOAP::Header->name('userName' => $USERNAME),
SOAP::Header->name('password' => $PASSWORD) )),
SOAP::Data->name('RecordID' => $RecordID ),
SOAP::Data->name('txtStatus' => $StatusTxt ),
SOAP::Data->name('StatusTime' => $UpdateDate ) );
#print $som;
The subroutines in blue (SOAP_log and write_log) are used to log the
HTTP:Request and HTTP:Response data to a file in a human readable format. To
disable this logging change the use statement from: use SOAP::Lite +trace
=> [ transport => \&SOAP_log ]; to use SOAP::Lite;
Fred
------------------------------
*From:* Action Request System discussion list(ARSList) [mailto:
[EMAIL PROTECTED] *On Behalf Of *Frank Caruso
*Sent:* Thursday, May 24, 2007 1:02 PM
*To:* [email protected]
*Subject:* Re: SOAP OpSet
** That handles an OpCreate only. I have tried using pieces of that script
for an OpSet but am having no luck.
On 5/24/07, Jarl Grøneng < [EMAIL PROTECTED]> wrote:
>
> From an earier post:
>
> ------------------------------------------------------------------------
>
>
> There is a SOAP::Lite example of how to consume a Remedy Web services
> in the Developer community. (not a CGI, but that is really not related
> to the question. Really.)
>
> Utility --> Development --> Web Service Perl Test Client
>
> --
> Carey Matthew Black
> -----------------------------------------------------------------------
>
> On 5/24/07, Frank Caruso <[EMAIL PROTECTED]> wrote:
> > ** Looking for an example of consuming a Remedy Web Service using Perl
> and
> > SOAP::Lite.
> > Specifically looking for an OpSet example.
> >
> > Thank you
> >
> >
> > --
> > Frank Caruso
> > Specific Integration, Inc.
> > Senior Remedy Engineer, ITIL Foundation Certified
> > www.specificintegration.com
> > 703-376-1249 __20060125_______________________This posting
> > was submitted with HTML in it___
>
>
>
_______________________________________________________________________________
> UNSUBSCRIBE or access ARSlist Archives at www.arslist.org ARSlist:"Where
> the Answers Are"
>
--
Frank Caruso
Specific Integration, Inc.
Senior Remedy Engineer, ITIL Foundation Certified
www.specificintegration.com
703-376-1249 __20060125_______________________This posting was submitted
with HTML in it___ __20060125_______________________This posting was
submitted with HTML in it___
--
Frank Caruso
Specific Integration, Inc.
Senior Remedy Engineer, ITIL Foundation Certified
www.specificintegration.com
703-376-1249
_______________________________________________________________________________
UNSUBSCRIBE or access ARSlist Archives at www.arslist.org ARSlist:"Where the Answers
Are"
