egghelp/eggheads community

Double Output...

2002-10-27T07:36:09-04:00

Yes.

When you open a application, you can read from it an so on.

Afterwards, the application space needs cleraring.

When using the "open" command to do this, you should treak the file socket, the file as opening a normal file. It needs closing.

As allready mentioned, is there realy a need to to use the "/bin/date" program?

Tcl is much faster with it's builtin code, and it doesn't give you these hectic problems.

Tcl can also be told to return the date the the format you wan't it.

Another sugestion, is to use the "exec" command with programs. This will rmeove much of your issues.

Statistics: Posted by ppslim — Sun Oct 27, 2002 7:36 am

Allright, but there is still one problem....

2002-10-27T06:11:10-04:00

I changed my code to this:

Code:

bind pub - ?date pub:dateproc pub:date {nick uhost hand chan text} {set input [open "|/bin/date" r]catch {set contents [gets $input]}putserv "PRIVMSG $chan :$nick: $contents"}

But the date will hang up, hm, how should i explain this, hm, if i type ps ax, at my shell, it will display that the program has become defunct:
#elajt: ps ax |grep date
7621 ? Z 0:00 [date ]

This is without doubt a security risk, anyone knows how to prevent it?

Thanx //Elajt

Statistics: Posted by Guest — Sun Oct 27, 2002 6:11 am

Re: It works now

2002-10-27T05:18:10-04:00

Thanx! I deleted that while loop, so now it works..

Actually, the problem is (was) due to the fact that you used a "while {![eof $input]}" construction. The eof is only set AFTER the last read. So after a last (unsuccessfull) read, the eof is set and the while loop stops.

If there is a one line file named "testfile.dat", with the one line being "hello world" then running this piece:

Code:

set fileid [open testfile.dat r]while {![eof $fileid]} {    puts "LINE: [gets $fileid]"} close $fileid

will produce as output:

LINE: hello world
LINE:

This file reading business is a very good candidate for the TCL FAQ

Additionally and more serious is the fact that you use /bin/date to retrieve the date. On my shell system your code or the [exec /bin/date] against a [clock seconds] combined with a [clock format] runs as:

2400 microseconds per iteration (/bin/date)
23 microseconds per iteration (clock seconds & clock format)

Statistics: Posted by egghead — Sun Oct 27, 2002 5:18 am

It works now

2002-10-27T04:11:57-04:00

Thanx! I deleted that while loop, so now it works..

Statistics: Posted by Guest — Sun Oct 27, 2002 4:11 am

Double Output...

2002-10-26T22:27:13-04:00

Code:

catch {set input [exec /bin/date]}

then just putserv $input, without the while loop. Since date only returns one line, you shouldn't need the while loop at all. (didn't test it myself)

Also, you didn't close the opened file at the end, which will create zombies.

Statistics: Posted by tainted — Sat Oct 26, 2002 10:27 pm

Re: Double Output...

2002-10-26T21:39:40-04:00

Here is the source:
Code:
bind pub - ?date pub:dateproc pub:date {nick uhost hand chan text} {set input [open "|/bin/date" r]while {![eof $input]} {        catch {set contents [gets $input]}        putserv "PRIVMSG $chan :$nick: $contents"   }} 
*NOTE:
This wont happen if i replaces row 9 with this:
putserv "PRIVMSG $chan :$contents"
*NOTE

The reason for this is because of the irc protocol, not your code...
You can't send a blank message on irc, thus if $contents is empty, you would be attempting to send an empty message to irc, which you can't do.. by adding $nick to the output, the output to server is no longer empty.

The problem lays in the output relayed from the program you are executing... Thus you should check if $contents is empty or not before sending output to server.

Hope this helps.

Statistics: Posted by strikelight — Sat Oct 26, 2002 9:39 pm

Double Output...

2002-10-26T21:26:27-04:00

I got this little problem, the script tells me the message twice, but the $contents variable is only in the first message.

Here is the output:

[02:18:56] ?date
[02:18:57] CopyWrong: Sun Oct 27 02:22:44 CET 2002
[02:18:58] CopyWrong:

Here is the source:

Code:

bind pub - ?date pub:dateproc pub:date {nick uhost hand chan text} {set input [open "|/bin/date" r]while {![eof $input]} {        catch {set contents [gets $input]}        putserv "PRIVMSG $chan :$nick: $contents"   }}

*NOTE:
This wont happen if i replaces row 9 with this:
putserv "PRIVMSG $chan :$contents"
*NOTE

How can i stop that?
Thanx!

Statistics: Posted by Guest — Sat Oct 26, 2002 9:26 pm