Facebook Check Getid,Link
Platform: TCL
Published Apr 18, 2012
Updated Oct 20, 2012
!getid <FACEBOOK USERNAME/UID>"
[09:06:43] <Frederik> !getid woolva
[09:06:46] <DT> [FaceBook Info]: >>> [FaceBook Name]: Liam David Urry >>> [ID]: 100001134219325
[09:06:47] <DT> [04FaceBook Link]:
http://www.facebook.com/profile.php?id=100001134219325
Facebook ID TCL Script adapted by Denver Freeburn of JimpWare. Originally coded by Frederik
Link of the post
http://www.hawkee.com/snippet/8898/
Any quesion
server irc.chat1080.com 6667
chan #chat1080
package require http
#############################
bind pub - !getid proc:fbid
proc proc:fbid {nick uhost hand chan arg} {
set tok [http::geturl http://graph.facebook.com/$arg]
set data [http::data $tok]
regexp -nocase {"id":"(.*?)",} $data -> fbogid
regexp -nocase {"name":"(.*?)",} $data -> fbogname
http::cleanup $tok
putserv "PRIVMSG $chan :01\[04FaceBook Info\]: >>> 01\[04FaceBook Name\]: $fbogname >>> 1\[04ID\]: $fbogid"
putserv "PRIVMSG $chan :01\[04FaceBook Link\]: http:\/\/www.facebook.com\/profile.php?id=$fbogid"
}
##############################
# ----------
putlog "Facebook ID TCL Script adapted by Denver Freeburn of JimpWare, for Frederik Originally coded by Jethro"
# ----------