summaryrefslogtreecommitdiffstats
path: root/mgaonline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mgaonline.pm')
-rw-r--r--mgaonline.pm32
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",