Result:
found more than 606 distributions - search limited to the first 2001 files matching your query
( run in 0.651 )
App-GitHubPullRequest
view release on metacpan or search on metacpan
lib/App/GitHubPullRequest.pm view on Meta::CPAN
# Perform HTTP GET
sub _get_url {
my ($url, $return_on_error) = @_;
croak("Please specify a URL") unless $url;
# See if we should use credentials
my @credentials;
if ( _is_api_url($url) ) {
my $token = _qx('git', 'config github.pr-token');
@credentials = ( '-H', "Authorization: token $token" ) if $token;
}
# Send request
my ($content, $rc) = _run_ext(
'curl',
'-L', # follow redirects
'-s', # be silent
'-w', '%{http_code}', # include HTTP status code at end of stdout
@credentials, # Logon credentials, if any
$url, # The URL we're GETing
);
die("curl failed to fetch $url with code $rc.\n") if $rc != 0;
my $code = substr($content, -3, 3, '');
lib/App/GitHubPullRequest.pm view on Meta::CPAN
my ($url, $mimetype, $data) = @_;
croak("Please specify a URL") unless $url;
croak("Please specify a mimetype") unless $mimetype;
croak("Please specify some data") unless $data;
# See if we should use credentials
my @credentials;
if ( _is_api_url($url) ) {
my $token = _qx('git', 'config github.pr-token');
die("You must login before you can modify information.\n")
unless $token;
@credentials = ( '-H', "Authorization: token $token" );
}
# Send request
my ($content, $rc) = _run_ext(
'curl',
'-s', # be silent
'-w', '%{http_code}', # include HTTP status code at end of stdout
'-X', 'PATCH', # perform an HTTP PATCH
'-H', "Content-Type: $mimetype", # What kind of data we're sending
'-d', $data, # Our data
@credentials, # Logon credentials, if any
$url, # The URL we're PATCHing
);
die("curl failed to patch $url with code $rc.\n") if $rc != 0;
my $code = substr($content, -3, 3, '');
lib/App/GitHubPullRequest.pm view on Meta::CPAN
my ($url, $mimetype, $data, $user, $password, $two_factor_token) = @_;
croak("Please specify a URL") unless $url;
croak("Please specify a mimetype") unless $mimetype;
croak("Please specify some data") unless $data;
# See if we should use credentials
my @credentials;
if ( _is_api_url($url) ) {
my $token = _qx('git', 'config github.pr-token');
die("You must login before you can modify information.\n")
unless $token or ( $user and $password );
if ( $user and $password ) {
@credentials = ( '-u', "$user:$password" );
push @credentials, '-H', "X-GitHub-OTP: $two_factor_token"
if $two_factor_token;
}
else {
@credentials = ( '-H', "Authorization: token $token" ) if $token;
}
}
# Send request
my ($content, $rc) = _run_ext(
lib/App/GitHubPullRequest.pm view on Meta::CPAN
'-s', # be silent
'-w', '%{http_code}', # include HTTP status code at end of stdout
'-X', 'POST', # perform an HTTP POST
'-H', "Content-Type: $mimetype", # What kind of data we're sending
'-d', $data, # Our data
@credentials, # Logon credentials, if any
$url, # The URL we're POSTing to
);
die("curl failed to post to $url with code $rc.\n") if $rc != 0;
my $code = substr($content, -3, 3, '');
App-GitKtti
view release on metacpan or search on metacpan
- [Usage examples](#usage-examples)
- [🚀 CPAN Distribution Guide](#-cpan-distribution-guide)
- [Prerequisites](#prerequisites)
- [Command Line Upload](#command-line-upload)
- [Step 1: Install Upload Tool](#step-1-install-upload-tool)
- [Step 2: Configure PAUSE Credentials](#step-2-configure-pause-credentials)
- [Step 3: Prepare Distribution](#step-3-prepare-distribution)
- [Step 4: Upload to CPAN](#step-4-upload-to-cpan)
- [What Happens Next](#what-happens-next)
- [Complete Example](#complete-example)
- [📋 Recent Releases](#-recent-releases)
```
#### Step 2: Configure PAUSE Credentials
```bash
# Create credentials file (one time setup)
echo "user YOUR_PAUSE_ID" > ~/.pause
echo "password YOUR_PASSWORD" >> ~/.pause
chmod 600 ~/.pause
```
Replace `YOUR_PAUSE_ID` and `YOUR_PASSWORD` with your actual PAUSE credentials.
#### Step 3: Prepare Distribution
```bash
# Clean and build distribution
make disttest
# Build distribution
make dist
# Upload (assuming credentials already configured)
cpan-upload App-GitKtti-2.0.0.tar.gz
```
**Note**: Only authorized maintainers with PAUSE access can upload to CPAN.
App-Glacier
view release on metacpan or search on metacpan
lib/App/Glacier.pm view on Meta::CPAN
Configures access to the Glacier service. The following keywords are defined:
=over 8
=item B<credentials => I<FILE>
Sets the name of the credentials file. See below for a detailed discussion.
=item B<access => I<KEYNAME>
Defines Amazon access key or access ID for look up in the credentials file.
=item B<secret => I<SECRET>
Sets the secret key. The use of this statement is discouraged for
security reason.
lib/App/Glacier.pm view on Meta::CPAN
AWS instance).
=back
If either of B<access> or B<secret> is not supplied, B<glacier> attemtps to
obtain access and secret keys from the file named in the B<credentials>
setting (if it is defined). If unable to find credentials, B<glacier> attempts
to get credentials from the instance store, assuming it is run on an EC2
instance. It will exit if this attempt fails.
The credentials file allows you to store all security sensitive data in a
single place and to tighten permissions accordingly. In the simplest case,
this file contains a single line with your access and secret keys separated
by a semicolon, e.g.:
AEBRGYTEBRET:RTFERYABNERTYR4HDDHEYRTWW
Additionally, the default region can be specified after a second semicolon:
AEBRGYTEBRET:RTFERYABNERTYR4HDDHEYRTWW:us-west-1
If you have several accounts, you can list their credentials on separate lines.
In that case, B<glacier> will select the account with the access key supplied
by the B<access> configuration statement, or the B<--account> command line
option. If neither of these are supplied, the first account in the file will
be used.
To further facilitate selection of the credential pair, each line can be tagged
with the line B<#:I<NAME>> immediately preceding it. In that case, the I<NAME>
can be used to select it using the B<--account> option or B<access> configuration statement.
Apart from these constructs, the credentials file can contain empty lines and
comments (lines beginning with B<#> followed by any character, except B<:> ),
which are ignored.
=item B<[transfer]>
App-Greple-pw
view release on metacpan or search on metacpan
lib/App/Greple/pw.pm view on Meta::CPAN
keywords can be configured to match your specific data format.
=item * B<Browser integration>
Includes browser automation features for automatically filling web
forms with extracted credentials.
=back
Some banks use random number matrices as a countermeasure for tapping.
If the module successfully guesses the matrix area, it blacks out the
App-HTTP_Proxy_IMP
view release on metacpan or search on metacpan
lib/App/HTTP_Proxy_IMP/IMP/CSRFprotect.pm view on Meta::CPAN
my @del;
push @del,$1 while ( $hdr =~s{^(Cookie|Cookie2):[ \t]*(.*(?:\n[ \t].*)*)\n}{}im );
if (@del) {
$self->run_callback([
IMP_LOG,0,0,0,IMP_LOG_INFO,
"removed cross-origin session credentials (@del) for request @origin -> @target"
]);
# return changed header
return $hdr;
}
lib/App/HTTP_Proxy_IMP/IMP/CSRFprotect.pm view on Meta::CPAN
App::HTTP_Proxy_IMP::IMP::CSRFprotect - IMP plugin against CSRF attacks
=head1 DESCRIPTION
This plugin attempts to block malicious cross-site requests (CSRF), by removing
session credentials (Cookie, Cookie2 and Authorization header) from the request,
if the origin of the request is not known or not trusted.
The origin is determined by checking the Origin or the Referer HTTP-header of
the request.
An origin O is considered trusted to issue a cross-site request to target T, if
App-LXC-Container
view release on metacpan or search on metacpan
lib/App/LXC/Container/Run.pm view on Meta::CPAN
debug(3, 'starting LXC application container ', $self->{name});
my $rc = system(
'lxc-execute', '--rcfile', $self->{rc},
'--name', $self->{name}, '--', '/lxc-run.sh');
my $err = $!;
# remove all .Xauthority files in container (the credentials may
# change before the next run):
local $_;
foreach (glob($self->{root} . '/.xauth-*/.Xauthority'))
{
unlink $_ or error 'can_t_remove__1__2', $_, $!;
App-LedgerSMB-Admin
view release on metacpan or search on metacpan
t/10-basic-db.t view on Meta::CPAN
);
eval { $db->drop };
dies_ok { $db->major_version } "can't get major version on nonexistent db";
ok($db = $db->new($db->export), 'Copied db credentials into new object');
ok($db->create, 'Created database');
ok($db->load('0.1'), 'Loaded base schema');
lives_ok {$db->major_version} "Lived when calling major version this time.";
App-MBUtiny
view release on metacpan or search on metacpan
lib/App/MBUtiny/Util.pm view on Meta::CPAN
my $anode = node2anode({});
Returns array of nodes
=item B<parse_credentials>
my ($user, $password) = parse_credentials( 'http://user:password@example.com' );
my ($user, $password) = parse_credentials( new URI('http://user:password@example.com') );
Returns credentials pair by URL or URI object
=item B<resolv>
my $name = resolv( $IPv4 );
my $ip = resolv( $name );
lib/App/MBUtiny/Util.pm view on Meta::CPAN
filesize sha1sum md5sum
resolv
explain
xcopy
node2anode set2attr
parse_credentials hide_password
/;
sub sha1sum {
my $f = shift;
my $sha1 = new Digest::SHA1;
lib/App/MBUtiny/Util.pm view on Meta::CPAN
my $n = shift;
return [] unless $n && ref($n) =~ /ARRAY|HASH/;
return [$n] if ref($n) eq 'HASH';
return $n;
}
sub parse_credentials {
my $url = shift || return ();
my $uri = (ref($url) eq 'URI') ? $url : URI->new($url);
my $info = $uri->userinfo() // "";
my $user = $info;
my $pass = $info;
lib/App/MBUtiny/Util.pm view on Meta::CPAN
$pass =~ s/^[^:]*://;
return (uri_unescape($user // ''), uri_unescape($pass // ''));
}
sub hide_password {
my $url = shift || return "";
my $full = shift || 0; # 0 - starts, 1 - no_credentials; 2 - user_only
my $uri = new URI($url);
my ($u,$p) = parse_credentials($uri);
return $url unless defined($p) && length($p);
$uri->userinfo($full ? ($full == 1 ? undef : $u) : sprintf("%s:*****", $u));
return $uri->canonical->as_string;
}
sub set2attr {
App-MFILE-WWW
view release on metacpan or search on metacpan
lib/App/MFILE/WWW/Dispatch.pm view on Meta::CPAN
# POST is used only for login/logout ATM
if ( $method =~ m/^LOGIN/i ) {
$log->debug( "Incoming login/logout attempt" );
if ( $path =~ m/^login/i ) {
return $self->validate_user_credentials( $body );
} else {
return $self->_logout( $body );
}
}
$log->crit( "Asked to perform an AJAX call, but feature is not implemented!" );
return 0;
}
=head2 validate_user_credentials
Called from C<process_post> to process login requests (special AJAX requests)
originating from the JavaScript side (i.e. the login screen in
login-dialog.js, via login.js).
Returns a status object - OK means the login was successful; all other statuses
mean unsuccessful.
=cut
sub validate_user_credentials {
my ( $self, $body ) = @_;
$log->debug( "Entering " . __PACKAGE__ . "::validate_user_credentials()" );
my $r = $self->request;
my $session = $r->{'env'}->{'psgix.session'};
my $nick = $body->{'nam'};
my $password = $body->{'pwd'};
App-MFILE
view release on metacpan or search on metacpan
lib/App/MFILE/HTTP.pm view on Meta::CPAN
}
# login bypass
$meta->set('META_LOGIN_BYPASS_STATE', 0) if not defined $meta->META_LOGIN_BYPASS_STATE;
if ( $site->MFILE_WWW_BYPASS_LOGIN_DIALOG and not $meta->META_LOGIN_BYPASS_STATE ) {
$log->notice("Bypassing login dialog! Using default credentials");
$session->{'ip_addr'} = $remote_addr;
$session->{'last_seen'} = time;
my $bypass_result = $self->_login_dialog( {
'nam' => $site->MFILE_WWW_DEFAULT_LOGIN_CREDENTIALS->{'nam'},
'pwd' => $site->MFILE_WWW_DEFAULT_LOGIN_CREDENTIALS->{'pwd'},
App-MHFS
view release on metacpan or search on metacpan
share/public_html/static/music_inc/drflac.js view on Meta::CPAN
async function Module(moduleArg={}){var moduleRtn;var Module=moduleArg;var ENVIRONMENT_IS_WEB=typeof window=="object";var ENVIRONMENT_IS_WORKER=typeof WorkerGlobalScope!="undefined";var ENVIRONMENT_IS_NODE=typeof process=="object"&&process.versions?....
;return moduleRtn}export default Module;
App-ModuleBuildTiny
view release on metacpan or search on metacpan
0.026
- Add --trial option to regenerate/upload/dist/distdir
0.025 Sun Dec 16 22:09:12 CET 2018
- Allow fetching credentials from console
- Add SPDX support to meta files
0.024
- Write generated files as binary
- Decode author names when POD is encoded
App-MtAws
view release on metacpan or search on metacpan
lib/App/MtAws/GlacierRequest.pm view on Meta::CPAN
my $canonical_url_hash = sha256_hex($canonical_url);
# /getting canonical URL
my $credentials = "$datestr/$self->{region}/$self->{service}/aws4_request";
my $string_to_sign = join("\n", "AWS4-HMAC-SHA256", $date8601, $credentials, $canonical_url_hash);
my ($kSigning, $kSigning_hex) = get_signature_key($self->{secret}, $datestr, $self->{region}, $self->{service});
my $signature = hmac_sha256_hex($string_to_sign, $kSigning);
my $auth = "AWS4-HMAC-SHA256 Credential=$self->{key}/$credentials, SignedHeaders=$signed_headers, Signature=$signature";
push @{$self->{req_headers}}, { name => 'Authorization', value => $auth};
}
App-Mxpress-PDF
view release on metacpan or search on metacpan
public/javascripts/ace/mode-redshift.js view on Meta::CPAN
var JsonHighlightRules = require("./json_highlight_rules").JsonHighlightRules;
var RedshiftHighlightRules = function() {
var keywords = (
"aes128|aes256|all|allowoverwrite|analyse|analyze|and|any|array|as|asc|authorization|backup|" +
"between|binary|blanksasnull|both|bytedict|bzip2|case|cast|check|collate|column|constraint|create|credentials|" +
"cross|current_date|current_time|current_timestamp|current_user|current_user_id|default|deferrable|deflate|defrag|delta|" +
"delta32k|desc|disable|distinct|do|else|emptyasnull|enable|encode|encrypt|encryption|end|except|explicit|false|for|foreign|" +
"freeze|from|full|globaldict256|globaldict64k|grant|group|gzip|having|identity|ignore|ilike|in|initially|inner|intersect|into|is|" +
"isnull|join|leading|left|like|limit|localtime|localtimestamp|lun|luns|lzo|lzop|minus|mostly13|mostly32|mostly8|natural|new|not|notnull|" +
"null|nulls|off|offline|offset|old|on|only|open|or|order|outer|overlaps|parallel|partition|percent|permissions|placing|primary|raw|readratio|" +
App-Netdisco
view release on metacpan or search on metacpan
lib/App/Netdisco/Util/DeviceAuth.pm view on Meta::CPAN
use Try::Tiny;
use base 'Exporter';
our @EXPORT = ();
our @EXPORT_OK = qw/
fixup_device_auth get_external_credentials
/;
our %EXPORT_TAGS = (all => \@EXPORT_OK);
=head1 NAME
lib/App/Netdisco/Util/DeviceAuth.pm view on Meta::CPAN
}
return @new_stanzas;
}
=head2 get_external_credentials( $device, $mode )
Runs a command to gather SNMP credentials or a C<device_auth> stanza.
Mode can be C<read> or C<write> and defaults to 'read'.
=cut
sub get_external_credentials {
my ($device, $mode) = @_;
my $cmd = (setting('get_credentials') || setting('get_community'));
my $ip = $device->ip;
my $host = ($device->dns || hostname_from_ip($ip) || $ip);
$mode ||= 'read';
if (defined $cmd and length $cmd) {
lib/App/Netdisco/Util/DeviceAuth.pm view on Meta::CPAN
my @lines = split (m/\n/, $result);
foreach my $line (@lines) {
if ($line =~ m/^community\s*=\s*(.*)\s*$/i) {
if (length $1 and $mode eq 'read') {
debug sprintf '[%s] external read credentials added',
$device->ip;
return map {{
read => 1,
only => [$device->ip],
lib/App/Netdisco/Util/DeviceAuth.pm view on Meta::CPAN
}} split(m/\s*,\s*/,$1);
}
}
elsif ($line =~ m/^setCommunity\s*=\s*(.*)\s*$/i) {
if (length $1 and $mode eq 'write') {
debug sprintf '[%s] external write credentials added',
$device->ip;
return map {{
write => 1,
only => [$device->ip],
lib/App/Netdisco/Util/DeviceAuth.pm view on Meta::CPAN
}
else {
my $stanza = undef;
try {
$stanza = from_json( $line );
debug sprintf '[%s] external credentials stanza added',
$device->ip;
}
catch {
info sprintf '[%s] error! failed to parse external credentials stanza',
$device->ip;
};
return $stanza if ref $stanza;
}
}
App-Netsync
view release on metacpan or search on metacpan
share/mib/lldp.mib view on Meta::CPAN
DESCRIPTION
"The value of a management address associated with the LLDP
agent that may be used to reach higher layer entities to
assist discovery by network management.
It should be noted that appropriate security credentials,
such as SNMP engineId, may be required to access the LLDP
agent using a management address. These necessary credentials
should be known by the network management and the objects
associated with the credentials are not included in the
LLDP agent."
SYNTAX OCTET STRING (SIZE (1..31))
LldpSystemCapabilitiesMap ::= TEXTUAL-CONVENTION
STATUS current
App-Nopaste-Service-Dancebin
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/Dancebin.pm view on Meta::CPAN
sub uri { $ENV{DANCEBIN_URL} || 'http://danceb.in/' }
sub get {
my ($self, $mech) = @_;
# Set BasicAuth credentials if needed
$mech->credentials( $self->_credentials ) if $self->_credentials;
return $mech->get($self->uri);
}
sub fill_form {
lib/App/Nopaste/Service/Dancebin.pm view on Meta::CPAN
lang => decode_utf8($args{lang}),
};
my $exp = $ENV{DANCEBIN_EXP};
$content->{expiration} = $exp if $exp;
# Set BasicAuth credentials if needed
$mech->credentials( $self->_credentials ) if $self->_credentials;
my $form = $mech->form_number(1) || return;
# do not follow redirect please
@{$mech->requests_redirectable} = ();
lib/App/Nopaste/Service/Dancebin.pm view on Meta::CPAN
} else {
return ( 0, "Cannot find URL" );
}
}
sub _credentials { ($ENV{DANCEBIN_USER}, $ENV{DANCEBIN_PASS}) }
1;
__END__
lib/App/Nopaste/Service/Dancebin.pm view on Meta::CPAN
$ echo "text" | nopaste -s Dancebin
By default it pastes to L<http://danceb.in/|http://danceb.in/>, but you can
override this be setting the C<DANCEBIN_URL> environment variable.
You can set HTTP Basic Auth credentials to use for the nopaste service
if necessary by using:
DANCEBIN_USER=username
DANCEBIN_PASS=password
App-Nopaste-Service-WerePaste
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/WerePaste.pm view on Meta::CPAN
sub uri { $ENV{WEREPASTE_URL} || 'http://paste.were.space/' }
sub get {
my ($self, $mech) = @_;
# Set BasicAuth credentials if needed
$mech->credentials( $self->_credentials ) if $self->_credentials;
return $mech->get($self->uri);
}
sub fill_form {
lib/App/Nopaste/Service/WerePaste.pm view on Meta::CPAN
title => decode_utf8($args{desc}),
lang => decode_utf8($args{lang}),
};
my $exp = $ENV{WEREPASTE_EXP};
$content->{expiration} = $exp if $exp;
$mech->credentials( $self->_credentials ) if $self->_credentials;
@{$mech->requests_redirectable} = ();
return $mech->submit_form( form_number => 1, fields => $content );
}
lib/App/Nopaste/Service/WerePaste.pm view on Meta::CPAN
my ( $self, $mech ) = @_;
return (1, $mech->response->header('Location')) if $mech->response->is_redirect;
return (0, 'Cannot find URL');
}
sub _credentials { ($ENV{WEREPASTE_USER}, $ENV{WEREPASTE_PASS}) }
1;
__END__
=pod
lib/App/Nopaste/Service/WerePaste.pm view on Meta::CPAN
$ echo "text" | nopaste -s WerePaste
By default it pastes to L<http://paste.were.space>, but you can
override this be setting the C<WEREPASTE_URL> environment variable.
You can set HTTP Basic Auth credentials to use for the nopaste service
if necessary by using:
WEREPASTE_USER=username
WEREPASTE_PASS=password
App-Nopaste
view release on metacpan or search on metacpan
lib/App/Nopaste/Service/Gist.pm view on Meta::CPAN
Alternatively, you can export the C<GITHUB_USER> and C<GITHUB_PASSWORD>
environment variables, just like for the
L<gist|https://github.com/defunkt/gist> utility.
You can also simply store your credentials in plaintext in F<~/.github> as in:
login bob
password ilikeducks
That's it!
App-OTRS-CreateTicket
view release on metacpan or search on metacpan
lib/App/OTRS/CreateTicket.pm view on Meta::CPAN
=head1 DESCRIPTION
This module contains one script, L<otrs.CreateTicket.pl>, which allows you to create
tickets in OTRS from the command line.
For creating a ticket you'll need to have valid OTRS agent login credentials, as well
as the TicketConnector web service installed on your OTRS machine. In order to use the
GenericTicketConnector you need to use at least OTRS 3.1.
Activating the TicketConnector is easy. Download the yml file from the following URL:
L<https://raw.github.com/mbeijen/App-OTRS-CreateTicket/master/examples/GenericTicketConnector.yml>
App-Oozie
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy/Validate/Spec/Coordinator.pm
lib/App/Oozie/Deploy/Validate/Spec/Workflow.pm
lib/App/Oozie/Deploy/ttlib/common.properties
lib/App/Oozie/Deploy/ttlib/coordinator_config_xml
lib/App/Oozie/Deploy/ttlib/ttree.cfg
lib/App/Oozie/Deploy/ttlib/workflow_credentials
lib/App/Oozie/Deploy/ttlib/workflow_global_xml_end
lib/App/Oozie/Deploy/ttlib/workflow_global_xml_start
lib/App/Oozie/Deploy/ttlib/workflow_parameters_xml_end
lib/App/Oozie/Deploy/ttlib/workflow_parameters_xml_start
lib/App/Oozie/Deploy/ttlib/workflow_sla_xml
App-PAIA
view release on metacpan or search on metacpan
lib/App/PAIA/Command.pm view on Meta::CPAN
$self->logger->("deleted session file");
}
my $auth = $self->auth or $self->usage_error("missing PAIA auth server URL");
# take credentials from command line or config file only
my %params = (
username => $self->username,
password => $self->password,
grant_type => 'password',
);
App-PAUSE-Comaint
view release on metacpan or search on metacpan
lib/App/PAUSE/Comaint.pm view on Meta::CPAN
$self->login_pause;
$self->make_comaint($comaint, \@packages);
}
sub get_credentials {
my $self = shift;
my %rc;
my $file = "$ENV{HOME}/.pause";
if (eval { require Config::Identity }) {
lib/App/PAUSE/Comaint.pm view on Meta::CPAN
}
sub login_pause {
my $self = shift;
$self->mech->credentials($self->get_credentials);
$self->mech->get("https://pause.perl.org/pause/authenquery?ACTION=share_perms");
$self->mech->form_number(1);
$self->mech->click('weaksubmit_pause99_share_perms_makeco');
App-PAUSE-cleanup
view release on metacpan or search on metacpan
lib/App/PAUSE/cleanup.pm view on Meta::CPAN
$password = $identity{password} unless defined $password;
usage '! Missing username and/or password' unless
defined $username && defined $password;
$agent->credentials( "pause.perl.org:443", "PAUSE", $username, $password );
print "> Logging in as $username\n";
my $response = $agent->get( 'https://pause.perl.org/pause/authenquery?ACTION=delete_files' );
App-PM-Website
view release on metacpan or search on metacpan
lib/App/PM/Website/Command/Install.pm view on Meta::CPAN
else
{
warn "Old version of LWP::UserAgent doesn't support ssl_opts"
}
}
my %webdav_credentials = (
-user => $opt->{username},
-pass => $opt->{password},
-url => $opt->{url},
-realm => "groups.perl.org",
);
print Dumper { credentials => \%webdav_credentials };
$webdav->credentials(%webdav_credentials);
$webdav->open( -url => $opt->{url} )
or die sprintf( "failed to open url [%s] : %s\n",
$opt->{url}, $webdav->message() );
my %put_options = (
App-Phoebe
view release on metacpan or search on metacpan
$item = first { $_->get_uri->path eq "/raw/" } @list;
ok($item && $item->is_collection, "Found /raw");
$item = first { $_->get_uri->path eq "/file/" } @list;
ok($item && $item->is_collection, "Found /files");
# Attempt to write a file without credentials
my $str = "Ganymede\n";
ok(not($dav->put(-local=>\$str, -url=>"https://$host:$port/raw/M%C3%B6%C3%B6n")),
"Failed to post without token");
# Retry with credentials
$dav->credentials(-user => "alex", -pass => "hello", -realm => "Phoebe");
ok($dav->put(-local=>\$str, -url=>"https://$host:$port/raw/M%C3%B6%C3%B6n"),
"Post gemtext with token");
# /raw
$resource = $dav->propfind(-url=>"/raw", -depth=>1);
App-PhotoDB
view release on metacpan or search on metacpan
t/04-functional.t view on Meta::CPAN
plan tests => 5;
} else {
plan skip_all => 'These tests require Travis CI';
}
# Local test database credentials
my $host = 'localhost';
my $schema = 'photodb';
my $user = 'photodb';
my $pass = 'photodb';
App-PigLatin
view release on metacpan or search on metacpan
t/files/moby11.txt view on Meta::CPAN
*I am aware that down to the present time, the fish styled
Lamatins and Dugongs (Pig-fish and Sow-fish of the Coffins
of Nantucket) are included by many naturalists among the whales.
But as these pig-fish are a noisy, contemptible set,
mostly lurking in the mouths of rivers, and feeding on wet hay,
and especially as they do not spout, I deny their credentials
as whales; and have presented them with their passports to quit
the Kingdom of Cetology.
First: According to magnitude I divide the whales into three primary BOOKS
t/files/moby11.txt view on Meta::CPAN
To produce a mighty book, you must choose a mighty theme.
No great and enduring volume can ever be written on the flea,
though many there be who have tried it.
Ere entering upon the subject of Fossil Whales, I present my
credentials as a geologist, by stating that in my miscellaneous
time I have been a stone-mason, and also a great digger of ditches,
canals and wells, wine-vaults, cellars, and cisterns of all sorts.
Likewise, by way of preliminary, I desire to remind the reader,
that while in the earlier geological strata there are found the fossils
of monsters now almost completely extinct; the subsequent relics
App-Raider
view release on metacpan or search on metacpan
# Claude Code — commit: skills/, agents/, hooks/, settings.json
# Ignore: local overrides, credentials, session data
# Tracked: shared config & extensibility
!/.claude/
.claude/*
!.claude/settings.json
# Local overrides (machine-specific)
.claude/*.local.*
.claude/local/
# Credentials & session state (never track)
.claude/.credentials.json
.claude/statsig/
.claude/todos/
.claude/projects/
# Raider Files
App-RoboBot
view release on metacpan or search on metacpan
lib/App/RoboBot/Plugin/API/Translate.pm view on Meta::CPAN
my $client = $self->bot->config->plugins->{'translate'}{'client'};
my $secret = $self->bot->config->plugins->{'translate'}{'secret'};
my $response = $self->ua->post('https://datamarket.accesscontrol.windows.net/v2/OAuth2-13',
{ grant_type => 'client_credentials',
client_id => $client,
client_secret => $secret,
scope => 'http://api.microsofttranslator.com' });
return 0 unless $response->is_success;
( run in 0.651 second using v1.01-cache-2.11-cpan-39bf76dae61 )