smule

set args "hai https://www.smule.com/p/1578485488_2356295470} 12"

#bind pub -|- * smule_title
package require http

regsub -nocase -all { } $args "+" text
regsub -nocase -all {https} $args "http" text
puts $text
regexp -line -- {http(.*)+} $text smules(url)
puts "$smules(url)"
regsub -nocase -all {\}} $smules(url) "+" smule(url)
puts "$smule(url)"

http::config -useragent mozilla
set urltok [http::geturl $smule(url) -timeout 20000]
set smule(rpage) [http::data $urltok]
http::cleanup $urltok

regsub -nocase -all (<b>|</b>|\t|<i>|</i>) $smule(rpage) "" rpage

regexp -line -- {<title>(.*)</title>} $rpage -> smule(title)
regsub -nocase -all "  " $smule(title) " " smule(title)
puts $smule(title)

proc smule_title { nick uhost hand chan args} {

if {[string match -nocase "*No Videos found*" $rpage] || ![info exists ip(as)]} {puthelp "privmsg $chan :we are have error gateway!! sorry."} else {
puthelp "privmsg $chan :$smule(title)"}

}