egghelp/eggheads community

How to put console/terminal text into channel

2008-11-14T12:24:45-04:00

Another bummer with variables.. double-checking the code right now just to make sure I havn't made yet another bummer :p

Statistics: Posted by nml375 — Fri Nov 14, 2008 12:24 pm

How to put console/terminal text into channel

2008-11-14T02:28:33-04:00

Nah, just means I made a bummer mixing up variables... fixed now.

it's look stop processing at:

Code:

can't read "t_input(file8)": no such variable    while executing"puthelp "PRIVMSG $channel :Input: $t_input($socket)""    (procedure "ParseHtext" line 5)    invoked from within"ParseHtext file8 #finger"

and the I fix it with:

Code:

"puthelp "PRIVMSG $channel :Input: $::t_input($socket)""

it's works but show only 1st line:

Code:

<@yuppy> !hash The quick brown fox jumps over the lazy dog<+bothash> Input: The quick brown fox jumps over the lazy dog

need more help please...

Statistics: Posted by ZEXEL — Fri Nov 14, 2008 2:28 am

How to put console/terminal text into channel

2008-11-13T14:16:26-04:00

Nah, just means I made a bummer mixing up variables... fixed now.

Statistics: Posted by nml375 — Thu Nov 13, 2008 2:16 pm

little error

2008-11-12T22:06:23-04:00

@TCL_no_TK, @speechles thx for suggestion
@nml375, thx for the script
@user, nice tips and tricks

I got error in console/terminal when trying to get result from the channel:

Code:

can't read "t_input(#finger)": no such variable    while executing"puthelp "PRIVMSG $channel :Input: $t_input($channel)""    (procedure "ParseHtext" line 5)    invoked from within"ParseHtext file8 #finger"

Is that mean I must add variabel channel at $t_input($channel) ?

thx you very much for your help...

Statistics: Posted by ZEXEL — Wed Nov 12, 2008 10:06 pm

How to put console/terminal text into channel

2008-11-12T18:26:17-04:00

Point taken. Would be worth mentioning that would apply any use of external command invocation (such as with exec). Same concern should be taken when using eval mentioned earlier aswell.
Unfortunately, the old trick of using lists is only reliable within a tcl-environment, and is of limited use with exec and/or open.

As for filtering/escaping contents, the pipe and redirection tokens documented in the manpage for exec would be the major concern to escape.

Statistics: Posted by nml375 — Wed Nov 12, 2008 6:26 pm

How to put console/terminal text into channel

2008-11-12T17:04:14-04:00

Code:

set f_id [open "|./htext $text"]

It might be a good idea to limit access to this command (require some flag) or filter/escape the contents of $text

Statistics: Posted by user — Wed Nov 12, 2008 5:04 pm

How to put console/terminal text into channel

2008-11-14T12:22:14-04:00

I'd do something like below:
Code is untested, let me know if there's any errors..

Code:

bind pub - !hash do_hashproc do_hash {nick host handle channel text} { set f_id [open "|./htext $text"] fconfigure $f_id -blocking 0 fileevent $f_id readable [list ParseHtext $f_id $channel] set ::t_list($f_id) [list] set ::t_input($f_id) $text}proc ParseHtext {socket channel} { if {[gets $socket line] < 0} {  if {[eof $socket]} {   close $socket   puthelp "PRIVMSG $channel :Input: $::t_input($socket)"   puthelp "PRIVMSG $channel :[join $::t_list($socket) " | "]"   unset ::t_list($socket)   unset ::t_input($socket)   return  } } else {  if {[regexp -- {>> ([[:alnum:]]+): ([[:xdigit:]]+)} $line text key value] == 1} {   lappend ::t_list($socket) "$key: $value"  } }}

Edit: Bummer using wrong variable, fixed now..
Edit: Another variable bummer, fixed now...

Statistics: Posted by nml375 — Wed Nov 12, 2008 3:59 pm

How to put console/terminal text into channel

2008-11-12T07:48:45-04:00

@TCL_no_TK
I've used it, but unformatted and multiple texts will show in the channel if I use that.

more help please...

Use eval as suggested. Stuff the results into a variable. Then use regexp, regsub or scan to "parse" the things you want out of it. This is exactly the same as parsing html pages only a bit easier because the output is predictable and doesn't change.

Statistics: Posted by speechles — Wed Nov 12, 2008 7:48 am

How to put console/terminal text into channel

2008-11-12T00:24:26-04:00

@TCL_no_TK
I've used it, but unformatted and multiple texts will show in the channel if I use that.

more help please...

Statistics: Posted by ZEXEL — Wed Nov 12, 2008 12:24 am

How to put console/terminal text into channel

2008-11-11T16:36:34-04:00

Could try

Code:

eval exec

If you look in the TCL FAQ section, you'll find an example proc of !exec code, hope it helps.

RE: http://forum.egghelp.org/viewtopic.php?t=9945

Statistics: Posted by TCL_no_TK — Tue Nov 11, 2008 4:36 pm

How to put console/terminal text into channel

2008-11-12T00:27:00-04:00

I've some mini hash calculator for texts but it's run only under console/terminal. How can I put the result of that's into the channel.
in console/terminal, I type:

Code:

[kingkong@pine eggdrop]$ ./htext The quick brown fox jumps over the lazy dog~Mini Hash by ranDoM v1.3~>> Input Texs: The quick brown fox jumps over the lazy dog>> Adler32: DA0FDC5B>> SHA1: 2FD4E1C67A2D28FCED849EE1BB76E7391B93EB12>> CRC32: 61EE9D45>> MD5: 9E107D9D372BB6826BD81D3542A419D6>> GOST: 77B7FA410C9AC58A25F49BCA7D0468C9296529315EACA76BD1A10F376D1F4294>> RIPE128: 3FA9B57F053C053FBE2735B2380DB596--- done ---[kingkong@pine eggdrop]$

example (i want):

Code:

<@Yuppy>!hash The quick brown fox jumps over the lazy dog

and output:

Code:

<+bothash>Input: The quick brown fox jumps over the lazy dog<+bothash>SHA1: 2FD4E1C67A2D28FCED849EE1BB76E7391B93EB12 | MD5: 9E107D9D372BB6826BD81D3542A419D6 | CRC32: 61EE9D45 | Adler32: DA0FDC5B

Hopefully you all can help me and write the tcl for it, and thank you...

Statistics: Posted by ZEXEL — Tue Nov 11, 2008 4:35 am