#!/usr/bin/perl

use strict;
use File::Find;
use File::Temp;

my $incoming = "/home/apt/incoming";

my @tofix = qw(

  send-config_1.0-1_i386.changes

);

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

for (@tofix) {

  my $f = "$incoming/$_";

  print "Attempting to resign [$f] .. ";
  my $t = File::Temp->new()->filename();
  my $cmd = "$dc -o $t $f &>/dev/null";
  open PIPE, "$cmd |"  or warn "Can't open [$cmd |]: [$?] [$!]\n";
  $cmd = "$cc -o $f $t";
  open PIPE, "$cmd |"  or warn "Can't open [$cmd |]: [$?] [$!]\n";
  print "finished\n";

}
