Packager now gets a config file on the command line (more secure for buildbot).
--HG-- extra : convert_revision : svn%3A39bc706e-5318-0410-9160-8a85361fbb7c/trunk%402502
This commit is contained in:
		
							parent
							
								
									16ed584e39
								
							
						
					
					
						commit
						e2791a3702
					
				@ -5,12 +5,21 @@ use Cwd;
 | 
				
			|||||||
use File::Basename;
 | 
					use File::Basename;
 | 
				
			||||||
use Net::FTP;
 | 
					use Net::FTP;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
my ($ftp_host, $ftp_user, $ftp_pass, $ftp_path);
 | 
					my ($ftp_file, $ftp_host, $ftp_user, $ftp_pass, $ftp_path);
 | 
				
			||||||
 | 
					
 | 
				
			||||||
$ftp_host = shift;
 | 
					$ftp_file = shift;
 | 
				
			||||||
$ftp_user = shift;
 | 
					
 | 
				
			||||||
$ftp_pass = shift;
 | 
					open(FTP, $ftp_file) or die "Unable to read FTP config file $ftp_file: $!\n";
 | 
				
			||||||
$ftp_path = shift;
 | 
					$ftp_host = <FTP>;
 | 
				
			||||||
 | 
					$ftp_user = <FTP>;
 | 
				
			||||||
 | 
					$ftp_pass = <FTP>;
 | 
				
			||||||
 | 
					$ftp_path = <FTP>;
 | 
				
			||||||
 | 
					close(FTP);
 | 
				
			||||||
 | 
					
 | 
				
			||||||
 | 
					chomp $ftp_host;
 | 
				
			||||||
 | 
					chomp $ftp_user;
 | 
				
			||||||
 | 
					chomp $ftp_pass;
 | 
				
			||||||
 | 
					chomp $ftp_path;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
my ($myself, $path) = fileparse($0);
 | 
					my ($myself, $path) = fileparse($0);
 | 
				
			||||||
chdir($path);
 | 
					chdir($path);
 | 
				
			||||||
 | 
				
			|||||||
		Loading…
	
		Reference in New Issue
	
	Block a user