bin/resign-revoked
branchdist
changeset 0 98411ab74262
equal deleted inserted replaced
-1:000000000000 0:98411ab74262
       
     1 #!/usr/bin/perl
       
     2 
       
     3 use strict;
       
     4 use File::Find;
       
     5 use File::Temp;
       
     6 
       
     7 my $incoming = "/home/apt/incoming";
       
     8 
       
     9 my @tofix = qw(
       
    10 
       
    11   send-config_1.0-1_i386.changes
       
    12 
       
    13 );
       
    14 
       
    15 my $dc = qq(gpg --batch --yes --decrypt);
       
    16 my $cc = qq(gpg --batch --yes --clearsign);
       
    17 
       
    18 for (@tofix) {
       
    19 
       
    20   my $f = "$incoming/$_";
       
    21 
       
    22   print "Attempting to resign [$f] .. ";
       
    23   my $t = File::Temp->new()->filename();
       
    24   my $cmd = "$dc -o $t $f &>/dev/null";
       
    25   open PIPE, "$cmd |"  or warn "Can't open [$cmd |]: [$?] [$!]\n";
       
    26   $cmd = "$cc -o $f $t";
       
    27   open PIPE, "$cmd |"  or warn "Can't open [$cmd |]: [$?] [$!]\n";
       
    28   print "finished\n";
       
    29 
       
    30 }