1.1 --- a/tools/buildbot/package.pl	Sat Sep 06 12:19:33 2008 +0000
     1.2 +++ b/tools/buildbot/package.pl	Sat Sep 06 13:04:54 2008 +0000
     1.3 @@ -5,12 +5,21 @@
     1.4  use File::Basename;
     1.5  use Net::FTP;
     1.6  
     1.7 -my ($ftp_host, $ftp_user, $ftp_pass, $ftp_path);
     1.8 +my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path);
     1.9 +
    1.10 +$ftp_file = shift;
    1.11  
    1.12 -$ftp_host = shift;
    1.13 -$ftp_user = shift;
    1.14 -$ftp_pass = shift;
    1.15 -$ftp_path = shift;
    1.16 +open(FTP, $ftp_file) or die "Unable to read FTP config file $ftp_file: $!\n";
    1.17 +$ftp_host = <FTP>;
    1.18 +$ftp_user = <FTP>;
    1.19 +$ftp_pass = <FTP>;
    1.20 +$ftp_path = <FTP>;
    1.21 +close(FTP);
    1.22 +
    1.23 +chomp $ftp_host;
    1.24 +chomp $ftp_user;
    1.25 +chomp $ftp_pass;
    1.26 +chomp $ftp_path;
    1.27  
    1.28  my ($myself, $path) = fileparse($0);
    1.29  chdir($path);