########################### ### HTMLOpVote.tcl ### ### Version 1.2 ### ### By Wcc ### ### irc.dal.net ### ########################### ########################################################################################### ## This script allows ops to vote on a topic. Only ops in the voting channel may vote. ## ########################################################################################### ############## ## COMMANDS ## ################################################################## ## MSG ## /msg vote ## ######### Places a vote. All votes are logged with the voter's ## ######### nick and host, and the exact time. ## ################################################################## ########################################################## ## Just load the script, set the variables, and rehash. ## ########################################################## ########################################## # Set the channel ops will vote in here. # ########################################## set votechan "#|DAWG|Net" ################################## # Set the html logfile filename. # ################################## set votepage "voteresults.html" ############################## # Set the database filename. # ############################## set database "voteresults.db" #################### # Code begins here # #################### bind msg - vote htmlvote proc htmlvote {nick uhost hand text} { global votechan botnick if {([isop $nick $votechan])} { if {([lindex $text 0] == "") || ([lindex $text 1] == "") || ([lindex $text 2] == "")} { puthelp "NOTICE $nick :HTMLOPVOTE: Usage: \"/msg $botnick vote \"." } elseif {([string tolower [lindex $text 1]] != "yes") && ([string tolower [lindex $text 1]] != "no")} { putserv "NOTICE $nick :HTMLOPVOTE: Usage: \"/msg $botnick vote \"." } else { set host $uhost set vote [lindex $text 1] set for [lindex $text 0] set rsn "\"[lrange $text 2 end]\"" putvotelog $nick $host $vote $for $rsn puthelp "NOTICE $nick :HTMLOPVOTE: Vote accepted. You voted $vote for $for. The reason given was $rsn" } } else { putserv "NOTICE $nick :Only ops in $votechan may vote." } } proc putvotelog {nick host vote for rsn} { global votepage database set databaseid [open $database a+] puts $databaseid "" puts $databaseid "[clock format [clock seconds] -format "%I:%M:%S %p %x"]" puts $databaseid "
$nick
" puts $databaseid "
$host
" puts $databaseid "
$vote
" puts $databaseid "
$for
" puts $databaseid "
$rsn
" puts $databaseid "" puts $databaseid "" puts $databaseid "" close $databaseid set votepageid [open $votepage w] set databaseid [open $database r] puts $votepageid "" puts $votepageid "" puts $votepageid "Vote Results" puts $votepageid "" puts $votepageid "" puts $votepageid "
Vote Results

" puts $votepageid "
" puts $votepageid "" puts $votepageid "" puts $votepageid "" puts $votepageid "" puts $votepageid "" puts $votepageid "" puts $votepageid "" puts $votepageid "" puts $votepageid "" while {![eof $databaseid]} { gets $databaseid line puts $votepageid $line } puts $votepageid "" puts $votepageid "" close $votepageid close $databaseid putlog "HTMLOPVOTE: $nick \($host\) voted $vote for $for. The given reason was $rsn." } putlog "HTMLOPVOTE: HTMLOpVote.tcl Vervion 1.2 by wcc is loaded." putlog "HTMLOPVOTE: Voting Channel Is $votechan." putlog "HTMLOPVOTE: Voting log page is $votepage."
Time
Nick
Host
Vote
For
Reason