view release on metacpan or search on metacpan
lib/Document/eSign/Docusign/buildCredentials.pm view on Meta::CPAN
use strict;
use warnings;
use XML::LibXML;
use JSON;
# Builds the auth credentials.
=head1 NAME
Document::eSign::Docusign::buildCredentials - Builds the credentials object.
=head1 VERSION
Version 0.02
view release on metacpan or search on metacpan
lib/Dokuwiki/RPC/XML/Client.pm view on Meta::CPAN
my $wiki =
Dokuwiki::RPC::XML::Client
-> reach('https://wiki.example.com/');
my $credentials = Net::Netrc->lookup($host)
or die "please add a fake $host machine in your ~/.netrc";
my ( $l, $p ) = $credentials->lpa;
$wiki->login( $l, $p )->value
or die "can't authenticate with $l";
say $wiki->getVersion->value;
view release on metacpan or search on metacpan
lib/Domain/Register/DomainShare.pm view on Meta::CPAN
=head1 SUBROUTINES/METHODS
An object of this class represents a potential dialogue with Dot TK's servers,
and as such needs correct log in credentials to do anything useful.
Standard usage is to create an object and perform an arbitrary number of
transactions with the remote server. There is a ping transaction which does not
require parameters, that should be used to test if a connection is still possible.
No state is saved by the remote server between transactions, so it is not
necessary to log on or log off separately, as long as valid credentials are
supplied.
A full list of available functions is available via the technical documentation
available via http://domainshare.tk.
view release on metacpan or search on metacpan
examples/basic.pl view on Meta::CPAN
print "Ping was successful.\n";
# Tell the object about your identity with the Dot TK servers.
# Note:if you want this to actually run, you need to change these values.
$api->credentials('email@tk_reseller.com', 'reseller_passsword');
my @domains_to_check = qw{ DOT.TK TESTDOMAIN-0001.TK DONALD-DUCK.TK};
foreach my $domain (@domains_to_check) {
# check if the domain is available, with prices for 3 years
view release on metacpan or search on metacpan
Open an association to the DSA specified in dsa and
running on the port specified by port. If no port is
specified, then duaperl will use the default port
number. duaperl will bind to the DSA as dn, using the
credentials supplied in passwd. Currently, only simple
authentication is supported.
$dua->error()
This routine returns a description of the problem when an error
view release on metacpan or search on metacpan
my $ip = $dc->get_ip('eth0');
ok($ip);
SKIP: {
skip "No credentials provided", 1 unless $Username;
ok( $dc->update(
-username => $Username,
-password => $Password,
-hostname => $Host,
-domain => $Domain,
view release on metacpan or search on metacpan
docker/qpid-broker-python/pybroker.py view on Meta::CPAN
if self.truststore:
ssl_domain.set_trusted_ca_db(self.truststore)
# server certificate
if self.sslkey:
ssl_domain.set_credentials(self.sslcert, self.sslkey, self.sslpass)
self.acceptor = event.container.listen(url=self.url, ssl_domain=ssl_domain)
def _queue(self, address):
if address not in self.queues:
view release on metacpan or search on metacpan
t/dracula.DOS.txt view on Meta::CPAN
sunrise and sunset. For then he can make no struggle, and we may deal
with him as we should. There are days for us, in which we can make
ready our plan. We know all about where he go. For we have seen the
owner of the ship, who have shown us invoices and all papers that can
be. The box we seek is to be landed in Varna, and to be given to an
agent, one Ristics who will there present his credentials. And so our
merchant friend will have done his part. When he ask if there be any
wrong, for that so, he can telegraph and have inquiry made at Varna,
we say 'no,' for what is to be done is not for police or of the
customs. It must be done by us alone and in our own way."
view release on metacpan or search on metacpan
eg/auth_proxy.pl view on Meta::CPAN
#!/usr/bin/env perl
# HTTP basic auth behind a reverse proxy. Many gateway setups
# (nginx, Envoy, k8s ingress) strip the proprietary X-ClickHouse-User
# and X-ClickHouse-Key headers but forward Authorization verbatim.
# Pass http_basic_auth => 1 to send credentials as
# `Authorization: Basic base64(user:password)` instead.
#
# Pair with `auth_request` / `proxy_pass` in nginx, JWT middleware
# in Envoy, etc. — the client side is the same regardless.
use strict;
view release on metacpan or search on metacpan
grpc_ssl_pem_key_cert_pair pair;
if (cert_pem) {
pair.private_key = SvPV_nolen(key_pem);
pair.cert_chain = SvPV_nolen(cert_pem);
}
client->creds = grpc_ssl_credentials_create(
ca_pem ? SvPV_nolen(ca_pem) : NULL, cert_pem ? &pair : NULL, NULL, NULL);
if (!client->creds) {
for (int j = 0; j < client->endpoint_count; j++) {
Safefree(client->endpoints[j]);
}
Safefree(client->endpoints);
Safefree(client);
grpc_release();
croak("EV::Etcd: failed to create TLS credentials");
}
if (key_pem)
memset(SvPVX(key_pem), 0, SvCUR(key_pem));
if (tls_server_name)
client->tls_server_name = savepv(tls_server_name);
if (!client->channel_ref) {
for (int j = 0; j < client->endpoint_count; j++) {
Safefree(client->endpoints[j]);
}
Safefree(client->endpoints);
if (client->creds) grpc_channel_credentials_release(client->creds);
Safefree(client->tls_server_name);
Safefree(client);
grpc_release();
croak("Failed to create gRPC channel");
}
etcd_channel_release(client->channel_ref, 1);
for (int j = 0; j < client->endpoint_count; j++) {
Safefree(client->endpoints[j]);
}
Safefree(client->endpoints);
if (client->creds) grpc_channel_credentials_release(client->creds);
Safefree(client->tls_server_name);
Safefree(client);
grpc_release();
croak("Failed to create gRPC completion queue thread");
}
etcd_channel_release(client->channel_ref, 1);
client->channel_ref = NULL;
client->channel = NULL;
if (client->creds) {
grpc_channel_credentials_release(client->creds);
client->creds = NULL;
}
if (!client->in_callback)
grpc_release();
view release on metacpan or search on metacpan
eg/tls_sasl.pl view on Meta::CPAN
#!/usr/bin/env perl
# TLS + SASL/SCRAM-SHA-256 example.
#
# Set KAFKA_BROKER to a TLS listener (e.g. host:9093). Provide the CA cert
# in KAFKA_TLS_CA, and credentials via KAFKA_USER and KAFKA_PASS. The
# client warns at construction if SASL is configured without TLS.
#
# Quick local test with Redpanda:
# docker run -e RP_BOOTSTRAP_USER=admin:secret123 \
# redpandadata/redpanda:latest start --kafka-addr=...
view release on metacpan or search on metacpan
lib/EV/MariaDB.pm view on Meta::CPAN
=head2 change_user
$m->change_user($user, $password, $db_or_undef, sub { my ($ok, $err) = @_ });
Changes the authenticated user and optionally the database. Pass
C<undef> for C<$db> to keep the current database. The new credentials
are cached for C<reset>; the cache is rolled back if the change fails.
B<Note:> The server discards all prepared statements as part of this
operation -- see L</reset_connection> for details.
lib/EV/MariaDB.pm view on Meta::CPAN
=head2 reset
$m->reset;
Disconnects and reconnects using the most recent credentials (as
updated by C<change_user>/C<select_db>/C<set_charset>). Cancels all
pending operations and invalidates every prepared statement handle.
Dies with C<"no previous connection to reset"> if C<connect> has never
been called. Aliased as C<reconnect>.
view release on metacpan or search on metacpan
eg/sasl_auth.pl view on Meta::CPAN
$| = 1;
# SASL PLAIN authentication example.
# Requires memcached started with: memcached -S -B binary
# And SASL credentials configured via saslpasswd2.
# Option 1: Auto-auth via constructor (recommended)
# Credentials are sent automatically on every connect/reconnect.
{
my $mc = EV::Memcached->new(
view release on metacpan or search on metacpan
eg/nkey_auth.pl view on Meta::CPAN
#!/usr/bin/env perl
# NKey / credentials file authentication example
use strict;
use warnings;
use EV;
use EV::Nats;
# Method 1: credentials file (contains JWT + NKey seed).
# Apply creds_file BEFORE connect, so JWT/NKey are available during the
# initial CONNECT handshake.
if (my $creds = $ENV{NATS_CREDS}) {
my $nats;
$nats = EV::Nats->new(
view release on metacpan or search on metacpan
eg/01-login.pl view on Meta::CPAN
# reuse it. The database directory (default ./tdlib-db) holds the session:
# it is exactly as sensitive as a password, so do not commit it, back it up,
# or leave it world-readable.
#
# Environment:
# TD_API_ID, TD_API_HASH application credentials from https://my.telegram.org
# TD_PHONE phone number in international format, e.g. +10000000000
# TD_DATABASE_DIRECTORY optional, default ./tdlib-db
#
# Run: perl eg/01-login.pl (add -Mblib to run from a built checkout)
view release on metacpan or search on metacpan
lib/EV/WebKit.pm view on Meta::CPAN
# HTTP (and proxy) authentication. WITHOUT this connected at all, a 401
# challenge is answered by nobody: WebKit waits, the navigation resolves
# 'timeout' after the full instance timeout, and status() is undef -- so the
# caller cannot even tell a 401 from an unreachable host. Cancelling by
# default turns that into an immediate, legible failure (the server's own
# 401 body, with status 401), and a handler can supply credentials instead.
$self->{on_authenticate} = $o{on_authenticate};
$view->signal_connect(authenticate => sub {
my (undef, $req) = @_;
local $IN_DISPATCH = 1; # runs nested in WebKit's dispatch frame -- see quit
my $self = $wself or return 0; # gone: let WebKit do its default
lib/EV/WebKit.pm view on Meta::CPAN
sub host { eval { $_[0]{r}->get_host } }
sub port { eval { $_[0]{r}->get_port } }
sub realm { eval { $_[0]{r}->get_realm } }
sub scheme { eval { $_[0]{r}->get_scheme } }
sub for_proxy { eval { $_[0]{r}->is_for_proxy } ? 1 : 0 }
# True when the credentials just supplied were rejected. A handler that
# ignores it and answers with the same pair again is a loop, since WebKit
# re-asks after every rejection.
sub is_retry { eval { $_[0]{r}->is_retry } ? 1 : 0 }
sub login {
lib/EV/WebKit.pm view on Meta::CPAN
True when the challenge came from a proxy rather than the origin server.
=item C<is_retry>
True when the credentials you last supplied were B<rejected>. WebKit re-asks
after every rejection, so a handler that answers with the same pair regardless
of this loops forever.
=item C<< login($user, $password, persist =E<gt> $how) >>
view release on metacpan or search on metacpan
lib/EWS/Client/Calendar.pm view on Meta::CPAN
=over 4
=item C<client> => C<EWS::Client> object (required)
An instance of C<EWS::Client> which has been configured with your server
location, user credentials and SOAP APIs. This will be stored as a weak
reference.
=back
=head2 QUERY AND RESULT SET
view release on metacpan or search on metacpan
lib/EZID.pm view on Meta::CPAN
my $content = encode("UTF-8", join("\n",
map { escape($_) . ": " . escape($metadata->{$_}) } keys %$metadata));
my $ua = LWP::UserAgent->new;
$ua->credentials("ezid.cdlib.org:443", "EZID", $self->{_username},
$self->{_password});
my $r = $ua->request(PUT "https://ezid.cdlib.org/id/$identifier",
'Content-Type' => "text/plain; charset=UTF-8",
'Content' => $content);
view release on metacpan or search on metacpan
lib/Egg/Plugin/Response/ErrorDocument.pm view on Meta::CPAN
<div>
%
% if ($s->{status_401}) {
%
This server could not verify that you are authorized to access the document requested.
Either you supplied the wrong credentials (e.g., bad password),
or your browser doesn't understand how to supply the credentials required.
%
% } elsif ($s->{status_403}) {
%
You don't have permission to access on this server.
%
view release on metacpan or search on metacpan
lib/Elive/Connection.pm view on Meta::CPAN
my $userinfo = $uri_obj->userinfo;
if ($userinfo) {
#
# extract and remove any credentials from the url
#
my ($uri_user, $uri_pass) = split(':',$userinfo, 2);
if ($uri_user) {
lib/Elive/Connection.pm view on Meta::CPAN
$uri_obj->path(File::Spec::Unix->catdir(@path));
my $soap_url = $uri_obj->as_string;
#
# remove any embedded credentials
#
$soap_url =~ s{\Q${userinfo}\E\@}{} if $userinfo;
my $self = {};
bless $self, $class;
view release on metacpan or search on metacpan
lib/Email/Folder/Exchange/EWS.pm view on Meta::CPAN
# build soap accessor
my $soap = SOAP::Lite->proxy(
$uri->as_string,
keep_alive => 1,
credentials => [
$uri->host . ':' . ( $uri->scheme eq 'https' ? '443' : '80' ),
# $uri->host,
'',
$username,
$password
view release on metacpan or search on metacpan
crazyforyou.co.uk
crazygirl.co.uk
crazysexycool.com
crazyvisionary.co.uk
creamcrackered.co.uk
credentials.co.uk
credit4u.com
creep.co.uk
creepycrawly.co.uk
cretin.co.uk
cricketmail.com
view release on metacpan or search on metacpan
);
my @missing = grep { !exists $ENV{$_} } @required_vars;
if (@missing) {
plan skip_all => 'Live test credentials missing',
}
my $api_key = $ENV{TEST_MAILGUN_API_KEY};
my $domain = $ENV{TEST_MAILGUN_DOMAIN};
view release on metacpan or search on metacpan
lib/Enterasys/NetSight.pm view on Meta::CPAN
return $call->result->{data};
}
sub getSnmp
{
# Returns a hash reference with SNMP credentials
# The format of this hash can be used to create a
# new SNMP::Session with the Net-SNMP module
my ($self, $args)=@_;
my (%snmp, %temp)=();
lib/Enterasys/NetSight.pm view on Meta::CPAN
return \%snmp;
}
sub getAuth
{
# Runs the 'exportDevices' method if $self->{devices} hash ref is undefined
# and uses that to parse Cli credentials for all other calls.
my ($self, $args)=@_;
if(!defined $args->{host})
{ carp("You must specify a host for getAuth method") && return undef }
if($args->{refresh})
lib/Enterasys/NetSight.pm view on Meta::CPAN
return \%creds;
}
sub exportDevices
{
# Gets credentials for all devices in NetSight as an NGF string and
# parses it into a hash table
my ($self)=@_;
my %table=();
my $call=$self->{soap}->exportDevicesAsNgf;
lib/Enterasys/NetSight.pm view on Meta::CPAN
}) or die $!;
This module provides wrapper methods for raw API method calls. These methods typically parse the response and return a perl friedly hash table.
You can make any raw API call through the SOAP::Lite object accessable with $netsight->{soap}.
For example the following would print a NetSight Generated Format string containing SNMP credentials,
print $netsight->{soap}->getSnmpCredentialAsNgf($ip)->result(),"\n";
However using the getSnmp wrapper method will parse the NGF string into a hash table,
lib/Enterasys/NetSight.pm view on Meta::CPAN
IP address or hostname of a target device.
=item level
Optional, defaults to highest privilage level available. Options are su, rw, ro (super user, read/write, read only). If specified privilage does not exist method returns undef. This parameter is ignored if the device has SNMP v3 credentials.
=back
=item getAuth()
Returns a hash table containing CLI credentials: host, user, and pass. Because there is no API call to get a single CLI cred, similar to getSnmpCredentialAsNgf, this method runs the "exportDevices" method once and keeps the device information in memo...
=over
=item host
lib/Enterasys/NetSight.pm view on Meta::CPAN
a WsDevice table containing device information. Returns undef on error.
=item exportDevices()
Returns a hash table with device IP address keys and a hash reference to a table containing both
SNMP and/or CLI credentials. This method parses the NetSight Generated Format (NGF) strings returned
from the 'exportDevicesAsNgf' API call. Returns undef on error.
=item addAuth()
Add telnet/SSH authentication credential. Returns undef on error or a NsWsResult object indicating success.
lib/Enterasys/NetSight.pm view on Meta::CPAN
Integer specifying SNMP version 1, 2, or 3.
=item read
SNMP read configuration credentials name as created by addSnmp.
=item write
SNMP write configuration credentials name as created by addSnmp.
=item maxAccess
Credentials configuration to use maximum access mode to the device. Name as created by addSnmp.
=item auth
Telnet/SSH authentication credentials used in this profile. Name as created by addAuth.
=back
=item addDevice()
lib/Enterasys/NetSight.pm view on Meta::CPAN
=back
=item updateAuth()
Update existing telnet/SSH credentials. Returns undef on error or a NsWsResult object indicating success.
=over
=item username
lib/Enterasys/NetSight.pm view on Meta::CPAN
=back
=item updateSnmp()
Update existing SNMP credentials. Returns undef on error or a NsWsResult object indicating success.
=over
=item name
lib/Enterasys/NetSight.pm view on Meta::CPAN
Name for the profile.
=item read
SNMP read configuration credentials name as created by addSnmp.
=item write
SNMP write configuration credentials name as created by addSnmp.
=item maxAccess
Credentials configuration to use maximum access mode to the device. Name as created by addSnmp.
=item authCredName
Telnet/SSH authentication credentials used in this profile. Name as created by addAuth.
=back
=item ipV6Enabled()
view release on metacpan or search on metacpan
lib/EntityModel.pm view on Meta::CPAN
=back
Aside from entities, models can also contain plugin-specific information
such as site definition or database schema. It is also possible - but not
recommended - to store credentials such as database user and password.
Once a model definition has been loaded, it can be applied to one or more of the following:
=over 4
view release on metacpan or search on metacpan
docs/kurs/abuseipdb.md view on Meta::CPAN
## self_heal
There is nothing on the AbuseIPDB side to establish, so there is
nothing to repair — the re_init after a failed `check` just probes
again. `check` re-runs init's credential probe (catching a revoked or
expired key), so a kur stuck failing it has a credentials problem,
not a firewall one.
## Gotchas
- Because unban costs no API call, `ban_time` here only governs the
view release on metacpan or search on metacpan
t/0258-realworld-yaml.t view on Meta::CPAN
"items:\n - id: 1\n name: first\n - id: 2\n name: second\n",
"config:\n host: localhost\n port: 5432\n ssl: true\n timeout: 30\n",
"matrix:\n include:\n - os: ubuntu\n version: '20'\n - os: macos\n version: '20'\n",
"env:\n production:\n debug: false\n log_level: error\n development:\n debug: true\n log_level: debug\n",
"pipeline:\n - lint\n - test\n - build\n - deploy\n",
"credentials:\n database:\n host: db.example.com\n port: 5432\n cache:\n host: cache.example.com\n port: 6379\n",
) {
my $once = ym($snippet);
is(ym($once), $once, 'YAML: snippet idempotent');
}
view release on metacpan or search on metacpan
lib/Eve/DbiStub.pm view on Meta::CPAN
'account_id' => 123123123,
%{$data_template_hash->{'profile_1'}}}],
[{%{$data_template_hash->{'entry_2'}},
'account_id' => 123123,
%{$data_template_hash->{'profile_2'}}}]]},
'external_profile_get_by_credentials' => {
'sql_pattern' => 'external_profile_get_by_credentials',
'input_type_list' => [DBD::Pg::PG_TEXT, DBD::Pg::PG_TEXT],
'data' => [
[{%{$data_template_hash->{'entry_1'}},
'id' => 987654321,
'account_id' => 123123123,
view release on metacpan or search on metacpan
lib/Event/RPC/AuthPasswdHash.pm view on Meta::CPAN
};
return $self;
}
sub check_credentials {
my $self = shift;
my ($user, $pass) = @_;
return $pass eq $self->get_passwd_href->{$user};
}
view release on metacpan or search on metacpan
lib/Experian/IDAuth.pm view on Meta::CPAN
Return the Experian results as a hashref
=head2 save_pdf_result()
Save the Experian credentials as a PDF
=head2 defaults()
Return default value