summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-03-24 14:19:07 +0000
committerDaouda Lo <daouda@mandriva.com>2004-03-24 14:19:07 +0000
commite417afcfa7ecde0259ef9e95824a8f7be7900077 (patch)
tree46e19adae2840f8f2939933e0c42af1a96adbb39
parent36721c34c6a069d1cc4cecc50ea023777600ac89 (diff)
downloadmgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar
mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar.gz
mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar.bz2
mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.tar.xz
mgaonline-e417afcfa7ecde0259ef9e95824a8f7be7900077.zip
- print debug
-rwxr-xr-xmdkupdate4
1 files changed, 2 insertions, 2 deletions
diff --git a/mdkupdate b/mdkupdate
index 8e279d97..62de13bf 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -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});