From 126777bc019a54afb4ec51299f2cf9d2841698aa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 25 Apr 2007 12:26:16 +0000
Subject: re-sync after the big svn loss

---
 perl-install/ftp.pm | 86 -----------------------------------------------------
 1 file changed, 86 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 fe507598a..000000000
--- a/perl-install/ftp.pm
+++ /dev/null
@@ -1,86 +0,0 @@
-package ftp; # $Id$
-
-use Net::FTP;
-
-use network::network;
-use log;
-
-my %hosts;
-
-1;
-
-sub fromEnv() {
-    #- now URLPREFIX is generated from what is given by mdk-stage1 which is only this 4 variables.
-    $ENV{URLPREFIX} = "ftp://" . ($ENV{LOGIN} && ($ENV{LOGIN} . ($ENV{PASSWORD} && ":$ENV{PASSWORD}") . '@')) .
-      "$ENV{HOST}/$ENV{PREFIX}";
-    @ENV{qw(HOST PREFIX LOGIN PASSWORD)};
-}
-
-sub new {
-    my ($host, $prefix, $o_login, $o_password) = @_;
-    my @l = do { if ($hosts{"$host$prefix"}) {
-	@{$hosts{"$host$prefix"}};
-    } else {
-	my %options = (Passive => 1, Timeout => 60, Port => 21);
-	$options{Firewall} = $ENV{PROXY} if $ENV{PROXY};
-	$options{Port} = $ENV{PROXYPORT} if $ENV{PROXYPORT};
-	unless ($o_login) {
-	    $o_login = 'anonymous';
-	    $o_password = '-drakx@';
-	}
-
-	my $ftp;
-	foreach (1..10) {
-	    $ftp = Net::FTP->new(resolv($host), %options) or die "Can't resolve hostname '$host'\n";
-	    $ftp && $ftp->login($o_login, $o_password) and last;
-
-	    log::l("ftp login failed, sleeping before trying again");
-	    sleep 5 * $_;
-	}
-	$ftp or die "unable to open ftp connection to $host\n";
-	$ftp->binary;
-	$ftp->cwd($prefix);
-
-	my @l = ($ftp, \ (my $_retr));
-	$hosts{"$host$prefix"} = \@l;
-	@l;
-    } };
-    wantarray() ? @l : $l[0];
-}
-
-sub getFile {
-    my ($f, @para) = @_;
-    $f eq 'XXX' and rewindGetFile(), return; #- special case to force closing connection.
-    foreach (1..3) {
-	my ($ftp, $retr) = new(@para ? @para : fromEnv());
-	eval { $$retr->close if $$retr };
-	$@ and rewindGetFile(); #- in case Timeout got us on "->close"
-	$$retr = $ftp->retr($f) and return $$retr;
-	$ftp->code == 550 and log::l("FTP: 550 file unavailable"), return;
-	rewindGetFile();
-	log::l("ftp get failed, sleeping before trying again");
-	sleep 1;
-    }
-}
-
-#-sub closeFiles() {
-#-    #- close any existing connections
-#-    foreach (values %hosts) {
-#-	  my $retr = $_->[1] if ref $_;
-#-	  $$retr->close if $$retr;
-#-	  undef $$retr;
-#-    }
-#-}
-
-sub rewindGetFile() {
-    #- close any existing connection.
-    foreach (values %hosts) {
-	my ($ftp, $retr) = @{$_ || []};
-	#- do not let Timeout kill us!
-	eval { $$retr->close } if $$retr;
-	eval { $ftp->close } if $ftp;
-    }
-
-    #- make sure to reconnect to server.
-    %hosts = ();
-}
-- 
cgit v1.2.1