/usr/share/ircII/script/whowas is in ircii 20060725-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | # $eterna: whowas,v 1.2 2001/08/12 15:57:12 mrg Exp $
#
# Tame the WHOWAS history!
# by Mycroft (mycroft@ai.mit.edu)
# 311 312 313 314 316 317 318 319 353 401 changed for 2.2.2 (server == $0)
ALIAS STRIPCHAN {
assign function_return $strip(#+-*/\\={}[]<>!@$$%^~`,?:|'\". $0-)
}
ALIAS PURGE {
foreach $0 i
{
purge $0.$i
}
^assign -i
^assign -$0
}
ALIAS WHOIS {
purge whowas.$stripchan($0)
//whois $0
}
ALIAS WHOWAS {
purge whowas.$stripchan($0)
//whowas $0
}
ON #^SEND_MSG 69 * {
purge whowas.$stripchan($0)
}
ON #^SEND_NOTICE 69 * {
purge whowas.$stripchan($0)
}
ON #^CONNECT 69 * {
purge whowas
}
ON #^TIMER 69 * {
foreach whowas i
{
if (time() - whowas.$(i).time > 60)
{
purge whowas.$i
}
}
assign -i
}
ON ^311 * {
_whowas_314 is $1-
assign -whowas.last
}
ON ^319 * {
echo *** on channels: $1-
}
ON ^301 * {
echo *** $0 is away: $1-
}
ON ^313 * {
echo *** $1 is an IRC operator
}
ON ^317 * {
if ([$2] == [1])
{
echo *** $1 has been idle 1 second
}
{
echo *** $1 has been idle $2 seconds
}
}
ON ^314 * {
_whowas_start $stripchan($1) $1-
}
ALIAS _WHOWAS_START {
assign whowas.$0.314 $1-
assign whowas.$0.time $time()
assign whowas.last $0 $stripchan($2).$stripchan($3)
}
ON ^312 * {
if (whowas.last)
{
_whowas_do $whowas.last $stripchan($1) $1-
}
{
_whowas_312 $1-
}
}
ALIAS _WHOWAS_DO {
if ([$(whowas.$0.past.$1.$2)])
{
}
{
assign whowas.$0.past.$1.$2 1
assign whowas.$0.312 $3-
_whowas_314 was $(whowas.$0.314)
_whowas_312 $3-
}
assign -whowas.last
}
ALIAS _WHOWAS_314 {
if ([$5] == [*])
{
echo *** $2 $0 $3@$4 \($6-)
}
{
echo *** $2 $0 $3@$4 \($6-) on channel $5
}
}
ALIAS _WHOWAS_312 {
echo *** on irc via server $1 \($2-)
}
|