blob: 4a0e02cd05dbbb5ffe3daf31fd104e3746d3e6f8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
package Resign;
use strict;
use Parallel::ForkManager;
use File::Glob ':glob';
use File::Basename;
use Expect;
use BCD::Common qw(:DEFAULT $isoconf $NB_FORK $rpmrc $pwd_file);
our @ISA = qw(Exporter);
our @EXPORT = qw(resign_media);
my $verbose;
my $LOG="MEDIA -";
my $color = "purple";
my $password = `cat $pwd_file`;
my $verbose = "0" ;
sub print_info {
print_color("$LOG i will resign using info in those files: $rpmrc $pwd_file", $color);
}
sub resign_media {
print_info();
my $pm = new Parallel::ForkManager($NB_FORK);
my @list_path;
foreach my $media (@{$isoconf->{media}{list}}) {
push @list_path, $media->{destmedia};
}
foreach (@list_path) {
my @list_pkg = glob("$_/*.rpm");
my $count = @list_pkg;
print_color("$count transactions to do ... be patient !!!!", $color);
my $status = "0";
foreach my $pkg (@list_pkg) {
$pkg or next;
my $basename_pkg = basename($pkg);
$status++;
my $pid = $pm->start and next;
print("$basename_pkg ($status/$count)\n");
my $command = Expect->spawn("LC_ALL=C rpm --rcfile=$rpmrc --resign $pkg") or die "Couldn't start rpm: $!\n";
$command->log_stdout($verbose);
$command->expect(20, -re, 'Enter pass phrase:' => sub { print $command $password; });
$command->expect(undef);
$command->soft_close();
$pm->finish;
}
print_color("Waiting for the end of some signature...", $color);
$pm->wait_all_children;
print_color("all signature are done...", $color);
}
}
1;
|