REDROOM

Navigation

Breadcrumbs

/ / usr / share / perl5 / Dpkg

Create

Create File | Create Folder | Upload Files | Run Command

Edit File Size: 3.99 KB

//usr/share/perl5/Dpkg/OpenPGP.pm

Text Base64

# 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/>.

=encoding utf8

=head1 NAME

Dpkg::OpenPGP - multi-backend OpenPGP support

=head1 DESCRIPTION

This module provides a class for transparent multi-backend OpenPGP support.

B<Note>: This is a private module, its API can change at any time.

=cut

package Dpkg::OpenPGP 0.01;

use strict;
use warnings;

use List::Util qw(none);

use Dpkg::Gettext;
use Dpkg::ErrorHandling;
use Dpkg::IPC;
use Dpkg::Path qw(find_command);

my @BACKENDS = qw(
    sop
    sq
    gpg
);
my %BACKEND = (
    sop => 'SOP',
    sq => 'Sequoia',
    gpg => 'GnuPG',
);

sub new {
    my ($this, %opts) = @_;
    my $class = ref($this) || $this;

my $self = {};
    bless $self, $class;

my $backend = $opts{backend} // 'auto';
    my %backend_opts = (
        cmdv => $opts{cmdv} // 'auto',
        cmd => $opts{cmd} // 'auto',
    );

if ($backend eq 'auto') {
        # Defaults for stateless full API auto-detection.
        $opts{needs}{api} //= 'full';
        $opts{needs}{keystore} //= 0;

if (none { $opts{needs}{api} eq $_ } qw(full verify)) {
            error(g_('unknown OpenPGP api requested %s'), $opts{needs}{api});
        }

$self->{backend} = $self->_auto_backend($opts{needs}, %backend_opts);
    } elsif (exists $BACKEND{$backend}) {
        $self->{backend} = $self->_load_backend($BACKEND{$backend}, %backend_opts);
        if (! $self->{backend}) {
            error(g_('cannot load OpenPGP backend %s'), $backend);
        }
    } else {
        error(g_('unknown OpenPGP backend %s'), $backend);
    }

return $self;
}

sub _load_backend {
    my ($self, $backend, %opts) = @_;

my $module = "Dpkg::OpenPGP::Backend::$backend";
    eval qq{
        require $module;
    };
    return if $@;

return $module->new(%opts);
}

sub _auto_backend {
    my ($self, $needs, %opts) = @_;

foreach my $backend (@BACKENDS) {
        my $module = $self->_load_backend($BACKEND{$backend}, %opts);

if ($needs->{api} eq 'verify') {
            next if ! $module->has_verify_cmd();
        } else {
            next if ! $module->has_backend_cmd();
        }
        next if $needs->{keystore} && ! $module->has_keystore();

return $module;
    }

# Otherwise load a dummy backend.
    return Dpkg::OpenPGP::Backend->new();
}

sub can_use_secrets {
    my ($self, $key) = @_;

return 0 unless $self->{backend}->has_backend_cmd();
    return 0 if $key->type eq 'keyfile' && ! -f $key->handle;
    return 0 if $key->type eq 'keystore' && ! -e $key->handle;
    return 0 unless $self->{backend}->can_use_key($key);
    return 1;
}

sub get_trusted_keyrings {
    my $self = shift;

return $self->{backend}->get_trusted_keyrings();
}

sub armor {
    my ($self, $type, $in, $out) = @_;

return $self->{backend}->armor($type, $in, $out);
}

sub dearmor {
    my ($self, $type, $in, $out) = @_;

return $self->{backend}->dearmor($type, $in, $out);
}

sub inline_verify {
    my ($self, $inlinesigned, $data, @certs) = @_;

return $self->{backend}->inline_verify($inlinesigned, $data, @certs);
}

sub verify {
    my ($self, $data, $sig, @certs) = @_;

return $self->{backend}->verify($data, $sig, @certs);
}

sub inline_sign {
    my ($self, $data, $inlinesigned, $key) = @_;

return $self->{backend}->inline_sign($data, $inlinesigned, $key);
}

=head1 CHANGES

=head2 Version 0.xx

This is a private module.

=cut

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Directory Contents

Dirs: 11 × Files: 30

Sort:

Enable drag-to-move

Name	Size	Perms	Modified	Actions
Build DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Changelog DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Compression DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Control DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Deps DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Dist DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Interface DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
OpenPGP DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Shlibs DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Source DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Vendor DIR	-	drwxr-xr-x	2026-01-23 09:00:34	Edit Download recursive recursive
Arch.pm	14.76 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildAPI.pm	3.33 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildEnv.pm	2.23 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildFlags.pm	14.42 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildInfo.pm	3.07 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildOptions.pm	6.20 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildProfiles.pm	3.93 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildTree.pm	2.13 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
BuildTypes.pm	6.02 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Changelog.pm	20.46 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Checksums.pm	11.04 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Compression.pm	11.94 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Conf.pm	5.77 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Control.pm	7.67 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Deps.pm	14.76 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
ErrorHandling.pm	5.60 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Exit.pm	2.42 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
File.pm	2.06 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Getopt.pm	1.52 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Gettext.pm	5.31 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Index.pm	11.41 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
IPC.pm	11.60 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Lock.pm	2.12 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
OpenPGP.pm	3.99 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Package.pm	2.22 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Path.pm	8.70 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Shlibs.pm	5.69 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Substvars.pm	11.72 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Vendor.pm	8.73 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive
Version.pm	12.86 KB	lrw-r--r--	2025-09-18 17:43:59	Edit Download recursive recursive