summaryrefslogtreecommitdiffstats
path: root/mdkonline
diff options
context:
space:
mode:
Diffstat (limited to 'mdkonline')
-rwxr-xr-xmdkonline10
1 files changed, 7 insertions, 3 deletions
diff --git a/mdkonline b/mdkonline
index bd548eef..1d659690 100755
--- a/mdkonline
+++ b/mdkonline
@@ -121,9 +121,13 @@ $wiz = {
];
},
post => sub {
- my $_wait = $in->wait_message(N("Please wait"), N("Connecting to Mandriva Online website...")) if $ia;
- @info = ($login, $password);
- $is_success = mdkonline::create_authenticate_account('authenticate', @info); undef($_wait);
+ if (!mdkonline::check_valid_boxname($boxname)) {
+ $is_success = N("Machine name must be 1 to 40 alphanumerical characters");
+ } else {
+ my $_wait = $in->wait_message(N("Please wait"), N("Connecting to Mandriva Online website...")) if $ia;
+ @info = ($login, $password);
+ $is_success = mdkonline::create_authenticate_account('authenticate', @info); undef($_wait);
+ }
"authenticate";
},
},