summaryrefslogtreecommitdiffstats
path: root/mdkapplet
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-11-19 14:19:35 +0000
committerThierry Vignaud <tv@mandriva.org>2008-11-19 14:19:35 +0000
commit30632b2a9c6f595f5a785663539a831badb0b228 (patch)
treeca53c9db6c8a80e12a9c5559766763cb6a834e8c /mdkapplet
parentaae96b3bcb02d678d7db3f175765997959b4edc4 (diff)
downloadmgaonline-30632b2a9c6f595f5a785663539a831badb0b228.tar
mgaonline-30632b2a9c6f595f5a785663539a831badb0b228.tar.gz
mgaonline-30632b2a9c6f595f5a785663539a831badb0b228.tar.bz2
mgaonline-30632b2a9c6f595f5a785663539a831badb0b228.tar.xz
mgaonline-30632b2a9c6f595f5a785663539a831badb0b228.zip
(get_distro_list) split it out of is_there_a_new_distributions()
Diffstat (limited to 'mdkapplet')
-rwxr-xr-xmdkapplet14
1 files changed, 10 insertions, 4 deletions
diff --git a/mdkapplet b/mdkapplet
index 8239189b..54b7a276 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -262,10 +262,7 @@ Gtk2->main;
ugtk2::exit(0);
-
-sub is_there_a_new_distributions() {
- $product_id = common::parse_LDAP_namespace_structure(cat_("$root/etc/product.id"));
- return if $product_id->{product} =~ /Flash/;
+sub get_distro_list {
#- contact the following URL to retrieve the list of released distributions.
my $type = lc($product_id->{type}); $type =~ s/\s//g;
my $extra_path = $::testing || uc($config{TEST_DISTRO_UPGRADE}) eq 'YES' ? 'testing-' : '';
@@ -288,6 +285,15 @@ sub is_there_a_new_distributions() {
urpm::download::get_content($urpm, $list);
}
};
+}
+
+
+sub is_there_a_new_distributions() {
+ $product_id = common::parse_LDAP_namespace_structure(cat_("$root/etc/product.id"));
+ return if $product_id->{product} =~ /Flash/;
+
+ my @lines = get_distro_list();
+ use Data::Dumper; warn Dumper \@lines;
if (my $err = $@) {
log::explanations("failed to download distribution list:\n$err");