diff options
Diffstat (limited to 'mdkupdate')
-rwxr-xr-x | mdkupdate | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -73,9 +73,9 @@ if ($o{LOGIN} && $o{PASS} && $o{LOGIN} !~ /\s+/ && $o{PASS} !~ /\s+/) { my $MandrakeUpdateURL = $url->{online3_RemoteAction} . '?action=ScheduledRPM' . '&log=' . $o{LOGIN} . '&pass=' . $o{PASS} . '&host=' . $o{MACHINE} . '&key=' . $o{CURRENTKEY}; my $resp = getFromURL($MandrakeUpdateURL); my $contents = $resp->content; - print " \n\n ***** Response from Online3_RemoteAction is : \n $contents \n end update_rpms answer **********\n\n"; + print "CONTENTS=$contents"; if ($resp->is_success) { - if ($contents =~ /TRUE/) { $ret = 10 } elsif ($contents = m/(\d+)/) { $u = sprintf("%d", $1) } else { $u = 83 } ; + if ($contents =~ /TRUE/) { $u = 10 } elsif ($contents = m/(\d+)/) { $u = sprintf("%d", $1) } else { $u = 83 } ; my $action = { 10 => sub { print "\nCONTENTS = $contents \n"; |