Upload BT.Vote.tcl

BlackTools/Modules/BT.Vote.tcl

@@ -0,0 +1,675 @@
+#########################################################################
+##          BlackTools - The Ultimate Channel Control Script           ##
+##                    One TCL. One smart Eggdrop                       ##
+#########################################################################
+#############################   VOTE TCL   ##############################
+#########################################################################
+##						                       ##
+##   BlackTools  : http://blacktools.tclscripts.net	               ##
+##   Bugs report : http://www.tclscripts.net/	                       ##
+##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL	       ##
+##   Online Help : irc://irc.undernet.org/tcl-help 	               ##
+##                 #TCL-HELP / UnderNet                                ##
+##                 You can ask in english or romanian                  ##
+##					                               ##
+#########################################################################
+
+###
+proc blacktools:vote:greetshow {nick host hand chan} {
+    global black
+if {[setting:get $chan votegreet]} {
+if {[isbotnick $nick]} { return }
+if {[info exists black(turnOnFlood:$chan)]} {
+	return
+}
+if {[matchattr $hand nmo|MA $chan]} {
+    set access 1
+} else {
+    set access 0
+}
+    set mask_num [get:mask "vote" $chan]
+    set get_host [return_mask $mask_num $host $nick]
+    set userlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$userlang == ""} { set userlang "[string tolower $black(default_lang)]" }
+if {$access == 1} {
+    set list [blacktools:voting_list $chan $userlang "" 1]
+} else {
+    set list [blacktools:voting_list $chan $userlang "" 0]
+}
+if {$list == 0} {return}
+    set ids ""
+foreach entry $list {
+    set status [lindex $entry 3]
+if {$status == 0} {continue}
+    set id [lindex $entry 0]
+if {$access == 1} {
+    set vote [blacktools:vote:already_vote $chan $id $hand $get_host 0]
+} else {
+    set vote [blacktools:vote:already_vote $chan $id $hand $get_host 1]
+}
+if {$vote == 0} {
+    lappend ids $id
+    }
+}
+if {$ids != ""} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan vote.42 [list [join $ids ", "]]
+        }
+    }
+}
+
+
+###
+proc blacktools:vote_new_first {} {
+    global black
+    set expire [blacktools:first_expire]
+foreach tmr [utimers] {
+if {[string match "*blacktools:vote:expire*" [join [lindex $tmr 1]]]} {
+	killutimer [lindex $tmr 2]
+	}
+}
+if {$expire != 0} {
+if {[info exists black(vote_expire)]} {
+if {$expire <= $black(vote_expire)} {
+    set black(vote_expire) $expire
+    utimer [expr $expire - [clock seconds]] [list blacktools:vote:expire]
+    }
+} else {
+    set black(vote_expire) $expire
+    utimer [expr $expire - [clock seconds]] [list blacktools:vote:expire]
+        }
+    } else {
+if {[info exists black(vote_expire)]} {
+    unset black(vote_expire)
+        }
+    }
+}
+
+###
+proc blacktools:vote:expire {} {
+    global black
+    set file [open $black(voting_file) r]
+    set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
+	set temp "$black(tempdir)/vote_temp.$timestamp"
+	set tempwrite [open $temp w]
+while {[gets $file line] != -1} {
+    set expire [lindex $line 7]
+if {[string equal -nocase [lindex $line 0] "VOTE"]} {
+    puts $tempwrite $line  
+    continue
+}
+if {[info exists black(vote_expire)]} {
+if {$expire <= $black(vote_expire)} {
+    set replace_line [lreplace $line 8 8 "0"]
+    putlog "1 $replace_line"
+    puts $tempwrite $replace_line
+    } else {
+    puts $tempwrite $line       
+    }
+} elseif {$expire <= [clock seconds]} {
+    set replace_line [lreplace $line 8 8 "0"]
+    puts $tempwrite $replace_line
+    putlog "2 $replace_line"
+        } else {
+    puts $tempwrite $line
+        }
+    }
+    close $file
+    close $tempwrite
+    file rename -force $temp $black(voting_file)
+
+    set read_expire [blacktools:first_expire]
+if {$read_expire == 0} {
+if {[info exists black(vote_expire)]} {
+    unset black(vote_expire)
+}
+    return
+} else {
+    utimer [expr $read_expire - [clock seconds]] [list blacktools:vote:expire]
+    set black(vote_expire) $read_expire
+    }
+}
+
+###
+proc vote:process {nick host uhost hand chan chan1 type arg} {
+global botnick black username
+if {![setting:get $chan vote]} {
+	return
+}
+	set cmd_status [btcmd:status $chan $hand "vote" 0]
+if {$cmd_status == "1"} { 
+	return 
+}
+if {[matchattr $hand q]} { blacktools:tell_v2 $nick $host $hand $chan $chan1 gl.glsuspend none
+	return
+}
+if {[matchattr $hand -|q $chan]} { blacktools:tell_v2 $nick $host $hand $chan $chan1 gl.suspend none
+	return
+}
+    set word [lindex $arg 0]
+    set text [lindex $arg 1]
+    set id [lindex $arg 2]
+    set userlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
+if {$userlang == ""} { set userlang "[string tolower $black(default_lang)]" }
+switch [string tolower $word] {
+    add {
+if {[matchattr $hand nmo|MA $chan]} {
+if {[lindex [split $arg] 1] == ""} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.1 none
+    return
+}
+    set options [regexp -nocase -all -inline {\-option\s.+?(?=(-|$))} $text]
+    set voting_name [regexp -nocase -inline {.+?(?=(-))} $text]
+    set time [regexp -nocase -inline {\-time\s.+?(?=(-|$))} $text]
+    set type [regexp -nocase -inline {\-type\s.+?(?=(-|$))} $text]
+    set option_list ""
+    set show_list ""
+    set letter_num 0
+foreach option $options {
+    set letter [blacktools:return_letter $letter_num]
+    set option [lrange [split $option] 1 end]
+    lappend option_list [concat [join $option]]
+    lappend show_list [concat [join "\002$letter\002: $option"]]
+    incr letter_num
+}
+if {$option_list == ""} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.1 none
+    return
+}
+if {$time != ""} {
+    set time [concat [lrange [join $time] 1 end]]
+    set check_time [catch {clock scan $time -format "%d/%m/%y %H:%M"} time_seconds]
+if {$check_time == 1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.2 none
+    return
+    }
+    set valid_time [expr $time_seconds - [clock seconds]]
+if {$valid_time < 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.2 none
+    return
+    }
+}
+if {![info exists time_seconds]} {
+    set time_seconds 0
+}
+
+if {$type != ""} {
+    set type [concat [lrange [join $type] 1 end]]
+if {![regexp {[01]} $type]} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.3 none
+    return
+    }
+} else {set type $black(vote:type)}
+
+    set voting_exists [blacktools:voting_exists $chan [join $voting_name] 0]
+if {$voting_exists != -1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.4 none
+    return
+}
+    set addtime [clock seconds]
+    set id [expr [blacktools:voting_id $chan] + 1]
+    set line "VOTING $id $chan $hand $voting_name [list $option_list] $addtime $time_seconds 1 $type"
+    set file [open $black(voting_file) a]
+    puts $file $line
+    close $file
+if {$time_seconds == 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.5 [list [concat [join $voting_name]] [join $show_list ", "] $id]
+            } else {
+    blacktools:vote_new_first
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.6 [list [concat [join $voting_name]] [join $show_list ", "] [return_time_2 $userlang [expr $time_seconds - $addtime]] $id]
+        }
+    }
+}
+    time {
+if {[matchattr $hand nmo|MA $chan]} {
+if {![regexp {^[0-9]+$} $id]} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.39 none
+    return
+}
+    set time [lrange $text 1 end]
+    set check_time [catch {clock scan $time -format "%d/%m/%y %H:%M"} time_seconds]
+if {$check_time == 1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.2 none
+    return
+        }
+    set valid_time [expr $time_seconds - [clock seconds]]
+if {$valid_time < 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.2 none
+    return
+        }
+   set voting_exists [blacktools:voting_exists $chan $id 1]
+if {$voting_exists == -1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.8 $id
+    return
+}
+    set status [lindex $voting_exists 0]
+if {$status == 0} {
+     blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.11 [list $id]
+     return
+ }
+    blacktools:voting_extend $chan $id $time_seconds
+    blacktools:vote_new_first
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.40 [list $id [return_time_2 $userlang [expr $time_seconds - [clock seconds]]]]
+    }
+}
+
+    list {
+    set opt [lindex $arg 3]
+    set vote_next [lindex $arg 4]
+if {![regexp {^[0-9]+$} $id]} {
+    set vote_list 1
+if {[matchattr $hand nmo|MA $chan]} {
+    set list [blacktools:voting_list $chan $userlang "" 1]
+} else {
+    set list [blacktools:voting_list $chan $userlang "" 0]
+}
+if {$list == 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.30 none
+    return
+    }
+    module:getinfo $nick $host $hand $chan $chan1 $type $list "vote" "0" [list $id]
+} else {
+    if {[matchattr $hand nmo|MA $chan]} {
+    set list [blacktools:voting_list $chan $userlang $id 1]
+} else {
+    set list [blacktools:voting_list $chan $userlang $id 0]
+    }
+if {$list == 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.33 $id
+    return
+        }
+     module:getinfo $nick $host $hand $chan $chan1 $type $list "vote" "0" [list $opt $id $vote_next]
+    }
+}
+    del {
+if {[matchattr $hand nmo|MA $chan]} {
+if {![regexp {^[0-9]+$} $id]} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.7 none
+    return
+}
+  set voting_exists [blacktools:voting_exists $chan $id 1]
+if {$voting_exists == -1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.8 [list $id]
+    return
+}
+    blacktools:voting_delete $chan $id
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.9 [list $id]
+    blacktools:vote_new_first
+    }
+}
+    end {
+if {[matchattr $hand nmo|MA $chan]} {
+if {![regexp {^[0-9]+$} $id]} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.10 none
+    return
+}
+    set voting_exists [blacktools:voting_exists $chan $id 1]
+if {$voting_exists == -1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.8 [list $id]
+    return
+}
+    set status [lindex $voting_exists 0]
+if {$status == 0} {
+     blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.11 [list $id]
+     return
+ }
+    blacktools:voting_end $chan $id
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.11 [list $id]
+    blacktools:vote_new_first
+    }
+}
+    default {
+    set get_letter [string toupper $id]
+if {![regexp {^[0-9]+$} $word]} {
+if {$type == "0"} {
+	blacktools:tell_v2 $nick $host $hand $chan $chan1 gl.instr [list "vote"]
+}
+if {$type == "1"} {
+	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick [list "vote"]
+}
+if {$type == "2"} {
+	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv [list "vote"]
+    }   
+} else {
+    set voting_exists [blacktools:voting_exists $chan $word 1]
+if {$voting_exists == -1} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.8 [list $word]
+    return
+}
+    set status [lindex $voting_exists 0]
+    set access [lindex $voting_exists 1]
+    set voting_name [lindex $voting_exists 2]
+    set options [lindex $voting_exists 3]
+    set expires [lindex $voting_exists 4]
+    set handle [lindex $voting_exists 5]
+ if {$access == 1} {
+if {![matchattr $hand $black(localflags) $chan] && ![matchattr $hand $black(glflags)]} {
+    return
+    }
+ }
+    set letter_num 0
+    array set op [list]
+    set show_list ""
+ foreach option $options {
+    set letter [blacktools:return_letter $letter_num]
+    set op($letter) [concat [join [split $option]]]
+    lappend show_list [concat [join "\002$letter\002: [split $option]"]]
+    incr letter_num
+}
+if {$get_letter == ""} {
+    set votes [blacktools:get_votes $chan $word]
+    set sum [lindex $votes 1]
+    set votes [lindex $votes 0]
+if {$status == 1} {set read_status $black(say.$userlang.vote.13)} else {set read_status $black(say.$userlang.vote.14)}
+if {$access == 1} {set access $black(say.$userlang.vote.15)} else {set access $black(say.$userlang.vote.16)}
+
+if {$expires == 0} {
+    set expire_time "N/A"
+} else {
+    set expire_time [return_time_2 $userlang [expr $expires - [clock seconds]]]
+}
+if {$status == 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.38 [list $word $voting_name "" $read_status $access $expire_time $handle]
+} else {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.17 [list $word $voting_name "" $read_status $access $expire_time $handle]
+}  
+foreach w [wordwrap [join $show_list ", "] 440] {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.41 [list $w]
+}
+if {$votes == 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.18 none
+}  else {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.19 [list [join $votes ", "] $sum]
+}
+    return
+}
+if {$status == 0} {
+     blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.20 [list $id]
+     return
+ }
+if {![regexp {^[A-Z]$} $get_letter]} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.21 none
+    return
+}
+if {![info exists op($get_letter)]} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.22 [list $get_letter [join $show_list ", "]]
+    return
+}
+    set mask_num [get:mask "vote" $chan]
+    set get_host [return_mask $mask_num $uhost $nick]
+if {$access == 1} {
+    set vote [blacktools:vote_now $hand $get_host $chan $word 0 $get_letter]
+} else {
+    set vote [blacktools:vote_now $nick $get_host $chan $word 1 $get_letter]
+                }
+if {$vote == 0} {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.23 none
+} else {
+    blacktools:tell_v2 $nick $host $hand $chan $chan1 vote.24 [list $get_letter $word $voting_name]
+                }
+            }
+        }
+    }
+}
+
+
+###
+proc blacktools:return_letter {num} {
+    global black
+    set letters "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z"
+    return [lindex $letters $num]
+}
+
+###
+proc blacktools:get_votes {chan id} {
+    global black
+    set file [open $black(voting_file) r]
+    set found_vote 0
+    set output ""
+    array set votes [list]
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 1]
+if {[string equal -nocase $chan $read_chan] && [string equal -nocase [lindex $line 0] "VOTE"] && [string equal -nocase [lindex $line 2] $id]} {
+    lappend votes([lindex $line 5]) 1
+        }
+    }
+    close $file
+if {[array size votes] == 0} {
+    return 0
+}
+    set sum 0
+foreach v [lsort -decreasing -increasing [array names votes]] {
+    set sum [expr $sum + [llength $votes($v)]]
+}
+foreach v [lsort -decreasing -increasing [array names votes]] {
+    lappend output "\002$v\002 [expr [expr [llength $votes($v)] * 100.0 ] / $sum] %"
+    }
+    return [list $output $sum]
+}
+
+
+###
+proc blacktools:vote:already_vote {chan id hand host type} {
+    global black
+    set file [open $black(voting_file) r]
+    set found_vote 0
+    while {[gets $file line] != -1} {
+    set read_chan [lindex $line 1]
+if {[string equal -nocase $chan $read_chan] && [string equal -nocase [lindex $line 0] "VOTE"] && [string equal -nocase [lindex $line 2] $id] && ([string equal -nocase [lindex $line 3] $hand] && $type == "0" || [string equal -nocase [lindex $line 4] $host] && $type == "1")} {
+    set found_vote 1
+    break
+    }
+}
+    close $file
+    return $found_vote
+}
+
+
+###
+proc blacktools:vote_now {hand host chan id type vote} {
+    global black
+    set file [open $black(voting_file) r]
+    set found_vote 0
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 1]
+if {[string equal -nocase $chan $read_chan] && [string equal -nocase [lindex $line 0] "VOTE"] && [string equal -nocase [lindex $line 2] $id] && ([string equal -nocase [lindex $line 3] $hand] && $type == "0" || [string equal -nocase [lindex $line 4] $host] && $type == "1")} {
+    set found_vote [list [lindex $line 4] [lindex $line 5]]
+    break
+    }
+}
+    close $file
+if {$found_vote == 0} {
+    set file [open $black(voting_file) a]
+    puts $file "VOTE $chan $id $hand $host $vote [unixtime]"
+    close $file
+    return 1
+    } else {return 0}
+}
+
+###
+proc blacktools:voting_delete {chan id} {
+    global black
+    set file [open $black(voting_file) r]
+    set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
+	set temp "$black(tempdir)/vote_temp.$timestamp"
+	set tempwrite [open $temp w]
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 2]
+    set read_chan_vote [lindex $line 1]
+    set read_id [lindex $line 1]
+    set read_id_vote [lindex $line 2]
+    set read_type [lindex $line 0]
+if {([string equal -nocase $read_chan $chan] && [string equal -nocase $read_id $id] && [string equal -nocase $read_type "VOTING"]) || ([string equal -nocase $read_chan_vote $chan] && [string equal -nocase $read_id_vote $id] && [string equal -nocase $read_type "VOTE"])} {
+    continue
+        } else {
+    puts $tempwrite $line
+        }
+    }
+    close $file
+    close $tempwrite
+    file rename -force $temp $black(voting_file)
+}
+
+###
+proc blacktools:voting_extend {chan id time} {
+    global black
+     set file [open $black(voting_file) r]
+    set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
+	set temp "$black(tempdir)/vote_temp.$timestamp"
+	set tempwrite [open $temp w]
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 2]
+    set read_id [lindex $line 1]
+if {[string equal -nocase $read_chan $chan] && [string equal -nocase $read_id $id]} {
+    set replace_line [lreplace $line 7 7 "$time"]
+    continue
+        } else {
+    puts $tempwrite $line
+        }
+    }
+    close $file
+if {[info exists replace_line]} {
+    puts $tempwrite $replace_line
+    }
+    close $tempwrite
+    file rename -force $temp $black(voting_file)
+}
+
+###
+proc blacktools:voting_end {chan id} {
+    global black
+    set file [open $black(voting_file) r]
+    set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
+	set temp "$black(tempdir)/vote_temp.$timestamp"
+	set tempwrite [open $temp w]
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 2]
+    set read_id [lindex $line 1]
+if {[string equal -nocase $read_chan $chan] && [string equal -nocase $read_id $id]} {
+    set replace_line [lreplace $line 8 8 "0"]
+    continue
+        } else {
+    puts $tempwrite $line
+        }
+    }
+    close $file
+if {[info exists replace_line]} {
+    puts $tempwrite $replace_line
+    }
+    close $tempwrite
+    file rename -force $temp $black(voting_file)
+}
+
+###
+proc blacktools:voting_list {chan lang text who} {
+    global black
+    set counter 0
+    set file [open $black(voting_file) r]
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 2]
+    set read_type [lindex $line 0]
+    set access [lindex $line 9]
+    set read_chan_vote [lindex $line 1]
+    set show_list ""
+if {$text == ""} {
+if {[string equal -nocase $chan $read_chan] && [string equal -nocase $read_type "VOTING"]} {
+    set status [lindex $line 8]
+if {$who == 0 && $access == 1} {continue}
+    set voting_name [lindex $line 4]
+    set options [lindex $line 5]
+    set handle [lindex $line 3]
+    set letter_num 0
+ foreach option $options {
+    set letter [blacktools:return_letter $letter_num]
+    set op($letter) [concat [join [split $option]]]
+    lappend show_list [concat [join "\002$letter\002: [split $option]"]]
+    incr letter_num
+}
+    set expires [lindex $line 7]
+    set id [lindex $line 1]
+if {$access == 1} {set access $black(say.$lang.vote.15)} else {set access $black(say.$lang.vote.16)}
+if {$expires == 0} {
+    set expire_time "N/A"
+} else {
+    set expire_time [return_time_2 $lang [expr $expires - [unixtime]]]
+}
+    lappend output [list $id $voting_name [join $show_list ", "] $status $access $expire_time $handle]
+            }
+        } else {
+if {[string equal -nocase $chan $read_chan_vote] && [string equal -nocase $read_type "VOTE"]} {
+    incr counter
+    set hand [lindex $line 3]
+    set host [lindex $line 4]
+    set option [lindex $line 5]
+    set time [lindex $line 6]
+if {$who == 0 && $access == 1} {continue}
+    lappend output [list $counter $hand $host $option $time]
+        }
+    }
+}
+    close $file
+if {![info exists output]} {return 0} else {
+    return $output
+    }
+}
+
+###
+proc blacktools:voting_exists {chan get type} {
+    global black
+    set file [open $black(voting_file) r]
+    set found_it -1
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 2]
+    set read_id [lindex $line 1]
+    set read_name [lindex $line 4]
+if {[string equal -nocase $chan $read_chan] && [string equal -nocase [lindex $line 0] "VOTING"] && ([string equal -nocase $read_name $get] && $type == "0" || [string equal -nocase $read_id $get] && $type == "1")} {
+    set found_it [list [lindex $line 8] [lindex $line 9] [lindex $line 4] [lindex $line 5] [lindex $line 7] [lindex $line 3]]
+    break
+        }
+    }
+    close $file
+    return $found_it
+}
+
+###
+proc blacktools:voting_id {chan} {
+    global black
+    set file [open $black(voting_file) r]
+    set ids ""
+while {[gets $file line] != -1} {
+    set read_chan [lindex $line 2]
+if {[string equal -nocase $chan $read_chan] && [string equal -nocase [lindex $line 0] "VOTING"]} {
+    lappend ids [lindex $line 1]
+        }
+    }
+    close $file
+if {$ids == ""} {
+    return 0
+} else {
+    set sort [blacktools:quicksort [join $ids]]
+	return [lindex $sort end]
+    }
+}
+
+###
+proc blacktools:first_expire {} {
+    global black
+if {![file exists $black(voting_file)]} {return 0}
+    set file [open $black(voting_file) r]
+    set times ""
+while {[gets $file line] != -1} {
+if {[string equal -nocase [lindex $line 0] "VOTING"]} {
+    set expire [lindex $line 7]
+    set status [lindex $line 8]
+if {$expire == 0} {continue}
+if {$status == 0} {continue}
+    lappend times $expire
+    }
+}
+    close $file
+if {$times != ""} {
+    set sort [blacktools:quicksort [join $times]]
+    return [lindex $sort 0]
+    } else {
+    return 0
+    }
+}