Code:
bind dcc o chanpage chanpage:dccbind time - ?0* time:chan:pageproc chanpage:dcc {hand idx text} { chanpage:generate #channel "Bla bla bla, this is my chan description." putidx $idx "chanpage generated.."}proc time:chan:page {minute hour day month year} { chanpage:generate #channel "Bla bla bla, this is my chan description."}proc chanpage:generate {chan desc} { set f [open index.html w] puts $f " <html><head><title>$chan stats!</title><style> <!-- .bodyCopy { FONT-WEIGHT: normal; FONT-SIZE: 11px; LINE-HEIGHT: 16px; FONT-STYLE: normal; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif } A { COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none } A:active { COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none } A:link { COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none } A:visited { COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none } A:hover { COLOR: blue; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none } --> </style></head><body> <table border=\"0\" width=\"100%\" height=\"100%\" id=\"table57\"> <tr><td><div align=\"center\"><div align=\"center\"><table border=\"0\" width=\"75%\" id=\"table64\"><tr><td> <p align=\"center\"><font face=\"Verdana\" size=\"4\"><b>#channel</b></font><br> <font face=\"Verdana\" style=\"font-size: 9pt\">$desc</font><font face=\"Verdana\" size=\"2\"><br> " if {[set topic [topic $chan]] == ""} { set topic "No topic is set for $chan channel." } puts $f " <br><b>Channel topic:</b><br></font><font face=\"Verdana\" style=\"font-size: 9pt\">$topic</font><font face=\"Verdana\" size=\"2\"><br> <br><b>Users in channel:</b></font></td></tr> </table><TABLE cellSpacing=0 cellPadding=0 width=\"50%\" bgColor=#000000 border=0 id=\"table62\"><TBODY><TR><TD> <TABLE cellSpacing=1 cellPadding=1 width=\"100%\" border=0 id=\"table63\"><TBODY><TR borderColor=##ffffff bgColor=#000031> <TD width=\"15%\" bgcolor=\"#FAFAFA\"><DIV class=bodyCopy align=center><strong>Nickname</strong></DIV></TD><TD width=\"45%\" bgcolor=\"#FAFAFA\"> <DIV class=bodyCopy align=center><strong>Time in channel</strong></DIV></TD></TR>" foreach user [chanlist $chan] { lappend nicklist $user } foreach user [lsort -dictionary $nicklist] { puts $f "<TR class=bodyCopy borderColor=#ffffff bgColor=#ffffcc> <TD bgColor=#FFFFFF width=\"10%\"><DIV class=bodyCopy align=left><p align=\"center\"> <strong style=\"font-weight: 400\">$user</strong></DIV></TD><TD bgColor=#FFFFFF width=\"45%\">" if {[set join [getchanjoin $user $chan]]} { set duration [duration [expr [clock seconds] - $join]] } else { set duration "n/a" } puts $f "<DIV class=bodyCopy align=center>$duration</DIV></TD></TR>" } puts $f " </TBODY></TABLE></TD></TR></TBODY></TABLE><p><font face=\"Verdana\" size=\"1\">This page was last updated on [date] at [time]<br> </font><font face=\"Verdana\" size=\"2\"><br></font><font face=\"Verdana\" size=\"1\">Created with chanpage.tcl v0.1<br> © 2004 <a href=\"mailto:cezarica%20\[at\]%20prietenii%20\[dot%20\]com\">caesar</a><font face=\"Verdana\">.</font> All rights reserved.</font></div> </div></td></tr></table></body></html>" close $f}
Statistics: Posted by caesar — Mon Jan 31, 2005 11:12 am
]]>
YMMV