equal
deleted
inserted
replaced
|
1 #!/usr/bin/perl |
|
2 |
|
3 use strict; |
|
4 use File::Find; |
|
5 use File::Temp; |
|
6 |
|
7 my $incoming = "/home/apt/incoming"; |
|
8 |
|
9 my @tofix = qw( |
|
10 |
|
11 send-config_1.0-1_i386.changes |
|
12 |
|
13 ); |
|
14 |
|
15 my $dc = qq(gpg --batch --yes --decrypt); |
|
16 my $cc = qq(gpg --batch --yes --clearsign); |
|
17 |
|
18 for (@tofix) { |
|
19 |
|
20 my $f = "$incoming/$_"; |
|
21 |
|
22 print "Attempting to resign [$f] .. "; |
|
23 my $t = File::Temp->new()->filename(); |
|
24 my $cmd = "$dc -o $t $f &>/dev/null"; |
|
25 open PIPE, "$cmd |" or warn "Can't open [$cmd |]: [$?] [$!]\n"; |
|
26 $cmd = "$cc -o $f $t"; |
|
27 open PIPE, "$cmd |" or warn "Can't open [$cmd |]: [$?] [$!]\n"; |
|
28 print "finished\n"; |
|
29 |
|
30 } |