From d89150b6df90859a55c10d7f3bc495a8cf05c9bb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jo=C3=A3o=20Victor=20Duarte=20Martins?=
 <jvictor@mandriva.com>
Date: Fri, 14 May 2010 01:26:09 +0000
Subject: moved add_medium_powerpack and add_medium_enterprise for reusability.

---
 mdkapplet-add-media-helper | 32 ++------------------------------
 1 file changed, 2 insertions(+), 30 deletions(-)

(limited to 'mdkapplet-add-media-helper')

diff --git a/mdkapplet-add-media-helper b/mdkapplet-add-media-helper
index 0130b12b..61180634 100755
--- a/mdkapplet-add-media-helper
+++ b/mdkapplet-add-media-helper
@@ -34,7 +34,6 @@ use mdkapplet_gui;
 use urpm::cfg;
 
 use XML::Simple;
-use URI::Escape;
 use LWP::UserAgent;
 use HTTP::Request::Common;
 use HTTP::Request;
@@ -51,7 +50,7 @@ my %product = (
 	    $profile->{data}{'can-access-restricted-repositories'} eq 'YES';
 	},
 	media_name => 'Restricted',
-	add_medium => \&add_medium_powerpack 
+        add_medium => \&mdkonline::add_medium_powerpack 
 	    
     },
     server => { 
@@ -62,7 +61,7 @@ my %product = (
 		$profile->{data}{groups}{'es5-demo'};
 	},
 	media_name => 'Update',
-	add_medium => \&add_medium_enterprise
+        add_medium => \&mdkonline::add_medium_enterprise
     },
     );
 
@@ -202,30 +201,3 @@ sub add_medium_for_product {
 	ugtk2::main($w);
     }
 }
-
-sub add_medium_enterprise {
-    my ($email, $password, $version, $arch) = @_;
-    my $uri = sprintf("https://%s:%s\@download.mandriva.com/%s/rpms/%s/",
-		      uri_escape($email),
-		      uri_escape($password),
-		      $version,
-		      $arch);
-    my @options = mdkonline::get_urpmi_options();
-    run_program::raw(@options, '--update', '--distrib', $uri);
-}
-
-sub add_medium_powerpack {
-    my ($email, $password, $version, $arch) = @_;
-    my $uri = sprintf("https://%s:%s\@dl.mandriva.com/rpm/comm/%s/",
-		      uri_escape($email),
-		      uri_escape($password),
-		      $version);
-    my @options = mdkonline::get_urpmi_options();
-    run_program::raw(@options,
-		     "Restricted $arch " . int(rand(100000)),
-		     "$uri$arch") or return 0;
-    run_program::raw(@options,
-		     '--update',
-		     "Restricted Updates $arch " . int(rand(100000)),
-		     "${uri}updates/$arch");
-}
-- 
cgit v1.2.1