From a3c885e41bc188051f8918f090be998469018bca Mon Sep 17 00:00:00 2001
From: Ben Longbons <b.r.longbons@gmail.com>
Date: Fri, 20 Sep 2013 12:23:02 -0700
Subject: Use the One Makefile to build them all

This changes the names of the built binaries:
    login-server    ->  tmwa-login
    char-server     ->  tmwa-char
    map-server      ->  tmwa-map
    ladmin          ->  tmwa-admin
    eathena-monitor ->  tmwa-monitor

It also gets rid of the 'deps.make' file.
---
 src/admin/GNUmakefile |    7 +
 src/admin/ladmin.cpp  | 2872 +++++++++++++++++++++++++++++++++++++++++++++++++
 src/admin/ladmin.hpp  |    1 +
 src/admin/main.cpp    |    2 +
 4 files changed, 2882 insertions(+)
 create mode 100644 src/admin/GNUmakefile
 create mode 100644 src/admin/ladmin.cpp
 create mode 100644 src/admin/ladmin.hpp
 create mode 100644 src/admin/main.cpp

(limited to 'src/admin')

diff --git a/src/admin/GNUmakefile b/src/admin/GNUmakefile
new file mode 100644
index 0000000..a34b76b
--- /dev/null
+++ b/src/admin/GNUmakefile
@@ -0,0 +1,7 @@
+.SUFFIXES:
+bin/tmwa-admin:
+	${MAKE} -C ../.. bin/tmwa-admin
+clean:
+	rm -r ../../obj/admin/
+%::
+	${MAKE} -C ../.. obj/admin/$@
diff --git a/src/admin/ladmin.cpp b/src/admin/ladmin.cpp
new file mode 100644
index 0000000..e0860b2
--- /dev/null
+++ b/src/admin/ladmin.cpp
@@ -0,0 +1,2872 @@
+#include <arpa/inet.h>
+
+#include <netdb.h>
+#include <unistd.h>
+
+#include <cassert>
+
+#include <fstream>
+#include <iostream>
+
+#include "../common/core.hpp"
+#include "../common/cxxstdio.hpp"
+#include "../common/human_time_diff.hpp"
+#include "../common/io.hpp"
+#include "../common/md5calc.hpp"
+#include "../common/mmo.hpp"
+#include "../common/socket.hpp"
+#include "../common/utils.hpp"
+#include "../common/version.hpp"
+
+#include "../poison.hpp"
+
+#define LADMIN_CONF_NAME        "conf/ladmin_athena.conf"
+
+static
+int eathena_interactive_session;
+#define Iprintf if (eathena_interactive_session) PRINTF
+
+//-------------------------------INSTRUCTIONS------------------------------
+// Set the variables below:
+//   IP of the login server.
+//   Port where the login-server listens incoming packets.
+//   Password of administration (same of config_athena.conf).
+// IMPORTANT:
+//   Be sure that you authorize remote administration in login-server
+//   (see login_athena.conf, 'admin_state' parameter)
+//-------------------------------------------------------------------------
+static
+IP4Address login_ip = IP4_LOCALHOST;   // IP of login-server
+static
+int login_port = 6900;    // Port of login-server
+static
+AccountPass admin_pass = stringish<AccountPass>("admin");    // Administration password
+static
+FString ladmin_log_filename = "log/ladmin.log";
+//-------------------------------------------------------------------------
+//  LIST of COMMANDs that you can type at the prompt:
+//    To use these commands you can only type only the first letters.
+//    You must type a minimum of letters (you can not type 'a',
+//      because ladmin doesn't know if it's for 'aide' or for 'add')
+//    <Example> q <= quit, li <= list, pass <= passwd, etc.
+//
+//  Note: every time you must give a account_name, you can use "" or '' (spaces can be included)
+//
+//  help/?
+//    Display the description of the commands
+//  help/? [command]
+//    Display the description of the specified command
+//
+//  add <account_name> <sex> <password>
+//    Create an account with the default email (a@a.com).
+//    Concerning the sex, only the first letter is used (F or M).
+//    The e-mail is set to a@a.com (default e-mail). It's like to have no e-mail.
+//    When the password is omitted, the input is done without displaying of the pressed keys.
+//    <example> add testname Male testpass
+//
+//  ban/banish yyyy/mm/dd hh:mm:ss <account name>
+//    Changes the final date of a banishment of an account.
+//    Like banset, but <account name> is at end.
+//
+//  banadd <account_name> <modifier>
+//    Adds or substracts time from the final date of a banishment of an account.
+//    Modifier is done as follows:
+//      Adjustment value (-1, 1, +1, etc...)
+//      Modified element:
+//        a or y: year
+//        m:  month
+//        j or d: day
+//        h:  hour
+//        mn: minute
+//        s:  second
+//    <example> banadd testname +1m-2mn1s-6y
+//              this example adds 1 month and 1 second, and substracts 2 minutes and 6 years at the same time.
+//  NOTE: If you modify the final date of a non-banished account,
+//        you fix the final date to (actual time +- adjustments)
+//
+//  banset <account_name> yyyy/mm/dd [hh:mm:ss]
+//    Changes the final date of a banishment of an account.
+//    Default time [hh:mm:ss]: 23:59:59.
+//  banset <account_name> 0
+//    Set a non-banished account (0 = unbanished).
+//
+//  block <account name>
+//    Set state 5 (You have been blocked by the GM Team) to an account.
+//    Like state <account name> 5.
+//
+//  check <account_name> <password>
+//    Check the validity of a password for an account
+//    NOTE: Server will never sends back a password.
+//          It's the only method you have to know if a password is correct.
+//          The other method is to have a ('physical') access to the accounts file.
+//
+//  create <account_name> <sex> <email> <password>
+//    Like the 'add' command, but with e-mail moreover.
+//    <example> create testname Male my@mail.com testpass
+//
+//  del <account name>
+//    Remove an account.
+//    This order requires confirmation. After confirmation, the account is deleted.
+//
+//  email <account_name> <email>
+//    Modify the e-mail of an account.
+//
+//  getcount
+//    Give the number of players online on all char-servers.
+//
+//  gm <account_name> [GM_level]
+//    Modify the GM level of an account.
+//    Default value remove GM level (GM level = 0).
+//    <example> gm testname 80
+//
+//  id <account name>
+//    Give the id of an account.
+//
+//  info <account_id>
+//    Display complete information of an account.
+//
+//  kami <message>
+//    Sends a broadcast message on all map-server (in yellow).
+//  kamib <message>
+//    Sends a broadcast message on all map-server (in blue).
+//
+//  list/ls [start_id [end_id]]
+//    Display a list of accounts.
+//    'start_id', 'end_id': indicate end and start identifiers.
+//    Research by name is not possible with this command.
+//    <example> list 10 9999999
+//
+//  listBan/lsBan [start_id [end_id]]
+//    Like list/ls, but only for accounts with state or banished
+//
+//  listGM/lsGM [start_id [end_id]]
+//    Like list/ls, but only for GM accounts
+//
+//  listOK/lsOK [start_id [end_id]]
+//    Like list/ls, but only for accounts without state and not banished
+//
+//  memo <account_name> <memo>
+//    Modify the memo of an account.
+//    'memo': it can have until 253 characters (with spaces or not).
+//
+//  name <account_id>
+//    Give the name of an account.
+//
+//  passwd <account_name> <new_password>
+//    Change the password of an account.
+//    When new password is omitted, the input is done without displaying of the pressed keys.
+//
+//  quit/end/exit
+//    End of the program of administration
+//
+//  reloadGM
+//    Reload GM configuration file
+//
+//  search <expression>
+//    Seek accounts.
+//    Displays the accounts whose names correspond.
+//  search -r/-e/--expr/--regex <expression>
+//    Seek accounts by regular expression.
+//    Displays the accounts whose names correspond.
+//
+//  sex <account_name> <sex>
+//    Modify the sex of an account.
+//    <example> sex testname Male
+//
+//  state <account_name> <new_state> <error_message_#7>
+//    Change the state of an account.
+//    'new_state': state is the state of the packet 0x006a + 1. The possibilities are:
+//                 0 = Account ok            6 = Your Game's EXE file is not the latest version
+//                 1 = Unregistered ID       7 = You are Prohibited to log in until %s
+//                 2 = Incorrect Password    8 = Server is jammed due to over populated
+//                 3 = This ID is expired    9 = No MSG
+//                 4 = Rejected from Server  100 = This ID has been totally erased
+//                 5 = You have been blocked by the GM Team
+//                 all other values are 'No MSG', then use state 9 please.
+//    'error_message_#7': message of the code error 6 = Your are Prohibited to log in until %s (packet 0x006a)
+//
+//  timeadd <account_name> <modifier>
+//    Adds or substracts time from the validity limit of an account.
+//    Modifier is done as follows:
+//      Adjustment value (-1, 1, +1, etc...)
+//      Modified element:
+//        a or y: year
+//        m:  month
+//        j or d: day
+//        h:  hour
+//        mn: minute
+//        s:  second
+//    <example> timeadd testname +1m-2mn1s-6y
+//              this example adds 1 month and 1 second, and substracts 2 minutes and 6 years at the same time.
+//  NOTE: You can not modify a unlimited validity limit.
+//        If you want modify it, you want probably create a limited validity limit.
+//        So, at first, you must set the validity limit to a date/time.
+//
+//  timeset <account_name> yyyy/mm/dd [hh:mm:ss]
+//    Changes the validity limit of an account.
+//    Default time [hh:mm:ss]: 23:59:59.
+//  timeset <account_name> 0
+//    Gives an unlimited validity limit (0 = unlimited).
+//
+//  unban/unbanish <account name>
+//    Unban an account.
+//    Like banset <account name> 0.
+//
+//  unblock <account name>
+//    Set state 0 (Account ok) to an account.
+//    Like state <account name> 0.
+//
+//  version
+//    Display the version of the login-server.
+//
+//  who <account name>
+//    Displays complete information of an account.
+//
+//-------------------------------------------------------------------------
+static
+int login_fd;
+static
+int bytes_to_read = 0;         // flag to know if we waiting bytes from login-server
+static
+TString parameters; // needs to be global since it's passed to the parse function
+// really should be added to session data
+static
+int list_first, list_last, list_type, list_count;  // parameter to display a list of accounts
+static
+int already_exit_function = 0; // sometimes, the exit function is called twice... so, don't log twice the message
+
+#pragma GCC diagnostic push
+#pragma GCC diagnostic ignored "-Wmissing-noreturn"
+void SessionDeleter::operator()(SessionData *)
+{
+    assert(false && "ladmin does not have sessions");
+}
+#pragma GCC diagnostic pop
+
+//------------------------------
+// Writing function of logs file
+//------------------------------
+#define LADMIN_LOG(fmt, ...)    \
+    ladmin_log(STRPRINTF(fmt, ## __VA_ARGS__))
+static
+void ladmin_log(XString line)
+{
+    FILE *logfp = fopen(ladmin_log_filename.c_str(), "a");
+    if (!logfp)
+        return;
+    log_with_timestamp(logfp, line);
+    fclose(logfp);
+}
+
+static
+bool qsplit(ZString src)
+{
+    return !src;
+}
+
+template<class F, class... R>
+static
+bool qsplit(ZString src, F first, R... rest)
+{
+    if (!src)
+        return false;
+    XString one;
+    if (src.startswith('\''))
+    {
+        src = src.xslice_t(1);
+        auto it = std::find(src.begin(), src.end(), '\'');
+        if (it == src.end())
+            return false;
+        one = src.xislice_h(it);
+        src = src.xislice_t(it + 1);
+        while (src.startswith(' '))
+            src = src.xslice_t(1);
+    }
+    else if (src.startswith('"'))
+    {
+        src = src.xslice_t(1);
+        auto it = std::find(src.begin(), src.end(), '"');
+        if (it == src.end())
+            return false;
+        one = src.xislice_h(it);
+        src = src.xislice_t(it + 1);
+        while (src.startswith(' '))
+            src = src.xslice_t(1);
+    }
+    else
+    {
+        auto it = std::find(src.begin(), src.end(), ' ');
+        one = src.xislice_h(it);
+        src = src.xislice_t(it);
+        while (src.startswith(' '))
+            src = src.xslice_t(1);
+    }
+    return extract(one, first) && qsplit(src, rest...);
+}
+
+//-----------------------------------------
+// Sub-function: Display commands of ladmin
+//-----------------------------------------
+static
+void display_help(ZString param)
+{
+    XString command = param.xislice_h(std::find(param.begin(), param.end(), ' '));
+
+    if (command.startswith('?'))
+        command = "help";
+
+    LADMIN_LOG("Displaying of the commands or a command.\n");
+
+    if (command == "help")
+    {
+        PRINTF("help/?\n");
+        PRINTF("  Display the description of the commands\n");
+        PRINTF("help/? [command]\n");
+        PRINTF("  Display the description of the specified command\n");
+    }
+    else if (command == "add")
+    {
+        PRINTF("add <account_name> <sex> <password>\n");
+        PRINTF("  Create an account with the default email (a@a.com).\n");
+        PRINTF("  Concerning the sex, only the first letter is used (F or M).\n");
+        PRINTF("  The e-mail is set to a@a.com (default e-mail). It's like to have no e-mail.\n");
+        PRINTF("  When the password is omitted,\n");
+        PRINTF("  the input is done without displaying of the pressed keys.\n");
+        PRINTF("  <example> add testname Male testpass\n");
+    }
+    else if (command == "ban")
+    {
+        PRINTF("ban/banish yyyy/mm/dd hh:mm:ss <account name>\n");
+        PRINTF("  Changes the final date of a banishment of an account.\n");
+        PRINTF("  Like banset, but <account name> is at end.\n");
+    }
+    else if (command == "banadd")
+    {
+        PRINTF("banadd <account_name> <modifier>\n");
+        PRINTF("  Adds or substracts time from the final date of a banishment of an account.\n");
+        PRINTF("  Modifier is done as follows:\n");
+        PRINTF("    Adjustment value (-1, 1, +1, etc...)\n");
+        PRINTF("    Modified element:\n");
+        PRINTF("      a or y: year\n");
+        PRINTF("      m:  month\n");
+        PRINTF("      j or d: day\n");
+        PRINTF("      h:  hour\n");
+        PRINTF("      mn: minute\n");
+        PRINTF("      s:  second\n");
+        PRINTF("  <example> banadd testname +1m-2mn1s-6y\n");
+        PRINTF("            this example adds 1 month and 1 second, and substracts 2 minutes\n");
+        PRINTF("            and 6 years at the same time.\n");
+        PRINTF("NOTE: If you modify the final date of a non-banished account,\n");
+        PRINTF("      you fix the final date to (actual time +- adjustments)\n");
+    }
+    else if (command == "banset")
+    {
+        PRINTF("banset <account_name> yyyy/mm/dd [hh:mm:ss]\n");
+        PRINTF("  Changes the final date of a banishment of an account.\n");
+        PRINTF("  Default time [hh:mm:ss]: 23:59:59.\n");
+        PRINTF("banset <account_name> 0\n");
+        PRINTF("  Set a non-banished account (0 = unbanished).\n");
+    }
+    else if (command == "block")
+    {
+        PRINTF("block <account name>\n");
+        PRINTF("  Set state 5 (You have been blocked by the GM Team) to an account.\n");
+        PRINTF("  This command works like state <account_name> 5.\n");
+    }
+    else if (command == "check")
+    {
+        PRINTF("check <account_name> <password>\n");
+        PRINTF("  Check the validity of a password for an account.\n");
+        PRINTF("  NOTE: Server will never sends back a password.\n");
+        PRINTF("        It's the only method you have to know if a password is correct.\n");
+        PRINTF("        The other method is to have a ('physical') access to the accounts file.\n");
+    }
+    else if (command == "create")
+    {
+        PRINTF("create <account_name> <sex> <email> <password>\n");
+        PRINTF("  Like the 'add' command, but with e-mail moreover.\n");
+        PRINTF("  <example> create testname Male my@mail.com testpass\n");
+    }
+    else if (command == "delete")
+    {
+        PRINTF("del <account name>\n");
+        PRINTF("  Remove an account.\n");
+        PRINTF("  This order requires confirmation. After confirmation, the account is deleted.\n");
+    }
+    else if (command == "email")
+    {
+        PRINTF("email <account_name> <email>\n");
+        PRINTF("  Modify the e-mail of an account.\n");
+    }
+    else if (command == "getcount")
+    {
+        PRINTF("getcount\n");
+        PRINTF("  Give the number of players online on all char-servers.\n");
+    }
+    else if (command == "gm")
+    {
+        PRINTF("gm <account_name> [GM_level]\n");
+        PRINTF("  Modify the GM level of an account.\n");
+        PRINTF("  Default value remove GM level (GM level = 0).\n");
+        PRINTF("  <example> gm testname 80\n");
+    }
+    else if (command == "id")
+    {
+        PRINTF("id <account name>\n");
+        PRINTF("  Give the id of an account.\n");
+    }
+    else if (command == "info")
+    {
+        PRINTF("info <account_id>\n");
+        PRINTF("  Display complete information of an account.\n");
+    }
+    else if (command == "kami")
+    {
+        PRINTF("kami <message>\n");
+        PRINTF("  Sends a broadcast message on all map-server (in yellow).\n");
+    }
+    else if (command == "kamib")
+    {
+        PRINTF("kamib <message>\n");
+        PRINTF("  Sends a broadcast message on all map-server (in blue).\n");
+    }
+    else if (command == "list")
+    {
+        PRINTF("list/ls [start_id [end_id]]\n");
+        PRINTF("  Display a list of accounts.\n");
+        PRINTF("  'start_id', 'end_id': indicate end and start identifiers.\n");
+        PRINTF("  Research by name is not possible with this command.\n");
+        PRINTF("  <example> list 10 9999999\n");
+    }
+    else if (command == "itemfrob")
+    {
+        PRINTF("itemfrob <source-id> <dest-id>\n");
+        PRINTF("  Translates item IDs for all accounts.\n");
+        PRINTF("  Any items matching the source item ID will be mapped to the dest-id.\n");
+        PRINTF("  <example> itemfrob 500 700\n");
+    }
+    else if (command == "listban")
+    {
+        PRINTF("listBan/lsBan [start_id [end_id]]\n");
+        PRINTF("  Like list/ls, but only for accounts with state or banished.\n");
+    }
+    else if (command == "listgm")
+    {
+        PRINTF("listGM/lsGM [start_id [end_id]]\n");
+        PRINTF("  Like list/ls, but only for GM accounts.\n");
+    }
+    else if (command == "listok")
+    {
+        PRINTF("listOK/lsOK [start_id [end_id]]\n");
+        PRINTF("  Like list/ls, but only for accounts without state and not banished.\n");
+    }
+    else if (command == "memo")
+    {
+        PRINTF("memo <account_name> <memo>\n");
+        PRINTF("  Modify the memo of an account.\n");
+        PRINTF("  'memo': it can have until 253 characters (with spaces or not).\n");
+    }
+    else if (command == "name")
+    {
+        PRINTF("name <account_id>\n");
+        PRINTF("  Give the name of an account.\n");
+    }
+    else if (command == "password")
+    {
+        PRINTF("passwd <account_name> <new_password>\n");
+        PRINTF("  Change the password of an account.\n");
+        PRINTF("  When new password is omitted,\n");
+        PRINTF("  the input is done without displaying of the pressed keys.\n");
+    }
+    else if (command == "reloadgm")
+    {
+        PRINTF("reloadGM\n");
+        PRINTF("  Reload GM configuration file\n");
+    }
+    else if (command == "search")
+    {
+        PRINTF("search <expression>\n");
+        PRINTF("  Seek accounts.\n");
+        PRINTF("  Displays the accounts whose names correspond.\n");
+    }
+    else if (command == "sex")
+    {
+        PRINTF("sex <account_name> <sex>\n");
+        PRINTF("  Modify the sex of an account.\n");
+        PRINTF("  <example> sex testname Male\n");
+    }
+    else if (command == "state")
+    {
+        PRINTF("state <account_name> <new_state> <error_message_#7>\n");
+        PRINTF("  Change the state of an account.\n");
+        PRINTF("  'new_state': state is the state of the packet 0x006a + 1.\n");
+        PRINTF("               The possibilities are:\n");
+        PRINTF("               0 = Account ok\n");
+        PRINTF("               1 = Unregistered ID\n");
+        PRINTF("               2 = Incorrect Password\n");
+        PRINTF("               3 = This ID is expired\n");
+        PRINTF("               4 = Rejected from Server\n");
+        PRINTF("               5 = You have been blocked by the GM Team\n");
+        PRINTF("               6 = Your Game's EXE file is not the latest version\n");
+        PRINTF("               7 = You are Prohibited to log in until...\n");
+        PRINTF("               8 = Server is jammed due to over populated\n");
+        PRINTF("               9 = No MSG\n");
+        PRINTF("               100 = This ID has been totally erased\n");
+        PRINTF("               all other values are 'No MSG', then use state 9 please.\n");
+        PRINTF("  'error_message_#7': message of the code error 6\n");
+        PRINTF("                      = Your are Prohibited to log in until... (packet 0x006a)\n");
+    }
+    else if (command == "timeadd")
+    {
+        PRINTF("timeadd <account_name> <modifier>\n");
+        PRINTF("  Adds or substracts time from the validity limit of an account.\n");
+        PRINTF("  Modifier is done as follows:\n");
+        PRINTF("    Adjustment value (-1, 1, +1, etc...)\n");
+        PRINTF("    Modified element:\n");
+        PRINTF("      a or y: year\n");
+        PRINTF("      m:  month\n");
+        PRINTF("      j or d: day\n");
+        PRINTF("      h:  hour\n");
+        PRINTF("      mn: minute\n");
+        PRINTF("      s:  second\n");
+        PRINTF("  <example> timeadd testname +1m-2mn1s-6y\n");
+        PRINTF("            this example adds 1 month and 1 second, and substracts 2 minutes\n");
+        PRINTF("            and 6 years at the same time.\n");
+        PRINTF("NOTE: You can not modify a unlimited validity limit.\n");
+        PRINTF("      If you want modify it, you want probably create a limited validity limit.\n");
+        PRINTF("      So, at first, you must set the validity limit to a date/time.\n");
+    }
+    else if (command == "timeadd")
+    {
+        PRINTF("timeset <account_name> yyyy/mm/dd [hh:mm:ss]\n");
+        PRINTF("  Changes the validity limit of an account.\n");
+        PRINTF("  Default time [hh:mm:ss]: 23:59:59.\n");
+        PRINTF("timeset <account_name> 0\n");
+        PRINTF("  Gives an unlimited validity limit (0 = unlimited).\n");
+    }
+    else if (command == "unban")
+    {
+        PRINTF("unban/unbanish <account name>\n");
+        PRINTF("  Remove the banishment of an account.\n");
+        PRINTF("  This command works like banset <account_name> 0.\n");
+    }
+    else if (command == "unblock")
+    {
+        PRINTF("unblock <account name>\n");
+        PRINTF("  Set state 0 (Account ok) to an account.\n");
+        PRINTF("  This command works like state <account_name> 0.\n");
+    }
+    else if (command == "version")
+    {
+        PRINTF("version\n");
+        PRINTF("  Display the version of the login-server.\n");
+    }
+    else if (command == "who")
+    {
+        PRINTF("who <account name>\n");
+        PRINTF("  Displays complete information of an account.\n");
+    }
+    else if (command == "quit"
+        || command == "exit"
+        || command == "end")
+    {
+        PRINTF("quit/end/exit\n");
+        PRINTF("  End of the program of administration.\n");
+    }
+    else
+    {
+        if (command)
+            PRINTF("Unknown command [%s] for help. Displaying of all commands.\n",
+                 FString(command));
+        PRINTF(" help/?                          -- Display this help\n");
+        PRINTF(" help/? [command]                -- Display the help of the command\n");
+        PRINTF(" add <account_name> <sex> <password>  -- Create an account with default email\n");
+        PRINTF(" ban/banish yyyy/mm/dd hh:mm:ss <account name> -- Change final date of a ban\n");
+        PRINTF(" banadd/ba <account_name> <modifier>  -- Add or substract time from the final\n");
+        PRINTF("   example: ba apple +1m-2mn1s-2y        date of a banishment of an account\n");
+        PRINTF(" banset/bs <account_name> yyyy/mm/dd [hh:mm:ss] -- Change final date of a ban\n");
+        PRINTF(" banset/bs <account_name> 0           -- Un-banish an account\n");
+        PRINTF(" block <account name>     -- Set state 5 (blocked by the GM Team) to an account\n");
+        PRINTF(" check <account_name> <password>      -- Check the validity of a password\n");
+        PRINTF(" create <account_name> <sex> <email> <passwrd> -- Create an account with email\n");
+        PRINTF(" del <account name>                   -- Remove an account\n");
+        PRINTF(" email <account_name> <email>         -- Modify an email of an account\n");
+        PRINTF(" getcount                             -- Give the number of players online\n");
+        PRINTF(" gm <account_name> [GM_level]         -- Modify the GM level of an account\n");
+        PRINTF(" id <account name>                    -- Give the id of an account\n");
+        PRINTF(" info <account_id>                    -- Display all information of an account\n");
+        PRINTF(" itemfrob <source-id> <dest-id>       -- Map all items from one item ID to another\n");
+        PRINTF(" kami <message>                       -- Sends a broadcast message (in yellow)\n");
+        PRINTF(" kamib <message>                      -- Sends a broadcast message (in blue)\n");
+        PRINTF(" list/ls [First_id [Last_id]]         -- Display a list of accounts\n");
+        PRINTF(" listBan/lsBan [First_id [Last_id] ]  -- Display a list of accounts\n");
+        PRINTF("                                         with state or banished\n");
+        PRINTF(" listGM/lsGM [First_id [Last_id]]     -- Display a list of GM accounts\n");
+        PRINTF(" listOK/lsOK [First_id [Last_id] ]    -- Display a list of accounts\n");
+        PRINTF("                                         without state and not banished\n");
+        PRINTF(" memo <account_name> <memo>           -- Modify the memo of an account\n");
+        PRINTF(" name <account_id>                    -- Give the name of an account\n");
+        PRINTF(" passwd <account_name> <new_password> -- Change the password of an account\n");
+        PRINTF(" quit/end/exit                        -- End of the program of administation\n");
+        PRINTF(" reloadGM                             -- Reload GM configuration file\n");
+        PRINTF(" search <expression>                  -- Seek accounts\n");
+        PRINTF(" sex <nomcompte> <sexe>               -- Modify the sex of an account\n");
+        PRINTF(" state <account_name> <new_state> <error_message_#7> -- Change the state\n");
+        PRINTF(" timeadd/ta <account_name> <modifier> -- Add or substract time from the\n");
+        PRINTF("   example: ta apple +1m-2mn1s-2y        validity limit of an account\n");
+        PRINTF(" timeset/ts <account_name> yyyy/mm/dd [hh:mm:ss] -- Change the validify limit\n");
+        PRINTF(" timeset/ts <account_name> 0          -- Give a unlimited validity limit\n");
+        PRINTF(" unban/unbanish <account name>        -- Remove the banishment of an account\n");
+        PRINTF(" unblock <account name>               -- Set state 0 (Account ok) to an account\n");
+        PRINTF(" version                              -- Gives the version of the login-server\n");
+        PRINTF(" who <account name>                   -- Display all information of an account\n");
+        PRINTF(" who <account name>                   -- Display all information of an account\n");
+        PRINTF(" Note: To use spaces in an account name, type \"<account name>\" (or ').\n");
+    }
+}
+
+//-----------------------------
+// Sub-function: add an account
+//-----------------------------
+static
+void addaccount(ZString param, int emailflag)
+{
+    AccountName name;
+    VString<1> sex_;
+    XString email_;
+    AccountPass password;
+
+    if (emailflag == 0)
+    {
+        // add command
+        if (!qsplit(param, &name, &sex_, &password))
+        {
+            PRINTF("Please input an account name, a sex and a password.\n");
+            PRINTF("<example> add testname Male testpass\n");
+            LADMIN_LOG("Incomplete parameters to create an account ('add' command).\n");
+            return;
+        }
+        email_ = DEFAULT_EMAIL;
+    }
+    else
+    {
+        // 1: create command
+        if (!qsplit(param, &name, &sex_, &email_, &password))
+        {
+            PRINTF("Please input an account name, a sex and a password.\n");
+            PRINTF("<example> create testname Male my@mail.com testpass\n");
+            LADMIN_LOG("Incomplete parameters to create an account ('create' command).\n");
+            return;
+        }
+    }
+    char sex = sex_.front();
+    if (!name.is_print())
+        return;
+
+    if (!XString("MF").contains(sex))
+    {
+        PRINTF("Illegal gender [%c]. Please input M or F.\n", sex);
+        LADMIN_LOG("Illegal gender [%c]. Please input M or F.\n", sex);
+        return;
+    }
+
+    if (!e_mail_check(email_))
+    {
+        PRINTF("Invalid email [%s]. Please input a valid e-mail.\n",
+                FString(email_));
+        LADMIN_LOG("Invalid email [%s]. Please input a valid e-mail.\n",
+                FString(email_));
+        return;
+    }
+    AccountEmail email = stringish<AccountEmail>(email_);
+
+    if (!password.is_print())
+        return;
+
+    LADMIN_LOG("Request to login-server to create an account.\n");
+
+    WFIFOW(login_fd, 0) = 0x7930;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFO_STRING(login_fd, 26, password, 24);
+    WFIFOB(login_fd, 50) = sex;
+    WFIFO_STRING(login_fd, 51, email, 40);
+    WFIFOSET(login_fd, 91);
+    bytes_to_read = 1;
+}
+
+//---------------------------------------------------------------------------------
+// Sub-function: Add/substract time to the final date of a banishment of an account
+//---------------------------------------------------------------------------------
+static
+void banaddaccount(ZString param)
+{
+    AccountName name;
+    HumanTimeDiff modif {};
+
+    if (!qsplit(param, &name, &modif))
+    {
+        PRINTF("Please input an account name and a modifier.\n");
+        PRINTF("  <example>: banadd testname +1m-2mn1s-6y\n");
+        PRINTF("             this example adds 1 month and 1 second, and substracts 2 minutes\n");
+        PRINTF("             and 6 years at the same time.\n");
+        LADMIN_LOG("Incomplete parameters to modify the ban date/time of an account ('banadd' command).\n");
+        return;
+    }
+    if (!name.is_print())
+        return;
+
+    if (!modif)
+    {
+        PRINTF("Please give an adjustment with this command:\n");
+        PRINTF("  Adjustment value (-1, 1, +1, etc...)\n");
+        PRINTF("  Modified element:\n");
+        PRINTF("    a or y: year\n");
+        PRINTF("    m: month\n");
+        PRINTF("    j or d: day\n");
+        PRINTF("    h: hour\n");
+        PRINTF("    mn: minute\n");
+        PRINTF("    s: second\n");
+        PRINTF("  <example> banadd testname +1m-2mn1s-6y\n");
+        PRINTF("            this example adds 1 month and 1 second, and substracts 2 minutes\n");
+        PRINTF("            and 6 years at the same time.\n");
+        LADMIN_LOG("No adjustment isn't an adjustment ('banadd' command).\n");
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to modify a ban date/time.\n");
+
+    WFIFOW(login_fd, 0) = 0x794c;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFO_STRUCT(login_fd, 26, modif);
+    WFIFOSET(login_fd, 38);
+    bytes_to_read = 1;
+}
+
+//-----------------------------------------------------------------------
+// Sub-function of sub-function banaccount, unbanaccount or bansetaccount
+// Set the final date of a banishment of an account
+//-----------------------------------------------------------------------
+static
+void bansetaccountsub(AccountName name, XString date, XString time_)
+{
+    int year, month, day, hour, minute, second;
+    year = month = day = hour = minute = second = 0;
+
+    // # of seconds 1/1/1970 (timestamp): ban time limit of the account (0 = no ban)
+    TimeT ban_until_time = TimeT();
+    struct tm tmtime = ban_until_time;   // initialize
+
+    if (!name.is_print())
+        return;
+
+    if (date != "0"
+        && ((!extract(date, record<'/'>(&year, &month, &day))
+                && !extract(date, record<'-'>(&year, &month, &day))
+                && !extract(date, record<'.'>(&year, &month, &day)))
+            || !extract(time_, record<':'>(&hour, &minute, &second))))
+    {
+        PRINTF("Please input a date and a time (format: yyyy/mm/dd hh:mm:ss).\n");
+        PRINTF("You can imput 0 instead of if you use 'banset' command.\n");
+        LADMIN_LOG("Invalid format for the date/time ('banset' or 'ban' command).\n");
+        return;
+    }
+
+    if (date == "0")
+    {
+        ban_until_time = TimeT();
+    }
+    else
+    {
+        if (year < 70)
+        {
+            year = year + 100;
+        }
+        if (year >= 1900)
+        {
+            year = year - 1900;
+        }
+        if (month < 1 || month > 12)
+        {
+            PRINTF("Please give a correct value for the month (from 1 to 12).\n");
+            LADMIN_LOG("Invalid month for the date ('banset' or 'ban' command).\n");
+            return;
+        }
+        month = month - 1;
+        if (day < 1 || day > 31)
+        {
+            PRINTF("Please give a correct value for the day (from 1 to 31).\n");
+            LADMIN_LOG("Invalid day for the date ('banset' or 'ban' command).\n");
+            return;
+        }
+        if (((month == 3 || month == 5 || month == 8 || month == 10)
+             && day > 30) || (month == 1 && day > 29))
+        {
+            PRINTF("Please give a correct value for a day of this month (%d).\n",
+                 month);
+            LADMIN_LOG("Invalid day for this month ('banset' or 'ban' command).\n");
+            return;
+        }
+        if (hour < 0 || hour > 23)
+        {
+            PRINTF("Please give a correct value for the hour (from 0 to 23).\n");
+            LADMIN_LOG("Invalid hour for the time ('banset' or 'ban' command).\n");
+            return;
+        }
+        if (minute < 0 || minute > 59)
+        {
+            PRINTF("Please give a correct value for the minutes (from 0 to 59).\n");
+            LADMIN_LOG("Invalid minute for the time ('banset' or 'ban' command).\n");
+            return;
+        }
+        if (second < 0 || second > 59)
+        {
+            PRINTF("Please give a correct value for the seconds (from 0 to 59).\n");
+            LADMIN_LOG("Invalid second for the time ('banset' or 'ban' command).\n");
+            return;
+        }
+        tmtime.tm_year = year;
+        tmtime.tm_mon = month;
+        tmtime.tm_mday = day;
+        tmtime.tm_hour = hour;
+        tmtime.tm_min = minute;
+        tmtime.tm_sec = second;
+        tmtime.tm_isdst = -1;  // -1: no winter/summer time modification
+        ban_until_time = tmtime;
+        if (ban_until_time.error())
+        {
+            PRINTF("Invalid date.\n");
+            PRINTF("Please input a date and a time (format: yyyy/mm/dd hh:mm:ss).\n");
+            PRINTF("You can imput 0 instead of if you use 'banset' command.\n");
+            LADMIN_LOG("Invalid date. ('banset' or 'ban' command).\n");
+            return;
+        }
+    }
+
+    LADMIN_LOG("Request to login-server to set a ban.\n");
+
+    WFIFOW(login_fd, 0) = 0x794a;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOL(login_fd, 26) = static_cast<time_t>(ban_until_time);
+    WFIFOSET(login_fd, 30);
+    bytes_to_read = 1;
+}
+
+//---------------------------------------------------------------------
+// Sub-function: Set the final date of a banishment of an account (ban)
+//---------------------------------------------------------------------
+static
+void banaccount(ZString param)
+{
+    AccountName name;
+    XString date;
+    XString time_;
+
+    if (!qsplit(param, &date, &time_, &name))
+    {
+        PRINTF("Please input an account name, a date and a hour.\n");
+        PRINTF("<example>: banset <account_name> yyyy/mm/dd [hh:mm:ss]\n");
+        PRINTF("           banset <account_name> 0   (0 = un-banished)\n");
+        PRINTF("           ban/banish yyyy/mm/dd hh:mm:ss <account name>\n");
+        PRINTF("           unban/unbanish <account name>\n");
+        PRINTF("           Default time [hh:mm:ss]: 23:59:59.\n");
+        LADMIN_LOG("Incomplete parameters to set a ban ('banset' or 'ban' command).\n");
+        return;
+    }
+
+    if (!time_)
+        time_ = "23:59:59";
+
+    bansetaccountsub(name, date, time_);
+}
+
+//------------------------------------------------------------------------
+// Sub-function: Set the final date of a banishment of an account (banset)
+//------------------------------------------------------------------------
+static
+void bansetaccount(ZString param)
+{
+    AccountName name;
+    XString date;
+    XString time_;
+
+    if (!qsplit(param, &name, &date, &time_)
+            && !qsplit(param, &name, &date))
+    {
+        PRINTF("Please input an account name, a date and a hour.\n");
+        PRINTF("<example>: banset <account_name> yyyy/mm/dd [hh:mm:ss]\n");
+        PRINTF("           banset <account_name> 0   (0 = un-banished)\n");
+        PRINTF("           ban/banish yyyy/mm/dd hh:mm:ss <account name>\n");
+        PRINTF("           unban/unbanish <account name>\n");
+        PRINTF("           Default time [hh:mm:ss]: 23:59:59.\n");
+        LADMIN_LOG("Incomplete parameters to set a ban ('banset' or 'ban' command).\n");
+        return;
+    }
+
+    if (!time_)
+        time_ = "23:59:59";
+
+    bansetaccountsub(name, date, time_);
+}
+
+//-------------------------------------------------
+// Sub-function: unbanishment of an account (unban)
+//-------------------------------------------------
+static
+void unbanaccount(ZString param)
+{
+    AccountName name;
+
+    if (!qsplit(param, &name))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<example>: banset <account_name> yyyy/mm/dd [hh:mm:ss]\n");
+        PRINTF("           banset <account_name> 0   (0 = un-banished)\n");
+        PRINTF("           ban/banish yyyy/mm/dd hh:mm:ss <account name>\n");
+        PRINTF("           unban/unbanish <account name>\n");
+        PRINTF("           Default time [hh:mm:ss]: 23:59:59.\n");
+        LADMIN_LOG("Incomplete parameters to set a ban ('unban' command).\n");
+        return;
+    }
+
+    bansetaccountsub(name, "0", "");
+}
+
+//---------------------------------------------------------
+// Sub-function: Asking to check the validity of a password
+// (Note: never send back a password with login-server!! security of passwords)
+//---------------------------------------------------------
+static
+void checkaccount(ZString param)
+{
+    AccountName name;
+    AccountPass password;
+
+    if (!qsplit(param, &name, &password))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<example> check testname password\n");
+        LADMIN_LOG("Incomplete parameters to check the password of an account ('check' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+        return;
+
+    if (!password.is_print())
+        return;
+
+    LADMIN_LOG("Request to login-server to check a password.\n");
+
+    WFIFOW(login_fd, 0) = 0x793a;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFO_STRING(login_fd, 26, password, 24);
+    WFIFOSET(login_fd, 50);
+    bytes_to_read = 1;
+}
+
+//------------------------------------------------
+// Sub-function: Asking for deletion of an account
+//------------------------------------------------
+static
+void delaccount(ZString param)
+{
+    AccountName name;
+
+    if (!qsplit(param, &name))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<example> del testnametodelete\n");
+        LADMIN_LOG("No name given to delete an account ('delete' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+        return;
+
+    char confirm;
+    do
+    {
+        PRINTF("\033[1;36m ** Are you really sure to DELETE account [%s]? (y/n) > \033[0m", name);
+        fflush(stdout);
+        int seek = getchar();
+        confirm = seek;
+        if (seek == EOF)
+            confirm = 'n';
+        else
+            while (seek != '\n' && seek != EOF)
+                seek = getchar();
+    }
+    while (!XString("yn").contains(confirm));
+
+    if (confirm == 'n')
+    {
+        PRINTF("Deletion canceled.\n");
+        LADMIN_LOG("Deletion canceled by user ('delete' command).\n");
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to delete an acount.\n");
+
+    WFIFOW(login_fd, 0) = 0x7932;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOSET(login_fd, 26);
+    bytes_to_read = 1;
+}
+
+//----------------------------------------------------------
+// Sub-function: Asking to modification of an account e-mail
+//----------------------------------------------------------
+static
+void changeemail(ZString param)
+{
+    AccountName name;
+    XString email_;
+    if (!qsplit(param, &name, &email_))
+    {
+        PRINTF("Please input an account name and an email.\n");
+        PRINTF("<example> email testname newemail\n");
+        LADMIN_LOG("Incomplete parameters to change the email of an account ('email' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+        return;
+
+    if (!e_mail_check(email_))
+    {
+        PRINTF("Invalid email [%s]. Please input a valid e-mail.\n",
+                FString(email_));
+        LADMIN_LOG("Invalid email [%s]. Please input a valid e-mail.\n",
+                FString(email_));
+        return;
+    }
+    AccountEmail email = stringish<AccountEmail>(email_);
+
+    LADMIN_LOG("Request to login-server to change an email.\n");
+
+    WFIFOW(login_fd, 0) = 0x7940;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFO_STRING(login_fd, 26, email, 40);
+    WFIFOSET(login_fd, 66);
+    bytes_to_read = 1;
+}
+
+//-----------------------------------------------------
+// Sub-function: Asking of the number of online players
+//-----------------------------------------------------
+static
+void getlogincount(void)
+{
+    LADMIN_LOG("Request to login-server to obtain the # of online players.\n");
+
+    WFIFOW(login_fd, 0) = 0x7938;
+    WFIFOSET(login_fd, 2);
+    bytes_to_read = 1;
+}
+
+//----------------------------------------------------------
+// Sub-function: Asking to modify the GM level of an account
+//----------------------------------------------------------
+static
+void changegmlevel(ZString param)
+{
+    AccountName name;
+    int GM_level = 0;
+
+    if (!qsplit(param, &name, &GM_level))
+    {
+        PRINTF("Please input an account name and a GM level.\n");
+        PRINTF("<example> gm testname 80\n");
+        LADMIN_LOG("Incomplete parameters to change the GM level of an account ('gm' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+        return;
+
+    if (GM_level < 0 || GM_level > 99)
+    {
+        PRINTF("Illegal GM level [%d]. Please input a value from 0 to 99.\n",
+             GM_level);
+        LADMIN_LOG("Illegal GM level [%d]. The value can be from 0 to 99.\n",
+              GM_level);
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to change a GM level.\n");
+
+    WFIFOW(login_fd, 0) = 0x793e;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOB(login_fd, 26) = GM_level;
+    WFIFOSET(login_fd, 27);
+    bytes_to_read = 1;
+}
+
+//---------------------------------------------
+// Sub-function: Asking to obtain an account id
+//---------------------------------------------
+static
+void idaccount(ZString param)
+{
+    AccountName name;
+
+    if (!qsplit(param, &name))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<example> id testname\n");
+        LADMIN_LOG("No name given to search an account id ('id' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+    {
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to know an account id.\n");
+
+    WFIFOW(login_fd, 0) = 0x7944;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOSET(login_fd, 26);
+    bytes_to_read = 1;
+}
+
+//----------------------------------------------------------------------------
+// Sub-function: Asking to displaying information about an account (by its id)
+//----------------------------------------------------------------------------
+static
+void infoaccount(int account_id)
+{
+    if (account_id < 0)
+    {
+        PRINTF("Please input a positive value for the id.\n");
+        LADMIN_LOG("Negative value was given to found the account.\n");
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to obtain information about an account (by its id).\n");
+
+    WFIFOW(login_fd, 0) = 0x7954;
+    WFIFOL(login_fd, 2) = account_id;
+    WFIFOSET(login_fd, 6);
+    bytes_to_read = 1;
+}
+
+//---------------------------------------
+// Sub-function: Send a broadcast message
+//---------------------------------------
+static
+void sendbroadcast(ZString message)
+{
+    if (!message)
+    {
+        PRINTF("Please input a message.\n");
+        {
+            PRINTF("<example> kami a message\n");
+        }
+        LADMIN_LOG("The message is void ('kami' command).\n");
+        return;
+    }
+
+    WFIFOW(login_fd, 0) = 0x794e;
+    WFIFOW(login_fd, 2) = 0;
+    size_t len = message.size() + 1;
+    WFIFOL(login_fd, 4) = len;
+    WFIFO_STRING(login_fd, 8, message, len);
+    WFIFOSET(login_fd, 8 + len);
+    bytes_to_read = 1;
+}
+
+
+//--------------------------------------------------------
+// Sub-function: Asking to Displaying of the accounts list
+//--------------------------------------------------------
+static
+void listaccount(ZString param, int type)
+{
+//int list_first, list_last, list_type; // parameter to display a list of accounts
+    list_type = type;
+
+    // set default values
+    list_first = 0;
+    list_last = 0;
+
+    if (list_type == 1)
+    {                           // if listgm
+        // get all accounts = use default
+    }
+    else if (list_type == 2)
+    {                           // if search
+        // get all accounts = use default
+    }
+    else if (list_type == 3)
+    {                           // if listban
+        // get all accounts = use default
+    }
+    else if (list_type == 4)
+    {                           // if listok
+        // get all accounts = use default
+    }
+    else
+    {
+        // if list (list_type == 0)
+        extract(param, record<' '>(&list_first, &list_last));
+        if (list_first < 0)
+            list_first = 0;
+        if (list_last < list_first || list_last < 0)
+            list_last = 0;
+    }
+
+    LADMIN_LOG("Request to login-server to obtain the list of accounts from %d to %d.\n",
+          list_first, list_last);
+
+    WFIFOW(login_fd, 0) = 0x7920;
+    WFIFOL(login_fd, 2) = list_first;
+    WFIFOL(login_fd, 6) = list_last;
+    WFIFOSET(login_fd, 10);
+    bytes_to_read = 1;
+
+    //          0123456789 01 01234567890123456789012301234 012345 0123456789012345678901234567
+    Iprintf("account_id GM user_name               sex    count state\n");
+    Iprintf("-------------------------------------------------------------------------------\n");
+    list_count = 0;
+}
+
+//--------------------------------------------------------
+// Sub-function: Frobnicate items
+//--------------------------------------------------------
+static
+int itemfrob(ZString param)
+{
+    int source_id, dest_id;
+
+    if (!extract(param, record<' '>(&source_id, &dest_id)))
+    {
+        PRINTF("You must provide the source and destination item IDs.\n");
+        return 1;
+    }
+
+    WFIFOW(login_fd, 0) = 0x7924;
+    WFIFOL(login_fd, 2) = source_id;
+    WFIFOL(login_fd, 6) = dest_id;
+    WFIFOSET(login_fd, 10);
+    bytes_to_read = 1;          // all logging is done to the three main servers
+
+    return 0;
+}
+
+//--------------------------------------------
+// Sub-function: Asking to modify a memo field
+//--------------------------------------------
+static
+void changememo(ZString param)
+{
+    AccountName name;
+    XString memo;
+
+    if (!qsplit(param, &name, &memo) && !qsplit(param, &name))
+    {
+        PRINTF("Please input an account name and a memo.\n");
+        PRINTF("<example> memo testname new memo\n");
+        LADMIN_LOG("Incomplete parameters to change the memo of an account ('email' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+        return;
+
+    size_t len = memo.size();
+    size_t len1 = len + 1;
+    if (len > 254)
+    {
+        PRINTF("Memo is too long (%zu characters).\n", len);
+        PRINTF("Please input a memo of 254 bytes at the maximum.\n");
+        LADMIN_LOG("Email is too long (%zu characters). Please input a memo of 254 bytes at the maximum.\n",
+              len);
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to change a memo.\n");
+
+    WFIFOW(login_fd, 0) = 0x7942;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOW(login_fd, 26) = len1;
+    WFIFO_STRING(login_fd, 28, memo, len);
+    WFIFOSET(login_fd, 28 + len1);
+    bytes_to_read = 1;
+}
+
+//-----------------------------------------------
+// Sub-function: Asking to obtain an account name
+//-----------------------------------------------
+static
+void nameaccount(int id)
+{
+    if (id < 0)
+    {
+        PRINTF("Please input a positive value for the id.\n");
+        LADMIN_LOG("Negativ id given to search an account name ('name' command).\n");
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to know an account name.\n");
+
+    WFIFOW(login_fd, 0) = 0x7946;
+    WFIFOL(login_fd, 2) = id;
+    WFIFOSET(login_fd, 6);
+    bytes_to_read = 1;
+}
+
+//------------------------------------------
+// Sub-function: Asking to modify a password
+// (Note: never send back a password with login-server!! security of passwords)
+//------------------------------------------
+static
+void changepasswd(ZString param)
+{
+    AccountName name;
+    AccountPass password;
+
+    if (!qsplit(param, &name, &password))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<example> passwd testname newpassword\n");
+        LADMIN_LOG("Incomplete parameters to change the password of an account ('password' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+    {
+        return;
+    }
+
+    if (!password.is_print())
+        return;
+
+    LADMIN_LOG("Request to login-server to change a password.\n");
+
+    WFIFOW(login_fd, 0) = 0x7934;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFO_STRING(login_fd, 26, password, 24);
+    WFIFOSET(login_fd, 50);
+    bytes_to_read = 1;
+}
+
+//----------------------------------------------------------------------
+// Sub-function: Request to login-server to reload GM configuration file
+// this function have no answer
+//----------------------------------------------------------------------
+static
+void reloadGM(ZString params)
+{
+    WFIFOW(login_fd, 0) = 0x7955;
+    WFIFOSET(login_fd, 2);
+    bytes_to_read = 0;
+
+    LADMIN_LOG("Request to reload the GM configuration file sended.\n");
+    PRINTF("Request to reload the GM configuration file sended.\n");
+    PRINTF("Check the actual GM accounts (after reloading):\n");
+    listaccount(params, 1);    // 1: to list only GM
+}
+
+//-----------------------------------------------------
+// Sub-function: Asking to modify the sex of an account
+//-----------------------------------------------------
+static
+void changesex(ZString param)
+{
+    AccountName name;
+    VString<1> sex_;
+
+    if (!qsplit(param, &name, &sex_))
+    {
+        PRINTF("Please input an account name and a sex.\n");
+        PRINTF("<example> sex testname Male\n");
+        LADMIN_LOG("Incomplete parameters to change the sex of an account ('sex' command).\n");
+        return;
+    }
+    char sex = sex_.front();
+
+    if (name.is_print())
+    {
+        return;
+    }
+
+    if (!XString("MF").contains(sex))
+    {
+        PRINTF("Illegal gender [%c]. Please input M or F.\n", sex);
+        LADMIN_LOG("Illegal gender [%c]. Please input M or F.\n", sex);
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to change a sex.\n");
+
+    WFIFOW(login_fd, 0) = 0x793c;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOB(login_fd, 26) = sex;
+    WFIFOSET(login_fd, 27);
+    bytes_to_read = 1;
+}
+
+//-------------------------------------------------------------------------
+// Sub-function of sub-function changestate, blockaccount or unblockaccount
+// Asking to modify the state of an account
+//-------------------------------------------------------------------------
+static
+void changestatesub(AccountName name, int state, XString error_message)
+{
+    if ((state < 0 || state > 9) && state != 100)
+    {                           // Valid values: 0: ok, or value of the 0x006a packet + 1
+        PRINTF("Please input one of these states:\n");
+        PRINTF("  0 = Account ok            6 = Your Game's EXE file is not the latest version\n");
+        PRINTF("  1 = Unregistered ID       7 = You are Prohibited to log in until + message\n");
+        PRINTF("  2 = Incorrect Password    8 = Server is jammed due to over populated\n");
+        PRINTF("  3 = This ID is expired    9 = No MSG\n");
+        PRINTF("  4 = Rejected from Server  100 = This ID has been totally erased\n");
+        PRINTF("  5 = You have been blocked by the GM Team\n");
+        PRINTF("<examples> state testname 5\n");
+        PRINTF("           state testname 7 end of your ban\n");
+        PRINTF("           block <account name>\n");
+        PRINTF("           unblock <account name>\n");
+        LADMIN_LOG("Invalid value for the state of an account ('state', 'block' or 'unblock' command).\n");
+        return;
+    }
+
+    if (!name.is_print())
+        return;
+
+    if (state != 7)
+    {
+        error_message = "-";
+    }
+    else
+    {
+        if (error_message.size() < 1)
+        {
+            PRINTF("Error message is too short. Please input a message of 1-19 bytes.\n");
+            LADMIN_LOG("Error message is too short. Please input a message of 1-19 bytes.\n");
+            return;
+        }
+        if (error_message.size() > 19)
+        {
+            PRINTF("Error message is too long. Please input a message of 1-19 bytes.\n");
+            LADMIN_LOG("Error message is too long. Please input a message of 1-19 bytes.\n");
+            return;
+        }
+    }
+
+    LADMIN_LOG("Request to login-server to change a state.\n");
+
+    WFIFOW(login_fd, 0) = 0x7936;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOL(login_fd, 26) = state;
+    WFIFO_STRING(login_fd, 30, error_message, 20);
+    WFIFOSET(login_fd, 50);
+    bytes_to_read = 1;
+}
+
+//-------------------------------------------------------
+// Sub-function: Asking to modify the state of an account
+//-------------------------------------------------------
+static
+void changestate(ZString param)
+{
+    AccountName name;
+    int state;
+    XString error_message;
+
+    if (!qsplit(param, &name, &state, &error_message) && !qsplit(param, &name, &state))
+    {
+        PRINTF("Please input an account name and a state.\n");
+        PRINTF("<examples> state testname 5\n");
+        PRINTF("           state testname 7 end of your ban\n");
+        PRINTF("           block <account name>\n");
+        PRINTF("           unblock <account name>\n");
+        LADMIN_LOG("Incomplete parameters to change the state of an account ('state' command).\n");
+        return;
+    }
+
+    changestatesub(name, state, error_message);
+}
+
+//-------------------------------------------
+// Sub-function: Asking to unblock an account
+//-------------------------------------------
+static
+void unblockaccount(ZString param)
+{
+    AccountName name;
+
+    if (!qsplit(param, &name))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<examples> state testname 5\n");
+        PRINTF("           state testname 7 end of your ban\n");
+        PRINTF("           block <account name>\n");
+        PRINTF("           unblock <account name>\n");
+        LADMIN_LOG("Incomplete parameters to change the state of an account ('unblock' command).\n");
+        return;
+    }
+
+    changestatesub(name, 0, "-");   // state 0, no error message
+}
+
+//-------------------------------------------
+// Sub-function: Asking to unblock an account
+//-------------------------------------------
+static
+void blockaccount(ZString param)
+{
+    AccountName name;
+
+    if (!qsplit(param, &name))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<examples> state testname 5\n");
+        PRINTF("           state testname 7 end of your ban\n");
+        PRINTF("           block <account name>\n");
+        PRINTF("           unblock <account name>\n");
+        LADMIN_LOG("Incomplete parameters to change the state of an account ('block' command).\n");
+        return;
+    }
+
+    changestatesub(name, 5, "-");   // state 5, no error message
+}
+
+//---------------------------------------------------------------------
+// Sub-function: Add/substract time to the validity limit of an account
+//---------------------------------------------------------------------
+static
+void timeaddaccount(ZString param)
+{
+    AccountName name;
+    HumanTimeDiff modif {};
+
+    if (!qsplit(param, &name, &modif))
+    {
+        PRINTF("Please input an account name and a modifier.\n");
+        PRINTF("  <example>: timeadd testname +1m-2mn1s-6y\n");
+        PRINTF("             this example adds 1 month and 1 second, and substracts 2 minutes\n");
+        PRINTF("             and 6 years at the same time.\n");
+        LADMIN_LOG("Incomplete parameters to modify a limit time ('timeadd' command).\n");
+        return;
+    }
+    if (name.is_print())
+    {
+        return;
+    }
+
+    if (!modif)
+    {
+        PRINTF("Please give an adjustment with this command:\n");
+        PRINTF("  Adjustment value (-1, 1, +1, etc...)\n");
+        PRINTF("  Modified element:\n");
+        PRINTF("    a or y: year\n");
+        PRINTF("    m:      month\n");
+        PRINTF("    j or d: day\n");
+        PRINTF("    h:      hour\n");
+        PRINTF("    mn:     minute\n");
+        PRINTF("    s:      second\n");
+        PRINTF("  <example> timeadd testname +1m-2mn1s-6y\n");
+        PRINTF("            this example adds 1 month and 1 second, and substracts 2 minutes\n");
+        PRINTF("            and 6 years at the same time.\n");
+        LADMIN_LOG("No adjustment isn't an adjustment ('timeadd' command).\n");
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to modify a time limit.\n");
+
+    WFIFOW(login_fd, 0) = 0x7950;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFO_STRUCT(login_fd, 26, modif);
+    WFIFOSET(login_fd, 38);
+    bytes_to_read = 1;
+}
+
+//-------------------------------------------------
+// Sub-function: Set a validity limit of an account
+//-------------------------------------------------
+static
+void timesetaccount(ZString param)
+{
+    AccountName name;
+    XString date;
+    XString time_;
+    int year, month, day, hour, minute, second;
+
+    year = month = day = hour = minute = second = 0;
+
+    // # of seconds 1/1/1970 (timestamp): Validity limit of the account (0 = unlimited)
+    TimeT connect_until_time = TimeT();
+    struct tm tmtime = connect_until_time;   // initialize
+
+    if (!qsplit(param, &name, &date, &time_)
+            && !qsplit(param, &name, &date))
+    {
+        PRINTF("Please input an account name, a date and a hour.\n");
+        PRINTF("<example>: timeset <account_name> yyyy/mm/dd [hh:mm:ss]\n");
+        PRINTF("           timeset <account_name> 0   (0 = unlimited)\n");
+        PRINTF("           Default time [hh:mm:ss]: 23:59:59.\n");
+        LADMIN_LOG("Incomplete parameters to set a limit time ('timeset' command).\n");
+        return;
+    }
+    if (!name.is_print())
+        return;
+
+    if (!time_)
+        time_ = "23:59:59";
+
+    if (date != "0"
+        && ((!extract(date, record<'/'>(&year, &month, &day))
+                && !extract(date, record<'-'>(&year, &month, &day))
+                && !extract(date, record<'.'>(&year, &month, &day)))
+            || !extract(time_, record<':'>(&hour, &minute, &second))))
+    {
+        PRINTF("Please input 0 or a date and a time (format: 0 or yyyy/mm/dd hh:mm:ss).\n");
+        LADMIN_LOG("Invalid format for the date/time ('timeset' command).\n");
+        return;
+    }
+
+    if (date == "0")
+    {
+        connect_until_time = TimeT();
+    }
+    else
+    {
+        if (year < 70)
+        {
+            year = year + 100;
+        }
+        if (year >= 1900)
+        {
+            year = year - 1900;
+        }
+        if (month < 1 || month > 12)
+        {
+            PRINTF("Please give a correct value for the month (from 1 to 12).\n");
+            LADMIN_LOG("Invalid month for the date ('timeset' command).\n");
+            return;
+        }
+        month = month - 1;
+        if (day < 1 || day > 31)
+        {
+            PRINTF("Please give a correct value for the day (from 1 to 31).\n");
+            LADMIN_LOG("Invalid day for the date ('timeset' command).\n");
+            return;
+        }
+        if (((month == 3 || month == 5 || month == 8 || month == 10)
+             && day > 30) ||(month == 1 && day > 29))
+        {
+            PRINTF("Please give a correct value for a day of this month (%d).\n",
+                 month);
+            LADMIN_LOG("Invalid day for this month ('timeset' command).\n");
+            return;
+        }
+        if (hour < 0 || hour > 23)
+        {
+            PRINTF("Please give a correct value for the hour (from 0 to 23).\n");
+            LADMIN_LOG("Invalid hour for the time ('timeset' command).\n");
+            return;
+        }
+        if (minute < 0 || minute > 59)
+        {
+            PRINTF("Please give a correct value for the minutes (from 0 to 59).\n");
+            LADMIN_LOG("Invalid minute for the time ('timeset' command).\n");
+            return;
+        }
+        if (second < 0 || second > 59)
+        {
+            PRINTF("Please give a correct value for the seconds (from 0 to 59).\n");
+            LADMIN_LOG("Invalid second for the time ('timeset' command).\n");
+            return;
+        }
+        tmtime.tm_year = year;
+        tmtime.tm_mon = month;
+        tmtime.tm_mday = day;
+        tmtime.tm_hour = hour;
+        tmtime.tm_min = minute;
+        tmtime.tm_sec = second;
+        tmtime.tm_isdst = -1;  // -1: no winter/summer time modification
+        connect_until_time = tmtime;
+        if (connect_until_time.error())
+        {
+            PRINTF("Invalid date.\n");
+            PRINTF("Please add 0 or a date and a time (format: 0 or yyyy/mm/dd hh:mm:ss).\n");
+            LADMIN_LOG("Invalid date. ('timeset' command).\n");
+            return;
+        }
+    }
+
+    LADMIN_LOG("Request to login-server to set a time limit.\n");
+
+    WFIFOW(login_fd, 0) = 0x7948;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOL(login_fd, 26) = static_cast<time_t>(connect_until_time);
+    WFIFOSET(login_fd, 30);
+    bytes_to_read = 1;
+}
+
+//------------------------------------------------------------------------------
+// Sub-function: Asking to displaying information about an account (by its name)
+//------------------------------------------------------------------------------
+static
+void whoaccount(ZString param)
+{
+    AccountName name;
+
+    if (!qsplit(param, &name))
+    {
+        PRINTF("Please input an account name.\n");
+        PRINTF("<example> who testname\n");
+        LADMIN_LOG("No name was given to found the account.\n");
+        return;
+    }
+    if (!name.is_print())
+    {
+        return;
+    }
+
+    LADMIN_LOG("Request to login-server to obtain information about an account (by its name).\n");
+
+    WFIFOW(login_fd, 0) = 0x7952;
+    WFIFO_STRING(login_fd, 2, name, 24);
+    WFIFOSET(login_fd, 26);
+    bytes_to_read = 1;
+}
+
+//--------------------------------------------------------
+// Sub-function: Asking of the version of the login-server
+//--------------------------------------------------------
+static
+void checkloginversion(void)
+{
+    LADMIN_LOG("Request to login-server to obtain its version.\n");
+
+    WFIFOW(login_fd, 0) = 0x7530;
+    WFIFOSET(login_fd, 2);
+    bytes_to_read = 1;
+}
+
+//---------------------------------------------
+// Prompt function
+// this function wait until user type a command
+// and analyse the command.
+//---------------------------------------------
+static
+void prompt(void)
+{
+    // while we don't wait new packets
+    while (bytes_to_read == 0)
+    {
+        // for help with the console colors look here:
+        // http://www.edoceo.com/liberum/?doc=PRINTF-with-color
+        // some code explanation (used here):
+        // \033[2J : clear screen and go up/left (0, 0 position)
+        // \033[K  : clear line from actual position to end of the line
+        // \033[0m : reset color parameter
+        // \033[1m : use bold for font
+        Iprintf("\n");
+        Iprintf("\033[32mTo list the commands, type 'enter'.\033[0m\n");
+        Iprintf("\033[0;36mLadmin-> \033[0m");
+        Iprintf("\033[1m");
+        fflush(stdout);
+
+        // get command and parameter
+        FString buf;
+        io::getline(std::cin, buf);
+
+        Iprintf("\033[0m");
+        fflush(stdout);
+
+        if (!std::cin)
+            exit(0);
+
+        if (!buf.is_print())
+        {
+            printf("Cowardly refusing to execute a command that includes control or non-ascii characters\n");
+            LADMIN_LOG("Cowardly refusing to execute a command that includes control or non-ascii characters\n");
+            continue;
+        }
+
+        // extract command name and parameters
+        auto space = std::find(buf.begin(), buf.end(), ' ');
+        FString command = buf.xislice_h(space);
+        while (*space == ' ')
+            ++space;
+
+        parameters = buf.xislice_t(space);
+
+        if (!command || command.startswith('?'))
+            command = "help";
+
+        if (!parameters)
+        {
+            LADMIN_LOG("Command: '%s' (without parameters)\n",
+                    command);
+        }
+        else
+        {
+            LADMIN_LOG("Command: '%s', parameters: '%s'\n",
+                    command, parameters);
+        }
+
+        // Analyse of the command
+        if (command == "help")
+            display_help(parameters);
+        else if (command == "add")
+            addaccount(parameters, 0); // 0: no email
+        else if (command == "ban")
+            banaccount(parameters);
+        else if (command == "banadd")
+            banaddaccount(parameters);
+        else if (command == "banset")
+            bansetaccount(parameters);
+        else if (command == "block")
+            blockaccount(parameters);
+        else if (command == "check")
+            checkaccount(parameters);
+        else if (command == "create")
+            addaccount(parameters, 1); // 1: with email
+        else if (command == "delete")
+            delaccount(parameters);
+        else if (command == "email")
+            changeemail(parameters);
+        else if (command == "getcount")
+            getlogincount();
+        else if (command == "gm")
+            changegmlevel(parameters);
+        else if (command == "id")
+            idaccount(parameters);
+        else if (command == "info")
+            infoaccount(atoi(parameters.c_str()));
+        else if (command == "kami")
+            sendbroadcast(parameters);  // flag for normal
+        else if (command == "itemfrob")
+            itemfrob(parameters);  // 0: to list all
+        else if (command == "list")
+            listaccount(parameters, 0);    // 0: to list all
+        else if (command == "listban")
+            listaccount(parameters, 3);    // 3: to list only accounts with state or bannished
+        else if (command == "listgm")
+            listaccount(parameters, 1);    // 1: to list only GM
+        else if (command == "listok")
+            listaccount(parameters, 4);    // 4: to list only accounts without state and not bannished
+        else if (command == "memo")
+            changememo(parameters);
+        else if (command == "name")
+            nameaccount(atoi(parameters.c_str()));
+        else if (command == "password")
+            changepasswd(parameters);
+        else if (command == "reloadgm")
+            reloadGM(parameters);
+        else if (command == "search")
+            listaccount(parameters, 2);    // 2: to list with pattern
+        else if (command == "sex")
+            changesex(parameters);
+        else if (command == "state")
+            changestate(parameters);
+        else if (command == "timeadd")
+            timeaddaccount(parameters);
+        else if (command == "timeset")
+            timesetaccount(parameters);
+        else if (command == "unban")
+            unbanaccount(parameters);
+        else if (command == "unblock")
+            unblockaccount(parameters);
+        else if (command == "version")
+            checkloginversion();
+        else if (command == "who")
+            whoaccount(parameters);
+        else if (command == "quit"
+            || command == "exit"
+            || command == "end")
+        {
+            PRINTF("Bye.\n");
+            exit(0);
+        }
+        else
+        {
+            PRINTF("Unknown command [%s].\n", buf);
+            LADMIN_LOG("Unknown command [%s].\n", buf);
+        }
+    }
+}
+
+//-------------------------------------------------------------
+// Function: Parse receiving informations from the login-server
+//-------------------------------------------------------------
+static
+void parse_fromlogin(int fd)
+{
+    if (session[fd]->eof)
+    {
+        PRINTF("Impossible to have a connection with the login-server [%s:%d] !\n",
+                login_ip, login_port);
+        LADMIN_LOG("Impossible to have a connection with the login-server [%s:%d] !\n",
+                login_ip, login_port);
+        delete_session(fd);
+        exit(0);
+    }
+
+//  PRINTF("parse_fromlogin : %d %d %d\n", fd, RFIFOREST(fd), RFIFOW(fd,0));
+
+    while (RFIFOREST(fd) >= 2)
+    {
+        switch (RFIFOW(fd, 0))
+        {
+            case 0x7919:       // answer of a connection request
+                if (RFIFOREST(fd) < 3)
+                    return;
+                if (RFIFOB(fd, 2) != 0)
+                {
+                    PRINTF("Error at login:\n");
+                    PRINTF(" - incorrect password,\n");
+                    PRINTF(" - administration system not activated, or\n");
+                    PRINTF(" - unauthorised IP.\n");
+                    LADMIN_LOG("Error at login: incorrect password, administration system not activated, or unauthorised IP.\n");
+                    session[fd]->eof = 1;
+                    //bytes_to_read = 1; // not stop at prompt
+                }
+                else
+                {
+                    Iprintf("Established connection.\n");
+                    LADMIN_LOG("Established connection.\n");
+                    Iprintf("Reading of the version of the login-server...\n");
+                    LADMIN_LOG("Reading of the version of the login-server...\n");
+                    //bytes_to_read = 1; // unchanged
+                    checkloginversion();
+                }
+                RFIFOSKIP(fd, 3);
+                break;
+
+            case 0x7531:       // Displaying of the version of the login-server
+                if (RFIFOREST(fd) < 10)
+                    return;
+            {
+                Iprintf("  Login-Server [%s:%d]\n",
+                        login_ip, login_port);
+                Version version;
+                RFIFO_STRUCT(login_fd, 2, version);
+                Iprintf("  tmwA version %hhu.%hhu.%hhu (dev? %hhu) (flags %hhx) (which %hhx) (vend %hu)\n",
+                        version.major, version.minor, version.patch,
+                        version.devel,
+
+                        version.flags, version.which,
+                        version.vend);
+            }
+                bytes_to_read = 0;
+                RFIFOSKIP(fd, 10);
+                break;
+
+            case 0x7925:       // Itemfrob-OK
+                RFIFOSKIP(fd, 2);
+                bytes_to_read = 0;
+                break;
+
+            case 0x7921:       // Displaying of the list of accounts
+                if (RFIFOREST(fd) < 4 || RFIFOREST(fd) < RFIFOW(fd, 2))
+                    return;
+                if (RFIFOW(fd, 2) < 5)
+                {
+                    LADMIN_LOG("  Receiving of a void accounts list.\n");
+                    if (list_count == 0)
+                    {
+                        Iprintf("No account found.\n");
+                    }
+                    else if (list_count == 1)
+                    {
+                        Iprintf("1 account found.\n");
+                    }
+                    else
+                        Iprintf("%d accounts found.\n", list_count);
+                    bytes_to_read = 0;
+                }
+                else
+                {
+                    int i;
+                    LADMIN_LOG("  Receiving of a accounts list.\n");
+                    for (i = 4; i < RFIFOW(fd, 2); i += 38)
+                    {
+                        AccountName userid = stringish<AccountName>(RFIFO_STRING<24>(fd, i + 5));
+                        VString<23> lower_userid = userid.to_lower();
+                        list_first = RFIFOL(fd, i) + 1;
+                        // here are checks...
+                        if (list_type == 0
+                            || (list_type == 1 && RFIFOB(fd, i + 4) > 0)
+                            || (list_type == 2 && lower_userid.contains_seq(parameters))
+                            || (list_type == 3 && RFIFOL(fd, i + 34) != 0)
+                            || (list_type == 4 && RFIFOL(fd, i + 34) == 0))
+                        {
+                            PRINTF("%10d ", RFIFOL(fd, i));
+                            if (RFIFOB(fd, i + 4) == 0)
+                                PRINTF("   ");
+                            else
+                                PRINTF("%2d ", RFIFOB(fd, i + 4));
+                            PRINTF("%-24s", userid);
+                            if (RFIFOB(fd, i + 29) == 0)
+                                PRINTF("%-5s ", "Femal");
+                            else if (RFIFOB(fd, i + 29) == 1)
+                                PRINTF("%-5s ", "Male");
+                            else
+                                PRINTF("%-5s ", "Servr");
+                            PRINTF("%6d ", RFIFOL(fd, i + 30));
+                            switch (RFIFOL(fd, i + 34))
+                            {
+                                case 0:
+                                    PRINTF("%-27s\n", "Account OK");
+                                    break;
+                                case 1:
+                                    PRINTF("%-27s\n", "Unregistered ID");
+                                    break;
+                                case 2:
+                                    PRINTF("%-27s\n", "Incorrect Password");
+                                    break;
+                                case 3:
+                                    PRINTF("%-27s\n", "This ID is expired");
+                                    break;
+                                case 4:
+                                    PRINTF("%-27s\n",
+                                            "Rejected from Server");
+                                    break;
+                                case 5:
+                                    PRINTF("%-27s\n", "Blocked by the GM Team");   // You have been blocked by the GM Team
+                                    break;
+                                case 6:
+                                    PRINTF("%-27s\n", "Your EXE file is too old"); // Your Game's EXE file is not the latest version
+                                    break;
+                                case 7:
+                                    PRINTF("%-27s\n", "Banishement or");
+                                    PRINTF("                                                   Prohibited to login until...\n");   // You are Prohibited to log in until %s
+                                    break;
+                                case 8:
+                                    PRINTF("%-27s\n",
+                                            "Server is over populated");
+                                    break;
+                                case 9:
+                                    PRINTF("%-27s\n", "No MSG");
+                                    break;
+                                default:   // 100
+                                    PRINTF("%-27s\n", "This ID is totally erased");    // This ID has been totally erased
+                                    break;
+                            }
+                            list_count++;
+                        }
+                    }
+                    // asking of the following acounts
+                    LADMIN_LOG("Request to login-server to obtain the list of accounts from %d to %d (complement).\n",
+                          list_first, list_last);
+                    WFIFOW(login_fd, 0) = 0x7920;
+                    WFIFOL(login_fd, 2) = list_first;
+                    WFIFOL(login_fd, 6) = list_last;
+                    WFIFOSET(login_fd, 10);
+                    bytes_to_read = 1;
+                }
+                RFIFOSKIP(fd, RFIFOW(fd, 2));
+                break;
+
+            case 0x7931:       // Answer of login-server about an account creation
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int accid = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (accid == -1)
+                {
+                    PRINTF("Account [%s] creation failed. Same account already exists.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] creation failed. Same account already exists.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s] is successfully created [id: %d].\n",
+                            name, accid);
+                    LADMIN_LOG("Account [%s] is successfully created [id: %d].\n",
+                            name, accid);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7933:       // Answer of login-server about an account deletion
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int accid = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (accid == -1)
+                {
+                    PRINTF("Account [%s] deletion failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] deletion failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s][id: %d] is successfully DELETED.\n",
+                            name, accid);
+                    LADMIN_LOG("Account [%s][id: %d] is successfully DELETED.\n",
+                            name, accid);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7935:       // answer of the change of an account password
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int accid = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (accid == -1)
+                {
+                    PRINTF("Account [%s] password changing failed.\n",
+                            name);
+                    PRINTF("Account [%s] doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account password changing failed. The compte [%s] doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s][id: %d] password successfully changed.\n",
+                            name, accid);
+                    LADMIN_LOG("Account [%s][id: %d] password successfully changed.\n",
+                            name, accid);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7937:       // answer of the change of an account state
+                if (RFIFOREST(fd) < 34)
+                    return;
+            {
+                int accid = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                int state = RFIFOL(fd, 30);
+                if (accid == -1)
+                {
+                    PRINTF("Account [%s] state changing failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] state changing failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    MString tmpstr;
+                    tmpstr += STRPRINTF(
+                             "Account [%s] state successfully changed in [",
+                             name);
+                    switch (state)
+                    {
+                        case 0:
+                            tmpstr += "0: Account OK";
+                            break;
+                        case 1:
+                            tmpstr += "1: Unregistered ID";
+                            break;
+                        case 2:
+                            tmpstr += "2: Incorrect Password";
+                            break;
+                        case 3:
+                            tmpstr += "3: This ID is expired";
+                            break;
+                        case 4:
+                            tmpstr += "4: Rejected from Server";
+                            break;
+                        case 5:
+                            tmpstr += "5: You have been blocked by the GM Team";
+                            break;
+                        case 6:
+                            tmpstr += "6: [Your Game's EXE file is not the latest version";
+                            break;
+                        case 7:
+                            tmpstr += "7: You are Prohibited to log in until...";
+                            break;
+                        case 8:
+                            tmpstr += "8: Server is jammed due to over populated";
+                            break;
+                        case 9:
+                            tmpstr += "9: No MSG";
+                            break;
+                        default:   // 100
+                            tmpstr += "100: This ID is totally erased";
+                            break;
+                    }
+                    tmpstr += ']';
+                    FString tmpstr_ = FString(tmpstr);
+                    PRINTF("%s\n", tmpstr_);
+                    LADMIN_LOG("%s\n", tmpstr_);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 34);
+                break;
+
+            case 0x7939:       // answer of the number of online players
+                if (RFIFOREST(fd) < 4 || RFIFOREST(fd) < RFIFOW(fd, 2))
+                    return;
+                {
+                    // Get length of the received packet
+                    LADMIN_LOG("  Receiving of the number of online players.\n");
+                    // Read information of the servers
+                    if (RFIFOW(fd, 2) < 5)
+                    {
+                        PRINTF("  No server is connected to the login-server.\n");
+                    }
+                    else
+                    {
+                        PRINTF("  Number of online players (server: number).\n");
+                        // Displaying of result
+                        for (int i = 4; i < RFIFOW(fd, 2); i += 32)
+                        {
+                            ServerName name = stringish<ServerName>(RFIFO_STRING<20>(fd, i + 6));
+                            PRINTF("    %-20s : %5d\n", name,
+                                    RFIFOW(fd, i + 26));
+                        }
+                    }
+                }
+                bytes_to_read = 0;
+                RFIFOSKIP(fd, RFIFOW(fd, 2));
+                break;
+
+            case 0x793b:       // answer of the check of a password
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("The account [%s] doesn't exist or the password is incorrect.\n",
+                            name);
+                    LADMIN_LOG("The account [%s] doesn't exist or the password is incorrect.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("The proposed password is correct for the account [%s][id: %d].\n",
+                            name, account_id);
+                    LADMIN_LOG("The proposed password is correct for the account [%s][id: %d].\n",
+                            name, account_id);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x793d:       // answer of the change of an account sex
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] sex changing failed.\n",
+                            name);
+                    PRINTF("Account [%s] doesn't exist or the sex is already the good sex.\n",
+                            name);
+                    LADMIN_LOG("Account sex changing failed. The compte [%s] doesn't exist or the sex is already the good sex.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s][id: %d] sex successfully changed.\n",
+                            name, account_id);
+                    LADMIN_LOG("Account [%s][id: %d] sex successfully changed.\n",
+                            name, account_id);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x793f:       // answer of the change of an account GM level
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] GM level changing failed.\n",
+                            name);
+                    PRINTF("Account [%s] doesn't exist, the GM level is already the good GM level\n",
+                            name);
+                    PRINTF("or it's impossible to modify the GM accounts file.\n");
+                    LADMIN_LOG("Account GM level changing failed. The compte [%s] doesn't exist, the GM level is already the good sex or it's impossible to modify the GM accounts file.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s][id: %d] GM level successfully changed.\n",
+                            name, account_id);
+                    LADMIN_LOG("Account [%s][id: %d] GM level successfully changed.\n",
+                            name, account_id);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7941:       // answer of the change of an account email
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] e-mail changing failed.\n",
+                            name);
+                    PRINTF("Account [%s] doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account e-mail changing failed. The compte [%s] doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s][id: %d] e-mail successfully changed.\n",
+                            name, account_id);
+                    LADMIN_LOG("Account [%s][id: %d] e-mail successfully changed.\n",
+                            name, account_id);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7943:       // answer of the change of an account memo
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] memo changing failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] memo changing failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("Account [%s][id: %d] memo successfully changed.\n",
+                            name, account_id);
+                    LADMIN_LOG("Account [%s][id: %d] memo successfully changed.\n",
+                            name, account_id);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7945:       // answer of an account id search
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Unable to find the account [%s] id. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Unable to find the account [%s] id. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    PRINTF("The account [%s] have the id: %d.\n",
+                            name, account_id);
+                    LADMIN_LOG("The account [%s] have the id: %d.\n",
+                            name, account_id);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7947:       // answer of an account name search
+                if (RFIFOREST(fd) < 30)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (!name)
+                {
+                    PRINTF("Unable to find the account [%d] name. Account doesn't exist.\n",
+                            account_id);
+                    LADMIN_LOG("Unable to find the account [%d] name. Account doesn't exist.\n",
+                            account_id);
+                }
+                else
+                {
+                    PRINTF("The account [id: %d] have the name: %s.\n",
+                            account_id, name);
+                    LADMIN_LOG("The account [id: %d] have the name: %s.\n",
+                            account_id, name);
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 30);
+                break;
+
+            case 0x7949:       // answer of an account validity limit set
+                if (RFIFOREST(fd) < 34)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (RFIFOL(fd, 2) == -1)
+                {
+                    PRINTF("Account [%s] validity limit changing failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] validity limit changing failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    TimeT timestamp = static_cast<time_t>(RFIFOL(fd, 30));
+                    if (!timestamp)
+                    {
+                        PRINTF("Validity Limit of the account [%s][id: %d] successfully changed to [unlimited].\n",
+                                name, account_id);
+                        LADMIN_LOG("Validity Limit of the account [%s][id: %d] successfully changed to [unlimited].\n",
+                                name, account_id);
+                    }
+                    else
+                    {
+                        timestamp_seconds_buffer tmpstr;
+                        stamp_time(tmpstr, &timestamp);
+                        PRINTF("Validity Limit of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, account_id, tmpstr);
+                        LADMIN_LOG("Validity Limit of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, account_id,
+                                tmpstr);
+                    }
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 34);
+                break;
+
+            case 0x794b:       // answer of an account ban set
+                if (RFIFOREST(fd) < 34)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] final date of banishment changing failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] final date of banishment changing failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    TimeT timestamp = static_cast<time_t>(RFIFOL(fd, 30));
+                    if (!timestamp)
+                    {
+                        PRINTF("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished].\n",
+                                name, account_id);
+                        LADMIN_LOG("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished].\n",
+                                name, account_id);
+                    }
+                    else
+                    {
+                        timestamp_seconds_buffer tmpstr;
+                        stamp_time(tmpstr, &timestamp);
+                        PRINTF("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, RFIFOL(fd, 2), tmpstr);
+                        LADMIN_LOG("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, RFIFOL(fd, 2),
+                                tmpstr);
+                    }
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 34);
+                break;
+
+            case 0x794d:       // answer of an account ban date/time changing
+                if (RFIFOREST(fd) < 34)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] final date of banishment changing failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] final date of banishment changing failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    TimeT timestamp = static_cast<time_t>(RFIFOL(fd, 30));
+                    if (!timestamp)
+                    {
+                        PRINTF("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished].\n",
+                                name, account_id);
+                        LADMIN_LOG("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished].\n",
+                                name, account_id);
+                    }
+                    else
+                    {
+                        timestamp_seconds_buffer tmpstr;
+                        stamp_time(tmpstr, &timestamp);
+                        PRINTF("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, account_id,
+                                tmpstr);
+                        LADMIN_LOG("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, account_id,
+                                tmpstr);
+                    }
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 34);
+                break;
+
+            case 0x794f:       // answer of a broadcast
+                if (RFIFOREST(fd) < 4)
+                    return;
+                if (RFIFOW(fd, 2) == static_cast<uint16_t>(-1))
+                {
+                    PRINTF("Message sending failed. No online char-server.\n");
+                    LADMIN_LOG("Message sending failed. No online char-server.\n");
+                }
+                else
+                {
+                    PRINTF("Message successfully sended to login-server.\n");
+                    LADMIN_LOG("Message successfully sended to login-server.\n");
+                }
+                bytes_to_read = 0;
+                RFIFOSKIP(fd, 4);
+                break;
+
+            case 0x7951:       // answer of an account validity limit changing
+                if (RFIFOREST(fd) < 34)
+                    return;
+            {
+                int account_id = RFIFOL(fd, 2);
+                AccountName name = stringish<AccountName>(RFIFO_STRING<24>(fd, 6));
+                if (account_id == -1)
+                {
+                    PRINTF("Account [%s] validity limit changing failed. Account doesn't exist.\n",
+                            name);
+                    LADMIN_LOG("Account [%s] validity limit changing failed. Account doesn't exist.\n",
+                            name);
+                }
+                else
+                {
+                    TimeT timestamp = static_cast<time_t>(RFIFOL(fd, 30));
+                    if (!timestamp)
+                    {
+                        PRINTF("Validity limit of the account [%s][id: %d] unchanged.\n",
+                                name, account_id);
+                        PRINTF("The account have an unlimited validity limit or\n");
+                        PRINTF("the changing is impossible with the proposed adjustments.\n");
+                        LADMIN_LOG("Validity limit of the account [%s][id: %d] unchanged. The account have an unlimited validity limit or the changing is impossible with the proposed adjustments.\n",
+                                name, account_id);
+                    }
+                    else
+                    {
+                        timestamp_seconds_buffer tmpstr;
+                        stamp_time(tmpstr, &timestamp);
+                        PRINTF("Validity limit of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, account_id,
+                                tmpstr);
+                        LADMIN_LOG("Validity limit of the account [%s][id: %d] successfully changed to be until %s.\n",
+                                name, account_id,
+                                tmpstr);
+                    }
+                }
+                bytes_to_read = 0;
+            }
+                RFIFOSKIP(fd, 34);
+                break;
+
+            case 0x7953:       // answer of a request about informations of an account (by account name/id)
+                if (RFIFOREST(fd) < 150
+                    || RFIFOREST(fd) < (150 + RFIFOW(fd, 148)))
+                    return;
+                {
+                    int account_id = RFIFOL(fd, 2);
+                    uint8_t gm = RFIFOB(fd, 6);
+                    AccountName userid = stringish<AccountName>(RFIFO_STRING<24>(fd, 7));
+                    uint8_t sex = RFIFOB(fd, 31);
+                    int connections = RFIFOL(fd, 32);
+                    int state = RFIFOL(fd, 36);
+                    timestamp_seconds_buffer error_message = stringish<timestamp_seconds_buffer>(RFIFO_STRING<20>(fd, 40));
+                    timestamp_milliseconds_buffer lastlogin = stringish<timestamp_milliseconds_buffer>(RFIFO_STRING<24>(fd, 60));
+                    VString<15> last_ip_ = RFIFO_STRING<16>(fd, 84);
+                    AccountEmail email = stringish<AccountEmail>(RFIFO_STRING<40>(fd, 100));
+                    TimeT connect_until_time = static_cast<time_t>(RFIFOL(fd, 140));
+                    TimeT ban_until_time = static_cast<time_t>(RFIFOL(fd, 144));
+                    FString memo = RFIFO_STRING(fd, 150, RFIFOW(fd, 148));
+                    if (account_id == -1)
+                    {
+                        PRINTF("Unabled to find the account [%s]. Account doesn't exist.\n",
+                                userid);
+                        LADMIN_LOG("Unabled to find the account [%s]. Account doesn't exist.\n",
+                                userid);
+                    }
+                    else if (!userid)
+                    {
+                        PRINTF("Unabled to find the account [id: %d]. Account doesn't exist.\n",
+                                account_id);
+                        LADMIN_LOG("Unabled to find the account [id: %d]. Account doesn't exist.\n",
+                                account_id);
+                    }
+                    else
+                    {
+                        LADMIN_LOG("Receiving information about an account.\n");
+                        PRINTF("The account is set with:\n");
+                        if (!gm)
+                        {
+                            PRINTF(" Id:     %d (non-GM)\n", account_id);
+                        }
+                        else
+                        {
+                            PRINTF(" Id:     %d (GM level %d)\n",
+                                    account_id, gm);
+                        }
+                        PRINTF(" Name:   '%s'\n", userid);
+                        if (sex == 0)
+                            PRINTF(" Sex:    Female\n");
+                        else if (sex == 1)
+                            PRINTF(" Sex:    Male\n");
+                        else
+                            PRINTF(" Sex:    Server\n");
+                        PRINTF(" E-mail: %s\n", email);
+                        switch (state)
+                        {
+                            case 0:
+                                PRINTF(" Statut: 0 [Account OK]\n");
+                                break;
+                            case 1:
+                                PRINTF(" Statut: 1 [Unregistered ID]\n");
+                                break;
+                            case 2:
+                                PRINTF(" Statut: 2 [Incorrect Password]\n");
+                                break;
+                            case 3:
+                                PRINTF(" Statut: 3 [This ID is expired]\n");
+                                break;
+                            case 4:
+                                PRINTF(" Statut: 4 [Rejected from Server]\n");
+                                break;
+                            case 5:
+                                PRINTF(" Statut: 5 [You have been blocked by the GM Team]\n");
+                                break;
+                            case 6:
+                                PRINTF(" Statut: 6 [Your Game's EXE file is not the latest version]\n");
+                                break;
+                            case 7:
+                                PRINTF(" Statut: 7 [You are Prohibited to log in until %s]\n",
+                                     error_message);
+                                break;
+                            case 8:
+                                PRINTF(" Statut: 8 [Server is jammed due to over populated]\n");
+                                break;
+                            case 9:
+                                PRINTF(" Statut: 9 [No MSG]\n");
+                                break;
+                            default:   // 100
+                                PRINTF(" Statut: %d [This ID is totally erased]\n",
+                                        state);
+                                break;
+                        }
+                        if (!ban_until_time)
+                        {
+                            PRINTF(" Banishment: not banished.\n");
+                        }
+                        else
+                        {
+                            timestamp_seconds_buffer tmpstr;
+                            stamp_time(tmpstr, &ban_until_time);
+                            PRINTF(" Banishment: until %s.\n", tmpstr);
+                        }
+                        if (connections > 1)
+                            PRINTF(" Count:  %d connections.\n",
+                                    connections);
+                        else
+                            PRINTF(" Count:  %d connection.\n",
+                                    connections);
+                        PRINTF(" Last connection at: %s (ip: %s)\n",
+                                lastlogin, last_ip_);
+                        if (!connect_until_time)
+                        {
+                            PRINTF(" Validity limit: unlimited.\n");
+                        }
+                        else
+                        {
+                            timestamp_seconds_buffer tmpstr;
+                            stamp_time(tmpstr, &connect_until_time);
+                            PRINTF(" Validity limit: until %s.\n",
+                                    tmpstr);
+                        }
+                        PRINTF(" Memo:   '%s'\n", memo);
+                    }
+                }
+                bytes_to_read = 0;
+                RFIFOSKIP(fd, 150 + RFIFOW(fd, 148));
+                break;
+
+            default:
+                PRINTF("Remote administration has been disconnected (unknown packet).\n");
+                LADMIN_LOG("'End of connection, unknown packet.\n");
+                session[fd]->eof = 1;
+                return;
+        }
+    }
+
+    // if we don't wait new packets, do the prompt
+    prompt();
+}
+
+//------------------------------------
+// Function to connect to login-server
+//------------------------------------
+static
+int Connect_login_server(void)
+{
+    Iprintf("Attempt to connect to login-server...\n");
+    LADMIN_LOG("Attempt to connect to login-server...\n");
+
+    if ((login_fd = make_connection(login_ip, login_port)) < 0)
+        return 0;
+
+    {
+        WFIFOW(login_fd, 0) = 0x7918;  // Request for administation login
+        WFIFOW(login_fd, 2) = 0;   // no encrypted
+        WFIFO_STRING(login_fd, 4, admin_pass, 24);
+        WFIFOSET(login_fd, 28);
+        bytes_to_read = 1;
+
+        Iprintf("Sending of the password...\n");
+        LADMIN_LOG("Sending of the password...\n");
+    }
+
+    return 0;
+}
+
+//-----------------------------------
+// Reading general configuration file
+//-----------------------------------
+static
+int ladmin_config_read(ZString cfgName)
+{
+    std::ifstream in(cfgName.c_str());
+    if (!in.is_open())
+    {
+        PRINTF("\033[0mConfiguration file (%s) not found.\n", cfgName);
+        return 1;
+    }
+
+    Iprintf("\033[0m---Start reading of Ladmin configuration file (%s)\n",
+         cfgName);
+    FString line;
+    while (io::getline(in, line))
+    {
+        SString w1;
+        TString w2;
+        if (!split_key_value(line, &w1, &w2))
+            continue;
+
+        if (w1 == "login_ip")
+        {
+            struct hostent *h = gethostbyname(w2.c_str());
+            if (h != NULL)
+            {
+                Iprintf("Login server IP address: %s -> %s\n",
+                        w2, login_ip);
+                login_ip = IP4Address({
+                        static_cast<uint8_t>(h->h_addr[0]),
+                        static_cast<uint8_t>(h->h_addr[1]),
+                        static_cast<uint8_t>(h->h_addr[2]),
+                        static_cast<uint8_t>(h->h_addr[3]),
+                });
+            }
+        }
+        else if (w1 == "login_port")
+        {
+            login_port = atoi(w2.c_str());
+        }
+        else if (w1 == "admin_pass")
+        {
+            admin_pass = stringish<AccountPass>(w2);
+        }
+        else if (w1 == "ladmin_log_filename")
+        {
+            ladmin_log_filename = w2;
+        }
+        else if (w1 == "import")
+        {
+            ladmin_config_read(w2);
+        }
+        else
+        {
+            PRINTF("WARNING: unknown ladmin config key: %s\n", FString(w1));
+        }
+    }
+
+    Iprintf("---End reading of Ladmin configuration file.\n");
+
+    return 0;
+}
+
+//--------------------------------------
+// Function called at exit of the server
+//--------------------------------------
+void term_func(void)
+{
+
+    if (already_exit_function == 0)
+    {
+        delete_session(login_fd);
+
+        Iprintf("\033[0m----End of Ladmin (normal end with closing of all files).\n");
+        LADMIN_LOG("----End of Ladmin (normal end with closing of all files).\n");
+
+        already_exit_function = 1;
+    }
+}
+
+//------------------------
+// Main function of ladmin
+//------------------------
+int do_init(int argc, ZString *argv)
+{
+    eathena_interactive_session = isatty(0);
+    // read ladmin configuration
+    ladmin_config_read((argc > 1) ? argv[1] : LADMIN_CONF_NAME);
+
+    LADMIN_LOG("");
+    LADMIN_LOG("Configuration file readed.\n");
+
+    set_defaultparse(parse_fromlogin);
+
+    Iprintf("EAthena login-server administration tool.\n");
+    Version version = CURRENT_LOGIN_SERVER_VERSION;
+    Iprintf("for tmwA version %hhu.%hhu.%hhu (dev? %hhu) (flags %hhx) (which %hhx) (vend %hu)\n",
+            version.major, version.minor, version.patch,
+            version.devel,
+
+            version.flags, version.which,
+            version.vend);
+
+    LADMIN_LOG("Ladmin is ready.\n");
+    Iprintf("Ladmin is \033[1;32mready\033[0m.\n\n");
+
+    Connect_login_server();
+
+    return 0;
+}
diff --git a/src/admin/ladmin.hpp b/src/admin/ladmin.hpp
new file mode 100644
index 0000000..8c7e195
--- /dev/null
+++ b/src/admin/ladmin.hpp
@@ -0,0 +1 @@
+// dummy header to make Make dependencies work
diff --git a/src/admin/main.cpp b/src/admin/main.cpp
new file mode 100644
index 0000000..2900720
--- /dev/null
+++ b/src/admin/main.cpp
@@ -0,0 +1,2 @@
+// dummy file to make Make dependencies work
+#include "ladmin.hpp"
-- 
cgit v1.2.3-70-g09d2