#package require http
bind pub -|- !ym yahoo:status
proc yahoo:status {nick host hand chan arg} {
global yahoo:status
if {![channel get $chan yahoo]} {puthelp "NOTICE $nick :FAILED: Yahoo isn`t set. Try !chanset +yahoo"; return}
set arg [lindex $arg 0]
if {$arg == ""} {
puthelp "NOTICE $nick :Foloseste: !ym <ID Mess>"
return 0 }
set token [http::config -useragent "lynx"]
set token [http::geturl "http://profiles.yahoo.com/$arg?intl=it&os=win&ver=8.1.0.425"]
set html [http::data $token]
putquick "PRIVMSG $chan :10Checking online status for 2$arg10."
if {[string match -nocase *alt="online">* $html]} {
puthelp "PRIVMSG $chan :2$arg is 3OnLine!"
return 0
} elseif {
[string match -nocase "*offline*" $html]} {
puthelp "PRIVMSG $chan :2$arg is 4OffLine!"
return 0
} else {
puthelp "PRIVMSG $chan :2Sorry, but the profile you are looking for 4is not currently available 2or 4YAHOO service is DOWN2!"
return 0
}
}
putlog "Yahoo Messenger Status loaded sucessfully. Created by Costin"
Sunday, August 28, 2011
yahoo.tcl
Labels:
tCL
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment