bin/sign-unsigned-dsc-and-changes
branchrsync
changeset 29 677e250ac544
parent 28 8efaf6179ee8
child 30 0cf878dc81be
--- a/bin/sign-unsigned-dsc-and-changes	Mon Sep 19 16:13:57 2011 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,54 +0,0 @@
-#!/usr/bin/perl
-
-# Some source packages come unsigned. This wouldnt be a problem if it wouldnt
-# cause reprepro to spit messages like: 'Data seems not to be signed trying to
-# use directly...' which may be confusing when you think that it is related to
-# a changes file 
-use strict;
-
-use IO::File;
-use File::Basename;
-use Symbol qw(gensym);
-
-my $arch = 'i386';
-my $incoming = "/home/apt/incoming";
-
-my @unsigned = qw(
-
-  nagios-client-check_1.4.5-1.dsc
-  freeradius_1.0.0+cvs20040609-0.hs.dsc
-  libnss-ldap_238-1.schlittermann.1.dsc
-
-);
-
-my $cv = "/usr/bin/gpg --verify";
-my $cc = "/usr/bin/gpg --clearsign";
-my $cu = "/usr/bin/changestool";
-
-for (@unsigned) {
-
-  my $cmd;
-
-  my $sf = "$incoming/$_";
-  (my $cf = $sf) =~ s/\.dsc$/_${arch}.changes/;
-
-  # we assume that the changes have been successfully resigned too when the dsc
-  # files can be verified
-  my $r = qx/$cv $sf 2>&1/;
-  next unless $?;
-
-  print "Attempting to sign [$sf] .. ";
-  $cmd = "$cc $sf";
-  system($cmd) == 0 or warn "[system($cmd)] failed: [$?] [$!]\n";
-  rename("$sf.asc", $sf) or warn "rename([$sf.asc], [$sf]) failed: [$!]\n";
-  print "finished\n";
-
-  print "Attempting to update and sign [$cf] .. ";
-  $cmd = "$cu $cf updatechecksums $sf";
-  system("$cmd") == 0 or warn "[system($cmd)] failed: [$?] [$!]\n";
-  $cmd = "$cc $cf";
-  system($cmd) == 0 or warn "[system($cmd)] failed: [$?] [$!]\n";
-  rename("$cf.asc", $cf) or warn "rename([$cf.asc], [$cf]) failed: [$!]\n";
-  print "finished\n";
-
-}