Hi Chad,

We've had success with the SOAP::Lite stubmaker.pl converter which plucks out the correct parameters for each function from the WSDL file found in your SiteCatalyst account.

Your proxy endpoint can be determined from your WSDL file or by calling CompanyGetEndpoint with this generic endpoint:

->proxy('https://api.omniture.com/admin/1.2/')

We use ns() to set namespace parameters rather than uri(). This is the code for that GetEndpoint function as generated by the wsdl converter

Company.GetEndpoint => {
endpoint => 'https://api.omniture.com/admin/1.2/',
soapaction => 'http://www.omniture.com/#Company.GetEndpoint',
namespace => 'http://www.omniture.com/',
parameters => [
SOAP::Data->new(name => 'company', type => 'xsd:string', attr => {}),
],
},

See "SOAP::Schema" and "stubmaker.pl" in the SOAP::Lite docs.

Hope that helps get you on your way!

- David

When running stubmaker on the Omniture WSDL, I get a the file:
OmnitureWebService.pm

inside the file is:
SOAP::Schema=HASH(0x844f130)

thats it! one line. is this correct?

No that's not working. It should be functional Perl code. The following command, run in the folder with the named wsdl file:

perl stubmaker.pl 'file:./omniture.wsdl'

should generate an OmnitureWebService.pm file around 60k with content like the following:

