Youtube by intersys

[intersys]

שם הקוד: מידע על ערוץ ביוטיוב
יוצר: intersys
גירסא: 1.0
תיאור: כשמפרסמים סרטון מהיטיוב המירק שלכם רושם את הפרטים על הסרטון
לדוגמא:

קוד: בחר הכל

[19:52:08] <intersys> http://www.youtube.com/watch?v=oiKj0Z_Xnjc
[19:52:09] <ServersBot> [youtube] Title: Stromae - Papaoutai • Views: 170,272,425 • Li

הקוד:

קוד: בחר הכל

on *:text:*youtube.com/watch?v=*:#: {
  if (!$sock(yt)) {
    noop $regex($strip($1-),http:\/\/.*youtube.*\/watch\?v=(.{11})&?.*)
    sockopen yt www.youtube.com 80 | sockmark yt sockmark yt $+(#,>,$regml(1))
    .set %yt.chan $chan
  }
}
on *:sockopen:yt: {
  sockwrite -n $sockname GET $+(/watch?v=,$gettok($sock(yt).mark,2,62)) HTTP/1.0
  sockwrite -n $sockname Host: www.youtube.com
  sockwrite -n $sockname $crlf
}
on *:sockread:yt: {
  if (!$sockerr) {
    var %yt | sockread %yt
    if ($regex(%yt,/<meta name="title" content="([^"]*)">/)) { set %yt.title $replace($regml(1),&amp;,&) }
    if ($regex(%yt,/<div class="watch-view-count">(\d.+)\</div>/)) { set %yt.views $regml(1) }
    if ($regex(%yt,<span class="likes-count">(.+?)</span>)) { set %yt.likes $regml(1) }
    if ($regex(%yt,<span class="dislikes-count">(.+?)</span>)) { set %yt.dislikes $regml(1) }
    if ($regex(%yt,data-name="watch">(.+)</a>)) { set %yt.user $regml(1) }
  }
}
on *:sockclose:yt: {
  msg %yt.chan [1YOU0,4TUBE1,0] Title: %yt.title 14 $+ $chr(149) Views: %yt.views 14 $+ $chr(149) Likes: %yt.likes 14 $+ $chr(149) Dislikes: %yt.dislikes $&
    14 $+ $chr(149) Uploader: %yt.user $+ . 14(By intersys) | unset %yt.*
}