egghelp.org community

[rosc2112]

This script takes the longIP shown in eggdrop's dcc chat logs, for example, and converts them into their dotted quad IP, and can convert dotted quad IP into longIP.

I put this together with a bit of perl code translated to tcl, and some other snippets (I would still appreciate an answer to the question that I posted in the help forum about the inet_addr proc.. I'm using something different in this script for the time being.)

http://members.dandy.net/~fbn/longip.quadip.tcl.txt

[user]

- The regexp will match numbers that are outside the 0-255 range, so you should add some code verifying the numbers before converting the ip to decimal.
- Detecting if the decimal ip provided by a user is within the allowed range can not be done by a simple 'if' - use format %u (which will generate an error if the number is too large)
- Detecting if the input is a decimal or a dotted ip is easy, so you could merge the two public commands and have the script figure out what to do.
Here's some code (the irc part of it is not tested):

[rosc2112]

<stares in awe>

WOW! You're awesome

[rosc2112]

OK, the awe is wearing off <grin> I tested the above, the msg bind doesn't work, not sure why since it's the same as the pub bind:

Tcl error [irclongip 1]: wrong # args: should be "irclongip p n u h c a"

I just made a small proc to handle the msg bind:

[rosc2112]

Oh wait, did you edit the example script, my first try did not have:

proc irclongip {p n u h c {a ""}} {

That works

I had:
proc irclongip {p n u h c a} {

which didn't work for msg.

[rosc2112]

I uploaded the fixed script to the url above. Also added checking whether user is either on channel or validuser for the msg bind.

[user]

I edited the script while you were testing I guess (the 'a' vs '{a ""}' thing) ... See comments in the code below:

[rosc2112]

Is this a typo:

[Sir_Fz]

Obviously it's a typo, just remove the "} else {" line.
_________________
Follow me on GitHub

- Opposing

Public Tcl scripts