diff options
| -rwxr-xr-x | mdkapplet | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -51,7 +51,7 @@ my %state = ( critical => { colour => [ 'orange' ], changes => [ 'okay', 'busy', 'critical', 'disconnected' ], - menu => [ 'update', 'configureApplet', 'check', 'weblink' ], + menu => [ 'configureApplet', 'check', 'weblink' ], tt => [ N("Config problems. Launch \"configure\" again") ] }, busy => { @@ -86,7 +86,7 @@ my %state = ( } ); my %actions = ( - 'update' => { name => N("Launch Mandrake Update"), launch => sub { launchUpdate() } }, + 'update' => { name => N("Launch Mandrake Update"), launch => sub { installUpdates() } }, 'configureApplet' => { name => N("Configuration"), launch => sub { configure() } }, 'check' => { name => N("Check Updates"), launch => sub { checkUpdates() } }, 'weblink' => { name => N("Online WebSite"), launch => sub { getSite() } }, @@ -183,7 +183,7 @@ sub silentCheck { my $lnk = $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE}; my $response = $ua->request($request); my $ct = $response->content; - print "\nCONTENTS = $ct; link = $lnk \n"; +# print "\nCONTENTS = $ct; link = $lnk \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 |