source: soft/build_system/build_system/upload/robot/trunk/root/bin/resign @ 1

#!/usr/bin/perl
# Chmouel Boudjnah <chmouel@mandrakesoft.com>
#       $rcs = ' $Id: resign 871 2004-07-21 08:35:14Z mandrake $ ' ;    

use Expect;

my @corrupted;
my $verbose;
if ($ARGV[0] =~ /^-v$/) {
        $verbose = 1;
        shift;
}

my ($class) = $0 =~ /resign_(.*)/;
my $file = "/root/." . ( $class ? $class : 'signature') . ".gpg";
my $rpmrc = "/root/etc/rpmrc" . ($class ? "_$class" : '');

foreach $rpm_files (@ARGV) {

        #system("rpm -K $rpm_files &> /dev/null");
        # if the package is already signed the -K fails, but the package should be resigned. 
        # if ("$?" != 0) {
        #       push @corrupted, $rpm_files;
        #       print "Corrupted: $rpm_files\n";
        #       next;
        #}
    
    $password = `cat $file`;    
    $command = Expect->spawn("rpm --rcfile=$rpmrc --resign $rpm_files") or die "Couldn't start rpm: $!\n";

    $command->log_stdout($verbose);

    print "Resigning: $rpm_files\n" if $verbose;
    unless (($command->expect(20, -re => 'Enter pass phrase:'))) {};

    print $command $password;
    $command->soft_close();
    system("chown mandrake.rpm $rpm_files");
    exit 0;
}