minor update

This commit is contained in:
Troy Will 2009-07-10 08:37:31 +04:00
parent 622a137e41
commit 30b1bde485
2 changed files with 8 additions and 4 deletions

View file

@ -46,16 +46,20 @@ sub stow_gnu_software {
my $sth2 = $dbh->prepare('SELECT directory, latest_tarball FROM latest_tarball WHERE gnu_software_id = ?'); my $sth2 = $dbh->prepare('SELECT directory, latest_tarball FROM latest_tarball WHERE gnu_software_id = ?');
$sth2->execute($software_id); $sth2->execute($software_id);
my ( $directory, $tarball ) = $sth2->fetchrow_array; my ( $directory, $tarball ) = $sth2->fetchrow_array;
&download_tarball( $directory, $tarball, $url );
sub download_tarball { sub download_tarball {
my ( $directory, $tarball ) = @_; my ( $directory, $tarball, $url ) = @_;
my $download_command = '';
if ( $tarball ne 'OVERRIDE' ) { if ( $tarball ne 'OVERRIDE' ) {
my $download_command = "wget --no-clobber ${url}${directory}/$tarball"; $download_command = "wget --no-clobber ${url}${directory}/$tarball";
} else { } else {
my $download_command = "wget --no-clobber http://www.mpfr.org/mpfr-current/mpfr-2.4.1.tar.bz2"; $download_command = "wget --no-clobber http://www.mpfr.org/mpfr-current/mpfr-2.4.1.tar.bz2";
} }
print "==== $download_command ====\n";
system ("$download_command"); system ("$download_command");
}
system ("$tar_command $tarball"); system ("$tar_command $tarball");
}
chdir ("$software-$version"); chdir ("$software-$version");
open(OUT, ">stow-$software-$version"); open(OUT, ">stow-$software-$version");
print OUT "#!/bin/bash\n"; print OUT "#!/bin/bash\n";

Binary file not shown.