From 6a51563117ce479c46a15bc7cb7e938a8b3dcc1a Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Fri, 16 Sep 2005 15:13:49 +0000 Subject: - check valid name box --- mdkonline | 10 +++++++--- 1 file 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"; }, }, -- cgit v1.2.1