summaryrefslogblamecommitdiff
path: root/src/ladmin/ladmin.c
blob: 5ef9b6c2878e301063507c3b2d7a5f247e0792c7 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
12
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935
1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977
1978
1979
1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005
2006
2007
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806
3807
3808
3809
3810
3811
3812
3813
3814
3815
3816
3817
3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
3880
3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916
3917
3918
3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994
3995
3996
3997
3998
3999
4000
4001
4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022
4023
4024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045
4046
4047
4048
4049
4050
4051
4052
4053
4054
4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4881
4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4999
5000
5001
5002
5003
5004
5005
5006
5007
5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
5023
5024
5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139
5140
5141
5142
5143
5144
5145
5146
5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5168
5169
5170
5171
5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264
5265
5266
5267
5268
5269
5270
5271
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
5306
5307
5308
5309
5310
5311
5312
5313
5314
5315
5316
5317
5318
5319
5320
5321
5322
5323
5324
5325
5326
5327
5328
5329
5330
5331
5332
5333
5334
5335
5336
5337
5338
5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349
5350
5351
5352
5353
5354
5355
5356
5357
5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368
5369
5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5411
5412
5413
5414
5415
5416
5417
5418
5419
5420
5421
5422
5423
5424
5425
5426
5427
5428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
5453
5454
5455
5456
5457
5458
5459
5460
5461
5462
5463
5464
5465
5466
5467
5468
5469
5470
5471
5472
5473
5474
5475
5476
5477
5478
5479
5480
5481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
5513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672
5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689
5690
5691
5692
5693
5694
5695
5696
5697
5698
5699
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
5713
5714
5715
5716
5717
5718
5719
5720
5721
5722
5723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
6217
6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333











                                                                           
                                               

                      
                                        

                   




                                                














                     


                                                       









                                                                           


                                                                          
                  
                                                                
     
                                                                
      
                                                                            

























































































































































































                                                                                                              


                                                                                     

                      

                                                                                                                  



                                























                                                                         
 

                




                                                       












                                             
 
                  




                                               




























                                                   




                                                                                           






































































                                                                                             
 
             




                                                     



                                       
 


                                                  
 


                                                                        
 

                                         
 
                                       
 


                                             
 







                                             
 


                                            
 

                  




                                    









































































                                                                                                  




                                                                                      






































































                                                                                             
 
             




                                                                    

                                 
       




                                                                                                                                         
                   






































































































                                                                                                                                                                                        
       








                                                                                                                                                      




                                           
















































                                                                            
                   






























































































































































































































































































                                                                                                     
       






                                                              
                  














































































































                                                                                                       
                   






























































































































































































































































































                                                                                                      
       






                                                                 
                  



































































































                                                                                                         




                               







































































                                                                                                                   













                                                                                                                                                             










































































































                                                                                               




                                                                                   


















































































































































































































































































































                                                                                                              





                                                                         






































































































































































































































                                                                                                                




                                                                       










































                                                                                                 
 
                                               




                                                                          










































                                                                                                            
 

                                  
 
                                               




                                                   









































                                                                                       
 
                                            





                                                                               




























































                                                                                                               




                                                  

























































































                                                                                                                   




                                                            




















































































































                                                                                                      

                                                       



















                                                                                                




                                                            












































































                                                                                                           




                                               



















































                                                                                       




                                                                              






































                                                                                                          




                                         































                                                                             
 





                                                                 
 
             




                                              






















































                                                                                          
 
             




                                                          

                                       
                                                                                  















































































                                                                                                    

 


                                                          
                          
 
                            
 




                                                                           
 




                                                                                
 
             

 


                                              











































































                                                                                                      




                                                 


































                                                                                         





                                                                               




























































                                                                                                                   





                                                                        
























                                                                                   




                                                       






































































                                                                                                    





                                                                           



























































































































                                                                                                         




                                                         





































                                                                                                        
 
                                                       




                                             


































                                                                                                          
 
                                                                        




                                             


































                                                                                                        
 
                                                                        




                                                                       


















































































































































































































































































































                                                                                                                   




                                                   


























































































































































































































































                                                                                                                   




                                                                                

















































                                                                                                            




                                                          













                                                                               






                                               






























                                                                                  

                                      
















































































                                                                                                                               
 




























                                                                         
 
                                 
       






                                                         
                   







































































































































                                                                                                       
       













                                                 
                  














                                                                    
 
             




                                                               




























































































                                                                                                                                 

                  











































                                                                                                           

      












































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































                                                                                                                                                                                                                  
 

                                                  
 
             




                                      














                                                                          

                  

                     
      















                                                                          
                  
















                                                                               

      
             





                                                   










                                                                   




                                     




















































































                                                                                    
                  





                                                  
      




































                                                                                          
 
                                         
 







                                                                              
 
             




                                        

                    
 



















                                                                                                  
 

                                  




                          
















































                                                                            
 
// $Id: ladmin.c,v 1.1.1.1 2004/09/10 17:26:52 MagicalTux Exp $
///////////////////////////////////////////////////////////////////////////
// EAthena login-server remote administration tool
// Ladamin in C by [Yor]
// if you modify this software, modify ladmin in tool too.
///////////////////////////////////////////////////////////////////////////

#include <sys/types.h>
#include <sys/socket.h>
#include <stdio.h>
#include <stdlib.h>
#include <netinet/in.h>
#include <sys/time.h>           // gettimeofday
#include <time.h>
#include <sys/ioctl.h>
#include <unistd.h>             // close
#include <signal.h>
#include <fcntl.h>
#include <string.h>             // str*
#include <arpa/inet.h>          // inet_addr
#include <netdb.h>              // gethostbyname
#include <stdarg.h>             // valist
#include <ctype.h>              // tolower

#include "core.h"
#include "socket.h"
#include "ladmin.h"
#include "version.h"
#include "mmo.h"

#ifdef PASSWORDENC
#include "md5calc.h"
#endif

#ifdef MEMWATCH
#include "memwatch.h"
#endif

extern int eathena_interactive_session; // from core.c
#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).
//   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)
//-------------------------------------------------------------------------
char loginserverip[16] = "127.0.0.1";   // IP of login-server
int  loginserverport = 6900;    // Port of login-server
char loginserveradminpassword[24] = "admin";    // Administration password
#ifdef PASSWORDENC
int  passenc = 2;               // Encoding type of the password
#else
int  passenc = 0;               // Encoding type of the password
#endif
char defaultlanguage = 'E';     // Default language (F: Fran�ais/E: English)
                                             // (if it's not 'F', default is English)
char ladmin_log_filename[1024] = "log/ladmin.log";
char date_format[32] = "%Y-%m-%d %H:%M:%S";
//-------------------------------------------------------------------------
//  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)
//
//  aide/help/?
//    Display the description of the commands
//  aide/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).
//
//  language <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.
//    <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.
//
//-------------------------------------------------------------------------
int  login_fd;
int  login_ip;
int  bytes_to_read = 0;         // flag to know if we waiting bytes from login-server
char command[1024];
char parameters[1024];
int  list_first, list_last, list_type, list_count;  // parameter to display a list of accounts
int  already_exit_function = 0; // sometimes, the exit function is called twice... so, don't log twice the message

//------------------------------
// Writing function of logs file
//------------------------------
int ladmin_log (char *fmt, ...)
{
    FILE *logfp;
    va_list ap;
    struct timeval tv;
    char tmpstr[2048];

    va_start (ap, fmt);

    logfp = fopen_ (ladmin_log_filename, "a");
    if (logfp)
    {
        if (fmt[0] == '\0')     // jump a line if no message
            fprintf (logfp, RETCODE);
        else
        {
            gettimeofday (&tv, NULL);
            strftime (tmpstr, 24, date_format, localtime (&(tv.tv_sec)));
            sprintf (tmpstr + strlen (tmpstr), ".%03d: %s",
                     (int) tv.tv_usec / 1000, fmt);
            vfprintf (logfp, tmpstr, ap);
        }
        fclose_ (logfp);
    }

    va_end (ap);
    return 0;
}

//-----------------------------------------------------
// Function to suppress control characters in a string.
//-----------------------------------------------------
int remove_control_chars (unsigned char *str)
{
    int  i;
    int  change = 0;

    for (i = 0; str[i]; i++)
    {
        if (str[i] < 32)
        {
            str[i] = '_';
            change = 1;
        }
    }

    return change;
}

//---------------------------------------------
// Function to return ordonal text of a number.
//---------------------------------------------
char *makeordinal (int number)
{
    if (defaultlanguage == 'F')
    {
        if (number == 0)
            return "";
        else if (number == 1)
            return "er";
        else
            return "�me";
    }
    else
    {
        if ((number % 10) < 4 && (number % 10) != 0
            && (number < 10 || number > 20))
        {
            if ((number % 10) == 1)
                return "st";
            else if ((number % 10) == 2)
                return "nd";
            else
                return "rd";
        }
        else
        {
            return "th";
        }
    }
    return "";
}

//-----------------------------------------------------------------------------------------
// Function to test of the validity of an account name (return 0 if incorrect, and 1 if ok)
//-----------------------------------------------------------------------------------------
int verify_accountname (char *account_name)
{
    int  i;

    for (i = 0; account_name[i]; i++)
    {
        if (account_name[i] < 32)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Caract�re interdit trouv� dans le nom du compte (%d%s caract�re).\n",
                     i + 1, makeordinal (i + 1));
                ladmin_log
                    ("Caract�re interdit trouv� dans le nom du compte (%d%s caract�re)."
                     RETCODE, i + 1, makeordinal (i + 1));
            }
            else
            {
                printf
                    ("Illegal character found in the account name (%d%s character).\n",
                     i + 1, makeordinal (i + 1));
                ladmin_log
                    ("Illegal character found in the account name (%d%s character)."
                     RETCODE, i + 1, makeordinal (i + 1));
            }
            return 0;
        }
    }

    if (strlen (account_name) < 4)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Nom du compte trop court. Entrez un nom de compte de 4-23 caract�res.\n");
            ladmin_log
                ("Nom du compte trop court. Entrez un nom de compte de 4-23 caract�res."
                 RETCODE);
        }
        else
        {
            printf
                ("Account name is too short. Please input an account name of 4-23 bytes.\n");
            ladmin_log
                ("Account name is too short. Please input an account name of 4-23 bytes."
                 RETCODE);
        }
        return 0;
    }

    if (strlen (account_name) > 23)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Nom du compte trop long. Entrez un nom de compte de 4-23 caract�res.\n");
            ladmin_log
                ("Nom du compte trop long. Entrez un nom de compte de 4-23 caract�res."
                 RETCODE);
        }
        else
        {
            printf
                ("Account name is too long. Please input an account name of 4-23 bytes.\n");
            ladmin_log
                ("Account name is too long. Please input an account name of 4-23 bytes."
                 RETCODE);
        }
        return 0;
    }

    return 1;
}

//---------------------------------------------------
// E-mail check: return 0 (not correct) or 1 (valid).
//---------------------------------------------------
int e_mail_check (unsigned char *email)
{
    char ch;
    unsigned char *last_arobas;

    // athena limits
    if (strlen (email) < 3 || strlen (email) > 39)
        return 0;

    // part of RFC limits (official reference of e-mail description)
    if (strchr (email, '@') == NULL || email[strlen (email) - 1] == '@')
        return 0;

    if (email[strlen (email) - 1] == '.')
        return 0;

    last_arobas = strrchr (email, '@');

    if (strstr (last_arobas, "@.") != NULL ||
        strstr (last_arobas, "..") != NULL)
        return 0;

    for (ch = 1; ch < 32; ch++)
    {
        if (strchr (last_arobas, ch) != NULL)
        {
            return 0;
            break;
        }
    }

    if (strchr (last_arobas, ' ') != NULL ||
        strchr (last_arobas, ';') != NULL)
        return 0;

    // all correct
    return 1;
}

//----------------------------------
// Sub-function: Input of a password
//----------------------------------
int typepasswd (char *password)
{
    char password1[1023], password2[1023];
    int  letter;
    int  i;

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Aucun mot de passe n'a �t� donn�. Demande d'un mot de passe."
             RETCODE);
    }
    else
    {
        ladmin_log ("No password was given. Request to obtain a password."
                    RETCODE);
    }

    memset (password1, '\0', sizeof (password1));
    memset (password2, '\0', sizeof (password2));
    if (defaultlanguage == 'F')
        printf ("\033[1;36m Entrez le mot de passe > \033[0;32;42m");
    else
        printf ("\033[1;36m Type the password > \033[0;32;42m");
    i = 0;
    while ((letter = getchar ()) != '\n')
        password1[i++] = letter;
    if (defaultlanguage == 'F')
        printf
            ("\033[0m\033[1;36m R�-entrez le mot de passe > \033[0;32;42m");
    else
        printf ("\033[0m\033[1;36m Verify the password > \033[0;32;42m");
    i = 0;
    while ((letter = getchar ()) != '\n')
        password2[i++] = letter;

    printf ("\033[0m");
    fflush (stdout);
    fflush (stdin);

    if (strcmp (password1, password2) != 0)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Erreur de v�rification du mot de passe: Saisissez le m�me mot de passe svp.\n");
            ladmin_log
                ("Erreur de v�rification du mot de passe: Saisissez le m�me mot de passe svp."
                 RETCODE);
            ladmin_log ("  Premier mot de passe: %s, second mot de passe: %s."
                        RETCODE, password1, password2);
        }
        else
        {
            printf
                ("Password verification failed. Please input same password.\n");
            ladmin_log
                ("Password verification failed. Please input same password."
                 RETCODE);
            ladmin_log ("  First password: %s, second password: %s." RETCODE,
                        password1, password2);
        }
        return 0;
    }
    if (defaultlanguage == 'F')
    {
        ladmin_log ("Mot de passe saisi: %s." RETCODE, password1);
    }
    else
    {
        ladmin_log ("Typed password: %s." RETCODE, password1);
    }
    strcpy (password, password1);
    return 1;
}

//------------------------------------------------------------------------------------
// Sub-function: Test of the validity of password (return 0 if incorrect, and 1 if ok)
//------------------------------------------------------------------------------------
int verify_password (char *password)
{
    int  i;

    for (i = 0; password[i]; i++)
    {
        if (password[i] < 32)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Caract�re interdit trouv� dans le mot de passe (%d%s caract�re).\n",
                     i + 1, makeordinal (i + 1));
                ladmin_log
                    ("Caract�re interdit trouv� dans le nom du compte (%d%s caract�re)."
                     RETCODE, i + 1, makeordinal (i + 1));
            }
            else
            {
                printf
                    ("Illegal character found in the password (%d%s character).\n",
                     i + 1, makeordinal (i + 1));
                ladmin_log
                    ("Illegal character found in the password (%d%s character)."
                     RETCODE, i + 1, makeordinal (i + 1));
            }
            return 0;
        }
    }

    if (strlen (password) < 4)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Nom du compte trop court. Entrez un nom de compte de 4-23 caract�res.\n");
            ladmin_log
                ("Nom du compte trop court. Entrez un nom de compte de 4-23 caract�res."
                 RETCODE);
        }
        else
        {
            printf
                ("Account name is too short. Please input an account name of 4-23 bytes.\n");
            ladmin_log
                ("Account name is too short. Please input an account name of 4-23 bytes."
                 RETCODE);
        }
        return 0;
    }

    if (strlen (password) > 23)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Mot de passe trop long. Entrez un mot de passe de 4-23 caract�res.\n");
            ladmin_log
                ("Mot de passe trop long. Entrez un mot de passe de 4-23 caract�res."
                 RETCODE);
        }
        else
        {
            printf
                ("Password is too long. Please input a password of 4-23 bytes.\n");
            ladmin_log
                ("Password is too long. Please input a password of 4-23 bytes."
                 RETCODE);
        }
        return 0;
    }

    return 1;
}

