#!/usr/bin/perl use POSIX; ########################################################################## # EAthena login-server remote administration tool # New ladamin by [Yor] ########################################################################## #-------------------------------INSTRUCTIONS------------------------------ # Set the 4 variables below: # IP of the login server. # Port where the login-server listens incoming packets. # Password of administration (same of config_athena.conf). # Displayed language of the sofware (if not correct, english is used). # IMPORTANT: # Be sure that you authorize remote administration in login-server # (see login_athena.conf, 'admin_state' parameter) #------------------------------------------------------------------------- my($loginserverip) = "127.0.0.1"; # IP of login-server my($loginserverport) = 6900; # Port of login-server my($loginserveradminpassword) = "admin"; # Administration password my($connecttimeout) = 10; # Timeout of connection (in seconds) my($passenc) = 2; # Encoding type of the password my($defaultlanguage) = "E"; # Default language (F: Français/E: English) # (if it's not 'F', default is English) #------------------------------------------------------------------------- # 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') # q <= quit, li <= list, pass <= passwd, etc. # # Note: every time you must give a account_name, you can use "" or '' (spaces can be included) # # aide/help/? # Display the description of the commands # aide/help/? [command] # Display the description of the specified command # # add # 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. # add testname Male testpass # # ban/banish yyyy/mm/dd hh:mm:ss # Changes the final date of a banishment of an account. # Same command of banset, except that account_name is at end # # banadd # 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 # 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 yyyy/mm/dd [hh:mm:ss] # Changes the final date of a banishment of an account. # Default time: 23:59:59 # banset 0 # Set a non-banished account (0 = unbanished). # # block # Set state 5 (You have been blocked by the GM Team) to an account. # Same command of state 5. # # check # 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 # Like the 'add' command, but with e-mail moreover. # create testname Male my@mail.com testpass # # del # Remove an account. # This order requires confirmation. After confirmation, the account is deleted. # # email # Modify the e-mail of an account. # # getcount # Give the number of players online on all char-servers. # # gm [GM_level] # Modify the GM level of an account. # Default value remove GM level (GM level = 0). # gm testname 80 # # id # Give the id of an account. # # info # Display complete information of an account. # # kami # Sends a broadcast message on all map-server (in yellow). # kamib # Sends a broadcast message on all map-server (in blue). # # language # Change the language of displaying. # # 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. # 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 # Modify the memo of an account. # 'memo': it can have until 253 characters (with spaces or not). # # name # Give the name of an account. # # passwd # 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 # Seek accounts. # Displays the accounts whose names correspond. # search -r/-e/--expr/--regex # Seek accounts by regular expression. # Displays the accounts whose names correspond. # # sex # Modify the sex of an account. # sex testname Male # # state # 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 # 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 # 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 yyyy/mm/dd [hh:mm:ss] # Changes the validity limit of an account. # Default time: 23:59:59 # timeset 0 # Gives an unlimited validity limit (0 = unlimited). # # unban/unbanish # Unban an account. # Same command of banset 0. # # unblock # Set state 0 (Account ok) to an account. # Same command of state 0. # # version # Display the version of the login-server. # # who # Displays complete information of an account. # #------------------------------------------------------------------------- # Possibilities to execute ladmin in command line by usage of the software with a parameter: # ./ladmin --mode param1 ... # # --makesymlink -- Create the symbolic links for a use in shell # --add -- Create an account with the default email (or -a) # --ban yyyy/mm/dd hh:mm:ss -- Change the final date of a banishment of an account (or -b) # --banadd -- Add or substract time from the final date of a banishment of an account (or - ba) # --banset yyyy/mm/dd [hh:mm:ss] -- Change the final date of a banishment of an account (or -bs) # --banset 0 -- Unbanish an account (or -bs) # --block -- Set state 5 to an account (or -bl) # --check -- Check the validity of a password for an account (or -check) # --create -- Create an account with email (or -c) # --del -- Remove an account (or -d) # --email -- Modify an email of an account (or -e) # --getcount -- Give the number of players online on all char-servers (or -g) # --gm -- Change the GM level of an account (or -gm) # --id -- Give the id of an account (or -i) # --info -- Display complete information of an account (or -info) # --kami -- Sends a broadcast message on all map-server (in yellow). # --kamib -- Sends a broadcast message on all map-server (in blue). # --language -- Change the language of displaying (-lang). # --list [First_id [Last_id]] -- Display a list of accounts (or -l) # --listBan [start_id [end_id]] -- Display a list of accounts with state or banished (or -lBan) # --listGM [First_id [Last_id]] -- Display a list of GM accounts (or -lGM) # --listOK [start_id [end_id]] -- Display a list of accounts without state and not banished (or -lOK) # --memo -- Modify the memo of an account (or -e) # --name -- Give the name of an account (or -n) # --passwd -- Change the password of an account (or -p) # --reloadGM -- Reload GM configuration file (or -r) # --search -- Seek accounts (or -s) # --search -e/-r/--expr/--regex -- Seek accounts by REGEX (or -s) # --sex -- Change the sex of an account (or -sex) # --state -- Change the state of an account (or -t) # --timeadd -- Add or substract time from the validity limit of an account (or - ta) # --timeset yyyy/mm/dd [hh:mm:ss] -- Change the validify limit of an account (or -ts) # --timeset 0 -- Give a unlimited validity limit (or -ts) # --unban/unbanish -- Unban an account (or -uba) # --unblock -- Set state 0 to an account (or -ubl) # --version -- Display the version of the login-server (or -v) # --who -- Display complete information of an account (or -w) # # ./ladmin --addaccount testname Male testpass # #------------------------------------------------------------------------- # Possibilities to execute ladmin with symbolic links in Shell # To create the symbolic links, execute ladmin with the '-- makesymlink' option. # # addaccount -- Create an account with the default email # banaccount yyyy/mm/dd hh:mm:ss -- Change the final date of a banishment of an account # banaddaccount -- Add or substract time from the final date of a banishment of an account # bansetaccount yyyy/mm/dd [hh:mm:ss] -- Change the final date of a banishment of an account # bansetaccount 0 -- Unbanish an account # blockaccount -- Set state 5 (blocked by the GM Team) to an account # checkaccount -- Check the validity of a password for an account # createaccount -- Create an account with email # delaccount -- Remove an account # emailaccount -- Modify an email of an account # getcount -- Give the number of players online on all char-servers # gmaccount -- Change the GM level of an account # idaccount -- Give the id of an account # infoaccount -- Display complete information of an account # kami -- Sends a broadcast message on all map-server (in yellow). # kamib -- Sends a broadcast message on all map-server (in blue). # ladminlanguage -- Change the language of displaying. # listaccount [First_id [Last_id]] -- Display a list of accounts # listBanaccount [start_id [end_id]] -- Display a list of accounts with state or banished # listGMaccount [First_id [Last_id]] -- Display a list of GM accounts # listOKaccount [start_id [end_id]] -- Display a list of accounts without state and not banished # loginserverversion -- Display the version of the login-server # memoaccount -- Modify the memo of an account # nameaccount -- Give the name of an account # passwdaccount -- Change the password of an account # reloadGM -- Reload GM configuration file # searchaccount -- Seek accounts # searchaccount -e/-r/--expr/--regex -- Seek accounts by REGEX # sexaccount -- Change the sex of an account (or -sex) # stateaccount -- Change the state of an account # timeaddaccount -- Add or substract time from the validity limit of an account # timesetaccount yyyy/mm/dd [hh:mm:ss] -- Change the validify limit of an account # timesetaccount 0 -- Give a unlimited validity limit # unbanaccount -- Unban an account # unblockaccount -- Set state 0 (Account ok) to an account # whoaccount -- Display complete information of an account # ./addaccount testname Male testpass # #------------------------------------------------------------------------- # About the encoding: # # The Digest::MD5 module is necessary to use the encrypted password system. # When the software cannot found the Digest::MD5 module, # encoding is automatically disabled ($passenc=0), which allows # to use this program in any cases. # #------------------------------------------------------------------------- # How to use ladmin with UNIX: # # You excecute ladmin as a standard command. # # $ mv ladmin ladmin_org # $ nkf -eLu ladmin_org > ladmin # $ chmod 700 ladmin # # $ perl ladmin # ########################################################################## use strict; use IO::Socket; use Term::ReadLine; eval { use POSIX qw(:termios_h); }; eval { use Digest::MD5 qw(md5); } if $passenc; $passenc = 0 if($@); my($ver) = "1.00"; # Start of termios my($termios, $orgterml, $termlecho, $termlnoecho) = (); eval{ $termios = POSIX::Termios->new(); $termios->getattr(fileno(STDIN)); $orgterml = $termios->getlflag(); $termlecho = ECHO | ECHOK | ICANON; $termlnoecho = $orgterml & ~$termlecho; }; # Modification of termios for the displaying of passwords (no displays for pressed keys) sub cbreak() { if ($termios) { $termios->setlflag($termlnoecho); $termios->setcc(VTIME, 1); $termios->setattr(fileno(STDIN), TCSANOW); } } # Modification of termios to return at the normal displaying (after input of the passwords) sub cooked() { if ($termios) { $termios->setlflag($orgterml); $termios->setcc(VTIME,0); $termios->setattr(fileno(STDIN),TCSANOW); } } END{ cooked() } if ($defaultlanguage eq "F") { print "Outil d'administration à distance de eAthena V.$ver\n"; } else { print "EAthena login-server administration tool V.$ver\n"; } # Creation of the symbolic links for call of the program in line command of the shell if ($ARGV[0] eq "--makesymlink") { symlink $0, "loginserverversion"; symlink $0, "addaccount"; symlink $0, "banaccount"; symlink $0, "banaddaccount"; symlink $0, "bansetaccount"; symlink $0, "blockaccount"; symlink $0, "checkaccount"; symlink $0, "createaccount"; symlink $0, "delaccount"; symlink $0, "emailaccount"; symlink $0, "getcount"; symlink $0, "gmaccount"; symlink $0, "idaccount"; symlink $0, "infoaccount"; symlink $0, "kami"; symlink $0, "kamib"; symlink $0, "ladminlanguage"; symlink $0, "listaccount"; symlink $0, "listBanaccount"; symlink $0, "listGMaccount"; symlink $0, "listOKaccount"; symlink $0, "memoaccount"; symlink $0, "nameaccount"; symlink $0, "passwdaccount"; symlink $0, "reloadGM"; symlink $0, "searchaccount"; symlink $0, "sexaccount"; symlink $0, "stateaccount"; symlink $0, "timeaddaccount"; symlink $0, "timesetaccount"; symlink $0, "unbanaccount"; symlink $0, "unblockaccount"; symlink $0, "whoaccount"; if ($defaultlanguage eq "F") { print "Liens symbliques créés.\n"; } else { print "Symbolic links created.\n"; } exit(0); } # Connection to the login-server my($so,$er) = (); eval{ $so = IO::Socket::INET->new( PeerAddr=> $loginserverip, PeerPort=> $loginserverport, # Proto => "tcp", Timeout => $connecttimeout) or $er = 1; }; if ($er || $@) { if ($defaultlanguage eq "F") { print "\nImpossible de se connecter au serveur de login [${loginserverip}:$loginserverport] !\n"; } else { print "\nImpossible to have a connection with the login-server [${loginserverip}:$loginserverport] !\n"; } print "$!\n"; # Displaying of the error exit(2); } # Sending the administration password if ($passenc == 0) { print $so pack("v2a24",0x7918,0,$loginserveradminpassword); $so->flush(); } else { print $so pack("v",0x791a); $so->flush(); my($buf) = readso(4); if (unpack("v",$buf) != 0x01dc) { if ($defaultlanguage eq "F") { print "Erreur au login (échec de la création de la clef md5).\n"; } else { print "Error at login (failure of the md5 key creation).\n"; } } $buf = readso(unpack("x2v",$buf)-4); my($md5bin) = md5(($passenc == 1) ? $buf.$loginserveradminpassword : $loginserveradminpassword.$buf); print $so pack("v2a16",0x7918,$passenc,$md5bin); $so->flush(); } # Waiting of the server reply my($buf) = readso(3); if (unpack("v",$buf) != 0x7919 || unpack("x2c",$buf) != 0) { if ($defaultlanguage eq "F") { print "Erreur de login:\n"; print " - mot de passe incorrect,\n"; print " - système d'administration non activé, ou\n"; print " - IP non autorisée.\n"; } else { print "Error at login:\n"; print " - incorrect password,\n"; print " - administration system not activated, or\n"; print " - unauthorised IP.\n"; } quit(); exit(4); } if ($defaultlanguage eq "F") { print "Connexion établie.\n"; } else { print "Established connection.\n"; } #------------------------------------------------------------------------- # Here are checked the command lines with arguments and symbolic links (no prompt) if ($0 =~ /addaccount$/ || (($ARGV[0] eq "-a" || $ARGV[0] eq "--add") && ((shift @ARGV), 1))) { my($r) = addaccount($ARGV[0], $ARGV[1], $ARGV[2]); quit(); exit($r); } elsif ($0 =~ /banaccount$/ || $0 =~ /banishaccount$/ || (($ARGV[0] eq "-b" || $ARGV[0] eq "--ban" || $ARGV[0] eq "--banish") && ((shift @ARGV), 1))) { my($r) = bansetaccount($ARGV[1], $ARGV[2], $ARGV[0]); quit(); exit($r); } elsif ($0 =~ /banaddaccount$/ || (($ARGV[0] eq "-ba" || $ARGV[0] eq "--banadd") && ((shift @ARGV), 1))) { my($r) = banaddaccount($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /bansetaccount$/ || (($ARGV[0] eq "-bs" || $ARGV[0] eq "--banset") && ((shift @ARGV), 1))) { my($r) = bansetaccount($ARGV[0], $ARGV[1], $ARGV[2]); quit(); exit($r); } elsif ($0 =~ /blockaccount$/ || (($ARGV[0] eq "-bl" || $ARGV[0] eq "--block") && ((shift @ARGV), 1))) { my($r) = changestate($ARGV[0], 5, ""); quit(); exit($r); } elsif ($0 =~ /checkaccount$/ || (($ARGV[0] eq "-check" || $ARGV[0] eq "--check") && ((shift @ARGV), 1))) { my($r) = checkaccount($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /createaccount$/ || (($ARGV[0] eq "-c" || $ARGV[0] eq "--create") && ((shift @ARGV), 1))) { my($r) = createaccount($ARGV[0], $ARGV[1], $ARGV[2], $ARGV[3]); quit(); exit($r); } elsif ($0 =~ /delaccount$/ || (($ARGV[0] eq "-d" || $ARGV[0] eq "--del") && ((shift @ARGV), 1))) { my($r) = delaccount($ARGV[0]); quit(); exit($r); } elsif ($0 =~ /emailaccount$/ || (($ARGV[0] eq "-e" || $ARGV[0] eq "--email") && ((shift @ARGV), 1))) { my($r) = changeemail($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /getcount$/ || (($ARGV[0] eq "-g" || $ARGV[0] eq "--getcount") && ((shift @ARGV), 1))) { my($r) = getlogincount(); quit(); exit($r); } elsif ($0 =~ /gmaccount$/ || (($ARGV[0] eq "-gm" || $ARGV[0] eq "--gm") && ((shift @ARGV), 1))) { my($r) = changegmlevel($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /id$/ || (($ARGV[0] eq "-i" || $ARGV[0] eq "--id") && ((shift @ARGV), 1))) { my($r) = idaccount($ARGV[0]); quit(); exit($r); } elsif ($0 =~ /infoaccount$/ || (($ARGV[0] eq "-info" || $ARGV[0] eq "--info") && ((shift @ARGV), 1))) { my($r) = infoaccount($ARGV[0]); quit(); exit($r); } elsif ($0 =~ /kami$/ || (($ARGV[0] eq "-kami" || $ARGV[0] eq "--kami") && ((shift @ARGV), 1))) { my($r) = sendbroadcast(0, $ARGV[0]); quit(); exit($r); } elsif ($0 =~ /kamib$/ || (($ARGV[0] eq "-kamib" || $ARGV[0] eq "--kamib") && ((shift @ARGV), 1))) { my($r) = sendbroadcast(0x10, $ARGV[0]); quit(); exit($r); } elsif ($0 =~ /ladminlanguage$/ || (($ARGV[0] eq "-lang" || $ARGV[0] eq "--language") && ((shift @ARGV), 1))) { my($r) = changelanguage($ARGV[0]); quit(); exit($r); } elsif ($0 =~ /listaccount$/ || (($ARGV[0] eq "-l" || $ARGV[0] eq "--list") && ((shift @ARGV), 1))) { my($r) = listaccount(int($ARGV[0]), int($ARGV[1]), 0); # 0: to list all quit(); exit($r); } elsif ($0 =~ /listBanaccount$/ || (($ARGV[0] eq "-lBan" || $ARGV[0] eq "--listBan") && ((shift @ARGV), 1))) { my($r) = listaccount(int($ARGV[0]), int($ARGV[1]), 3); # 3: to list only accounts with state or banished quit(); exit($r); } elsif ($0 =~ /listGMaccount$/ || (($ARGV[0] eq "-lGM" || $ARGV[0] eq "--listGM") && ((shift @ARGV), 1))) { my($r) = listaccount(int($ARGV[0]), int($ARGV[1]), 1); # 1: to list only GM quit(); exit($r); } elsif ($0 =~ /listOKaccount$/ || (($ARGV[0] eq "-lOK" || $ARGV[0] eq "--listOK") && ((shift @ARGV), 1))) { my($r) = listaccount(int($ARGV[0]), int($ARGV[1]), 4); # 4: to list only accounts without state and not banished quit(); exit($r); } elsif ($0 =~ /loginserverversion$/ || (($ARGV[0] eq "-v" || $ARGV[0] eq "--version") && ((shift @ARGV), 1))) { my($r) = checkloginversion(); quit(); exit($r); } elsif ($0 =~ /memoaccount$/ || (($ARGV[0] eq "-m" || $ARGV[0] eq "--memo") && ((shift @ARGV), 1))) { my($r) = changememo($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /nameaccount$/ || (($ARGV[0] eq "-n" || $ARGV[0] eq "--name") && ((shift @ARGV), 1))) { my($r) = nameaccount(int($ARGV[0])); quit(); exit($r); } elsif ($0 =~ /passwdaccount$/ || (($ARGV[0] eq "-p" || $ARGV[0] eq "--passwd") && ((shift @ARGV), 1))) { my($r) = changepasswd($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /reloadGM$/ || (($ARGV[0] eq "-r" || $ARGV[0] eq "--reloadGM") && ((shift @ARGV), 1))) { my($r) = reloadGM(); quit(); exit($r); } elsif ($0 =~ /searchaccount$/ || (($ARGV[0] eq "-s" || $ARGV[0] eq "--search") && ((shift @ARGV), 1))) { my($r) = searchaccount($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /sexaccount$/ || (($ARGV[0] eq "-sex" || $ARGV[0] eq "--sex") && ((shift @ARGV), 1))) { my($r) = changesex($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /stateaccount$/ || (($ARGV[0] eq "-t" || $ARGV[0] eq "--state") && ((shift @ARGV), 1))) { my($r) = changestate($ARGV[0], $ARGV[1], $ARGV[2]); quit(); exit($r); } elsif ($0 =~ /timeaddaccount$/ || (($ARGV[0] eq "-ta" || $ARGV[0] eq "--timeadd") && ((shift @ARGV), 1))) { my($r) = timeaddaccount($ARGV[0], $ARGV[1]); quit(); exit($r); } elsif ($0 =~ /timesetaccount$/ || (($ARGV[0] eq "-ts" || $ARGV[0] eq "--timeset") && ((shift @ARGV), 1))) { my($r) = timesetaccount($ARGV[0], $ARGV[1], $ARGV[2]); quit(); exit($r); } elsif ($0 =~ /unbanaccount$/ || $0 =~ /unbanishaccount$/ || (($ARGV[0] eq "-uba" || $ARGV[0] eq "--unban" || $ARGV[0] eq "--unbanish") && ((shift @ARGV), 1))) { my($r) = bansetaccount($ARGV[0], 0, ""); quit(); exit($r); } elsif ($0 =~ /unblockaccount$/ || (($ARGV[0] eq "-ubl" || $ARGV[0] eq "--unblock") && ((shift @ARGV), 1))) { my($r) = changestate($ARGV[0], 0, ""); quit(); exit($r); } elsif ($0 =~ /whoaccount$/ || (($ARGV[0] eq "-w" || $ARGV[0] eq "--who") && ((shift @ARGV), 1))) { my($r) = whoaccount($ARGV[0]); quit(); exit($r); } #------------------------------------------------------------------------- if ($defaultlanguage eq "F") { print "Lecture de la version du serveur de login...\n"; } else { print "Reading of the version of the login-server...\n"; } checkloginversion(); # Set the prompt line my($term) = new Term::ReadLine "ladmin"; # Here begin the infinite loop to read prompts while(1) { # Displaying of the prompt print "\n"; if ($defaultlanguage eq "F") { printf "\033[32mPour afficher les commandes, tapez 'Entrée'.\033[0m\n"; } else { printf "\033[32mTo list the commands, type 'enter'.\033[0m\n"; } my($cmd) = $term->readline("ladmin> "); # split and recovery of the input chomp $cmd; # remove cariage return $cmd =~ s/\x1b\[\d*\w//g; # remove (esc)[(number)(1alpha) = screen control sequence $cmd =~ s/[\x00-\x1f]//g; # remove control char my($command, $parameters) = split /\s+/,$cmd,2; # extract command and parameters $command = lc($command); # command in lowercase my(@paramlist) = split /\s+/,$parameters; # get list of parameters if ($command eq "?" || $command eq "") { $command = "aide" if ($defaultlanguage eq "F"); $command = "help" if ($defaultlanguage ne "F"); } # Analyse of the command eval { # help if ("aide" =~ /^\Q$command/ && $command ne "a") { # check 1 letter command: 'aide' or 'add'? displayhelp("aide", $paramlist[0]); } elsif ("help" =~ /^\Q$command/) { displayhelp("help", $paramlist[0]); # general commands } elsif ("add" =~ /^\Q$command/ && $command ne "a") { # check 1 letter command: 'aide' or 'add'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)\s+(.*)/)) { addaccount($paramlist[0], $paramlist[1], $paramlist[2]); # } elsif (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { addaccount($paramlist[0], $paramlist[1], ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)\s+(.*)/)) { addaccount($paramlist[0], $paramlist[1], $paramlist[2]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { addaccount($paramlist[0], $paramlist[1], ""); # } else { @paramlist = split /\s+/,$parameters; addaccount($paramlist[0], $paramlist[1], $paramlist[2]); # } } elsif ($command eq "ban" || ("banish" =~ /^\Q$command/ && length($command) >= 4)) { if (@paramlist = ($parameters =~ m/^(\S+)\s+(\S+)\s+"(.*)"/)) { # yyyy/mm/dd hh:mm:ss bansetaccount($paramlist[2], $paramlist[0], $paramlist[1]); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^(\S+)\s+(\S+)\s+'(.*)'/)) { # yyyy/mm/dd hh:mm:ss bansetaccount($paramlist[2], $paramlist[0], $paramlist[1]); # yyyy/mm/dd [hh:mm:ss] } else { @paramlist = split /\s+/,$parameters,3; # yyyy/mm/dd hh:mm:ss bansetaccount($paramlist[2], $paramlist[0], $paramlist[1]); # yyyy/mm/dd [hh:mm:ss] } } elsif (("banadd" =~ /^\Q$command/ || $command eq "ba") && $command ne "b") { # check 1 letter command: 'ba' or 'bs'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { banaddaccount($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { banaddaccount($paramlist[0], $paramlist[1]); # } else { @paramlist = split /\s+/,$parameters; banaddaccount($paramlist[0], $paramlist[1]); # } } elsif (("banset" =~ /^\Q$command/ || $command eq "bs") && $command ne "b") { # check 1 letter command: 'ba' or 'bs'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)\s+(\S+)/)) { bansetaccount($paramlist[0], $paramlist[1], $paramlist[2]); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { bansetaccount($paramlist[0], $paramlist[1], "23:59:59"); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)\s+(\S+)/)) { bansetaccount($paramlist[0], $paramlist[1], $paramlist[2]); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { bansetaccount($paramlist[0], $paramlist[1], "23:59:59"); # yyyy/mm/dd [hh:mm:ss] } else { @paramlist = split /\s+/,$parameters; bansetaccount($paramlist[0], $paramlist[1], $paramlist[2]); # yyyy/mm/dd [hh:mm:ss] } } elsif ("block" =~ /^\Q$command/ && length($command) >= 2) { if (@paramlist = ($parameters =~ m/^"(.*)"/)) { changestate($paramlist[0], 5, ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { changestate($paramlist[0], 5, ""); # } else { @paramlist = split /\s+/,$parameters,1; changestate($paramlist[0], 5, ""); # } } elsif ("check" =~ /^\Q$command/ && $command ne "c") { # check 1 letter command: 'check' or 'create'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(.*)/)) { checkaccount($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^"(.*)"/)) { checkaccount($paramlist[0], ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(.*)/)) { checkaccount($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { checkaccount($paramlist[0], ""); # } else { @paramlist = split /\s+/,$parameters; checkaccount($paramlist[0], $paramlist[1]); # } } elsif ("create" =~ /^\Q$command/ && $command ne "c") { # check 1 letter command: 'check' or 'create'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)\s+(\S+)\s+(.*)/)) { createaccount($paramlist[0], $paramlist[1], $paramlist[2], $paramlist[3]); # } elsif (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)\s+(\S+)/)) { createaccount($paramlist[0], $paramlist[1], $paramlist[2], ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)\s+(\S+)\s+(.*)/)) { createaccount($paramlist[0], $paramlist[1], $paramlist[2], $paramlist[3]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)\s+(\S+)/)) { createaccount($paramlist[0], $paramlist[1], $paramlist[2], ""); # } else { @paramlist = split /\s+/,$parameters; createaccount($paramlist[0], $paramlist[1], $paramlist[2], $paramlist[3]); # } } elsif ("del" =~ /^\Q$command/ || "delete" =~ /^\Q$command/) { if (@paramlist = ($parameters =~ m/^"(.*)"/)) { delaccount($paramlist[0]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { delaccount($paramlist[0]); # } else { @paramlist = split /\s+/,$parameters,1; delaccount($paramlist[0]); # } } elsif ("email" =~ /^\Q$command/ && $command ne "e") { # check 1 letter command: 'email', 'end' or 'exit'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { changeemail($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { changeemail($paramlist[0], $paramlist[1]); # } else { @paramlist = split /\s+/,$parameters; changeemail($paramlist[0], $paramlist[1]); # } } elsif ("getcount" =~ /^\Q$command/ && $command ne "g") { # check 1 letter command: 'getcount' or 'gm'? getlogincount(); } elsif ("gm" =~ /^\Q$command/ && $command ne "g") { # check 1 letter command: 'getcount' or 'gm'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { changegmlevel($paramlist[0], int($paramlist[1])); # } elsif (@paramlist = ($parameters =~ m/^"(.*)"/)) { changegmlevel($paramlist[0], 0); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { changegmlevel($paramlist[0], int($paramlist[1])); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { changegmlevel($paramlist[0], 0); # } else { @paramlist = split /\s+/,$parameters; changegmlevel($paramlist[0], int($paramlist[1])); # } } elsif ("id" =~ /^\Q$command/ && $command ne "i") { # check 1 letter command: 'id' or 'info'? if (@paramlist = ($parameters =~ m/^"(.*)"/)) { idaccount($paramlist[0]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { idaccount($paramlist[0]); # } else { @paramlist = split /\s+/,$parameters,1; idaccount($paramlist[0]); # } } elsif ("info" =~ /^\Q$command/ && $command ne "i") { # check 1 letter command: 'id' or 'info'? infoaccount(int($paramlist[0])); # } elsif ($command eq "kami") { # check all letters command: 'kami' or 'kamib'? @paramlist = split /\s+/,$parameters,1; sendbroadcast(0, $paramlist[0]); # } elsif ($command eq "kamib") { # check all letters command: 'kami' or 'kamib'? @paramlist = split /\s+/,$parameters,1; sendbroadcast(0x10, $paramlist[0]); # } elsif ("language" =~ /^\Q$command/ && $command ne "l") { # check 1 letter command: 'list' or 'language'? changelanguage($paramlist[0]); # } elsif (("list" =~ /^\Q$command/ || $command eq "ls") && $command ne "l") { # check 1 letter command: 'list' or 'language'? listaccount(int($paramlist[0]), int($paramlist[1]), 0); # [start_id [end_id]] 0: to list all } elsif (("listban" =~ /^\Q$command/ || $command eq "lsban") && $command ne "l") { # need to specificaly write Ban to have this list # check 1 letter command: 'list' or 'language'? listaccount(int($paramlist[0]), int($paramlist[1]), 3); # [start_id [end_id]] 3: to list only accounts with state or banished } elsif (("listgm" =~ /^\Q$command/ || $command eq "lsgm") && $command ne "l") { # need to specificaly write GM to have this list # check 1 letter command: 'list' or 'language'? listaccount(int($paramlist[0]), int($paramlist[1]), 1); # [start_id [end_id]] 1: to list only GM } elsif (("listok" =~ /^\Q$command/ || $command eq "lsok") && $command ne "l") { # need to specificaly write OK to have this list # check 1 letter command: 'list' or 'language'? listaccount(int($paramlist[0]), int($paramlist[1]), 4); # [start_id [end_id]] 4: to list only accounts without state and not banished } elsif ("memo" =~ /^\Q$command/) { if (@paramlist = ($parameters =~ m/^"(.*)"\s+(.*)/)) { changememo($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(.*)/)) { changememo($paramlist[0], $paramlist[1]); # } else { @paramlist = split /\s+/,$parameters,2; changememo($paramlist[0], $paramlist[1]); # } } elsif ("name" =~ /^\Q$command/) { nameaccount(int($paramlist[0])); # } elsif ("passwd" =~ /^\Q$command/ || "password" =~ /^\Q$command/) { if (@paramlist = ($parameters =~ m/^"(.*)"\s+(.*)/)) { changepasswd($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^"(.*)"/)) { changepasswd($paramlist[0], ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(.*)/)) { changepasswd($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { changepasswd($paramlist[0], ""); # } else { @paramlist = split /\s+/,$parameters,2; changepasswd($paramlist[0], $paramlist[1]); # } } elsif ("reloadgm" =~ /^\Q$command/) { reloadGM(); } elsif ("search" =~ /^\Q$command/ && $command ne "s" && # check 1 letter command: 'search', 'state' or 'sex'? $command ne "se") { # check 2 letters command: 'search' or 'sex'? if (@paramlist = ($parameters =~ m/^(-{1,2}[re]\S*)\s+(.*)/)) { searchaccount($paramlist[0], $paramlist[1]); # -r/-e/--expr/--regex | } else { @paramlist = split /\s+/,$parameters,1; searchaccount($paramlist[0], ""); # -r/-e/--expr/--regex | } } elsif ("sex" =~ /^\Q$command/ && $command ne "s" && # check 1 letter command: 'search', 'state' or 'sex'? $command ne "se") { # check 2 letters command: 'search' or 'sex'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { changesex($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { changesex($paramlist[0], $paramlist[1]); # } else { @paramlist = split /\s+/,$parameters; changesex($paramlist[0], $paramlist[1]); # } } elsif ("state" =~ /^\Q$command/ && $command ne "s") { # check 1 letter command: 'search', 'state' or 'sex'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\d+)\s+(.*)/)) { changestate($paramlist[0], int($paramlist[1]), $paramlist[2]); # } elsif (@paramlist = ($parameters =~ m/^"(.*)"\s+(\d+)/)) { changestate($paramlist[0], int($paramlist[1]), ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\d+)\s+(.*)/)) { changestate($paramlist[0], int($paramlist[1]), $paramlist[2]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\d+)/)) { changestate($paramlist[0], int($paramlist[1]), ""); # } else { @paramlist = split /\s+/,$parameters,3; changestate($paramlist[0], int($paramlist[1]), $paramlist[2]); # } } elsif (("timeadd" =~ /^\Q$command/ || $command eq "ta") && $command ne "t") { # check 1 letter command: 'ta' or 'ts'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { timeaddaccount($paramlist[0], $paramlist[1]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { timeaddaccount($paramlist[0], $paramlist[1]); # } else { @paramlist = split /\s+/,$parameters; timeaddaccount($paramlist[0], $paramlist[1]); # } } elsif (("timeset" =~ /^\Q$command/ || $command eq "ts") && $command ne "t") { # check 1 letter command: 'ta' or 'ts'? if (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)\s+(\S+)/)) { timesetaccount($paramlist[0], $paramlist[1], $paramlist[2]); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^"(.*)"\s+(\S+)/)) { timesetaccount($paramlist[0], $paramlist[1], "23:59:59"); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)\s+(\S+)/)) { timesetaccount($paramlist[0], $paramlist[1], $paramlist[2]); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^'(.*)'\s+(\S+)/)) { timesetaccount($paramlist[0], $paramlist[1], "23:59:59"); # yyyy/mm/dd [hh:mm:ss] } else { @paramlist = split /\s+/,$parameters; timesetaccount($paramlist[0], $paramlist[1], $paramlist[2]); # yyyy/mm/dd [hh:mm:ss] } } elsif ($command eq "unban" || ("unbanish" =~ /^\Q$command/ && length($command) >= 4)) { if (@paramlist = ($parameters =~ m/^"(.*)"/)) { bansetaccount($paramlist[0], 0, ""); # yyyy/mm/dd [hh:mm:ss] } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { bansetaccount($paramlist[0], 0, ""); # yyyy/mm/dd [hh:mm:ss] } else { @paramlist = split /\s+/,$parameters,1; bansetaccount($paramlist[0], 0, ""); # yyyy/mm/dd [hh:mm:ss] } } elsif ("unblock" =~ /^\Q$command/ && length($command) >= 4) { if (@paramlist = ($parameters =~ m/^"(.*)"/)) { changestate($paramlist[0], 0, ""); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { changestate($paramlist[0], 0, ""); # } else { @paramlist = split /\s+/,$parameters,1; changestate($paramlist[0], 0, ""); # } } elsif ("version" =~ /^\Q$command/) { checkloginversion(); } elsif ("who" =~ /^\Q$command/) { if (@paramlist = ($parameters =~ m/^"(.*)"/)) { whoaccount($paramlist[0]); # } elsif (@paramlist = ($parameters =~ m/^'(.*)'/)) { whoaccount($paramlist[0]); # } else { @paramlist = split /\s+/,$parameters,1; whoaccount($paramlist[0]); # } # quit } elsif ("quit" =~ /^\Q$command/ || (("end" =~ /^\Q$command/ || "exit" =~ /^\Q$command/) && $command ne "e")) { # check 1 letter command: 'email', 'end' or 'exit'? last; # unknown command } elsif ($command) { if ($defaultlanguage eq "F") { print "Commande inconnue [".$command."]\n"; } else { print "Unknown command [".$command."]\n"; } } # $term->addhistory($cmd) if $command; }; if ($@) { if ($defaultlanguage eq "F") { print "Erreur [".$command."]\n$@"; } else { print "Error [".$command."]\n$@"; } } }; # End of the software quit(); if ($defaultlanguage eq "F") { print "Au revoir.\n"; } else { print "Bye.\n"; } exit(0); #-------------------------------------------------------------------------- # Sub-function: Displaying of the version of the login-server sub checkloginversion() { print $so pack("v",30000); # 0x7530 $so->flush(); $buf = readso(10); # Analyse du Packet my($ret, $maver, $miver, $rev, $dev, $mod, $type, $mdver) = unpack("vc6v", $buf); if ($ret != 30001) { #0x7531 if ($defaultlanguage eq "F") { print "Problème de connexion au serveur (réponse incorrecte).\n"; } else { print "Connection error to the server (incorrect answer).\n"; } exit(6); } print " Login-Server [$loginserverip:$loginserverport]\n"; printf " eAthena version %s-%d.%d", ("stable", "dev")[$dev], $maver, $miver; printf " revision %d", $rev if $rev; printf "%s%d.\n", ("", "-mod")[$mod], $mdver; return 0; } #-------------------------------------------------------------------------- # Sub-function: Displaying of the help sub displayhelp() { my($help, $receivedcommand) = @_; my($command) = lc($receivedcommand); # command in lowercase if ($command eq "") { $command = "not a command"; # any value that is not a command } if ($command eq "?") { $command = "aide" if ($defaultlanguage eq "F"); $command = "help" if ($defaultlanguage ne "F"); } if ($help eq "aide") { if ("aide" =~ /^\Q$command/ && $command ne "a") { # check 1 letter command: 'aide' or 'add'? printf "aide/help/?\n"; printf " Affiche la description des commandes\n"; printf "aide/help/? [commande]\n"; printf " Affiche la description de la commande specifiée\n"; } elsif ("help" =~ /^\Q$command/) { printf "aide/help/?\n"; printf " Display the description of the commands\n"; printf "aide/help/? [command]\n"; printf " Display the description of the specified command\n"; } elsif ("add" =~ /^\Q$command/ && $command ne "a") { # check 1 letter command: 'aide' or 'add'? printf "add \n"; printf " Crée un compte avec l'email par défaut (a\@a.com).\n"; printf " Concernant le sexe, seule la première lettre compte (F ou M).\n"; printf " L'e-mail est a\@a.com (e-mail par défaut). C'est comme n'avoir aucun e-mail.\n"; printf " Lorsque motdepasse est omis, la saisie se fait sans que la frappe se voit.\n"; printf " add testname Male testpass\n"; } elsif ($command eq "ban" || ("banish" =~ /^\Q$command/ && length($command) >= 4)) { printf "ban/banish aaaa/mm/jj hh:mm:ss \n"; printf " Change la date de fin de bannissement d'un compte.\n"; printf " La différence avec banset est la position du nom du compte.\n"; } elsif (("banadd" =~ /^\Q$command/ || $command eq "ba") && $command ne "b") { # check 1 letter command: 'ba' or 'bs'? printf "banadd \n"; printf " Ajoute ou soustrait du temps à la date de banissement d'un compte.\n"; printf " Les modificateurs sont construits comme suit:\n"; printf " Valeur d'ajustement (-1, 1, +1, etc...)\n"; printf " Elément modifié:\n"; printf " a ou y: année\n"; printf " m: mois\n"; printf " j ou d: jour\n"; printf " h: heure\n"; printf " mn: minute\n"; printf " s: seconde\n"; printf " banadd testname +1m-2mn1s-6a\n"; printf " Cette exemple ajoute 1 mois et une seconde, et soustrait 2 minutes\n"; printf " et 6 ans dans le même temps.\n"; printf "NOTE: Si vous modifez la date de banissement d'un compte non bani,\n"; printf " vous indiquez comme date (le moment actuel +- les ajustements)\n"; } elsif (("banset" =~ /^\Q$command/ || $command eq "bs") && $command ne "b") { # check 1 letter command: 'ba' or 'bs'? printf "banset aaaa/mm/jj [hh:mm:ss]\n"; printf " Change la date de fin de bannissement d'un compte.\n"; printf " Heure par défaut: 23:59:59\n"; printf "banset 0\n"; printf " Débanni un compte (0 = de-banni).\n"; } elsif ("block" =~ /^\Q$command/ && length($command) >= 2) { printf "block \n"; printf " Place le status d'un compte à 5 (You have been blocked by the GM Team).\n"; printf " La commande est l'équivalent de state 5.\n"; } elsif ("check" =~ /^\Q$command/ && $command ne "c") { # check 1 letter command: 'check' or 'create'? printf "check \n"; printf " Vérifie la validité d'un mot de passe pour un compte\n"; printf " NOTE: Le serveur n'enverra jamais un mot de passe.\n"; printf " C'est la seule méthode que vous possédez pour savoir\n"; printf " si un mot de passe est le bon. L'autre méthode est\n"; printf " d'avoir un accès ('physique') au fichier des comptes.\n"; } elsif ("create" =~ /^\Q$command/ && $command ne "c") { # check 1 letter command: 'check' or 'create'? printf "create \n"; printf " Comme la commande add, mais avec l'e-mail en plus.\n"; printf " create testname Male mon\@mail.com testpass\n"; } elsif ("del" =~ /^\Q$command/ || "delete" =~ /^\Q$command/) { printf "del \n"; printf " Supprime un compte.\n"; printf " La commande demande confirmation. Après confirmation, le compte est détruit.\n"; } elsif ("email" =~ /^\Q$command/ && $command ne "e") { # check 1 letter command: 'email', 'end' or 'exit'? printf "email \n"; printf " Modifie l'e-mail d'un compte.\n"; } elsif ("getcount" =~ /^\Q$command/ && $command ne "g") { # check 1 letter command: 'getcount' or 'gm'? printf "getcount\n"; printf " Donne le nombre de joueurs en ligne par serveur de char.\n"; } elsif ("gm" =~ /^\Q$command/ && $command ne "g") { # check 1 letter command: 'getcount' or 'gm'? printf "gm [Niveau_GM]\n"; printf " Modifie le niveau de GM d'un compte.\n"; printf " Valeur par défaut: 0 (suppression du niveau de GM).\n"; printf " gm nomtest 80\n"; } elsif ("id" =~ /^\Q$command/ && $command ne "i") { # check 1 letter command: 'id' or 'info'? printf "id \n"; printf " Donne l'id d'un compte.\n"; } elsif ("info" =~ /^\Q$command/ && $command ne "i") { # check 1 letter command: 'id' or 'info'? printf "info \n"; printf " Affiche les informations sur un compte.\n"; } elsif ($command eq "kami") { # check all letters command: 'kami' or 'kamib'? printf "kami \n"; printf " Envoi un message général sur tous les serveurs de map (en jaune).\n"; } elsif ($command eq "kamib") { # check all letters command: 'kami' or 'kamib'? printf "kamib \n"; printf " Envoi un message général sur tous les serveurs de map (en bleu).\n"; } elsif ("language" =~ /^\Q$command/ && $command ne "l") { # check 1 letter command: 'list' or 'language'? printf("language \n"); printf(" Change la langue d'affichage.\n"); printf(" Langues possibles: 'Français' ou 'English'.\n"); } elsif (("list" =~ /^\Q$command/ || $command eq "ls") && $command ne "l") { # check 1 letter command: 'list' or 'language'? printf "list/ls [Premier_id [Dernier_id]]\n"; printf " Affiche une liste de comptes.\n"; printf " 'Premier_id', 'Dernier_id': indique les identifiants de départ et de fin.\n"; printf " La recherche par nom n'est pas possible avec cette commande.\n"; printf " list 10 9999999\n"; } elsif (("listban" =~ /^\Q$command/ || $command eq "lsban") && $command ne "l") { # need to specificaly write Ban to have this list # check 1 letter command: 'list' or 'language'? printf "listBan/lsBan [Premier_id [Dernier_id]]\n"; printf " Comme list/ls, mais seulement pour les comptes GM avec un statut ou bannis.\n"; } elsif (("listgm" =~ /^\Q$command/ || $command eq "lsgm") && $command ne "l") { # need to specificaly write GM to have this list # check 1 letter command: 'list' or 'language'? printf "listGM/lsGM [Premier_id [Dernier_id]]\n"; printf " Comme list/ls, mais seulement pour les comptes GM.\n"; } elsif (("listok" =~ /^\Q$command/ || $command eq "lsok") && $command ne "l") { # need to specificaly write OK to have this list # check 1 letter command: 'list' or 'language'? printf "listOK/lsOK [Premier_id [Dernier_id]]\n"; printf " Comme list/ls, mais seulement pour les comptes sans statut et non bannis.\n"; } elsif ("memo" =~ /^\Q$command/) { printf "memo \n"; printf " Modifie le mémo d'un compte.\n"; printf " 'memo': Il peut avoir jusqu'à 253 caractères (avec des espaces ou non).\n"; } elsif ("name" =~ /^\Q$command/) { printf "name \n"; printf " Donne le nom d'un compte.\n"; } elsif ("passwd" =~ /^\Q$command/ || "password" =~ /^\Q$command/) { printf "passwd \n"; printf " Change le mot de passe d'un compte.\n"; printf " Lorsque nouveaumotdepasse est omis,\n"; printf " la saisie se fait sans que la frappe ne se voit.\n"; } elsif ("reloadgm" =~ /^\Q$command/) { printf "reloadGM\n"; printf " Reload GM configuration file\n"; } elsif ("search" =~ /^\Q$command/ && $command ne "s" && # check 1 letter command: 'search', 'state' or 'sex'? $command ne "se") { # check 2 letters command: 'search' or 'sex'? printf "search \n"; printf " Cherche des comptes.\n"; printf " Affiche les comptes dont les noms correspondent.\n"; printf "search -r/-e/--expr/--regex \n"; printf " Cherche des comptes par expression regulière.\n"; printf " Affiche les comptes dont les noms correspondent.\n"; } elsif ("sex" =~ /^\Q$command/ && $command ne "s" && # check 1 letter command: 'search', 'state' or 'sex'? $command ne "se") { # check 2 letters command: 'search' or 'sex'? printf "sex \n"; printf " Modifie le sexe d'un compte.\n"; printf " sex testname Male\n"; } elsif ("state" =~ /^\Q$command/ && $command ne "s") { # check 1 letter command: 'search', 'state' or 'sex'? printf "state \n"; printf " Change le statut d'un compte.\n"; printf " 'nouveaustatut': Le statut est le même que celui du packet 0x006a + 1.\n"; printf " les possibilités sont:\n"; printf " 0 = Compte 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 " 'message_erreur_7': message du code erreur 6 =\n"; printf " = Your are Prohibited to log in until... (packet 0x006a)\n"; } elsif (("timeadd" =~ /^\Q$command/ || $command eq "ta") && $command ne "t") { # check 1 letter command: 'ta' or 'ts'? printf "timeadd \n"; printf " Ajoute/soustrait du temps à la limite de validité d'un compte.\n"; printf " Le modificateur est composé comme suit:\n"; printf " Valeur modificatrice (-1, 1, +1, etc...)\n"; printf " Elément modifié:\n"; printf " a ou y: année\n"; printf " m: mois\n"; printf " j ou d: jour\n"; printf " h: heure\n"; printf " mn: minute\n"; printf " s: seconde\n"; printf " timeadd testname +1m-2mn1s-6a\n"; printf " Cette exemple ajoute 1 mois et une seconde, et soustrait 2 minutes\n"; printf " et 6 ans dans le même temps.\n"; printf "NOTE: Vous ne pouvez pas modifier une limite de validité illimitée. Si vous\n"; printf " désirez le faire, c'est que vous voulez probablement créer un limite de\n"; printf " validité limitée. Donc, en premier, fixé une limite de valitidé.\n"; } elsif (("timeset" =~ /^\Q$command/ || $command eq "ts") && $command ne "t") { # check 1 letter command: 'ta' or 'ts'? printf "timeset aaaa/mm/jj [hh:mm:ss]\n"; printf " Change la limite de validité d'un compte.\n"; printf " Heure par défaut: 23:59:59\n"; printf "timeset 0\n"; printf " Donne une limite de validité illimitée (0 = illimitée).\n"; } elsif ($command eq "unban" || ("unbanish" =~ /^\Q$command/ && length($command) >= 4)) { printf "unban/unbanish \n"; printf " Ote le banissement d'un compte.\n"; printf " La commande est l'équivalent de banset 0.\n"; } elsif ("unblock" =~ /^\Q$command/ && length($command) >= 4) { printf "unblock \n"; printf " Place le status d'un compte à 0 (Compte ok).\n"; printf " La commande est l'équivalent de state 0.\n"; } elsif ("version" =~ /^\Q$command/) { printf "version\n"; printf " Affiche la version du login-serveur.\n"; } elsif ("who" =~ /^\Q$command/) { printf "who \n"; printf " Affiche les informations sur un compte.\n"; } elsif ("quit" =~ /^\Q$command/ || (("end" =~ /^\Q$command/ || "exit" =~ /^\Q$command/) && $command ne "e")) { # check 1 letter command: 'email', 'end' or 'exit'?\n"; printf "quit/end/exit\n"; printf " Fin du programme d'administration.\n"; } else { if ($receivedcommand ne "") { printf "Commande inconnue [%s] pour l'aide. Affichage de toutes les commandes.\n", $receivedcommand; } print << "ENDOFAIDE"; aide/help/? -- Affiche cet aide aide/help/? [commande] -- Affiche l'aide de la commande add -- Crée un compte (sans email) ban/banish aaaa/mm/jj hh:mm:ss -- Change la date finale de banismnt banadd/ba -- Ajout/soustrait du temps à la exemple: ba moncompte +1m-2mn1s-2y date finale de banissement banset/bs aaaa/mm/jj [hh:mm:ss] -- Change la date fin de banisemnt banset/bs 0 -- Dé-banis un compte. block -- Mets le status d'un compte à 5 (blocked by the GM Team) check -- Vérifie un mot de passe d'un compte create -- Crée un compte (avec email) del -- Supprime un compte email -- Modifie l'e-mail d'un compte getcount -- Donne le nb de joueurs en ligne gm [Niveau_GM] -- Modifie le niveau de GM d'un compte id -- Donne l'id d'un compte info -- Affiche les infos sur un compte kami -- Envoi un message général (en jaune) kamib -- Envoi un message général (en bleu) language -- Change la langue d'affichage. list/ls [Premier_id [Dernier_id] ] -- Affiche une liste de comptes listBan/lsBan [Premier_id [Dernier_id] ]-- Affiche une liste de comptes avec un statut ou bannis listGM/lsGM [Premier_id [Dernier_id] ] -- Affiche une liste de comptes GM listOK/lsOK [Premier_id [Dernier_id] ] -- Affiche une liste de comptes sans status et non bannis memo -- Modifie le memo d'un compte name -- Donne le nom d'un compte passwd -- Change le mot de passe d'un compte quit/end/exit -- Fin du programme d'administation reloadGM -- Recharger le fichier de config des GM search -- Cherche des comptes search -e/-r/--expr/--regex -- Cherche des comptes par REGEX sex -- Modifie le sexe d'un compte state