--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/sign-unsigned-changes	Fri Jul 03 15:23:10 2009 +0200
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+use File::Find;
+
+my $incoming = "/home/apt/incoming";
+
+my @unsigned = qw(
+
+  freeradius_1.0.0+cvs20040609-0.hs.5_i386.changes
+
+);
+
+my $vc = "gpg --verify";
+my $cc = "gpg --clearsign";
+
+for (@unsigned) {
+
+  my $f = "$incoming/$_";
+
+  # since we use a fixed list of unsigned files we shouldnt sign them twice
+  my $r = qx/$vc $f 2>&1/;
+  next unless $?;
+
+  print "Attempting to sign [$f] .. ";
+  system("$cc $f") == 0 or warn "system([$cc] [$f]) failed: [$?] [$!]\n";
+  rename("$f.asc", $f) or warn "rename([$f.asc], [$f]) failed: [$!]\n";
+  print "finished\n";
+
+}