mirror of
git://git.psyced.org/git/psyced
synced 2024-08-15 03:25:10 +00:00
place/archetype.gen: new save log immediately flag to save() after logAppend(): - in place/name.c: define SAVE_LOG_IMMEDIATELY - in local.h: define _flag_save_place_log_immediately define _flag_save_userthreads_immediately place/text: added x()
210 lines
5.6 KiB
C
210 lines
5.6 KiB
C
// $Id: lastlog.c,v 1.29 2008/07/17 17:09:15 lynx Exp $ // vim:syntax=lpc
|
|
//
|
|
// generic implementation of a log of last messages,
|
|
// also known as lastlog in irc tradition
|
|
// stores log in a non-static variable ready for save_object
|
|
// used by user.c for /log and storic.c for /history in rooms
|
|
// memory allocation could be improved in a similar way to net/queue.c
|
|
|
|
// local debug messages - turn them on by using psyclpc -DDlastlog=<level>
|
|
#ifdef Dlastlog
|
|
# undef DEBUG
|
|
# define DEBUG Dlastlog
|
|
#endif
|
|
|
|
#include <net.h>
|
|
#include <lastlog.h>
|
|
|
|
protected array(mixed) _log;
|
|
|
|
msgView(source, mc, data, vars, showingLog) {
|
|
return msg(source, mc, data, vars, showingLog);
|
|
}
|
|
|
|
logAppend(source, mc, data, vars, maxlen, timevar, isAJob) {
|
|
P4(("logAppend(%O, %O, %O, %O..) in %O\n", source, mc, data, vars, ME))
|
|
// bug in emit(.., source) somewhere.. when displaying log the sources
|
|
// are not advertised ahead. don't know where to fix it, so for now i
|
|
// just turn off the lastlog feature in ircgate mode.
|
|
#ifndef ADVERTISE_PSYCERS
|
|
//
|
|
unless(timevar) timevar = "_time_INTERNAL";
|
|
if (maxlen && sizeof(_log) > maxlen * 4)
|
|
_log = _log[ (maxlen/2) * 4 ..];
|
|
|
|
// if (mappingp(vars)) vars = vars + ([ timevar : time() ]);
|
|
if (mappingp(vars)) vars[timevar] = time();
|
|
else vars = ([ timevar : time() ]);
|
|
|
|
# ifndef UNSAFE_LASTLOG
|
|
// NEW: appending an array with 2 elements (source, psyc_name of it)
|
|
// if source is an object, so we can gracefully deliver their room
|
|
// history entries to remote psycers even if the object is long gone.
|
|
_log += ({ (objectp(source) ? ({ source, psyc_name(source) }) : source),
|
|
mc, data, vars });
|
|
# else /* UNSAFE_LASTLOG */
|
|
_log += ({ source, mc, data, vars });
|
|
# endif /* UNSAFE_LASTLOG */
|
|
#endif /* RELAY */
|
|
}
|
|
|
|
logClear(a) {
|
|
int amount;
|
|
|
|
if (stringp(a)) {
|
|
// invitation for a grep-clear .. but hey who wants that
|
|
unless (sscanf(a, "%d", amount)) amount = 0;
|
|
} else amount = a;
|
|
amount *= 4;
|
|
if (amount <= 0 || amount > sizeof(_log)) _log = ({ });
|
|
else _log = _log[0 .. sizeof(_log)-amount-1];
|
|
}
|
|
|
|
logInit(takeThis) {
|
|
if (pointerp(takeThis)) _log = takeThis;
|
|
else if (!_log || sizeof(_log)%4 ) _log = ({ });
|
|
// D(S("\n%O :logInit: %O\n", ME, _log));
|
|
}
|
|
|
|
logClip(maxlen, cutlen) {
|
|
P3(("logClip(%O, %O)\n", maxlen, cutlen))
|
|
int howmany;
|
|
|
|
howmany = sizeof(_log);
|
|
if (maxlen && howmany > maxlen * 4) {
|
|
unless (cutlen) cutlen = maxlen;
|
|
_log = _log[howmany-cutlen * 4 ..];
|
|
return cutlen;
|
|
}
|
|
return howmany / 4;
|
|
}
|
|
|
|
// TODO: logView *since* timestamp. see also user.c:disconnected()
|
|
//
|
|
// uh. vim lpc syntax file doesn't like default in variablenames. renamed.
|
|
logView(a, showingLog, defAmount) {
|
|
string grep;
|
|
int i, ll;
|
|
|
|
if (stringp(a)) {
|
|
unless (sscanf(a, "%d", ll)) grep = a;
|
|
} else ll = a;
|
|
|
|
// paranoid but.. you never know what happens to a .o file
|
|
#if DEBUG > 1
|
|
if (sizeof(_log) % 4) {
|
|
D("Log corrupted in "+to_string(ME)+"!\n");
|
|
_log = ({ });
|
|
return;
|
|
}
|
|
#endif
|
|
// <lynX> there were requests for smarter matching using regexps..
|
|
// i think we should enlarge the _request_do_log variable set
|
|
// by specifying which variables ought to be searched rather
|
|
// than trying an odd choice like below. the command variant
|
|
// in that case would probably be of the unix option syntax
|
|
// kind (we could use a getopt-implementation then). and most
|
|
// of all we need a timestamp-based replay function which
|
|
// finds the starting position in the log by a binary search
|
|
if (grep) {
|
|
string text, t;
|
|
mapping m;
|
|
|
|
ll = 0; for(i=0; i<sizeof(_log); i+=4) {
|
|
unless (_log[i]) continue;
|
|
if (mappingp(m = _log[i+3])) if (
|
|
((text = _log[i+2]) && strstr(text, grep) >= 0)
|
|
|| ((t = m["_nick"]) && strstr(t, grep) >= 0)
|
|
|| ((t = m["_nick_target"]) && strstr(t, grep) >= 0)
|
|
|| ((t = m["_action"]) && strstr(t, grep) >= 0)
|
|
) {
|
|
#ifndef UNSAFE_LASTLOG
|
|
msgView((pointerp(_log[i])
|
|
? _log[i][0] || _log[i][1]
|
|
: _log[i]),
|
|
#else /* UNSAFE_LASTLOG */
|
|
# if UNSAFE_LASTLOG == "again"
|
|
// in case we have to switch back ..
|
|
msgView((pointerp(_log[i]) ? 0 : _log[i]),
|
|
# else
|
|
msgView(_log[i],
|
|
# endif
|
|
#endif /* UNSAFE_LASTLOG */
|
|
_log[i+1],
|
|
text,
|
|
_log[i+3], showingLog);
|
|
ll++;
|
|
}
|
|
}
|
|
return ll;
|
|
}
|
|
P4(("\n%O :logView: %O\n", ME, _log))
|
|
unless (ll) ll = defAmount || 15;
|
|
ll *= 4;
|
|
if (sizeof(_log) < ll) {
|
|
ll = sizeof(_log);
|
|
i = 0;
|
|
} else {
|
|
i = sizeof(_log) - ll;
|
|
}
|
|
while (i < sizeof(_log)) {
|
|
unless (_log[i]) { i+= 4; continue; }
|
|
#ifndef UNSAFE_LASTLOG
|
|
msgView((pointerp(_log[i])
|
|
? _log[i++][0] || _log[i-1][1]
|
|
: _log[i++]),
|
|
#else /* UNSAFE_LASTLOG */
|
|
msgView(_log[i++],
|
|
#endif /* UNSAFE_LASTLOG */
|
|
_log[i++],
|
|
_log[i++],
|
|
_log[i++], showingLog);
|
|
}
|
|
return ll / 4;
|
|
}
|
|
|
|
int logExists(int i) {
|
|
i *= 4;
|
|
if (i < 0 || i >= sizeof(_log) || !_log[i]) return 0;
|
|
return 1;
|
|
}
|
|
|
|
// pick a single message. used by POP3 & place/threads
|
|
array(mixed) logPick(int i) {
|
|
unless (logExists(i)) return 0;
|
|
i *= 4;
|
|
#ifndef UNSAFE_LASTLOG
|
|
return ({ (pointerp(_log[i])
|
|
? _log[i++][0] || _log[i-1][1]
|
|
: _log[i++]),
|
|
_log[i++], _log[i++], _log[i++] });
|
|
#else /* UNSAFE_LASTLOG */
|
|
return ({ _log[i++], _log[i++], _log[i++], _log[i++] });
|
|
#endif /* UNSAFE_LASTLOG */
|
|
}
|
|
|
|
varargs public int logSize(string mc) {
|
|
unless (mc) return sizeof(_log) / 4;
|
|
|
|
int i, n = 0;
|
|
for (i = 0; i < sizeof(_log); i += 4)
|
|
if (_log[i] && abbrev(mc, _log[i])) n++;
|
|
|
|
return n;
|
|
}
|
|
|
|
int logSet(int i, array(mixed) item) {
|
|
if (i < 0 || i > logSize()) return 0;
|
|
if (i == logSize()) {
|
|
_log += item;
|
|
} else {
|
|
i *= 4;
|
|
_log[i..i+3] = item[0..3];
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
// used to make a temporary copy of the log, in POP3
|
|
public logQuery() { return _log; }
|
|
|