Result:
found 39 distributions and 84 files matching your query !
( run in 0.435 )
WWW-SFDC
view release on metacpan or search on metacpan
lib/WWW/SFDC.pm view on Meta::CPAN
->readable(1)
->default_ns($NS)
->call(
$method,
@params,
SOAP::Header->name("SessionHeader" => {
"sessionId" => $self->loginResult->{"sessionId"}
})->uri($NS)
);
}
) {
WWW-Salesforce
view release on metacpan or search on metacpan
lib/WWW/Salesforce.pm view on Meta::CPAN
if ($in{'limit'} < 1 || $in{'limit'} > 2000) {
die("A query's limit cannot exceed 2000. 500 is default.");
}
my $limit
= SOAP::Header->name(
'QueryOptions' => \SOAP::Header->name('batchSize' => $in{'limit'}))
->prefix($SF_PREFIX)->uri($SF_URI);
my $client = $self->_get_client();
my $r = $client->query(SOAP::Data->type('string' => $in{'query'}),
$limit, $self->_get_session_header());
lib/WWW/Salesforce.pm view on Meta::CPAN
}
if ( $in{'limit'} < 1 || $in{'limit'} > 2000 ) {
die("A query's limit cannot exceed 2000. 500 is default.");
}
my $limit = SOAP::Header->name(
'QueryOptions' => \SOAP::Header->name( 'batchSize' => $in{'limit'} ) )
->prefix($SF_PREFIX)->uri($SF_URI);
my $client = $self->_get_client();
my $r = $client->queryAll( SOAP::Data->name( 'queryString' => $in{'query'} ),
$limit, $self->_get_session_header() );
lib/WWW/Salesforce.pm view on Meta::CPAN
if ( !defined $in{'limit'} || $in{'limit'} !~ m/^\d+$/ );
if ( $in{'limit'} < 1 || $in{'limit'} > 2000 ) {
die("A query's limit cannot exceed 2000. 500 is default.");
}
my $limit = SOAP::Header->name(
'QueryOptions' => \SOAP::Header->name( 'batchSize' => $in{'limit'} ) )
->prefix($SF_PREFIX)->uri($SF_URI);
my $client = $self->_get_client();
my $r = $client->queryMore(
SOAP::Data->name( 'queryLocator' => $in{'queryLocator'} ),
$limit, $self->_get_session_header() );
lib/WWW/Salesforce.pm view on Meta::CPAN
return $client;
}
sub _get_session_header {
my ($self) = @_;
return SOAP::Header->name('SessionHeader' =>
\SOAP::Header->name('sessionId' => $self->{'sf_sid'}))
->uri($SF_URI)->prefix($SF_PREFIX);
}
sub _get_session_header_meta {
my ($self) = @_;
return SOAP::Header->name( 'SessionHeader' =>
\SOAP::Header->name( 'sessionId' => $self->{'sf_sid'} ) )
->uri($SF_URIM)->prefix($SF_PREFIX);
}
1;
WebService-Eulerian-Analytics
view release on metacpan or search on metacpan
lib/WebService/Eulerian/Analytics.pm view on Meta::CPAN
# reset fault methods
$self->_faultclear();
# build soap header with auth
my @a_header = (
SOAP::Header->name("apikey")->value($self->{_APIKEY} )->type('')
);
# send SOAP request to API host
my $soap = SOAP::Lite->proxy(
$self->_endpoint($self->{_HOST}, $self->{_VERSION}).'/'.$self->{_SERVICE},
WebService-Mappoint
view release on metacpan or search on metacpan
Mappoint.pm view on Meta::CPAN
}
my @header = ();;
if ($self->{CustomerInfoHeader}) {
push(@header,
SOAP::Header->name('CustomerInfoHeader' => \SOAP::Header->value(
@{handle_header_parameters(%{$self->{CustomerInfoHeader}})}
))->attr({xmlns => $ini_files->{$self->{ini_file}}{xmlns}})
);
}
if ($self->{UserInfoHeader}) {
my @param;
push(@header,
SOAP::Header->name('UserInfoHeader' => \SOAP::Header->value(
@{handle_header_parameters(%{$self->{UserInfoHeader}})}
))->attr({xmlns => $ini_files->{$self->{ini_file}}{xmlns}})
);
}
Mappoint.pm view on Meta::CPAN
sub handle_header_parameters {
my (%args) = @_;
my @parameters;
foreach my $k (keys %args) {
if (ref($args{$k}) eq 'HASH') {
push(@parameters, SOAP::Header->name($k => \SOAP::Header->value(
@{handle_header_parameters(%{$args{$k}})}
)));
}
else {
push(@parameters, SOAP::Header->name($k => encode($args{$k})));
}
}
return \@parameters;
}
##############################################################################
WebService-NetSuite
view release on metacpan or search on metacpan
lib/WebService/NetSuite.pm view on Meta::CPAN
}
$self->soap->on_action( sub { return 'search'; } );
my $som = $self->soap->search(
$self->_passport,
SOAP::Header->name(
'searchPreferences' => \SOAP::Header->value(
SOAP::Header->name('bodyFieldsOnly')
->value( $header->{bodyFieldsOnly} )->prefix(namespace('messages')),
SOAP::Header->name('pageSize')->value( $header->{pageSize} )
->prefix(namespace('messages')),
)
)->prefix(namespace('messages')),
SOAP::Data->name(
'searchRecord' => \SOAP::Data->value(@searchRecord)
lib/WebService/NetSuite.pm view on Meta::CPAN
}
sub _passport {
my $self = shift;
return SOAP::Header->name(
'passport' => \SOAP::Data->value(
SOAP::Data->name( 'email' => $self->nsemail ),
SOAP::Data->name( 'password' => $self->nspassword ),
SOAP::Data->name( 'account' => $self->nsaccount ),
SOAP::Data->name('role')->attr( { 'internalId' => $self->nsrole } )
WebService-TicketAuth
view release on metacpan or search on metacpan
examples/basic/auth_client.pl view on Meta::CPAN
-> result;
my $credentials = retrieve($opt_authfile);
# Convert into the Header
my $authInfo = SOAP::Header->name(authInfo => $credentials);
print "Header: ", Dumper($authInfo), "\n";
# Call your custom authenticated routines...
my $result = $soap->protected($service, $authInfo, 'foobar');
Yahoo-Marketing
view release on metacpan or search on metacpan
lib/Yahoo/Marketing/Service.pm view on Meta::CPAN
confess "must set username and password"
unless defined $self->username and defined $self->password;
return ( $self->_login_headers,
SOAP::Header->name('license')
->value( $self->license )
->uri( $self->uri )
->prefix('')
,
( $self->_add_master_account_to_header and not $args{ no_master_account } )
? SOAP::Header->name('masterAccountID')
->type('string')
->value( $self->master_account )
->uri( $self->uri )
->prefix('')
: ()
,
( $self->_add_account_to_header and not $args{ no_account } )
? SOAP::Header->name('accountID')
->type('string')
->value( $self->account )
->uri( $self->uri )
->prefix('')
: ()
,
$self->on_behalf_of_username
? SOAP::Header->name('onBehalfOfUsername')
->type('string')
->value( $self->on_behalf_of_username )
->uri( $self->uri )
->prefix('')
: ()
,
$self->on_behalf_of_password
? SOAP::Header->name('onBehalfOfPassword')
->type('string')
->value( $self->on_behalf_of_password )
->uri( $self->uri )
->prefix('')
: ()
lib/Yahoo/Marketing/Service.pm view on Meta::CPAN
sub _login_headers {
my ( $self ) = @_;
return $self->use_wsse_security_headers
? ( SOAP::Header->name( 'Security' )
->value(
\SOAP::Header->name( 'UsernameToken' )
->value( [ SOAP::Header->name('Username')
->value( $self->username )
->prefix('wsse')
,
SOAP::Header->name('Password')
->value( $self->password )
->prefix('wsse')
,
]
)
lib/Yahoo/Marketing/Service.pm view on Meta::CPAN
->prefix( 'wsse' )
->uri( 'http://schemas.xmlsoap.org/ws/2002/04/secext' )
,
)
: (
SOAP::Header->name('username')
->value( $self->username )
->uri( $self->uri )
->prefix('')
,
SOAP::Header->name('password')
->value( $self->password )
->uri( $self->uri )
->prefix('')
,
);
lsid-perl
view release on metacpan or search on metacpan
lib/LS/HTTP/Service.pm view on Meta::CPAN
if ($response->expires) {
push(
@ret, undef
#SOAP::Header->name(expires => $response->expires)
#->prefix($METHOD_PREFIX)
#->uri($URI)
);
}
}
lib/LS/HTTP/Service.pm view on Meta::CPAN
my @ret;
if (ref $response eq 'LS::HTTP::Response') {
if ($response->expires) {
push(
@ret, undef
#SOAP::Header->name(expires => $response->expires)
#->prefix($METHOD_PREFIX)
#->uri($URI)
);
}
}
vsoapd
view release on metacpan or search on metacpan
sbin/vsoapc view on Meta::CPAN
if ($debug) {
print "SOAP params: ";
use Data::Dumper; print Dumper \@params;
}
# Do action
my $soap_auth = SOAP::Header->name("authinfo", $authinfo);
#my $soap_auth = SOAP::Data->name("authinfo", $authinfo);
my $call = #$soap
SOAP::Lite->uri($uri)->proxy($proxy)
-> call("$keyword\_$action", $soap_auth, @params);
sbin/vsoapc view on Meta::CPAN
my $keyword = shift;
if (not $keyword) {
my @keywords = #$soap
SOAP::Lite->uri($uri)->proxy($proxy)
-> call ('get_keywords', SOAP::Header->new(authinfo => $authinfo))
-> valueof('//keywords');
if ($debug) {
print "Keywords: ";
use Data::Dumper; print Dumper \@keywords;
sbin/vsoapc view on Meta::CPAN
}
my @actions = #$soap
#SOAP::Lite->service($service)
SOAP::Lite->uri($uri)->proxy($proxy)
-> call ('get_actions', SOAP::Header->name(authinfo => $authinfo),
SOAP::Data->name('keyword' => $keyword))
-> valueof('//actions');
if ($debug) {
print '@actions: ';
use Data::Dumper; print Dumper \@actions;
sbin/vsoapc view on Meta::CPAN
foreach my $action (@actions) {
my $descr = $action->{description} || 'No description';
printf ("%8s - %s\n", $action->{action}, $descr);
my @options = #$soap
SOAP::Lite->uri($uri)->proxy($proxy)
-> call ('get_options', SOAP::Header->new(authinfo => $authinfo),
SOAP::Data->name('keyword' => $keyword),
SOAP::Data->name('action' => $action->{action}))
-> valueof('//options');
foreach my $option (@options) {
next if $option eq '';
sbin/vsoapc view on Meta::CPAN
$log->log(LOG_DEBUG, "Creating options for $keyword | $action");
my @options = #$soap
SOAP::Lite->uri($uri)->proxy($proxy)
-> get_options (SOAP::Header->name('authinfo' => $authinfo),
SOAP::Data->name('keyword' => $keyword),
SOAP::Data->name('action' => $action)
)
-> valueof('//options');
( run in 0.435 second using v1.01-cache-2.11-cpan-454fe037f31 )