diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-03-24 14:19:07 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-03-24 14:19:07 +0000 |
| commit | e417afcfa7ecde0259ef9e95824a8f7be7900077 (patch) | |
| tree | 46e19adae2840f8f2939933e0c42af1a96adbb39 | |
| parent | 36721c34c6a069d1cc4cecc50ea023777600ac89 (diff) | |
| download | mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar.gz mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar.bz2 mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar.xz mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.zip | |
- print debug
| -rwxr-xr-x | mdkupdate | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -73,12 +73,13 @@ 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 "CONTENTS = $contents \n"; if ($resp->is_success) { if ($contents =~ /TRUE/) { $u = 10 } elsif ($contents = m/(\d+)/) { $u = sprintf("%d", $1) } else { $u = 83 } ; my $action = { 10 => sub { my $c2h = splitContents($contents); - #printf("\nCONTENTS = $contents \n torf = %s\n OLDKEY = %s = %s \n NEWKEY = %s \n FTP = %s\n", $c2h->{torf}, $c2h->{OLDKEY}, $o{CURRENTKEY}, $c2h->{NEWKEY}, $c2h->{FTP} ); + printf("\nCONTENTS = $contents \n torf = %s\n OLDKEY = %s = %s \n NEWKEY = %s \n FTP = %s\n", $c2h->{torf}, $c2h->{OLDKEY}, $o{CURRENTKEY}, $c2h->{NEWKEY}, $c2h->{FTP} ); if ($c2h->{torf} eq "TRUE" && $c2h->{OLDKEY} && $c2h->{NEWKEY}) { updateConf($c2h->{OLDKEY}, $c2h->{NEWKEY}) } if ($c2h->{FTP}) { # for debugging purpose @@ -89,7 +90,6 @@ if ($o{LOGIN} && $o{PASS} && $o{LOGIN} !~ /\s+/ && $o{PASS} !~ /\s+/) { $noscheduled = join(',',@{$c2h->{nosched}}); $noscheduled =~ s/\.rpm//g; printf "SCHEDULED = $scheduled\nNOSCHEDULED = $noscheduled\n"; if ($opt eq '--applet') { - print "MandrakeUpdate --media=mdkupdate --pkg-sel=$scheduled --pkg-nosel=$noscheduled"; system "MandrakeUpdate","--media=mdkupdate","--pkg-sel=$scheduled","--pkg-nosel=$noscheduled"; } elsif ($opt eq '--auto') { $o{AUTO} eq 'TRUE' and autoInstallRpms($c2h->{sched}); |