//------------------------------------------------------------------
// Sub-function: Check the name of a command (return complete name)
//-----------------------------------------------------------------
int check_command (char *command)
{
// help
    if (strncmp (command, "aide", 2) == 0 && strncmp (command, "aide", strlen (command)) == 0)  // not 1 letter command: 'aide' or 'add'?
        strcpy (command, "aide");
    else if (strncmp (command, "help", 1) == 0
             && strncmp (command, "help", strlen (command)) == 0)
        strcpy (command, "help");
// general commands
    else if (strncmp (command, "add", 2) == 0 && strncmp (command, "add", strlen (command)) == 0)   // not 1 letter command: 'aide' or 'add'?
        strcpy (command, "add");
    else if ((strncmp (command, "ban", 3) == 0
              && strncmp (command, "ban", strlen (command)) == 0)
             || (strncmp (command, "banish", 4) == 0
                 && strncmp (command, "banish", strlen (command)) == 0))
        strcpy (command, "ban");
    else if ((strncmp (command, "banadd", 4) == 0 && strncmp (command, "banadd", strlen (command)) == 0) || // not 1 letter command: 'ba' or 'bs'? 'banadd' or 'banset' ?
             strcmp (command, "ba") == 0)
        strcpy (command, "banadd");
    else if ((strncmp (command, "banset", 4) == 0 && strncmp (command, "banset", strlen (command)) == 0) || // not 1 letter command: 'ba' or 'bs'? 'banadd' or 'banset' ?
             strcmp (command, "bs") == 0)
        strcpy (command, "banset");
    else if (strncmp (command, "block", 2) == 0
             && strncmp (command, "block", strlen (command)) == 0)
        strcpy (command, "block");
    else if (strncmp (command, "check", 2) == 0 && strncmp (command, "check", strlen (command)) == 0)   // not 1 letter command: 'check' or 'create'?
        strcpy (command, "check");
    else if (strncmp (command, "create", 2) == 0 && strncmp (command, "create", strlen (command)) == 0) // not 1 letter command: 'check' or 'create'?
        strcpy (command, "create");
    else if (strncmp (command, "delete", 1) == 0
             && strncmp (command, "delete", strlen (command)) == 0)
        strcpy (command, "delete");
    else if ((strncmp (command, "email", 2) == 0 && strncmp (command, "email", strlen (command)) == 0) ||   // not 1 letter command: 'email', 'end' or 'exit'?
             (strncmp (command, "e-mail", 2) == 0
              && strncmp (command, "e-mail", strlen (command)) == 0))
        strcpy (command, "email");
    else if (strncmp (command, "getcount", 2) == 0 && strncmp (command, "getcount", strlen (command)) == 0) // not 1 letter command: 'getcount' or 'gm'?
        strcpy (command, "getcount");
//  else if (strncmp(command, "gm", 2) == 0 && strncmp(command, "gm", strlen(command)) == 0) // not 1 letter command: 'getcount' or 'gm'?
//      strcpy(command, "gm");
//  else if (strncmp(command, "id", 2) == 0 && strncmp(command, "id", strlen(command)) == 0) // not 1 letter command: 'id' or 'info'?
//      strcpy(command, "id");
    else if (strncmp (command, "info", 2) == 0 && strncmp (command, "info", strlen (command)) == 0) // not 1 letter command: 'id' or 'info'?
        strcpy (command, "info");
//  else if (strncmp(command, "kami", 4) == 0 && strncmp(command, "kami", strlen(command)) == 0) // only all letters command: 'kami' or 'kamib'?
//      strcpy(command, "kami");
//  else if (strncmp(command, "kamib", 5) == 0 && strncmp(command, "kamib", strlen(command)) == 0) // only all letters command: 'kami' or 'kamib'?
//      strcpy(command, "kamib");
    else if ((strncmp (command, "language", 2) == 0 && strncmp (command, "language", strlen (command)) == 0))   // not 1 letter command: 'language' or 'list'?
        strcpy (command, "language");
    else if ((strncmp (command, "list", 2) == 0 && strncmp (command, "list", strlen (command)) == 0) || // 'list' is default list command // not 1 letter command: 'language' or 'list'?
             strcmp (command, "ls") == 0)
        strcpy (command, "list");
    else if (strncmp (command, "itemfrob", 6) == 0)
        strcpy (command, "itemfrob");
    else if ((strncmp (command, "listban", 5) == 0
              && strncmp (command, "listban", strlen (command)) == 0)
             || (strncmp (command, "lsban", 3) == 0
                 && strncmp (command, "lsban", strlen (command)) == 0)
             || strcmp (command, "lb") == 0)
        strcpy (command, "listban");
    else if ((strncmp (command, "listgm", 5) == 0
              && strncmp (command, "listgm", strlen (command)) == 0)
             || (strncmp (command, "lsgm", 3) == 0
                 && strncmp (command, "lsgm", strlen (command)) == 0)
             || strcmp (command, "lg") == 0)
        strcpy (command, "listgm");
    else if ((strncmp (command, "listok", 5) == 0
              && strncmp (command, "listok", strlen (command)) == 0)
             || (strncmp (command, "lsok", 3) == 0
                 && strncmp (command, "lsok", strlen (command)) == 0)
             || strcmp (command, "lo") == 0)
        strcpy (command, "listok");
    else if (strncmp (command, "memo", 1) == 0
             && strncmp (command, "memo", strlen (command)) == 0)
        strcpy (command, "memo");
    else if (strncmp (command, "name", 1) == 0
             && strncmp (command, "name", strlen (command)) == 0)
        strcpy (command, "name");
    else if ((strncmp (command, "password", 1) == 0
              && strncmp (command, "password", strlen (command)) == 0)
             || strcmp (command, "passwd") == 0)
        strcpy (command, "password");
    else if (strncmp (command, "reloadgm", 1) == 0
             && strncmp (command, "reloadgm", strlen (command)) == 0)
        strcpy (command, "reloadgm");
    else if (strncmp (command, "search", 3) == 0 && strncmp (command, "search", strlen (command)) == 0) // not 1 letter command: 'search', 'state' or 'sex'?
        strcpy (command, "search"); // not 2 letters command: 'search' or 'sex'?
//  else if (strncmp(command, "sex", 3) == 0 && strncmp(command, "sex", strlen(command)) == 0) // not 1 letter command: 'search', 'state' or 'sex'?
//      strcpy(command, "sex"); // not 2 letters command: 'search' or 'sex'?
    else if (strncmp (command, "state", 2) == 0 && strncmp (command, "state", strlen (command)) == 0)   // not 1 letter command: 'search', 'state' or 'sex'?
        strcpy (command, "state");
    else if ((strncmp (command, "timeadd", 5) == 0 && strncmp (command, "timeadd", strlen (command)) == 0) ||   // not 1 letter command: 'ta' or 'ts'? 'timeadd' or 'timeset'?
             strcmp (command, "ta") == 0)
        strcpy (command, "timeadd");
    else if ((strncmp (command, "timeset", 5) == 0 && strncmp (command, "timeset", strlen (command)) == 0) ||   // not 1 letter command: 'ta' or 'ts'? 'timeadd' or 'timeset'?
             strcmp (command, "ts") == 0)
        strcpy (command, "timeset");
    else if ((strncmp (command, "unban", 5) == 0
              && strncmp (command, "unban", strlen (command)) == 0)
             || (strncmp (command, "unbanish", 4) == 0
                 && strncmp (command, "unbanish", strlen (command)) == 0))
        strcpy (command, "unban");
    else if (strncmp (command, "unblock", 4) == 0
             && strncmp (command, "unblock", strlen (command)) == 0)
        strcpy (command, "unblock");
    else if (strncmp (command, "version", 1) == 0
             && strncmp (command, "version", strlen (command)) == 0)
        strcpy (command, "version");
    else if (strncmp (command, "who", 1) == 0
             && strncmp (command, "who", strlen (command)) == 0)
        strcpy (command, "who");
// quit
    else if (strncmp (command, "quit", 1) == 0
             && strncmp (command, "quit", strlen (command)) == 0)
        strcpy (command, "quit");
    else if (strncmp (command, "exit", 2) == 0 && strncmp (command, "exit", strlen (command)) == 0) // not 1 letter command: 'email', 'end' or 'exit'?
        strcpy (command, "exit");
    else if (strncmp (command, "end", 2) == 0 && strncmp (command, "end", strlen (command)) == 0)   // not 1 letter command: 'email', 'end' or 'exit'?
        strcpy (command, "end");

    return 0;
}

