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
		}
	}
}