OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Dpkg
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/28/2024 06:50:33 AM
rwxr-xr-x
📄
Arch.pm
14.24 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Build
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
BuildFlags.pm
11.59 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
BuildOptions.pm
6.19 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
BuildProfiles.pm
3.42 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Changelog
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Changelog.pm
20.15 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Checksums.pm
11.01 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Compression
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Compression.pm
6.97 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Conf.pm
5.95 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Control
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Control.pm
7.19 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Deps.pm
41.81 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Dist
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
ErrorHandling.pm
5.17 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Exit.pm
2.07 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
File.pm
983 bytes
05/25/2022 11:14:56 AM
rw-r--r--
📄
Getopt.pm
1.21 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Gettext.pm
5.41 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
IPC.pm
11.62 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Index.pm
11.61 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Interface
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Lock.pm
1.87 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
OpenPGP.pm
2.15 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Package.pm
1.26 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Path.pm
7.42 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Shlibs
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Shlibs.pm
4.6 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Source
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Substvars.pm
10.89 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Vars.pm
1.42 KB
05/25/2022 11:14:56 AM
rw-r--r--
📁
Vendor
-
01/31/2023 12:38:17 PM
rwxr-xr-x
📄
Vendor.pm
5.34 KB
05/25/2022 11:14:56 AM
rw-r--r--
📄
Version.pm
11.95 KB
05/25/2022 11:14:56 AM
rw-r--r--
Editing: OpenPGP.pm
Close
# Copyright © 2017 Guillem Jover <guillem@debian.org> # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see <https://www.gnu.org/licenses/>. package Dpkg::OpenPGP; use strict; use warnings; use Exporter qw(import); use File::Copy; use Dpkg::Gettext; use Dpkg::ErrorHandling; use Dpkg::Path qw(find_command); our $VERSION = '0.01'; our @EXPORT = qw( openpgp_sig_to_asc ); sub openpgp_sig_to_asc { my ($sig, $asc) = @_; if (-e $sig) { my $is_openpgp_ascii_armor = 0; open my $fh_sig, '<', $sig or syserr(g_('cannot open %s'), $sig); while (<$fh_sig>) { if (m/^-----BEGIN PGP /) { $is_openpgp_ascii_armor = 1; last; } } close $fh_sig; if ($is_openpgp_ascii_armor) { notice(g_('signature file is already OpenPGP ASCII armor, copying')); copy($sig, $asc); return; } if (not find_command('gpg')) { warning(g_('cannot OpenPGP ASCII armor signature file due to missing gpg')); } open my $fh_asc, '>', $asc or syserr(g_('cannot create signature file %s'), $asc); open my $fh_gpg, '-|', 'gpg', '-o', '-', '--enarmor', $sig or syserr(g_('cannot execute %s program'), 'gpg'); while (my $line = <$fh_gpg>) { next if $line =~ m/^Comment: /; $line =~ s/ARMORED FILE/SIGNATURE/; print { $fh_asc } $line; } close $fh_gpg or subprocerr('gpg'); close $fh_asc or syserr(g_('cannot write signature file %s'), $asc); return $sig; } return; } 1;