53 lines
1.3 KiB
Plaintext
53 lines
1.3 KiB
Plaintext
|
|
proc ::detectads::ts {ts} {
|
|
set file [$ts get file]
|
|
|
|
if {[$ts flag "Addetection"]} {
|
|
::auto::log " $file - Already ad-detected." 2
|
|
return
|
|
}
|
|
|
|
if {[::auto::inuse $ts]} {
|
|
::auto::log " $file - In use." 2
|
|
return
|
|
}
|
|
|
|
if {[queue check $ts detectads]} {
|
|
::auto::log " $file - Already queued for DetectAds." 2
|
|
return
|
|
}
|
|
|
|
if {[queue check $ts decrypt]} {
|
|
::auto::log " $file - Already queued for Decryption." 2
|
|
return
|
|
}
|
|
|
|
# Read auto detect options file
|
|
set ado_file "[file dirname $file]/.autodetectads"
|
|
set opts ""
|
|
if {[file exists "$ado_file"] } {
|
|
set hand [open $ado_file]
|
|
set opts [gets $hand]
|
|
::auto::log " $file - Options $opts" 2
|
|
close $hand
|
|
}
|
|
|
|
# Enqueue file
|
|
set qtime [$::auto::settings _tval_setting "detectads_queue_time"]
|
|
set cmd [list /mod/webif/plugin/detectads/detectads -aq [$ts get file] -t $qtime ]
|
|
append cmd $opts
|
|
::auto::log $cmd 2
|
|
::auto::log [exec {*}$cmd] 2
|
|
::auto::log " $file - Queued for ad-detection. Options $opts" 0
|
|
}
|
|
|
|
proc ::detectads::directory {dir} {
|
|
::auto::direntries $dir ::detectads::ts
|
|
}
|
|
|
|
proc ::detectads::run {} {
|
|
::auto::autoflagscan $::auto::root detectads ::detectads::directory
|
|
}
|
|
|
|
::auto::register detectads 300
|