diff --git a/experimental/gnu-sql b/experimental/gnu-sql index 489b08a..26cbc29 100644 --- a/experimental/gnu-sql +++ b/experimental/gnu-sql @@ -25,11 +25,7 @@ my $dbh = DBI->connect("dbi:SQLite:$database", "", "", {RaiseError => 1, AutoCom &print_mirrors; &print_software; exit if $ARGV[0] eq 'print'; - -#&stow_gnu_software('make'); -#&stow_gnu_software('mdk'); -#&stow_gnu_software('gmp'); -#&stow_gnu_software('gcc'); +&stow_gnu_software($ARGV[0]); ################################################ Subroutines only below this line ############################ @@ -105,7 +101,7 @@ sub populate_gnu_software { $sth_gs->execute(4,'gcc','GNU Compiler Collection', '4.3.3', '2009-04-20'); $sth_gs->execute(5,'gmp','GNU Multiple Precision Arithmetic Library', '4.3.0', '2009-04-20'); $sth_gs->execute(6,'ncurses','Ncurses', '5.7', '2009-04-20'); - + $sth_gs->execute(7,'readline','GNU readline', '6.0', '2009-04-20'); # http://www.alliedquotes.com/mirrors/gnu/gnu/gcc/gcc-4.3.3/gcc-4.3.3.tar.bz2 #################### Populate table latest_tarball #################### @@ -118,6 +114,7 @@ sub populate_gnu_software { $sth_lt->execute(4, 4, 'gcc/gcc-4.3.3', 'gcc-4.3.3.tar.bz2', '2009-04-20'); $sth_lt->execute(5, 5, 'gmp', 'gmp-4.3.0.tar.bz2', '2009-04-20'); $sth_lt->execute(6, 6, 'ncurses', 'ncurses-5.7.tar.gz', '2009-04-20'); + $sth_lt->execute(7, 7, 'readline','readline-6.0.tar.gz','2009-04-20'); } sub populate_gnu_mirrors {