package OmnitureWebService;
# Generated by SOAP::Lite (v0.67) for Perl -- soaplite.com
# Copyright (C) 2000-2006 Paul Kulchenko, Byrne Reese
# -- generated at [Wed Dec 17 12:44:45 2008]
# -- generated from file:./omniture.wsdl
my %methods = (
ReportSuite.GetRollups => {
endpoint => 'https://api.omniture.com/admin/1.2/',
soapaction => 'http://www.omniture.com/#ReportSuite.GetRollups',
namespace => 'http://www.omniture.com/',
parameters => [
], # end parameters
}, # end ReportSuite.GetRollups
ReportSuite.GetPaidSearch => {
endpoint => 'https://api.omniture.com/admin/1.2/',
soapaction => 'http://www.omniture.com/#ReportSuite.GetPaidSearch',
namespace => 'http://www.omniture.com/',
parameters => [
SOAP::Data->new(name => 'rsid_list', type => 'tns:string_array', attr => {
}),
], # end parameters
}, # end ReportSuite.GetPaidSearch
.
.
.

Interesting, I ran stubmaker again and now have a valid OmnitureWebService.pm

However, I still don't understand how to use it and can't find much help. Is it possible to put up some basic perl code for calling a function from OmnitureWebService.pm ?

Thanks,
Chad

#!/usr/bin/perl

# optional trace setup for debugging:
use SOAP::Lite +trace => [ 'all', '-objects' ];

use OmnitureWebService;

# you'll need to write an Authentication function per the spec
# so that your user and password are included in requests
my $user = shift;
my $pass = shift;
my $rapi = OmnitureWebService->Auth($user,$pass);

# but then making calls is easy, for example:
my $tokens = $rapi->CompanyGetTokenCount($user);
print "available tokens: ", $tokens, "\n";
1;

This is what we added to the OmnitureWebService.pm module to handle our
custom authentication headers, your mileage may vary especially with the auth_digest function:

# The Omniture web api uses a custom authentication header, handled below.
# Application must call Auth(name,pass) before calling remote methods.
# eg: OmnitureWebService->Auth($user,$pass)->CompanyGetReportSuites();

my $api_user_name;
my $api_shared_secret;
my $api_error_message;

sub Auth {
my $self = shift;
$api_user_name = shift;
$api_shared_secret = shift;
# while we're here, tell SOAP library to ignore Omniture custom types
# eg reportMetricType is treated as a regular string
{
no warnings 'redefine'; # disable redefine warning in this block
*SOAP::Deserializer::typecast = sub {shift; return shift};
}
return $self;
}

# _auth_digest(x) := base64(sha1(x))
sub _auth_digest {
my $text = shift;
my $hash = `echo -n '$text' | /usr/bin/openssl dgst -sha1`;
chomp $hash;
my $encode = encode_base64($hash);
chomp $encode;
return $encode;
}

sub _auth_header_text {
my ($username,$secret) = (shift, shift);
# time() guarantees nonce is unique per second, then in case we call more
# than once per second rand() makes it unlikely to collide.
my $nonce = time() . rand();

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++; # convert to 1-based month number, Jan = 1, etc
$year += 1900;
my $omtr_time = sprintf("%d-%02d-%02d %02d:%02d:%02d",
$year, $mon ,$mday, $hour, $min, $sec);

my $pw_digest = _auth_digest( $nonce . $omtr_time . $secret );

my $headers = '

'.$username.'
'.$pw_digest.'
'.$nonce.'
'.$omtr_time.'

';

return $headers;
}

# and then in the existing _call() routine just add the auth header
.
.
.
my @parameters = ();
push(@parameters, SOAP::Header->type(xml => _auth_header_text($api_user_name, $api_shared_secret)));
foreach my $param (@_) {
.
.
.

Thank you, I appreciate it. This should keep me busy for awhile

It worked, I am able to contact the Omniture server!
2 things I thought I would add, in case anyone else is reading this.

1.
I added the following module to OmnitureWebService.pm (the file that stubmaker.pl generated)

use MIME::Base64;

2.
The headers portion of your example lost the XML in your post which took me a bit to figure out. So I am adding the exact value.

$headers = '<wsse:Security SOAP-ENV:mustUnderstand="1">
<wsse:UsernameToken wsu:Id="User">
<wsse:Username>'.$username.'</wsse:Username>
<wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">'.$pw_digest.'</wsse:Password>
<wsse:Nonce>'.$nonce.'</wsse:Nonce>
<wsu:Created>'.$omtr_time.'</wsu:Created>
</wsse:UsernameToken>
</wsse:Security>';

One question I still have, is how do you pass parameters to the functions? For example, how would I pass the value "standard" for the parameter "rs_types" in the function CompanyGetReportSuites()

Thank you,
Chad

Ok I figured it out...

my $reportSuites = $rapi->CompanyGetReportSuites(rs_types => ['standard']);

foreach my $r (@{$reportSuites->{report_suites}}) {
   print $r->{site_title}, "\n";
}

I followed the steps in this thread but I am stuck here:
my $rapi = OmnitureWebService->Auth($user, $secret);
my $tokens = $rapi->CompanyGetTokenCount($user);

I get this message:
<faultstring xsi:type="xsd:string">Unable to validate authentication.</faultstring> <detail xsi:type="xsd:string"></detail>

I'd appreciate if someone could help me figure where I could be going wrong.

Thanks!
Deepak
p.s. I have debug logging enabled and I can see that the authentication headers are correctly set:
<SOAP-ENV:Header><wsse:Security SOAP-ENV:mustUnderstand="1"><wsse:UsernameToken wsu:Id="User"><wsse:Username>GulatiD:ESPN</wsse:Username><wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordDigest">MDlkMjk0YjllZGZjOTcxMTAyNDIxODlhZGQ2Y2IwZTg0ZDM5Yjg4OA==</wsse:Password><wsse:Nonce>12323658490.124643089090572</wsse:Nonce><wsu:Created>2009-01-19 17:20:49</wsu:Created></wsse:UsernameToken></wsse:Security></SOAP-ENV:Header>

Look like using backticks to call openssl was causing some issues. I switched to Perl's Digest::SHA1 and it works now.

Here are the details of the issue caused by the backtick:
http://perlmonks.org/?node_id=737332

I've got this working:

my $rapi = OmnitureWebService->Auth($user, $secret);
my $tokens = $rapi->CompanyGetTokenCount($user);

That gives me a token count as expected.

However, when I try this next:

my $result = $rapi->CompanyGetReportSuites(rs_types => ['standard']);

I get this error:

Type 'string_array' can't be found in a schema class 'SOAP::Serializer'

Any ideas what I might be doing wrong?