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
|
if (word(2 $loadinfo()) != [pf]) { load -pf $word(1 $loadinfo()); return; };
#
# Here's the plan:
# This is version 2!
#
# We want a script that will auto-log each channel to a separate logfile,
# and then log everything else to a global logfile.
#
# For right now I've had to assume you only use one server.
#
#
load addset;
addset log_directory str;
addset server_log_name str;
addset channel_log_name str;
set log_directory ~/.logs;
set server_log_name irc.$${server}.log;
set channel_log_name irc.$${server}.$${channel}.log;
# Shims
on #^server_state -115 "% % CONNECTING" { logman.open_server_log $0; };
on #^server_state -115 "% % CLOSED" { logman.close_server_log $0; };
on #^channel_sync -115 "% % %" { logman.open_channel_log $0 $2; };
on #^channel_lost -115 "% %" { logman.close_channel_log $1 $0; };
# Create the server log if it doesn't exist
alias logman.check_server_log_existance (server) {
xecho -b Checking for existance of log server.${server};
if (logctl(REFNUM server.${server}) == []) {
xecho -b Does not exist -- creating it;
@ :filename = **server_log_name;
xecho -b Filename is $filename;
log new
name server.${server}
filename $log_directory/$filename
type server
server $server
add $server
mangle all
level ALL,-PUBLIC,-ACTION,-JOIN,-NICK,-TOPIC,-PART,-QUIT,-KICK,-MODE;
};
};
# Create a channel's log if it doesn't exist
alias logman.check_channel_log_existance (server, channel) {
xecho -b Checking for existance of log $channel on $server;
if (logctl(REFNUM channel.${server}.${channel}) == []) {
xecho -b Does not exist -- creating it;
@ :filename = **channel_log_name;
xecho -b Filename is $filename;
log new
name channel.${server}.${channel}
filename $log_directory/$filename
type target
server $server
add $channel
mangle all
level ALL;
};
};
# Open the server log if it isn't open
alias logman.open_server_log (servref, void) {
@logman.check_server_log_existance($servref);
log refnum server.${servref} on;
};
# Close the server log if it's open
alias logman.close_server_log (servref, void) {
log refnum server.${servref} off;
};
# Open a channel log if it isn't open
alias logman.open_channel_log (channel, servref, void) {
@logman.check_channel_log_existance($servref $channel);
log refnum channel.${servref}.${channel} on;
};
# Close a channel log if it isn't open
alias logman.close_channel_log (channel, servref, void) {
log refnum channel.${servref}.${channel} off;
};
#hop'2k9
|
