diff options
author | Daouda Lo <daouda@mandriva.com> | 2004-03-24 15:06:27 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2004-03-24 15:06:27 +0000 |
commit | 6b5577d24c6dcca9d6a5d99e8a347b1242f9b93a (patch) | |
tree | f4a2c14254ade986dd2d4a5520640c06521fd78f /mdkapplet | |
parent | 79d60f4c27640b3ef571984d1a1d88052ba26e47 (diff) | |
download | mgaonline-6b5577d24c6dcca9d6a5d99e8a347b1242f9b93a.tar mgaonline-6b5577d24c6dcca9d6a5d99e8a347b1242f9b93a.tar.gz mgaonline-6b5577d24c6dcca9d6a5d99e8a347b1242f9b93a.tar.bz2 mgaonline-6b5577d24c6dcca9d6a5d99e8a347b1242f9b93a.tar.xz mgaonline-6b5577d24c6dcca9d6a5d99e8a347b1242f9b93a.zip |
- comment debug info
Diffstat (limited to 'mdkapplet')
-rwxr-xr-x | mdkapplet | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -187,7 +187,7 @@ sub silentCheck { my $lnk = $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE}; my $response = $ua->request($request); my $ct = $response->content; - print "\nCONTENTS = $ct\n"; + #print "\nCONTENTS = $ct\n"; if ($ct =~ /rpm/) { $u = 11 } elsif ($ct =~ m/(\d+)/) { $u = sprintf("%d",$1); } else { $u = 10 }; # 99 - log or host or action or pass empty, wrong action # 98 - wrong pass @@ -203,7 +203,7 @@ sub silentCheck { $cand =~ s/\.(i586|ppc|ia64).rpm//; $cand =~ /(.*)-(.*)-(.*)$/; my ($name, $ver, $rel) = ($1, $2, $3); $comp = compareWithInstalled($name, $ver, $rel, \@t); - print "COMP = $comp\n"; + #print "COMP = $comp\n"; if ($comp) { $isAvailable = 1; $mLog .= N("Checking... Updates are available\n"); go2State('error') and last } else { $isAvailable = 0 }; } !$comp and okState(); @@ -223,7 +223,7 @@ sub compareWithInstalled { if ($name eq $n) { my $iu = rpmvercmp($ver, $v); my $ir = rpmvercmp( $rel,$r); if (rpmvercmp($ver, $v) > 0 || ( rpmvercmp($ver, $v) == 0 && rpmvercmp( $rel, $r) > 0)) { - print "$name-$ver-$rel $n-$v-$r *** CMPVER=$iu ** CMPREL = $ir \n"; + #print "$name-$ver-$rel $n-$v-$r *** CMPVER=$iu ** CMPREL = $ir \n"; $isUpdate = 1 and last; } } |