- tests with ayo

1 files changed, 12 insertions, 12 deletions

diff --git a/mdkonline b/mdkonline
index 51805c2c..e15c8d80 100755
--- a/mdkonline
+++ b/mdkonline
@@ -150,34 +150,37 @@ gtkappend_page($o->{nb},
 					  ))));
 
 init(1);
-$o->{country}->set_popdown_strings(country());
+$o->{country}->set_popdown_strings(sort(getCountry()));
 $o->{mw}{rwindow}->show_all;
 
 Gtk2->main;
 ugtk2->exit(0);
 
 sub subsOnline {
-    my $explink = 'http://www.mandrakeexpert.com/online3_CreateAccount.php?';
+    my $explink = 'http://www.mandrakeexpert.com/online3_CreateAccount.php';
     my $login = $o->{clogin}->get_text;
     my $despwd = $o->{cpasswd}->get_text;
     my $despwdcfm = $o->{cconfirm}->get_text;
     my $cmail = $o->{cmail}->get_text;
     $::error = 0;
     checkErrors($login, $despwd, $despwdcfm, $o->{cmail});
-    print "Error = $::error";
+    #    print "Error = $::error";
     if (!$::error) {
-	my $ret = requestURL($explink . '?desuserid=' . $login . '&despwd=' . $despwd . '&user_email=' . $cmail);
+	my $url = $explink . '?desuserid=' . $login . '&despwd=' . $despwd . '&user_email=' . $cmail;
+	print "LOGIN = $login\nPASSWD = $despwd\nMAIL= $cmail\nURL=$url\n";
+	my $ret = requestURL($url);
 	my $result = {
-		      0 => sub { !$::error and $o->{nb}->next_page},
-		      11 => sub { raiseError($o->{mw}->{window},N("Creation"), N("Login and Password should be < 12 characters\n")) },
-		      12 => sub { raiseError($o->{mw}->{window},N("Special Characters"), N("Special Characters are not allowed\n")) },
-		      13 => sub { raiseError($o->{mw}->{window},N("Empty Fields"), N("Please fill up all fields\n")) },
+		      10 => sub { !$::error and $o->{nb}->next_page},
+		      11 => sub { raiseError($o->{mw}->{window},N("Creation"), N("Login and password should be less than 12 characters\n")) },
+		      12 => sub { raiseError($o->{mw}->{window},N("Special characters"), N("Special characters are not allowed\n")) },
+		      13 => sub { raiseError($o->{mw}->{window},N("Empty fields"), N("Please fill in all fields\n")) },
 		      14 => sub { raiseError($o->{mw}->{window},N("Email"), N("Email not valid\n")) },
 		      15 => sub { raiseError($o->{mw}->{window},N("Change account"), N("Account already exist\n")) },
 		     };
 	if ($ret->is_success) {
 	    my $content = $ret->content;
-	    if ($content =~ m/(\d+)/) { my $code = sprintf("%d",$1);print "CODE = $code"; eval { $result->{$code}->() } }
+	    print "CODE_RETOUR = $content\n";
+	    if ($content =~ m/(\d+)/) { my $code = sprintf("%d",$1);print "CODE = $code\n"; eval { $result->{$code}->() } }
 	} else { raiseError($o->{mw}->{window}, N("Server Problem"), N("Problem connecting to server \n")) }
     }
 }
@@ -379,6 +382,3 @@ if [ -f /root/.mdkupdate ]; then /usr/bin/mdkupdate; fi
 );
 chmod 0755, "/etc/cron.daily/mdkupdate";
 }
-
-
-