pic2fb (old-non-working)

# Command !pic2fb

# Usage example: !pic2fb http://a7.sphotos.ak.fbcdn.net/hphotos-ak-snc7/417229_270923126316188_216952361713265_609445_1510413814_n.jpg

# Export: Facebook -=> http://www.facebook.com/phone.use.flashlight -=> I use my phone as a flashlight, and hit random buttons to keep it lit | Facebook

# Coded by tik-tak & munZe

bind pub - !pic2fb pub_fb
bind pub - !title pub_fb

package require http

proc pub_fb {nick mask hand chan url} {
    if { ![regexp {.+fbcdn.+} $url] } {
    set fburl $url
    set titletxt "Title"
    set page [ ::http::geturl $fburl ]
    set page [ ::http::data [ ::http::geturl $fburl -strict 0 ] ]
    regexp {<title>(.*)</title>} $page match title
    set title [ encoding convertto utf-8 $title]
    } else {
    set id [lindex [split $url _] end-3 ]
        set fbid "http://www.facebook.com/profile.php?id=$id"
    set titletxt "Facebook"
    set page [ ::http::geturl $fbid ]
    set fburl [dict get [array get $page] meta Location]
    set page [ ::http::data [ ::http::geturl $fburl -strict 0 ] ]
    regexp {<title>(.*)</title>} $page match title
    set title [ encoding convertto utf-8 $title]
    set fburl [ encoding convertto utf-8 $fburl] }

    if {$title != ""} { puthelp "PRIVMSG $chan \002$titletxt -=>\002 \037$fburl\037 -=> \002$title\002"
    } else { puthelp "PRIVMSG $chan There is some errors with requested link." }

}

    putlog "Picture 2 Facebook is loaded nad coded by tik-tak & munZe"