blob: edfcb442e7e87b4d5741ebe858caffb040b51308 (
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
|
# nitter2twitter.tcl
setudef flag nitter
bind pubm * "% *https://twitter.com/*" outputNitterLink
bind pubm * "% *http://twitter.com/*" outputNitterLink
bind pubm * "% *https://x.com/*" outputNitterLink
bind pubm * "% *http://x.com/*" outputNitterLink
set nitterHost "nitter.net"
set nitterAntiFloodSeconds 5
array set ::nitterAntiFlood {}
proc outputNitterLink {nick uhost hand chan text} {
if {[channel get $chan nitter]} {
if {[string index $text 0] == "!"} {
putlog "\[twitter2nitter\] ignoring twitter link from $nick!$uhost in $chan - line starts with ! ($text)"
return 0
}
global nitterHost nitterAntiFlood nitterAntiFloodSeconds
# extract just the host from $uhost
set atPosition [string last "@" $uhost]
set host [string range $uhost [expr {$atPosition + 1}] end]
if {[info exists nitterAntiFlood($host)]} {
set currentTime [clock seconds]
set elapsedTime [expr {$currentTime - $nitterAntiFlood($host)}]
if {$elapsedTime <= $nitterAntiFloodSeconds} {
putlog "\[twitter2nitter\] anti-flood: ignoring twitter link from $nick!$uhost in $chan, ($elapsedTime/$nitterAntiFloodSeconds seconds since last conversion for $host)"
return 1
}
}
set twitterLinks [regexp -all -inline {https?://(?:twitter|x)\.com/[-_.a-zA-Z0-9/]+} $text]
# if someone just sends https://twitter.com/, for example
if {$twitterLinks == ""} { return }
putserv "PRIVMSG $chan :nitter: [join [string map -nocase [list "http://" "https://" "twitter.com" $nitterHost "x.com" $nitterHost] $twitterLinks]]"
set nitterAntiFlood($host) [clock seconds]
}
}
# this should NOT be enabled without care, is currently only used in #hackernews since 'rss' doesn't auto-convert twitter links in submissions
# there are no flood controls etc like above since 'rss' posts fast and this is only to be enabled in special cases
# note: currently `/notice #channel https://twitter.com/twitter` won't work, there needs to be something in front of it. a wildcard in `bind notc` doesn't seem to allow for `*` to match for nothing as it does in `bind pubm` (also tried `%` for "matches 0 or more non-space characters", no dice)
setudef flag nitternotice
bind notc * "% *https://twitter.com/*" processNitterNotice
bind notc * "% *http://twitter.com/*" processNitterNotice
bind notc * "% *https://x.com/*" processNitterNotice
bind notc * "% *http://x.com/*" processNitterNotice
proc processNitterNotice {nick uhost hand text {chan ""}} {
if {$chan == ""} {
# notice was delivered directly to the bot, ignore it
return 0
} else {
if {[channel get $chan nitternotice]} {
global nitterHost
set twitterLinks [regexp -all -inline {https?://(?:twitter|x)\.com/[-_.a-zA-Z0-9/]+} $text]
putserv "NOTICE $chan :nitter: [join [string map -nocase [list "http://" "https://" "twitter.com" $nitterHost "x.com" $nitterHost] $twitterLinks]]"
}
}
}
|
