40 lines
1.0 KiB
Plaintext
Executable File
40 lines
1.0 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
source /mod/webif/plugin/detectads/harness.jim
|
|
require ts.class settings.class
|
|
|
|
set logfile "/mod/tmp/detectads.log"
|
|
set settings [settings]
|
|
if {[lindex $argv 0] eq "-d"} {
|
|
set argv [lrange $argv 1 end]
|
|
set loglevel 2
|
|
set logfd stdout
|
|
puts "DEBUG ON"
|
|
} else {
|
|
set loglevel [$settings _nval_setting "autolog"]
|
|
set logfd [open $logfile "a+"]
|
|
}
|
|
|
|
proc log {msg {level 1}} {
|
|
if {$level > $::loglevel} return
|
|
puts $::logfd "[\
|
|
clock format [clock seconds] -format "%d/%m/%Y %H:%M:%S"\
|
|
] RM([pid])- $msg"
|
|
flush $::logfd
|
|
}
|
|
|
|
|
|
if {[$settings _nval_setting "detectads_detwrec"]} {
|
|
if {$loglevel == 2} {
|
|
puts "[clock format [clock seconds] -format "%d/%m/%Y %H:%M:%S"] detectads: $argv"
|
|
log "Recmon: $argv" 2
|
|
}
|
|
if {[lindex $argv 0] ne "-start"} {
|
|
exit
|
|
}
|
|
|
|
set file [lindex $argv 1]
|
|
set ts [ts fetch "$file.ts"]
|
|
::detectads::chancheck $ts
|
|
}
|