TCL channels and user list on web page
# Source by AKTaRuS #
# Sito xeb : IRCwebNET.com #
# chweb.tcl v.1.0 #
#################################
bind time - "* * * * *" web_users
# Path to save html page.
set webusers_file "/var/www/html/index.html"
proc web_users {min hour day month year} {
global webusers_file
set fh [open "$webusers_file" "a+"]
set fh [open "$webusers_file" "w+"]
puts $fh "<body style=background-color:grey>"
puts $fh "<HTML><HEAD><TITLE>SET YOUR SITE WEB TITLE</TITLE></HEAD>"
puts $fh "<h1><font color=red>SET TITLE H1 </font></h1>"
puts $fh "<h1><font color=yellow><marquee align=middle behavior=scroll direction=left scrolldelay=40>Numero Utenti presenti nei canali di IRCserveR Italia.</marquee></font></h1>"
puts $fh "<BODY>"
foreach chan [lsort [channels]] {
set users [chanlist $chan]<BR/>
puts $fh "<h2><font color=yellow>$chan:</font><BR/><font color=red>[llength $users] users:</font></h2> [join $users {, }]<BR/>"
}
puts $fh "<h1><font color=yellow><marquee align=middle behavior=scroll direction=left scrolldelay=40><h1>IRCserveR Italia IRC Network.</marquee></font></h1>"
puts $fh "<h5><a YOUR SITE>VISIT MY SITE</a></h5><h6>by AkTaRuS</h6>"
puts $fh "<h6>IRCserveR Italia</h6>"
puts $fh "</BODY></HTML>"
close $fh
}
Comments 0
