summaryrefslogtreecommitdiffstats
path: root/mdkupdate
diff options
context:
space:
mode:
Diffstat (limited to 'mdkupdate')
-rwxr-xr-xmdkupdate32
1 files changed, 2 insertions, 30 deletions
diff --git a/mdkupdate b/mdkupdate
index 81809037..acd0752a 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -106,40 +106,12 @@ my $wc = mdkonline::read_conf();
if (!$bundle) {
my ($release) = mdkonline::get_release();
- if ($wc->{HOST_ID} && $wc->{HOST_KEY}) {
- my $getupdates;
- $getupdates = mdkonline::soap_get_updates_for_host($wc->{HOST_ID}, $wc->{HOST_KEY});
-
- my $ret = mdkonline::check_server_response($getupdates);
- print Data::Dumper->Dump([ $getupdates ], [ qw(getupdates) ]);
- if ($ret eq 'OK') {
- # doble check mdkapplet:
- if (my $updates = $getupdates->{data}{updates}) { # there're updates
-
- my %mirrors = add_mirrors($in, undef, $getupdates->{data}{mirrors}, {}, '--update');
- my $mirror = find { $_ } keys %mirrors; # pick a random mirror
- my $pkgs = [ map { $_->{filename} } @$updates ];
- print Data::Dumper->Dump([ $updates, $pkgs], [ qw(updates pkgs) ]);
-
- if ($auto) { # FIXME
- my $ret = update_pkgs(@$pkgs);
+
+ my $ret = update_pkgs();
$ret == 1 or output_p($logfile, "[mdkupdate] Error 100: Packages failed to upgrade");
- }
rpm_qa($afterrpm);
my $wc = mdkonline::read_conf();
- my $need_upload = get_rpm_diff();
- if ($need_upload || $auto || $mnf) {
- #- send configuration and get back key to use...
- $result = mdkonline::prepare_upload_conf($wc);
- }
clean_dir();
- }
- } else {
- log::explanations("geting updates failed: $ret");
- }
- } else { # no HOST_ID
-
- }
} else {
log::explanations("managing the $bundle bundle");
if (-d '/live/media/loopbacks') {