[Trolug] PGP Signing Skript in Perl

[Jan Grosser]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Hallo TroLUG!

Ich glaube, mir ist das zu blöd mit caff. Habe mir mein eigenes
Perlskript gebaut (siehe unten). Wenn es den Key auf dem Server
findet, läd es auch das Signing hoch, sonst nicht.

Sicherlich läßt sich noch optimieren, die Keys nicht per Hand ins
Skript zu schreiben.

Gruß, Jan

#!/usr/bin/perl

use strict;
use warnings;

# Define some variables
use vars qw( $pgpbin $keysrv );
$pgpbin="/usr/bin/gpg";
$keysrv="pgp.jjim.de";

# Define the keys from the key signing party
my @keys=qw(
6eab1486 # jan grosser
);

foreach my $key (@keys)
{
        # Fetch key from key server
        system $pgpbin, "--keyserver", $keysrv, "--recv-keys", $key;
        if ($?==0) # Only if key found
        {
                # Show fingerprint of key
                system $pgpbin, "--fingerprint", $key;

                my $answer;
                print "\n\nDo you want to sign the key [y/N]? ";
                chomp ($answer = <>);
                if ($answer=~m/^y$/i)
                {
                        system $pgpbin, "--sign-key", $key;
                        system $pgpbin, "--keyserver", $keysrv,
"--send-key", $$
                } else
                {
                        print "\n\nSkip signing key \"", $key, "\"\n\n\n";
                }
        } else
        {
                print "\n\nERROR fetching from key server, skip key.\n";
        }
        
}
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.13 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://www.enigmail.net/

iEYEARECAAYFAlIbn0EACgkQDvfYEG6rFIav2QCgoWL0bbqptxj990hQmB76U4AF
D0QAoKDSU4LILsNYbdhOi9srajZde0zA
=JA56
-----END PGP SIGNATURE-----
_______________________________________________
Trolug_trolug.de mailing list
trolug@trolug.de
https://ml01.ispgateway.de/mailman/listinfo/trolug_trolug.de