encrypted file

[Gintaras]

_logfilesize is changed only if 0. Don't use it.

Code:

Copy      Help

;/
function ~s [flags] [$logfile] ;;flags: 1 date/time

if(!len(logfile)) logfile=_logfile
File f.Open(logfile "a+")

int i=f.FileLen
int logfilesize=1000*1024
if(i>logfilesize)
,f.SetPos(logfilesize/2)
,f.ReadToStr(_s)
,f.Close
,f.Open(logfile "w")
,i=findc(_s 10)+1
,f.Write(_s+i _s.len-i)

if(flags&1) s-_s.time("%c[]")
f.WriteLine(s)

err+ end ES_FAILED