Youtube Profile by intersys

alias youtube { sockclose yti | sockopen yti www.youtube.com 80 | did -a inf 9 www.youtube.com/user/ $+ %yti.chan $+ /about  }
on *:sockopen:yti: {
  sockwrite -n $sockname GET /user/ $+ %yti.chan $+ /about HTTP/1.0
  sockwrite -n $sockname Host: www.youtube.com
  sockwrite -n $sockname $crlf
}
on *:sockread:yti: {
  if (!$sockerr) {
    var %yti | sockread %yti
    if ($regex(%yti,/subscribed" title="(.+?)">/)) { did -a inf 11 $regml(1) }
    elseif ($regex(%yti,/<b>(.+?)</b> views/)) { did -a inf 12 $regml(1) }
    elseif ($regex(%yti,/<meta name="title" content="(.+?)">/)) { did -a inf 10 $regml(1) }
    elseif ($regex(%yti,/Joined(.+)/)) { did -a inf 13 $regml(1) }
  }
}

dialog inf {
  title "Youtube Profile"
  size -1 -1 142 80
  option dbu
  box "Youtube Profile Info - By intersys", 1, 2 3 139 75
  text "שם:", 2, 7 16 25 8
  text "מספר משתמשים רשומים:", 3, 7 26 69 8
  text "מספר צפיות בסרטונים:", 4, 7 36 64 8
  text "הצטרף בתאריך:", 5, 7 46 47 8
  edit "", 6, 5 54 50 12
  button "קבל נתונים", 7, 59 54 37 12
  button "סגור", 8, 100 54 37 12
  button "Button", 9, 5 67 133 9
  text "", 10, 94 14 40 8
  text "", 11, 94 24 40 8
  text "", 12, 94 34 40 8
  text "", 13, 94 44 40 8
}
on *:dialog:inf:*:*: {
  if ($devent == init) {
    did -a $dname 9,10,11,12,13 ריק
  }
  elseif ($devent == sclick) {
    if ($did == 7) { set %yti.chan $did(6) | youtube }
    elseif ($did == 8) { dialog -x $dname }
    elseif ($did == 9) { url www.youtube.com/user/ $+ %yti.chan $+ /about }
  }
  elseif ($devent == close) { unset %yti.chan }
}
menu * {
  Youtube Profile info:{ dialog $iif($dialog(inf),-v,-md) inf inf }
}