end of the move

1 files changed, 41 insertions, 0 deletions

diff --git a/resign_rpm_by_path.pl b/resign_rpm_by_path.pl
new file mode 100755
index 0000000..3807a3e
--- /dev/null
+++ b/resign_rpm_by_path.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Parallel::ForkManager;
+use File::Glob ':glob';
+use File::Basename;
+use Expect;
+
+
+my $NB_FORK=15;
+# password file
+my $pwd_file = "/home/plop/.signature.gpg";
+my $rpmrc = "/home/plop/.rpmrc";
+my $path = $ARGV[0];
+
+$ARGV[0] or die "First arg must be a path to rpm\n";
+
+my $password = `cat $pwd_file`;
+my $verbose = "0" ;
+
+my $pm = new Parallel::ForkManager($NB_FORK);
+my @list_pkg = glob("$path/*.rpm");
+my $count = @list_pkg;
+print "$count transactions to do ... be patient !!!!";
+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 "Waiting for the end of some signature...\n";
+$pm->wait_all_children;
+print "all signature are done...\n";