diff -r 000000000000 -r 98411ab74262 bin/add-missing-orig --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/add-missing-orig Fri Jul 03 15:23:10 2009 +0200 @@ -0,0 +1,41 @@ +#!/usr/bin/perl + +# some packages list the orig.tar.gz in the source package, +# but not in the changes file; reprepro will complain later if +# it cant find the file in the pool; we include the .dsc to +# make sure that the orig.tar.gz is there + +use strict; +use warnings; + +my $incoming = "/home/apt/incoming"; +my $repo = "/home/apt/repo"; +my $cc = "/usr/bin/changestool"; +my $cs = "gpg --clearsign"; + +my @changes = qw( +cyrus-imapd-2.2_2.2.13-6.ius.stable_i386.changes +drbdlinks_1.09-1~ius.3_i386.changes +exigrey_0.1-3_i386.changes +interchange_5.5.1-1.ius.etch.1_i386.changes +libnet-pcap-perl_0.12-hs.1_i386.changes +libnss-ldap_238-1.schlittermann.1_i386.changes +); + +for (@changes) { + + my $c = "$incoming/$_"; + my $cmd; + + print "Attempting to add missing upstream sources for [$c] .. "; + $cmd = "$cc $c includeallsources"; + system($cmd) == 0 or warn "[system($cmd)] failed: [$?] [$!]\n"; + print "done\n"; + + print "Attempting to sign updated changes file [$c] .. "; + $cmd = "$cs $c"; + system($cmd) == 0 or warn "[system($cmd)] failed: [$?] [$!]\n"; + rename("$c.asc", $c) or warn "rename([$c.asc], [$c]) failed: [$!]\n"; + print "done\n"; + +}