Result:
found 581 distributions and 1482 files matching your query !
( run in 1.728 )
Dist-Zilla-Stash-GitHub
view release on metacpan or search on metacpan
xt/author/pod-spell.t view on Meta::CPAN
__DATA__
AFAICT
ABEND
RSRCHBOY
RSRCHBOY's
gpg
ini
metaclass
metaclasses
parameterized
parameterization
Dist-Zilla-Stash-Store-Git
view release on metacpan or search on metacpan
xt/author/pod-spell.t view on Meta::CPAN
__DATA__
AFAICT
ABEND
RSRCHBOY
RSRCHBOY's
gpg
ini
metaclass
metaclasses
parameterized
parameterization
Docker-Client
view release on metacpan or search on metacpan
share/specs/v1.25.yaml view on Meta::CPAN
stats:
total_pgmajfault: 0
cache: 0
mapped_file: 0
total_inactive_file: 0
pgpgout: 414
rss: 6537216
total_mapped_file: 0
writeback: 0
unevictable: 0
pgpgin: 477
total_unevictable: 0
pgmajfault: 0
total_rss: 6537216
total_rss_huge: 6291456
total_writeback: 0
share/specs/v1.25.yaml view on Meta::CPAN
hierarchical_memory_limit: 67108864
total_pgfault: 964
total_active_file: 0
active_anon: 6537216
total_active_anon: 6537216
total_pgpgout: 414
total_cache: 0
inactive_anon: 0
active_file: 0
pgfault: 964
inactive_file: 0
total_pgpgin: 477
max_usage: 6651904
usage: 6537216
failcnt: 0
limit: 67108864
blkio_stats: {}
Doit
view release on metacpan or search on metacpan
lib/Doit/Deb.pm view on Meta::CPAN
my $found_key;
if ($key) {
$key =~ s{\s}{}g; # convenience: strip spaces from key ('apt-key finger' returns them with spaces)
local $ENV{LC_ALL} = 'C';
# XXX If run with $sudo, then this will emit warnings in the form
# gpg: WARNING: unsafe ownership on configuration file `$HOME/.gnupg/gpg.conf'
# Annoying, but harmless. Could be workarounded by specifying
# '--homedir=/root/.gpg', but this would create gpg files under ~root. Similar
# if using something like
# local $ENV{HOME} = (getpwuid($<))[7];
# Probably better would be to work with privilege escalation and run
# this command as normal user (to be implemented).
#
# Older Debian (jessie and older?) have only /etc/apt/trusted.gpg,
# newer ones (stretch and newer?) have /etc/apt/trusted.gpg.d/*.gpg
SEARCH_FOR_KEY: {
require File::Glob;
for my $keyfile ('/etc/apt/trusted.gpg', File::Glob::bsd_glob('/etc/apt/trusted.gpg.d/*.gpg')) {
if (-r $keyfile) {
my @cmd = ('gpg', '--keyring', $keyfile, '--list-keys', '--fingerprint', '--with-colons');
open my $fh, '-|', @cmd
or error "Running '@cmd' failed: $!";
while(<$fh>) {
if (m{^fpr:::::::::\Q$key\E:$}) {
$found_key = 1;
Dpkg
view release on metacpan or search on metacpan
lib/Dpkg/OpenPGP.pm view on Meta::CPAN
use Dpkg::OpenPGP::ErrorCodes;
my @BACKENDS = qw(
sop
sq
gpg
);
my %BACKEND = (
sop => 'SOP',
sq => 'Sequoia',
gpg => 'GnuPG',
);
sub new {
my ($this, %opts) = @_;
my $class = ref($this) || $this;
EMDIS-ECS
view release on metacpan or search on metacpan
lib/EMDIS/ECS.pm view on Meta::CPAN
$ENV{PGPPATH} = $cfg->PGP_HOMEDIR;
my $passphrase = (defined $encr_out_passphrase and 0 < length $encr_out_passphrase) ?
$encr_out_passphrase : $cfg->PGP_PASSPHRASE;
$ENV{PGPPASS} = $passphrase;
# attempt to execute command - pipe passphrase to cmd, to support usage of gpg1 in place of pgp2
my $result = timelimit_cmd($cfg->T_MSG_PROC, $cmd, $passphrase);
$result = '' if($result =~ /^Status 0x0100/); # ignore exit value = 1
$result = "EMDIS::ECS::pgp2_decrypt(): $result" if $result;
# check signature, if indicated
lib/EMDIS/ECS.pm view on Meta::CPAN
$ENV{PGPPATH} = $cfg->PGP_HOMEDIR;
my $passphrase = (defined $encr_out_passphrase and 0 < length $encr_out_passphrase) ?
$encr_out_passphrase : $cfg->PGP_PASSPHRASE;
$ENV{PGPPASS} = $passphrase;
# attempt to execute command - pipe passphrase to cmd, to support usage of gpg1 in place of pgp2
my $result = timelimit_cmd($cfg->T_MSG_PROC, $cmd, $passphrase);
$result = "EMDIS::ECS::pgp2_encrypt(): $result" if $result;
return $result;
}
lib/EMDIS/ECS.pm view on Meta::CPAN
of PGP and related software.
=item GnuPG Version 2.2 - Additional Notes
The default OpenPGP configuration used by Perl-ECS is intended for use
with GnuPG (gpg) versions 1.4 and 2.0. However, gpg version 2.2 is a
standard component of newer Linux systems such as Ubuntu 18.
For systems using gpg version 2.2, configuration adjustments are needed
in order to enable Perl-ECS to transmit the passphrase to gpg via stdin
(pinentry-mode loopback).
1. Create or edit $GNUPGHOME/gpg-agent.conf, adding the line:
allow-loopback-pinentry
2. Execute the command:
gpg-connect-agent /bye
3. In the ecs.cfg configuration file, revise the OPENPGP_CMD_ENCRYPT and
OPENPGP_CMD_DECRYPT settings to add the following. (If needed, first
uncomment those settings.):
--pinentry-mode loopback
4. If upgrading from an earlier gpg version, use ecstool --tweak to modify
all (addr_r) key IDs in the node table, because the IDs change when the
keyring is converted to gpg 2.2.
=item AMQP Messaging
As an experimental new feature, version 0.41 added support for use of
AMQP messaging as an alternative to email.
Email-Barcode-Decode
view release on metacpan or search on metacpan
t/tdata/msg01.eml view on Meta::CPAN
A24V8/mI1QFOVr9YDjcrliJdhc2cIOk/nHNmIW5IGCq9oaXN21VQC53SCWZhlg5iqGfviPQM
B0gzRBDBLhjMYh2+ZivKVhQdlkXgfxBi0E4jRVDthuFQcqvkr8w4pLdLAhMG+IMmF4v/AJF2
gXZmF0xvuNGk/MF6nx/gaNU+8ad/abVTcvjFnMBQpyXqGWf4h7VDNt7DBc6NzNqt+KgWeHCo
qbtS4UuTIVaD0q41ZLcPIbZ8PP77TLsu9DFT0MG79eXtNhGxd5x6OYsB6nfu8s9SsM1coFAE
fYcVNl1WLuZVMna7zATeOnc7ddThmrQGE8gmvFTRVDwKLM/zlFGoW/eAmSr27hMUBoGRiXld
vDOLewrQP7gG69fef3gpgXkv5/63BURwGNXo7e5zBFVjAI0e0t69QYsWq6o6tvg3s8P5waFY
7cOsq5CyltlQDP7tSVOghjlzBIk6Wi1CxSjmrvJGZYoDV15x/EcOtcEAPgaW1zqHphVHK8MR
yFhY1BO7VrIttKaY3tUA1BgtIiksHMLVuW6vFPHQTwIWuyFqKKC8LNYccHKwATYIpUVmy598
hxSVbqtb0KKDPgBPbtgZoCbBV1aKu6IoWWgAw5AqFJysCNmBTBRUWygSuuJfRAaHf73MLRtr
kdX14i2wG+XuMLodXvUKQyecSrI4FTBiWd61A6VomsldTExyMBbNtagIZz/jQ5gKqGD1WTHM
F07f3iHKvZNK2IL/ALxEFStN3Di+fpG0eI6xY4UqYlo/aJg3xNZFEnsKwHkfZJrQ0Lc6M+6J
Email-Outlook-Message
view release on metacpan or search on metacpan
script/msgconvert
t/basics.t
t/charset.t
t/files/charset.eml
t/files/charset.msg
t/files/gpg_signed.eml
t/files/gpg_signed.msg
t/files/plain_jpeg_attached.eml
t/files/plain_jpeg_attached.msg
t/files/plain_uc_unsent.eml
t/files/plain_uc_unsent.msg
t/files/plain_uc_wc_unsent.eml
t/files/plain_uc_wc_unsent.msg
t/files/plain_unsent.eml
t/files/plain_unsent.msg
t/full_structure.t
t/gpg_signed.t
t/internals.t
t/plain_jpeg_attached.t
t/plain_uc_unsent.t
t/plain_uc_wc_unsent.t
t/plain_unsent.t
Encode-ISO2022
view release on metacpan or search on metacpan
t/iso2022jp2.enc view on Meta::CPAN
0x9740: $(Dg-$BpN$(Dg.$BpK(B $BpL(B $BpMpO$(Dg/(B $(Dg0g1(B $(Ctl$B@D$Av&(B $(Dg2$BLw$(Dg3g4$B@E$(Dg5g6$BpP(B $BHs(B
0x9760: $BpQsSLL$(Dg7$BpR$AXL$BpS$(Dg8$BpT3W$(Dg9$BpV(B $B?Y$(Dg:(B $BpW(B $(Dg;$B7$(B $(Dg<g=g>$BpXp\$(Dg?$BpZ$(Dg@(B $(DgA(B
0x9780: $(DgB$Bp[(B $B3spYp](B $(DgC(B $Bp^(B $B0H(B $Bp_p`$Aw2w3(B $Aw4$(DgDgEgF$B>d$(DgGgH(B $Bpa(B $(DgIgJ(B
0x97a0: $B5G(B $(DgK$Bpd(B $Bpc(B $Bpb(B $Bkq$(DgL$BJ\$(DgM$Aw5(B $(DgNgO$Bpepf$(DgPgQ(B $(DgRgSgT(B $(DgU(B $(DgVgW(B
0x97c0: $(DgX(B $Bpg$(DgYgZ$Bph$(Dg[$Bpi$(Dg\g]$Bpj$(Dg^g_g`(B $(Dgagb(B $B4Z$(Dgc(B $(Dgdgegf(B $(Dgj$Bpk$(Dgggh(B
0x97e0: $(Dgigk(B $(Dgl(B $AN$HM(B $A:+h8h9h:>B$BG#$(Dgm(B $(Dgn$Bpn2;$(Dgo$Bpqpp$(Dgpgq(B $(Dgr$B1$(B $B6A(B
0x9800: $(C{azmp"Lq(B $B9`=g$(Dgs$B?\(B $(Dgt(B $Bps$(Dgvgw$BprMB4hHRF\$(Dgx(B $(Dgy$B?|NN$(Dgu$B7[(B $(Dgz(B $(Dg{(B
0x9820: $(Dg|$Bpv(B $(Dg}$Bpu$(Dh(g~(B $(Dh!$BKKF,$(Dh"h#h$(B $(Dh%h&$B1P$(Dh'(B $Bpwpt$(Cw](B $BIQMjpx$(Dh)(B
0x9840: $(Dh*(B $Bpy$(Dh+(B $(Dh,$Bp{Bj3[3\pz(B $(Dh-h.h/$B4i82$(Dh0h1$B4j$(Dh2h3$BE?(B $BN`(B
0x9860: $(Dh4h5(B $(Dh6h7$B8\(B $(Dh8$Bp|$(Dh9(B $Bp}p~q!(B $Bq#q"$AR36%Gjq|OnK3PkgoMg9K6Y(B
0x9880: $Aq}0dKLq~T$B-AlFD>1r!<U(B $Ar"r#(B $Ar$RCF5(B $AMGr%(B $AS1?ELb(B $Ar&r'QU6nr(r)(B
Encode-JISX0213
view release on metacpan or search on metacpan
t/x0213-1-compatible.enc view on Meta::CPAN
0x6620: $Bf!f"f#f$f%f&f'f(f)f*f+f,f-f.f/f0f1f2f3f4f5f6f7f8f9f:f;f<f=f>f?(B
0x6640: $Bf@fAfBfCfDfEfFfGfHfIfJfKfLfMfNfOfPfQfRfSfTfUfVfWfXfYfZf[f\f]f^f_(B
0x6660: $Bf`fafbfcfdfefffgfhfifjfkflfmfnfofpfqfrfsftfufvfwfxfyfzf{f|f}f~(B
0x6720: $Bg!g"g#g$g%g&g'g(g)g*g+g,g-g.g/g0g1g2g3g4g5g6g7g8g9g:g;g<g=g>g?(B
0x6740: $Bg@gAgBgCgDgEgFgGgHgIgJgKgLgMgNgOgPgQgRgSgTgUgVgWgXgYgZg[g\g]g^g_(B
0x6760: $Bg`gagbgcgdgegfggghgigjgkglgmgngogpgqgrgsgtgugvgwgxgygzg{g|g}g~(B
0x6820: $Bh!h"h#h$h%h&h'h(h)h*h+h,h-h.h/h0h1h2h3h4h5h6h7h8h9h:h;h<h=h>h?(B
0x6840: $Bh@hAhBhChDhEhFhGhHhIhJhKhLhMhNhOhPhQhRhShThUhVhWhXhYhZh[h\h]h^h_(B
0x6860: $Bh`hahbhchdhehfhghhhihjhkhlhmhnhohphqhrhshthuhvhwhxhyhzh{h|h}h~(B
0x6920: $Bi!i"i#i$i%i&i'i(i)i*i+i,i-i.i/i0i1i2i3i4i5i6i7i8i9i:i;i<i=i>i?(B
0x6940: $Bi@iAiBiCiDiEiFiGiHiIiJiKiLiMiNiOiPiQiRiSiTiUiViWiXiYiZi[i\i]i^i_(B
Encode-MAB2
view release on metacpan or search on metacpan
t/00signature.t view on Meta::CPAN
}
unless ($exit_message) {
require Config;
require CPAN::FirstTime;
my @programs = qw(
gpg
);
my $p;
my(@path) = split /$Config::Config{path_sep}/, $ENV{PATH};
require CPAN::FirstTime;
PRG: for $p (@programs) {
Enumeration
view release on metacpan or search on metacpan
lib/Enumeration.pm view on Meta::CPAN
=for gpg
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
=head1 NAME
lib/Enumeration.pm view on Meta::CPAN
can offer only my sincere sympathy and apologies, and promise to
endeavor to improve the software.
=cut
=begin gpg
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.8 (Cygwin)
iEYEARECAAYFAkfqxEIACgkQwoSYc5qQVqrvSwCcDFVRb/5BAIVrA/QB6An8v6UM
srQAoInszO8WzxLTNqpdiwFLHMTyHGSn
=O1zc
-----END PGP SIGNATURE-----
=end gpg
Etcd3
view release on metacpan or search on metacpan
.travis.yml view on Meta::CPAN
matrix:
include:
- perl: 5.24
env: COVERAGE=1 # enables coverage+coveralls reporting
before_install:
- curl https://coreos.com/dist/pubkeys/app-signing-pubkey.gpg | sudo apt-key add -
- wget https://github.com/coreos/etcd/releases/download/${ETCD_VER}/etcd-${ETCD_VER}-linux-amd64.tar.gz -O /tmp/etcd-${ETCD_VER}-linux-amd64.tar.gz
- mkdir -p /tmp/test-etcd
- tar xzvf /tmp/etcd-${ETCD_VER}-linux-amd64.tar.gz -C /tmp/test-etcd --strip-components=1
- /tmp/test-etcd/etcd&
- sleep 3
Exception-Delayed
view release on metacpan or search on metacpan
SHA1 ca37d7b91c2299a98877a6f36d3fab51e8dd906f t/release-pod-coverage.t
SHA1 e7fc4d8f3f29ee522cb53914648393524fc7a6d4 t/release-pod-syntax.t
SHA1 fa6837ca06a46b71bccc2bcc6c83ed89a0e3c1c0 t/scalar.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1
Comment: GPGTools - http://gpgtools.org
iQIcBAEBAgAGBQJVMmYoAAoJEHwWRyBU62lq9KQP/0kk/HoINx0ZnDPSZ2dJvgjF
rc5UHv/sQFge44rCRLmmJR0VFEbG3G1uyfQjJKH9afN64xrzNxhjnHkU8J9JYPra
/qL4VvN85Cg8n7RZ3f03qWwU7dh27h+o/zeTpFLgZwJfUQPY6cLM9qB0QiLwBI9b
4v4b1ulPpGjGLFDVdvFBt7IyxW/4EO6NGWj4EOCS3xviwMSgkwnxewFfKJNBtp4Z
Ezmlm
view release on metacpan or search on metacpan
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
# ===========================================================================
# GpgEzmlm.pm
# $Id$
#
# Object methods for gpg-ezmlm mailing lists
#
# Copyright (C) 2006, Lars Kruse, All Rights Reserved.
# Please send bug reports and comments to devel@sumpfralle.de
#
# This program is free software; you can redistribute it and/or modify
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
The rest is a bit complicated for a Synopsis, see the description.
=head1 DESCRIPTION
Mail::Ezmlm::GpgEzmlm is a Perl module that is designed to provide an object
interface to encrypted mailing lists based upon gpg-ezmlm.
See the gpg-ezmlm web page (http://www.synacklabs.net/projects/crypt-ml/) for
details about this software.
The Mail::Ezmlm::GpgEzmlm class is inherited from the Mail::Ezmlm class.
=cut
# == Begin site dependant variables ==
$GPG_EZMLM_BASE = '/usr/bin'; # Autoinserted by Makefile.PL
$GPG_BIN = '/usr/bin/gpg'; # Autoinserted by Makefile.PL
# == clean up the path for taint checking ==
local $ENV{PATH};
# the following lines were taken from "man perlrun"
$ENV{PATH} = $GPG_EZMLM_BASE;
$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
# check, if gpg-ezmlm is installed
unless (-x "$GPG_EZMLM_BASE/gpg-ezmlm-manage.pl") {
die("Warning: gpg-ezmlm does not seem to be installed - "
. "executable '$GPG_EZMLM_BASE/gpg-ezmlm-manage.pl' not found!");
}
# == Initialiser - Returns a reference to the object ==
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
sub new {
my ($class, $list_dir) = @_;
# call the previous initialization function
my $self = $class->SUPER::new($list_dir);
bless $self, ref $class || $class || 'Mail::Ezmlm::GpgEzmlm';
# define the available (supported) options for gpg-ezmlm ==
@{$self->{SUPPORTED_OPTIONS}} = (
"GnuPG",
"KeyDir",
"RequireSub",
"RequireSigs",
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
} else {
return undef;
}
}
# == convert an existing list to gpg-ezmlm ==
=head2 Converting a plaintext mailing list to an encrypted list:
You need to have a normal list before you can convert it into an encrypted list.
You can create plaintext mailing list with Mail::Ezmlm.
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
}
# the backup directory will contain the old config file and the dotqmails
$backup_dir = _get_config_backup_dir($list_dir);
if ((! -e $backup_dir) && (!mkdir($backup_dir))) {
warn "[GpgEzmlm] failed to create gpg-ezmlm conversion backup dir ("
. "$backup_dir): $!";
return undef;
}
# check the input
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
return undef;
}
# here starts the real conversion - the code is based on
# "gpg-ezmlm-convert.pl" - see http://www.synacklabs.net/projects/crypt-ml/
# update the dotqmail files
return undef unless (_cleanup_dotqmail_files($list_dir, $backup_dir));
# create the new config file, if it did not exist before
unless (-e "$backup_dir/config.gpg-ezmlm") {
if (open(CONFIG_NEW, ">$backup_dir/config.gpg-ezmlm")) {
# just create the empty file (default)
close CONFIG_NEW;
} else {
warn "[GpgEzmlm] failed to create new config file ("
. "$backup_dir/config.gpg-ezmlm): $!";
return undef;
}
}
return undef unless (&_enable_encryption_config_file($list_dir));
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
unless (defined($dot_loc) && ($dot_loc ne '') && (-e $dot_loc)) {
$self->_seterror(-1, 'dotqmail files not found: ' . $dot_loc);
return undef;
}
# start reverting the gpg-ezmlm conversion:
# - restore old dotqmail files
# - restore old config file (if it existed before)
# restore original config file (if it exists)
&_enable_plaintext_config_file($list_dir);
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
# restore the ususal ezmlm-idx config file (for v0.4xx)
&_enable_plaintext_config_file($self->thislist());
# let ezmlm-make do the setup
$result = $self->SUPER::update($options);
# restore the gpg-ezmlm config file
&_enable_encryption_config_file($self->thislist());
# "repair" the dotqmail files (use "gpg-ezmlm-send" instead of "ezmlm-send")
&_cleanup_dotqmail_files($self->thislist());
# return the result of the ezmlm-make run
return $result;
}
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
}
# write the remaining settings to the end of the file
while (($one_opt, $one_val) = each(%ok_switches)) {
print CONFIG_NEW _get_config_line($one_opt, $one_val);
}
# always set the default value for the "gpg" setting explicitely,
# if it was not overriden - otherwise gpg-ezmlm breaks on most
# systems (its default location is /usr/local/bin/gpg)
unless ($gnupg_setting_found) {
print CONFIG_NEW _get_config_line("GnuPG", $GPG_BIN);
}
} else {
$errorstring = "failed to write to temporary config file: $config_file_new";
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
}
return $dot_loc;
}
# return true if the given directory contains a gpg-ezmlm mailing list
sub _is_encrypted {
my $list_dir = shift;
my ($result, $plain_list);
# by default we assume, that the list is not encrypted
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
# return false if we encounter the usual ezmlm-idx-v0.4-header
if ($content =~ /^F:/m) {
# this is a plaintext ezmlm-idx v0.4 mailing list
# this is a valid case - no warning necessary
} else {
# this is a gpg-ezmlm mailing list
$result = 1;
}
} else {
# gpg-ezmlm needs a "config" file - thus the list seems to be plain
# this is a valid case - no warning necessary
}
} else {
# failed to create a plaintext mailing list object
warn "[GpgEzmlm] failed to create Mail::Ezmlm object for: "
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
}
# what is done:
# - copy current dotqmail files to the backup directory
# - replace "ezmlm-send" and "ezmlm-manage" with the gpg-ezmlm replacements
# (in the real dotqmail files)
# This function should be called:
# 1) as part of the plaintext->encryption conversion of a list
# 2) after calling ezmlm-make for an encrypted list (since the dotqmail files
# are overwritten by ezmlm-make)
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
if (open(DOT_ORIG, "<$dot_loc")) {
my $line_found = (0==1);
while (<DOT_ORIG>) {
my $line = $_;
if ($line =~ /ezmlm-send\s+(\S+)/) {
print DOT_NEW "\|$GPG_EZMLM_BASE/gpg-ezmlm-send.pl $1\n";
$line_found = (0==0);
} else {
print DOT_NEW $line;
}
}
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
if (open(DEFAULT_ORIG, "<$dot_loc-default")) {
my $line_found = (0==1);
while (<DEFAULT_ORIG>) {
my $line = $_;
if ($line =~ /ezmlm-manage\s+(\S+)/) {
print DEFAULT_NEW "\|$GPG_EZMLM_BASE/gpg-ezmlm-manage.pl $1\n";
$line_found = (0==0);
} else {
print DEFAULT_NEW $line;
}
}
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
return (0==0);
}
# activate the config file for encryption (gpg-ezmlm)
sub _enable_encryption_config_file {
my $list_dir = shift;
my ($backup_dir);
$backup_dir = _get_config_backup_dir($list_dir);
# check, if the current config file is for gpg-ezmlm or for ezmlm-idx
if (_is_encrypted($list_dir)) {
warn "[GpgEzmlm] I expected a pristine ezmlm-idx config file: "
. "$list_dir/config";
return undef;
}
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
. "$list_dir/config') to '$backup_dir/config.original': $!";
return undef;
}
# copy the encryption config file to the list directory
unless (File::Copy::copy("$backup_dir/config.gpg-ezmlm",
"$list_dir/config")) {
warn "[GpgEzmlm] failed to enable the gpg-ezmlm config file (from '"
. "$backup_dir/config.gpg-ezmlm' to '$list_dir/config'): $!";
return undef;
}
return (0==0);
}
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
my $list_dir = shift;
my ($backup_dir);
$backup_dir = _get_config_backup_dir($list_dir);
# check, if the current config file is for gpg-ezmlm or for ezmlm-idx
unless (_is_encrypted($list_dir)) {
warn "[GpgEzmlm] I expected a config file for gpg-ezmlm: "
. "$list_dir/config";
return undef;
}
# store the current gpg-ezmlm config file
unless (File::Copy::copy("$list_dir/config",
"$backup_dir/config.gpg-ezmlm")) {
warn "[GpgEzmlm] failed to save the current gpg-ezmlm config file ('"
. "$list_dir/config') to '$backup_dir/config.gpg-ezmlm': $!";
return undef;
}
# copy the ezmlm-idx config file to the list directory - or remove the
# currently active gpg-ezmlm config file
if (-e "$backup_dir/config.original") {
unless (File::Copy::copy("$backup_dir/config.original",
"$list_dir/config")) {
warn "[GpgEzmlm] failed to enable the originnal config file (from '"
. "$backup_dir/config.original' to '$list_dir/config': $!";
return undef;
}
} else {
unless (unlink("$list_dir/config")) {
warn "[GpgEzmlm] failed to remove the gpg-ezmlm config file ("
. "$list_dir/config): $!";
return undef;
}
}
Ezmlm/GpgEzmlm.pm view on Meta::CPAN
# where should the dotqmail files and the config file be stored?
sub _get_config_backup_dir {
my $list_dir = shift;
return $list_dir . '/.gpg-ezmlm.backup';
}
# == check version of gpg-ezmlm ==
sub check_gpg_ezmlm_version {
my $ret_value = system("'$GPG_EZMLM_BASE/gpg-ezmlm-convert.pl' --version &>/dev/null");
# for now we do not need a specific version of gpg-ezmlm - it just has to
# know the "--version" argument (available since gpg-ezmlm 0.3.4)
return ($ret_value == 0);
}
# == check if gpg-ezmlm is installed ==
sub is_available {
# the existence of the gpg-ezmlm script is sufficient for now
return -e "$GPG_EZMLM_BASE/gpg-ezmlm-convert.pl";
}
############ some internal functions ##############
# == return an error message if appropriate ==
FB3-Convert
view release on metacpan or search on metacpan
t/examples/fb2/hell_example_133321.fb2 view on Meta::CPAN
<p>Стих иÑпарÑет раÑпроÑтраненный рекламный блок, Ð¾Ñ‚Ñ€Ð¸Ñ†Ð°Ñ Ð¾Ñ‡ÐµÐ²Ð¸Ð´Ð½Ð¾Ðµ. Ритмоединица, как бы Ñто ни казалоÑÑŒ парадокÑальным, фонетичеÑки уч...
</section> <section id="c_6"><title><p>6</p>
</title><p><strong>[Комментарий] </strong>Даже еÑли учеÑÑ‚ÑŒ разреженный газ, заполнÑющий проÑтранÑтво между звездами, то вÑе равно Южное полушарие неÑ...
</section> <section id="c_7"><title><p>7</p>
</title><p><strong>[Комментарий] </strong>ÐšÑƒÐ»ÑŒÐ¼Ð¸Ð½Ð°Ñ†Ð¸Ñ Ð´Ð¸Ñкретно предÑтавлÑет Ñобой агробиогеоценоз, но еÑли бы пеÑен было раз в пÑÑ‚ÑŒ меньше, было бы Ð...
</section> </section> </body> <binary content-type="image/jpeg" id="_1001000.jpg">/9j/4AAQSkZJRgABAQEAeAB4AAD/4QEARXhpZgAATU0AKgAAAAgABQEaAAUAAAABAAAASgEbAAUAAAABAAAAUgEoAAMAAAABAAIAAAExAAIAAAASAAAAWodpAAQAAAABAAAAbAAAAAAAAAB4AAAAAQAAAHgAAAABUGFpbnQu...
FTN-Crypt
view release on metacpan or search on metacpan
t/10-crypt.t
t/data/msg.txt
t/data/nodelist.000
t/data/pointlist.000
t/data/pointlist_zone66
t/data/pubring.gpg
t/data/secring.gpg
t/manifest.t
t/pod-coverage.t
t/pod.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
File-Extension
view release on metacpan or search on metacpan
lib/File/Extension.pm view on Meta::CPAN
'gp5' => 'Guitar Pro 5 Tablature File',
'gpbank' => 'Guitar Pro Sound Bank File',
'gpd' => 'Gamer Profile Data File',
'gpe' => 'GP2X Video Game',
'gpf' => 'Grant Agreement Preparation Form',
'gpg' => 'GNU Privacy Guard Public Keyring',
'gpi' => 'Gerber Photoplotter Information File',
'gpj' => 'jGRASP Project File',
'gpk' => 'WaveLab Audio Peak File',
'gpn' => 'GlidePlan Map Document',
'gpp' => 'Guitar Practiced Perfectly 2 Data File',
File-Listing
view release on metacpan or search on metacpan
corpus/apache-legacy1.html view on Meta::CPAN
$ pgpv apr-1.0.1.tar.gz.asc
<i>or</i>,
$ pgp -ka KEYS
$ pgp apr-1.0.1.tar.gz.asc
<i>or</i>
$ gpg --verify apr-1.0.1.tar.gz.asc
</pre>
<p>
We also offer MD5 hashes as an alternative to validate the
integrity of the downloaded files. See the
File-LsColor
view release on metacpan or search on metacpan
lib/File/LsColor.pm view on Meta::CPAN
*.device=38;5;45:*.mount=38;5;45:*.automount=38;5;45:*.target=38;5;45:
*.path=38;5;45:*.timer=38;5;45:*.snapshot=38;5;45:*.application=38;5;116:
*.cue=38;5;116:*.description=38;5;116:*.directory=38;5;116:*.m3u=38;5;116:
*.m3u8=38;5;116:*.md5=38;5;116:*.properties=38;5;116:*.sfv=38;5;116:
*.srt=38;5;116:*.theme=38;5;116:*.torrent=38;5;116:*.urlview=38;5;116:
*.asc=38;5;192;3:*.enc=38;5;192;3:*.gpg=38;5;192;3:*.signature=38;5;192;3:
*.sig=38;5;192;3:*.p12=38;5;192;3:*.pem=38;5;192;3:*.pgp=38;5;192;3:
*.asc=38;5;192;3:*.enc=38;5;192;3:*.sig=38;5;192;3:*.signature=38;5;192;3:
*.32x=38;5;213:*.cdi=38;5;213:*.fm2=38;5;213:*.rom=38;5;213:*.sav=38;5;213:
*.st=38;5;213:*.a00=38;5;213:*.a52=38;5;213:*.A64=38;5;213:*.a64=38;5;213:
*.a78=38;5;213:*.adf=38;5;213:*.atr=38;5;213:*.gb=38;5;213:*.gba=38;5;213:
File-MimeInfo-Simple
view release on metacpan or search on metacpan
lib/File/MimeInfo/Simple.pm view on Meta::CPAN
gnc: application/x-gnucash
gnucash: application/x-gnucash
gnumeric: application/x-gnumeric
gnuplot: application/x-gnuplot
gp: application/x-gnuplot
gpg: application/pgp-encrypted
gplt: application/x-gnuplot
gra: application/x-graphite
gsf: application/x-font-type1
gtar: application/x-tar
gvp: text/x-google-video-pointer
File-SOPS
view release on metacpan or search on metacpan
Start with **age only**:
- Uses `Crypt::Age` for data key encryption
- Most common for local/team use
Later phases:
- PGP (via Crypt::OpenPGP or gpg CLI)
- AWS KMS
- GCP KMS
- Azure Key Vault
- HashiCorp Vault
Finance-Bank-Bundesschatz
view release on metacpan or search on metacpan
examples/balance-gpg.pl view on Meta::CPAN
#!/usr/bin/perl
# $Id: balance-gpg.pl,v 1.1.1.1 2003/10/08 19:07:06 florian Exp $
use Finance::Bank::Bundesschatz;
use GnuPG::Interface;
use IO::File;
use IO::Handle;
examples/balance-gpg.pl view on Meta::CPAN
print "\n";
}
sub get_secrets {
my $secrets = '/Users/florian/bin/bundesschatz.gpg';
my $cipher = IO::File->new;
my $input = IO::Handle->new;
my $output = IO::Handle->new;
my $gnupg = GnuPG::Interface->new;
my $pid;
Finance-Bank-IE-PermanentTSB
view release on metacpan or search on metacpan
lib/ptsb_util.pm view on Meta::CPAN
# parse config file to retrieve acc_no, password and pan
sub parse_configfile {
my $cfgfile = shift;
my $gpg = `which gpg`;
chop $gpg;
if($gpg =~ /not found/ or not -x $gpg) {
print "You need to install and use GnuPG to secure your config file\n";
print "Please see the documentation on \n".
"http://search.cpan.org/~pallotron/Finance-Bank-IE-PermanentTSB/ptsb\n";
exit -1;
}
lib/ptsb_util.pm view on Meta::CPAN
# use the 'file' command to check the cfgfile
my $res = `file $cfgfile`;
if($res !~ /GPG encrypted data/is) {
# not encrypted: encrypt it!
print("Config file not encrypted. I'm gonna encrypt it!\n");
print("Executing gpg.. \n");
print("You'll have to type the name of the key you want to use\n");
system('gpg -e '.$cfgfile);
# checking exit status
if($? != 0 ) {
# problem with gpg?
print "Exiting...\n";
exit -1;
}
# If file has been create overwrite the original one
if(-e $cfgfile.'.gpg') {
move($cfgfile.'.gpg', $cfgfile);
}
# now the config file is crypted!
}
# decrypt file in memory
my @res = `gpg -d $cfgfile`;
# go thru the lines...
my($user, $pass, $pan);
foreach my $line (@res) {
$line =~ s/\n//g;
Finance-Bank-PSK
view release on metacpan or search on metacpan
examples/balance-gpg.pl view on Meta::CPAN
#!/usr/bin/perl
# $Id: balance-gpg.pl,v 1.1 2003/08/14 21:42:01 florian Exp $
use Finance::Bank::PSK;
use GnuPG::Interface;
use IO::File;
use IO::Handle;
examples/balance-gpg.pl view on Meta::CPAN
);
}
}
sub get_secrets {
my $secrets = '/Users/florian/bin/psk.gpg';
my $cipher = IO::File->new;
my $input = IO::Handle->new;
my $output = IO::Handle->new;
my $gnupg = GnuPG::Interface->new;
my $pid;
Finance-Bank-easybank
view release on metacpan or search on metacpan
examples/balance-gpg.pl view on Meta::CPAN
#!/usr/bin/perl
# $Id: balance-gpg.pl,v 1.3 2003/10/06 20:36:43 florian Exp $
use Finance::Bank::easybank;
use GnuPG::Interface;
use IO::File;
use IO::Handle;
examples/balance-gpg.pl view on Meta::CPAN
print "\n";
}
sub get_secrets {
my $secrets = '/Users/florian/bin/easybank.gpg';
my $cipher = IO::File->new;
my $input = IO::Handle->new;
my $output = IO::Handle->new;
my $gnupg = GnuPG::Interface->new;
my $pid;
Firefox-Marionette
view release on metacpan or search on metacpan
lib/Firefox/Marionette/Extension/HarExportTrigger.pm view on Meta::CPAN
/ycAyESuH+7wlpokt2Rsj9b8+prfNoavjEqpxgY+yOCST/oqyZQZIicp6tD3p++fPDnK3ndtt39C
NJ/Qbk/ushtZ7BDvZBmVe9eFyouqk6SRL/eL6Z2InGC8LU1usKfL6lYnJG7Y/vnu/PWrH17+8val
0JHHCM/ZB7i+lHdUyd4qKjPJ4E18A7J276zWFm37jgiFuGDSy4c4CFJV6US2zHL04zgICX+cbIlv
TGV29Xeyq097s/3/YmWfZXOfdgzMOIIMvwQ3xvI3i/+jimiR69X/AlBLAwQUAAAACACjcLZMeZt+
dHMDAADyBgAAFAAAAE1FVEEtSU5GL21hbmlmZXN0Lm1mnZTHjqNKGIX3foret6bJwS3NggwmuNsE
AzvAmBxcBSY8/e2+wdIMd+PZlFSqU6Xz6Zy/zKgtrikcfngpgEXXvr9gb+huZ0VN+v7S/Hv4VsKu
3YlF9i3k6qwDxZA38P3FFKkXW+Ww7wWn6N3X/sc/svcXgivptq9OVGJJY5EwpkNKcvbz5+77wkPF
ZK98dNH6WYp5jUxVaoKvJ0aS6dv0t/Lr1Yf2aGAqVWHDrdkfALFgclWkFUk3ay8oCLd6F9XgqHQw
JsL8+R/CSeJEU3prLs/az/LOO7UQ8aPcDApSdJeDs06/22eLW79Qnn4+f8hXvbtm7KiF05lLSXdj
P+RxfJCqlcP6OTQyrTwKvaird/Ozj4BN7Eck55tPNLAL6WG/LmIkj0DUF18ZPIvA5VNfuQf06Bc5
gO7+sMQG+fk7Qs8hRrc/aobJaZEyVrL9Gttp151scoPQ6EjWzEEZ0+MZvwRnw+wWGUcC3DYntJ+z
Freq
view release on metacpan or search on metacpan
bin/tokenize-sb view on Meta::CPAN
SB 4 gpb.
SB 4 gpc.
SB 4 gpd.
SB 4 gpe.
SB 4 gpf.
SB 4 gpg.
SB 4 gph.
SB 4 gpi.
SB 4 gpj.
SB 4 gpk.
SB 4 gpl.
( run in 1.728 second using v1.01-cache-2.11-cpan-e1769b4cff6 )