Result:
found 585 distributions and 1490 files matching your query !
( run in 2.983 )
JIRA-REST-Class
view release on metacpan or search on metacpan
lib/JIRA/REST/Class.pm view on Meta::CPAN
The username and password of a JIRA user to use for authentication.
If B<anonymous> is false then, if either B<username> or B<password> isn't
defined the module looks them up in either the C<.netrc> file or via
L<Config::Identity|Config::Identity> (which allows C<gpg> encrypted credentials).
L<Config::Identity|Config::Identity> will look for F<~/.jira-identity> or
F<~/.jira>. You can change the filename stub from C<jira> to a custom stub
with the C<JIRA_REST_IDENTITY> environment variable.
JIRA-REST
view release on metacpan or search on metacpan
lib/JIRA/REST.pm view on Meta::CPAN
representing the usual credentials of a user. They are used as the default
authentication method if no other method above is defined. JIRA::REST uses Basic
HTTP authentication in this case.
If either B<username> or B<password> isn't defined the module looks them up in
either the C<.netrc> file or via L<Config::Identity> (which allows C<gpg>
encrypted credentials).
L<Config::Identity> will look for F<~/.jira-identity> or F<~/.jira>.
You can change the filename stub from C<jira> to a custom stub with the
C<JIRA_REST_IDENTITY> environment variable.
Jcode-CP932
view release on metacpan or search on metacpan
t/cp932-table.jis view on Meta::CPAN
0xe6a0: $Bf!f"f#f$f%f&f'f(f)f*f+f,f-f.f/f0f1f2f3f4f5f6f7f8f9f:f;f<f=f>(B
0xe6c0: $Bf@fAfBfCfDfEfFfGfHfIfJfKfLfMfNfOfPfQfRfSfTfUfVfWfXfYfZf[f\f]f^(B
0xe6e0: $Bf`fafbfcfdfefffgfhfifjfkflfmfnfofpfqfrfsftfufvfwfxfyfzf{f|f}f~(B
0xe7a0: $Bg!g"g#g$g%g&g'g(g)g*g+g,g-g.g/g0g1g2g3g4g5g6g7g8g9g:g;g<g=g>(B
0xe7c0: $Bg@gAgBgCgDgEgFgGgHgIgJgKgLgMgNgOgPgQgRgSgTgUgVgWgXgYgZg[g\g]g^(B
0xe7e0: $Bg`gagbgcgdgegfggghgigjgkglgmgngogpgqgrgsgtgugvgwgxgygzg{g|g}g~(B
0xe8a0: $Bh!h"h#h$h%h&h'h(h)h*h+h,h-h.h/h0h1h2h3h4h5h6h7h8h9h:h;h<h=h>(B
0xe8c0: $Bh@hAhBhChDhEhFhGhHhIhJhKhLhMhNhOhPhQhRhShThUhVhWhXhYhZh[h\h]h^(B
0xe8e0: $Bh`hahbhchdhehfhghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh{h|h}h~(B
0xe9a0: $Bi!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>(B
0xe9c0: $Bi@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^(B
Jcode
view release on metacpan or search on metacpan
t/table.jis view on Meta::CPAN
0xe6a0: $Bf!f"f#f$f%f&f'f(f)f*f+f,f-f.f/f0f1f2f3f4f5f6f7f8f9f:f;f<f=f>(B
0xe6c0: $Bf@fAfBfCfDfEfFfGfHfIfJfKfLfMfNfOfPfQfRfSfTfUfVfWfXfYfZf[f\f]f^(B
0xe6e0: $Bf`fafbfcfdfefffgfhfifjfkflfmfnfofpfqfrfsftfufvfwfxfyfzf{f|f}f~(B
0xe7a0: $Bg!g"g#g$g%g&g'g(g)g*g+g,g-g.g/g0g1g2g3g4g5g6g7g8g9g:g;g<g=g>(B
0xe7c0: $Bg@gAgBgCgDgEgFgGgHgIgJgKgLgMgNgOgPgQgRgSgTgUgVgWgXgYgZg[g\g]g^(B
0xe7e0: $Bg`gagbgcgdgegfggghgigjgkglgmgngogpgqgrgsgtgugvgwgxgygzg{g|g}g~(B
0xe8a0: $Bh!h"h#h$h%h&h'h(h)h*h+h,h-h.h/h0h1h2h3h4h5h6h7h8h9h:h;h<h=h>(B
0xe8c0: $Bh@hAhBhChDhEhFhGhHhIhJhKhLhMhNhOhPhQhRhShThUhVhWhXhYhZh[h\h]h^(B
0xe8e0: $Bh`hahbhchdhehfhghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh{h|h}h~(B
0xe9a0: $Bi!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>(B
0xe9c0: $Bi@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^(B
LedgerSMB-Installer
view release on metacpan or search on metacpan
lib/LedgerSMB/Installer.pm view on Meta::CPAN
}
$log->info( "Downloading release tarball $archive" );
$class->_download( $installpath, $version );
$log->info( "Verifying tarball against gpg public key & signature" );
my $downloaded_tar = File::Spec->catfile( $installpath, $archive );
$dss->verify_sig( $installpath,
$downloaded_tar,
"$downloaded_tar.asc",
$signing_key_data )
Lemonldap-NG-Common
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Common/Conf/DefaultValues.pm view on Meta::CPAN
'globalStorageOptions' => {
'Directory' => '/var/lib/lemonldap-ng/sessions/',
'generateModule' => 'Lemonldap::NG::Common::Apache::Session::Generate::SHA256',
'LockDirectory' => '/var/lib/lemonldap-ng/sessions/lock/'
},
'gpgAuthnLevel' => 5,
'gpgDb' => '',
'grantSessionRules' => {},
'groups' => {},
'handlerInternalCache' => 15,
'handlerServiceTokenTTL' => 30,
'hiddenAttributes' => '_password _2fDevices',
Lemonldap-NG-Manager
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Manager/Attributes.pm view on Meta::CPAN
'generateModule' => 'Lemonldap::NG::Common::Apache::Session::Generate::SHA256',
'LockDirectory' => '/var/lib/lemonldap-ng/sessions/lock/'
},
'type' => 'keyTextContainer'
},
'gpgAuthnLevel' => {
'default' => 5,
'type' => 'int'
},
'gpgDb' => {
'default' => '',
'type' => 'text'
},
'grantSessionRules' => {
'default' => {},
Lemonldap-NG-Portal
view release on metacpan or search on metacpan
lib/Lemonldap/NG/Portal/Auth/GPG.pm view on Meta::CPAN
);
sub init {
my $self = shift;
$self->db( $self->conf->{gpgDb} );
unless ( $self->db ) {
$self->error("gpgDb not set");
return 0;
}
unless ( -r $self->db ) {
$self->error( "Unable to read " . $self->db );
return 0;
lib/Lemonldap/NG/Portal/Auth/GPG.pm view on Meta::CPAN
unless ( $self->ottRule->( $req, {} ) ) {
$self->error("OTT isn't set, unable to use GPG");
}
# Keep token data for later use
my ( $token, $gpgToken );
if ( $token = $req->param('token') ) {
$gpgToken = $self->ott->getToken($token);
$req->data->{tokenVerified} = 1 if ($gpgToken);
}
my $res = $self->SUPER::extractFormInfo($req);
return $res if ($res);
my $signed = $req->data->{password};
unless ( $signed =~ /SIGNATURE/s ) {
lib/Lemonldap/NG/Portal/Auth/GPG.pm view on Meta::CPAN
$self->setSecurity($req);
return PE_BADCREDENTIALS;
}
my ( $out, $err );
$self->logger->debug(
"Launching:\ngpgv --homedir /dev/null --keyring $self->{db} <<EOF\n$signed\nEOF"
);
my ( $lang, $language ) = ( $ENV{LANG}, $ENV{LANGUAGE} );
$ENV{LANG} = $ENV{LANGUAGE} = 'C';
IPC::Run::run( [ 'gpgv', '--homedir', '/dev/null', '--keyring', $self->db ],
\$signed, \$out, \$err, IPC::Run::timeout(10) );
if ( $? >> 8 != 0 ) {
$self->userLogger->error("GPG verification fails:\n$out\n# # #\n$err");
$self->setSecurity($req);
return PE_BADCREDENTIALS;
lib/Lemonldap/NG/Portal/Auth/GPG.pm view on Meta::CPAN
if ( $err =~ /using .*? key (.*)$/m ) {
$key = $1;
chomp $key;
}
else {
$self->logger->error("Unable to parse gpgv result:\n$err");
return PE_ERROR;
}
$self->logger->debug("GPG full sign key: $key");
my $in;
IPC::Run::run( [
'gpg', '--homedir', $self->tmp, '--keyring',
$self->db, '--list-key', $key
],
\$in,
\$out,
\$err,
IPC::Run::timeout(10)
);
( $ENV{LANG}, $ENV{LANGUAGE} ) = ( $lang, $language );
if ( $? >> 8 != 0 ) {
$self->logger->error("gpg --list-key return an error:\n$err");
return PE_ERROR;
}
if ( $out =~ /pub [^\n]*\r?\n +([^\n]+)\n/ ) {
$key = $1;
chomp $key;
}
else {
$self->logger->error(
"Unable to parse gpg --list-key result:\n$out\n$err\n");
return PE_ERROR;
}
$self->logger->debug("GPG full master key: $key");
# Keep only gpgKeyLength characters
my $length = $self->conf->{gpgKeyLength} || 8;
$length = 8 if ( $length < 8 );
$key =~ s/.*?(.{8,$length})$/$1/;
$self->logger->info("User key: $key");
my @identities = ( $out =~ /uid\s+(.*)$/gm );
my $mail = $req->param('user');
foreach (@identities) {
if (/^(.*)\s+<\Q$mail\E>/) {
$req->data->{gpgFullName} = $1;
$req->data->{gpgMail} = $mail;
$req->user($mail);
$self->userLogger->notice("GPG user $mail authenticated");
return PE_OK;
}
}
$self->userLogger->warn("Given mail does not match with gpg key");
$self->setSecurity($req);
return PE_BADCREDENTIALS;
}
sub authenticate {
return PE_OK;
}
sub setAuthSessionInfo {
my ( $self, $req ) = @_;
$req->sessionInfo->{gpgMail} = $req->data->{gpgMail};
$req->sessionInfo->{authenticationLevel} = $self->conf->{gpgAuthnLevel};
return PE_OK;
}
sub authLogout {
return PE_OK;
}
sub getDisplayType {
return "gpgform";
}
1;
Lingua-EN-SENNA
view release on metacpan or search on metacpan
lib/Lingua/EN/SENNA/third-party/senna/hash/words.lst view on Meta::CPAN
gp0
gp0x
gpa
gpb
gpc
gpg
gpi
gpl
gpm
gpo
gprd
Lingua-EN-Segment
view release on metacpan or search on metacpan
share/count_1w.txt view on Meta::CPAN
rampage 1365049
aggravated 1365039
fink 1364952
jurassic 1364811
deem 1364711
gpg 1364699
gnupg 1364527
melville 1364503
cavern 1364330
ene 1363827
sumner 1363674
share/count_1w.txt view on Meta::CPAN
cere 100993
agon 100991
rosi 100989
icwales 100988
traver 100982
gpgme 100982
trots 100981
providential 100978
wellston 100975
gladius 100975
ryedale 100970
share/count_1w.txt view on Meta::CPAN
fluoranthene 81189
mediumship 81188
omidyar 81186
depopulation 81186
untiring 81185
libgpg 81185
wyrm 81184
combustibles 81181
channelnewsasia 81181
eosin 81179
kham 81177
share/count_1w.txt view on Meta::CPAN
strausberg 70996
ionizers 70996
sankara 70995
bco 70995
ecember 70993
agpgart 70991
americium 70990
trickett 70989
archean 70989
adls 70987
jessee 70986
share/count_1w.txt view on Meta::CPAN
trichlorobenzene 31445
privies 31445
boxleitner 31445
atodiad 31445
adscam 31445
gpgga 31444
alcom 31444
abeles 31444
wwwgame 31443
underfill 31443
naturforsch 31443
share/count_1w.txt view on Meta::CPAN
fishimg 28761
concatenative 28761
stromelysin 28760
saimiri 28760
pinacoteca 28760
gpgsm 28760
ccch 28760
sertorius 28759
kamilla 28759
harran 28759
eecipes 28759
share/count_1w.txt view on Meta::CPAN
dacono 25665
blache 25665
bernville 25665
antiangiogenic 25665
overtemperature 25664
gpgle 25664
consulship 25664
capecross 25664
bluejack 25664
behov 25664
sealcolony 25663
share/count_1w.txt view on Meta::CPAN
rody 25442
pointinganglescontainer 25442
lucton 25442
lbz 25442
interforst 25442
gpggle 25442
goolw 25442
gogil 25442
goblle 25442
wwwamsterdam 25441
slaveholder 25441
share/count_1w.txt view on Meta::CPAN
scuppers 20951
reitter 20951
nephropathies 20951
mysqlcc 20951
launderettes 20951
kgpg 20951
consigliere 20951
aircat 20951
targetdistribution 20950
shchedrin 20950
scma 20950
share/count_1w.txt view on Meta::CPAN
mindemoya 13099
mglurs 13099
kosamui 13099
isllc 13099
hattery 13099
gpgol 13099
dourado 13099
dormann 13099
devoirs 13099
cdsl 13099
carbocation 13099
share/count_1w.txt view on Meta::CPAN
nitsa 13038
neurofibromas 13038
jttf 13038
hentgen 13038
haysom 13038
gpggal 13038
globalsign 13038
giannoni 13038
encephalartos 13038
driftless 13038
archeive 13038
share/count_1w.txt view on Meta::CPAN
computerservice 12852
blogsspot 12852
augarten 12852
wyrley 12851
underselling 12851
sgpgi 12851
sarreguemines 12851
reoprts 12851
oberth 12851
luigia 12851
irtp 12851
share/count_1w.txt view on Meta::CPAN
largeboobies 12781
kleyn 12781
itemstatechanged 12781
hukou 12781
healthcares 12781
gpgoe 12781
goolag 12781
freecasinogames 12781
filamin 12781
figga 12781
catwings 12781
share/count_1w.txt view on Meta::CPAN
hooog 12725
hooel 12725
haooh 12725
halloweeb 12725
greesoft 12725
gpgoa 12725
goopel 12725
gooolf 12725
gokog 12725
gohle 12725
gofol 12725
share/count_1w.txt view on Meta::CPAN
gttool 12711
greenwoodparkmall 12711
gpollo 12711
gpoge 12711
gpoga 12711
gpgole 12711
gpgla 12711
gpgel 12711
goyyle 12711
goylo 12711
govle 12711
goteel 12711
goplo 12711
Linux-Info
view release on metacpan or search on metacpan
lib/Linux/Info.pm view on Meta::CPAN
#> cat /tmp/pgswstats.yml
---
pgfault: 397040955
pgmajfault: 4611
pgpgin: 21531693
pgpgout: 49511043
pswpin: 8
pswpout: 272
time: 1236783534.9328
Every time you call the script the initial statistics are loaded/stored from/to
List-Search
view release on metacpan or search on metacpan
get back to you in 7 days, don't wait for me; just email CPANSec.
If the email is addressed to me, I recommend encrypting to the
OpenPGP key identified by the long key ID 9536149F905DC1DB:
$ gpg [--keyserver hkps://...] --recv-keys 9536149F905DC1DB
or by the email address <security@rapidcow.org>:
$ gpg [--auto-key-locate dane,wkd] --locate-keys security@rapidcow.org
Locale-Maketext-Gettext
view release on metacpan or search on metacpan
3. Changes: File edited to widen line limit from 60 columns to 79
columns, to ease the reading.
4. THANKS: Updated.
2005-04-26 version 1.15
1. SIGNATURE: Included Modules::Signature gpg signature file added.
2. 00-signature.t: Added.
2005-04-21 version 1.14
1. maketext: Prototypes of the following subroutines are
declared first now: main() and parse_args().
Lucy
view release on metacpan or search on metacpan
devel/bin/release_commands.pl view on Meta::CPAN
. qq|\$d->addfile(\$fh); print \$d->hexdigest; |
. qq|print " apache-lucy-$x_y_z_version.tar.gz\\n"' > |
. qq| apache-lucy-$x_y_z_version.tar.gz.sha512\n|;
say qq|# Sign the release.|;
say qq|gpg --armor --output apache-lucy-$x_y_z_version.tar.gz.asc |
. qq|--detach-sig apache-lucy-$x_y_z_version.tar.gz\n|;
say qq|# Add the artifacts and commit to the dev area on dist.apache.org.|;
say qq|svn add |
. qq|apache-lucy-$x_y_z_version.tar.gz |
MDV-Distribconf
view release on metacpan or search on metacpan
lib/MDV/Distribconf.pm view on Meta::CPAN
The path or basename of the synthesis. By default, this is the hdlist
name prefixed by C<synthesis>.
=item B<pubkey>
The path or basename of the gpg public key file. By default, this is
the media name prefixed by C<pubkey_>.
=item B<name>
A human-readable name for the media. By default this is the media path
MHonArc
view release on metacpan or search on metacpan
lib/mhopt.pl view on Meta::CPAN
'modtime', # Set modification time on files to message date
'months=s', # Month names
'monthsabr=s', # Abbreviated month names
'msgexcfilter=s',
# Perl expression(s) for selective message exclusion
'msgpgs', # Create message pages
'msgsep=s', # Message separator for mailbox files
'msgprefix=s', # Filename prefix for message files
'multipg', # Generate multi-page indexes
'news', # Add links to newsgroups
'newsurl=s', # URL to use for news hyperlinks
lib/mhopt.pl view on Meta::CPAN
'nogziplinks', # Do not add '.gz' extensions to files
'nokeeponrmm', # Delete message files on archive remove
'nolock', # Do no archive locking
'nomailto', # Do not add in mailto links for e-mail addresses
'nomain', # Do not create a main index
'nomsgpgs', # Do not create message pages
'nomodtime', # Do no set modification time on files to message date
'nomultipg', # Do not generate multi-page indexes
'nonews', # Do not add links to newsgroups
'noposixstrftime',
# Use own implementation for time format process
lib/mhopt.pl view on Meta::CPAN
$DoFolRefs = 0 if $opt{'nofolrefs'};
$GzipFiles = 1 if $opt{'gzipfiles'};
$GzipFiles = 0 if $opt{'nogzipfiles'};
$GzipLinks = 1 if $opt{'gziplinks'};
$GzipLinks = 0 if $opt{'nogziplinks'};
$NoMsgPgs = 0 if $opt{'msgpgs'};
$NoMsgPgs = 1 if $opt{'nomsgpgs'};
$SaveRsrcs = 1 if $opt{'saveresources'};
$SaveRsrcs = 0 if $opt{'nosaveresources'};
$SpamMode = 1 if $opt{'spammode'};
$SpamMode = 0 if $opt{'nospammode'};
$KeepOnRmm = 1 if $opt{'keeponrmm'};
MIME-Detect
view release on metacpan or search on metacpan
share/mime-info/freedesktop.org.xml view on Meta::CPAN
<comment>PGP/MIME-encrypted message header</comment>
<magic>
<match type="string" value="-----BEGIN PGP MESSAGE-----" offset="0"/>
</magic>
<glob pattern="*.pgp"/>
<glob pattern="*.gpg"/>
<glob pattern="*.asc" weight="10"/>
<alias type="application/pgp"/>
</mime-type>
<mime-type type="application/pgp-keys">
<comment>PGP keys</comment>
share/mime-info/freedesktop.org.xml view on Meta::CPAN
</magic>
<glob pattern="*.skr"/>
<glob pattern="*.pkr"/>
<glob pattern="*.asc" weight="10"/>
<glob pattern="*.pgp"/>
<glob pattern="*.gpg"/>
<glob pattern="*.key"/>
</mime-type>
<mime-type type="application/pgp-signature">
<comment>Detached OpenPGP signature</comment>
<magic>
<match type="string" value="-----BEGIN PGP SIGNATURE-----" offset="0"/>
</magic>
<glob pattern="*.asc" weight="10"/>
<glob pattern="*.sig"/>
<glob pattern="*.pgp"/>
<glob pattern="*.gpg"/>
</mime-type>
<!-- defined in RFC 2311 -->
<mime-type type="application/pkcs7-mime">
<comment>PKCS#7 file</comment>
<acronym>PKCS</acronym>
MIME-Explode
view release on metacpan or search on metacpan
testmsgs/frag.msg view on Meta::CPAN
kYfhgOMpBVE1XTj/AMfEdfmB+vI0WSsLy2darMlK9mUnGiq/kr/YcU7HGiqqFBNMFlbXGMjpjuea
21Qjrh4VtrI7rbsd02uFT16Y8abdQY80Et40h1fHBSCL5ou2tJ50CwjlIfsqOpyQSCBzVdPkks54
5bmNTEr+m8Tn4gaGuFYCymtxaTap6NlayKkjhRxbqITuXP8Aq5IBtlIxNUz2HyxYeSLG0vbe4N1e
swazs04ll+GsjMp6UyTlY4jIOGt0y0/zxNr8rkaBHqMrr6b3htSzPGOql0FRTC0Twyh/Eq6J5Z0D
R7W71m0kAl+O6gsbyHlHbxncxqGr8Xuy8sLRlJvnaeaBqmteYbC4vUK+kfgtlnVuLMtCpWMCiqP9
+LgpgJFg9vd6pcS6g2pXA01IXFrDblebS3MjU2K/sdshu7CGmil1neaxY6sdIumltpZCViIDlHHK
rsjBfj4/5OA25X5eFPXtOTStK8r+tcWy6g4UmaalWdCac29T4xQHJxLrcYMp1D0vPL248uiGa9tL
OKzMhLQRwKzMACQtTyIXlkJc3oIxycIEjaC1O7v57rT/ANFR3JueQEqpEzEJ0JJHP4D/AK2BNQAo
8kwlufNGm3CRyxL9ZVZJY7aIfG0aCpLNXhy/yGx4i0+DA7gNXWqXLyxvJGlrKqLxiNOaPMpZTxXl
vvy+H7f2ciSW/DwjmmPlryxe2+pJd6kyrbpJzeQSAyvx3B9M/GnJvgocsAcXXavag9D+pi/ZxFqE
7Q8SXUhGNT04kjbJOgiSDs8q862t3ZalNbqJJGlAeO5dKBvEchUFtviyGQno9RoMwA3RPko3mm3C
MIME-Fast
view release on metacpan or search on metacpan
- implement g_mime_cipher_ g_mime_session_ g_mime_gpg_
g_mime_multipart_encrypted_ g_mime_multipart_signed_
Planed for next major release.
MIME-Types
view release on metacpan or search on metacpan
lib/MIME/types.db view on Meta::CPAN
gnucash;application/x-gnucash
gnumeric;application/x-gnumeric
gnuplot;application/x-gnuplot
go;text/x-go
gp;application/x-gnuplot
gpg;application/pgp-encrypted
gph;application/vnd.flographit
gpkg.tar;application/vnd.gentoo.gpkg
gpkg;application/geopackage+sqlite3
gplt;application/x-gnuplot
gpt;x-chemical/x-mopac-graph
lib/MIME/types.db view on Meta::CPAN
p2p-overlay+xml;relo;;
patch-ops-error+xml;xer;;
pdf;pdf;base64;
pdx;pdx;;
pem-certificate-chain;pem;;
pgp-encrypted;pgp,gpg,asc;7bit;
pgp-keys;asc,key,skr,pkr,pgp,gpg;7bit;
pgp-signature;asc,sig,pgp,gpg;base64;
pidf-diff+xml;xml;;
pkcs10;p10;;
pkcs12;p12,pfx;;
pkcs7-mime;p7m,p7c;;
pkcs7-signature;p7s;;
MIME-tools
view release on metacpan or search on metacpan
testmsgs/frag.msg view on Meta::CPAN
kYfhgOMpBVE1XTj/AMfEdfmB+vI0WSsLy2darMlK9mUnGiq/kr/YcU7HGiqqFBNMFlbXGMjpjuea
21Qjrh4VtrI7rbsd02uFT16Y8abdQY80Et40h1fHBSCL5ou2tJ50CwjlIfsqOpyQSCBzVdPkks54
5bmNTEr+m8Tn4gaGuFYCymtxaTap6NlayKkjhRxbqITuXP8Aq5IBtlIxNUz2HyxYeSLG0vbe4N1e
swazs04ll+GsjMp6UyTlY4jIOGt0y0/zxNr8rkaBHqMrr6b3htSzPGOql0FRTC0Twyh/Eq6J5Z0D
R7W71m0kAl+O6gsbyHlHbxncxqGr8Xuy8sLRlJvnaeaBqmteYbC4vUK+kfgtlnVuLMtCpWMCiqP9
+LgpgJFg9vd6pcS6g2pXA01IXFrDblebS3MjU2K/sdshu7CGmil1neaxY6sdIumltpZCViIDlHHK
rsjBfj4/5OA25X5eFPXtOTStK8r+tcWy6g4UmaalWdCac29T4xQHJxLrcYMp1D0vPL248uiGa9tL
OKzMhLQRwKzMACQtTyIXlkJc3oIxycIEjaC1O7v57rT/ANFR3JueQEqpEzEJ0JJHP4D/AK2BNQAo
8kwlufNGm3CRyxL9ZVZJY7aIfG0aCpLNXhy/yGx4i0+DA7gNXWqXLyxvJGlrKqLxiNOaPMpZTxXl
vvy+H7f2ciSW/DwjmmPlryxe2+pJd6kyrbpJzeQSAyvx3B9M/GnJvgocsAcXXavag9D+pi/ZxFqE
7Q8SXUhGNT04kjbJOgiSDs8q862t3ZalNbqJJGlAeO5dKBvEchUFtviyGQno9RoMwA3RPko3mm3C
MToken
view release on metacpan or search on metacpan
lib/MToken.pm view on Meta::CPAN
=head2 get_fingerprint
Returns the fingerprint from local config or ask it
=head2 get_gpgbin
Returns the GNUPG path from local config
=head2 get_manifest
lib/MToken.pm view on Meta::CPAN
}
}
$self->lconfig->set(opensslbin => $opensslbin);
# Ask GnuPG
my $gpgbin = $self->cli_prompt('GnuPG (gpg) program:', $self->lconfig->get("ogpgbin") ||
$self->conf("gpgbin") || which(GPGBIN) || GPGBIN);
unless ($gpgbin) {
return $self->raise("Program GnuPG (gpg) not found. Please install it and try again later");
} else {
my $cmd = [$gpgbin, "--version"];
my $err = "";
my $out = CTK::Util::execute( $cmd, undef, \$err );
if ($err) {
say cyan("#", join(" ", @$cmd));
say STDERR red($err);
}
return $self->raise("Program GnuPG (gpg) not found. Please install it and try again later") unless $out;
unless ($out =~ /^gpg\s+\(GnuPG\)\s+[2-9]\.[0-9]/m) {
say STDERR yellow("GnuPG Version is not correctly. May be some problems");
say cyan($out) if $self->verbosemode;
}
}
$self->lconfig->set(gpgbin => $gpgbin);
# Ask fingerprint
my $fingerprint = $self->get_fingerprint;
$self->lconfig->set(fingerprint => $fingerprint) if $fingerprint;
lib/MToken.pm view on Meta::CPAN
? $db_info{tags}
: decode(locale => $self->cli_prompt('Tags (commas or spaces are tag delimiter):', encode(locale => $db_info{tags} || "")));
# New filename
my $out_file = File::Spec->catfile($self->tempdir, sprintf("%s.gpg", $fname));
#say $out_file;
# Encrypt file to tempdir
my %exest = $self->execmd($self->get_gpgbin, "--encrypt", "--armor", "--quiet", "--recipient", $fingerprint, "--output", $out_file, $in_file);
unless ($exest{status} && -f $out_file) {
$self->raise("Can't encrypt file %s", $in_file);
next;
}
lib/MToken.pm view on Meta::CPAN
$self->error($store->error || sprintf("Store (%s): Unknown error", $store->dsn));
return 0;
}
# Get file names
my $enc_file_path = path($self->tempdir, sprintf("%s.gpg", $filename));
my $dec_file_path = path($self->option("output") || File::Spec->catfile(getcwd(), $filename));
#say explain({enc_file_path => $enc_file_path->to_string, dec_file_path => $dec_file_path->to_string});
# Write file content on disk (spurt, spew; see also Module::Build::Base::_spew)
$enc_file_path->spurt($data{content} || "");
lib/MToken.pm view on Meta::CPAN
$self->error(sprintf("Can't load empty file %s", $enc_file_path->to_string));
return 0;
}
# Decrypt file to tempdir
# gpg -d -q -o $bname $1
my $out_file = $dec_file_path->to_string;
my %exest = $self->execmd($self->get_gpgbin, "--decrypt", "--quiet", "--output", $out_file, $enc_file_path->to_string);
unless ($exest{status} && -e $out_file) {
$self->error(sprintf("Can't decrypt file %s", $enc_file_path->to_string));
my $newfile = $enc_file_path->copy_to(sprintf("%s.gpg", $out_file));
say magenta("The encrypted file has been stored to %s", $newfile->to_string) if filesize($newfile->to_string);
return 0;
}
# Check size
lib/MToken.pm view on Meta::CPAN
say $data{content} || "";
return 1;
}
# Get file names
my $enc_file_path = path($self->tempdir, sprintf("%s.gpg", $filename));
my $dec_file_path = path($self->tempdir, $filename);
# Write file content on disk (spurt, spew; see also Module::Build::Base::_spew)
my $in_file = $enc_file_path->to_string;
$enc_file_path->spurt($data{content} || "");
lib/MToken.pm view on Meta::CPAN
$self->error(sprintf("Can't load empty file %s", $in_file));
return 0;
}
# Decrypt file to tempdir
# gpg -d -q -o $bname $1
my $out_file = $dec_file_path->to_string;
my %exest = $self->execmd($self->get_gpgbin, "--decrypt", "--quiet", "--output", $out_file, $in_file);
unless ($exest{status} && -e $out_file) {
$self->error(sprintf("Can't decrypt file %s", $in_file));
say $data{content} || "";
return 0;
}
lib/MToken.pm view on Meta::CPAN
}
$tar->write($tarball_arch_path->to_string, 1);
chdir $curdir;
# Encrypt file to tempdir
my %exest = $self->execmd($self->get_gpgbin, "--encrypt", "--quiet", "--recipient", $fingerprint, "--output",
$tarball_path->to_string, $tarball_arch_path->to_string);
unless ($exest{status} && -f $tarball_path->to_string) {
$self->error(sprintf("Can't encrypt file %s: %s", $tarball_arch_path->to_string, $exest{error}));
return 0;
}
lib/MToken.pm view on Meta::CPAN
}
}
# Decrypt file
unless (-e $archive_path->to_string) {
my %exest = $self->execmd($self->get_gpgbin, "--decrypt", "--quiet", "--output", $archive_path->to_string, $tarball_path->to_string);
unless ($exest{status} && -e $archive_path->to_string) {
$self->error(sprintf("Can't decrypt file %s: %s", $tarball_path->to_string, $exest{error}));
return 0;
}
$tarball_path->remove;
lib/MToken.pm view on Meta::CPAN
}
sub get_opensslbin {
my $self = shift;
return $self->lconfig->get("opensslbin") || $self->conf("opensslbin") || which(OPENSSLBIN) || OPENSSLBIN;
}
sub get_gpgbin {
my $self = shift;
return $self->lconfig->get("gpgbin") || $self->conf("gpgbin") || which(GPGBIN) || GPGBIN;
}
sub get_server_url {
my $self = shift;
return $self->lconfig->get("server_url") || $self->conf("server_url") || SERVER_URL;
}
lib/MToken.pm view on Meta::CPAN
my $fingerprint = "";
my %exest = ();
# Get public keys info
unless ($self->option("force")) {
%exest = $self->execmd($self->get_gpgbin, "--list-keys");
if ($exest{status}) {
say blue($exest{output} || "no keys found");
}
}
# Get public keys fingerprints
%exest = $self->execmd($self->get_gpgbin, "--list-keys", "--with-colons");
if ($exest{status} && $exest{output}) {
my @fingerprints = map {$_ = uc($1) if /\:([0-9a-f]{16,40})\:/i } grep { /fpr/ } split("\n", $exest{output});
my $fingerprint_default = $fingerprint_cfg || $fingerprints[0] || 'none';
while (1) {
if ($self->option("force")) {
MYDan
view release on metacpan or search on metacpan
lib/MYDan/Collector/Stat.pm view on Meta::CPAN
my ( $keep, $NAME, %eval ) = ( 9, 'TEST' );
my @statcol = ( 1 .. $keep, 'stat', 'group', 'warnning', 'info' );
my %FIXME =
(
PAGE => [ 'pgpgin/s', 'kbhugfree' ],
IO => [ 'tps' ],
LOAD => [ 'runq-sz', 'proc/s', 'cswch/s' ],
MEM => [ 'frmpg/s', 'kbmemfree' ],
SWAP => [ 'kbswpfree', 'pswpin/s' ],
NFS => [ 'call/s', 'scall/s' ],
Mail-Abuse
view release on metacpan or search on metacpan
any concern to you, by all means verify the signature of this file and
contact the author if any discrepancy is detected.
You can find more information about this at the following URL
http://mipagina.cantv.net/lem/gpg/
This information includes the correct keys, fingerprints, etc.Note
that this README file should also be signed.
LICENSE AND WARRANTY
Mail-BIMI
view release on metacpan or search on metacpan
lib/Mail/BIMI/Data/CA/06c167cfebf48d35d62410185e11c5eb-DigiCert-Verified-Mark-Root-CA.pem view on Meta::CPAN
MRkwFwYDVQQLExB3d3cuZGlnaWNlcnQuY29tMScwJQYDVQQDEx5EaWdpQ2VydCBW
ZXJpZmllZCBNYXJrIFJvb3QgQ0EwggIiMA0GCSqGSIb3DQEBAQUAA4ICDwAwggIK
AoICAQDawvvIO7cL04ptZxgLw/YwqDuluiFsMvGsr+vZcfq5c3hKuX0uMrslza91
OFB6SPmbkG2hLErOcaVH0nMnG0RE3AM6dpfhw7qU+n3c6XPS7HlO9ZC57GJeaOXy
b0cmcK2G96WC/VRuB1ZgjqYoq6PP4yjn/DB/Pc+7kjwJ2EDH5BFEnywVq4rH1a+Q
AbVDpxJfCfQZV1VKW+JNtO/KKKX+NlPrtHroSgKiRZ019oWptImyfgpg7j6FNNAT
R8uPsvU5zYJyCDOxKv4MqllMJmUVwGUHF61WnbiZeJsxzb5H5wMpikX4mfdKaIm0
ym2QsHVRazST1bIVvAZThcKPd2EnysQi6XpYpMcpiSRo58ENXZW47M/Ocu7mBCLP
TJEPEC9YG2aCfHxFSz/n6xZR+1rvNPUxcLZ+FNOwZRnHqcqe5TDNQewoC8/AWR0O
dKqu2WgBF40ncXmtm5QnYhlTmBcoPUWfR40bCLJsm4fV2B4hkC5ZCHV/91jpsv7j
hsGkpQpY6n9XWBABW6ZGQWM4jXxybbNmb3u21xx8rEkaIh22is08i41xeV9iLYec
( run in 2.983 seconds using v1.01-cache-2.11-cpan-389fe586d7c )