3
# Copyright (C) 2001,2002 Progeny Linux Systems, Inc.
4
# Authors: John Goerzen, Branden Robinson
6
# This program is free software; you can redistribute it and/or modify
7
# it under the terms of the GNU General Public License as published by
8
# the Free Software Foundation; either version 2 of the License, or
9
# (at your option) any later version.
11
# This program is distributed in the hope that it will be useful,
12
# but WITHOUT ANY WARRANTY; without even the implied warranty of
13
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
# GNU General Public License for more details.
16
# You should have received a copy of the GNU General Public License
17
# along with this program; if not, write to the Free Software
18
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22
Getopt::Long::Configure('no_ignore_case');
30
my $maint_keyid = $ENV{DEBSIGS_MAINT_ID} ? $ENV{DEBSIGS_MAINT_ID} : '';
31
my $archive_keyid = $ENV{DEBSIGS_ARCHIVE_ID} ? $ENV{DEBSIGS_ARCHIVE_ID} : '';
32
my $origin_keyid = $ENV{DEBSIGS_ORIGIN_ID} ? $ENV{DEBSIGS_ORIGIN_ID} : '';
33
my $secring = $ENV{DEBSIGS_SECRING} ? $ENV{DEBSIGS_SECRING} : "$ENV{HOME}/.gnupg/secring.pgp";
35
GetOptions ('verbose' => \$verbose,
36
'maint=s' => \$maint_keyid,
37
'archive=s' => \$arhive_keyid,
38
'origin=s' => \$origin_keyid,
39
'secring=s' => \$secring);
41
%ids = ('maint' => $maint_keyid,
42
'archive' => $archive_keyid,
43
'origin' => $origin_keyid);
46
unless (defined($tosign[0])) {
48
Usage: debsigs-autosign [options] sigtype [ ... ]
49
Reads package names from standard input, and signs each with debsigs.
51
--archive=KEYID use KEYID for archive signature
52
--maint=KEYID use KEYID for maintainer signature
53
--origin=KEYID use KEYID for origin signature
54
--secring=FILE use FILE as GPG secret keyring
55
--verbose report status messages
59
while (defined($line = <STDIN>)) {
62
print "Signing $line:";
64
foreach $sig (@tosign) {
68
(system("debsigs", "-K", $secring, "--default-key=" .
69
$ids{$sig}, "--sign=$sig", $line) == 0) or die
81
debsigs-autosign - batch-sign Debian package files
85
B<debsigs-autosign> [I<options>] I<sigtype> [ I<...> ]
89
I<debsigs-autosign> reads a newline-delimited list of file names from
90
standard input and runs I<debsigs>(1) on each package, with arguments
91
determined by the options, operands, and environment of
98
=item B<--archive=>I<keyid>
100
=item B<--maint=>I<keyid>
102
=item B<--origin=>I<keyid>
104
The above options specify cryptographic key identifiers for use with
107
=item B<--secring=>I<file>
109
This option identifies a secret keyring file for use with I<gpg>(1).
113
Displays verbose output.
119
Each operand is a signature type to apply to the Debian package(s) to be
120
processed. Currently recongnized signature types are B<archive>,
121
B<maint>, and B<origin>.
125
The following environment variables are recognized by
130
=item I<DEBSIGS_ARCHIVE_ID>
132
=item I<DEBSIGS_MAINT_ID>
134
=item I<DEBSIGS_ORIGIN_ID>
136
The above variables specify cryptographic key identifiers for use with
139
=item I<DEBSIGS_SECRING>
141
This variable identifies a secret keyring file for use with I<gpg>(1).
149
=item John Goerzen <jgoerzen@complete.org>
151
=item Branden Robinson <branden@debian.org>
157
debsigs(1), debsig-verify(1), gpg(1)
161
# vim:set ai et sts=2 sw=2 tw=72: