diff options
author | Mystery Man <unknown@mandriva.org> | 1999-09-29 14:13:47 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 1999-09-29 14:13:47 +0000 |
commit | 229435ccf04db72401bb5df7d3b015565952fcc5 (patch) | |
tree | 16ffcdb570219012938b771f1b9ab064114d2b5f /perl-install/ftp.pm | |
parent | ec5cc80aff948eceee5b322bc19cf3e4e65a7c3a (diff) | |
download | drakx-backup-do-not-use-229435ccf04db72401bb5df7d3b015565952fcc5.tar drakx-backup-do-not-use-229435ccf04db72401bb5df7d3b015565952fcc5.tar.gz drakx-backup-do-not-use-229435ccf04db72401bb5df7d3b015565952fcc5.tar.bz2 drakx-backup-do-not-use-229435ccf04db72401bb5df7d3b015565952fcc5.tar.xz drakx-backup-do-not-use-229435ccf04db72401bb5df7d3b015565952fcc5.zip |
This commit was manufactured by cvs2svn to create tag 'V1_0'.V1_0
Diffstat (limited to 'perl-install/ftp.pm')
-rw-r--r-- | perl-install/ftp.pm | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm deleted file mode 100644 index 6e1002840..000000000 --- a/perl-install/ftp.pm +++ /dev/null @@ -1,54 +0,0 @@ -package ftp; - -use Net::FTP; - -use install_any; -use log; - -# non-rentrant!! - -my $retr; - -1; - - -sub new { - my %options = (Passive => 1); - $options{Firewall} = $ENV{PROXY} if $ENV{PROXY}; - $options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT}; - my @l; - unless ($ENV{HOST}) { - # must be in kickstart, using URLPREFIX to find out information - ($ENV{LOGIN}, $ENV{PASSWORD}, $ENV{HOST}, $ENV{PREFIX}) = @l = - $ENV{URLPREFIX} =~ m| - :// - (?: ([^:]*) # login - (?: :([^@]*))? # password - @)? - ([^/]*) # host - /?(.*) # prefix - |x; - } - unless ($ENV{LOGIN}) { - $ENV{LOGIN} = 'anonymous'; - $ENV{PASSWORD} = 'mdkinst@test'; - } - - my $host = $ENV{HOST}; - if ($host !~ /^[.\d]+$/) { - $host = join ".", unpack "C4", (gethostbyname $host)[4]; - } - - my $ftp = Net::FTP->new($host, %options) or die ''; - $ftp->login($ENV{LOGIN}, $ENV{PASSWORD}) or die ''; - $ftp->binary; - - $ftp; -} - - -sub getFile($) { - $ftp ||= new(); - $retr->close if $retr; - $retr = $ftp->retr($ENV{PREFIX} . "/" . install_any::relGetFile($_[0])); -} |