From ac30a583ee0c8686df23a8923b25537a9817fdcb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 6 Sep 2012 17:29:00 +0000
Subject: drop support for extended maintenance

---
 mgaonline.pm | 20 --------------------
 1 file changed, 20 deletions(-)

(limited to 'mgaonline.pm')

diff --git a/mgaonline.pm b/mgaonline.pm
index 43a149f8..ff64b624 100644
--- a/mgaonline.pm
+++ b/mgaonline.pm
@@ -45,7 +45,6 @@ our @EXPORT = qw(find_current_distro
                  get_release
                  get_stale_upgrade_filename
                  get_urpmi_options
-                 is_extmaint_supported
                  read_sys_config
                  translate_product
                  xml2perl
@@ -56,7 +55,6 @@ our @EXPORT = qw(find_current_distro
 our @EXPORT_OK = qw(
     get_product_info
     get_my_mdv_profile
-    add_medium_extended
 );
 
 our (%config, $product_id, $root);
@@ -84,11 +82,6 @@ sub get_release() {
     ($r);
 }
 
-sub is_extmaint_supported() {
-    return; # NOT SUPPORTED ON MAGEIA
-    $product_id->{support} eq 'extended';
-}
-
 sub find_current_distro {
     find { $_->{version} eq $product_id->{version} } @_;
 }
@@ -186,19 +179,6 @@ sub get_urpmi_options() {
     ({ sensitive_arguments => 1 }, 'urpmi.addmedia', '--xml-info', 'always');
 }
 
-sub add_medium_extended {
-    my ($email, $password, $version, $arch) = @_;
-    my $uri = sprintf("https://%s:%s\@dl.FIXME.com/extended/%s/%s",
-                      uri_escape($email),
-                      uri_escape($password),
-                      $version,
-                      $arch);
-    my @options = (get_urpmi_options(), '--update');
-    run_program::raw(@options, 
-                     "Extended Maintenance $arch " . int(rand(100000)), 
-                     ${uri});
-}
-
 sub is_running {
     my ($name) = @_;
     my $found;
-- 
cgit v1.2.1