search help

[MacDaddy]

hey all i cant get this to work no matter what i try

what i need is for it to add the arg to the url but it only adds
eg !search MacDaddy works.
but !search MacDaddy IRC it dont see the IRC part

Code: Select all

bind pub - !search pub:search

proc pub:search {n u h c a} {
 set text [lindex [split $a] 0]
 if { [string match "" "$a"] } {
  puthelp "PRIVMSG $c $n :usage: !search UserName"
  } else {
  set data [::http::geturl http://www.mydomain.com/test/ircstats.php?search=$text]
  foreach line [split [::http::data $data] \n] {
   puthelp "PRIVMSG $c :Retrieving User Data.... Please Wait...."
   puthelp "PRIVMSG $c :$line"
  }
  ::http::cleanup $data
 }
}

it needs to send the full arg to the php not just the first word

thanks for anyhelp

[r0t3n]

Try:

Code: Select all

bind pub - !search pub:search

proc pub:search {n u h c a} {
 if {$a == ""} {
  puthelp "PRIVMSG $c :usage: !search UserName"
  } else {
  set data [::http::geturl http://www.mydomain.com/test/ircstats.php?search=$a]
  foreach line [split [::http::data $data] \n] {
   puthelp "PRIVMSG $c :Retrieving User Data.... Please Wait...."
   puthelp "PRIVMSG $c :$line"
  }
  ::http::cleanup $data
 }
}

[MacDaddy]

Try:

Code: Select all

bind pub - !search pub:search

proc pub:search {n u h c a} {
 if {$a == ""} {
  puthelp "PRIVMSG $c :usage: !search UserName"
  } else {
  set data [::http::geturl http://www.mydomain.com/test/ircstats.php?search=$a]
  foreach line [split [::http::data $data] \n] {
   puthelp "PRIVMSG $c :Retrieving User Data.... Please Wait...."
   puthelp "PRIVMSG $c :$line"
  }
  ::http::cleanup $data
 }
}

Tryed that before i get no reply and no error from the bot.

also tryed :

Code: Select all

bind pub - !search pub:search

proc pub:search {n u h c a} {
 set text [lindex [split $a] 0]
 set text2 [lindex [split $a] 1]
 if { [string match "" "$a"] } {
  puthelp "PRIVMSG $c $n :usage: !search UserName"
  } else {
  set data [::http::geturl http://www.mydomain.com/test/ircstats.php?search=$text$text2]
  foreach line [split [::http::data $data] \n] {
   puthelp "PRIVMSG $c :Retrieving User Data.... Please Wait...."
   puthelp "PRIVMSG $c :$line"
  }
  ::http::cleanup $data
 }
}

that just gives whatever you type eg MacDaddy IRC
will become MacDaddyIRC

if i put $a in
puthelp "PRIVMSG $c :Retrieving Data For $a.... Please Wait...."

it sees the MacDaddy IRC just dont send it

[rosc2112]

Instead of lindex junk, regsub the space with either %20 or %2B (+ sign) depending on what the website wants for spaces..

[rosc2112]

And what is the point of

if { [string match "" "$a"] } {

when you can just do

if {$a == ""}

[metroid]

You need to encode the URL.
You can make your own proc to do it.

[MacDaddy]

And what is the point of

if { [string match "" "$a"] } {

when you can just do

if {$a == ""}

Instead of lindex junk, regsub the space with either %20 or %2B (+ sign) depending on what the website wants for spaces..

thanks that was it needed the %20 works great

if {$a == ""} <<-- dont work

Tcl error [pub:torrent]: wrong # args: no script following "{$a == ""}" argument

[rosc2112]

The format of if is:

if {test} {do stuff}


So yeah, if {test} would not work by itself.