- send conf

1 files changed, 3 insertions, 3 deletions

diff --git a/mdkonline_tui b/mdkonline_tui
index 86084d08..dbb8d910 100755
--- a/mdkonline_tui
+++ b/mdkonline_tui
@@ -58,7 +58,7 @@ sub read_conf() {
     my %t = getVarsFromSh($wideconf);
     my $host = chomp_(`hostname`);
     $t{MACHINE} ||= $1 if $host =~ /(\w+)(.*)/;
-    $login = $t{LOGIN}; $boxname = $t{MACHINE}
+    $login = defined $nlogin ? $nlogin : $t{LOGIN}; $boxname = $t{MACHINE}
 }
 sub check_login {
     my ($log, $pass, $box) = @_;
@@ -78,7 +78,7 @@ sub send_conf {
     mdkonline::report_config("$confdir/$log.$pp.$box.online.log");
     my $tag = { submit => "upload_wizard", wizard => ["$confdir/$log.$pp.$box.online.log.bz2.uue"] };
     undef $w;
-    my $ww = $in->wait_message(N("Please wait"), N("Reading configuration\n"));
+    my $ww = $in->wait_message(N("Please wait"), N("Sending configuration..."));
     ($sendconfres, $key) = mdkonline::send_config($uplink, $tag);
     mdkonline::hw_upload($login, $pass, $boxname);
     undef $ww;
@@ -148,7 +148,7 @@ $wiz = {
 				    ]
 				},
 				post => sub {
-				    $createaccount = $npassword ne $cfmpassword ? N("The passwords do not match\n Please try again\n") : $nlogin eq '' ? N("Please provide a login") : mdkonline::check_valid_email($email) ?  N("Not a valid mail address!\n") : create_new_account($nlogin, $npassword, $email);
+				    $createaccount = $npassword ne $cfmpassword ? N("The passwords do not match\n Please try again\n") : $nlogin eq '' ? N("Please provide a login") : mdkonline::check_valid_email($email) == 0 ?  N("Not a valid mail address!\n") : create_new_account($nlogin, $npassword, $email);
 				    "createaccount"
 				}
 			       },