Simple usersearch help needed

[starpossen]

I've got this little script:

Code: Select all

bind pub - !user foo
proc foo {n u h c a} {
 set nick [lindex [split $a] 0]
 if {$nick!=""} {
  set data [::http::geturl http://www.mysite.com/users.php?search=]
  foreach line [split [::http::data $data] \n] {
   putserv "PRIVMSG $c :$line"
  }
  ::http::cleanup $data
 }
}

Wich will then post a link to the users profile page from the site.
But somehow it is not working, am I missing something?

[caesar]

Code: Select all

bind pub - !user foo 
proc foo {n u h c a} { 
  if {![llength [set nick [lindex [split $a] 0]]]} return
  set token [::http::geturl http://www.mysite.com/users.php?search=$nick] 
  set data [::http::data $token]
  ::http::cleanup $data
  foreach line [split $data \n] { 
    putserv "PRIVMSG $c :$line" 
  } 
}

Shouldn't the url be "http://www.mysite.com/users.php?search=nick" by any chance?

Edit: Damn typos. Fixed it.. again.

[starpossen]

Well, I used that url in a small script for my mIRC bot, wich worked, but this one aint working for my eggdrop and I really would like it to work for my drop, nothing is happening when I type !user starpossen and I tried adding nick to the url, but that didnt help.

[caesar]

Then add a line like:

Code: Select all

putserv :PRIVMSG $c :finished"

or a putlog line to see if the script works.

[starpossen]

I tried adding that line, but my drop is still not responding to the trigger.

[caesar]

Oops! Forgot to add a pair of [] to the proc I've posted. Get it again and see if it works..

[starpossen]

Thanks for your quick replies, but maybe im wayy to tired, cause where would I put the []'s ?

[caesar]

Not you, I forgot to add them in the proc I've posted above. Get it again and test it on your bot. Also, change that url to "http://www.mysite.com/users.php?search=$nick" because this way I think it should be.

[starpossen]

This is what happens:

Code: Select all

[22:36:15] <%starbot> ::http::17

And the number gets higher every time I trigger the command.

[caesar]

Silly me... It's a bit late and I must be blind or something.. I have fixed the code .. again.. sorry.

Code: Select all

bind pub - !user foo 
proc foo {n u h c a} { 
  if {![llength [set nick [lindex [split $a] 0]]]} return 
  set token [::http::geturl http://www.mysite.com/users.php?search=$nick] 
  set data [::http::data $token] 
  ::http::cleanup $data 
  foreach line [split $data \n] { 
    putserv "PRIVMSG $c :$line" 
  } 
}

[starpossen]

Still wont react, I made one for my mIRC bot:

Code: Select all

on *:text:.user*:#:{

  if ($nick isop $chan && $2-) { /user $nick $2- }
}
alias user {

  if ($1 && $2-) { 

    notice $1 http://www.mysite.com/users.php?search= $+ $replace($2-,$chr(32),+) 
  }
}

Wich will post the link to the username in the searchlist on the site.
I dont know if this can be rewritten to tcl., if the other one cant be fixed?

[demond]

I dont know if this can be rewritten to tcl., if the other one cant be fixed?

you are on the wrong forum dude, this one is for people who know at least the basics of Tcl, and obviously you aren't among them

post to "Script Requests"

[starpossen]

Im very well aware of what forum this is, I just asked a question, and showed the mirc script as an example, and hoping it might shed a light on my idea, but nevermind.

[Alchera]

No point posting a mIRC 'script' on a forum exclusively for Tcl. You'd be lucky if anyone could understand it anyway. Learn Tcl and attempt a translation yourself maybe.