From 229435ccf04db72401bb5df7d3b015565952fcc5 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Wed, 29 Sep 1999 14:13:47 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V1_0'.

---
 perl-install/ftp.pm | 54 -----------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 perl-install/ftp.pm

(limited to 'perl-install/ftp.pm')

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]));
-}
-- 
cgit v1.2.1