diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-03-19 10:21:48 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-03-19 10:21:48 +0000 |
| commit | ed3346324e07044720b6c0b5b3e94ddb416244d0 (patch) | |
| tree | b4ca5073f6829a8275ff382bb48e76536d126940 /mdkupdate | |
| parent | 20b3f22755de45f4ace7d69ef133685d43cc6b03 (diff) | |
| download | mgaonline-ed3346324e07044720b6c0b5b3e94ddb416244d0.tar mgaonline-ed3346324e07044720b6c0b5b3e94ddb416244d0.tar.gz mgaonline-ed3346324e07044720b6c0b5b3e94ddb416244d0.tar.bz2 mgaonline-ed3346324e07044720b6c0b5b3e94ddb416244d0.tar.xz mgaonline-ed3346324e07044720b6c0b5b3e94ddb416244d0.zip | |
- s/ret/u/ var
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"; |