diff options
| author | Daouda Lo <daouda@mandriva.com> | 2004-03-03 16:28:00 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2004-03-03 16:28:00 +0000 |
| commit | 4d618435769f15dbfd976e99a27a4bacf922bfab (patch) | |
| tree | c680304b277b6036bd96fec4f77218b031b1c649 /mdkapplet | |
| parent | c7ca7610613199a6c1feeb1555c41701619bf967 (diff) | |
| download | mgaonline-4d618435769f15dbfd976e99a27a4bacf922bfab.tar mgaonline-4d618435769f15dbfd976e99a27a4bacf922bfab.tar.gz mgaonline-4d618435769f15dbfd976e99a27a4bacf922bfab.tar.bz2 mgaonline-4d618435769f15dbfd976e99a27a4bacf922bfab.tar.xz mgaonline-4d618435769f15dbfd976e99a27a4bacf922bfab.zip | |
s/box/machine/
Diffstat (limited to 'mdkapplet')
| -rwxr-xr-x | mdkapplet | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -177,9 +177,11 @@ sub silentCheck { $ua->agent("MdkAppletAgent/0.1" . $ua->agent); $ua->env_proxy; # my $request = HTTP::Request->new(GET => $link . '&log=' . "ayomigration" . '&host=' . "online"); - my $request = HTTP::Request->new(GET => $link . '&log=' . $h{LOGIN} . '&host=' . $h{BOX}); + my $request = HTTP::Request->new(GET => $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE}); + my $lnk = $link . '&log=' . $h{LOGIN} . '&host=' . $h{MACHINE}; my $response = $ua->request($request); my $ct = $response->content; + 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 @@ -238,6 +240,7 @@ sub isNetwork { } sub configure { system "/usr/sbin/mdkonline &"; + } sub getSite { my $b = browser(); |