How to put console/terminal text into channel

[ZEXEL]

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: Select all

[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: Select all

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

and output:

Code: Select all

<+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...

[TCL_no_TK]

Could try

Code: Select all

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

[ZEXEL]

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

more help please...

[speechles]

@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.

[nml375]

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

Code: Select all

bind pub - !hash do_hash
proc 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...

[user]

Code: Select all

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

[nml375]

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.

[ZEXEL]

@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: Select all

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...

[nml375]

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

[ZEXEL]

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

it's look stop processing at:

Code: Select all

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: Select all

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

it's works but show only 1st line:

Code: Select all

<@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...

[nml375]

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