diff options
author | Daouda Lo <daouda@mandriva.com> | 2005-09-16 15:13:49 +0000 |
---|---|---|
committer | Daouda Lo <daouda@mandriva.com> | 2005-09-16 15:13:49 +0000 |
commit | 6a51563117ce479c46a15bc7cb7e938a8b3dcc1a (patch) | |
tree | 57cb41c004d07ef81b9959e5f2fb574d8d3c9ee7 | |
parent | fabde284dc0e5ee2f85a5f529832d7c6989f248c (diff) | |
download | mgaonline-6a51563117ce479c46a15bc7cb7e938a8b3dcc1a.tar mgaonline-6a51563117ce479c46a15bc7cb7e938a8b3dcc1a.tar.gz mgaonline-6a51563117ce479c46a15bc7cb7e938a8b3dcc1a.tar.bz2 mgaonline-6a51563117ce479c46a15bc7cb7e938a8b3dcc1a.tar.xz mgaonline-6a51563117ce479c46a15bc7cb7e938a8b3dcc1a.zip |
- check valid name box
-rwxr-xr-x | mdkonline | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -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"; }, }, |