//-----------------------------------------
// Sub-function: Display commands of ladmin
//-----------------------------------------
void display_help (char *param, int language)
{
    char command[1023];
    int  i;

    memset (command, '\0', sizeof (command));

    if (sscanf (param, "%s ", command) < 1 || strlen (command) == 0)
        strcpy (command, "");   // any value that is not a command

    if (command[0] == '?')
    {
        if (defaultlanguage == 'F')
            strcpy (command, "aide");
        else
            strcpy (command, "help");
    }

    // lowercase for command
    for (i = 0; command[i]; i++)
        command[i] = tolower (command[i]);

    // Analyse of the command
    check_command (command);    // give complete name to the command

    if (defaultlanguage == 'F')
    {
        ladmin_log ("Affichage des commandes ou d'une commande." RETCODE);
    }
    else
    {
        ladmin_log ("Displaying of the commands or a command." RETCODE);
    }

    if (language == 1)
    {
        if (strcmp (command, "aide") == 0)
        {
            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");
        }
        else if (strcmp (command, "help") == 0)
        {
            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");
// general commands
        }
        else if (strcmp (command, "add") == 0)
        {
            printf ("add <nomcompte> <sexe> <motdepasse>\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 ("  <exemple> add testname Male testpass\n");
        }
        else if (strcmp (command, "ban") == 0)
        {
            printf ("ban/banish aaaa/mm/jj hh:mm:ss <nom compte>\n");
            printf ("  Change la date de fin de bannissement d'un compte.\n");
            printf ("  Comme banset, mais <nom compte> est � la fin.\n");
        }
        else if (strcmp (command, "banadd") == 0)
        {
            printf ("banadd <nomcompte> <Modificateur>\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 ("  <exemple> 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");
        }
        else if (strcmp (command, "banset") == 0)
        {
            printf ("banset <nomcompte> aaaa/mm/jj [hh:mm:ss]\n");
            printf ("  Change la date de fin de bannissement d'un compte.\n");
            printf ("  Heure par d�faut [hh:mm:ss]: 23:59:59.\n");
            printf ("banset <nomcompte> 0\n");
            printf ("  D�banni un compte (0 = de-banni).\n");
        }
        else if (strcmp (command, "block") == 0)
        {
            printf ("block <nom compte>\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 <nom_compte> 5.\n");
        }
        else if (strcmp (command, "check") == 0)
        {
            printf ("check <nomcompte> <motdepasse>\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");
        }
        else if (strcmp (command, "create") == 0)
        {
            printf ("create <nomcompte> <sexe> <email> <motdepasse>\n");
            printf ("  Comme la commande add, mais avec l'e-mail en plus.\n");
            printf
                ("  <exemple> create testname Male mon@mail.com testpass\n");
        }
        else if (strcmp (command, "delete") == 0)
        {
            printf ("del <nom compte>\n");
            printf ("  Supprime un compte.\n");
            printf
                ("  La commande demande confirmation. Apr�s confirmation, le compte est d�truit.\n");
        }
        else if (strcmp (command, "email") == 0)
        {
            printf ("email <nomcompte> <email>\n");
            printf ("  Modifie l'e-mail d'un compte.\n");
        }
        else if (strcmp (command, "getcount") == 0)
        {
            printf ("getcount\n");
            printf
                ("  Donne le nombre de joueurs en ligne par serveur de char.\n");
        }
        else if (strcmp (command, "gm") == 0)
        {
            printf ("gm <nomcompte> [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 ("  <exemple> gm nomtest 80\n");
        }
        else if (strcmp (command, "id") == 0)
        {
            printf ("id <nom compte>\n");
            printf ("  Donne l'id d'un compte.\n");
        }
        else if (strcmp (command, "info") == 0)
        {
            printf ("info <idcompte>\n");
            printf ("  Affiche les informations sur un compte.\n");
        }
        else if (strcmp (command, "kami") == 0)
        {
            printf ("kami <message>\n");
            printf
                ("  Envoi un message g�n�ral sur tous les serveurs de map (en jaune).\n");
        }
        else if (strcmp (command, "kamib") == 0)
        {
            printf ("kamib <message>\n");
            printf
                ("  Envoi un message g�n�ral sur tous les serveurs de map (en bleu).\n");
        }
        else if (strcmp (command, "language") == 0)
        {
            printf ("language <langue>\n");
            printf ("  Change la langue d'affichage.\n");
            printf ("  Langues possibles: 'Fran�ais' ou 'English'.\n");
        }
        else if (strcmp (command, "list") == 0)
        {
            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 ("  <example> list 10 9999999\n");
        }
        else if (strcmp (command, "itemfrob") == 0)
        {
            printf ("Not localised yet.\n");
        }
        else if (strcmp (command, "listban") == 0)
        {
            printf ("listBan/lsBan [Premier_id [Dernier_id]]\n");
            printf
                ("  Comme list/ls, mais seulement pour les comptes avec statut ou bannis.\n");
        }
        else if (strcmp (command, "listgm") == 0)
        {
            printf ("listGM/lsGM [Premier_id [Dernier_id]]\n");
            printf ("  Comme list/ls, mais seulement pour les comptes GM.\n");
        }
        else if (strcmp (command, "listok") == 0)
        {
            printf ("listOK/lsOK [Premier_id [Dernier_id]]\n");
            printf
                ("  Comme list/ls, mais seulement pour les comptes sans statut et non bannis.\n");
        }
        else if (strcmp (command, "memo") == 0)
        {
            printf ("memo <nomcompte> <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");
        }
        else if (strcmp (command, "name") == 0)
        {
            printf ("name <idcompte>\n");
            printf ("  Donne le nom d'un compte.\n");
        }
        else if (strcmp (command, "password") == 0)
        {
            printf ("passwd <nomcompte> <nouveaumotdepasse>\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");
        }
        else if (strcmp (command, "reloadgm") == 0)
        {
            printf ("reloadGM\n");
            printf ("  Reload GM configuration file\n");
        }
        else if (strcmp (command, "search") == 0)
        {
            printf ("search <expression>\n");
            printf ("  Cherche des comptes.\n");
            printf ("  Affiche les comptes dont les noms correspondent.\n");
//          printf("search -r/-e/--expr/--regex <expression>\n");
//          printf("  Cherche des comptes par expression reguli�re.\n");
//          printf("  Affiche les comptes dont les noms correspondent.\n");
        }
        else if (strcmp (command, "sex") == 0)
        {
            printf ("sex <nomcompte> <sexe>\n");
            printf ("  Modifie le sexe d'un compte.\n");
            printf ("  <exemple> sex testname Male\n");
        }
        else if (strcmp (command, "state") == 0)
        {
            printf ("state <nomcompte> <nouveaustatut> <message_erreur_7>\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");
        }
        else if (strcmp (command, "timeadd") == 0)
        {
            printf ("timeadd <nomcompte> <modificateur>\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 ("  <exemple> 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");
        }
        else if (strcmp (command, "timeadd") == 0)
        {
            printf ("timeset <nomcompte> aaaa/mm/jj [hh:mm:ss]\n");
            printf ("  Change la limite de validit� d'un compte.\n");
            printf ("  Heure par d�faut [hh:mm:ss]: 23:59:59.\n");
            printf ("timeset <nomcompte> 0\n");
            printf
                ("  Donne une limite de validit� illimit�e (0 = illimit�e).\n");
        }
        else if (strcmp (command, "unban") == 0)
        {
            printf ("unban/unbanish <nom compte>\n");
            printf ("  Ote le banissement d'un compte.\n");
            printf
                ("  La commande est l'�quivalent de banset <nom_compte> 0.\n");
        }
        else if (strcmp (command, "unblock") == 0)
        {
            printf ("unblock <nom compte>\n");
            printf ("  Place le status d'un compte � 0 (Compte ok).\n");
            printf
                ("  La commande est l'�quivalent de state <nom_compte> 0.\n");
        }
        else if (strcmp (command, "version") == 0)
        {
            printf ("version\n");
            printf ("  Affiche la version du login-serveur.\n");
        }
        else if (strcmp (command, "who") == 0)
        {
            printf ("who <nom compte>\n");
            printf ("  Affiche les informations sur un compte.\n");
// quit
        }
        else if (strcmp (command, "quit") == 0 ||
                 strcmp (command, "exit") == 0 ||
                 strcmp (command, "end") == 0)
        {
            printf ("quit/end/exit\n");
            printf ("  Fin du programme d'administration.\n");
// unknown command
        }
        else
        {
            if (strlen (command) > 0)
                printf
                    ("Commande inconnue [%s] pour l'aide. Affichage de toutes les commandes.\n",
                     command);
            printf
                (" aide/help/?                             -- Affiche cet aide\n");
            printf
                (" aide/help/? [commande]                  -- Affiche l'aide de la commande\n");
            printf
                (" add <nomcompte> <sexe> <motdepasse>     -- Cr�e un compte (sans email)\n");
            printf
                (" ban/banish aaaa/mm/jj hh:mm:ss <nom compte> -- Fixe la date finale de banismnt\n");
            printf
                (" banadd/ba <nomcompte> <modificateur>    -- Ajout/soustrait du temps � la\n");
            printf
                ("   exemple: ba moncompte +1m-2mn1s-2y       date finale de banissement\n");
            printf
                (" banset/bs <nomcompte> aaaa/mm/jj [hh:mm:ss] -- Change la date fin de banisemnt\n");
            printf
                (" banset/bs <nomcompte> 0                 -- D�-banis un compte.\n");
            printf
                (" block <nom compte>  -- Mets le status d'un compte � 5 (blocked by the GM Team)\n");
            printf
                (" check <nomcompte> <motdepasse>          -- V�rifie un mot de passe d'un compte\n");
            printf
                (" create <nomcompte> <sexe> <email> <motdepasse> -- Cr�e un compte (avec email)\n");
            printf
                (" del <nom compte>                        -- Supprime un compte\n");
            printf
                (" email <nomcompte> <email>               -- Modifie l'e-mail d'un compte\n");
            printf
                (" getcount                                -- Donne le nb de joueurs en ligne\n");
            printf
                ("  gm <nomcompte> [Niveau_GM]              -- Modifie le niveau de GM d'un compte\n");
            printf
                (" id <nom compte>                         -- Donne l'id d'un compte\n");
            printf
                (" info <idcompte>                         -- Affiche les infos sur un compte\n");
            printf
                (" kami <message>                          -- Envoi un message g�n�ral (en jaune)\n");
            printf
                (" kamib <message>                         -- Envoi un message g�n�ral (en bleu)\n");
            printf
                (" language <langue>                       -- Change la langue d'affichage.\n");
            printf
                (" list/ls [Premier_id [Dernier_id] ]      -- Affiche une liste de comptes\n");
            printf
                (" listBan/lsBan [Premier_id [Dernier_id] ] -- Affiche une liste de comptes\n");
            printf
                ("                                             avec un statut ou bannis\n");
            printf
                (" listGM/lsGM [Premier_id [Dernier_id] ]  -- Affiche une liste de comptes GM\n");
            printf
                (" listOK/lsOK [Premier_id [Dernier_id] ]  -- Affiche une liste de comptes\n");
            printf
                ("                                            sans status et non bannis\n");
            printf
                (" memo <nomcompte> <memo>                 -- Modifie le memo d'un compte\n");
            printf
                (" name <idcompte>                         -- Donne le nom d'un compte\n");
            printf
                (" passwd <nomcompte> <nouveaumotdepasse>  -- Change le mot de passe d'un compte\n");
            printf
                (" quit/end/exit                           -- Fin du programme d'administation\n");
            printf
                (" reloadGM                              -- Recharger le fichier de config des GM\n");
            printf
                (" search <expression>                     -- Cherche des comptes\n");
//          printf(" search -e/-r/--expr/--regex <expression> -- Cherche des comptes par REGEX\n");
            printf
                (" sex <nomcompte> <sexe>                  -- Modifie le sexe d'un compte\n");
            printf
                (" state <nomcompte> <nouveaustatut> <messageerr7> -- Change le statut d'1 compte\n");
            printf
                (" timeadd/ta <nomcompte> <modificateur>   -- Ajout/soustrait du temps � la\n");
            printf
                ("   exemple: ta moncompte +1m-2mn1s-2y       limite de validit�\n");
            printf
                (" timeset/ts <nomcompte> aaaa/mm/jj [hh:mm:ss] -- Change la limite de validit�\n");
            printf
                (" timeset/ts <nomcompte> 0                -- limite de validit� = illimit�e\n");
            printf
                (" unban/unbanish <nom compte>             -- Ote le banissement d'un compte\n");
            printf
                (" unblock <nom compte>             -- Mets le status d'un compte � 0 (Compte ok)\n");
            printf
                (" version                                 -- Donne la version du login-serveur\n");
            printf
                (" who <nom compte>                        -- Affiche les infos sur un compte\n");
            printf
                (" Note: Pour les noms de compte avec des espaces, tapez \"<nom compte>\" (ou ').\n");
        }
    }
    else
    {
        if (strcmp (command, "aide") == 0)
        {
            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");
        }
        else if (strcmp (command, "help") == 0)
        {
            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");
// general commands
        }
        else if (strcmp (command, "add") == 0)
        {
            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 (strcmp (command, "ban") == 0)
        {
            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 (strcmp (command, "banadd") == 0)
        {
            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 (strcmp (command, "banset") == 0)
        {
            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 (strcmp (command, "block") == 0)
        {
            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 (strcmp (command, "check") == 0)
        {
            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 (strcmp (command, "create") == 0)
        {
            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 (strcmp (command, "delete") == 0)
        {
            printf ("del <account name>\n");
            printf ("  Remove an account.\n");
            printf
                ("  This order requires confirmation. After confirmation, the account is deleted.\n");
        }
        else if (strcmp (command, "email") == 0)
        {
            printf ("email <account_name> <email>\n");
            printf ("  Modify the e-mail of an account.\n");
        }
        else if (strcmp (command, "getcount") == 0)
        {
            printf ("getcount\n");
            printf
                ("  Give the number of players online on all char-servers.\n");
        }
        else if (strcmp (command, "gm") == 0)
        {
            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 (strcmp (command, "id") == 0)
        {
            printf ("id <account name>\n");
            printf ("  Give the id of an account.\n");
        }
        else if (strcmp (command, "info") == 0)
        {
            printf ("info <account_id>\n");
            printf ("  Display complete information of an account.\n");
        }
        else if (strcmp (command, "kami") == 0)
        {
            printf ("kami <message>\n");
            printf
                ("  Sends a broadcast message on all map-server (in yellow).\n");
        }
        else if (strcmp (command, "kamib") == 0)
        {
            printf ("kamib <message>\n");
            printf
                ("  Sends a broadcast message on all map-server (in blue).\n");
        }
        else if (strcmp (command, "language") == 0)
        {
            printf ("language <language>\n");
            printf ("  Change the language of displaying.\n");
            printf ("  Possible languages: Fran�ais or English.\n");
        }
        else if (strcmp (command, "list") == 0)
        {
            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 (strcmp (command, "itemfrob") == 0)
        {
            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 (strcmp (command, "listban") == 0)
        {
            printf ("listBan/lsBan [start_id [end_id]]\n");
            printf
                ("  Like list/ls, but only for accounts with state or banished.\n");
        }
        else if (strcmp (command, "listgm") == 0)
        {
            printf ("listGM/lsGM [start_id [end_id]]\n");
            printf ("  Like list/ls, but only for GM accounts.\n");
        }
        else if (strcmp (command, "listok") == 0)
        {
            printf ("listOK/lsOK [start_id [end_id]]\n");
            printf
                ("  Like list/ls, but only for accounts without state and not banished.\n");
        }
        else if (strcmp (command, "memo") == 0)
        {
            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 (strcmp (command, "name") == 0)
        {
            printf ("name <account_id>\n");
            printf ("  Give the name of an account.\n");
        }
        else if (strcmp (command, "password") == 0)
        {
            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 (strcmp (command, "reloadgm") == 0)
        {
            printf ("reloadGM\n");
            printf ("  Reload GM configuration file\n");
        }
        else if (strcmp (command, "search") == 0)
        {
            printf ("search <expression>\n");
            printf ("  Seek accounts.\n");
            printf ("  Displays the accounts whose names correspond.\n");
//          printf("search -r/-e/--expr/--regex <expression>\n");
//          printf("  Seek accounts by regular expression.\n");
//          printf("  Displays the accounts whose names correspond.\n");
        }
        else if (strcmp (command, "sex") == 0)
        {
            printf ("sex <account_name> <sex>\n");
            printf ("  Modify the sex of an account.\n");
            printf ("  <example> sex testname Male\n");
        }
        else if (strcmp (command, "state") == 0)
        {
            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 (strcmp (command, "timeadd") == 0)
        {
            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 (strcmp (command, "timeadd") == 0)
        {
            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 (strcmp (command, "unban") == 0)
        {
            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 (strcmp (command, "unblock") == 0)
        {
            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 (strcmp (command, "version") == 0)
        {
            printf ("version\n");
            printf ("  Display the version of the login-server.\n");
        }
        else if (strcmp (command, "who") == 0)
        {
            printf ("who <account name>\n");
            printf ("  Displays complete information of an account.\n");
// quit
        }
        else if (strcmp (command, "quit") == 0 ||
                 strcmp (command, "exit") == 0 ||
                 strcmp (command, "end") == 0)
        {
            printf ("quit/end/exit\n");
            printf ("  End of the program of administration.\n");
// unknown command
        }
        else
        {
            if (strlen (command) > 0)
                printf
                    ("Unknown command [%s] for help. Displaying of all commands.\n",
                     command);
            printf
                (" aide/help/?                          -- Display this help\n");
            printf
                (" aide/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
                (" language <language>                  -- Change the language of displaying.\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(" search -e/-r/--expr/--regex <expressn> -- Seek accounts by regular-expression\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
//-----------------------------
int addaccount (char *param, int emailflag)
{
    char name[1023], sex[1023], email[1023], password[1023];
//  int i;

    memset (name, '\0', sizeof (name));
    memset (sex, '\0', sizeof (sex));
    memset (email, '\0', sizeof (email));
    memset (password, '\0', sizeof (password));

    if (emailflag == 0)
    {                           // add command
        if (sscanf (param, "\"%[^\"]\" %s %[^\r\n]", name, sex, password) < 2 &&    // password can be void
            sscanf (param, "'%[^']' %s %[^\r\n]", name, sex, password) < 2 &&   // password can be void
            sscanf (param, "%s %s %[^\r\n]", name, sex, password) < 2)
        {                       // password can be void
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez un nom de compte, un sexe et un mot de passe svp.\n");
                printf ("<exemple> add nomtest Male motdepassetest\n");
                ladmin_log
                    ("Nombre incorrect de param�tres pour cr�er un compte (commande 'add')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 136;
        }
        strcpy (email, "a@a.com");  // default email
    }
    else
    {                           // 1: create command
        if (sscanf (param, "\"%[^\"]\" %s %s %[^\r\n]", name, sex, email, password) < 3 &&  // password can be void
            sscanf (param, "'%[^']' %s %s %[^\r\n]", name, sex, email, password) < 3 && // password can be void
            sscanf (param, "%s %s %s %[^\r\n]", name, sex, email,
                    password) < 3)
        {                       // password can be void
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez un nom de compte, un sexe et un mot de passe svp.\n");
                printf
                    ("<exemple> create nomtest Male mo@mail.com motdepassetest\n");
                ladmin_log
                    ("Nombre incorrect de param�tres pour cr�er un compte (commande 'create')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 136;
        }
    }
    if (verify_accountname (name) == 0)
    {
        return 102;
    }

/*	for(i = 0; name[i]; i++) {
		if (strchr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-_", name[i]) == NULL) {
			if (defaultlanguage == 'F') {
				printf("Caract�re interdit (%c) trouv� dans le nom du compte (%d%s caract�re).\n", name[i], i+1, makeordinal(i+1));
				ladmin_log("Caract�re interdit (%c) trouv� dans le nom du compte (%d%s caract�re)." RETCODE, name[i], i+1, makeordinal(i+1));
			} else {
				printf("Illegal character (%c) found in the account name (%d%s character).\n", name[i], i+1, makeordinal(i+1));
				ladmin_log("Illegal character (%c) found in the account name (%d%s character)." RETCODE, name[i], i+1, makeordinal(i+1));
			}
			return 101;
		}
	}*/

    sex[0] = toupper (sex[0]);
    if (strchr ("MF", sex[0]) == NULL)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Sexe incorrect [%s]. Entrez M ou F svp.\n", sex);
            ladmin_log ("Sexe incorrect [%s]. Entrez M ou F svp." RETCODE,
                        sex);
        }
        else
        {
            printf ("Illegal gender [%s]. Please input M or F.\n", sex);
            ladmin_log ("Illegal gender [%s]. Please input M or F." RETCODE,
                        sex);
        }
        return 103;
    }

    if (strlen (email) < 3)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Email trop courte [%s]. Entrez une e-mail valide svp.\n",
                    email);
            ladmin_log
                ("Email trop courte [%s]. Entrez une e-mail valide svp."
                 RETCODE, email);
        }
        else
        {
            printf ("Email is too short [%s]. Please input a valid e-mail.\n",
                    email);
            ladmin_log
                ("Email is too short [%s]. Please input a valid e-mail."
                 RETCODE, email);
        }
        return 109;
    }
    if (strlen (email) > 39)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Email trop longue [%s]. Entrez une e-mail de 39 caract�res maximum svp.\n",
                 email);
            ladmin_log
                ("Email trop longue [%s]. Entrez une e-mail de 39 caract�res maximum svp."
                 RETCODE, email);
        }
        else
        {
            printf
                ("Email is too long [%s]. Please input an e-mail with 39 bytes at the most.\n",
                 email);
            ladmin_log
                ("Email is too long [%s]. Please input an e-mail with 39 bytes at the most."
                 RETCODE, email);
        }
        return 109;
    }
    if (e_mail_check (email) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Email incorrecte [%s]. Entrez une e-mail valide svp.\n",
                    email);
            ladmin_log ("Email incorrecte [%s]. Entrez une e-mail valide svp."
                        RETCODE, email);
        }
        else
        {
            printf ("Invalid email [%s]. Please input a valid e-mail.\n",
                    email);
            ladmin_log ("Invalid email [%s]. Please input a valid e-mail."
                        RETCODE, email);
        }
        return 109;
    }

    if (strlen (password) == 0)
    {
        if (typepasswd (password) == 0)
            return 108;
    }
    if (verify_password (password) == 0)
        return 104;

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour cr�er un compte."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to create an account." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7930;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    memcpy (WFIFOP (login_fd, 26), password, 24);
    WFIFOB (login_fd, 50) = sex[0];
    memcpy (WFIFOP (login_fd, 51), email, 40);
    WFIFOSET (login_fd, 91);
    bytes_to_read = 1;

    return 0;
}

//---------------------------------------------------------------------------------
// Sub-function: Add/substract time to the final date of a banishment of an account
//---------------------------------------------------------------------------------
int banaddaccount (char *param)
{
    char name[1023], modif[1023];
    int  year, month, day, hour, minute, second;
    char *p_modif;
    int  value, i;

    memset (name, '\0', sizeof (name));
    memset (modif, '\0', sizeof (modif));
    year = month = day = hour = minute = second = 0;

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, modif) < 2 &&
        sscanf (param, "'%[^']' %[^\r\n]", name, modif) < 2 &&
        sscanf (param, "%s %[^\r\n]", name, modif) < 2)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et un modificateur svp.\n");
            printf ("  <exemple> banadd nomtest +1m-2mn1s-6y\n");
            printf
                ("            Cette exemple ajoute 1 mois et 1 seconde, et soustrait 2 minutes\n");
            printf ("            et 6 ans dans le m�me temps.\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour modifier la fin de ban d'un compte (commande 'banadd')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }
    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    // lowercase for modif
    for (i = 0; modif[i]; i++)
        modif[i] = tolower (modif[i]);
    p_modif = modif;
    while (strlen (p_modif) > 0)
    {
        value = atoi (p_modif);
        if (value == 0)
        {
            p_modif++;
        }
        else
        {
            if (p_modif[0] == '-' || p_modif[0] == '+')
                p_modif++;
            while (strlen (p_modif) > 0 && p_modif[0] >= '0'
                   && p_modif[0] <= '9')
            {
                p_modif++;
            }
            if (p_modif[0] == 's')
            {
                second = value;
                p_modif++;
            }
            else if (p_modif[0] == 'm' && p_modif[1] == 'n')
            {
                minute = value;
                p_modif += 2;
            }
            else if (p_modif[0] == 'h')
            {
                hour = value;
                p_modif++;
            }
            else if (p_modif[0] == 'd' || p_modif[0] == 'j')
            {
                day = value;
                p_modif += 2;
            }
            else if (p_modif[0] == 'm')
            {
                month = value;
                p_modif++;
            }
            else if (p_modif[0] == 'y' || p_modif[0] == 'a')
            {
                year = value;
                p_modif++;
            }
            else
            {
                p_modif++;
            }
        }
    }

    if (defaultlanguage == 'F')
    {
        printf (" ann�e:   %d\n", year);
        printf (" mois:    %d\n", month);
        printf (" jour:    %d\n", day);
        printf (" heure:   %d\n", hour);
        printf (" minute:  %d\n", minute);
        printf (" seconde: %d\n", second);
    }
    else
    {
        printf (" year:   %d\n", year);
        printf (" month:  %d\n", month);
        printf (" day:    %d\n", day);
        printf (" hour:   %d\n", hour);
        printf (" minute: %d\n", minute);
        printf (" second: %d\n", second);
    }

    if (year == 0 && month == 0 && day == 0 && hour == 0 && minute == 0
        && second == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Vous devez entrer un ajustement avec cette commande, svp:\n");
            printf ("  Valeur d'ajustement (-1, 1, +1, etc...)\n");
            printf ("  Element 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 ("  <exemple> banadd nomtest +1m-2mn1s-6y\n");
            printf
                ("            Cette exemple ajoute 1 mois et 1 seconde, et soustrait 2 minutes\n");
            printf ("            et 6 ans dans le m�me temps.\n");
            ladmin_log
                ("Aucun ajustement n'est pas un ajustement (commande 'banadd')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 137;
    }
    if (year > 127 || year < -127)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement d'ann�es correct (de -127 � 127), svp.\n");
            ladmin_log
                ("Ajustement de l'ann�e hors norme (commande 'banadd')."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the years (from -127 to 127).\n");
            ladmin_log
                ("Abnormal adjustement for the year ('banadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (month > 255 || month < -255)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de mois correct (de -255 � 255), svp.\n");
            ladmin_log ("Ajustement du mois hors norme (commande 'banadd')."
                        RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the months (from -255 to 255).\n");
            ladmin_log
                ("Abnormal adjustement for the month ('banadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (day > 32767 || day < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de jours correct (de -32767 � 32767), svp.\n");
            ladmin_log ("Ajustement des jours hors norme (commande 'banadd')."
                        RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the days (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the days ('banadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (hour > 32767 || hour < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement d'heures correct (de -32767 � 32767), svp.\n");
            ladmin_log
                ("Ajustement des heures hors norme (commande 'banadd')."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the hours (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the hours ('banadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (minute > 32767 || minute < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de minutes correct (de -32767 � 32767), svp.\n");
            ladmin_log
                ("Ajustement des minutes hors norme (commande 'banadd')."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the minutes (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the minutes ('banadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (second > 32767 || second < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de secondes correct (de -32767 � 32767), svp.\n");
            ladmin_log
                ("Ajustement des secondes hors norme (commande 'banadd')."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the seconds (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the seconds ('banadd' command)."
                 RETCODE);
        }
        return 137;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour modifier la date d'un bannissement."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to modify a ban date/time."
                    RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x794c;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOW (login_fd, 26) = (short) year;
    WFIFOW (login_fd, 28) = (short) month;
    WFIFOW (login_fd, 30) = (short) day;
    WFIFOW (login_fd, 32) = (short) hour;
    WFIFOW (login_fd, 34) = (short) minute;
    WFIFOW (login_fd, 36) = (short) second;
    WFIFOSET (login_fd, 38);
    bytes_to_read = 1;

    return 0;
}

//-----------------------------------------------------------------------
// Sub-function of sub-function banaccount, unbanaccount or bansetaccount
// Set the final date of a banishment of an account
//-----------------------------------------------------------------------
int bansetaccountsub (char *name, char *date, char *time)
{
    int  year, month, day, hour, minute, second;
    time_t ban_until_time;      // # of seconds 1/1/1970 (timestamp): ban time limit of the account (0 = no ban)
    struct tm *tmtime;

    year = month = day = hour = minute = second = 0;
    ban_until_time = 0;
    tmtime = localtime (&ban_until_time);   // initialize

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (atoi (date) != 0 &&
        ((sscanf (date, "%d/%d/%d", &year, &month, &day) < 3 &&
          sscanf (date, "%d-%d-%d", &year, &month, &day) < 3 &&
          sscanf (date, "%d.%d.%d", &year, &month, &day) < 3) ||
         sscanf (time, "%d:%d:%d", &hour, &minute, &second) < 3))
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez une date et une heure svp (format: aaaa/mm/jj hh:mm:ss).\n");
            printf
                ("Vous pouvez aussi mettre 0 � la place si vous utilisez la commande 'banset'.\n");
            ladmin_log
                ("Format incorrect pour la date/heure (commande'banset' ou 'ban')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 102;
    }

    if (atoi (date) == 0)
    {
        ban_until_time = 0;
    }
    else
    {
        if (year < 70)
        {
            year = year + 100;
        }
        if (year >= 1900)
        {
            year = year - 1900;
        }
        if (month < 1 || month > 12)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Entrez un mois correct svp (entre 1 et 12).\n");
                ladmin_log
                    ("Mois incorrect pour la date (command 'banset' ou 'ban')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 102;
        }
        month = month - 1;
        if (day < 1 || day > 31)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Entrez un jour correct svp (entre 1 et 31).\n");
                ladmin_log
                    ("Jour incorrect pour la date (command 'banset' ou 'ban')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 102;
        }
        if (((month == 3 || month == 5 || month == 8 || month == 10)
             && day > 30) || (month == 1 && day > 29))
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez un jour correct en fonction du mois (%d) svp.\n",
                     month);
                ladmin_log
                    ("Jour incorrect pour ce mois correspondant (command 'banset' ou 'ban')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 102;
        }
        if (hour < 0 || hour > 23)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Entrez une heure correcte svp (entre 0 et 23).\n");
                ladmin_log
                    ("Heure incorrecte pour l'heure (command 'banset' ou 'ban')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 102;
        }
        if (minute < 0 || minute > 59)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez des minutes correctes svp (entre 0 et 59).\n");
                ladmin_log
                    ("Minute incorrecte pour l'heure (command 'banset' ou 'ban')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 102;
        }
        if (second < 0 || second > 59)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez des secondes correctes svp (entre 0 et 59).\n");
                ladmin_log
                    ("Seconde incorrecte pour l'heure (command 'banset' ou 'ban')."
                     RETCODE);
            }
            else
            {
                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)."
                     RETCODE);
            }
            return 102;
        }
        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 = timegm (tmtime);
        if (ban_until_time == -1)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Date incorrecte.\n");
                printf
                    ("Entrez une date et une heure svp (format: aaaa/mm/jj hh:mm:ss).\n");
                printf
                    ("Vous pouvez aussi mettre 0 � la place si vous utilisez la commande 'banset'.\n");
                ladmin_log ("Date incorrecte. (command 'banset' ou 'ban')."
                            RETCODE);
            }
            else
            {
                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)."
                            RETCODE);
            }
            return 102;
        }
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour fixer un ban."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to set a ban." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x794a;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOL (login_fd, 26) = (int) ban_until_time;
    WFIFOSET (login_fd, 30);
    bytes_to_read = 1;

    return 0;
}

//---------------------------------------------------------------------
// Sub-function: Set the final date of a banishment of an account (ban)
//---------------------------------------------------------------------
int banaccount (char *param)
{
    char name[1023], date[1023], time[1023];

    memset (name, '\0', sizeof (name));
    memset (date, '\0', sizeof (date));
    memset (time, '\0', sizeof (time));

    if (sscanf (param, "%s %s \"%[^\"]\"", date, time, name) < 3 &&
        sscanf (param, "%s %s '%[^']'", date, time, name) < 3 &&
        sscanf (param, "%s %s %[^\r\n]", date, time, name) < 3)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte, une date et une heure svp.\n");
            printf
                ("<exemple>: banset <nom_du_compte> aaaa/mm/jj [hh:mm:ss]\n");
            printf ("           banset <nom_du_compte> 0    (0 = d�-bani)\n");
            printf
                ("           ban/banish aaaa/mm/jj hh:mm:ss <nom du compte>\n");
            printf ("           unban/unbanish <nom du compte>\n");
            printf ("           Heure par d�faut [hh:mm:ss]: 23:59:59.\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour fixer un ban (commande 'banset' ou 'ban')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    return bansetaccountsub (name, date, time);
}

//------------------------------------------------------------------------
// Sub-function: Set the final date of a banishment of an account (banset)
//------------------------------------------------------------------------
int bansetaccount (char *param)
{
    char name[1023], date[1023], time[1023];

    memset (name, '\0', sizeof (name));
    memset (date, '\0', sizeof (date));
    memset (time, '\0', sizeof (time));

    if (sscanf (param, "\"%[^\"]\" %s %[^\r\n]", name, date, time) < 2 &&   // if date = 0, time can be void
        sscanf (param, "'%[^']' %s %[^\r\n]", name, date, time) < 2 &&  // if date = 0, time can be void
        sscanf (param, "%s %s %[^\r\n]", name, date, time) < 2)
    {                           // if date = 0, time can be void
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte, une date et une heure svp.\n");
            printf
                ("<exemple>: banset <nom_du_compte> aaaa/mm/jj [hh:mm:ss]\n");
            printf ("           banset <nom_du_compte> 0    (0 = d�-bani)\n");
            printf
                ("           ban/banish aaaa/mm/jj hh:mm:ss <nom du compte>\n");
            printf ("           unban/unbanish <nom du compte>\n");
            printf ("           Heure par d�faut [hh:mm:ss]: 23:59:59.\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour fixer un ban (commande 'banset' ou 'ban')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (time[0] == '\0')
        strcpy (time, "23:59:59");

    return bansetaccountsub (name, date, time);
}

//-------------------------------------------------
// Sub-function: unbanishment of an account (unban)
//-------------------------------------------------
int unbanaccount (char *param)
{
    char name[1023];

    memset (name, '\0', sizeof (name));

    if (strlen (param) == 0 ||
        (sscanf (param, "\"%[^\"]\"", name) < 1 &&
         sscanf (param, "'%[^']'", name) < 1 &&
         sscanf (param, "%[^\r\n]", name) < 1) || strlen (name) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf
                ("<exemple>: banset <nom_du_compte> aaaa/mm/jj [hh:mm:ss]\n");
            printf ("           banset <nom_du_compte> 0    (0 = d�-bani)\n");
            printf
                ("           ban/banish aaaa/mm/jj hh:mm:ss <nom du compte>\n");
            printf ("           unban/unbanish <nom du compte>\n");
            printf ("           Heure par d�faut [hh:mm:ss]: 23:59:59.\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour fixer un ban (commande 'unban')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    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)
//---------------------------------------------------------
int checkaccount (char *param)
{
    char name[1023], password[1023];

    memset (name, '\0', sizeof (name));
    memset (password, '\0', sizeof (password));

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, password) < 1 &&    // password can be void
        sscanf (param, "'%[^']' %[^\r\n]", name, password) < 1 &&   // password can be void
        sscanf (param, "%s %[^\r\n]", name, password) < 1)
    {                           // password can be void
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemple> check testname motdepasse\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour tester le mot d'un passe d'un compte (commande 'check')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (strlen (password) == 0)
    {
        if (typepasswd (password) == 0)
            return 134;
    }
    if (verify_password (password) == 0)
        return 131;

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour test un mot de passe."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to check a password." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x793a;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    memcpy (WFIFOP (login_fd, 26), password, 24);
    WFIFOSET (login_fd, 50);
    bytes_to_read = 1;

    return 0;
}

//------------------------------------------------
// Sub-function: Asking for deletion of an account
//------------------------------------------------
int delaccount (char *param)
{
    char name[1023];
    char letter;
    char confirm[1023];
    int  i;

    memset (name, '\0', sizeof (name));

    if (strlen (param) == 0 ||
        (sscanf (param, "\"%[^\"]\"", name) < 1 &&
         sscanf (param, "'%[^']'", name) < 1 &&
         sscanf (param, "%[^\r\n]", name) < 1) || strlen (name) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemple> del nomtestasupprimer\n");
            ladmin_log
                ("Aucun nom donn� pour supprimer un compte (commande 'delete')."
                 RETCODE);
        }
        else
        {
            printf ("Please input an account name.\n");
            printf ("<example> del testnametodelete\n");
            ladmin_log
                ("No name given to delete an account ('delete' command)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    memset (confirm, '\0', sizeof (confirm));
    while ((confirm[0] != 'o' || defaultlanguage != 'F') && confirm[0] != 'n'
           && (confirm[0] != 'y' || defaultlanguage == 'F'))
    {
        if (defaultlanguage == 'F')
            printf
                ("\033[1;36m ** Etes-vous vraiment s�r de vouloir SUPPRIMER le compte [$userid]? (o/n) > \033[0m");
        else
            printf
                ("\033[1;36m ** Are you really sure to DELETE account [$userid]? (y/n) > \033[0m");
        fflush (stdout);
        memset (confirm, '\0', sizeof (confirm));
        i = 0;
        while ((letter = getchar ()) != '\n')
            confirm[i++] = letter;
    }

    if (confirm[0] == 'n')
    {
        if (defaultlanguage == 'F')
        {
            printf ("Suppression annul�e.\n");
            ladmin_log
                ("Suppression annul�e par l'utilisateur (commande 'delete')."
                 RETCODE);
        }
        else
        {
            printf ("Deletion canceled.\n");
            ladmin_log ("Deletion canceled by user ('delete' command)."
                        RETCODE);
        }
        return 121;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour d�truire un compte."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to delete an acount." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7932;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOSET (login_fd, 26);
    bytes_to_read = 1;

    return 0;
}

//----------------------------------------------------------
// Sub-function: Asking to modification of an account e-mail
//----------------------------------------------------------
int changeemail (char *param)
{
    char name[1023], email[1023];

    memset (name, '\0', sizeof (name));
    memset (email, '\0', sizeof (email));

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, email) < 2 &&
        sscanf (param, "'%[^']' %[^\r\n]", name, email) < 2 &&
        sscanf (param, "%s %[^\r\n]", name, email) < 2)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et une email svp.\n");
            printf ("<exemple> email testname nouveauemail\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer l'email d'un compte (commande 'email')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (strlen (email) < 3)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Email trop courte [%s]. Entrez une e-mail valide svp.\n",
                    email);
            ladmin_log
                ("Email trop courte [%s]. Entrez une e-mail valide svp."
                 RETCODE, email);
        }
        else
        {
            printf ("Email is too short [%s]. Please input a valid e-mail.\n",
                    email);
            ladmin_log
                ("Email is too short [%s]. Please input a valid e-mail."
                 RETCODE, email);
        }
        return 109;
    }
    if (strlen (email) > 39)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Email trop longue [%s]. Entrez une e-mail de 39 caract�res maximum svp.\n",
                 email);
            ladmin_log
                ("Email trop longue [%s]. Entrez une e-mail de 39 caract�res maximum svp."
                 RETCODE, email);
        }
        else
        {
            printf
                ("Email is too long [%s]. Please input an e-mail with 39 bytes at the most.\n",
                 email);
            ladmin_log
                ("Email is too long [%s]. Please input an e-mail with 39 bytes at the most."
                 RETCODE, email);
        }
        return 109;
    }
    if (e_mail_check (email) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Email incorrecte [%s]. Entrez une e-mail valide svp.\n",
                    email);
            ladmin_log ("Email incorrecte [%s]. Entrez une e-mail valide svp."
                        RETCODE, email);
        }
        else
        {
            printf ("Invalid email [%s]. Please input a valid e-mail.\n",
                    email);
            ladmin_log ("Invalid email [%s]. Please input a valid e-mail."
                        RETCODE, email);
        }
        return 109;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour changer une email."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to change an email." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7940;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    memcpy (WFIFOP (login_fd, 26), email, 40);
    WFIFOSET (login_fd, 66);
    bytes_to_read = 1;

    return 0;
}

//-----------------------------------------------------
// Sub-function: Asking of the number of online players
//-----------------------------------------------------
int getlogincount ()
{
    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour obtenir le nombre de joueurs en jeu."
             RETCODE);
    }
    else
    {
        ladmin_log
            ("Request to login-server to obtain the # of online players."
             RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7938;
    WFIFOSET (login_fd, 2);
    bytes_to_read = 1;

    return 0;
}

//----------------------------------------------------------
// Sub-function: Asking to modify the GM level of an account
//----------------------------------------------------------
int changegmlevel (char *param)
{
    char name[1023];
    int  GM_level;

    memset (name, '\0', sizeof (name));
    GM_level = 0;

    if (sscanf (param, "\"%[^\"]\" %d", name, &GM_level) < 1 &&
        sscanf (param, "'%[^']' %d", name, &GM_level) < 1 &&
        sscanf (param, "%s %d", name, &GM_level) < 1)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et un niveau de GM svp.\n");
            printf ("<exemple> gm nomtest 80\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le Niveau de GM d'un compte (commande 'gm')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (GM_level < 0 || GM_level > 99)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Niveau de GM incorrect [%d]. Entrez une valeur de 0 � 99 svp.\n",
                 GM_level);
            ladmin_log
                ("Niveau de GM incorrect [%d]. La valeur peut �tre de 0 � 99."
                 RETCODE, GM_level);
        }
        else
        {
            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."
                 RETCODE, GM_level);
        }
        return 103;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour changer un niveau de GM."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to change a GM level." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x793e;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOB (login_fd, 26) = GM_level;
    WFIFOSET (login_fd, 27);
    bytes_to_read = 1;

    return 0;
}

//---------------------------------------------
// Sub-function: Asking to obtain an account id
//---------------------------------------------
int idaccount (char *param)
{
    char name[1023];

    memset (name, '\0', sizeof (name));

    if (strlen (param) == 0 ||
        (sscanf (param, "\"%[^\"]\"", name) < 1 &&
         sscanf (param, "'%[^']'", name) < 1 &&
         sscanf (param, "%[^\r\n]", name) < 1) || strlen (name) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemple> id nomtest\n");
            ladmin_log
                ("Aucun nom donn� pour rechecher l'id d'un compte (commande 'id')."
                 RETCODE);
        }
        else
        {
            printf ("Please input an account name.\n");
            printf ("<example> id testname\n");
            ladmin_log
                ("No name given to search an account id ('id' command)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour conna�tre l'id d'un compte."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to know an account id." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7944;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOSET (login_fd, 26);
    bytes_to_read = 1;

    return 0;
}

//----------------------------------------------------------------------------
// Sub-function: Asking to displaying information about an account (by its id)
//----------------------------------------------------------------------------
int infoaccount (int account_id)
{
    if (account_id < 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un id ayant une valeur positive svp.\n");
            ladmin_log
                ("Une valeur n�gative a �t� donn� pour trouver le compte."
                 RETCODE);
        }
        else
        {
            printf ("Please input a positive value for the id.\n");
            ladmin_log ("Negative value was given to found the account."
                        RETCODE);
        }
        return 136;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour obtenir le information d'un compte (par l'id)."
             RETCODE);
    }
    else
    {
        ladmin_log
            ("Request to login-server to obtain information about an account (by its id)."
             RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7954;
    WFIFOL (login_fd, 2) = account_id;
    WFIFOSET (login_fd, 6);
    bytes_to_read = 1;

    return 0;
}

//---------------------------------------
// Sub-function: Send a broadcast message
//---------------------------------------
int sendbroadcast (short type, char *message)
{
    if (strlen (message) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un message svp.\n");
            if (type == 0)
            {
                printf ("<exemple> kami un message\n");
            }
            else
            {
                printf ("<exemple> kamib un message\n");
            }
            ladmin_log ("Le message est vide (commande 'kami(b)')." RETCODE);
        }
        else
        {
            printf ("Please input a message.\n");
            if (type == 0)
            {
                printf ("<example> kami a message\n");
            }
            else
            {
                printf ("<example> kamib a message\n");
            }
            ladmin_log ("The message is void ('kami(b)' command)." RETCODE);
        }
        return 136;
    }

    WFIFOW (login_fd, 0) = 0x794e;
    WFIFOW (login_fd, 2) = type;
    WFIFOL (login_fd, 4) = strlen (message) + 1;
    memcpy (WFIFOP (login_fd, 8), message, strlen (message) + 1);
    WFIFOSET (login_fd, 8 + strlen (message) + 1);
    bytes_to_read = 1;

    return 0;
}

//--------------------------------------------
// Sub-function: Change language of displaying
//--------------------------------------------
int changelanguage (char *language)
{
    if (strlen (language) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez une langue svp.\n");
            printf ("<exemple> language english\n");
            printf ("          language fran�ais\n");
            ladmin_log ("La langue est vide (commande 'language')." RETCODE);
        }
        else
        {
            printf ("Please input a language.\n");
            printf ("<example> language english\n");
            printf ("          language fran�ais\n");
            ladmin_log ("The language is void ('language' command)." RETCODE);
        }
        return 136;
    }

    language[0] = toupper (language[0]);
    if (language[0] == 'F' || language[0] == 'E')
    {
        defaultlanguage = language[0];
        if (defaultlanguage == 'F')
        {
            printf ("Changement de la langue d'affichage en Fran�ais.\n");
            ladmin_log ("Changement de la langue d'affichage en Fran�ais."
                        RETCODE);
        }
        else
        {
            printf ("Displaying language changed to English.\n");
            ladmin_log ("Displaying language changed to English." RETCODE);
        }
    }
    else
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Langue non param�tr�e (langues possibles: 'Fran�ais' ou 'English').\n");
            ladmin_log
                ("Langue non param�tr�e (Fran�ais ou English n�cessaire)."
                 RETCODE);
        }
        else
        {
            printf
                ("Undefined language (possible languages: Fran�ais or English).\n");
            ladmin_log ("Undefined language (must be Fran�ais or English)."
                        RETCODE);
        }
    }

    return 0;
}

//--------------------------------------------------------
// Sub-function: Asking to Displaying of the accounts list
//--------------------------------------------------------
int listaccount (char *param, int type)
{
//int list_first, list_last, list_type; // parameter to display a list of accounts
    int  i;

    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
        for (i = 0; param[i]; i++)
            param[i] = tolower (param[i]);
        // 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)
        switch (sscanf (param, "%d %d", &list_first, &list_last))
        {
            case 0:
                // get all accounts = use default
                break;
            case 1:
                list_last = 0;
                // use tests of the following value
            default:
                if (list_first < 0)
                    list_first = 0;
                if (list_last < list_first || list_last < 0)
                    list_last = 0;
                break;
        }
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour obtenir la liste des comptes de %d � %d."
             RETCODE, list_first, list_last);
    }
    else
    {
        ladmin_log
            ("Request to login-server to obtain the list of accounts from %d to %d."
             RETCODE, 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
    if (defaultlanguage == 'F')
    {
        Iprintf
            (" id_compte GM nom_utilisateur         sexe   count statut\n");
    }
    else
    {
        Iprintf
            ("account_id GM user_name               sex    count state\n");
    }
    Iprintf
        ("-------------------------------------------------------------------------------\n");
    list_count = 0;

    return 0;
}

//--------------------------------------------------------
// Sub-function: Frobnicate items
//--------------------------------------------------------
int itemfrob (char *param)
{
    int  source_id, dest_id;

    if (sscanf (param, "%d %d", &source_id, &dest_id) < 2)
    {
        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
//--------------------------------------------
int changememo (char *param)
{
    char name[1023], memo[1023];

    memset (name, '\0', sizeof (name));
    memset (memo, '\0', sizeof (memo));

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, memo) < 1 &&    // memo can be void
        sscanf (param, "'%[^']' %[^\r\n]", name, memo) < 1 &&   // memo can be void
        sscanf (param, "%s %[^\r\n]", name, memo) < 1)
    {                           // memo can be void
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et un m�mo svp.\n");
            printf ("<exemple> memo nomtest nouveau memo\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le m�mo d'un compte (commande 'email')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (strlen (memo) > 254)
    {
        if (defaultlanguage == 'F')
        {
            printf ("M�mo trop long (%d caract�res).\n", strlen (memo));
            printf ("Entrez un m�mo de 254 caract�res maximum svp.\n");
            ladmin_log
                ("M�mo trop long (%d caract�res). Entrez un m�mo de 254 caract�res maximum svp."
                 RETCODE, strlen (memo));
        }
        else
        {
            printf ("Memo is too long (%d characters).\n", strlen (memo));
            printf ("Please input a memo of 254 bytes at the maximum.\n");
            ladmin_log
                ("Email is too long (%d characters). Please input a memo of 254 bytes at the maximum."
                 RETCODE, strlen (memo));
        }
        return 102;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour changer un m�mo."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to change a memo." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7942;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOW (login_fd, 26) = strlen (memo);
    if (strlen (memo) > 0)
        memcpy (WFIFOP (login_fd, 28), memo, strlen (memo));
    WFIFOSET (login_fd, 28 + strlen (memo));
    bytes_to_read = 1;

    return 0;
}

//-----------------------------------------------
// Sub-function: Asking to obtain an account name
//-----------------------------------------------
int nameaccount (int id)
{
    if (id < 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un id ayant une valeur positive svp.\n");
            ladmin_log
                ("Id n�gatif donn� pour rechecher le nom d'un compte (commande 'name')."
                 RETCODE);
        }
        else
        {
            printf ("Please input a positive value for the id.\n");
            ladmin_log
                ("Negativ id given to search an account name ('name' command)."
                 RETCODE);
        }
        return 136;
    }

    if (defaultlanguage == 'F')
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour conna�tre le nom d'un compte."
             RETCODE);
    else
        ladmin_log ("Request to login-server to know an account name."
                    RETCODE);

    WFIFOW (login_fd, 0) = 0x7946;
    WFIFOL (login_fd, 2) = id;
    WFIFOSET (login_fd, 6);
    bytes_to_read = 1;

    return 0;
}

//------------------------------------------
// Sub-function: Asking to modify a password
// (Note: never send back a password with login-server!! security of passwords)
//------------------------------------------
int changepasswd (char *param)
{
    char name[1023], password[1023];

    memset (name, '\0', sizeof (name));
    memset (password, '\0', sizeof (password));

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, password) < 1 &&
        sscanf (param, "'%[^']' %[^\r\n]", name, password) < 1 &&
        sscanf (param, "%s %[^\r\n]", name, password) < 1)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemple> passwd nomtest nouveaumotdepasse\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le mot d'un passe d'un compte (commande 'password')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (strlen (password) == 0)
    {
        if (typepasswd (password) == 0)
            return 134;
    }
    if (verify_password (password) == 0)
        return 131;

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour changer un mot de passe."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to change a password." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7934;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    memcpy (WFIFOP (login_fd, 26), password, 24);
    WFIFOSET (login_fd, 50);
    bytes_to_read = 1;

    return 0;
}

//----------------------------------------------------------------------
// Sub-function: Request to login-server to reload GM configuration file
// this function have no answer
//----------------------------------------------------------------------
int reloadGM ()
{
    WFIFOW (login_fd, 0) = 0x7955;
    WFIFOSET (login_fd, 2);
    bytes_to_read = 0;

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Demande de recharger le fichier de configuration des GM envoy�e."
             RETCODE);
        printf
            ("Demande de recharger le fichier de configuration des GM envoy�e.\n");
        printf ("V�rifiez les comptes GM actuels (apr�s rechargement):\n");
    }
    else
    {
        ladmin_log ("Request to reload the GM configuration file sended."
                    RETCODE);
        printf ("Request to reload the GM configuration file sended.\n");
        printf ("Check the actual GM accounts (after reloading):\n");
    }
    listaccount (parameters, 1);    // 1: to list only GM

    return 180;
}

//-----------------------------------------------------
// Sub-function: Asking to modify the sex of an account
//-----------------------------------------------------
int changesex (char *param)
{
    char name[1023], sex[1023];

    memset (name, '\0', sizeof (name));
    memset (sex, '\0', sizeof (sex));

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, sex) < 2 &&
        sscanf (param, "'%[^']' %[^\r\n]", name, sex) < 2 &&
        sscanf (param, "%s %[^\r\n]", name, sex) < 2)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et un sexe svp.\n");
            printf ("<exemple> sex nomtest Male\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le sexe d'un compte (commande 'sex')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    sex[0] = toupper (sex[0]);
    if (strchr ("MF", sex[0]) == NULL)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Sexe incorrect [%s]. Entrez M ou F svp.\n", sex);
            ladmin_log ("Sexe incorrect [%s]. Entrez M ou F svp." RETCODE,
                        sex);
        }
        else
        {
            printf ("Illegal gender [%s]. Please input M or F.\n", sex);
            ladmin_log ("Illegal gender [%s]. Please input M or F." RETCODE,
                        sex);
        }
        return 103;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour changer un sexe."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to change a sex." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x793c;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOB (login_fd, 26) = sex[0];
    WFIFOSET (login_fd, 27);
    bytes_to_read = 1;

    return 0;
}

//-------------------------------------------------------------------------
// Sub-function of sub-function changestate, blockaccount or unblockaccount
// Asking to modify the state of an account
//-------------------------------------------------------------------------
int changestatesub (char *name, int state, char *error_message7)
{
    char error_message[1023];   // need to use, because we can modify error_message7

    memset (error_message, '\0', sizeof (error_message));
    strncpy (error_message, error_message7, sizeof (error_message) - 1);

    if ((state < 0 || state > 9) && state != 100)
    {                           // Valid values: 0: ok, or value of the 0x006a packet + 1
        if (defaultlanguage == 'F')
        {
            printf ("Entrez une des statuts suivantes svp:\n");
            printf
                ("  0 = Compte ok             6 = Your Game's EXE file is not the latest version\n");
        }
        else
        {
            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");
        if (defaultlanguage == 'F')
        {
            printf ("<exemples> state nomtest 5\n");
            printf ("           state nomtest 7 fin de votre ban\n");
            printf ("           block <nom compte>\n");
            printf ("           unblock <nom compte>\n");
            ladmin_log
                ("Valeur incorrecte pour le statut d'un compte (commande 'state', 'block' ou 'unblock')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 151;
    }

    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (state != 7)
    {
        strcpy (error_message, "-");
    }
    else
    {
        if (strlen (error_message) < 1)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Message d'erreur trop court. Entrez un message de 1-19 caract�res.\n");
                ladmin_log
                    ("Message d'erreur trop court. Entrez un message de 1-19 caract�res."
                     RETCODE);
            }
            else
            {
                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."
                     RETCODE);
            }
            return 102;
        }
        if (strlen (error_message) > 19)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Message d'erreur trop long. Entrez un message de 1-19 caract�res.\n");
                ladmin_log
                    ("Message d'erreur trop long. Entrez un message de 1-19 caract�res."
                     RETCODE);
            }
            else
            {
                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."
                     RETCODE);
            }
            return 102;
        }
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour changer un statut."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to change a state." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7936;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOL (login_fd, 26) = state;
    memcpy (WFIFOP (login_fd, 30), error_message, 20);
    WFIFOSET (login_fd, 50);
    bytes_to_read = 1;

    return 0;
}

//-------------------------------------------------------
// Sub-function: Asking to modify the state of an account
//-------------------------------------------------------
int changestate (char *param)
{
    char name[1023], error_message[1023];
    int  state;

    memset (name, '\0', sizeof (name));
    memset (error_message, '\0', sizeof (error_message));

    if (sscanf (param, "\"%[^\"]\" %d %[^\r\n]", name, &state, error_message)
        < 2
        && sscanf (param, "'%[^']' %d %[^\r\n]", name, &state,
                   error_message) < 2
        && sscanf (param, "%s %d %[^\r\n]", name, &state, error_message) < 2)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et un statut svp.\n");
            printf ("<exemples> state nomtest 5\n");
            printf ("           state nomtest 7 fin de votre ban\n");
            printf ("           block <nom compte>\n");
            printf ("           unblock <nom compte>\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le statut d'un compte (commande 'state')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    return changestatesub (name, state, error_message);
}

//-------------------------------------------
// Sub-function: Asking to unblock an account
//-------------------------------------------
int unblockaccount (char *param)
{
    char name[1023];

    memset (name, '\0', sizeof (name));

    if (strlen (param) == 0 ||
        (sscanf (param, "\"%[^\"]\"", name) < 1 &&
         sscanf (param, "'%[^']'", name) < 1 &&
         sscanf (param, "%[^\r\n]", name) < 1) || strlen (name) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemples> state nomtest 5\n");
            printf ("           state nomtest 7 fin de votre ban\n");
            printf ("           block <nom compte>\n");
            printf ("           unblock <nom compte>\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le statut d'un compte (commande 'unblock')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    return changestatesub (name, 0, "-");   // state 0, no error message
}

//-------------------------------------------
// Sub-function: Asking to unblock an account
//-------------------------------------------
int blockaccount (char *param)
{
    char name[1023];

    memset (name, '\0', sizeof (name));

    if (strlen (param) == 0 ||
        (sscanf (param, "\"%[^\"]\"", name) < 1 &&
         sscanf (param, "'%[^']'", name) < 1 &&
         sscanf (param, "%[^\r\n]", name) < 1) || strlen (name) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemples> state nomtest 5\n");
            printf ("           state nomtest 7 fin de votre ban\n");
            printf ("           block <nom compte>\n");
            printf ("           unblock <nom compte>\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour changer le statut d'un compte (commande 'block')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }

    return changestatesub (name, 5, "-");   // state 5, no error message
}

//---------------------------------------------------------------------
// Sub-function: Add/substract time to the validity limit of an account
//---------------------------------------------------------------------
int timeaddaccount (char *param)
{
    char name[1023], modif[1023];
    int  year, month, day, hour, minute, second;
    char *p_modif;
    int  value, i;

    memset (name, '\0', sizeof (name));
    memset (modif, '\0', sizeof (modif));
    year = month = day = hour = minute = second = 0;

    if (sscanf (param, "\"%[^\"]\" %[^\r\n]", name, modif) < 2 &&
        sscanf (param, "'%[^']' %[^\r\n]", name, modif) < 2 &&
        sscanf (param, "%s %[^\r\n]", name, modif) < 2)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte et un modificateur svp.\n");
            printf ("  <exemple> timeadd nomtest +1m-2mn1s-6y\n");
            printf
                ("            Cette exemple ajoute 1 mois et 1 seconde, et soustrait 2 minutes\n");
            printf ("            et 6 ans dans le m�me temps.\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour modifier une date limite d'utilisation (commande 'timeadd')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }
    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    // lowercase for modif
    for (i = 0; modif[i]; i++)
        modif[i] = tolower (modif[i]);
    p_modif = modif;
    while (strlen (p_modif) > 0)
    {
        value = atoi (p_modif);
        if (value == 0)
        {
            p_modif++;
        }
        else
        {
            if (p_modif[0] == '-' || p_modif[0] == '+')
                p_modif++;
            while (strlen (p_modif) > 0 && p_modif[0] >= '0'
                   && p_modif[0] <= '9')
            {
                p_modif++;
            }
            if (p_modif[0] == 's')
            {
                second = value;
                p_modif++;
            }
            else if (p_modif[0] == 'm' && p_modif[1] == 'n')
            {
                minute = value;
                p_modif += 2;
            }
            else if (p_modif[0] == 'h')
            {
                hour = value;
                p_modif++;
            }
            else if (p_modif[0] == 'd' || p_modif[0] == 'j')
            {
                day = value;
                p_modif += 2;
            }
            else if (p_modif[0] == 'm')
            {
                month = value;
                p_modif++;
            }
            else if (p_modif[0] == 'y' || p_modif[0] == 'a')
            {
                year = value;
                p_modif++;
            }
            else
            {
                p_modif++;
            }
        }
    }

    if (defaultlanguage == 'F')
    {
        printf (" ann�e:   %d\n", year);
        printf (" mois:    %d\n", month);
        printf (" jour:    %d\n", day);
        printf (" heure:   %d\n", hour);
        printf (" minute:  %d\n", minute);
        printf (" seconde: %d\n", second);
    }
    else
    {
        printf (" year:   %d\n", year);
        printf (" month:  %d\n", month);
        printf (" day:    %d\n", day);
        printf (" hour:   %d\n", hour);
        printf (" minute: %d\n", minute);
        printf (" second: %d\n", second);
    }

    if (year == 0 && month == 0 && day == 0 && hour == 0 && minute == 0
        && second == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Vous devez entrer un ajustement avec cette commande, svp:\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 ("  <exemple> timeadd nomtest +1m-2mn1s-6y\n");
            printf
                ("            Cette exemple ajoute 1 mois et 1 seconde, et soustrait 2 minutes\n");
            printf ("            et 6 ans dans le m�me temps.\n");
            ladmin_log
                ("Aucun ajustement n'est pas un ajustement (commande 'timeadd')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 137;
    }
    if (year > 127 || year < -127)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement d'ann�es correct (de -127 � 127), svp.\n");
            ladmin_log
                ("Ajustement de l'ann�e hors norme ('timeadd' command)."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the years (from -127 to 127).\n");
            ladmin_log
                ("Abnormal adjustement for the year ('timeadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (month > 255 || month < -255)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de mois correct (de -255 � 255), svp.\n");
            ladmin_log ("Ajustement du mois hors norme ('timeadd' command)."
                        RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the months (from -255 to 255).\n");
            ladmin_log
                ("Abnormal adjustement for the month ('timeadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (day > 32767 || day < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de jours correct (de -32767 � 32767), svp.\n");
            ladmin_log ("Ajustement des jours hors norme ('timeadd' command)."
                        RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the days (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the days ('timeadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (hour > 32767 || hour < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement d'heures correct (de -32767 � 32767), svp.\n");
            ladmin_log
                ("Ajustement des heures hors norme ('timeadd' command)."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the hours (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the hours ('timeadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (minute > 32767 || minute < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de minutes correct (de -32767 � 32767), svp.\n");
            ladmin_log
                ("Ajustement des minutes hors norme ('timeadd' command)."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the minutes (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the minutes ('timeadd' command)."
                 RETCODE);
        }
        return 137;
    }
    if (second > 32767 || second < -32767)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez un ajustement de secondes correct (de -32767 � 32767), svp.\n");
            ladmin_log
                ("Ajustement des secondes hors norme ('timeadd' command)."
                 RETCODE);
        }
        else
        {
            printf
                ("Please give a correct adjustment for the seconds (from -32767 to 32767).\n");
            ladmin_log
                ("Abnormal adjustement for the seconds ('timeadd' command)."
                 RETCODE);
        }
        return 137;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour modifier une date limite d'utilisation."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to modify a time limit."
                    RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7950;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOW (login_fd, 26) = (short) year;
    WFIFOW (login_fd, 28) = (short) month;
    WFIFOW (login_fd, 30) = (short) day;
    WFIFOW (login_fd, 32) = (short) hour;
    WFIFOW (login_fd, 34) = (short) minute;
    WFIFOW (login_fd, 36) = (short) second;
    WFIFOSET (login_fd, 38);
    bytes_to_read = 1;

    return 0;
}

//-------------------------------------------------
// Sub-function: Set a validity limit of an account
//-------------------------------------------------
int timesetaccount (char *param)
{
    char name[1023], date[1023], time[1023];
    int  year, month, day, hour, minute, second;
    time_t connect_until_time;  // # of seconds 1/1/1970 (timestamp): Validity limit of the account (0 = unlimited)
    struct tm *tmtime;

    memset (name, '\0', sizeof (name));
    memset (date, '\0', sizeof (date));
    memset (time, '\0', sizeof (time));
    year = month = day = hour = minute = second = 0;
    connect_until_time = 0;
    tmtime = localtime (&connect_until_time);   // initialize

    if (sscanf (param, "\"%[^\"]\" %s %[^\r\n]", name, date, time) < 2 &&   // if date = 0, time can be void
        sscanf (param, "'%[^']' %s %[^\r\n]", name, date, time) < 2 &&  // if date = 0, time can be void
        sscanf (param, "%s %s %[^\r\n]", name, date, time) < 2)
    {                           // if date = 0, time can be void
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte, une date et une heure svp.\n");
            printf
                ("<exemple>: timeset <nom_du_compte> aaaa/mm/jj [hh:mm:ss]\n");
            printf
                ("           timeset <nom_du_compte> 0    (0 = illimit�)\n");
            printf ("           Heure par d�faut [hh:mm:ss]: 23:59:59.\n");
            ladmin_log
                ("Nombre incorrect de param�tres pour fixer une date limite d'utilisation (commande 'timeset')."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 136;
    }
    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (time[0] == '\0')
        strcpy (time, "23:59:59");

    if (atoi (date) != 0 &&
        ((sscanf (date, "%d/%d/%d", &year, &month, &day) < 3 &&
          sscanf (date, "%d-%d-%d", &year, &month, &day) < 3 &&
          sscanf (date, "%d.%d.%d", &year, &month, &day) < 3 &&
          sscanf (date, "%d'%d'%d", &year, &month, &day) < 3) ||
         sscanf (time, "%d:%d:%d", &hour, &minute, &second) < 3))
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Entrez 0 ou une date et une heure svp (format: 0 ou aaaa/mm/jj hh:mm:ss).\n");
            ladmin_log
                ("Format incorrect pour la date/heure ('timeset' command)."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }
        return 102;
    }

    if (atoi (date) == 0)
    {
        connect_until_time = 0;
    }
    else
    {
        if (year < 70)
        {
            year = year + 100;
        }
        if (year >= 1900)
        {
            year = year - 1900;
        }
        if (month < 1 || month > 12)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Entrez un mois correct svp (entre 1 et 12).\n");
                ladmin_log ("Mois incorrect pour la date ('timeset' command)."
                            RETCODE);
            }
            else
            {
                printf
                    ("Please give a correct value for the month (from 1 to 12).\n");
                ladmin_log ("Invalid month for the date ('timeset' command)."
                            RETCODE);
            }
            return 102;
        }
        month = month - 1;
        if (day < 1 || day > 31)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Entrez un jour correct svp (entre 1 et 31).\n");
                ladmin_log ("Jour incorrect pour la date ('timeset' command)."
                            RETCODE);
            }
            else
            {
                printf
                    ("Please give a correct value for the day (from 1 to 31).\n");
                ladmin_log ("Invalid day for the date ('timeset' command)."
                            RETCODE);
            }
            return 102;
        }
        if (((month == 3 || month == 5 || month == 8 || month == 10)
             && day > 30) || (month == 1 && day > 29))
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez un jour correct en fonction du mois (%d) svp.\n",
                     month);
                ladmin_log
                    ("Jour incorrect pour ce mois correspondant ('timeset' command)."
                     RETCODE);
            }
            else
            {
                printf
                    ("Please give a correct value for a day of this month (%d).\n",
                     month);
                ladmin_log ("Invalid day for this month ('timeset' command)."
                            RETCODE);
            }
            return 102;
        }
        if (hour < 0 || hour > 23)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Entrez une heure correcte svp (entre 0 et 23).\n");
                ladmin_log
                    ("Heure incorrecte pour l'heure ('timeset' command)."
                     RETCODE);
            }
            else
            {
                printf
                    ("Please give a correct value for the hour (from 0 to 23).\n");
                ladmin_log ("Invalid hour for the time ('timeset' command)."
                            RETCODE);
            }
            return 102;
        }
        if (minute < 0 || minute > 59)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez des minutes correctes svp (entre 0 et 59).\n");
                ladmin_log
                    ("Minute incorrecte pour l'heure ('timeset' command)."
                     RETCODE);
            }
            else
            {
                printf
                    ("Please give a correct value for the minutes (from 0 to 59).\n");
                ladmin_log ("Invalid minute for the time ('timeset' command)."
                            RETCODE);
            }
            return 102;
        }
        if (second < 0 || second > 59)
        {
            if (defaultlanguage == 'F')
            {
                printf
                    ("Entrez des secondes correctes svp (entre 0 et 59).\n");
                ladmin_log
                    ("Seconde incorrecte pour l'heure ('timeset' command)."
                     RETCODE);
            }
            else
            {
                printf
                    ("Please give a correct value for the seconds (from 0 to 59).\n");
                ladmin_log ("Invalid second for the time ('timeset' command)."
                            RETCODE);
            }
            return 102;
        }
        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 = timegm (tmtime);
        if (connect_until_time == -1)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Date incorrecte.\n");
                printf
                    ("Ajoutez 0 ou une date et une heure svp (format: 0 ou aaaa/mm/jj hh:mm:ss).\n");
                ladmin_log ("Date incorrecte. ('timeset' command)." RETCODE);
            }
            else
            {
                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)." RETCODE);
            }
            return 102;
        }
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour fixer une date limite d'utilisation."
             RETCODE);
    }
    else
    {
        ladmin_log ("Request to login-server to set a time limit." RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7948;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOL (login_fd, 26) = (int) connect_until_time;
    WFIFOSET (login_fd, 30);
    bytes_to_read = 1;

    return 0;
}

//------------------------------------------------------------------------------
// Sub-function: Asking to displaying information about an account (by its name)
//------------------------------------------------------------------------------
int whoaccount (char *param)
{
    char name[1023];

    memset (name, '\0', sizeof (name));

    if (strlen (param) == 0 ||
        (sscanf (param, "\"%[^\"]\"", name) < 1 &&
         sscanf (param, "'%[^']'", name) < 1 &&
         sscanf (param, "%[^\r\n]", name) < 1) || strlen (name) == 0)
    {
        if (defaultlanguage == 'F')
        {
            printf ("Entrez un nom de compte svp.\n");
            printf ("<exemple> who nomtest\n");
            ladmin_log ("Aucun nom n'a �t� donn� pour trouver le compte."
                        RETCODE);
        }
        else
        {
            printf ("Please input an account name.\n");
            printf ("<example> who testname\n");
            ladmin_log ("No name was given to found the account." RETCODE);
        }
        return 136;
    }
    if (verify_accountname (name) == 0)
    {
        return 102;
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour obtenir le information d'un compte (par le nom)."
             RETCODE);
    }
    else
    {
        ladmin_log
            ("Request to login-server to obtain information about an account (by its name)."
             RETCODE);
    }

    WFIFOW (login_fd, 0) = 0x7952;
    memcpy (WFIFOP (login_fd, 2), name, 24);
    WFIFOSET (login_fd, 26);
    bytes_to_read = 1;

    return 0;
}

//--------------------------------------------------------
// Sub-function: Asking of the version of the login-server
//--------------------------------------------------------
int checkloginversion ()
{
    if (defaultlanguage == 'F')
        ladmin_log
            ("Envoi d'un requ�te au serveur de logins pour obtenir sa version."
             RETCODE);
    else
        ladmin_log ("Request to login-server to obtain its version." RETCODE);

    WFIFOW (login_fd, 0) = 0x7530;
    WFIFOSET (login_fd, 2);
    bytes_to_read = 1;

    return 0;
}

//---------------------------------------------
// Prompt function
// this function wait until user type a command
// and analyse the command.
//---------------------------------------------
int prompt ()
{
    int  i, j;
    char buf[1024];
    char *p;

    // 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");
        if (defaultlanguage == 'F')
        {
            Iprintf
                ("\033[32mPour afficher les commandes, tapez 'Entr�e'.\033[0m\n");
        }
        else
            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
        memset (buf, '\0', sizeof (buf));
        fflush (stdin);
        if (!fgets (buf, 1023, stdin))
            exit (0);
        buf[1023] = '\0';

        Iprintf ("\033[0m");
        fflush (stdout);

        if (!eathena_interactive_session && !strlen (buf))
            exit (0);

        // remove final \n
        if ((p = strrchr (buf, '\n')) != NULL)
            p[0] = '\0';
        // remove all control char
        for (i = 0; buf[i]; i++)
            if (buf[i] < 32)
            {
                // remove cursor control.
                if (buf[i] == 27 && buf[i + 1] == '[' && (buf[i + 2] == 'H' ||  // home position (cursor)
                                                          buf[i + 2] == 'J' ||  // clear screen
                                                          buf[i + 2] == 'A' ||  // up 1 line
                                                          buf[i + 2] == 'B' ||  // down 1 line
                                                          buf[i + 2] == 'C' ||  // right 1 position
                                                          buf[i + 2] == 'D' ||  // left 1 position
                                                          buf[i + 2] == 'G'))
                {               // center cursor (windows)
                    for (j = i; buf[j]; j++)
                        buf[j] = buf[j + 3];
                }
                else if (buf[i] == 27 && buf[i + 1] == '['
                         && buf[i + 2] == '2' && buf[i + 3] == 'J')
                {               // clear screen
                    for (j = i; buf[j]; j++)
                        buf[j] = buf[j + 4];
                }
                else if (buf[i] == 27 && buf[i + 1] == '[' && buf[i + 3] == '~' && (buf[i + 2] == '1' ||    // home (windows)
                                                                                    buf[i + 2] == '2' ||    // insert (windows)
                                                                                    buf[i + 2] == '3' ||    // del (windows)
                                                                                    buf[i + 2] == '4' ||    // end (windows)
                                                                                    buf[i + 2] == '5' ||    // pgup (windows)
                                                                                    buf
                                                                                    [i
                                                                                     +
                                                                                     2]
                                                                                    ==
                                                                                    '6'))
                {               // pgdown (windows)
                    for (j = i; buf[j]; j++)
                        buf[j] = buf[j + 4];
                }
                else
                {
                    // remove other control char.
                    for (j = i; buf[j]; j++)
                        buf[j] = buf[j + 1];
                }
                i--;
            }

        // extract command name and parameters
        memset (command, '\0', sizeof (command));
        memset (parameters, '\0', sizeof (parameters));
        sscanf (buf, "%1023s %[^\n]", command, parameters);
        command[1023] = '\0';
        parameters[1023] = '\0';

        // lowercase for command line
        for (i = 0; command[i]; i++)
            command[i] = tolower (command[i]);

        if (command[0] == '?' || strlen (command) == 0)
        {
            if (defaultlanguage == 'F')
            {
                strcpy (buf, "aide");
                strcpy (command, "aide");
            }
            else
            {
                strcpy (buf, "help");
                strcpy (command, "help");
            }
        }

        // Analyse of the command
        check_command (command);    // give complete name to the command

        if (strlen (parameters) == 0)
        {
            if (defaultlanguage == 'F')
            {
                ladmin_log ("Commande: '%s' (sans param�tre)" RETCODE,
                            command, parameters);
            }
            else
            {
                ladmin_log ("Command: '%s' (without parameters)" RETCODE,
                            command, parameters);
            }
        }
        else
        {
            if (defaultlanguage == 'F')
            {
                ladmin_log ("Commande: '%s', param�tres: '%s'" RETCODE,
                            command, parameters);
            }
            else
            {
                ladmin_log ("Command: '%s', parameters: '%s'" RETCODE,
                            command, parameters);
            }
        }

        // Analyse of the command
// help
        if (strcmp (command, "aide") == 0)
        {
            display_help (parameters, 1);   // 1: french
        }
        else if (strcmp (command, "help") == 0)
        {
            display_help (parameters, 0);   // 0: english
// general commands
        }
        else if (strcmp (command, "add") == 0)
        {
            addaccount (parameters, 0); // 0: no email
        }
        else if (strcmp (command, "ban") == 0)
        {
            banaccount (parameters);
        }
        else if (strcmp (command, "banadd") == 0)
        {
            banaddaccount (parameters);
        }
        else if (strcmp (command, "banset") == 0)
        {
            bansetaccount (parameters);
        }
        else if (strcmp (command, "block") == 0)
        {
            blockaccount (parameters);
        }
        else if (strcmp (command, "check") == 0)
        {
            checkaccount (parameters);
        }
        else if (strcmp (command, "create") == 0)
        {
            addaccount (parameters, 1); // 1: with email
        }
        else if (strcmp (command, "delete") == 0)
        {
            delaccount (parameters);
        }
        else if (strcmp (command, "email") == 0)
        {
            changeemail (parameters);
        }
        else if (strcmp (command, "getcount") == 0)
        {
            getlogincount ();
        }
        else if (strcmp (command, "gm") == 0)
        {
            changegmlevel (parameters);
        }
        else if (strcmp (command, "id") == 0)
        {
            idaccount (parameters);
        }
        else if (strcmp (command, "info") == 0)
        {
            infoaccount (atoi (parameters));
        }
        else if (strcmp (command, "kami") == 0)
        {
            sendbroadcast (0, parameters);  // flag for normal
        }
        else if (strcmp (command, "kamib") == 0)
        {
            sendbroadcast (0x10, parameters);   // flag for blue
        }
        else if (strcmp (command, "language") == 0)
        {
            changelanguage (parameters);
        }
        else if (strcmp (command, "itemfrob") == 0)
        {
            itemfrob (parameters);  // 0: to list all
        }
        else if (strcmp (command, "list") == 0)
        {
            listaccount (parameters, 0);    // 0: to list all
        }
        else if (strcmp (command, "listban") == 0)
        {
            listaccount (parameters, 3);    // 3: to list only accounts with state or bannished
        }
        else if (strcmp (command, "listgm") == 0)
        {
            listaccount (parameters, 1);    // 1: to list only GM
        }
        else if (strcmp (command, "listok") == 0)
        {
            listaccount (parameters, 4);    // 4: to list only accounts without state and not bannished
        }
        else if (strcmp (command, "memo") == 0)
        {
            changememo (parameters);
        }
        else if (strcmp (command, "name") == 0)
        {
            nameaccount (atoi (parameters));
        }
        else if (strcmp (command, "password") == 0)
        {
            changepasswd (parameters);
        }
        else if (strcmp (command, "reloadgm") == 0)
        {
            reloadGM ();
        }
        else if (strcmp (command, "search") == 0)
        {                       // no regex in C version
            listaccount (parameters, 2);    // 2: to list with pattern
        }
        else if (strcmp (command, "sex") == 0)
        {
            changesex (parameters);
        }
        else if (strcmp (command, "state") == 0)
        {
            changestate (parameters);
        }
        else if (strcmp (command, "timeadd") == 0)
        {
            timeaddaccount (parameters);
        }
        else if (strcmp (command, "timeset") == 0)
        {
            timesetaccount (parameters);
        }
        else if (strcmp (command, "unban") == 0)
        {
            unbanaccount (parameters);
        }
        else if (strcmp (command, "unblock") == 0)
        {
            unblockaccount (parameters);
        }
        else if (strcmp (command, "version") == 0)
        {
            checkloginversion ();
        }
        else if (strcmp (command, "who") == 0)
        {
            whoaccount (parameters);
// quit
        }
        else if (strcmp (command, "quit") == 0 ||
                 strcmp (command, "exit") == 0 ||
                 strcmp (command, "end") == 0)
        {
            if (defaultlanguage == 'F')
            {
                printf ("Au revoir.\n");
            }
            else
            {
                printf ("Bye.\n");
            }
            exit (0);
// unknown command
        }
        else
        {
            if (defaultlanguage == 'F')
            {
                printf ("Commande inconnue [%s].\n", buf);
                ladmin_log ("Commande inconnue [%s]." RETCODE, buf);
            }
            else
            {
                printf ("Unknown command [%s].\n", buf);
                ladmin_log ("Unknown command [%s]." RETCODE, buf);
            }
        }
    }

    return 0;
}

//-------------------------------------------------------------
// Function: Parse receiving informations from the login-server
//-------------------------------------------------------------
int parse_fromlogin (int fd)
{
    struct char_session_data *sd;

    if (session[fd]->eof)
    {
        if (defaultlanguage == 'F')
        {
            printf
                ("Impossible de se connecter au serveur de login [%s:%d] !\n",
                 loginserverip, loginserverport);
            ladmin_log
                ("Impossible de se connecter au serveur de login [%s:%d] !"
                 RETCODE, loginserverip, loginserverport);
        }
        else
        {
            printf
                ("Impossible to have a connection with the login-server [%s:%d] !\n",
                 loginserverip, loginserverport);
            ladmin_log
                ("Impossible to have a connection with the login-server [%s:%d] !"
                 RETCODE, loginserverip, loginserverport);
        }
        close (fd);
        delete_session (fd);
        exit (0);
    }

//  printf("parse_fromlogin : %d %d %d\n", fd, RFIFOREST(fd), RFIFOW(fd,0));
    sd = session[fd]->session_data;

    while (RFIFOREST (fd) >= 2)
    {
        switch (RFIFOW (fd, 0))
        {
            case 0x7919:       // answer of a connection request
                if (RFIFOREST (fd) < 3)
                    return 0;
                if (RFIFOB (fd, 2) != 0)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf ("Erreur de login:\n");
                        printf (" - mot de passe incorrect,\n");
                        printf
                            (" - syst�me d'administration non activ�, ou\n");
                        printf (" - IP non autoris�e.\n");
                        ladmin_log
                            ("Erreur de login: mot de passe incorrect, syst�me d'administration non activ�, ou IP non autoris�e."
                             RETCODE);
                    }
                    else
                    {
                        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."
                             RETCODE);
                    }
                    session[fd]->eof = 1;
                    //bytes_to_read = 1; // not stop at prompt
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf ("Connexion �tablie.\n");
                        ladmin_log ("Connexion �tablie." RETCODE);
                        printf
                            ("Lecture de la version du serveur de login...\n");
                        ladmin_log
                            ("Lecture de la version du serveur de login..."
                             RETCODE);
                    }
                    else
                    {
                        Iprintf ("Established connection.\n");
                        ladmin_log ("Established connection." RETCODE);
                        Iprintf
                            ("Reading of the version of the login-server...\n");
                        ladmin_log
                            ("Reading of the version of the login-server..."
                             RETCODE);
                    }
                    //bytes_to_read = 1; // unchanged
                    checkloginversion ();
                }
                RFIFOSKIP (fd, 3);
                break;

#ifdef PASSWORDENC
            case 0x01dc:       // answer of a coding key request
                if (RFIFOREST (fd) < 4 || RFIFOREST (fd) < RFIFOW (fd, 2))
                    return 0;
                {
                    char md5str[64] =
                        "", md5bin[32], md5key[RFIFOW (fd, 2) - 4 + 1];
                    memcpy (md5key, RFIFOP (fd, 4), RFIFOW (fd, 2) - 4);
                    md5key[sizeof (md5key) - 1] = '0';
                    if (passenc == 1)
                    {
                        strncpy (md5str, RFIFOP (fd, 4), RFIFOW (fd, 2) - 4);
                        strcat (md5str, loginserveradminpassword);
                    }
                    else if (passenc == 2)
                    {
                        strncpy (md5str, loginserveradminpassword,
                                 sizeof (loginserveradminpassword));
                        strcat (md5str, RFIFOP (fd, 4));
                    }
                    MD5_String2binary (md5str, md5bin);
                    WFIFOW (login_fd, 0) = 0x7918;  // Request for administation login (encrypted password)
                    WFIFOW (login_fd, 2) = passenc; // Encrypted type
                    memcpy (WFIFOP (login_fd, 4), md5bin, 16);
                    WFIFOSET (login_fd, 20);
                    if (defaultlanguage == 'F')
                    {
                        Iprintf ("R�ception de la clef MD5.\n");
                        ladmin_log ("R�ception de la clef MD5." RETCODE);
                        Iprintf ("Envoi du mot de passe crypt�...\n");
                        ladmin_log ("Envoi du mot de passe crypt�..."
                                    RETCODE);
                    }
                    else
                    {
                        Iprintf ("Receiving of the MD5 key.\n");
                        ladmin_log ("Receiving of the MD5 key." RETCODE);
                        Iprintf ("Sending of the encrypted password...\n");
                        ladmin_log ("Sending of the encrypted password..."
                                    RETCODE);
                    }
                }
                bytes_to_read = 1;
                RFIFOSKIP (fd, RFIFOW (fd, 2));
                break;
#endif

            case 0x7531:       // Displaying of the version of the login-server
                if (RFIFOREST (fd) < 10)
                    return 0;
                Iprintf ("  Login-Server [%s:%d]\n", loginserverip,
                         loginserverport);
                if (((int) RFIFOB (login_fd, 5)) == 0)
                {
                    Iprintf ("  eAthena version stable-%d.%d",
                             (int) RFIFOB (login_fd, 2),
                             (int) RFIFOB (login_fd, 3));
                }
                else
                {
                    Iprintf ("  eAthena version dev-%d.%d",
                             (int) RFIFOB (login_fd, 2),
                             (int) RFIFOB (login_fd, 3));
                }
                if (((int) RFIFOB (login_fd, 4)) == 0)
                    Iprintf (" revision %d", (int) RFIFOB (login_fd, 4));
                if (((int) RFIFOB (login_fd, 6)) == 0)
                {
                    Iprintf ("%d.\n", RFIFOW (login_fd, 8));
                }
                else
                    Iprintf ("-mod%d.\n", RFIFOW (login_fd, 8));
                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 0;
                if (RFIFOW (fd, 2) < 5)
                {
                    if (defaultlanguage == 'F')
                    {
                        ladmin_log
                            ("  R�ception d'une liste des comptes vide."
                             RETCODE);
                        if (list_count == 0)
                            printf ("Aucun compte trouv�.\n");
                        else if (list_count == 1)
                            printf ("1 compte trouv�.\n");
                        else
                            printf ("%d comptes trouv�s.\n", list_count);
                    }
                    else
                    {
                        ladmin_log ("  Receiving of a void accounts list."
                                    RETCODE);
                        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;
                    if (defaultlanguage == 'F')
                        ladmin_log ("  R�ception d'une liste des comptes."
                                    RETCODE);
                    else
                        ladmin_log ("  Receiving of a accounts list."
                                    RETCODE);
                    for (i = 4; i < RFIFOW (fd, 2); i += 38)
                    {
                        int  j;
                        char userid[24];
                        char lower_userid[24];
                        memcpy (userid, RFIFOP (fd, i + 5), sizeof (userid));
                        userid[sizeof (userid) - 1] = '\0';
                        memset (lower_userid, '\0', sizeof (lower_userid));
                        for (j = 0; userid[j]; j++)
                            lower_userid[j] = tolower (userid[j]);
                        list_first = RFIFOL (fd, i) + 1;
                        // here are checks...
                        if (list_type == 0 ||
                            (list_type == 1 && RFIFOB (fd, i + 4) > 0) ||
                            (list_type == 2
                             && strstr (lower_userid, parameters) != NULL)
                            || (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 ", (int) RFIFOB (fd, i + 4));
                            printf ("%-24s", userid);
                            if (defaultlanguage == 'F')
                            {
                                if (RFIFOB (fd, i + 29) == 0)
                                    printf ("%-5s ", "Femme");
                                else if (RFIFOB (fd, i + 29) == 1)
                                    printf ("%-5s ", "Male");
                                else
                                    printf ("%-5s ", "Servr");
                            }
                            else
                            {
                                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:
                                    if (defaultlanguage == 'F')
                                        printf ("%-27s\n", "Compte Ok");
                                    else
                                        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
                    if (defaultlanguage == 'F')
                        ladmin_log
                            ("Envoi d'un requ�te au serveur de logins pour obtenir la liste des comptes de %d � %d (compl�ment)."
                             RETCODE, list_first, list_last);
                    else
                        ladmin_log
                            ("Request to login-server to obtain the list of accounts from %d to %d (complement)."
                             RETCODE, 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 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec � la cr�ation du compte [%s]. Un compte identique existe d�j�.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec � la cr�ation du compte [%s]. Un compte identique existe d�j�."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] creation failed. Same account already exists.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] creation failed. Same account already exists."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf ("Compte [%s] cr�� avec succ�s [id: %d].\n",
                                RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log ("Compte [%s] cr�� avec succ�s [id: %d]."
                                    RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s] is successfully created [id: %d].\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s] is successfully created [id: %d]."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7933:       // Answer of login-server about an account deletion
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec de la suppression du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec de la suppression du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] deletion failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] deletion failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf ("Compte [%s][id: %d] SUPPRIME avec succ�s.\n",
                                RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Compte [%s][id: %d] SUPPRIME avec succ�s."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s][id: %d] is successfully DELETED.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s][id: %d] is successfully DELETED."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7935:       // answer of the change of an account password
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec de la modification du mot de passe du compte [%s].\n",
                             RFIFOP (fd, 6));
                        printf ("Le compte [%s] n'existe pas.\n",
                                RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec de la modification du mot de passe du compte. Le compte [%s] n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf ("Account [%s] password changing failed.\n",
                                RFIFOP (fd, 6));
                        printf ("Account [%s] doesn't exist.\n",
                                RFIFOP (fd, 6));
                        ladmin_log
                            ("Account password changing failed. The compte [%s] doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Modification du mot de passe du compte [%s][id: %d] r�ussie.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Modification du mot de passe du compte [%s][id: %d] r�ussie."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s][id: %d] password successfully changed.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s][id: %d] password successfully changed."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7937:       // answer of the change of an account state
                if (RFIFOREST (fd) < 34)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec du changement du statut du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec du changement du statut du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] state changing failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] state changing failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    char tmpstr[256];
                    if (defaultlanguage == 'F')
                    {
                        sprintf (tmpstr,
                                 "Statut du compte [%s] chang� avec succ�s en [",
                                 RFIFOP (fd, 6));
                    }
                    else
                    {
                        sprintf (tmpstr,
                                 "Account [%s] state successfully changed in [",
                                 RFIFOP (fd, 6));
                    }
                    switch (RFIFOL (fd, 30))
                    {
                        case 0:
                            if (defaultlanguage == 'F')
                                strcat (tmpstr, "0: Compte Ok");
                            else
                                strcat (tmpstr, "0: Account OK");
                            break;
                        case 1:
                            strcat (tmpstr, "1: Unregistered ID");
                            break;
                        case 2:
                            strcat (tmpstr, "2: Incorrect Password");
                            break;
                        case 3:
                            strcat (tmpstr, "3: This ID is expired");
                            break;
                        case 4:
                            strcat (tmpstr, "4: Rejected from Server");
                            break;
                        case 5:
                            strcat (tmpstr,
                                    "5: You have been blocked by the GM Team");
                            break;
                        case 6:
                            strcat (tmpstr,
                                    "6: [Your Game's EXE file is not the latest version");
                            break;
                        case 7:
                            strcat (tmpstr,
                                    "7: You are Prohibited to log in until...");
                            break;
                        case 8:
                            strcat (tmpstr,
                                    "8: Server is jammed due to over populated");
                            break;
                        case 9:
                            strcat (tmpstr, "9: No MSG");
                            break;
                        default:   // 100
                            strcat (tmpstr, "100: This ID is totally erased");
                            break;
                    }
                    strcat (tmpstr, "]");
                    printf ("%s\n", tmpstr);
                    ladmin_log ("%s%s", tmpstr, RETCODE);
                }
                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 0;
                {
                    // Get length of the received packet
                    int  i;
                    char name[20];
                    if (defaultlanguage == 'F')
                    {
                        ladmin_log
                            ("  R�ception du nombre de joueurs en ligne."
                             RETCODE);
                    }
                    else
                    {
                        ladmin_log
                            ("  Receiving of the number of online players."
                             RETCODE);
                    }
                    // Read information of the servers
                    if (RFIFOW (fd, 2) < 5)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("  Aucun serveur n'est connect� au login serveur.\n");
                        }
                        else
                        {
                            printf
                                ("  No server is connected to the login-server.\n");
                        }
                    }
                    else
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("  Nombre de joueurs en ligne (serveur: nb):\n");
                        }
                        else
                        {
                            printf
                                ("  Number of online players (server: number).\n");
                        }
                        // Displaying of result
                        for (i = 4; i < RFIFOW (fd, 2); i += 32)
                        {
                            memcpy (name, RFIFOP (fd, i + 6), sizeof (name));
                            name[sizeof (name) - 1] = '\0';
                            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 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Le compte [%s] n'existe pas ou le mot de passe est incorrect.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Le compte [%s] n'existe pas ou le mot de passe est incorrect."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("The account [%s] doesn't exist or the password is incorrect.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("The account [%s] doesn't exist or the password is incorrect."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Le mot de passe donn� correspond bien au compte [%s][id: %d].\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Le mot de passe donn� correspond bien au compte [%s][id: %d]."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("The proposed password is correct for the account [%s][id: %d].\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("The proposed password is correct for the account [%s][id: %d]."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x793d:       // answer of the change of an account sex
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec de la modification du sexe du compte [%s].\n",
                             RFIFOP (fd, 6));
                        printf
                            ("Le compte [%s] n'existe pas ou le sexe est d�j� celui demand�.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec de la modification du sexe du compte. Le compte [%s] n'existe pas ou le sexe est d�j� celui demand�."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf ("Account [%s] sex changing failed.\n",
                                RFIFOP (fd, 6));
                        printf
                            ("Account [%s] doesn't exist or the sex is already the good sex.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account sex changing failed. The compte [%s] doesn't exist or the sex is already the good sex."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Sexe du compte [%s][id: %d] chang� avec succ�s.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Sexe du compte [%s][id: %d] chang� avec succ�s."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s][id: %d] sex successfully changed.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s][id: %d] sex successfully changed."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x793f:       // answer of the change of an account GM level
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec de la modification du niveau de GM du compte [%s].\n",
                             RFIFOP (fd, 6));
                        printf
                            ("Le compte [%s] n'existe pas, le niveau de GM est d�j� celui demand�\n",
                             RFIFOP (fd, 6));
                        printf
                            ("ou il est impossible de modifier le fichier des comptes GM.\n");
                        ladmin_log
                            ("Echec de la modification du niveau de GM du compte. Le compte [%s] n'existe pas, le niveau de GM est d�j� celui demand� ou il est impossible de modifier le fichier des comptes GM."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf ("Account [%s] GM level changing failed.\n",
                                RFIFOP (fd, 6));
                        printf
                            ("Account [%s] doesn't exist, the GM level is already the good GM level\n",
                             RFIFOP (fd, 6));
                        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."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Niveau de GM du compte [%s][id: %d] chang� avec succ�s.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Niveau de GM du compte [%s][id: %d] chang� avec succ�s."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s][id: %d] GM level successfully changed.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s][id: %d] GM level successfully changed."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7941:       // answer of the change of an account email
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec de la modification de l'e-mail du compte [%s].\n",
                             RFIFOP (fd, 6));
                        printf ("Le compte [%s] n'existe pas.\n",
                                RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec de la modification de l'e-mail du compte. Le compte [%s] n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf ("Account [%s] e-mail changing failed.\n",
                                RFIFOP (fd, 6));
                        printf ("Account [%s] doesn't exist.\n",
                                RFIFOP (fd, 6));
                        ladmin_log
                            ("Account e-mail changing failed. The compte [%s] doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Modification de l'e-mail du compte [%s][id: %d] r�ussie.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Modification de l'e-mail du compte [%s][id: %d] r�ussie."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s][id: %d] e-mail successfully changed.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s][id: %d] e-mail successfully changed."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7943:       // answer of the change of an account memo
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec du changement du m�mo du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec du changement du m�mo du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] memo changing failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] memo changing failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("M�mo du compte [%s][id: %d] chang� avec succ�s.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("M�mo du compte [%s][id: %d] chang� avec succ�s."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Account [%s][id: %d] memo successfully changed.\n",
                             RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log
                            ("Account [%s][id: %d] memo successfully changed."
                             RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7945:       // answer of an account id search
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Impossible de trouver l'id du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Impossible de trouver l'id du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Unable to find the account [%s] id. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Unable to find the account [%s] id. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf ("Le compte [%s] a pour id: %d.\n",
                                RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log ("Le compte [%s] a pour id: %d." RETCODE,
                                    RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf ("The account [%s] have the id: %d.\n",
                                RFIFOP (fd, 6), RFIFOL (fd, 2));
                        ladmin_log ("The account [%s] have the id: %d."
                                    RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7947:       // answer of an account name search
                if (RFIFOREST (fd) < 30)
                    return 0;
                if (strcmp (RFIFOP (fd, 6), "") == 0)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Impossible de trouver le nom du compte [%d]. Le compte n'existe pas.\n",
                             RFIFOL (fd, 2));
                        ladmin_log
                            ("Impossible de trouver le nom du compte [%d]. Le compte n'existe pas."
                             RETCODE, RFIFOL (fd, 2));
                    }
                    else
                    {
                        printf
                            ("Unable to find the account [%d] name. Account doesn't exist.\n",
                             RFIFOL (fd, 2));
                        ladmin_log
                            ("Unable to find the account [%d] name. Account doesn't exist."
                             RETCODE, RFIFOL (fd, 2));
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf ("Le compte [id: %d] a pour nom: %s.\n",
                                RFIFOL (fd, 2), RFIFOP (fd, 6));
                        ladmin_log ("Le compte [id: %d] a pour nom: %s."
                                    RETCODE, RFIFOL (fd, 2), RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf ("The account [id: %d] have the name: %s.\n",
                                RFIFOL (fd, 2), RFIFOP (fd, 6));
                        ladmin_log ("The account [id: %d] have the name: %s."
                                    RETCODE, RFIFOL (fd, 2), RFIFOP (fd, 6));
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 30);
                break;

            case 0x7949:       // answer of an account validity limit set
                if (RFIFOREST (fd) < 34)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec du changement de la validit� du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec du changement de la validit� du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] validity limit changing failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] validity limit changing failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    time_t timestamp = RFIFOL (fd, 30);
                    if (timestamp == 0)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Limite de validit� du compte [%s][id: %d] chang�e avec succ�s en [illimit�].\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            ladmin_log
                                ("Limite de validit� du compte [%s][id: %d] chang�e avec succ�s en [illimit�]."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                        else
                        {
                            printf
                                ("Validity Limit of the account [%s][id: %d] successfully changed to [unlimited].\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            ladmin_log
                                ("Validity Limit of the account [%s][id: %d] successfully changed to [unlimited]."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                    }
                    else
                    {
                        char tmpstr[128];
                        strftime (tmpstr, 24, date_format,
                                  localtime (&timestamp));
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Limite de validit� du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Limite de validit� du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 tmpstr);
                        }
                        else
                        {
                            printf
                                ("Validity Limit of the account [%s][id: %d] successfully changed to be until %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Validity Limit of the account [%s][id: %d] successfully changed to be until %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 tmpstr);
                        }
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 34);
                break;

            case 0x794b:       // answer of an account ban set
                if (RFIFOREST (fd) < 34)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec du changement de la date finale de banissement du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec du changement de la date finale de banissement du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] final date of banishment changing failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] final date of banishment changing failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    time_t timestamp = RFIFOL (fd, 30);
                    if (timestamp == 0)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s en [d�-bannie].\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            ladmin_log
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s en [d�-bannie]."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                        else
                        {
                            printf
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished].\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            ladmin_log
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished]."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                    }
                    else
                    {
                        char tmpstr[128];
                        strftime (tmpstr, 24, date_format,
                                  localtime (&timestamp));
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 tmpstr);
                        }
                        else
                        {
                            printf
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s."
                                 RETCODE, RFIFOP (fd, 6), 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 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec du changement de la date finale de banissement du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec du changement de la date finale de banissement du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] final date of banishment changing failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] final date of banishment changing failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    time_t timestamp = RFIFOL (fd, 30);
                    if (timestamp == 0)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s en [d�-bannie].\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            ladmin_log
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s en [d�-bannie]."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                        else
                        {
                            printf
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished].\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            ladmin_log
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to [unbanished]."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                    }
                    else
                    {
                        char tmpstr[128];
                        strftime (tmpstr, 24, date_format,
                                  localtime (&timestamp));
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Date finale de banissement du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 tmpstr);
                        }
                        else
                        {
                            printf
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Final date of banishment of the account [%s][id: %d] successfully changed to be until %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 tmpstr);
                        }
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 34);
                break;

            case 0x794f:       // answer of a broadcast
                if (RFIFOREST (fd) < 4)
                    return 0;
                if (RFIFOW (fd, 2) == (unsigned short) -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec de l'envoi du message. Aucun server de char en ligne.\n");
                        ladmin_log
                            ("Echec de l'envoi du message. Aucun server de char en ligne."
                             RETCODE);
                    }
                    else
                    {
                        printf
                            ("Message sending failed. No online char-server.\n");
                        ladmin_log
                            ("Message sending failed. No online char-server."
                             RETCODE);
                    }
                }
                else
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Message transmis au server de logins avec succ�s.\n");
                        ladmin_log
                            ("Message transmis au server de logins avec succ�s."
                             RETCODE);
                    }
                    else
                    {
                        printf
                            ("Message successfully sended to login-server.\n");
                        ladmin_log
                            ("Message successfully sended to login-server."
                             RETCODE);
                    }
                }
                bytes_to_read = 0;
                RFIFOSKIP (fd, 4);
                break;

            case 0x7951:       // answer of an account validity limit changing
                if (RFIFOREST (fd) < 34)
                    return 0;
                if (RFIFOL (fd, 2) == -1)
                {
                    if (defaultlanguage == 'F')
                    {
                        printf
                            ("Echec du changement de la validit� du compte [%s]. Le compte n'existe pas.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Echec du changement de la validit� du compte [%s]. Le compte n'existe pas."
                             RETCODE, RFIFOP (fd, 6));
                    }
                    else
                    {
                        printf
                            ("Account [%s] validity limit changing failed. Account doesn't exist.\n",
                             RFIFOP (fd, 6));
                        ladmin_log
                            ("Account [%s] validity limit changing failed. Account doesn't exist."
                             RETCODE, RFIFOP (fd, 6));
                    }
                }
                else
                {
                    time_t timestamp = RFIFOL (fd, 30);
                    if (timestamp == 0)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Limite de validit� du compte [%s][id: %d] inchang�e.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            printf
                                ("Le compte a une validit� illimit�e ou\n");
                            printf
                                ("la modification est impossible avec les ajustements demand�s.\n");
                            ladmin_log
                                ("Limite de validit� du compte [%s][id: %d] inchang�e. Le compte a une validit� illimit�e ou la modification est impossible avec les ajustements demand�s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                        else
                        {
                            printf
                                ("Validity limit of the account [%s][id: %d] unchanged.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2));
                            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."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2));
                        }
                    }
                    else
                    {
                        char tmpstr[128];
                        strftime (tmpstr, 24, date_format,
                                  localtime (&timestamp));
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Limite de validit� du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Limite de validit� du compte [%s][id: %d] chang�e avec succ�s pour �tre jusqu'au %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 tmpstr);
                        }
                        else
                        {
                            printf
                                ("Validity limit of the account [%s][id: %d] successfully changed to be until %s.\n",
                                 RFIFOP (fd, 6), RFIFOL (fd, 2), tmpstr);
                            ladmin_log
                                ("Validity limit of the account [%s][id: %d] successfully changed to be until %s."
                                 RETCODE, RFIFOP (fd, 6), RFIFOL (fd, 2),
                                 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 0;
                {
                    char userid[24], error_message[20], lastlogin[24],
                        last_ip[16], email[40], memo[255];
                    time_t ban_until_time;  // # of seconds 1/1/1970 (timestamp): ban time limit of the account (0 = no ban)
                    time_t connect_until_time;  // # of seconds 1/1/1970 (timestamp): Validity limit of the account (0 = unlimited)
                    memcpy (userid, RFIFOP (fd, 7), sizeof (userid));
                    userid[sizeof (userid) - 1] = '\0';
                    memcpy (error_message, RFIFOP (fd, 40),
                            sizeof (error_message));
                    error_message[sizeof (error_message) - 1] = '\0';
                    memcpy (lastlogin, RFIFOP (fd, 60), sizeof (lastlogin));
                    lastlogin[sizeof (lastlogin) - 1] = '\0';
                    memcpy (last_ip, RFIFOP (fd, 84), sizeof (last_ip));
                    last_ip[sizeof (last_ip) - 1] = '\0';
                    memcpy (email, RFIFOP (fd, 100), sizeof (email));
                    email[sizeof (email) - 1] = '\0';
                    connect_until_time = (time_t) RFIFOL (fd, 140);
                    ban_until_time = (time_t) RFIFOL (fd, 144);
                    memset (memo, '\0', sizeof (memo));
                    strncpy (memo, RFIFOP (fd, 150), RFIFOW (fd, 148));
                    if (RFIFOL (fd, 2) == -1)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Impossible de trouver le compte [%s]. Le compte n'existe pas.\n",
                                 parameters);
                            ladmin_log
                                ("Impossible de trouver le compte [%s]. Le compte n'existe pas."
                                 RETCODE, parameters);
                        }
                        else
                        {
                            printf
                                ("Unabled to find the account [%s]. Account doesn't exist.\n",
                                 parameters);
                            ladmin_log
                                ("Unabled to find the account [%s]. Account doesn't exist."
                                 RETCODE, parameters);
                        }
                    }
                    else if (strlen (userid) == 0)
                    {
                        if (defaultlanguage == 'F')
                        {
                            printf
                                ("Impossible de trouver le compte [id: %s]. Le compte n'existe pas.\n",
                                 parameters);
                            ladmin_log
                                ("Impossible de trouver le compte [id: %s]. Le compte n'existe pas."
                                 RETCODE, parameters);
                        }
                        else
                        {
                            printf
                                ("Unabled to find the account [id: %s]. Account doesn't exist.\n",
                                 parameters);
                            ladmin_log
                                ("Unabled to find the account [id: %s]. Account doesn't exist."
                                 RETCODE, parameters);
                        }
                    }
                    else
                    {
                        if (defaultlanguage == 'F')
                        {
                            ladmin_log
                                ("R�ception d'information concernant un compte."
                                 RETCODE);
                            printf
                                ("Le compte a les caract�ristiques suivantes:\n");
                        }
                        else
                        {
                            ladmin_log
                                ("Receiving information about an account."
                                 RETCODE);
                            printf ("The account is set with:\n");
                        }
                        if (RFIFOB (fd, 6) == 0)
                        {
                            printf (" Id:     %d (non-GM)\n", RFIFOL (fd, 2));
                        }
                        else
                        {
                            if (defaultlanguage == 'F')
                            {
                                printf (" Id:     %d (GM niveau %d)\n",
                                        RFIFOL (fd, 2), (int) RFIFOB (fd, 6));
                            }
                            else
                            {
                                printf (" Id:     %d (GM level %d)\n",
                                        RFIFOL (fd, 2), (int) RFIFOB (fd, 6));
                            }
                        }
                        if (defaultlanguage == 'F')
                        {
                            printf (" Nom:    '%s'\n", userid);
                            if (RFIFOB (fd, 31) == 0)
                                printf (" Sexe:   Femme\n");
                            else if (RFIFOB (fd, 31) == 1)
                                printf (" Sexe:   Male\n");
                            else
                                printf (" Sexe:   Serveur\n");
                        }
                        else
                        {
                            printf (" Name:   '%s'\n", userid);
                            if (RFIFOB (fd, 31) == 0)
                                printf (" Sex:    Female\n");
                            else if (RFIFOB (fd, 31) == 1)
                                printf (" Sex:    Male\n");
                            else
                                printf (" Sex:    Server\n");
                        }
                        printf (" E-mail: %s\n", email);
                        switch (RFIFOL (fd, 36))
                        {
                            case 0:
                                if (defaultlanguage == 'F')
                                    printf (" Statut: 0 [Compte Ok]\n");
                                else
                                    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",
                                     RFIFOL (fd, 36));
                                break;
                        }
                        if (defaultlanguage == 'F')
                        {
                            if (ban_until_time == 0)
                            {
                                printf (" Banissement: non banni.\n");
                            }
                            else
                            {
                                char tmpstr[128];
                                strftime (tmpstr, 24, date_format,
                                          localtime (&ban_until_time));
                                printf (" Banissement: jusqu'au %s.\n",
                                        tmpstr);
                            }
                            if (RFIFOL (fd, 32) > 1)
                                printf (" Compteur: %d connexions.\n",
                                        RFIFOL (fd, 32));
                            else
                                printf (" Compteur: %d connexion.\n",
                                        RFIFOL (fd, 32));
                            printf (" Derni�re connexion le: %s (ip: %s)\n",
                                    lastlogin, last_ip);
                            if (connect_until_time == 0)
                            {
                                printf (" Limite de validit�: illimit�.\n");
                            }
                            else
                            {
                                char tmpstr[128];
                                strftime (tmpstr, 24, date_format,
                                          localtime (&connect_until_time));
                                printf (" Limite de validit�: jusqu'au %s.\n",
                                        tmpstr);
                            }
                        }
                        else
                        {
                            if (ban_until_time == 0)
                            {
                                printf (" Banishment: not banished.\n");
                            }
                            else
                            {
                                char tmpstr[128];
                                strftime (tmpstr, 24, date_format,
                                          localtime (&ban_until_time));
                                printf (" Banishment: until %s.\n", tmpstr);
                            }
                            if (RFIFOL (fd, 32) > 1)
                                printf (" Count:  %d connections.\n",
                                        RFIFOL (fd, 32));
                            else
                                printf (" Count:  %d connection.\n",
                                        RFIFOL (fd, 32));
                            printf (" Last connection at: %s (ip: %s)\n",
                                    lastlogin, last_ip);
                            if (connect_until_time == 0)
                            {
                                printf (" Validity limit: unlimited.\n");
                            }
                            else
                            {
                                char tmpstr[128];
                                strftime (tmpstr, 24, date_format,
                                          localtime (&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." RETCODE);
                session[fd]->eof = 1;
                return 0;
        }
    }

    // if we don't wait new packets, do the prompt
    prompt ();

    return 0;
}

//------------------------------------
// Function to connect to login-server
//------------------------------------
int Connect_login_server ()
{
    if (defaultlanguage == 'F')
    {
        Iprintf ("Essai de connection au server de logins...\n");
        ladmin_log ("Essai de connection au server de logins..." RETCODE);
    }
    else
    {
        Iprintf ("Attempt to connect to login-server...\n");
        ladmin_log ("Attempt to connect to login-server..." RETCODE);
    }

    if ((login_fd = make_connection (login_ip, loginserverport)) < 0)
        return 0;

#ifdef PASSWORDENC
    if (passenc == 0)
    {
#endif
        WFIFOW (login_fd, 0) = 0x7918;  // Request for administation login
        WFIFOW (login_fd, 2) = 0;   // no encrypted
        memcpy (WFIFOP (login_fd, 4), loginserveradminpassword, 24);
        WFIFOSET (login_fd, 28);
        bytes_to_read = 1;

        if (defaultlanguage == 'F')
        {
            Iprintf ("Envoi du mot de passe...\n");
            ladmin_log ("Envoi du mot de passe..." RETCODE);
        }
        else
        {
            Iprintf ("Sending of the password...\n");
            ladmin_log ("Sending of the password..." RETCODE);
        }
#ifdef PASSWORDENC
    }
    else
    {
        WFIFOW (login_fd, 0) = 0x791a;  // Sending request about the coding key
        WFIFOSET (login_fd, 2);
        bytes_to_read = 1;
        if (defaultlanguage == 'F')
        {
            Iprintf ("Demande de la clef MD5...\n");
            ladmin_log ("Demande de la clef MD5..." RETCODE);
        }
        else
        {
            Iprintf ("Request about the MD5 key...\n");
            ladmin_log ("Request about the MD5 key..." RETCODE);
        }
    }
#endif

    return 0;
}

//-------------------------------------------------
// Return numerical value of a switch configuration
// on/off, english, fran�ais, deutsch, espa�ol
//-------------------------------------------------
int config_switch (const char *str)
{
    if (strcmpi (str, "on") == 0 || strcmpi (str, "yes") == 0
        || strcmpi (str, "oui") == 0 || strcmpi (str, "ja") == 0
        || strcmpi (str, "si") == 0)
        return 1;
    if (strcmpi (str, "off") == 0 || strcmpi (str, "no") == 0
        || strcmpi (str, "non") == 0 || strcmpi (str, "nein") == 0)
        return 0;

    return atoi (str);
}

//-----------------------------------
// Reading general configuration file
//-----------------------------------
int ladmin_config_read (const char *cfgName)
{
    char line[1024], w1[1024], w2[1024];
    FILE *fp;

    fp = fopen_ (cfgName, "r");
    if (fp == NULL)
    {
        if (defaultlanguage == 'F')
        {
            printf ("\033[0mFichier de configuration (%s) non trouv�.\n",
                    cfgName);
        }
        else
        {
            printf ("\033[0mConfiguration file (%s) not found.\n", cfgName);
        }
        return 1;
    }

    if (defaultlanguage == 'F')
    {
        Iprintf
            ("\033[0m---D�but de lecture du fichier de configuration Ladmin (%s)\n",
             cfgName);
    }
    else
    {
        Iprintf
            ("\033[0m---Start reading of Ladmin configuration file (%s)\n",
             cfgName);
    }
    while (fgets (line, sizeof (line) - 1, fp))
    {
        if (line[0] == '/' && line[1] == '/')
            continue;

        line[sizeof (line) - 1] = '\0';
        if (sscanf (line, "%[^:]: %[^\r\n]", w1, w2) == 2)
        {
            remove_control_chars (w1);
            remove_control_chars (w2);

            if (strcmpi (w1, "login_ip") == 0)
            {
                struct hostent *h = gethostbyname (w2);
                if (h != NULL)
                {
                    if (defaultlanguage == 'F')
                    {
                        Iprintf
                            ("Adresse du serveur de logins: %s -> %d.%d.%d.%d\n",
                             w2, (unsigned char) h->h_addr[0],
                             (unsigned char) h->h_addr[1],
                             (unsigned char) h->h_addr[2],
                             (unsigned char) h->h_addr[3]);
                    }
                    else
                    {
                        Iprintf
                            ("Login server IP address: %s -> %d.%d.%d.%d\n",
                             w2, (unsigned char) h->h_addr[0],
                             (unsigned char) h->h_addr[1],
                             (unsigned char) h->h_addr[2],
                             (unsigned char) h->h_addr[3]);
                    }
                    sprintf (loginserverip, "%d.%d.%d.%d",
                             (unsigned char) h->h_addr[0],
                             (unsigned char) h->h_addr[1],
                             (unsigned char) h->h_addr[2],
                             (unsigned char) h->h_addr[3]);
                }
                else
                    memcpy (loginserverip, w2, 16);
            }
            else if (strcmpi (w1, "login_port") == 0)
            {
                loginserverport = atoi (w2);
            }
            else if (strcmpi (w1, "admin_pass") == 0)
            {
                strncpy (loginserveradminpassword, w2,
                         sizeof (loginserveradminpassword));
                loginserveradminpassword[sizeof (loginserveradminpassword) -
                                         1] = '\0';
#ifdef PASSWORDENC
            }
            else if (strcmpi (w1, "passenc") == 0)
            {
                passenc = atoi (w2);
                if (passenc < 0 || passenc > 2)
                    passenc = 0;
#endif
            }
            else if (strcmpi (w1, "defaultlanguage") == 0)
            {
                if (w2[0] == 'F' || w2[0] == 'E')
                    defaultlanguage = w2[0];
            }
            else if (strcmpi (w1, "ladmin_log_filename") == 0)
            {
                strncpy (ladmin_log_filename, w2,
                         sizeof (ladmin_log_filename));
                ladmin_log_filename[sizeof (ladmin_log_filename) - 1] = '\0';
            }
            else if (strcmpi (w1, "date_format") == 0)
            {                   // note: never have more than 19 char for the date!
                switch (atoi (w2))
                {
                    case 0:
                        strcpy (date_format, "%d-%m-%Y %H:%M:%S");  // 31-12-2004 23:59:59
                        break;
                    case 1:
                        strcpy (date_format, "%m-%d-%Y %H:%M:%S");  // 12-31-2004 23:59:59
                        break;
                    case 2:
                        strcpy (date_format, "%Y-%d-%m %H:%M:%S");  // 2004-31-12 23:59:59
                        break;
                    case 3:
                        strcpy (date_format, "%Y-%m-%d %H:%M:%S");  // 2004-12-31 23:59:59
                        break;
                }
            }
            else if (strcmpi (w1, "import") == 0)
            {
                ladmin_config_read (w2);
            }
        }
    }
    fclose_ (fp);

    login_ip = inet_addr (loginserverip);

    if (defaultlanguage == 'F')
    {
        Iprintf ("---Lecture du fichier de configuration Ladmin termin�e.\n");
    }
    else
    {
        Iprintf ("---End reading of Ladmin configuration file.\n");
    }

    return 0;
}

//--------------------------------------
// Function called at exit of the server
//--------------------------------------
void do_final (void)
{

    if (already_exit_function == 0)
    {
        delete_session (login_fd);

        if (defaultlanguage == 'F')
        {
            Iprintf
                ("\033[0m----Fin de Ladmin (fin normale avec fermeture de tous les fichiers).\n");
            ladmin_log
                ("----Fin de Ladmin (fin normale avec fermeture de tous les fichiers)."
                 RETCODE);
        }
        else
        {
            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)."
                 RETCODE);
        }

        already_exit_function = 1;
    }
}

//------------------------
// Main function of ladmin
//------------------------
int do_init (int argc, char **argv)
{
    // read ladmin configuration
    ladmin_config_read ((argc > 1) ? argv[1] : LADMIN_CONF_NAME);

    ladmin_log ("");
    if (defaultlanguage == 'F')
    {
        ladmin_log ("Fichier de configuration lu." RETCODE);
    }
    else
    {
        ladmin_log ("Configuration file readed." RETCODE);
    }

    srand (time (NULL));

    set_termfunc (do_final);
    set_defaultparse (parse_fromlogin);

    if (defaultlanguage == 'F')
    {
        Iprintf ("Outil d'administration � distance de eAthena.\n");
        Iprintf ("(pour eAthena version %d.%d.%d.)\n", ATHENA_MAJOR_VERSION,
                 ATHENA_MINOR_VERSION, ATHENA_REVISION);
    }
    else
    {
        Iprintf ("EAthena login-server administration tool.\n");
        Iprintf ("(for eAthena version %d.%d.%d.)\n", ATHENA_MAJOR_VERSION,
                 ATHENA_MINOR_VERSION, ATHENA_REVISION);
    }

    if (defaultlanguage == 'F')
    {
        ladmin_log ("Ladmin est pr�t." RETCODE);
        Iprintf ("Ladmin est \033[1;32mpr�t\033[0m.\n\n");
    }
    else
    {
        ladmin_log ("Ladmin is ready." RETCODE);
        Iprintf ("Ladmin is \033[1;32mready\033[0m.\n\n");
    }

    Connect_login_server ();

    atexit (do_final);

    return 0;
}