#!/usr/bin/perl 
#
# Read in upgrade.log and get missing RPMS 
#
# GH - 22.06.05
#
use warnings;
use strict;
use LWP::Simple;

my $url = 'http://download.fedora.redhat.com/pub/fedora/linux/core/4/i386/os/Fedora/RPMS/';

open(RPMS, "<", "./upgrade.log")        
    or die "can't open file: $!\n";

while (<RPMS>) {
    chomp;
    print -e $_ ? "Already downloaded $_\n" : "Downloading $_\n";
    next if (-e $_);
    getstore ($url . $_, $_);
    print -e $_ ? "Got $_\n" : "Download failed for $_\n";
}
close(RPMS)                             
    or die "can't close file: $!";

print "Download complete.\n";