diff options
Diffstat (limited to 'mdkapplet')
| -rwxr-xr-x | mdkapplet | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -186,7 +186,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 @@ -216,7 +216,7 @@ sub compareWithInstalled { $p =~ /(.*)-(.*)-(.*)$/; my ($n, $v, $r) = ($1, $2, $3); if ($name eq $n ) { my $iu = rpmvercmp($ver, $v); my $ir = rpmvercmp( $rel, $r); - print "$name-$ver-$rel $n-$v-$r *** CMPVER=$iu ** CMPREL = $ir \n"; + #print "$name-$ver-$rel $n-$v-$r *** CMPVER=$iu ** CMPREL = $ir \n"; if (rpmvercmp($ver, $v) > 0 || ( rpmvercmp($ver, $v) == 0 && rpmvercmp( $rel, $r) > 0)) { $isUpdate = 1 and last; } @@ -327,7 +327,6 @@ sub checkUpdates { $mLog .= N("Checking config file: Not present\n"); go2State('noconfig') } else { - print "Checking ..."; $update_label and setLabel($update_label, N("Checking for Updates...")); setLastTime(); $lastch and setLabel($lastch, lastCheck() ); |