1 #!/usr/bin/perl

     2 

     3 # some packages list the orig.tar.gz in the source package,

     4 # but not in the changes file; reprepro will complain later if

     5 # it cant find the file in the pool; we include the .dsc to

     6 # make sure that the orig.tar.gz is there

     7 

     8 use strict;

     9 use warnings;

    10 

    11 my $incoming = "/home/apt/incoming";

    12 my $repo = "/home/apt/repo";

    13 my $cc = "/usr/bin/changestool";

    14 my $cs = "gpg --clearsign";

    15 

    16 my @changes = qw(

    17 cyrus-imapd-2.2_2.2.13-6.ius.stable_i386.changes

    18 drbdlinks_1.09-1~ius.3_i386.changes

    19 exigrey_0.1-3_i386.changes

    20 interchange_5.5.1-1.ius.etch.1_i386.changes

    21 libnet-pcap-perl_0.12-hs.1_i386.changes

    22 libnss-ldap_238-1.schlittermann.1_i386.changes

    23 );

    24 

    25 for (@changes) {

    26 

    27   my $c = "$incoming/$_";

    28   my $cmd;

    29 

    30   print "Attempting to add missing upstream sources for [$c] .. ";

    31   $cmd = "$cc $c includeallsources";

    32   system($cmd) == 0 or warn "[system($cmd)] failed: [$?] [$!]\n";

    33   print "done\n";

    34 

    35   print "Attempting to sign updated changes file [$c] .. ";

    36   $cmd = "$cs $c";

    37   system($cmd) == 0 or warn "[system($cmd)] failed: [$?] [$!]\n";

    38   rename("$c.asc", $c) or warn "rename([$c.asc], [$c]) failed: [$!]\n";

    39   print "done\n";

    40 

    41 }