egghelp/eggheads community

!dns 0 | rm -rf ~/

2005-01-18T15:14:56-04:00

I hope you're not using this on a public network as executing stuff without any restrictions on the input is like begging for trouble.

Statistics: Posted by user — Tue Jan 18, 2005 3:14 pm

Nslookup TCL Problem

2005-01-18T06:31:32-04:00

try this

Code:

proc pub_nslookup {nick uhost hand chan arg} {  global nsl_path  set input [open "|$nsl_path $arg" r]  while {![eof $input]} {    catch {set contents [gets $input]}    if {[string first "Name:" $contents] >= 0} {      set name [string range $contents 9 end]    }    if {[string first "Address:" $contents] >= 0} {      set address [string range $contents 10 end]    }  }  catch {close $input}  if {![info exists name]} {    putserv "PRIVMSG $chan :DNS Lookup: Unable to resolve address."    return 0  }  if {$name != ""} {    putserv "PRIVMSG $chan :DNS Lookup: $name <-> $address"    return 0  } else {    putserv "PRIVMSG $chan :DNS Lookup: Unable to resolve address."    return 0  }}

Statistics: Posted by Ofloo — Tue Jan 18, 2005 6:31 am

Nslookup TCL Problem

2005-01-18T06:28:31-04:00

Code:

      if {[string first "Name:" $contents] >= 0} {         set name [string range $contents 9 end]         }      if {[string first "Address:" $contents] >= 0} {         set address [string range $contents 10 end]         }      }

here is your problem its not meeting this condition, maybe set name {} in the beginning of the script or let it break if it doesn't exist in after the while ..

like

Code:

if {![info exists name]} {return}

or show an error code didn't read the entire script just saying why it goes wrong ..

Statistics: Posted by Ofloo — Tue Jan 18, 2005 6:28 am

Nslookup TCL Problem

2005-01-18T04:29:10-04:00

Hi, I had gotten a TCL that is supposed to response to pub and msg !dns, !nslookup, and !nsl commands. But the problem is egg is responding with the following error message from a "!dns NickServ" and there is no problem when I do "!dns IP Address". The error is "Tcl error [msg_nslookup]: can't read "name": no such variable". Here is the code being used, I would like to find out what the problem is. And it now just started giving the same error message when trying to lookup IP addresses that start with 61, 80 to 90, and everything starting above 200. And I'm sure there are others that I didn't notice yet.

Code:

bind pub - !nsl pub_nslookupbind msg - !nsl msg_nslookupbind pub - !dns pub_nslookupbind msg - !dns msg_nslookupbind pub - !nslookup pub_nslookupbind msg - !nslookup msg_nslookupproc pub_nslookup {nick uhost hand chan arg} {global nsl_pathset input [open "|$nsl_path $arg" r]while {![eof $input]} { catch {set contents [gets $input]}if {[string first "Name:" $contents] >= 0} {set name [string range $contents 9 end]}if {[string first "Address:" $contents] >= 0} {set address [string range $contents 10 end]}}catch {close $input}if {$name != ""} {putserv "PRIVMSG $chan :DNS Lookup: $name <-> $address"return 0} else {putserv "PRIVMSG $chan :DNS Lookup: Unable to resolve address."return 0}}proc msg_nslookup {nick uhost hand arg} {global nsl_pathset input [open "|$nsl_path $arg" r]while {![eof $input]} { catch {set contents [gets $input]}if {[string first "Name:" $contents] >= 0} {set name [string range $contents 9 end]}if {[string first "Address:" $contents] >= 0} {set address [string range $contents 10 end]}}catch {close $input}if {$name != ""} {putserv "PRIVMSG $nick :DNS Lookup: $name <-> $address"return 0} else {putserv "PRIVMSG $nick :DNS Lookup: Unable to resolve address."return 0}}

[/quote]

Statistics: Posted by mcdarby — Tue Jan 18, 2005 4:29 am