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
namespace eval ::algos::tclposting {
variable log [logger::init algos::tclposting]
proc intake {uri text data} {
variable log
# high high confidence strings
if {[regexp -nocase -- [join {
{\.tcl}
{tclsh}
{tcl-lang}
{tcltk}
{tcllib}
{tklib}
{tcl\.tk}
{tcllang}
{tkinter}} | ] $text]} \
{
return [dict get $data commit record createdAt]
}
# bare minimum
if {![regexp -nocase -- {\mtcl(/tk)?\M} $text] &&
![regexp -- {\mTk\M} $text]} return
# blocklist
if {[regexp -nocase -- [join {
{SYTRAL}
{F[eê]te ?des ?Lumi[eè]res}
{m[eé]tro}
{\mLyon(naise?s?)?\M}
{TCL\+Ve?Lo?}
{Wok Mix}
{youtu\.?be(\.com)[^ ]+(tk|tcl)}
{Title Tk}
{Tk (you|DM)\M}
{Comic-Con Tk}
{\mtvs?\M}
{\d\d( ?"|( |-|)in(ch)?)}
{television}
{Projector}
{tcl-bookreviews}
{TopTenTuesday}
{DVDVR}
{wrestling}
{tk mclaren}} | ] $text]} return
# "TCL Chinese Theater"
if {[regexp -nocase -- {chin(a|ese)} $text] &&
[regexp -nocase -- {theater|movie} $text]} return
return [dict get $data commit record createdAt]
}
}