blob: 4792477fd3d823f16f17c78032a60562b966e92f (
about) (
plain) (
blame)
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
144
145
146
147
148
149
|
bind pub * "!c" conoops
proc conoops {nick uhost hand chan text} {
if {$chan eq "#archivebot"} {
if {[isvoice $nick $chan] || [isop $nick $chan]} {
putserv "PRIVMSG $chan :oops, $nick! try !con :c"
} else {
putserv "PRIVMSG #fire-trail :\[atmisc\] ignored \"!c $text\" from $nick!$uhost in $chan - not a voice or an op"
}
}
}
bind pub * "!statussy" statussy
# the following three for systwi
bind pub * "!statys" statussy
bind pub * "!statis" statussy
bind pub * "!s" statussy
proc statussy {nick uhost hand chan text} {
if {$chan eq "#archivebot"} {
if {[isvoice $nick $chan] || [isop $nick $chan]} {
putserv "PRIVMSG $chan :!status $text"
} else {
putserv "PRIVMSG #fire-trail :\[atmisc\] ignored \"!statussy/!statys/!statis/!s $text\" from $nick!$uhost in $chan - not a voice or an op"
}
}
}
bind pub * "!help" abhelp
proc abhelp {nick uhost hand chan text} {
if {$chan eq "#archivebot"} {
putserv "PRIVMSG $chan :$nick: see https://archivebot.readthedocs.io/"
}
}
bind pub * "!ignores" ignores
bind pub * "!igs" ignores
proc ignores {nick uhost hand chan text} {
if {$chan eq "#archivebot"} {
if {[isvoice $nick $chan] || [isop $nick $chan]} {
putserv "PRIVMSG $chan :$nick: http://archivebot.com/ignores/$text?compact=true"
} else {
putserv "PRIVMSG #fire-trail :\[atmisc\] ignored \"!ignores/!igs $text\" from $nick!$uhost in $chan - not a voice or an op"
}
}
}
package require uri
proc loadPublicSuffixList {filename} {
set publicSuffixList [dict create]
set file [open $filename]
while {[gets $file line] >= 0} {
if {[string trim $line] eq "" || [string index $line 0] eq "/" || [string index $line 0] eq "!"} {
continue
}
# Normalize the line for processing
set line [string map {"*." ""} $line]
dict set publicSuffixList $line 1
}
close $file
return $publicSuffixList
}
proc extractRegistrableDomain {domain publicSuffixList} {
set parts [split $domain "."]
set partCount [llength $parts]
for {set i 0} {$i < $partCount} {incr i} {
set suffix [join [lrange $parts $i end] "."]
if {[dict exists $publicSuffixList $suffix]} {
if {$i > 0} {
return [join [lrange $parts [expr {$i - 1}] end] "."]
} else {
return $domain
}
}
}
return $domain
}
set PSLfilename "public_suffix_list.dat"
set thePSL [loadPublicSuffixList $PSLfilename]
proc igDomain {nick uhost hand chan text reStart reEnd} {
if {$chan eq "#archivebot"} {
if {[isvoice $nick $chan] || [isop $nick $chan]} {
global thePSL
set components [uri::split $text]
set hostname [dict get $components "host"]
set registrableDomain [extractRegistrableDomain $hostname $thePSL]
set escapedDomain [string map { "." "\\." } $registrableDomain]
putserv "PRIVMSG $chan :$nick: $reStart$escapedDomain$reEnd"
} else {
putserv "PRIVMSG #fire-trail :\[atmisc\] ignored \"!igd $text\" from $nick!$uhost in $chan - not a voice or an op"
}
}
}
bind pub * "!igd" igd
proc igd {nick uhost hand chan text} {
igDomain $nick $uhost $hand $chan $text "^(http|ftp)s?://(\[^/\]*\[@.\])?" "\\.?(:\\d+)?/"
}
bind pub * "!ignd" ignd
proc ignd {nick uhost hand chan text} {
igDomain $nick $uhost $hand $chan $text "^(http|ftp)s?://(?!(\[^/\]*\[@.\])?" "\\.?(:\\d+)?/)"
}
bind pub * "!b" bmeme
proc bmeme {nick uhost hand chan text} {
if {$chan eq "#jseater"} {
return
}
putserv "PRIVMSG $chan :🅱️"
}
bind pub * "!ping" pingcmd
proc pingcmd {nick uhost hand chan text} {
if {$text eq ""} {
putserv "PRIVMSG $chan :$nick: pong!"
} else {
putserv "PRIVMSG $chan :$nick: pong ($text)!"
}
}
bind pub * "!ß" punycode
proc punycode {nick uhost hand chan text} {
putserv "PRIVMSG $chan :...scheiße!"
putserv "PRIVMSG $chan :UnicodeError: ('IDNA does not round-trip', b'xn--scheie-fta', b'scheisse')"
}
bind pub * !z utctime
bind pub * !utc utctime
proc utctime {nick uhost hand chan text} {
set now [clock seconds]
set iso_time [clock format $now -format "%Y-%m-%dT%H:%M:%SZ" -gmt true]
putserv "PRIVMSG $chan :$iso_time"
}
|
