egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2012-04-27T18:16:55-04:00 https://forum.eggheads.org/app.php/feed/topic/18947 2012-04-27T18:16:55-04:00 2012-04-27T18:16:55-04:00 https://forum.eggheads.org/viewtopic.php?p=99274#p99274 <![CDATA[Hmm]]> error on ID

[18:18:26] Tcl error [proc:fbid]: Illegal characters in URL path
error on Name :/ can anyone solve this?

Statistics: Posted by Zecca93 — Fri Apr 27, 2012 6:16 pm

]]> 2012-04-27T15:00:47-04:00 2012-04-27T15:00:47-04:00 https://forum.eggheads.org/viewtopic.php?p=99273#p99273 <![CDATA[Search facebook profiles from MirC to TCL Help]]>

Code: 

package require http#############################bind pub - !getid proc:fbidproc 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"# ----------

Statistics: Posted by Guest — Fri Apr 27, 2012 3:00 pm

]]> 2012-04-27T12:05:51-04:00 2012-04-27T12:05:51-04:00 https://forum.eggheads.org/viewtopic.php?p=99270#p99270 <![CDATA[Search facebook profiles from MirC to TCL Help]]>

>>> This is an Eggdrop/TCL related forum, Neither ask for mIRC Scripts Nor post a new topic for any (mIRC) assistance.


In short... this thread should be locked, junked, similar

Statistics: Posted by speechles — Fri Apr 27, 2012 12:05 pm

]]> 2012-04-26T21:20:18-04:00 2012-04-26T21:20:18-04:00 https://forum.eggheads.org/viewtopic.php?p=99266#p99266 <![CDATA[Search facebook profiles from MirC to TCL Help]]>

Code: 

on *:sockopen:fbid~*:{  if ($sockerr) { $2-3 Socket Connection Error! | return }  tokenize 124 $sock($sockname).mark   var %fbid = sockwrite -nt $sockname  %fbid GET $+(/,$1) HTTP/1.1 | %fbid Connection: close  %fbid Host: $+($sock($sockname).addr,$str($crlf,2))}on $*:text:/^!fbid\s(.*)/iS:*:{   if (!$($+(%,control,.,$site,.,#,.,$network),2)) {    inc -u5 $+(%,control,.,$site,.,#,.,$network)    var %1 = $regml(1), %f = $+(fbid~,$ticks)    sockopen %f graph.facebook.com 80     sockmark %f $+($remove(%1,$chr(32)),|,.msg $iif(#,#,$nick),|,$&      FaceBook Info About %1 ->,|,http://www.facebook.com/profile.php?id=)  }}on *:sockread:fbid~*:{  tokenize 124 $sock($sockname).mark | var %link = $4 | sockread &fbsockreader   var %fb = $bvar(&fbsockreader,1-).text | if ($sockerr) { $2-3 Socket Reading Error! | return }  elseif (error isin %fb) { $2-3 There is No Such Facebook User Named $qt($1) Found! }  else { noop $regex(%fb,/"id"(.*)/) | var %fbid. = $regsubex($remove($regml(1),:,$&      $chr(44),$chr(125)),/""|"/g,$chr(32)) | $remove($2-10,%link) ID: $token(%fbid.,1,32) $&      <> $replace($token(%fbid.,2-4,32),name,Full Name:) <> Gender: $&      $iif($regex($token(%fbid.,4-,32),/gender\s(\S+)/),$regsubex($regml(1),/^(.)/,$&      $upper(\1)),None) <> Country: $iif($regex($token(%fbid.,4-,32),/locale\s(\S+)/),$&      $regml(1),None) <> FaceBook Link: $+(%link,$token(%fbid.,1,32)) | sockclose $sockname  }}

Statistics: Posted by Zecca93 — Thu Apr 26, 2012 9:20 pm

]]>