egghelp/eggheads community

trivial.tcl html output

2007-09-23T04:44:19-04:00

Hello mr_fanatic

Try this:

Code:

  set _op ""; set _vo ""; set _reg "";  foreach nick [lsort [chanlist $tgchan]] {   if {[isop $nick $tgchan]} {   lappend _op $nick   } elseif {[isvoice $nick $tgchan]} {   lappend _vo $nick   } else {   lappend _reg $nick   } }   set _chanlist [join "$_op $_vo $_reg"]foreach nick $_chanlist {          puts $_file "   "          puts $_file "    [expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (that's me!)":""]"          if {[info exists tgscoresbyname([strlwr $nick])]} {             puts $_file "    $tgscoresbyname([strlwr $nick])"          } else {             puts $_file "    -"          }          if {[info exists tgranksbyname([strlwr $nick])]} {             puts $_file "    $tgranksbyname([strlwr $nick])"          } else {             puts $_file "    -"          }          puts $_file "   [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]"          puts $_file "   "       }

Regards,
werner

Statistics: Posted by oxygen — Sun Sep 23, 2007 4:44 am

trivial.tcl html output

2007-09-02T13:30:32-04:00

Can you give me the url of the html file/log.

Statistics: Posted by r0t3n — Sun Sep 02, 2007 1:30 pm

trivial.tcl html output

2007-09-02T07:25:12-04:00

it works but gives output like this:

@nick1 @nick2 @nick3 +nick4 +nick4 etc.

Statistics: Posted by mr_fanatic — Sun Sep 02, 2007 7:25 am

trivial.tcl html output

2007-08-31T11:22:56-04:00

You could try something like this, bare in mind its not tested:

Code:

set op ""set voice ""set reg ""foreach nick [lsort [chanlist $tgchan]] {        if {$nick == ""} { return }        set line1 "    -"        set line2 "    -"        if {[info exists tgscoresbyname([string tolower $nick])]} {            set line1 "    $tgscoresbyname([string tolower $nick])"        }        if {[info exists tgranksbyname([string tolower $nick])]} {            set line2 "    $tgranksbyname([string tolower $nick])"        }        if {[isop $nick $tgchan]} {            lappend op "   \n@$nick\n$line1\n$line2\n   [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]\n   "        } elseif {[isvoice $nick $tgchan]} {            lappend voice "   \n+$nick\n$line1\n$line2\n   [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]\n   "        } else {            lappend reg "   \n$nick\n$line1\n$line2\n   [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]\n   "        }}foreach line "[join "$op $voice $reg" "\n"]" {        if {$line == ""} { return }            puts $_file "$line"        }}

Statistics: Posted by r0t3n — Fri Aug 31, 2007 11:22 am

trivial.tcl html output

2007-08-31T04:16:12-04:00

Greetings egg lovers,

I've been using this tcl (trivia.tcl v1.3.4 by Graeme Donaldson) for 2 years and works perfectly fine till now. But i have problem regarding the HTML output generated by the tcl. When generating, it gives the output mixing the @ops, normal ops and voices nick. What i mean is, how can the tcl be modified in such a way that it will displayed as the example i've given below:

Nick Score Rank Idle

@nick1 7364 14 1m
@nick2 - - 5m
@nick3 786 76 10m
+nick4 76 99 50m
+nick5 - - -
normalnick1 768 67 20m
normalnick2 - - -
normalnick3 - - -
normalnick4 76776 4 80m
normalnick5 - - -
normalnick6 - - -
etc.

that is, the @OP's nick at the 1st, Voices nick at the second and normal nick on the bottom. Here is the original html part of the tcl.

Code:

foreach nick [lsort [chanlist $tgchan]] {puts $_file "   "puts $_file "    [expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (that's me!)":""]"if {[info exists tgscoresbyname([strlwr $nick])]} {puts $_file "    $tgscoresbyname([strlwr $nick])"} else {puts $_file "    -"}if {[info exists tgranksbyname([strlwr $nick])]} {puts $_file "    $tgranksbyname([strlwr $nick])"} else {puts $_file "    -"}puts $_file "   [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]"puts $_file "   "}

Statistics: Posted by mr_fanatic — Fri Aug 31, 2007 4:16 am