bin/resign-expired
branchrsync
changeset 29 677e250ac544
parent 28 8efaf6179ee8
child 30 0cf878dc81be
--- a/bin/resign-expired	Mon Sep 19 16:13:57 2011 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use File::Find;
-use File::Temp;
-
-$ENV{LANG} = "POSIX";
-my $vc = qq(gpg --verify);
-my $dc = qq(gpg --batch --yes --decrypt);
-my $cc = qq(gpg --batch --yes --clearsign);
-#my $expired = "Hinweis: Dieser Schlüssel ist verfallen!";
-my $expired = "Note: This key has expired!";
-
-find(\&f, qw(/home/apt/incoming/));
-
-sub f {
-
-  /\.changes$/ or return;
-  my $f = $_;
-  my $r = qx/$vc $f 2>&1/;
-  return if $?;
-  $r =~ /$expired/ || return;
-  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";
-
-}