egghelp/eggheads community

TCL newbie needs help on putting a list... Or alternatives..

2002-09-19T12:17:41-04:00

Yes... that worked. Like a charm. One last question... I found the topic that lists the color codes... That is a lot of help...

However, is there something like \n that I can use for a tab (to get even columns)? Something like \t?

Where can I find a list of those codes? And can I put those codes into the array as I reading the qstat output into them? Qstat uses a template file for the output, and I want to put the tab into the code, so it would be something like

Code:

$teamnum \t $frags \t $ping \t $playername

Since the line is sent to the list as a full line, will those tabs (if that is the right code) make it into the list properly? Or do I need to do something different?

Statistics: Posted by Guest — Thu Sep 19, 2002 12:17 pm

TCL newbie needs help on putting a list... Or alternatives..

2002-09-19T11:29:08-04:00

3 changes need to be made.

locate and remove this line

Code:

set output_line [join $output_list "\n"]

In each of the [string match] commands below the removed line, you ned to replace the variable $output_line with

Code:

[lindex $output_list 0]

Code:

string match "DOWN*" $output_line

should become

Code:

string match "DOWN*" [lindex $output_list 0]

An last, at the base of that script, change the following line:

Code:

putquick "PRIVMSG $nick : $output_line"

To this block.

Code:

foreach output_line $output_list {putquick "PRIVMSG $nick : $output_line"}

Statistics: Posted by ppslim — Thu Sep 19, 2002 11:29 am

Thanks! So... Would this work?

2002-09-19T11:21:22-04:00

Thanks for that info ppslim. I was figuring I would have to do something like a foreach... Would this work? Like I said - I'm pretty new at this.

Code:

foreach a [lindex $output_line [expr [llength $output_line] -1]] {   puthelp "PRIVMSG $nick :$a" }

Statistics: Posted by Guest — Thu Sep 19, 2002 11:21 am

TCL newbie needs help on putting a list... Or alternatives..

2002-09-19T06:34:31-04:00

This is not due tot he code (as such), but the way in which IRC servers process messages.

While most people assume, that sending a \n in a line to the server, will force the text on to the next line, this is not true.

The IRC RFC dictates, that commands sent tot he server, are processed until it reaches a \n, at which point, it's the start of a new command.

IE, sending

Code:

putserv "PRIVMSG #help :hello1\nPRIVMSG #help :hello2"

is the same as

Code:

putserv "PRIVMSG #help :hello1"putserv "PRIVMSG #help :hello2"

From what I remember, the RFC dictates that either a line-feed or a newline character dictates the end of a line.

The only way, is to use, multiple putserv (or equivilant) commands.

In this situation, you could loop through the list with foreach, and output the entire list.

Statistics: Posted by ppslim — Thu Sep 19, 2002 6:34 am

TCL newbie needs help on putting a list... Or alternatives..

2002-09-19T06:01:43-04:00

OK... Maybe I am missing something very fundamental about lists, but I can't for the life of me figure this out. I am basically modding the qstat4eggdrop.tcl to display it the way I want it displayed, but I'll be damned if I can get it to work right.

Here's what I have right now:

Code:

# qstat.tcl - Qstat4Eggdrop version 1.8## Modified for UnrealPlayground by Kingster ## This script will query halflife, quake 2, quake 3 and UT servers to# display server status and players using the public commands.## Orginal script (1.0) by Mikael Blomqvist # Modified (1.5) by ST8  and in part by Ad # Modified again (1.7) by Peter Postma #   changes: - security hole fixed. (passing bad arguments to TCL's exec)#            - display players fixed.# Version 1.8 by Peter Postma #   changes: - doesn't need a temp file anymore to display player info#            - use regsub for input checking#            - better error checking / error messages#            - lot of clean up## This script requires Qstat! Get it @ http://www.qstat.org# Typ !qstat for a command list.# Configuration settings:# Public triggerset tr "!"# Flags needed to use the commandsset qstat_flag "-|-"# Path to qstat folder containing qstat stuff/scripts and the qstat programset pathqstat "/home/ircadmin/MonkBOT/qstat"# Channels you _dont_ want the bot to reply to public triggers on (seperate with spaces):set nopub ""################################################################# This is where the evil TCL code starts, read at your peril!  #################################################################set qversion "1.8"bind pub $qstat_flag ${tr}servers pub:serversbind pub $qstat_flag ${tr}server1 pub:server1bind pub $qstat_flag ${tr}server2 pub:server2bind pub $qstat_flag ${tr}server3 pub:server3proc qstat:check_input {text} {  regsub -all {<|>|&|\|/|%|[|]|[$]} $text "" text  return $text}proc pub:servers {nick host hand chan arg} {  global pathqstat tr nopub  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  set stat [open "|$pathqstat/qstat -f $pathqstat/servers.lst -sort l -Ts $pathqstat/servermini.qstat" r]  pub:qstat_results $nick $stat  close $stat  return 0}proc pub:server1 {nick host hand chan arg} {  global pathqstat tr nopub  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  set stat [open "|$pathqstat/qstat -uns 204.149.41.5 -sort TF -P -Ts $pathqstat/serverfull.qstat -Tp $pathqstat/players.qstat" r]  pub:qstat_results $nick $stat  close $stat  return 0}proc pub:server2 {nick host hand chan arg} {  global pathqstat tr nopub  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  set stat [open "|$pathqstat/qstat -uns 64.246.32.42 -sort TF -P -Ts $pathqstat/serverfull.qstat -Tp $pathqstat/players.qstat" r]  pub:qstat_results $nick $stat  close $stat  return 0}proc pub:server3 {nick host hand chan arg} {  global pathqstat tr nopub  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  set stat [open "|$pathqstat/qstat -uns 64.246.42.102 -sort TF -P -Ts $pathqstat/serverfull.qstat -Tp $pathqstat/players.qstat" r]  pub:qstat_results $nick $stat  close $stat  return 0}proc pub:qstat_results {nick pf} {  set output_list ""  while {[gets $pf line] >= 0} {    lappend output_list $line  }  set output_line [join $output_list "\n"]  if {[string match "DOWN*" $output_line]} {      putquick "PRIVMSG $nick :Connection refused while querying server"      break    } elseif {[string match "HOSTNOTFOUND*" $output_line]} {      putquick "PRIVMSG $nick :Host not found"      break    } elseif {[string match "TIMEOUT*" $output_line]} {      putquick "PRIVMSG $nick :Timeout while querying server"      break    } else {    putquick "PRIVMSG $nick : $output_line"    }  }}

Basically, my idea was to put the info returned from qstat into a list, separate each line returned from qstat with a \n (set output_line [join $output_list "\n"]) so it would send it to the server as one line but get sent to the requestor in as many lines as it needed...

Problem is, when it goes to send the line, it only send to where the \n was inserted.

I know there has to be a better way to do this... Can anyone help? Or am I beyond help?

Statistics: Posted by Guest — Thu Sep 19, 2002 6:01 am