TCL CHANNELS AND USER LIST ON WEB PAGE

Iniciado por TerraChat, May 12, 2024, 11:16 PM

Tema anterior - Siguiente tema
Imprimir
Ir Abajo Páginas1
Acciones del Usuario

TerraChat

May 12, 2024, 11:16 PM
Código [Seleccionar]
#################################
# 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
}
Imprimir
Ir Arriba Páginas1
Acciones del Usuario