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
namespace eval ::algos::tclposting {
variable log [logger::init algos::tclposting]
proc intake {uri text data} {
variable log
if {![regexp -nocase -- [join {
{\mtcl(/tk)?\M}
{\.tcl}
{tclsh}
{tcl-lang}
{tcltk}
{tcllib}
{tklib}
{tcl\.tk}
{tcllang}
{tkinter}} | ] $text] &&
![regexp -- {\mTk\M} $text]} \
{
return
}
if {[regexp -nocase -- [join {
{Title Tk}
{Comic-Con Tk}
{\mtvs?\M}
{\d\d( ?"|( |-|)in(ch)?)}
{television}
{DVDVR}
{wrestling}
{tk mclaren}} | ] $text]} \
{
return
}
if {[regexp -nocase -- {chin(a|ese)} $text] && [regexp -nocase -- {theater|movie} $text]} return
return [dict get $data commit record createdAt]
}
}