blob: 6e37c7e866e0784bc552ae1c2400abd8ac238d86 (
plain)
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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
#!/bin/bash
dirs='/srv/arch-mirror/arch/arch/archlinux32/irc-logs/'
declare -A colors
create_color() {
if [ -z "${colors["$1"]}" ]; then
colors["$1"]=$(
find "${dirs}" -type f -name '*-*-*.html' -exec \
grep -h "style=\"color:#[0-9a-f]\{6\}\"><$1>" {} \; | \
sed 's@.* style="color:#\([0-9a-f]\{6\}\)"><.*@\1@' | \
sort -u
)
fi
if [ -z "${colors["$1"]}" ]; then
colors["${b}"]=$(hexdump -n 4 -e '4/4 "%08X" 1 "\n"' /dev/urandom | head -c 6)
# >&2 printf 'unkown user "%s"\n' "$1"
# exit 42
fi
if [ $(echo "${colors["$1"]}" | wc -l) -ne 1 ]; then
>&2 printf 'user "%s" has multiple colors\n' "$1"
exit 42
fi
}
# the desired format is:
# "time nick | msg"
# "time --> | nick ... channel"
# "time <-- | nick ... (reason)"
# "time -- | old-nick new-nick"
# "time * | nick action"
# we reformat other formats accordingly
if [ "$2" = 'tyzoid' ]; then
channel="$3"
sed '
s/^\[\([^]]\+\)] \*\*\* Joins: \(\S\+\) .*$/\1 --> | \2 has joined '"${channel}"' /
t
s/^\[\([^]]\+\)] \*\*\* Quits: \(\S\+\) (\(.*\))$/\1 <-- | \2 has quit (\3)/
t
s/\[\([^]]\+\)] <\(\S\+\)> /\1 \2 | /
t
d
'
elif [ "$2" = 'html' ]; then
channel="$3"
sed -n '
/^<font size="2">/{
s@^<font size="2">(\([^)]\+\))</font><b> @\1 @
/entered the room\.<\/b><br\/>$/{
s@^\(\S\+\) \(.*\S\) \[.*] entered the room\.<\/b><br\/>$@\1 --> | \2 has joined '"${channel}"' @
p
d
}
/ left the room /{
s@^\(\S\+\) \(.*\S\) left the room (quit: \(.*\))\.</b><br/>$@\1 <-- | \2 has quit (\3)@
p
d
}
/ left the room\./{
s@^\(\S\+\) \(.*\S\) left the room\.</b><br/>$@\1 <-- | \2 has quit (Quit: \2)@
p
d
}
/ is now known as /{
s@^\(\S\+\) \(.*\S\)\s*</b><br/>$@\1 -- | \2@
p
d
}
d
}
\@</font> <b>\*\*\*\S\+</b></font> @{
s@^<font color="#[0-9A-F]\{6\}"><font size="2">(\([^)]\+\))</font> <b>\*\*\*\(\S*\)</b></font> \(.*\)<br/>$@\1 * | \2 \3@
p
d
}
/<font size="2">/{
s@^<font color="#[0-9A-F]\{6\}"><font size="2">(\([^)]\+\))</font> <b>\(\S\+\):</b></font> @\1 \2 | @
s@<br/>$@@
p
d
}
'
else
cat
fi | \
sed '
s/([^()]*@[^()]*) //
' | \
sed '
:a
$!N
s/\n\s\+ | / /
ta
P
D
' | \
sed '
s@\(\s\)\(https\?://\S\+\)@\1<a href="\2" target="_blank">\2</a>@g
' | \
while read -r a b dummy c; do
if [ "${dummy}" != '|' ]; then
>&2 printf 'wrong dummy "%s"\n' "${dummy}"
exit 42
fi
time=$(
date -d@$(($(date -d"${a}" +%s)+3600*$1)) +%T
)
if [ "${b}" = '-->' ]; then
name="${c%% *}"
channel="${c##* }"
printf '<a href="#%s" name="%s" class="time">[%s]</a> -!- <span class="join">%s</span> has joined %s\n<br />\n' \
"${time}" "${time}" "${time}" "${name}" "${channel}"
continue
fi
if [ "${b}" = '<--' ]; then
name="${c%% *}"
reason="${c##* (}"
reason="${reason%)*}"
printf '<a href="#%s" name="%s" class="time">[%s]</a> -!- <span class="quit">%s</span> has quit [%s]\n<br />\n' \
"${time}" "${time}" "${time}" "${name}" "${reason}"
continue
fi
if [ "${b}" = '--' ]; then
before="${c%% *}"
after="${c##* }"
printf '<a href="#%s" name="%s" class="time">[%s]</a> <span class="nick">%s</span> is now known as <span class="nick">%s</span>\n<br />\n' \
"${time}" "${time}" "${time}" "${before}" "${after}"
continue
fi
if [ "${b}" = '*' ]; then
nick="${c%% *}"
action="${c#* }"
create_color "${nick}"
printf '<a href="#%s" name="%s" class="time">[%s]</a> <span class="person" style="color:#%s">* %s %s</span>\n<br />\n' \
"${time}" "${time}" "${time}" "${colors["${nick}"]}" "${nick}" "${action}"
continue
fi
create_color "${b}"
printf '<a href="#%s" name="%s" class="time">[%s]</a> <span class="person" style="color:#%s"><%s></span> %s\n<br />\n' \
"${time}" "${time}" "${time}" "${colors["${b}"]}" "${b}" "${c}"
done
|