summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-03-19 22:04:16 +0000
committerDaouda Lo <daouda@mandriva.com>2004-03-19 22:04:16 +0000
commit4617805d2840cca66d69704ea56bab5e06f10f94 (patch)
tree1dbffb0e95cf11a3c743d9009b364a85fd8f6a18
parent7357950277d6493639111ac9bb2d80eb7ca819ba (diff)
downloadmgaonline-4617805d2840cca66d69704ea56bab5e06f10f94.tar
mgaonline-4617805d2840cca66d69704ea56bab5e06f10f94.tar.gz
mgaonline-4617805d2840cca66d69704ea56bab5e06f10f94.tar.bz2
mgaonline-4617805d2840cca66d69704ea56bab5e06f10f94.tar.xz
mgaonline-4617805d2840cca66d69704ea56bab5e06f10f94.zip
- remove debugging
-rwxr-xr-xmdkupdate5
1 files changed, 3 insertions, 2 deletions
diff --git a/mdkupdate b/mdkupdate
index 68a7bede..1af244a5 100755
--- a/mdkupdate
+++ b/mdkupdate
@@ -73,7 +73,6 @@ 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";
if ($resp->is_success) {
if ($contents =~ /TRUE/) { $u = 10 } elsif ($contents = m/(\d+)/) { $u = sprintf("%d", $1) } else { $u = 83 } ;
my $action = {
@@ -84,11 +83,13 @@ if ($o{LOGIN} && $o{PASS} && $o{LOGIN} !~ /\s+/ && $o{PASS} !~ /\s+/) {
if ($c2h->{FTP}) {
# for debugging purpose
$c2h->{FTP} = 'ftp://ftp.lip6.fr/pub/linux/distributions/mandrake/updates';
- addMedia($c2h->{FTP}) }
+ addMedia($c2h->{FTP})
+ }
$scheduled = join(',',@{$c2h->{sched}});
$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=$nosheduled";
system "MandrakeUpdate","--media=mdkupdate","--pkg-sel=$scheduled","--pkg-nosel=$nosheduled";
} elsif ($opt eq '--auto') {
$o{AUTO} eq 'TRUE' and autoInstallRpms($c2h->{sched});