#!/usr/bin/perl -w
use strict;
use App::Gnuget;

our $VERSION = '1.930';

sub usage {
    "So this is a simple soft, to get versions of gnu software from their FTP.

gnuget $VERSION ! 
  
Usage:

    gnuget make 3.82 # will get version 3.82 of GNU Make
"}


if (@ARGV < 2) {
    print(usage()); 
    exit(1);
}

my $software = $ARGV[0];
my $version = $ARGV[1];

my $gg = new App::Gnuget;
$gg->populate($software, $version);
$gg->buildFtpCnx();
$gg->download();
$gg->uncompress();
$gg->clean();

__END__

=pod

=head1 NAME

gnuget - grab GNU softwares sources

=head1 VERSION

version 1.930

=head1 SYNOPSIS

    # if you wanna help 
    $ gnuget

    # to really do stuff
    $ gnuget make 3.82

=head1 DESCRIPTION

This script is a grabber for GNU softwares sources. It makes easy and fast to download
sources from the GNU FTP server. 

=head1 AUTHOR

Sandro CAZZANIGA <cazzaniga.sandro@gmail.com>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Sandro CAZZANIGA.

This is free software; you can redistribute it and/or modify it 
under the terms of GNU GPL version 3.

