--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/resign-revoked	Fri Jul 03 15:23:10 2009 +0200
@@ -0,0 +1,30 @@
+#!/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";
+
+}