@@ System: Syslog V1.2
@@ Author: Jonathan A. Booth
@@ Email: kamikaze@N0$PAMimsa.edu
@@ URL: http://www.N0$PAMimsa.edu/~kamikaze/
@@ (remove NOSPAM from hostnames)
@@ Date: March 19, 1998
@@ Author is willing to support: yes
@@
@@ Creates an object that will log messages sent to channels by your
@@ systems. Useful so that Judges and admin can watch what is going on
@@ internally in a system, and provides a logging mechanism at the same
@@ time.
@@
@@ Copyleft under the terms of the GPL by Jonathan A. Booth
@@ (kamikaze@N0$PAMimsa.edu), 1998.
@@
@create Syslog (WIZARD)
@link Syslog (WIZARD) = #2
@set Syslog (WIZARD) = WIZARD
@set Syslog (WIZARD) = MONITOR
&CMD_LOG_END Syslog (WIZARD)=$+log/end *:@select hasflag(%#,Wizard):[eq(words(setr(0,grab(channels(me),secure(%0)*))),1)]=1:1,{@cemit %q0=<%q0> Syslog terminating channel logging.@log End logging %q0.;;@chan/off %q0},0:*,{@pemit %#=Umm.... No.},*:0,{@pemit %#=I am not logging that channel; I cannot stop.}
&CMD_LOG_BEGIN Syslog (WIZARD)=$+log/start *:@select hasflag(%#,Wizard):[and(eq(words(setr(0,grab(channels(),secure(%0)*))),1),not(strmatch(channels(me),*[secure(%0)]*)))]=1:1,{@chan/on %q0;@log Begin logging %q0.;@cemit %q0=<%q0> Syslog starting channel logging.},0:*,{@pemit %#=Umm.... No.},*:0,{@pemit %#=I am either already logging that channel, or cannot see that channel to log it.}
&LST_CHANNELS Syslog (WIZARD)=^\<* *\> *:@sel strmatch(channels(me),*[secure(%0)]*)=1,{@log [secure(%0)] = %2}
&INFO Syslog (WIZARD)=Syslog version 1.2 copyleft under the terms of the GPL by Jonathan A. Booth (kamikaze@imsa.edu), January 5th 1998.%rTo use: +log/<start|end> <channel>, then use '@cemit CHANNEL=<CHANNEL LOG> MESSAGE TO LOG' to have messages logged. Normal channel chatter won't be logged.
@DESCRIBE Syslog (WIZARD)=[u(info)]%r[table(iter(lattr(me/*),after(##,_)),19,78)]