s/box/machine/

2 files changed, 5 insertions, 2 deletions

diff --git a/mdkapplet b/mdkapplet
index a4c0a79f..7ac3007d 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -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();
diff --git a/mdkonline b/mdkonline
index ff344d01..6a39a942 100755
--- a/mdkonline
+++ b/mdkonline
@@ -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