egghelp.org community

[sk-4]

seem the tcl not working,even the user offline it showing online
# __
# / /
# ____/ /_____
# / __ // ___/
# / /_/ // /___
# \____/ \____/

# This script will check the Yahoo Messenger status (available/invisible/online). Script active on all eggdrop channels.
# Nothing to set. Just load the script and enjoy.
# Commands:
# !id <the_id>
# or
# !ym <the_id>
# This is the one and only version. Nothing to upgrade.
# Contact: dc@rock.com


package require http

bind pub -|- !id yahoo:status
bind pub -|- !ym yahoo:status

proc yahoo:status {nick host hand chan arg} {

set yahooid [join [lindex [split $arg] 0]]
set token [http::config -useragent "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"]
set token [http::geturl "http://www.invisible-scanner.com/?yid=$yahooid"]
set html [http::data $token]

putlog "Checking online status for $yahooid."

if {[string match "*Online*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is Online!"
return 0
}

if {[string match "*Offline*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is Offline!"
return 0
}

if {[string match "*Invisible*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is Invisible!"
return 0
}

if {[string match "*Server is busy*" $html]} {
puthelp "PRIVMSG $chan :Server is busy, try later!"
return 0
}

}

putlog "Yahoo Messenger Status Checker loaded sucessfully."

# __
# / /
# ____/ /_____
# / __ // ___/
# / /_/ // /___
# \____/ \____/

[arfer]

I have tried the URL manually and can't seem to get it to work, so presumably that is the problem.

In any event I noticed that you have the author's email address in the script comments.
_________________
I must have had nothing to do

[sk-4]

thanks arfer for the time u take to check the tcl.. this is the url http://www.invisible-scanner.com/

[speechles]