drakx-backup-do-not-use - Mageia Installer and base platform for many utilities

index : drakx-backup-do-not-use

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/ftp.pm

	Commit message (Expand)	Author	Age	Files	Lines
*	no_comment	Pascal Rigaux	2000-03-14	1	-1/+1
*	* empty log message *	Francois Pons	2000-01-05	1	-0/+11
*	no_comment	Pascal Rigaux	1999-12-07	1	-1/+1
*	no_comment	Pascal Rigaux	1999-12-05	1	-3/+3
*	no_comment	Pascal Rigaux	1999-11-28	1	-28/+36
*	no_comment	Pascal Rigaux	1999-11-25	1	-6/+2
*	no_comment	Pascal Rigaux	1999-09-15	1	-2/+2
*	no_comment	Pascal Rigaux	1999-08-30	1	-1/+2
*	no_comment	Pascal Rigaux	1999-08-29	1	-25/+29
*	no_comment	Pascal Rigaux	1999-08-28	1	-0/+49

0644
index 000000000..fbf6c001c
--- /dev/null
+++ b/perl-install/http.pm

@@ -0,0 +1,30 @@

+package http;

+

+use IO::Socket;

+

+use install_any;

+

+

+my $sock;

+

+sub getFile($) {

+ local($^W) = 0;

+

+ my ($host, $port, $path) = $ENV{URLPREFIX} =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,;

+ $path .= "/" . install_any::relGetFile($_[0]);

+

+ $sock->close if $sock;

+ $sock = IO::Socket::INET->new(PeerAddr => $host,

+ PeerPort => $port || 80,

+ Proto => 'tcp',

+ Timeout => 60) or die "can't connect ";

+ $sock->autoflush;

+ print $sock join("\015\012" =>

+ "GET $path HTTP/1.0",

+ "Host: $host" . ($port && ":$port"),

+ "User-Agent: DrakX/vivelinuxabaszindozs",

+ "", "");

+ $sock;

+}

+

+1;