1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use File::Find;

     5 use File::Temp;

     6 

     7 $ENV{LANG} = "POSIX";

     8 my $vc = qq(gpg --verify);

     9 my $dc = qq(gpg --batch --yes --decrypt);

    10 my $cc = qq(gpg --batch --yes --clearsign);

    11 #my $expired = "Hinweis: Dieser Schlüssel ist verfallen!";

    12 my $expired = "Note: This key has expired!";

    13 

    14 find(\&f, qw(/home/apt/incoming/));

    15 

    16 sub f {

    17 

    18   /\.changes$/ or return;

    19   my $f = $_;

    20   my $r = qx/$vc $f 2>&1/;

    21   return if $?;

    22   $r =~ /$expired/ || return;

    23   print "Attempting to resign [$f] .. ";

    24   my $t = File::Temp->new()->filename();

    25   my $cmd = "$dc -o $t $f &>/dev/null";

    26   open PIPE, "$cmd |"  or warn "Can't open [$cmd |]: [$?] [$!]\n";

    27   $cmd = "$cc -o $f $t";

    28   open PIPE, "$cmd |"  or warn "Can't open [$cmd |]: [$?] [$!]\n";

    29   print "finished\n";

    30 

    31 }