# HTML-DCC.Tcl -- a lot like ques3.tcl, but I wrote this one myself and to my
#                 likings =) -- for dcc partyline (channel 0)
# Buggy?
# by kn0 <keith@cs.oswego.edu>
# Set these....

# What directory are your web pages in?
set web_dir /export/home/keith/public_html/

# What do you want the page to be called? ([string tolower $nick] is the bot's
# nickname, all in lowercase)
set dcc_page [string tolower $nick]-dcc.html

# How often do you want the page to be updated? (In minutes)
set dcc_update 1

###### Do not edit anything beyond this point!!! ######

foreach i [timers] {
    if {[lindex $i 1] == "dcc_write"} {
        killtimer [lindex $i 2]
    }
}


if {$web_log == "1"} {
    logfile mpjk $web_chan $web_logfile
}

proc dcc_write {} {
    global web_dir dcc_page web_chan dcc_update botnick nick web_log web_logfile web_topic
    set wpage $web_dir$dcc_page
    set a [open $wpage w+]
    puts $a "<META HTTP-EQUIV=\"refresh\" content=\"[expr $dcc_update * 60]\; url=$dcc_page\""
    puts $a "<TITLE>Partyline stats (Written at [time] [date])</TITLE>"
    puts $a "<CENTER><FONT SIZE=\"6\">$nick's partyline stats</FONT></CENTER>"
    puts $a "<CENTER>"
    puts $a "<TABLE BORDER=3>"
    puts $a "<TR><TD COLSPAN=3><CENTER><FONT SIZE=5>PartyLine ([llength [whom 0]] users)</FONT></CENTER></TD></TR>"
    puts $a "<TR><TD bgcolor=000000><FONT COLOR=FF0000><B>Handle</B></td><td bgcolor=000000><FONT COLOR=ffff00><B>Status</B></td><td bgcolor=000000><font color=ff0000><b>Address</B></td></tr>"
    set alist [whom 0]
    foreach i $alist {
        set nicq [lindex $i 0]
        set bot [lindex $i 1]
        set addr [lindex $i 2]
        set stat [lindex $i 3]
        if {$stat == "*"} {set stat owner}
        if {$stat == "+"} {set stat master}
        if {$stat == "@"} {set stat op}
        if {$stat == "-"} {set stat ""}
        set idle [lindex $i 4]
        if !$idle {
            set idle ""
        } {
            set idle "Idle $idle min"
        }
        if {$idle != "" && $stat != ""} {
            set blah ", "
        } {
            set blah ""
        }
        set away [lindex $i 5]
        puts $a "<TR><TD>$nicq<FONT COLOR=0000FF>@</FONT>$bot</TD><TD>$idle$blah$stat</TD><TD>$addr</TD></TR>"
        if {$away != ""} {
            puts $a "<TR><TD></TD><TD><I><FONT COLOR=AA00FF>Away:</FONT> $away</I></TD><TD></TD>"
        }
    }
    puts $a "</TABLE>"
    puts $a "</CENTER>"
    puts $a <HR>
    puts $a "Click <A HREF=http://www.netscape.com>here</A> if you have a text-only browser.<BR>"
    puts $a "This page is updated every $dcc_update minutes."
    puts $a "<CENTER>-- HTML-DCC.Tcl eggdrop 1.0 script --</CENTER>"
    close $a
    timer $dcc_update {dcc_write}
}
dcc_write
putlog "Writing partyline stats file '$dcc_page'"