egghelp/eggheads community

Simple usersearch help needed

2006-06-05T00:10:36-04:00

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.

Statistics: Posted by Alchera — Mon Jun 05, 2006 12:10 am

Simple usersearch help needed

2006-06-04T04:29:11-04:00

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.

Statistics: Posted by starpossen — Sun Jun 04, 2006 4:29 am

Simple usersearch help needed

2006-06-04T01:54:04-04:00

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"

Statistics: Posted by demond — Sun Jun 04, 2006 1:54 am

Simple usersearch help needed

2006-06-03T18:03:38-04:00

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

Code:

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?

Statistics: Posted by starpossen — Sat Jun 03, 2006 6:03 pm

Simple usersearch help needed

2006-06-03T16:55:04-04:00

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

Code:

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

Statistics: Posted by caesar — Sat Jun 03, 2006 4:55 pm

Simple usersearch help needed

2006-06-03T16:37:36-04:00

This is what happens:

Code:

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

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

Statistics: Posted by starpossen — Sat Jun 03, 2006 4:37 pm

Simple usersearch help needed

2006-06-03T16:28:28-04:00

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.

Statistics: Posted by caesar — Sat Jun 03, 2006 4:28 pm

Simple usersearch help needed

2006-06-03T16:25:52-04:00

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

Statistics: Posted by starpossen — Sat Jun 03, 2006 4:25 pm

Simple usersearch help needed

2006-06-03T16:20:03-04:00

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

Statistics: Posted by caesar — Sat Jun 03, 2006 4:20 pm

Simple usersearch help needed

2006-06-03T16:14:07-04:00

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

Statistics: Posted by starpossen — Sat Jun 03, 2006 4:14 pm

Simple usersearch help needed

2006-06-03T16:09:31-04:00

Then add a line like:

Code:

putserv :PRIVMSG $c :finished"

or a putlog line to see if the script works.

Statistics: Posted by caesar — Sat Jun 03, 2006 4:09 pm

Simple usersearch help needed

2006-06-03T16:00:02-04:00

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.

Statistics: Posted by starpossen — Sat Jun 03, 2006 4:00 pm

Simple usersearch help needed

2006-06-03T16:52:43-04:00

Code:

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.

Statistics: Posted by caesar — Sat Jun 03, 2006 3:51 pm

Simple usersearch help needed

2006-06-03T15:26:49-04:00

I've got this little script:

Code:

bind pub - !user fooproc 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?

Statistics: Posted by starpossen — Sat Jun 03, 2006 3:26 pm