egghelp/eggheads community

Script to call a php-script but not grabbing a parameter

2007-08-09T10:58:15-04:00

You should be able to use the notc-binding to capture notices from your chanserv, I suppose.

Rough example to illustrate how to do it:

Code:

bind notc - "*" notcprocproc notcproc {nick uhost hand text {dest ""}} { if {$dest == ""} {set dest $::botnick} if {[string equal -nocase $nick "ChanServ"]} {  #Got a reply from nickserv, response is within $text  #Extract the relevant info, and insert it into your url.. }}

Statistics: Posted by nml375 — Thu Aug 09, 2007 10:58 am

Script to call a php-script but not grabbing a parameter

2007-08-09T02:59:45-04:00

The question is, how are you getting the status at all? If you're trying to get the status from a webpage, obviously you cannot use a url requiring the status *beforehand*

http://mysite/irckey.php?nick=$nick&status=$userstatus

That expects you to already have the status when you make the geturl query.

No.

I need the IRC-Status of the User, not from the Webpage (that would be much easier)

I try to get the Status from here:

proc getnick {nick host handle chan} {
putquick "PRIVMSG nickserv :status $nick"
}

because I need to know, if a user is registered AND identified. I pass this Information later to the http-call to sort out the correct response (what is later in $line)

The only thing I need to solve is the response from putquick "PRIVMSG nickserv :status $nick" for further use, but I did not get it :-/

Statistics: Posted by Bitto — Thu Aug 09, 2007 2:59 am

Script to call a php-script but not grabbing a parameter

2007-08-08T23:34:18-04:00

The question is, how are you getting the status at all? If you're trying to get the status from a webpage, obviously you cannot use a url requiring the status *beforehand*

http://mysite/irckey.php?nick=$nick&status=$userstatus

That expects you to already have the status when you make the geturl query.

Statistics: Posted by rosc2112 — Wed Aug 08, 2007 11:34 pm

Script to call a php-script but not grabbing a parameter

2007-08-07T13:00:40-04:00

thx for answer..

so that means, I have nothing in $text...

I thinked, that proc getnick with the call putquick "PRIVMSG nickserv :status $nick" give me the response text where the "STATUS nick whatever" is in..I am wrong...

How do I get this response then into $text?

TCL is brandnew to me and while I am coding PHP since ages, I feel like a n00b to this..:-/

Statistics: Posted by Bitto — Tue Aug 07, 2007 1:00 pm

Script to call a php-script but not grabbing a parameter

2007-08-07T12:51:45-04:00

How are you getting the status before calling geturl? I'm assuming your php page is where you get the user status, but, the line you're using requires the var $userstatus before getting it from the webpage?

Otherwise, the status is always 0, as set in the global var "set userstatus"

The var $text will only contain whatever text you're passing along to the proc from the pub bind.

If your geturl only required a nick, then yeah you could get the status from that webpage and then do the other stuff in the proc to test it.

Statistics: Posted by rosc2112 — Tue Aug 07, 2007 12:51 pm

Script to call a php-script but not grabbing a parameter

2007-08-07T10:00:55-04:00

Hi,

after searching 4 days the forums and trying a few code-snippets, I am giving up and need some help on a tiny script.

1. I call a php-script:

http://mysite/irckey.php?nick=$nick&status=$userstatus

I got the nick but not the Status.

The Script:

Code:

package require httpbind pub - !getkey get_keyset userstatus "0" proc getnick {nick host handle chan} { putquick "PRIVMSG nickserv :status $nick" }proc get_key {nick host handle chan text} {  global botnick getnick userstatus  if {([string match -nocase "STATUS*3" $text])} {  set userstatus "3"   }  if {([string match -nocase "STATUS*1" $text])} {  set userstatus "1"   }  if {([string match -nocase "STATUS*0" $text])} {  set userstatus "0"   }set data [::http::geturl http://mysite/getkey.php?nick=$nick&status=$userstatus]  foreach line [split [::http::data $data] \n] { putquick "NOTICE $nick :$line"}  ::http::cleanup $data } putlog "Key Announcer loaded"

It works without $userstatus but to prevent users for doing a simple nickchange, call !getkey before identify, I need to be shure, that the user is identified. STATUS 3 is that one, that provides the key, all other will just tell the user, that he has to identify before trigger.

I am absolute shure, that I have a mistake, because "set userstatus 'x'" seems to be empty. But I can't find it really...

can someone give me a hand with this please?

Statistics: Posted by Bitto — Tue Aug 07, 2007 10:00 am