diff options
-rwxr-xr-x | mdkapplet | 5 | ||||
-rwxr-xr-x | mdkonline | 2 |
2 files changed, 5 insertions, 2 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(); @@ -387,7 +387,7 @@ sub automatedUpgrades { qq(# automatically generated file. Please don't edit LOGIN=$login PASS=$passwd -BOX=$boxname +MACHINE=$boxname VER=$r CURRENTKEY=$key COUNTRY=$country |