[Clfs-dev] Download utility for final system

[William Harrington]

On Sep 3, 2012, at 09:52 AM, William Harrington wrote:

> Or just use a script to use HTTP::Tiny!

Tada!

#!/usr/bin/perl

use HTTP::Tiny;
my $http = HTTP::Tiny->new;
my $response;

$response = $http->mirror('http://ftp.gnu.org/gnu/wget/ 
wget-1.14.tar.xz', 'wget-1.14.tar.xz');
die "Failed!\n" unless $response->{success};
print "Unchanged!\n" if $response->{status} eq '304';


Sincerely,

William Harrington