view release on metacpan or search on metacpan
lib/App/MatrixClient/Matrix.pm view on Meta::CPAN
$self->{matrix} = Net::Async::Matrix->new(
server => $args{server},
( $args{ssl} ? (
SSL => 1,
SSL_verify_mode => 0,
) : () ),
on_log => $dist->curry::fire_sync( 'log' ),
on_presence => sub {
view release on metacpan or search on metacpan
lib/App/MatrixTool/Command/notary.pm view on Meta::CPAN
use base qw( App::MatrixTool );
our $VERSION = '0.08';
use MIME::Base64 qw( decode_base64 );
use Protocol::Matrix qw( verify_json_signature );
use constant DESCRIPTION => "Fetch a server's signing key via another server";
use constant ARGUMENTS => ( "server_name", "via" );
=head1 NAME
lib/App/MatrixTool/Command/notary.pm view on Meta::CPAN
$self->output( "Keys from $result->{server_name} via notary $via" );
$self->output();
my $store = $self->server_key_store;
foreach my $key_id ( keys %{ $result->{verify_keys} } ) {
my $key = decode_base64 $result->{verify_keys}{$key_id}{key};
$self->output( "Key id $key_id" );
$self->output( " " . $self->format_binary( $key ) );
my $ok;
foreach my $signing_server ( keys %{ $result->{signatures} } ) {
foreach my $signing_key_id ( keys %{ $result->{signatures}{$signing_server} } ) {
my $signing_key = $store->get( server => $signing_server, id => $key_id );
next unless defined $signing_key;
my $verified = eval { verify_json_signature( $result,
public_key => $signing_key,
origin => $signing_server,
key_id => $signing_key_id,
); 1 };
view release on metacpan or search on metacpan
lib/App/MechaCPAN.pm view on Meta::CPAN
'verbose|v!',
'quiet|q!',
'no-log!',
'directory|d=s',
'build-reusable-perl!',
'verify!',
'help|h!',
);
# Timeout when there's no output in seconds
our $TIMEOUT = $ENV{MECHACPAN_TIMEOUT} // 60;
lib/App/MechaCPAN.pm view on Meta::CPAN
local $PROJ_DIR = cwd;
local $LOGFH;
local $VERBOSE = $options->{verbose} // $VERBOSE;
local $QUIET = $options->{quiet} // $QUIET;
local $CHKSIGS = $options->{verify} // $CHKSIGS;
my $cmd;
if ( $options->{'build-reusable-perl'} )
{
lib/App/MechaCPAN.pm view on Meta::CPAN
if $expected ne $actual;
return;
}
sub _verify_checksums_body
{
my $chksum_body = shift;
# CHECKSUMS has a very regular pattern. If it doesn't match, we must refuse
# loudly since it appears to be tampered with.
lib/App/MechaCPAN.pm view on Meta::CPAN
return sub
{
my ( $file, $keyring ) = @_;
run_qvf( "gpg", "--no-default-keyring", "--keyring", "$keyring",
"--verify", "$file" );
};
},
sub
{
my $out = eval { run(qw/sq --version/) };
lib/App/MechaCPAN.pm view on Meta::CPAN
if !defined $major || $major < 1;
return sub
{
my ( $file, $keyring ) = @_;
run_qvf( "sq", "verify", "--signer-file", "$keyring", "$file" );
};
},
sub
{
return
if !eval { run(qw/rnp --version/); 1 };
return sub
{
my ( $file, $keyring ) = @_;
run_qvf( "rnp", "--keyfile", "$keyring", "--verify", "$file" );
};
},
);
sub _resolve_verifier
{
state $verify_fn;
if ( !defined $verify_fn )
{
foreach my $verify (@verifier)
{
my $fn = $verify->();
if ( defined $fn )
{
$verify_fn = $fn;
last;
}
}
}
return $verify_fn;
}
sub get_cpan_checksums
{
my $url = shift;
my $key = shift;
# If verify is off, don't check any part of the CHECKSUMS
return
if defined $CHKSIGS && !$CHKSIGS;
die "CHECKSUMS URL must be HTTPS, not '$url'"
unless $url =~ m{\Ahttps://}xmsi;
lib/App/MechaCPAN.pm view on Meta::CPAN
unless $url =~ m{CHECKSUMS\z}xmsi;
# Even if verification is optional, not downloading the CHECKSUMS is fatal
my $checksums = '';
fetch_file( $url, \$checksums );
$checksums = App::MechaCPAN::_verify_checksums_body($checksums);
# If $CHKSIGS is true, we must verify that CHECKSUMS has a valid signature
# If $CHKSIGS is undef, we will verify that CHECKSUMS has a valid signature
# if possible, but won't throw errors if can't.
# In both cases, the CHECKSUMS is used to validate the checksums of the
# downloaded file
# If $CHKSIGS is otherwise false, we already did an early return above
my $verify_fn = _resolve_verifier();
if ( !defined $verify_fn )
{
die "Could not find verification program and verification was required"
if $CHKSIGS;
logmsg "CHECKSUMS signature not checked: PGP verifier not found";
}
lib/App/MechaCPAN.pm view on Meta::CPAN
my $keyring = cpan_keyring();
my $chk_file = humane_tmpfile('CHECKSUMS');
$chk_file->print($checksums);
$chk_file->flush;
$verify_fn->( "$chk_file", $keyring );
logmsg "VALID: $url";
}
my $result = do
{
lib/App/MechaCPAN.pm view on Meta::CPAN
$chksum;
};
# If a module name is passed ($key), then we check if it is listed in the
# CHECKSUMS file. If it is missing, it depends on $CHKSIGS. If it is true
# (strict verify), an error will be produced. If it is undef (best-effort)
# then a log entry will be added, and nothing will be returned, whcih will
# match the no-verify path above.
if ( defined $key && !exists $result->{$key} )
{
die "Could not find module '$key' in CHECKSUMS"
if $CHKSIGS;
logmsg "Could not find '$key' in CHECKSUMS, not attempting to verify";
return;
}
return $result;
}
lib/App/MechaCPAN.pm view on Meta::CPAN
=head2 --no-log
A log is normally outputted into the C<local/logs> directory. This option will prevent a log from being created.
=head2 --verify
When C<--verify> is given, a verification of the CPAN C<CHECKSUMS> file during module install is required. Note that packages from L<BackPAN|https://backpan.perl.org/> will not verify when C<--verify> is given. This process includes three steps after...
=over
=item 1. Confirm the shape of CHECKSUMS
lib/App/MechaCPAN.pm view on Meta::CPAN
Once the CHECKSUMS file has been checked, the size, CPAN author path, and the C<sha256> value of the downloaded module archive are compared against the values from the CHECKSUMS file. These values must match.
=back
You can also disable C<CHECKSUMS> verification completely with C<--no-verify>. That will prevent all of these steps from running at all.
When neither option is provided then the signature checking step is attempted, but will not produce an error if the external verification program could not be found, or the file is from backpan and has no corrisponding C<CHECKSUMS> entry. An error is...
If L<MetaCPAN|https://metacpan.org> was used to find a module, the search will include the SHA256 of the package, which will be checked against the downloaded archive. This check cannot be disabled currently.
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.80.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.80.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.93.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
root/js/ext-3.3.1/ext-all.js view on Meta::CPAN
* Ext JS Library 3.3.1
* Copyright(c) 2006-2010 Sencha Inc.
* licensing@sencha.com
* http://www.sencha.com/license
*/
(function(){var h=Ext.util,k=Ext.each,g=true,i=false;h.Observable=function(){var l=this,m=l.events;if(l.listeners){l.on(l.listeners);delete l.listeners}l.events=m||{}};h.Observable.prototype={filterOptRe:/^(?:scope|delay|buffer|single)$/,fireEvent:fu...
/* SWFObject v2.2 <http://code.google.com/p/swfobject/>
is released under the MIT License <http://www.opensource.org/licenses/mit-license.php>
*/
var swfobject=function(){var F="undefined",t="object",U="Shockwave Flash",Y="ShockwaveFlash.ShockwaveFlash",s="application/x-shockwave-flash",T="SWFObjectExprInst",z="onreadystatechange",Q=window,l=document,v=navigator,V=false,W=[i],q=[],P=[],K=[],n,...
view release on metacpan or search on metacpan
=head2 GitHub Attestations
This distribution now uses
L<GitHub Attestations|https://github.blog/2024-05-02-introducing-artifact-attestations-now-in-public-beta/>,
which allow you to verify that the archive file you have was made from
the official repo.
You need a GitHub account and the L<gh tool|https://github.com/larsks/ghcli>.
# download the distro file from GitHub, MetaCPAN, or a CPAN mirror
$ gh auth login
...follow instructions...
$ gh attestation verify App-Module-Lister-1.23.tar.gz --owner briandfoy
=head2 Getting help
Although I'm happy to hear from module users in private email,
that's the best way for me to forget to do something.
view release on metacpan or search on metacpan
lib/App/ModuleBuildTiny/Dist.pm view on Meta::CPAN
if ($opts{tag}) {
require Git::Wrapper;
my $git = Git::Wrapper->new('.');
die "Dirty state in repository\n" if $git->status->is_dirty;
die "Tag v$meta_version already exists\n" if eval { $git->rev_parse({ quiet => 1, verify => 1}, "v$meta_version") };
}
my $module_name = $self->{meta}->name =~ s/-/::/gr;
my $detected_version = $self->{data}->version($module_name);
die sprintf "Version mismatch between module and meta, did you forgot to run regenerate? (%s versus %s)\n", $detected_version, $meta_version if $detected_version != $meta_version;
view release on metacpan or search on metacpan
lib/App/MtAws/ChildWorker.pm view on Meta::CPAN
my $req = App::MtAws::GlacierRequest->new($self->{options});
my $r = $req->list_vaults($data->{marker});
confess unless $r;
$result = { response => $r };
$console_out = "Getting vault list (".($data->{marker} ? "next page: $data->{marker}" : "first page").")";
} elsif ($action eq 'verify_file') {
my $th = App::MtAws::TreeHash->new();
my $binaryfilename = binaryfilename $data->{filename};
die exception file_is_zero => "File size is zero (and it was not when we read directory listing). Filename: %string filename%",
filename => $data->{filename}
unless -s $binaryfilename;
view release on metacpan or search on metacpan
t/basic_runAt.t view on Meta::CPAN
}
delete $message->{$_} for @$deletes;
is_deeply($message, $expected, $test_name);
}
#verify nothing came in
{ my $message = eval {
local $SIG{ALRM} = sub { die "timed out\n"; };
alarm 2;
return IPC::Transit::receive(qname => 'test_out');
};
t/basic_runAt.t view on Meta::CPAN
{ runAt => $runAt,
source => 'Scheduler',
scheduler_scheduled_key => 'basic_runAt',
}, ['scheduler_create_ts','.ipc_transit_meta','scheduler_send_ts']
);
#verify nothing came in again
{ my $message = eval {
local $SIG{ALRM} = sub { die "timed out\n"; };
alarm 6;
return IPC::Transit::receive(qname => 'test_out');
};
view release on metacpan or search on metacpan
- Allow text properties to stack/unstack.
- Suppress empty text line if there's only [Chords].
- Enhance parameter substitution in titles/comments.
- Allow {chord NAME} to designate known chords.
- Some more fix problems with dot-less @INC in newer perls.
- Add schema to verify (and edit) json config files.
0.75 2017-04-13
- Experimental support for Nashville Numbering System and Roman
- Numbered Chords.
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.79.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.88.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.81.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
public/javascripts/ace/mode-batchfile.js view on Meta::CPAN
var BatchFileHighlightRules = function() {
this.$rules = { start:
[ { token: 'keyword.command.dosbatch',
regex: '\\b(?:append|assoc|at|attrib|break|cacls|cd|chcp|chdir|chkdsk|chkntfs|cls|cmd|color|comp|compact|convert|copy|date|del|dir|diskcomp|diskcopy|doskey|echo|endlocal|erase|fc|find|findstr|format|ftype|graftabl|help|keyb|label|md|mkdir|...
caseInsensitive: true },
{ token: 'keyword.control.statement.dosbatch',
regex: '\\b(?:goto|call|exit)\\b',
caseInsensitive: true },
{ token: 'keyword.control.conditional.if.dosbatch',
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.88.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.88.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
lib/App/Netdisco/Worker/Plugin/Contact.pm view on Meta::CPAN
# confirm the set happened
$snmp->clear_cache;
my $new_data = ($snmp->contact || '');
if ($new_data ne $data) {
return Status->error("verify of contact failed on $device: $new_data");
}
}
# update netdisco DB
$device->update({contact => $data});
view release on metacpan or search on metacpan
lib/App/Netsync.pm view on Meta::CPAN
my $parser = Text::CSV->new;
chomp (my @fields = split (',',<$db>));
$parser->column_names(@fields);
# Filter out fields that are not needed,
# and verify the presence of necessary fields.
my $removed_field_count = 0;
foreach my $i (keys @fields) {
$i -= $removed_field_count;
unless ($fields =~ /(^|,)$fields[$i](,|$)/) {
++$removed_field_count;
view release on metacpan or search on metacpan
Now if you run C<notes list> and there should be one note listed.
This was the file you made when you created your gist.
Feel free to delete this note if you want.
Running C<notes add> will add a new note and it will show up in your gist as a
new file.
Try adding a note and verify that it shows up in your gist on github.
Changes you make via the notes tool should show up in your gist and vice versa.
Have fun!
=item Accessing your last note
view release on metacpan or search on metacpan
lib/App/Office/Contacts/Donations/Util/Validator.pm view on Meta::CPAN
required => 1,
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
return $result;
} # End of donations.
view release on metacpan or search on metacpan
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Int',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Int',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Int',
},
},
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
lib/App/Office/Contacts/Util/Validator.pm view on Meta::CPAN
type => 'Str',
},
}
);
my($result) = $verifier -> verify({$self -> query -> Vars});
$self -> log_result($result);
return $result;
view release on metacpan or search on metacpan
lib/App/Oozie/Deploy.pm view on Meta::CPAN
$log_marker,
);
$self->log_versions if $verbose;
my($update_coord) = $self->_verify_and_compile_all_workflows( $workflows );
if (!$self->secure_cluster) {
# Left in place for historial reasons.
# All clusters should be under Kerberos.
# Possible removal in a future version.
lib/App/Oozie/Deploy.pm view on Meta::CPAN
);
return $success;
}
sub _verify_and_compile_all_workflows {
my $self = shift;
my $workflows = shift;
my $logger = $self->logger;
if ( ! is_arrayref $workflows || ! @{ $workflows } ) {
$logger->logdie( 'Please give one or several workflow name(s) on the command line (glob pattern accepted). Also see --help' );
}
$self->pre_verification( $workflows );
$self->verify_temp_dir;
if ( $self->gitfeatures
&& ! $self->gitforce
) {
$self->verify_git_tag;
}
my $wfs = $self->collect_names_to_deploy( $workflows );
my($total_errors, $validation_errors);
lib/App/Oozie/Deploy.pm view on Meta::CPAN
$sv,
\$validation_errors,
\$total_errors,
) if $self->dump_xml_to_json;
my($spec_validation_errors, $spec_total_errors) = $sv->verify( $workflow );
$validation_errors += $spec_validation_errors;
$total_errors += $spec_total_errors;
$self->create_deployment_meta_file( $dest, $workflow, $total_errors );
lib/App/Oozie/Deploy.pm view on Meta::CPAN
$self->logger->info( sprintf 'Extra validation for %s', $file );
return;
}
sub verify_temp_dir {
my $self = shift;
my $user_setting = $ENV{TMPDIR} || return;
my $logger = $self->logger;
# The path needs to be readable by mapred in order the deploy to be successful
lib/App/Oozie/Deploy.pm view on Meta::CPAN
=head2 upload_to_hdfs
=head2 validate_meta_file
=head2 verify_temp_dir
=head2 write_deployment_meta_file
=head1 Accessors
view release on metacpan or search on metacpan
t/50-openbin.t view on Meta::CPAN
diag "Executing '@command_line'";
}
open(FH, "-|", @command_line) && do {
$output = <FH>;
# temporary use to verify we opened successfully, since we can't record
# $? until the filehandle closes.
$status = 1;
close(FH);
};
view release on metacpan or search on metacpan
lib/App/PAIA/Agent.pm view on Meta::CPAN
my ($class, %options) = @_;
bless {
insecure => !!$options{insecure},
logger => $options{logger},
dumper => $options{dumper},
agent => HTTP::Tiny->new( verify_SSL => (!$options{insecure}) ),
}, $class;
}
sub request {
my $self = shift;
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.79.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
share/title_abbr_iso4.csv view on Meta::CPAN
"Verhütung";"Verhüt.";"ger"
"verhuur";"n.a.";"dut"
"veÌrifi-";"veÌrif.";"fre"
"verificacioÌn";"verif.";"spa"
"verificado";"verif.";"spa"
"verify";"n.a.";"eng"
"verifying";"verif.";"eng"
"verimli-";"veriml.";"tur"
"veÌrit-";"veÌrit.";"fre"
"veritas";"n.a.";"lat"
"Verkauf";"n.a.";"ger"
"verkauf-";"verkauf.";"ger"
view release on metacpan or search on metacpan
bin/pft-grab view on Meta::CPAN
=item B<--picture> | B<-p>
Store the files into the C<I<ROOT>/content/pics> directory and output the
Markdown code required to show it as a picture.
Note that no check is performed on the file format to verify it is actually
a picture.
=item B<--rename>=I<name> | B<-r> I<name>
Rename the file. The alternate file name supplied with this option must
view release on metacpan or search on metacpan
=head2 GitHub Attestations
This distribution now uses
L<GitHub Attestations|https://github.blog/2024-05-02-introducing-artifact-attestations-now-in-public-beta/>,
which allow you to verify that the archive file you have was made from
the official repo.
You need a GitHub account and the L<gh tool|https://github.com/larsks/ghcli>.
# download the distro file from GitHub, MetaCPAN, or a CPAN mirror
$ gh auth login
...follow instructions...
$ gh attestation verify App-PPI-Dumper-1.23.tar.gz --owner briandfoy
=head2 Getting help
Although I'm happy to hear from module users in private email,
that's the best way for me to forget to do something.