Statistics: Posted by De Kus — Tue Apr 12, 2005 10:25 am

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_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  }} 

[14:59] <teste> [16:01] Tcl error [pub_nslookup]: can't read "nsl_path": no such variable

[15:00] <made_of_storm> .set errorInfo[15:00] <teste> [16:03] tcl: builtin dcc call: *dcc:set made_of_storm 9 errorInfo[15:00] <teste> [16:03] #made_of_storm# set errorInfo[15:00] <teste> Currently: can't read "nsl_path": no such variable[15:00] <teste> Currently:     while executing[15:00] <teste> Currently: "open "|$nsl_path $arg" r"[15:00] <teste> Currently:     (procedure "pub_nslookup" line 3)[15:00] <teste> Currently:     invoked from within[15:00] <teste> Currently: "pub_nslookup $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by jsilvestre — Tue Apr 12, 2005 10:01 am