proc ioB
roc_incomplete {nick uhost hand chan arg} {
global disable binary find_path announce random inc_tag
if { $disable(INCOMPLETE) == 0 } {
set result ""
set inc 0
set now [clock seconds]
foreach eachpath $find_path {
set eachpath [split $eachpath "|"]
set ppath [clock format $now -format [lindex $eachpath 0] -gmt 1]
set check [catch [exec $binary(FIND) $ppath -name $inc_tag -maxdepth [lindex $eachpath 1]] tmp]
if { $check == 0 } {
continue
} else {
incr inc
set result [exec $binary(FIND) $ppath -name $inc_tag -maxdepth [lindex $eachpath 1]]
foreach line [split $result \n] {
if {$line == ""} { continue }
regexp {[^\\]*$} $line line
## string range $line [string length $inc_tag] end
set output $announce(INCOMPLETE)
set output [ioB:replacevar $output "%release" $line]
set output [ioB:basicreplace $output "INC"]
ioB:tsend chan $chan $output
}
}
}
if { $inc == 0 } {
set output $announce(INCOMPLETE)
set output [ioB:replacevar $output "%release" "No Incomplete releases found"]
set output [ioB:basicreplace $output "INC"]
ioB:tsend chan $chan $output
}
}
}