void CWebPageDef::WebPageLog()
{
ADDTOCALLSTACK("CWebPageDef::WebPageLog");
if ( ! m_iUpdateLog || ! m_iUpdatePeriod )
return;
if ( m_type != WEBPAGE_TEMPLATE )
return;
CFileText FileRead;
if ( ! FileRead.Open( m_sDstFilePath, OF_READ|OF_TEXT ))
return;
LPCTSTR pszExt = FileRead.GetFileExt();
TCHAR szName[ _MAX_PATH ];
strcpy( szName, m_sDstFilePath );
szName[ m_sDstFilePath.GetLength() - strlen(pszExt) ] = '\0';
CGTime datetime = CGTime::GetCurrentTime();
TCHAR *pszTemp = Str_GetTemp();
sprintf(pszTemp, "%s%d%02d%02d%s", szName, datetime.GetYear()%100, datetime.GetMonth(), datetime.GetDay(), pszExt);
CFileText FileTest;
if ( FileTest.Open(pszTemp, OF_READ|OF_TEXT) )
return;
// Copy it.
WebPageUpdate(true, pszTemp, &g_Serv);
}
void defragSphere(char *path)
{
ASSERT(path != NULL);
CFileText inf;
CGFile ouf;
char z[256], z1[256], buf[1024];
size_t i;
DWORD uid = UID_CLEAR;
char *p = NULL, *p1 = NULL;
DWORD dBytesRead;
DWORD dTotalMb;
DWORD mb10 = 10 * 1024 * 1024;
DWORD mb5 = 5 * 1024 * 1024;
bool bSpecial;
DWORD dTotalUIDs;
char c,c1,c2;
DWORD d;
// NOTE: Sure I could use CVarDefArray, but it is extremely slow with memory allocation, takes hours
// to read and save the data. Moreover, it takes less memory in this case and does less convertations.
g_Log.Event(LOGM_INIT, "Defragmentation (UID alteration) of " SPHERE_TITLE " saves.\n"
"Use it at your own risk and if you know what you are doing, since it can possibly harm your server.\n"
"The process can take up to several hours depending on the CPU you have.\n"
"After finished, you will have your '" SPHERE_FILE "*.scp' save files converted to '" SPHERE_FILE "*.scp.new'.\n");
DWORD *uids = static_cast<DWORD *>(calloc((SIZE_MAX / 2) / sizeof(DWORD), sizeof(DWORD)));
for ( i = 0; i < 3; i++ )
{
strncpy(z, path, sizeof(z) - 1);
if ( i == 0 )
strcat(z, SPHERE_FILE "statics" SPHERE_SCRIPT);
else if ( i == 1 )
strcat(z, SPHERE_FILE "world" SPHERE_SCRIPT);
else
strcat(z, SPHERE_FILE "chars" SPHERE_SCRIPT);
g_Log.Event(LOGM_INIT, "Reading %s\n", z);
if ( !inf.Open(z, OF_READ|OF_TEXT|OF_DEFAULTMODE) )
{
g_Log.Event(LOGM_INIT, "Can't open file '%s' for reading. Skipped!\n", z);
continue;
}
dBytesRead = dTotalMb = 0;
while ( !feof(inf.m_pStream) )
{
fgets(buf, sizeof(buf), inf.m_pStream);
dBytesRead += strlen(buf);
if ( dBytesRead > mb10 )
{
dBytesRead -= mb10;
dTotalMb += 10;
g_Log.Event(LOGM_INIT, "Total read %lu Mb\n", dTotalMb);
}
if (( buf[0] == 'S' ) && ( strstr(buf, "SERIAL=") == buf ))
{
p = buf + 7;
p1 = p;
while ( *p1 && ( *p1 != '\r' ) && ( *p1 != '\n' ))
p1++;
*p1 = 0;
// prepare new uid
*(p-1) = '0';
*p = 'x';
p--;
uids[uid++] = strtoul(p, &p1, 16);
}
}
inf.Close();
}
dTotalUIDs = uid;
if ( dTotalUIDs <= 0 )
{
g_Log.Event(LOGM_INIT, "Save files are empty, defragmentation is not needed\n");
return;
}
g_Log.Event(LOGM_INIT, "Found %lu UIDs (latest: 0%lx)\n", uid, uids[dTotalUIDs - 1]);
g_Log.Event(LOGM_INIT, "Quick-sorting UIDs array...\n");
dword_q_sort(uids, 0, dTotalUIDs - 1);
for ( i = 0; i < 5; i++ )
{
strncpy(z, path, sizeof(z) - 1);
if ( i == 0 )
strcat(z, SPHERE_FILE "accu.scp");
else if ( i == 1 )
strcat(z, SPHERE_FILE "chars" SPHERE_SCRIPT);
else if ( i == 2 )
strcat(z, SPHERE_FILE "data" SPHERE_SCRIPT);
else if ( i == 3 )
strcat(z, SPHERE_FILE "world" SPHERE_SCRIPT);
else if ( i == 4 )
strcat(z, SPHERE_FILE "statics" SPHERE_SCRIPT);
g_Log.Event(LOGM_INIT, "Updating UIDs in '%s' to '%s.new'\n", z, z);
if ( !inf.Open(z, OF_READ|OF_TEXT|OF_DEFAULTMODE) )
{
g_Log.Event(LOGM_INIT, "Can't open file '%s' for reading. Skipped!\n", z);
continue;
}
strcat(z, ".new");
if ( !ouf.Open(z, OF_WRITE|OF_CREATE|OF_DEFAULTMODE) )
{
g_Log.Event(LOGM_INIT, "Can't open file '%s' for writing. Skipped!\n", z);
continue;
}
dBytesRead = dTotalMb = 0;
while ( inf.ReadString(buf, sizeof(buf)) )
{
uid = strlen(buf);
if (uid > (COUNTOF(buf) - 3))
uid = COUNTOF(buf) - 3;
buf[uid] = buf[uid+1] = buf[uid+2] = 0; // just to be sure to be in line always
// NOTE: it is much faster than to use memcpy to clear before reading
bSpecial = false;
dBytesRead += uid;
if ( dBytesRead > mb5 )
{
dBytesRead -= mb5;
dTotalMb += 5;
g_Log.Event(LOGM_INIT, "Total processed %lu Mb\n", dTotalMb);
}
p = buf;
// Note 28-Jun-2004
// mounts seems having ACTARG1 > 0x30000000. The actual UID is ACTARG1-0x30000000. The
// new also should be new+0x30000000. need investigation if this can help making mounts
// not to disappear after the defrag
if (( buf[0] == 'A' ) && ( strstr(buf, "ACTARG1=0") == buf )) // ACTARG1=
p += 8;
else if (( buf[0] == 'C' ) && ( strstr(buf, "CONT=0") == buf )) // CONT=
p += 5;
else if (( buf[0] == 'C' ) && ( strstr(buf, "CHARUID=0") == buf )) // CHARUID=
p += 8;
else if (( buf[0] == 'L' ) && ( strstr(buf, "LASTCHARUID=0") == buf )) // LASTCHARUID=
p += 12;
else if (( buf[0] == 'L' ) && ( strstr(buf, "LINK=0") == buf )) // LINK=
p += 5;
else if (( buf[0] == 'M' ) && ( strstr(buf, "MEMBER=0") == buf )) // MEMBER=
{
p += 7;
bSpecial = true;
}
else if (( buf[0] == 'M' ) && ( strstr(buf, "MORE1=0") == buf )) // MORE1=
p += 6;
else if (( buf[0] == 'M' ) && ( strstr(buf, "MORE2=0") == buf )) // MORE2=
p += 6;
else if (( buf[0] == 'S' ) && ( strstr(buf, "SERIAL=0") == buf )) // SERIAL=
p += 7;
else if ((( buf[0] == 'T' ) && ( strstr(buf, "TAG.") == buf )) || // TAG.=
(( buf[0] == 'R' ) && ( strstr(buf, "REGION.TAG") == buf )))
{
while ( *p && ( *p != '=' )) p++;
p++;
}
else if (( i == 2 ) && strchr(buf, '=')) // spheredata.scp - plain VARs
{
while ( *p && ( *p != '=' )) p++;
p++;
}
else p = NULL;
// UIDs are always hex, so prefixed by 0
if ( p && ( *p != '0' )) p = NULL;
// here we got potentialy UID-contained variable
// check if it really is only UID-like var containing
if ( p )
{
p1 = p;
while ( *p1 &&
((( *p1 >= '0' ) && ( *p1 <= '9' )) ||
(( *p1 >= 'a' ) && ( *p1 <= 'f' )))) p1++;
if ( !bSpecial )
{
if ( *p1 && ( *p1 != '\r' ) && ( *p1 != '\n' )) // some more text in line
p = NULL;
}
}
// here we definitely know that this is very uid-like
if ( p )
{
c = *p1;
*p1 = 0;
// here in p we have the current value of the line.
// check if it is a valid UID
// prepare converting 0.. to 0x..
c1 = *(p-1);
c2 = *p;
*(p-1) = '0';
*p = 'x';
p--;
uid = strtoul(p, &p1, 16);
p++;
*(p-1) = c1;
*p = c2;
// Note 28-Jun-2004
// The search algourytm is very simple and fast. But maybe integrate some other, at least /2 algorythm
// since has amount/2 tryes at worst chance to get the item and never scans the whole array
// It should improve speed since defragmenting 150Mb saves takes ~2:30 on 2.0Mhz CPU
{
DWORD dStep = dTotalUIDs/2;
d = dStep;
for (;;)
{
dStep /= 2;
if ( uids[d] == uid )
{
uid = d | (uids[d]&0xF0000000); // do not forget attach item and special flags like 04..
break;
}
else if ( uids[d] < uid ) d += dStep;
else d -= dStep;
if ( dStep == 1 )
{
uid = ULONG_MAX;
break; // did not find the UID
}
}
}
// Search for this uid in the table
/* for ( d = 0; d < dTotalUIDs; d++ )
{
if ( !uids[d] ) // end of array
{
uid = ULONG_MAX;
break;
}
else if ( uids[d] == uid )
{
uid = d | (uids[d]&0xF0000000); // do not forget attach item and special flags like 04..
break;
}
}*/
// replace UID by the new one since it has been found
*p1 = c;
if ( uid != ULONG_MAX )
{
*p = 0;
strncpy(z, p1, sizeof(z) - 1);
sprintf(z1, "0%lx", uid);
strcat(buf, z1);
strcat(buf, z);
}
}
// output the resulting line
ouf.Write(buf, strlen(buf));
}
inf.Close();
ouf.Close();
}
free(uids);
g_Log.Event(LOGM_INIT, "Defragmentation complete.\n");
}
int Sphere_InitServer( int argc, char *argv[] )
{
#ifdef EXCEPTIONS_DEBUG
const char *m_sClassName = "Sphere";
#endif
EXC_TRY("Init");
ASSERT(MAX_BUFFER >= sizeof(CEvent));
ASSERT(sizeof(int) == sizeof(DWORD)); // make this assumption often.
ASSERT(sizeof(ITEMID_TYPE) == sizeof(DWORD));
ASSERT(sizeof(WORD) == 2 );
ASSERT(sizeof(DWORD) == 4 );
ASSERT(sizeof(NWORD) == 2 );
ASSERT(sizeof(NDWORD) == 4 );
ASSERT(sizeof(CUOItemTypeRec) == 37 ); // byte pack working ?
ASSERT((std::numeric_limits<size_t>::min)() == 0); // ensure unsigned
#ifdef _WIN32
if ( !QueryPerformanceFrequency(reinterpret_cast<LARGE_INTEGER *>(&llTimeProfileFrequency)) )
llTimeProfileFrequency = 1000;
#if !defined(_DEBUG) && !defined(__MINGW32__)
EXC_SET("setting exception catcher");
SetExceptionTranslator();
#endif
#endif
EXC_SET("loading");
if ( !g_Serv.Load() )
return -3;
if ( argc > 1 )
{
EXC_SET("cmdline");
if ( !g_Serv.CommandLine(argc, argv) )
return -1;
}
WritePidFile(2);
EXC_SET("load world");
if ( !g_World.LoadAll() )
return -8;
EXC_SET("sockets init");
if ( !g_Serv.SocketsInit() )
return -9;
// load auto-complete dictionary
EXC_SET("auto-complete");
{
CFileText dict;
if ( dict.Open(SPHERE_FILE ".dic", OF_READ|OF_TEXT|OF_DEFAULTMODE) )
{
TCHAR * pszTemp = Str_GetTemp();
size_t count = 0;
while ( !dict.IsEOF() )
{
dict.ReadString(pszTemp, SCRIPT_MAX_LINE_LEN-1);
if ( *pszTemp )
{
TCHAR *c = strchr(pszTemp, '\r');
if ( c != NULL )
*c = '\0';
c = strchr(pszTemp, '\n');
if ( c != NULL )
*c = '\0';
if ( *pszTemp != '\0' )
{
count++;
g_AutoComplete.AddTail(pszTemp);
}
}
}
g_Log.Event(LOGM_INIT, "Auto-complete dictionary loaded (contains %" FMTSIZE_T " words)\n", count);
dict.Close();
}
}
EXC_SET("finalizing");
g_Serv.SetServerMode(SERVMODE_Run);
g_Log.Event(LOGM_INIT, "Startup complete (Items=%lu, Chars=%lu, Accounts=%lu)\nPress '?' for console commands\n\n", g_Serv.StatGet(SERV_STAT_ITEMS), g_Serv.StatGet(SERV_STAT_CHARS), g_Serv.StatGet(SERV_STAT_ACCOUNTS));
if ( !g_Accounts.Account_GetCount() )
g_Log.Event(LOGL_WARN|LOGM_INIT, "The server has no accounts. To create admin account you must type:\n ACCOUNT ADD [login] [password]\n ACCOUNT [login] PLEVEL 7\n");
// Trigger server start
g_Serv.r_Call("f_onserver_start", &g_Serv, NULL);
return g_Serv.m_iExitFlag;
EXC_CATCH;
EXC_DEBUG_START;
g_Log.EventDebug("cmdline argc=%d starting with %p (argv1='%s')\n", argc, static_cast<void *>(argv), ( argc > 2 ) ? argv[1] : "");
EXC_DEBUG_END;
return -10;
}
int Sphere_InitServer( int argc, char *argv[] )
{
const char *m_sClassName = "Sphere";
EXC_TRY("Init");
ASSERT(MAX_BUFFER >= sizeof(CCommand));
ASSERT(MAX_BUFFER >= sizeof(CEvent));
ASSERT(sizeof(int) == sizeof(DWORD)); // make this assumption often.
ASSERT(sizeof(ITEMID_TYPE) == sizeof(DWORD));
ASSERT(sizeof(WORD) == 2 );
ASSERT(sizeof(DWORD) == 4 );
ASSERT(sizeof(NWORD) == 2 );
ASSERT(sizeof(NDWORD) == 4 );
ASSERT(sizeof(CUOItemTypeRec) == 37 ); // byte pack working ?
ASSERT((std::numeric_limits<size_t>::min)() == 0); // ensure unsigned
#ifdef _WIN32
if ( !QueryPerformanceFrequency(reinterpret_cast<LARGE_INTEGER *>(&llTimeProfileFrequency)))
llTimeProfileFrequency = 1000;
EXC_SET("setting exception catcher");
SetExceptionTranslator();
#endif // _WIN32
EXC_SET("loading");
if ( !g_Serv.Load() )
return -3;
if ( argc > 1 )
{
EXC_SET("cmdline");
if ( !g_Serv.CommandLine(argc, argv) )
return -1;
}
WritePidFile(2);
EXC_SET("sockets init");
if ( !g_Serv.SocketsInit() )
return -9;
EXC_SET("load world");
if ( !g_World.LoadAll() )
return -8;
// load auto-complete dictionary
EXC_SET("auto-complete");
{
CFileText dict;
if ( dict.Open(GRAY_FILE ".dic", OF_READ|OF_TEXT|OF_DEFAULTMODE) )
{
TCHAR * pszTemp = Str_GetTemp();
size_t count = 0;
while ( !dict.IsEOF() )
{
dict.ReadString(pszTemp, SCRIPT_MAX_LINE_LEN-1);
if ( *pszTemp )
{
TCHAR *c = strchr(pszTemp, '\r');
if ( c != NULL )
*c = '\0';
c = strchr(pszTemp, '\n');
if ( c != NULL )
*c = '\0';
if ( *pszTemp != '\0' )
{
count++;
g_AutoComplete.AddTail(pszTemp);
}
}
}
g_Log.Event(LOGM_INIT, "Auto-complete dictionary loaded (contains %" FMTSIZE_T " words).\n", count);
dict.Close();
}
}
g_Serv.SetServerMode(SERVMODE_Run); // ready to go.
// Display EF/OF Flags
g_Cfg.PrintEFOFFlags();
EXC_SET("finilizing");
g_Log.Event(LOGM_INIT, "%s", g_Serv.GetStatusString(0x24));
g_Log.Event(LOGM_INIT, "Startup complete. items=%lu, chars=%lu\n", g_Serv.StatGet(SERV_STAT_ITEMS), g_Serv.StatGet(SERV_STAT_CHARS));
#ifdef _WIN32
g_Log.Event(LOGM_INIT, "Press '?' for console commands\n");
#endif
// Trigger server start
g_Serv.r_Call("f_onserver_start", &g_Serv, NULL);
return 0;
EXC_CATCH;
EXC_DEBUG_START;
g_Log.EventDebug("cmdline argc=%d starting with %p (argv1='%s')\n", argc, static_cast<void *>(argv), ( argc > 2 ) ? argv[1] : "");
EXC_DEBUG_END;
return -10;
}
DWORD CServerDef::StatGet(SERV_STAT_TYPE i) const
{
ADDTOCALLSTACK("CServerDef::StatGet");
ASSERT( i >= 0 && i <= SERV_STAT_QTY );
DWORD d = m_dwStat[i];
EXC_TRY("StatGet");
if ( i == SERV_STAT_MEM ) // memory information
{
d = 0;
if ( m_bPmemory )
{
#ifdef _WIN32
if ( !m_hmPsapiDll ) // try to load psapi.dll if not loaded yet
{
EXC_SET("load process info");
m_hmPsapiDll = LoadLibrary(TEXT("psapi.dll"));
if (m_hmPsapiDll == NULL)
{
m_bPmemory = false;
g_Log.EventError(("Unable to load process information PSAPI.DLL library. Memory information will be not available.\n"));
}
else
{
m_GetProcessMemoryInfo = reinterpret_cast<pGetProcessMemoryInfo>(::GetProcAddress(m_hmPsapiDll,"GetProcessMemoryInfo"));
}
}
if ( m_GetProcessMemoryInfo ) {
EXC_SET("open process");
HANDLE hProcess = GetCurrentProcess();
if ( hProcess ) {
ASSERT( hProcess == (HANDLE)-1 );
EXC_SET("get memory info");
if ( m_GetProcessMemoryInfo(hProcess, &pcnt, sizeof(pcnt)) ) {
EXC_SET("read memory info");
d = pcnt.WorkingSetSize;
}
CloseHandle(hProcess);
}
}
#else
struct rusage usage;
int res = getrusage(RUSAGE_SELF, &usage);
if ( res == 0 && usage.ru_idrss )
d = usage.ru_idrss;
else
{
CFileText inf;
TCHAR * buf = Str_GetTemp(), * head;
sprintf(buf, "/proc/%d/status", getpid());
if ( inf.Open(buf, OF_READ|OF_TEXT) )
{
for (;;)
{
if ( !inf.ReadString(buf, SCRIPT_MAX_LINE_LEN) )
break;
if ( (head = strstr(buf, "VmSize:")) != NULL )
{
head += 7;
GETNONWHITESPACE(head)
d = ATOI(head) * 1000;
break;
}
}
inf.Close();
}
}
if ( !d )
{
g_Log.EventError(("Unable to load process information from getrusage() and procfs. Memory information will be not available.\n"));
m_bPmemory = false;
}
#endif
if ( d != 0 )
d /= 1024;
}
}
return d;
EXC_CATCH;
EXC_DEBUG_START;
g_Log.EventDebug("stat '%d', val '%lu'\n", i, d);
EXC_DEBUG_END;
return 0;
}
