view release on metacpan or search on metacpan
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
view release on metacpan or search on metacpan
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
view release on metacpan or search on metacpan
libcares/ares_platform.c view on Meta::CPAN
{"scc-security", {NULL}, 582, "udp"},
{"philips-vc", {NULL}, 583, "tcp"},
{"philips-vc", {NULL}, 583, "udp"},
{"keyserver", {NULL}, 584, "tcp"},
{"keyserver", {NULL}, 584, "udp"},
{"password-chg", {NULL}, 586, "tcp"},
{"password-chg", {NULL}, 586, "udp"},
{"submission", {NULL}, 587, "tcp"},
{"submission", {NULL}, 587, "udp"},
{"cal", {NULL}, 588, "tcp"},
{"cal", {NULL}, 588, "udp"},
{"eyelink", {NULL}, 589, "tcp"},
view release on metacpan or search on metacpan
patch/0001-statically-link-against-auth-plugins.patch view on Meta::CPAN
diff --git a/plugins/auth/CMakeLists.txt b/plugins/auth/CMakeLists.txt
index 121f6e9..66a55d8 100644
--- a/plugins/auth/CMakeLists.txt
+++ b/plugins/auth/CMakeLists.txt
@@ -30,7 +30,7 @@ REGISTER_PLUGIN(TARGET mysql_native_password
REGISTER_PLUGIN(TARGET dialog
TYPE MARIADB_CLIENT_PLUGIN_AUTH
CONFIGURATIONS DYNAMIC STATIC OFF
- DEFAULT DYNAMIC
+ DEFAULT STATIC
SOURCES ${CC_SOURCE_DIR}/plugins/auth/dialog.c
${CC_SOURCE_DIR}/libmariadb/get_password.c)
@@ -70,7 +70,7 @@ IF(CRYPTO_PLUGIN)
REGISTER_PLUGIN(TARGET caching_sha2_password
TYPE MARIADB_CLIENT_PLUGIN_AUTH
CONFIGURATIONS DYNAMIC STATIC OFF
- DEFAULT DYNAMIC
+ DEFAULT STATIC
SOURCES ${CC_SOURCE_DIR}/plugins/auth/caching_sha2_pw.c
${CRYPT_SOURCE}
LIBRARIES ${CRYPT_LIBS})
@@ -81,7 +81,7 @@ IF(CRYPTO_PLUGIN)
REGISTER_PLUGIN(TARGET sha256_password
TYPE MARIADB_CLIENT_PLUGIN_AUTH
CONFIGURATIONS DYNAMIC STATIC OFF
- DEFAULT DYNAMIC
+ DEFAULT STATIC
SOURCES ${AUTH_DIR}/sha256_pw.c
LIBRARIES ${CRYPT_LIBS})
ENDIF()
@@ -126,6 +126,6 @@ REGISTER_PLUGIN(TARGET mysql_old_password
REGISTER_PLUGIN(TARGET mysql_clear_password
TYPE MARIADB_CLIENT_PLUGIN_AUTH
CONFIGURATIONS DYNAMIC STATIC OFF
- DEFAULT DYNAMIC
+ DEFAULT STATIC
SOURCES ${AUTH_DIR}/mariadb_cleartext.c)
view release on metacpan or search on metacpan
t/string_test.h view on Meta::CPAN
CHECK_ALLOCS(0,0,1,EBUF_CHARS,0,0,1,exp1.size());
}
}
static void test_copy () {
String s(cstr("the password for my bank account is w74mnds320ft but i won't tell you the login)"));
T t[500];
size_t cnt;
cnt = s.copy(t, 0);
REQUIRE(cnt == 0);
view release on metacpan or search on metacpan
libuv/docs/src/guide/utilities.rst view on Meta::CPAN
struct ftp_baton {
uv_work_t req;
char *host;
int port;
char *username;
char *password;
}
.. code-block:: c
:linenos:
:emphasize-lines: 2
view release on metacpan or search on metacpan
inc/inc_File-Fetch/File/Fetch.pm view on Meta::CPAN
if( my $ncftp = can_run('ncftp') ) {
my $cmd = [
$ncftp,
'-V', # do not be verbose
'-p', $FROM_EMAIL, # email as password
$self->host, # hostname
dirname($to), # local dir for the file
# remote path to the file
### DO NOT quote things for IPC::Run, it breaks stuff.
$IPC::Cmd::USE_IPC_RUN
inc/inc_File-Fetch/File/Fetch.pm view on Meta::CPAN
By default, all ftp connections are done in passive mode. To change
that, see the C<$FTP_PASSIVE> variable further down.
Furthermore, ftp uris only support anonymous connections, so no
named user/password pair can be passed along.
C</bin/ftp> is blacklisted by default; see the C<$BLACKLIST> variable
further down.
=head1 GLOBAL VARIABLES
inc/inc_File-Fetch/File/Fetch.pm view on Meta::CPAN
global variables:
=head2 $File::Fetch::FROM_EMAIL
This is the email address that will be sent as your anonymous ftp
password.
Default is C<File-Fetch@example.com>.
=head2 $File::Fetch::USER_AGENT
view release on metacpan or search on metacpan
lib/CPAN/Uploader.pm view on Meta::CPAN
$uploader->upload_file($file);
Valid arguments are:
user - (required) your CPAN / PAUSE id
password - (required) your CPAN / PAUSE password
subdir - the directory (under your home directory) to upload to
http_proxy - uri of the http proxy to use
upload_uri - uri of the upload handler; usually the default (PAUSE) is right
debug - if set to true, spew lots more debugging output
lib/CPAN/Uploader.pm view on Meta::CPAN
agent => $self->_ua_string,
($self->{http_proxy} ? (http_proxy => $self->{http_proxy}) : ()),
);
my $uri = URI->new($self->{upload_uri} || $UPLOAD_URI);
$uri->userinfo(join ':', $self->{user}, $self->{password});
# Make the request to the PAUSE web server
$self->log("POSTing upload for $file to $uri");
my $response = $agent->post_multipart($uri, {
HIDDENNAME => $self->{user},
lib/CPAN/Uploader.pm view on Meta::CPAN
=cut
sub new {
my ($class, $arg) = @_;
$arg->{$_} or Carp::croak("missing $_ argument") for qw(user password);
bless $arg => $class;
}
=method read_config_file
view release on metacpan or search on metacpan
make
make test
make install
You will probably have to login as root for the last step (or you can type
"sudo make install" and enter your root password). If you want to install
the Perl modules in a non-standard location, say in "~/perl/lib/perl5/..."
and "~/perl/man/...", type the following instead of "perl Makefile.PL":
perl Makefile.PL PREFIX=~/perl INSTALLMAN1DIR=~/perl/man/man1
view release on metacpan or search on metacpan
make
make test
make install
You will probably have to login as root for the last step (or you can type
"sudo make install" and enter your root password). If you want to install
the CWB/Perl modules in a non-standard location, say in "~/perl/lib/perl5/..."
and "~/perl/man/...", type the following instead of "perl Makefile.PL":
perl Makefile.PL PREFIX=~/perl INSTALLMAN1DIR=~/perl/man/man1
view release on metacpan or search on metacpan
lib/Crypt/OpenSSL/PKCS12.pm view on Meta::CPAN
=head1 SYNOPSIS
use Crypt::OpenSSL::PKCS12;
my $pass = "your password";
my $pkcs12 = Crypt::OpenSSL::PKCS12->new_from_file('cert.p12');
print $pkcs12->certificate($pass);
print $pkcs12->private_key($pass);
lib/Crypt/OpenSSL/PKCS12.pm view on Meta::CPAN
Verifiy the certificates Message Authentication Code
=item * changepass( C<$old>, C<$new> )
Change a certificate's password.
=item * create( C<$cert>, C<$key>, C<$pass>, C<$output_file>, C<$friendly_name> )
Create a new PKCS12 certificate. $cert & $key may either be strings or filenames.
view release on metacpan or search on metacpan
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
my ($self) = @_;
return unless $$self{Password};
$self->{private_encrypted} = new Tie::EncryptedHash
__password => $self->{Password},
__cipher => $self->{Cipher};
for (keys %{$$self{private}}) {
$$self{private_encrypted}{$_} = $$self{private}{$_}->bstr;
}
my $private = $self->{private_encrypted};
delete $private->{__password};
delete $$self{private};
delete $$self{Password};
# Mark ourselves as hidden
$self->{Hidden} = 1;
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
sub reveal {
my ($self, %params) = @_;
$$self{Password} = $params{Password} if $params{Password};
return unless $$self{Password};
$$self{private_encrypted}{__password} = $params{Password};
for (keys %{$$self{private_encrypted}}) {
$$self{private}{$_} = Math::BigInt->new("$$self{private_encrypted}{$_}");
}
$self->{Hidden} = 0;
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
sub DESTROY {
my $self = shift;
delete $$self{private_encrypted}{__password};
delete $$self{private_encrypted};
delete $$self{private};
delete $$self{Password};
undef $self;
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
calling C<reveal()> with a C<Password> argument.
=item B<hide()>
C<hide()> causes the key to be encrypted by the chosen symmetric cipher
and password.
=item B<write()>
Causes the key to be written to a disk file specified by the
C<Filename> argument. C<write()> will call C<hide()> before
writing the key to disk. If you wish to store the key in plain,
don't specify a password at C<new()>.
=item B<read()>
Causes the key to be read from a disk file specified by
C<Filename> into the object. If C<Password> is provided, the
view release on metacpan or search on metacpan
lib/NewRelic/Agent/FFI/Procedural.pm view on Meta::CPAN
use FFI::Platypus;
my $ffi = FFI::Platypus->new;
$new->attach( newrelic_basic_literal_replacement_obfuscator, ['string'] => 'string');
my $save = newrelic_basic_literal_replacement_obfuscator("SELECT * FROM user WHERE password = 'secret'");
=head2 newrelic_request_shutdown
my $rc = newrelic_request_shutdown $reason;
view release on metacpan or search on metacpan
t/test-data/to-split/29.xml view on Meta::CPAN
<urls>
<url>http://searchenginewatch.com/searchday/article.php/3612406</url>
</urls>
</acquisitionData>
<canonicalDocument>
<section>Links to the week's topics from search engine forums across the web. What Top 5 Skills Would You Study to Become a Better SEO? Search Engine Watch Forums "What skills would you put on your Matrix 'must have' list for your career path...
<metaData>
<meta name="title">Search Engine Forums Spotlight</meta>
<meta name="dc:type">text/html</meta>
</metaData>
<links>
view release on metacpan or search on metacpan
bin/alvis-zsink.pl view on Meta::CPAN
use Net::Z3950::ZOOM 1.11; # We don't use this, but it's ZOOM's release
use ZOOM;
if (@ARGV != 2 && @ARGV != 4) {
print STDERR <<__EOT__;
Usage: $0 <listen-port> <z-host> [<user> <password>]
<listen-port> is the port on which to listen for documents being
fed down the Alvis pipeline; <z-host> is ZOOM-style Z39.50 host
string such as 'localhost:1314' or 'tcp:alvis.indexdata.com:8122'
__EOT__
exit 1;
}
my($port, $zhost, $user, $password) = @ARGV;
my $pipe = new Alvis::Pipeline::Read(port => $port,
spooldir => "/tmp/alvis-spool")
or die "can't create read-pipe on port $port: $!";
$pipe->option(sleep => 1);
print "Listening on pipeline\n";
my $options = new ZOOM::Options();
$options->option(user => $user) if defined $user;
$options->option(password => $password) if defined $password;
my $conn = create ZOOM::Connection($options);
my $connected = 0;
my $n = 0;
$| = 1;
view release on metacpan or search on metacpan
mason/execute_sql.mhtml view on Meta::CPAN
</td>
<%args>
$s
$user => undef
$password => undef
$host => undef
$port => undef
</%args>
<%init>
eval
{
$s->create( user => $user,
password => $password,
host => $host,
port => $port,
);
$s->save_to_file;
};
view release on metacpan or search on metacpan
lib/Alzabo/Create/Schema.pm view on Meta::CPAN
parameter.
=back
In addition, this method takes any parameters that can be used when
connecting to the RDBMS, including "user", "password", "host", and
"port".
Returns a new C<Alzabo::Create::Schema> object.
=head2 Other Methods
lib/Alzabo/Create/Schema.pm view on Meta::CPAN
schema to be marked as instantiated.
Wherever possible, existing data will be preserved.
This method takes any parameters that can be used when connecting to
the RDBMS, including "schema_name", "user", "password", "host", and
"port".
If a "schema_name" parameter is given, then this will be the name
given to the schema in the RDBMS.
lib/Alzabo/Create/Schema.pm view on Meta::CPAN
Drops the database/schema from the RDBMS. This will cause the schema
to be marked as not instantiated. This method does not delete the
Alzabo files from disk. To do this, call the C<delete()> method.
This method takes any parameters that can be used when connecting to
the RDBMS, including "schema_name", "user", "password", "host", and
"port".
Throws: L<C<Alzabo::Exception::Driver>|Alzabo::Exceptions>
=head2 sync_backend
lib/Alzabo/Create/Schema.pm view on Meta::CPAN
immediately after running this method, running it again may still
cause it to execute SQL commands. Fortunately, the SQL it generates
will not cause anything to break.
This method takes any parameters that can be used when connecting to
the RDBMS, including "schema_name", "user", "password", "host", and
"port".
Throws: L<C<Alzabo::Exception::Driver>|Alzabo::Exceptions>
=head2 sync_backend_sql
If there is no corresponding schema in the RDBMS backend, then this
method returns the SQL necessary to create the schema from scratch.
This method takes any parameters that can be used when connecting to
the RDBMS, including "schema_name", "user", "password", "host", and
"port".
Throws: L<C<Alzabo::Exception::Driver>|Alzabo::Exceptions>
=head2 delete
view release on metacpan or search on metacpan
lib/Amazon/Dash/Button.pm view on Meta::CPAN
=item in the mobile app you would find a menu "Your Dash Button" -> "Settings" then "Set up a new device".
=item choose your dash device, then follow the instructions: long press on the button until it discovery mode (blue light)
=item provide the wifi password of your network
=item but do not select the exact product linked to your button exit from there !
=back
view release on metacpan or search on metacpan
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
=head1 SYNOPSIS
my $agent = Amazon::MWS::Uploader->new(
db_dsn => 'DBI:mysql:database=XXX',
db_username => 'xxx',
db_password => 'xxx',
db_options => \%options
# or dbh => $dbh,
schema_dir => '/path/to/xml_schema',
feed_dir => '/path/to/directory/for/xml',
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
=item db_dsn
=item db_username
=item db_password
=item db_options
E.g.
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
AutoCommit and RaiseError are set by us.
=cut
has db_dsn => (is => 'ro');
has db_password => (is => 'ro');
has db_username => (is => 'ro');
has db_options => (is => 'ro',
isa => AnyOf[Undef,HashRef],
);
has dbh => (is => 'lazy');
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
die "Missing dns" unless $dsn;
my $options = $self->db_options || {};
# forse raise error and auto-commit
$options->{RaiseError} = 1;
$options->{AutoCommit} = 1;
my $dbh = DBI->connect($dsn, $self->db_username, $self->db_password,
$options) or die "Couldn't connect to $dsn!";
return $dbh;
}
=item purge_missing_products
view release on metacpan or search on metacpan
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
view release on metacpan or search on metacpan
lib/Amazon/SendToKindle.pm view on Meta::CPAN
file_name => $_[1],
address => $_[2],
smtp_server => $_[3],
smtp_port => $_[4],
smtp_user => $_[5],
smtp_password => $_[6]
};
bless $self, $class;
return $self;
}
lib/Amazon/SendToKindle.pm view on Meta::CPAN
# Setup Net::SMTP.
my $email = new Net::SMTP::TLS(
$self->{smtp_server},
Port => $self->{smtp_port},
User => $self->{smtp_user},
Password => $self->{smtp_password},
Timeout => 60);
$email->mail($self->{address});
$email->to($account);
$email->data();
lib/Amazon/SendToKindle.pm view on Meta::CPAN
"document.pdf",
"your@email.com",
"smtp.server.com",
$port,
"username",
"password);
$kindle->send("amazon_username", 0); # Do not include the @kindle.com
=head1 DESCRIPTION
This is my first module for the Perl community. It was created to be used in one of my projects called Whisper: https://github.com/nathanpc/whisper
view release on metacpan or search on metacpan
lib/Ambrosia/Addons/Accessor.pm view on Meta::CPAN
unless ( $level )
{#Authorization is not required
return new Ambrosia::Addons::Accessor::Result()->SET_PERMIT;
}
#If no username or password then prohibit
return new Ambrosia::Addons::Accessor::Result()->SET_DENIED unless $login && $passwd;
#check username and password
return $self->check_password($login, $passwd, $level);
}
sub exit :Abstract
{
}
sub remember_authorize_info :Abstract
{
}
sub check_password
{
my $self = shift;
my $login = shift || '';
my $passwd = shift || '';
my $level = shift;
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
secretary plugged hairdryer into UPS
terrorist activities
not enough memory, go get system upgrade
interrupt configuration error
spaghetti cable cause packet failure
boss forgot system password
bank holiday - system operating credits not recharged
virus attack, luser responsible
waste water tank overflowed onto computer
Complete Transient Lockout
bad ether in the cables
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
Smell from unhygenic janitorial staff wrecked the tape heads
Little hamster in running wheel had coronary; waiting for replacement to be Fedexed from Wyoming
Evil dogs hypnotized the night shift
Plumber mistook routing panel for decorative wall fixture
Electricians made popcorn in the power supply
Groundskeepers stole the root password
high pressure system failure
failed trials, system needs redesigned
system has been recalled
not approved by the FCC
need to wrap system in aluminum foil to fix problem
view release on metacpan or search on metacpan
eg/Hello/config/development.pl view on Meta::CPAN
+{
'DBIx::Skinny' => {
dsn => 'dbi:SQLite:dbname=test.db',
username => '',
password => '',
},
'Text::Xslate' => {
path => ['tmpl/'],
},
view release on metacpan or search on metacpan
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
view release on metacpan or search on metacpan
this function understand array input, id[1], id[2],id[3]...
=head2 salt()
Return randomic string, used for generate password
=head2 escape(string)
URL encode
view release on metacpan or search on metacpan
lib/Anansi/Database/MySQL.pm view on Meta::CPAN
The IP address of the computer where the MySQL B<DATABASE> is hosted. A value
of B<127.0.0.1> is used by default.
=item PASSWORD I<(String, Optional)>
The password of the B<USERNAME> that is accessing the MySQL database. A value
of B<undef> is used by default.
=item PORT I<(String, Optional)>
The IP address port number of the computer where the MySQL B<DATABASE> is
view release on metacpan or search on metacpan
lib/Anansi/Database/Oracle.pm view on Meta::CPAN
The IP address of the computer where the Oracle B<DATABASE> is hosted. A value
of B<127.0.0.1> is used by default.
=item PASSWORD I<(String, Optional)>
The password of the B<USERNAME> that is accessing the Oracle database. A value
of B<undef> is used by default.
=item PORT I<(String, Optional)>
The IP address port number of the computer where the Oracle B<DATABASE> is
view release on metacpan or search on metacpan
lib/Anansi/Database/PostgreSQL.pm view on Meta::CPAN
Either the content of the I<PGHOST> environment variable or a value of
B<127.0.0.1> is used by default.
=item PASSWORD I<(String, Optional)>
The password of the B<USERNAME> that is accessing the PostgreSQL database. The
content of the I<PGPASSWORD> environment variable is used by default.
=item PORT I<(String, Optional)>
The IP address port number of the computer where the PostgreSQL B<DATABASE> is
view release on metacpan or search on metacpan
lib/Android/Build.pm view on Meta::CPAN
"echo $keyStorePwd |".
"jarsigner $alg -keystore $keyStoreFile $apkFile $keyAlias";
my $s = zzz($c);
$s =~ /reference a valid KeyStore key entry containing a private key/s and
confess "Invalid keystore password: $keyStorePwd ".
"for keystore:\n$keyStoreFile\n".
"Specify the correct password via the keyStorePwd() method\n";
$s =~ /jar signed/s or confess "Unable to sign $apkFile\n";
if ($android->verifyApk) # Optional verify
{my $v = zzz("jarsigner -verify $apkFile");