view release on metacpan or search on metacpan
lib/Bio/EnsEMBL/Utils/URI.pm view on Meta::CPAN
=cut
sub generate_uri {
my ($self) = @_;
my $scheme = sprintf('%s://', ($URI_ESCAPE) ? uri_escape($self->scheme()) : $self->scheme());
my $user_credentials = q{};
my $host_credentials = q{};
my $location = q{};
if($self->user() || $self->pass()) {
my $user = $self->user();
my $pass = $self->pass();
if($URI_ESCAPE) {
$user = uri_escape($user) if $user;
$pass = uri_escape($pass) if $pass;
}
$user_credentials = sprintf('%s%s@',
( $user ? $user : q{} ),
( $pass ? q{:}.$pass : q{} )
);
}
lib/Bio/EnsEMBL/Utils/URI.pm view on Meta::CPAN
my $port = $self->port();
if($URI_ESCAPE) {
$host = uri_escape($host) if $host;
$port = uri_escape($port) if $port;
}
$host_credentials = sprintf('%s%s',
( $host ? $host : q{} ),
( $port ? q{:}.$port : q{} )
);
}
lib/Bio/EnsEMBL/Utils/URI.pm view on Meta::CPAN
}
}
$param_string .= join(q{;}, @params);
}
return join(q{}, $scheme, $user_credentials, $host_credentials, $location, $param_string);
}
1;
view release on metacpan or search on metacpan
lib/Bio/Phylo/CIPRES.pm view on Meta::CPAN
my $cipres = Bio::Phylo::CIPRES->new(
'infile' => 'infile.fasta', # input data file
'tool' => 'MAFFT_XSEDE', # tool to run
'param' => { 'vparam.runtime_' => 7.5 }, # extra parameters, e.g. max runtime
'outfile' => { 'output.mafft' => 'out.fa' }, # name of output data to fetch
'yml' => 'config.yml', # client credentials
);
my $url = $cipres->run;
$cipres->clean_job( $url );
lib/Bio/Phylo/CIPRES.pm view on Meta::CPAN
my $user = $self->user;
my $pass = $self->pass;
my $ua = LWP::UserAgent->new;
DEBUG "Instantiating UserAgent $host:$PORT / $REALM / $user:****";
$ua->ssl_opts( 'verify_hostname' => 0 );
$ua->credentials(
$host . ':' . $PORT,
$REALM,
$user => $pass
);
return $ua;
view release on metacpan or search on metacpan
Bio/DB/GenericWebAgent.pm view on Meta::CPAN
=head2 authentication
Title : authentication
Usage : $db->authentication($user,$pass)
Function: Get/Set authentication credentials
Returns : Array of user/pass
Args : Array or user/pass
=cut
view release on metacpan or search on metacpan
lib/Blitz.pm view on Meta::CPAN
sub new {
my $name = shift;
my $this = shift || {};
my $self = {
_authenticated => 0,
credentials => {
username => $this->{username},
api_key => $this->{api_key},
host => $this->{host} || 'blitz.io',
port => $this->{port} || 80,
}
lib/Blitz.pm view on Meta::CPAN
bless $self;
return $self;
}
sub _get_set_credentials {
my $self = shift;
my $field = shift;
my $value = shift;
if ($value) {
$self->{credentials}{$field} = $value;
}
return $self->{credentials}{$field};
}
=head2 username
# Get the currently configured username
lib/Blitz.pm view on Meta::CPAN
=cut
sub username {
my $self = shift;
return _get_set_credentials($self, 'username', @_);
}
=head2 api_key
# Get the currently configured api_key
lib/Blitz.pm view on Meta::CPAN
=cut
sub api_key {
my $self = shift;
return _get_set_credentials($self, 'api_key', @_);
}
=head2 host
lib/Blitz.pm view on Meta::CPAN
=cut
sub host {
my $self = shift;
return _get_set_credentials($self, 'host', @_);
}
=head2 port
# Get the currently configured port
lib/Blitz.pm view on Meta::CPAN
=cut
sub port {
my $self = shift;
return _get_set_credentials($self, 'port', @_);
}
=head2 authenticated
Have we been authenticated?
lib/Blitz.pm view on Meta::CPAN
=cut
sub get_client {
my $self = shift;
if (! $self->{client}) {
my $client = Blitz::API->client($self->{credentials});
$self->{client} = $client;
}
return $self->{client};
}
lib/Blitz.pm view on Meta::CPAN
sub {
my $self = shift;
my $result = shift;
if ($result->{ok}) {
$self->{_authenticated} = 1;
$self->{credentials}{api_key} = $result->{api_key};
my $exercise = $obj->new(
$self,
$options,
$callback
);
view release on metacpan or search on metacpan
t/sysinfos/ProxySG-4006060000--20090307-165730UTC.sysinfo view on Meta::CPAN
(summary)
)
)
(exception.authentication_failed
(contact)
(details "Your credentials could not be authenticated: $(quot)$(sc-auth-status)$(quot). You will not be permitted access until your credentials can be verified.")
(format)
(help "This is typically caused by an incorrect username and/or password, but could also be caused by network problems.")
(summary "Access Denied")
(http
(code "401")
t/sysinfos/ProxySG-4006060000--20090307-165730UTC.sysinfo view on Meta::CPAN
(format)
(help)
(summary)
)
)
(exception.bad_credentials
(summary "Invalid username/password")
(details <<--18cb837b.2f0aa--
<p>Your username or password were sent using an invalid/unrecognized format.</p>
<p><i>Please close your browser window.</i></p>
<p>Then, either contact technical support,
view release on metacpan or search on metacpan
lib/BmltClient/RootServerApi.pm view on Meta::CPAN
#
# auth_token
#
# Creates a token
#
# @param TokenCredentials $token_credentials User credentials (required)
{
my $params = {
'token_credentials' => {
data_type => 'TokenCredentials',
description => 'User credentials',
required => '1',
},
};
__PACKAGE__->method_documentation->{ 'auth_token' } = {
summary => 'Creates a token',
lib/BmltClient/RootServerApi.pm view on Meta::CPAN
# @return Token
#
sub auth_token {
my ($self, %args) = @_;
# verify the required parameter 'token_credentials' is set
unless (exists $args{'token_credentials'}) {
croak("Missing the required parameter 'token_credentials' when calling auth_token");
}
# parse inputs
my $_resource_path = '/api/v1/auth/token';
lib/BmltClient/RootServerApi.pm view on Meta::CPAN
}
$header_params->{'Content-Type'} = $self->{api_client}->select_header_content_type('application/json');
my $_body_data;
# body params
if ( exists $args{'token_credentials'}) {
$_body_data = $args{'token_credentials'};
}
# authentication setting, if any
my $auth_settings = [qw()];
view release on metacpan or search on metacpan
lib/Bosch/RCPPlus.pm view on Meta::CPAN
if ($r->code eq 401) {
my $authenticate = $r->header('www-authenticate');
if ($authenticate and $authenticate =~ /realm="([^"]+)"/i) {
my $realm = $1;
$proto->{ua}->credentials($proto->{host}, $realm, $proto->{username}, $proto->{password});
$r = $proto->request(query => \%args);
return new Bosch::RCPPlus::AuthError($r->content) if ($r->code eq 401);
} else {
return new Bosch::RCPPlus::AuthError($r->content);
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/Nagios.pm view on Meta::CPAN
A module for IRC bots powered by L<Bot::BasicBot::Pluggable> to monitor a Nagios
install and report alerts to IRC.
Multiple Nagios instances are supported; these could be separate Nagios systems,
or just the same Nagios install but using different credentials. As each
configured instance can have specific target channels defined, this means you
could have the bot check with the username "development" and report all visible
problems to the C<#development> channel, then check again with the "sysad"
username and report problems visible to that user to the C<#sysads> channel.
view release on metacpan or search on metacpan
lib/Bot/BasicBot/Pluggable/Module/TwitterFriendsStatus.pm view on Meta::CPAN
CREDENTIALS => {
'netloc' => 'twitter.com:80',
'realm' => 'Twitter API',
},
URL => {
'verify_credentials' => 'http://twitter.com/account/verify_credentials.xml',
'friends_status' => 'http://twitter.com/statuses/friends_timeline.xml',
'friend_add' => [ 'http://twitter.com/friendships/create/', '.xml' ],
'friend_remove' => [ 'http://twitter.com/friendships/destroy/', '.xml' ],
},
TICK_INTERVAL => 60,
lib/Bot/BasicBot/Pluggable/Module/TwitterFriendsStatus.pm view on Meta::CPAN
my ( $username, $password ) = ( $self->get('username'), $self->get('password') );
if ( $username and $password ) {
print "Twitter authentication previously successful. Using auth for $username\n";
$ua->credentials(
CREDENTIALS->{'netloc'},
CREDENTIALS->{'realm'},
$username,
$password,
);
lib/Bot/BasicBot/Pluggable/Module/TwitterFriendsStatus.pm view on Meta::CPAN
sub said {
my ( $self, $message, $priority ) = @_;
return unless ( $priority == 2 );
if (my($user,$pass) = $message->{'body'} =~ /^\s*!\s*twitter\s*auth\s*(\S+)\s+(\S+)/ ) {
$ua->credentials( CREDENTIALS->{'netloc'}, CREDENTIALS->{'realm'}, $user, $pass );
my $response = $ua->get( URL->{'verify_credentials'} );
my $credentials = XMLin($response->content());
use Data::Dumper;
warn Dumper($credentials);
if ( $credentials->{name} eq $user) {
$self->reply(
$message,
"You have properly authenticated to Twitter as $user\n" .
"This authentication will be saved in the bot memory storage.\n" .
"$user has $credentials->{followers_count} followers and" .
"follows $credentials->{friends_count} users.\n"
);
$self->set( 'username' => $1 );
$self->set( 'password' => $2 );
}
else {
view release on metacpan or search on metacpan
For CPAN upload, you'll need:
- A PAUSE account (https://pause.perl.org/)
- CPAN::Uploader installed (`cpanm CPAN::Uploader`)
- PAUSE credentials in `~/.pause`
## Contributing
1. Fork the repository
2. Create a feature branch
view release on metacpan or search on metacpan
lib/Broadworks/OCIP/Deprecated.pod view on Meta::CPAN
=head2 Deprecated17
=head3 DeviceManagementFileAuthLocationGetRequest17
Get the address and credentials of the File Repository hosting the requested
access device file. Also get the file name and path on the File Repository.
The response is either a C<DeviceManagementFileAuthLocationGetResponse17> or an
C<ErrorResponse>. Replaced by: C<DeviceManagementFileAuthLocationGetRequest18>
view release on metacpan or search on metacpan
lib/Bubblegum/Prototype.pm view on Meta::CPAN
The mixin method, using the role key, modifies the subject using role
composition. Please note that applying a role will not overwrite existing
methods. If you desire to overwrite existing methods, please extend the object,
then apply the roles desired.
# add credentials and request methods dynamically
$film_search->proto->mixin(role => 'authorization');
$film_search->proto->mixin(role => 'advanced_search');
One of the very cool and interesting practices that this style of programming
encourages is modifying class definitions at runtime. This is achieved using
view release on metacpan or search on metacpan
lib/Buffalo/G54.pm view on Meta::CPAN
$self->{agent} = WWW::Mechanize::Retry->new(
map { $_ => $self->{$_} } qw(nof_retries sleep_between_retries)
);
DEBUG "Setting credentials for $self->{ip}:80 $self->{user} $self->{realm}";
$self->{agent}->credentials(
"$self->{ip}:80",
$self->{realm},
$self->{user},
$self->{password}
);
view release on metacpan or search on metacpan
t/test1.xml view on Meta::CPAN
<host>http://192.168.163.128</host>
<path><![CDATA[/]]></path>
<location><![CDATA[/]]></location>
<severity>Information</severity>
<confidence>Certain</confidence>
<issueBackground><![CDATA[The TRACE method is designed for diagnostic purposes. If enabled, the web server will respond to requests which use the TRACE method by echoing in its response the exact request which was recieved.<br><br>Although this b...
<remediationBackground><![CDATA[The TRACE method should be disabled on the web server.]]></remediationBackground>
<requestresponse>
<request><![CDATA[TRACE / HTTP/1.0
Host: 192.168.163.128
Cookie: 5f14521172325ac3
view release on metacpan or search on metacpan
lib/Business/AU/Ledger.pm view on Meta::CPAN
Installing the module will have installed the version of .htledger.conf as shipped within the distro.
If you edit your local copy of .htledger.conf, you must use your edited copy to overwrite the version installed
automatically.
Specifically, the database credentials in this file will need to be edited, since several programs use them
to connect to the database.
=item Install the CGI script ledger.cgi
Copy cgi-bin/ledger.cgi into your web server's cgi-bin directory, and mark it as executable.
view release on metacpan or search on metacpan
lib/Business/CPI/Gateway/MercadoPago.pm view on Meta::CPAN
'Content-Type' => 'application/x-www-form-urlencoded' );
my $r = $ua->post(
$auth_url,
{
grant_type => 'client_credentials',
client_id => $self->receiver_email,
client_secret => $self->token
}
);
die "Couldn't connect to '$auth_url': " . $r->status_line
view release on metacpan or search on metacpan
lib/Business/CyberSource/Exception/SOAPFault.pm view on Meta::CPAN
version 0.010008
=head1 DESCRIPTION
This usually means a credentials problem or something is wrong on
CyberSource's end
=head1 ATTRIBUTES
=head2 faultstring
view release on metacpan or search on metacpan
lib/Business/EDI/CodeList/KeyManagementFunctionQualifier.pm view on Meta::CPAN
'101' => [ 'Registration submission',
'Submission of information for registration.' ],
'102' => [ 'Asymmetric key pair request',
'Request a trusted party to generate an asymmetric key pair.' ],
'110' => [ 'Certification request',
'Request certification of credentials and public key.' ],
'111' => [ 'Certificate renewal request',
'Request to extend the validity period of the current valid key, whose certificate is about to expire.' ],
'112' => [ 'Certificate replacement request',
'Request to replace the current certificate by a new one with a different public key (and possibly other information).' ],
'121' => [ 'Certificate (path) retrieval request',
view release on metacpan or search on metacpan
lib/Business/Fixflo.pm view on Meta::CPAN
=head1 EXAMPLES
See the t/002_end_to_end.t test included with this distribution. you can run
this test against the fixflo test server (requires ENV variables to set the
Fixflo credentials)
=head1 SEE ALSO
L<Business::Fixflo::Address>
view release on metacpan or search on metacpan
lib/Business/GoCardless/Client.pm view on Meta::CPAN
my $data = {
resource_id => $params->{resource_id},
resource_type => $params->{resource_type},
};
my $credentials = encode_base64( $self->app_id . ':' . $self->app_secret );
$credentials =~ s/\s//g;
my $ua = LWP::UserAgent->new;
$ua->agent( $self->user_agent );
my $req = HTTP::Request->new(
POST => join( '/',$self->base_url . $self->api_path,'confirm' )
);
$req->header( 'Authorization' => "Basic $credentials" );
$req->header( 'Accept' => 'application/json' );
$req->content_type( 'application/x-www-form-urlencoded' );
$req->content( $self->normalize_params( $data ) );
view release on metacpan or search on metacpan
t/business/mondo.t view on Meta::CPAN
);
isa_ok( $Mondo->client,'Business::Mondo::Client' );
# monkey patching Mojo::UserAgent here to make this test work without
# having to actually hit the endpoints or use credentials
no warnings 'redefine';
no warnings 'once';
my $mock = Test::MockObject->new;
$mock->mock( 'success',sub { 1 } );
$mock->mock( 'headers',sub { $mock } );
view release on metacpan or search on metacpan
t/business/monzo.t view on Meta::CPAN
);
isa_ok( $Monzo->client,'Business::Monzo::Client' );
# monkey patching Mojo::UserAgent here to make this test work without
# having to actually hit the endpoints or use credentials
no warnings 'redefine';
no warnings 'once';
my $mock = Test::MockObject->new;
$mock->mock( 'success',sub { 1 } );
$mock->mock( 'headers',sub { $mock } );
view release on metacpan or search on metacpan
t/auth-capture.t view on Meta::CPAN
my $username = $ENV{PERL_CARDCONNECT_USERNAME};
my $password = $ENV{PERL_CARDCONNECT_PASSWORD};
my $mid = $ENV{PERL_CARDCONNECT_MID};
plan skip_all => 'No credentials set in the environment.'
. ' Set PERL_CARDCONNECT_MID, PERL_CARDCONNECT_USERNAME and '
. 'PERL_CARDCONNECT_PASSWORD to run this test.'
unless ( $username && $password && $mid );
my $client = new_ok( use_module('Business::OnlinePayment'), ['CardConnect'] );
view release on metacpan or search on metacpan
t/authorization-only.t view on Meta::CPAN
use Module::Runtime qw( use_module );
my $username = $ENV{PERL_BUSINESS_CYBERSOURCE_USERNAME};
my $password = $ENV{PERL_BUSINESS_CYBERSOURCE_PASSWORD};
plan skip_all => 'No credentials set in the environment.'
. ' Set PERL_BUSINESS_CYBERSOURCE_USERNAME and '
. 'PERL_BUSINESS_CYBERSOURCE_PASSWORD to run this test.'
unless ( $username && $password );
my $client = new_ok( use_module('Business::OnlinePayment'), ['CyberSource'] );
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/DLocal.pm view on Meta::CPAN
url => 'https://'.$self->server.'/api_curl/query/paystatus',
control => [], # not used
post_data => ['x_login','x_trans_key','x_version','x_invoice','x_document','type'],
};
# query api uses different credentials
local $content->{'login'} = $content->{'reports_login'};
local $content->{'password'} = $content->{'reports_key'};
my $res = $self->_send_request($config,$content);
$self->error_message( $res->{'desc'} );
lib/Business/OnlinePayment/DLocal.pm view on Meta::CPAN
url => 'https://'.$self->server.'/api_curl/query/refundstatus',
control => [], # not used
post_data => ['x_login','x_trans_key','x_version','x_refund','type'],
};
# query api uses different credentials
local $content->{'login'} = $content->{'reports_login'};
local $content->{'password'} = $content->{'reports_key'};
my $res = $self->_send_request($config,$content);
$self->error_message( $res->{'desc'} );
lib/Business/OnlinePayment/DLocal.pm view on Meta::CPAN
url => 'https://'.$self->server.'/api_curl/query/currencyexchange',
control => [], # not used
post_data => ['x_login','x_trans_key','x_country','type'],
};
# query api uses different credentials
local $content->{'login'} = $content->{'reports_login'};
local $content->{'password'} = $content->{'reports_key'};
my $res = $self->_send_request($config,$content);
if ($res =~ /^\d+(:?\.\d+)$/ && $res > 0 ) {
view release on metacpan or search on metacpan
ElavonVirtualMerchant.pm view on Meta::CPAN
=head1 DESCRIPTION
This module lets you use the Elavon (formerly Nova Information Systems) Virtual Merchant real-time payment gateway, a successor to viaKlix, from an application that uses the Business::OnlinePayment interface.
You need an account with Elavon. Elavon uses a three-part set of credentials to allow you to configure multiple 'virtual terminals'. Since Business::OnlinePayment only passes a login and password with each transaction, you must pass the third item,...
Elavon offers a number of transaction types, including electronic gift card operations and 'PINless debit'. Of these, only credit card transactions fit the Business::OnlinePayment model.
Since the Virtual Merchant API is just a newer version of the viaKlix API, this module subclasses Business::OnlinePayment::viaKlix.
view release on metacpan or search on metacpan
t/transaction.t view on Meta::CPAN
use Business::OnlinePayment;
my $login = $ENV{BOP_TEST_LOGIN};
my $password = $ENV{BOP_TEST_PASSWORD};
if (!$login) {
plan skip_all => "no test credentials provided; set BOP_TEST_LOGIN and BOP_TEST_PASSWORD to test communication with the gateway.",
1;
exit(0);
}
plan tests => 2;
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/IPayment/Response.pm view on Meta::CPAN
=head1 SYNOPSIS
# where %params are the GET parameters
$ipayres = Business::OnlinePayment::IPayment::Response->new(%params);
$ipayres->set_credentials(
my_amount => "5000",
my_currency => "EUR",
my_userid => "99999",
my_security_key => "testtest",
);
lib/Business/OnlinePayment/IPayment/Response.pm view on Meta::CPAN
=head2 METHODS
=head3 set_credentials(%hash)
As a shortcut, you can set the above attribute using this method
=cut
sub set_credentials {
my ($self, %args) = @_;
if (defined $args{my_userid}) {
$self->my_userid($args{my_userid});
}
if (defined $args{my_security_key}) {
view release on metacpan or search on metacpan
t/tokenize.t view on Meta::CPAN
$tx->content(%content);
my $ret = $tx->submit;
$token_result = $tx->result_code;
skip "contact litle support to enable tokens",4 if defined $token_result && $token_result == 821;
like( $tx->result_code, qr/^(000|802)$/, "result_code(): ".($tx->result_code||'').' - '.($tx->error_message||'') );
skip "transaction did not process (check litle credentials)",3 if ! defined $tx->result_code && $tx->error_message =~ /System Error/;
like( $tx->order_number, qr/^\w{5,19}/, "order_number(): ".($tx->order_number||'') );
is( $tx->is_success, 1, "is_success: 1" );
like( $tx->card_token, qr/^\w{5,19}/, "card_token(): ".($tx->card_token||'') );
}
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/Ogone.pm view on Meta::CPAN
$self->{_content}->{currency} ||= 'EUR';
# Table to translate from Business::OnlinePayment::Ogone args to Ogone API args
# The values of this hash are also used as a list of allowed args for the HTTP POST request, thus preventing information leakage
my %ogone_api_args = (
# credentials
login => 'USERID',
password => 'PSWD',
PSPID => 'PSPID',
# primary identifier
lib/Business/OnlinePayment/Ogone.pm view on Meta::CPAN
# Call is_success() with either a true or false value, indicating if the transaction was successful or not.
if ( $response_code =~ m/^200/ ) {
$self->is_success(0); # defaults to fail
# croak 'incorrect credentials. WARNING: continuing with bad credentials will block your account s: '.$xml->{STATUS}.'{}'.$xml->{NCERROR} if $xml->{NCERROR} eq '50001119';
if ( $xml->{STATUS} == 46 ) { $self->is_success(1) } # identification required
if ( $xml->{STATUS} == 5 ) { $self->is_success(1) } # authorization accepted
if ( $xml->{STATUS} == 9 ) { $self->is_success(1) } # payment accepted
if ( $xml->{STATUS} == 91 ) { $self->is_success(1) } # partial payment accepted
lib/Business/OnlinePayment/Ogone.pm view on Meta::CPAN
payment processor will act on them in different ways, you can consider it a sort of dispatch table. The main actors are
C<action>, C<alias>, C<win3ds>.
=head3 content() internal parameter mappings
# credentials
login => 'USERID',
password => 'PSWD',
PSPID => 'PSPID',
# primary identifier
lib/Business/OnlinePayment/Ogone.pm view on Meta::CPAN
=back
=head1 TESTING
To test this module you will need to set your credentials in the environment. Put the following in a file in your hoe directory e.g. F<~/.ogone>
The password is not the same as the PSPID password, you will need to enter the API users' password.
export OGONE_PSPID=bob
export OGONE_USERID=bob_api
export OGONE_PSWD=foobar