summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xmdkapplet5
-rwxr-xr-xmdkonline2
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