www.pudn.com > saac.rar > char.c
#define _CHAR_C_
// Spock +1 2000/12/6
#include
#include
#include
#include
#include
#include
#include "main.h"
#include "char.h"
#include "saacproto_serv.h"
#include "util.h"
// CoolFish: Family 2001/6/12
#include "acfamily.h"
#include "version.h"
// Arminius 7.17 memory lock
#include "lock.h"
#include "recv.h"
static void getCharNameFromString(char *str ,char *out );
static void getCharOptionFromString( char *str , char *out );
static void makeCharFileName( char *idstring ,char *output, int outlen,int num);
// Nuke *1*1
static int makeSaveCharString( char *out , int outlen ,
char *nm , char *opt , char *info );
static int findBlankCharIndex( char *id );
static int unlinkCharFile( char *id , int num );
#ifdef _SLEEP_CHAR // 取得非活跃人物档名
static void makeSleepCharFileName( char *id,char *output, int outlen, int num);
#endif
#define SPACE '|'
#define SPACESTRING "|"
#define IS_2BYTEWORD( _a_ ) ( (char)(0x80) <= (_a_) && (_a_) <= (char)(0xFF) )
#define USERLOG( id , format, args...) \
{\
char body[1000];\
char fn[1000];\
if(id[0]){\
snprintf( body ,sizeof(body), "%s.log.%d" , id ,get_rotate_count() );\
makeDirFilename( fn , sizeof(fn),logdir, getHash(id), body);\
LOGBASE( fn , "%u " , (unsigned int ) time(NULL) );\
LOGBASE( fn , format , ## args );\
}\
}
/*
仇及白央奶伙匹烂聒今木化中月楮醒反兮氏少 据毛勾井丹［
char *c0 : ID
char *c1 : Passwd 手丹 据允氏匹月井日银歹卅中
char *c2 : Charname
char *c3 : opt
Spock fixed, opt change to process
char *c3 : process
char *c4 : 勾井歹氏
int i0 : lock
int i1 : mesgid
*/
void charLoadCallback( int ti , int auth , char *c0, char* c1 ,
char *c2 , char *c3, char *c4, int i0 , int i1 )
{
// Spock deleted 2000/11/2
//static int process_id = 0;
// CoolFish: Init charindex 2001/10/16
#ifdef _NewSave
int charindex = -1;
#else
int charindex;
#endif
char loadbuf[CHARDATASIZE];
char infobuf[CHARDATASIZE];
int lock = i0;
char *process = c3;
char *id = c0;
char *passwd = c1;
char *charname = c2;
int mesgid = i1;
char *deadline = c4;
// Spock deleted 2000/11/2
//process_id++;
if( auth != 0 ){
char data[100];
snprintf( data, sizeof( data ), "%d" , auth );
#ifdef _NewSave
saacproto_ACCharLoad_send( ti , FAILED , data, mesgid, charindex );
#else
saacproto_ACCharLoad_send( ti , FAILED , data, mesgid );
#endif
return;
}
if( isLocked( id ) ){
int process=atoi(c3);
#ifdef _NewSave
saacproto_ACCharLoad_send( ti , FAILED , "locked" , mesgid, charindex );
#else
saacproto_ACCharLoad_send( ti , FAILED , "locked" , mesgid );
#endif
DeleteMemLock(getHash(id) & 0xff, id, &process); // 如果AP无锁则AC解锁
log("\n (%s) AC同一星系重覆登入，踢人!! ", id );
saacproto_ACKick_recv( ti, id, 1, -1); //踢人
checkGSUCheck(id);
return;
}
charindex = getCharIndexByName( id , charname );
#ifdef _NewSave
//log("\n档案装载序号:%d 账号:%s 名字:%s\n", charindex, id, charname);
#endif
if( charindex < 0 ){
/* 平乓仿互绣箕仄卅中及匹巨仿□卅及分 */
#ifdef _NewSave
saacproto_ACCharLoad_send( ti , FAILED ,
"char nonexistent" , mesgid , charindex );
#else
saacproto_ACCharLoad_send( ti , FAILED ,
"char nonexistent" , mesgid );
#endif
return;
}
// log( "loadCharOne: id:[%s] char:[%s]\n", id, charname );
if( loadCharOne( id , charindex , loadbuf ,sizeof( loadbuf ))<0){
#ifdef _NewSave
saacproto_ACCharLoad_send( ti , FAILED ,
"cannot load ( disk i/o error?)", mesgid, charindex );
#else
saacproto_ACCharLoad_send( ti , FAILED ,
"cannot load ( disk i/o error?)", mesgid );
#endif
return;
}
{//ttom
char *c_ptr;
c_ptr=loadbuf;
while(*c_ptr!='\0'){
if( IS_2BYTEWORD(*c_ptr) ){
if(*(c_ptr+1)==' '){
*(c_ptr+1)=0x41;
}
c_ptr++;
if(*c_ptr=='\0') break;
}
c_ptr++;
}
}//ttom
if( lock ){
char result[100];
char retdata[100];
// Spock 2000/11/2
if( lockUser( getGSName(ti) , id , passwd , 1 , result , sizeof( result ) ,
retdata , sizeof( retdata ) , process , deadline) <0 ){
saacproto_ACCharLoad_send( ti , FAILED, "lock FAIL!!" , mesgid , charindex );
return;
}
}
memset( infobuf , 0 , sizeof( infobuf ));
getCharInfoFromString( loadbuf , infobuf );
makeStringFromEscaped( infobuf );
#ifdef _NewSave
saacproto_ACCharLoad_send( ti , SUCCESSFUL , infobuf , mesgid, charindex );
#else
saacproto_ACCharLoad_send( ti , SUCCESSFUL , infobuf , mesgid);
#endif
#ifdef _WAEI_KICK
saacproto_ACKick_recv( ti, id, 10, -1); //踢其他星系
#endif
}
#ifdef _NewSave
int charSave( int ti , char *id ,
char *charname , char *opt , char *charinfo,
int unlock , int mesgid , int charindex)
#else
int charSave( int ti , char *id ,
char *charname , char *opt , char *charinfo,
int unlock , int mesgid )
#endif
{
#ifdef _NewSave
#else
int charindex;
#endif
char savebuf[CHARDATASIZE];
int ret = -1;
memset(savebuf, 0, sizeof(savebuf));
//andy_log
if( strstr( charinfo, "DATAEND=") == NULL ){
FILE *fp;
if( (fp=fopen( "badpetstring.txt", "a+")) != NULL ){
fprintf( fp, "%s\n", charinfo);
fclose( fp);
}
log( "err add batpetstring.txt:%s[%s] !\n", id, charname);
}
if( unlock ){
char result[100];
char retdata[100];
if( (ret = lockUser( getGSName(ti), id , "0" , 0 , result , sizeof( result ) ,
retdata , sizeof( retdata ) , "0" , "0")) < 0 ){
log( "解锁:%s 失败!!\n", id);
}
}
// Nuke *1 add escape
if( makeSaveCharString( savebuf , sizeof( savebuf ) ,
charname, opt , charinfo )<0){
log("\n AC存档:太长 ");
saacproto_ACCharSave_send( ti , FAILED , "too long" , mesgid );
// Spock fixed 2000/11/1
return ret;
}
#ifdef _NewSave
if (charindex == -1)
charindex = getCharIndexByName( id , charname );
#else
// Nuke *1-
charindex = getCharIndexByName( id , charname );
#endif
if( charindex < 0 ){
int blankind = findBlankCharIndex( id );
if( blankind < 0 ){
log("\n ACCharSave:char full ");
saacproto_ACCharSave_send( ti , FAILED , "char full" ,mesgid);
return ret;
} else {
charindex = blankind;
}
}
log( "账号:[%s] 人物:[%s]\n", id, charname );
if( saveCharOne( id , charindex , savebuf ) < 0 ){
log("\n ACCharSave:disk I/O error or a bug ");
saacproto_ACCharSave_send( ti , FAILED , "disk I/O error or a bug", mesgid );
return ret;
}
saacproto_ACCharSave_send( ti , SUCCESSFUL , "" , mesgid);
return ret;
}
void charListCallback( int ti , int auth , char *c0 , char *c1 ,
char *c2 , char *c3 , char *c4 , int i0 , int i1 )
{
char listbuf[CHARDATASIZE];
char *id = c0;
int mesgid = i0;
//log(" 档案列表回溯:%s:%d \n", id, auth);
if( auth != 0 ){
char data[100];
snprintf( data, sizeof( data ) , "%d" , auth );
saacproto_ACCharList_send( ti , FAILED , data , mesgid );
total_ng_charlist++;
return;
}
// 取消下列 unlock 动作
if( isLocked( id ) ){
saacproto_ACCharList_send( ti , FAILED , "locked" , mesgid );
checkGSUCheck( id );
total_ng_charlist++;
return;
}
#ifdef _SLEEP_CHAR // 如果无新档, 将旧档移至新档
{
char fn_old[256], fn_new[256];
FILE *fp_old, *fp_new;
int i;
// 移人物档
for( i=0; i= 0)
{
if (ACDelFM(index, fmname, fmindex) >= 0)
log("删除家族成员:%d 家族名:%s 家族索引:%d 人物:%s, 账号:%s, 家族人物索引:%d\n",
index, fmname, fmindex, charname, id, fmcharindex);
}
log("ChangeFMLeader_3 index:%d fmname:%s fmindex:%d\n", index, fmname, fmindex);
#else
if (ACDelFM(index, fmname, fmindex) >= 0)
log("删除家族成员:%d 家族名:%s 家族索引:%d 人物:%s, 账号:%s, 家族人物索引:%d\n",
index, fmname, fmindex, charname, id, fmcharindex);
#endif
}
else
{
#ifdef _FMVER21
if (ACMemberLeaveFM(index, fmname, fmindex, charname, 0, 0, fmcharindex) >= 0)
log("ACMemberLeaveFM index:%d 家族名:%s 家族索引:%d 人物:%s, 账号:%s, 家族人物索引:%d\n",
index, fmname, fmindex, charname, id, fmcharindex);
#else
if (ACMemberLeaveFM(index, fmname, fmindex, charname, 0, fmcharindex) >= 0)
log("ACMemberLeaveFM index:%d 家族名:%s 家族索引:%d 人物:%s, 账号:%s, 家族人物索引:%d\n",
index, fmname, fmindex, charname, id, fmcharindex);
#endif
}
}
}
#endif
// Spock 2000/12/6
time( &timenow );
now = localtime( &timenow );
sprintf( logfile , "log/chardel/%04d%02d%02d.log" ,
now->tm_year + 1900 , now->tm_mon + 1 , now->tm_mday );
LOGBASE( logfile , "%04d/%02d/%02d %02d:%02d:%02d id:[%s] char:[%s] index:[%d]\n" ,
now->tm_year + 1900 , now->tm_mon + 1 , now->tm_mday ,
now->tm_hour , now->tm_min , now->tm_sec ,
id , charname , charindex );
// Spock end
USERLOG( id , "账号删除: 成功\n" );
saacproto_ACCharDelete_send( ti , SUCCESSFUL , "ok" , mesgid);
}
void dummyCallback( int ti , int auth ,
char *c0 , char *c1 , char *c2 , char *c3 ,
char *c4 , int i0 , int i1 )
{
return;
}
static void getCharNameFromString(char *str ,char *out )
{
int c;
out[0]='\0';
for(c=0;;c++){
if( IS_2BYTEWORD( str[c] ) ){
out[c] = str[c];
c ++ ; // 戚及 侬尺
out[c] = str[c];
continue;
}
out[c] = str[c];
if( str[c] == '\0' )break;
if( str[c] == SPACE ){
out[c] = '\0';
break;
}
}
}
static void getCharOptionFromString( char *str , char *out )
{
int c;
int outc = 0;
out[outc] = '\0';
for(c=0;;c++){
if( str[c]=='\0')break;
if( IS_2BYTEWORD( str[c] ) ){
c++;
if( str[c] == '\0' )break; // 公及 侬互允匹卞NULL卅日蔽
continue;
}
if( str[c]== SPACE ){
c++;
for(;;c++){
if( str[c] == '\0' ){ // 蔽 分匀凶日 NULL 木化蔽歹月
out[outc] = '\0';
break;
}
// 仇仇手ㄡ田奶玄 侬及ㄠ田奶玄 卅日手丹域田奶玄戊疋□允月
//---- For 2Byte Code ----
if( IS_2BYTEWORD( str[c] ) ){
out[outc++] = str[c++]; // ㄠ田奶玄 戊疋□
out[outc++] = str[c]; // ㄡ田奶玄 戊疋□
if( str[c] == '\0' )break; // 公及 侬互允匹卞NULL卅日蔽
continue;
}
// 骚橘 侬反ㄠ田奶玄戊疋□
out[outc] = str[c]; // 引内戊疋□
if( str[c] == '\0' )break; // 蔽 分匀凶日蔽歹月
if( str[c] == SPACE ){
out[outc] = '\0';
break;
}
outc++;
}
return;
}
}
}
void getCharInfoFromString( char *str , char *out )
{
int c=0,outc=0;
int space_counter=0;
out[outc] = '\0';
for(c=0;;c++){
if( str[c]=='\0')break;
if( IS_2BYTEWORD( str[c] ) ){
c++;
continue;
}else
if( str[c]== SPACE ){
space_counter++;
}
if( space_counter==2 && str[c]== SPACE ){
c++;
for(;;c++){
if( IS_2BYTEWORD( str[c] ) ){
out[outc++] = str[c++];
out[outc++] = str[c];
if( str[c] == '\0' ){
out[outc] = '\0';
break;
}
continue;
}
out[outc] = str[c];
if( str[c] == '\0' )break;
if( str[c] == SPACE ){
out[outc] = '\0';
break;
}
outc++;
}
return;
}
}
}
static void makeCharFileName( char *id,char *output, int outlen, int num)
{
char body[1024];
if ( strlen( id) < 1)return;
snprintf(body , sizeof(body ) , "%s.%d.char" , id , num );
makeDirFilename(output , outlen, chardir , getHash(id) ,body);
}
#ifdef _SLEEP_CHAR // 取得非活跃人物档名
static void makeSleepCharFileName( char *id,char *output, int outlen, int num)
{
char body[1024];
if ( strlen( id) < 1)return;
snprintf(body , sizeof(body ) , "%s.%d.char" , id , num );
makeDirFilename(output , outlen, sleepchardir , getHash(id) ,body);
}
#endif
int loadCharNameAndOption( char *id , char *output , int outlen)
{
char chbuf[MAXCHAR_PER_USER][CHARDATASIZE];
char namework[CHARDATASIZE];
char optionwork[CHARDATASIZE];
char nm_work[CHARDATASIZE];
int i,count=0;
int so_far_bytes = 0;
output[0] = 0;
for(i=0;i 0 ){
delim[0] = SPACE;
delim[1] = 0;
} else {
delim[0] = 0;
}
snprintf( nm_work , sizeof( nm_work ),
"%s%s|%s" , delim,namework , optionwork );
l = strlen( nm_work );
if( ( so_far_bytes + l ) < outlen ){
strcat( output , nm_work );
so_far_bytes += l;
count++;
}
}
return count;
}
int loadCharOne( char *id , int num, char *output , int outlen )
{
char fn[1024];
FILE *fp;
char c_temp,*c_ptr;
c_ptr=output;
makeCharFileName( id , fn , sizeof(fn),num );
fp = fopen( fn , "r" );
if( fp == NULL ){
return -1;
}
do{
c_temp = fgetc(fp);
*c_ptr=c_temp;
c_ptr++;
}while(c_temp != EOF);
*c_ptr='\0';
if( output[0]=='|' && output[1]=='|' ){
return -1;
}
fclose(fp);
return 0;
}
int saveCharOne( char *id , int num , char *input )
{
char fn[1024];
FILE *fp;
char *strp;
char *strp1; // Won 修正 hp 为负的人
makeCharFileName( id , fn , sizeof(fn),num );
fp= fopen( fn , "w" );
if( fp == NULL ) {
log( "save error 01: %d",errno );//Change add errno
return -1;
}
// Won 修正 hp 为负的人
if ((strp=strstr(input,"\\nhp=-"))!=NULL) {
strp1=strstr(input,"\\nmp=");
*(strp+5)='1';
strcpy((strp+6), strp1);
}
// Arminius
if ((strp=strstr(input,"\\nhp=0\\n"))!=NULL) *(strp+5)='1';
fprintf( fp , "%s" , input );
fclose(fp);
log( "写入 %s 档案文件:%s\n",id , fn );
chmod(fn,0777);
return 0;
}
static int makeSaveCharString( char *out , int outlen ,
char *nm , char *opt , char *info )
{
char nmwork[CHARDATASIZE];
char optwork[CHARDATASIZE];
char infowork[CHARDATASIZE];
char outwork[CHARDATASIZE];
char *nmwork_p , *optwork_p , *infowork_p;
int l;
/* 戊疋□仄化 */
strncpy( nmwork , nm , sizeof( nmwork ));
nmwork[strlen( nm)]=0;
strncpy( optwork , opt , sizeof( optwork ));
optwork[strlen(opt)]=0;
strncpy( infowork , info , sizeof( infowork ));
infowork[strlen(info)]=0;
/* 巨旦弗□皿仄 */
/* if ( esc ) {
nmwork_p = makeEscapeString1( nm , nmwork ,sizeof( nmwork ));
optwork_p = makeEscapeString1( opt , optwork , sizeof( optwork ));
infowork_p = makeEscapeString1( info , infowork , sizeof( infowork ));
} else {*/
nmwork_p = makeEscapeString( nm , nmwork ,sizeof( nmwork ));
optwork_p = makeEscapeString( opt , optwork , sizeof( optwork ));
infowork_p = makeEscapeString( info , infowork , sizeof( infowork ));
// }
/* 勾卅仆月［赞中互巨仿□腹请及凶户卞域荚伐□弁卞中木月［ */
snprintf( outwork ,sizeof( outwork ) ,
"%s" SPACESTRING "%s" SPACESTRING "%s" ,
nmwork_p , optwork_p , infowork_p );
l = strlen( outwork );
if( l >= (outlen-1)){
return -1;
}
/* NULL 侬互 卞丐月井日0毛中木氏午中井氏及分［ */
memcpy( out , outwork , l + 1);
return 0;
}
int getCharIndexByName( char *id , char *charname )
{
int i;
for(i=0;i