view release on metacpan or search on metacpan
PGP::Mail - Signature checking for PGP-signed mail messages
=head1 SYNOPSIS
use PGP::Mail;
my $pgpmail=new PGP::Mail($mail, {default-keyring=>"kr.gpg"});
$status=$pgpmail->status();
$keyid=$pgpmail->keyid();
$data=$pgpmail->data();
=head1 DESCRIPTION
if(!$self->{PGPTEXT} && !$self->{PGPMIME}) {
return 0;
}
$self->{gpg}=new GnuPG::Interface;
$self->{gpg}->options->hash_init( %$args );
$self->{gpg}->options->meta_interactive( 0 );
if($self->{PGPTEXT}) {
$self->textpgp(\@lines);
}
else {
stdout=>$output,
stderr=>$error,
status=>$status,
passphrase=>$pp
);
my $pid=$self->{gpg}->decrypt(handles=>$handles);
close $pp;
print $input join "",@$data;
close $input;
stdin=>$input,
stdout=>$output,
stderr=>$error,
status=>$status
);
my $pid=$self->{gpg}->verify(handles=>$handles, command_args=>["-",$fn]);
print $input $signature;
close $input;
$parser=new MIME::Parser;
view release on metacpan or search on metacpan
lib/PGP/Sign.pm view on Meta::CPAN
=for stopwords
Allbery DSS GNUPGHOME GPG GPG1 Gierth Mitzelfelt OpenPGP PGPMoose PGPPATH
TMPDIR canonicalized d'Itri egd keyrings pgpverify ps signcontrol
KEYID --force-v3-sigs --allow-weak-digest-algos --homedir --textmode cleartext
cryptographic gpg gpg1 gpgv homedir interoperable tmpdir
=head1 NAME
PGP::Sign - Create detached PGP signatures for data, securely
lib/PGP/Sign.pm view on Meta::CPAN
trailing spaces when generating or checking cleartext signatures.
=item path
The path to the GnuPG binary to use. If not set, PGP::Sign defaults to
running B<gpg> (as found on the user's PATH) for a C<style> setting of "GPG"
and B<gpg1> (as found on the user's PATH) for a C<style> setting of "GPG1".
PGP::Sign does not support B<gpgv> (it passes options that it does not
understand). This parameter should point to a full GnuPG implementation.
=item style
The style of OpenPGP backend to use, chosen from "GPG" for GnuPG v2 (the
lib/PGP/Sign.pm view on Meta::CPAN
deprecated protocols and cryptographic algorithms with known weaknesses.
=item $PGP::Sign::PGPS
The path to the program used by pgp_sign(). If not set, PGP::Sign defaults to
running B<gpg> (as found on the user's PATH) if $PGP::Sign::PGPSTYLE is set to
"GPG" and B<gpg1> (as found on the user's PATH) if $PGP::Sign::PGPSTYLE is set
to "GPG1".
=item $PGP::Sign::PGPV
The path to the program used by pgp_verify(). If not set, PGP::Sign defaults
to running B<gpg> (as found on the user's PATH) if $PGP::Sign::PGPSTYLE is set
to "GPG" and B<gpg1> (as found on the user's PATH) if $PGP::Sign::PGPSTYLE is
set to "GPG1".
PGP::Sign does not support B<gpgv> (it passes options that it does not
understand). This variable should point to a full GnuPG implementation.
=item $PGP::Sign::TMPDIR
The directory in which temporary files are created. Defaults to whatever
lib/PGP/Sign.pm view on Meta::CPAN
This program is free software; you may redistribute it and/or modify it
under the same terms as Perl itself.
=head1 SEE ALSO
gpg(1), gpg1(1), L<File::Temp>
L<RFC 4880|https://tools.ietf.org/html/rfc4880>, which is the current
specification for the OpenPGP message format.
The current version of PGP::Sign is available from CPAN, or directly from its
view release on metacpan or search on metacpan
lib/PGXN/Site/Locale/en/mirroring.html view on Meta::CPAN
<h1 id="mirroringpgxn">Mirroring PGXN</h1>
<p>Hosting a PGXN mirror is simple. All you need is:</p>
<ul>
<li>A reasonably fast internet connection</li>
view release on metacpan or search on metacpan
lib/POE/Wheel/GnuPG.pm view on Meta::CPAN
# This is called when you can feed input data
ready_to_input_data => sub {
my $input_fh = $_[ARG0];
# In our case, we get the encrypted file handle,
# read from it and feed the gpg input with it
my $encrypted_fh = $_[HEAP]{encrypted_fh};
if (eof($encrypted_fh)) {
# if it's the end of the encrypted file, we signify to the gnupg object
# that it's the end of input
$_[HEAP]{gnupg}->finished_writing_input();
view release on metacpan or search on metacpan
t/94_padre_file_remote.t view on Meta::CPAN
is( $file->basename, 'welcome.msg', 'FTP2: servername' );
ok( $file->exists, 'FTP2: Exists' );
# Test some FTP servers
foreach my $url (
'ftp://ftp.ubuntu.com/ubuntu/project/ubuntu-archive-keyring.gpg',
'ftp://ftp.proftpd.org/README.MIRRORS', # Proftpd
'ftp://ftp.redhat.com/pub/redhat/linux/README', # vsftpd
'ftp://ftp.cisco.com/test.html', # Apache FTP
'ftp://ftp.gwdg.de/pub/mozilla.org/_please_use_ftp5.gwdg.de_', # Empty file
view release on metacpan or search on metacpan
lib/Parallel/MPM/Prefork.pm view on Meta::CPAN
Copyright © 2013 Carsten Gaebler (cgpan Ê‡É gmx ʇop de). All rights reserved.
I only accept encrypted e-mails, either via
L<SMIME|http://cpan.org/authors/id/C/CG/CGPAN/cgpan-smime.crt> or
L<GPG|http://cpan.org/authors/id/C/CG/CGPAN/cgpan-gpg.asc>.
=head1 LICENSE
This program is free software. You can redistribute and/or modify it under the
same terms as Perl itself.
view release on metacpan or search on metacpan
SHA256 305c657c6b73f10767a0ea286b8a73d693940f4cbb8b6a0a4d34e2b5a1c04635 t/author-pod-syntax.t
SHA256 87caa7d303f40d43b1fff1fbc3a69276041d05fa45fb29ec73eb6178cf9fd2e7 t/data/malformed.csv
SHA256 b886013425d0829ef2b5f08b0cb0e44cfdb243e641f2c1d89e346b00c629c429 t/data/newlines.csv
SHA256 86f7262d26e7300d9c23a5dbb7a7479f02798c0659b64937f4aadf905b3ed3ac t/data/simple.csv
-----BEGIN PGP SIGNATURE-----
Comment: GPGTools - http://gpgtools.org
iF0EAREDAB0WIQSty9sFtA6yoqVVVGKCu8wEt++UdgUCX7IFlAAKCRCCu8wEt++U
dqToAJ4oyoGQ1PNoPqipx5lWIaH4MExeQQCeIoo/t3B5jY2NYTacEbd/v8iy76Y=
=4EUa
-----END PGP SIGNATURE-----
view release on metacpan or search on metacpan
lib/Parse/Debian/PackageDesc.pm view on Meta::CPAN
my ($self) = @_;
grep { $_ =~ /\.deb$/ } $self->files;
}
sub execute_gpg_verify {
my ($self) = @_;
my $options = defined $self->{options}->{gpg_homedir} ?
"--homedir '$self->{options}->{gpg_homedir}'" :
"";
my $gpg_cmd_line = "LC_ALL=C gpg $options --verify ".$self->path." 2>&1";
$self->{gpg_verify_output} = `$gpg_cmd_line`;
$self->{gpg_verify_status} = $?;
}
sub gpg_verify_status {
my ($self) = @_;
if (!$self->{gpg_verify_status}) {
$self->execute_gpg_verify;
}
return $self->{gpg_verify_status};
}
sub gpg_verify_output {
my ($self) = @_;
if (!$self->{gpg_verify_output}) {
$self->execute_gpg_verify;
}
return $self->{gpg_verify_output};
}
sub correct_signature {
my ($self) = @_;
return ($self->gpg_verify_status == 0);
}
sub signature_id {
my ($self) = @_;
$self->gpg_verify_output =~ /^gpg: Signature.*ID (\w+)$/m;
return $1;
}
1;
lib/Parse/Debian/PackageDesc.pm view on Meta::CPAN
use Parse::Debian::PackageDesc;
my $changes = Parse::Debian::PackageDesc->new('/path/foo.changes');
my $source = Parse::Debian::PackageDesc->new('/path/foo.dsc');
my $pkg = Parse::Debian::PackageDesc->new($changes_or_dsc,
gpg_homedir => '/dir/gnupg');
print $pkg->name, "\n";
print $pkg->version, "\n";
print $pkg->debian_revision, "\n";
print $pkg->distribution, "\n";
print join(", ", $pkg->binary_packages), "\n";
lib/Parse/Debian/PackageDesc.pm view on Meta::CPAN
=item C<new($path)>
=item C<new($path, %user_opts)>
Creates a new object representing the C<.changes> or C<.dsc> file in C<$path>.
The only valid option for C<%user_opts> is C<gpg_homedir>, which points to the
GNUPG home directory with the appropriate options and keyrings for GPG
signature validation.
=back
lib/Parse/Debian/PackageDesc.pm view on Meta::CPAN
Returns the list of binary package files referenced by the changes/dsc file.
=item C<signature_id>
Returns the key id for the signature of the changes/dsc file, or C<undef> if
there was no signature or there was some error with C<gpg>.
=item C<correct_signature>
Returns whether the the changes/dsc file has a correct signature.
view release on metacpan or search on metacpan
t/files/primary.xml view on Meta::CPAN
<file>/etc/security/console.apps/klaptop_acpi_helper</file>
<file>/usr/bin/kcalc</file>
<file>/usr/bin/kjots</file>
<file>/usr/bin/kwikdisk</file>
<file>/usr/bin/kedit</file>
<file>/usr/bin/kgpg</file>
<file>/usr/bin/superkaramba</file>
<file>/usr/bin/khexedit</file>
<file>/usr/bin/kregexpeditor</file>
<file>/usr/bin/kwalletmanager</file>
<file>/usr/bin/kfloppy</file>
view release on metacpan or search on metacpan
lib/Passwd/Keyring/PWSafe3.pm view on Meta::CPAN
(and use it to protect noticeable number of application-specific
passwords).
Ideas of how to workaround this obstacle are welcome. I loosely
consider either caching master password per desktop session
(implementing sht. similar to ssh-agent/gpg-agent or using one of
those somehow), or integrating the tool with PAM to use actual system
password, or both - but while it seems doable on Linux, cross platform
solution is not so easy.
=cut
view release on metacpan or search on metacpan
SHA1 c71c41e78012d9577c47aa71b6d962e2c70d0e0e t/06-traverse_filt.t
SHA1 108772f2ba8c196345adf814a39a03401031651c t/07-recurseprune.t
SHA1 fa45d6e6ab1cd421349dea4ef527bfd5cdc8a09e t/author-critic.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1
Comment: GPGTools - http://gpgtools.org
iEYEARECAAYFAlev2TgACgkQgrvMBLfvlHbNfwCguaBtTukbgrEvVxj6f+Bnvogc
t98An1YjDI/FNfpJUxLuOFzfrgHEEJzX
=ZvCj
-----END PGP SIGNATURE-----
view release on metacpan or search on metacpan
lib/Peptide/NonSequence.pm view on Meta::CPAN
gpb -5.80
gpc -5.45
gpd -5.58
gpe -4.35
gpf -6.02
gpg -6.02
gph -4.68
gpi -5.26
gpj -7.90
gpk -6.52
gpl -4.74
view release on metacpan or search on metacpan
xtools/my-kwalitee.sh view on Meta::CPAN
if test -z "$DISTVNAME"; then
echo "DISTVNAME not found"
exit 1
fi
if [ -e ~/bin/my-gpg-agent-daemon ]; then
eval `my-gpg-agent-daemon`
echo "gpg-agent $GPG_AGENT_INFO"
fi
TGZ="$DISTVNAME.tar.gz"
make "$TGZ"
view release on metacpan or search on metacpan
share/lib/CPAN/Config.pm.tt view on Meta::CPAN
curl => q[],
ftp => q[C:\\WINDOWS\\system32\\ftp.EXE],
ftp_passive => q[1],
ftp_proxy => q[],
getcwd => q[cwd],
gpg => q[],
gzip => q[ ], #will use perl module if it is ' '
histfile => q[[% self.image_dir_quotemeta %]\\cpan\\histfile],
histsize => q[100],
http_proxy => q[],
inactivity_timeout => q[0],
view release on metacpan or search on metacpan
share/config-files/CPAN_Config.pm.tt view on Meta::CPAN
curl => q[],
ftp => q[C:\\Windows\\system32\\ftp.exe],
ftp_passive => q[1],
ftp_proxy => q[],
getcwd => q[cwd],
gpg => q[],
gzip => q[ ], #will use perl module if it is ' '
halt_on_failure => q[1],
histfile => q[[% image_dir_quotemeta %]\\cpan\\histfile],
histsize => q[1000],
http_proxy => q[],
view release on metacpan or search on metacpan
share-5123/default/lib/CPAN/Config.pm.tt view on Meta::CPAN
'prerequisites_policy' => q[follow],
'make_install_arg' => q[UNINST=1],
'mbuild_install_arg' => q[--uninst 1],
# wish CPAN.pm would leave these disabled, but it doesn't yet
'ftp' => q[ ],
'gpg' => q[ ],
'gzip' => q[ ],
'lynx' => q[ ],
'ncftp' => q[ ],
'ncftpget' => q[ ],
'tar' => q[ ],
view release on metacpan or search on metacpan
share-5123/default/lib/CPAN/Config.pm.tt view on Meta::CPAN
'prerequisites_policy' => q[follow],
'make_install_arg' => q[UNINST=1],
'mbuild_install_arg' => q[--uninst 1],
# wish CPAN.pm would leave these disabled, but it doesn't yet
'ftp' => q[ ],
'gpg' => q[ ],
'gzip' => q[ ],
'lynx' => q[ ],
'ncftp' => q[ ],
'ncftpget' => q[ ],
'tar' => q[ ],
view release on metacpan or search on metacpan
share/vanilla/perl-5.10.0/lib/CPAN/Config.pm view on Meta::CPAN
curl => q[],
ftp => "$system32\\ftp.exe",
ftp_passive => q[1],
ftp_proxy => q[],
getcwd => q[cwd],
gpg => q[],
gzip => q[],
histfile => "$cpan\\histfile",
histsize => q[100],
http_proxy => q[],
inactivity_timeout => q[0],
view release on metacpan or search on metacpan
lib/PerlIO/via/GnuPG.pm view on Meta::CPAN
use IPC::Open3 'open3';
use Symbol 'gensym';
use List::AllUtils 'part';
# gpg --decrypt -q --status-file aksdja --no-tty
# gpg --decrypt -q --status-file aksdja --no-tty .pause.gpg
sub PUSHED {
my ($class, $mode) = @_;
return bless { }, $class;
lib/PerlIO/via/GnuPG.pm view on Meta::CPAN
### pull in all of fh and try to decrypt it...
my $maybe_encrypted = do { local $/; <$fh> };
### $maybe_encrypted
my ($in, $out, $error) = (gensym, gensym, gensym);
my $run = 'gpg -qd --no-tty --command-fd 0';
my $pid = open3($in, $out, $error, $run);
### $pid
print $in $maybe_encrypted;
close $in;
view release on metacpan or search on metacpan
t/reference/composite/CopyRed.miff view on Meta::CPAN
red-primary=0.64,0.33 green-primary=0.3,0.6 blue-primary=0.15,0.06
white-point=0.3127,0.329
date:create=2015-04-15T09:16:22-04:00
date:modify=2015-04-15T09:16:22-04:00
:ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ...
view release on metacpan or search on metacpan
t/data/usr/lib/pkgconfig/gnutls.pc view on Meta::CPAN
Name: GnuTLS
Description: Transport Security Layer implementation for the GNU system
URL: http://www.gnu.org/software/gnutls/
Version: 2.12.10
Libs: -L${libdir} -lgnutls
Libs.private: -lgcrypt -lgpg-error
Requires.private: libtasn1 , zlib
Cflags: -I${includedir}
view release on metacpan or search on metacpan
doc/admin/mock.html view on Meta::CPAN
debuglevel=1
logfile=/var/log/yum.log
reposdir=/dev/null
retries=20
obsoletes=1
gpgcheck=0
assumeyes=1
metadata_expire=60
#repos
[f13base]
name=f13base
baseurl=http://http.pkgs.inf.ed.ac.uk/sites/f13/Everything/i386/os
enabled=1
gpgcheck=0
[f13updates]
name=f13updates
baseurl=http://http.pkgs.inf.ed.ac.uk/sites/f13/updates/i386
enabled=1
gpgcheck=0
[f13world]
name=f13world
baseurl=http://http.pkgs.inf.ed.ac.uk/rpms/layers/world/f13
enabled=1
gpgcheck=0
[f13lcfg]
name=f13lcfg
baseurl=http://http.pkgs.inf.ed.ac.uk/rpms/layers/lcfg/f13
enabled=1
gpgcheck=0
[local]
name=local
baseurl=file:///disk/scratch/mock/results/world/f13
enabled=1
gpgcheck=0
"""
</pre>
<p>The <em>main</em> configuration is pretty much standard. The
view release on metacpan or search on metacpan
local/lib/perl5/Dist/Zilla/Plugin/Git/Tag.pm view on Meta::CPAN
time zone name accepted by DateTime. Defaults to C<local>.
=item * branch - which branch to tag. Defaults to the current branch.
=item * signed - whether to make a GPG-signed tag, using the default
e-mail address's key. Consider setting C<user.signingkey> if C<gpg>
can't find the correct key:
$ git config user.signingkey 450F89EC
=back
view release on metacpan or search on metacpan
lib/Pod/Weaver/Plugin/Ditaa.pm view on Meta::CPAN
| Lots of work |
+-------------------------+
=end text
=for html <p><i>How it works</i><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAaQAAAC2CAIAAAAZR25GAAAWmElEQVR42u2deUxUVxuHXdgRVBalFBdwjWmF1q0CdaXR2NiotW7VqHRRE1uTVpPa2qrVxLhUbdOmVVtRi1ZEFhWLoKLI0iqIsqkoIAyCQBUQRMDl8/t9nHi/KQOXEcZh5s7v+YPce+...
=head1 SYNTAX
The ditaa syntax L<is documented here|http://ditaa.sourceforge.net/#usage>.
view release on metacpan or search on metacpan
xt/author/pod-spell.t view on Meta::CPAN
Gratipay
RSRCHBOY
RSRCHBOY's
codebase
coderef
gpg
implementers
ini
metaclass
metaclasses
parameterization
view release on metacpan or search on metacpan
t/author-pod-spell.t view on Meta::CPAN
__DATA__
AFAICT
ABEND
RSRCHBOY
RSRCHBOY's
gpg
ini
metaclass
metaclasses
parameterized
parameterization
view release on metacpan or search on metacpan
lib/Portable/CPAN.pm view on Meta::CPAN
our $VERSION = '1.23';
# Create the enumerations
our %bin = map { $_ => 1 } qw{
bzip2 curl ftp gpg gzip lynx
ncftp ncftpget pager patch
shell tar unzip wget
};
our %post = map { $_ => 1 } qw{
make_arg make_install_arg makepl_arg
view release on metacpan or search on metacpan
SHA1 a3c8dda4d1320361911c2dc62e4c307ddb7b21eb lib/Probe/Perl.pm
SHA1 fa45d6e6ab1cd421349dea4ef527bfd5cdc8a09e t/author-critic.t
SHA1 3e24f0b5778bc026ffc9d12b30f69aceb25c988d t/basic.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG/MacGPG2 v2.0.17 (Darwin)
Comment: GPGTools - http://gpgtools.org
iEYEARECAAYFAlIDAi4ACgkQgrvMBLfvlHYR0QCeKVkkLIq4AvhgTjmLis70ysMX
JWcAoLIVJChV+STpXVRh9Lbx6pTC5lt+
=HapE
-----END PGP SIGNATURE-----