Branch for updates

4 files changed, 83 insertions, 0 deletions

diff --git a/grpmi/Makefile b/grpmi/Makefile
new file mode 100644
index 00000000..29be902e
--- /dev/null
+++ b/grpmi/Makefile
@@ -0,0 +1,37 @@
+ #******************************************************************************
+ #
+ # Guillaume Cottenceau (gc@mandrakesoft.com)
+ #
+ # Copyright 2002 MandrakeSoft
+ #
+ # This software may be freely redistributed under the terms of the GNU
+ # public license.
+ #
+ # You should have received a copy of the GNU General Public License
+ # along with this program; if not, write to the Free Software
+ # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ #
+ #*****************************************************************************
+
+DIRS = curl_download
+
+PREFIX = /usr/local
+DATADIR = $(PREFIX)/share
+SBINDIR = $(PREFIX)/sbin
+
+all: dirs
+
+dirs:
+	@for n in . $(DIRS); do \
+		[ "$$n" = "." ] || make -C $$n || exit 1 ;\
+	done
+
+install: $(ALL)
+	@for n in $(DIRS); do \
+		(cd $$n; $(MAKE) install) \
+	done
+
+clean: 
+	@for n in $(DIRS); do \
+		(cd $$n; make clean) \
+	done
diff --git a/grpmi/curl_download/Makefile b/grpmi/curl_download/Makefile
new file mode 100644
index 00000000..363ad0af
--- /dev/null
+++ b/grpmi/curl_download/Makefile
@@ -0,0 +1,13 @@
+.PHONY: clean
+
+curl_download:
+	test -e Makefile_c || perl Makefile.PL
+	$(MAKE) -f Makefile_c
+
+install:
+	test -e Makefile_c || perl Makefile.PL
+	$(MAKE) -f Makefile_c install
+
+clean:
+	test ! -e Makefile_c || $(MAKE) -f Makefile_c clean
+	rm -f *~ *.o
diff --git a/grpmi/curl_download/Makefile.PL b/grpmi/curl_download/Makefile.PL
new file mode 100644
index 00000000..9bb1eebe
--- /dev/null
+++ b/grpmi/curl_download/Makefile.PL
@@ -0,0 +1,9 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    'NAME'         => 'curl_download',
+    'INSTALLDIRS'  => 'vendor',
+    'VERSION_FROM' => 'curl_download.pm', # finds VERSION
+    'INC'          => '-I.',
+    'MAKEFILE'     => 'Makefile_c',
+);
diff --git a/grpmi/curl_download/curl_download.pm b/grpmi/curl_download/curl_download.pm
new file mode 100644
index 00000000..034df5f6
--- /dev/null
+++ b/grpmi/curl_download/curl_download.pm
@@ -0,0 +1,24 @@
+package curl_download;
+
+use strict;
+use urpm::download;
+
+our $VERSION = '1.2';
+
+sub readproxy (;$) {
+    my $proxy = get_proxy($_[0]);
+    ($proxy->{http_proxy} || $proxy->{ftp_proxy} || '',
+	defined $proxy->{user} ? "$proxy->{user}:$proxy->{pwd}" : '');
+}
+
+sub writeproxy {
+    my ($proxy, $proxy_user, $o_media_name) = @_;
+    my ($user, $pwd) = split /:/, $proxy_user;
+    set_proxy_config(user => $user, $o_media_name);
+    set_proxy_config(pwd => $pwd, $o_media_name);
+    set_proxy_config(http_proxy => $proxy, $o_media_name);
+    set_proxy_config(ftp_proxy => $proxy, $o_media_name);
+    dump_proxy_config();
+}
+
+1;