diff options
Diffstat (limited to 'mgaonline.pm')
| -rw-r--r-- | mgaonline.pm | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/mgaonline.pm b/mgaonline.pm index cbabd47d..43a149f8 100644 --- a/mgaonline.pm +++ b/mgaonline.pm @@ -46,7 +46,6 @@ our @EXPORT = qw(find_current_distro get_stale_upgrade_filename get_urpmi_options is_extmaint_supported - is_restricted_media_supported read_sys_config translate_product xml2perl @@ -57,7 +56,6 @@ our @EXPORT = qw(find_current_distro our @EXPORT_OK = qw( get_product_info get_my_mdv_profile - add_medium_powerpack add_medium_extended ); @@ -91,12 +89,6 @@ sub is_extmaint_supported() { $product_id->{support} eq 'extended'; } - -sub is_restricted_media_supported() { - return; # NOT SUPPORTED ON MAGEIA - to_bool($product_id->{product} =~ /powerpack/i); -} - sub find_current_distro { find { $_->{version} eq $product_id->{version} } @_; } @@ -161,7 +153,6 @@ sub translate_product { free => N("Mageia Free"), mini => N("Mageia Mini"), one => N("Mageia One"), - powerPack => N("Mageia PowerPack"), ); $product ||= lc $product_id->{product}; $strings{$product} || $product; @@ -172,10 +163,6 @@ sub translate_product { sub get_product_info { my ($product) = @_; my %info = ( - powerpack => { - name => N("Mageia PowerPack"), - description => N("The Mageia Linux distribution with even more softwares and official support."), - }, free => { name => N("Mageia Free"), description => N("The 100%% Open Source distribution freely available."), @@ -199,25 +186,6 @@ sub get_urpmi_options() { ({ sensitive_arguments => 1 }, 'urpmi.addmedia', '--xml-info', 'always'); } -sub add_medium_powerpack { - my ($email, $password, $version, $arch) = @_; - my $uri = sprintf('https://%s:%s@dl.FIXME.com/rpm/comm/%s/', - uri_escape($email), - uri_escape($password), - $version); - my @options = get_urpmi_options(); - - # add release and updates media... - 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"); -} - sub add_medium_extended { my ($email, $password, $version, $arch) = @_; my $uri = sprintf("https://%s:%s\@dl.FIXME.com/extended/%s/%s", |