Considering how long I am taking between replies, I am not expecting much, but I am hoping for some help on how to tweak the following to say "youtube link is valid" or "youtube link is not valid"

Code:
on @*:text:!song*:#:{
  if ($2 != $null) {
    demo $2
  }
}
alias demo {
  %videoid = $1
  %sockname = demo. $+ $ticks
  hfree -w %sockname | hmake %sockname
  hadd %sockname host gdata.youtube.com
  hadd %sockname port 80
  hadd %sockname request /feeds/api/videos/%videoid
  sockopen -e %sockname $hget(%sockname,host) $hget(%sockname,port)
}

on *:sockopen:demo.*: {
  var %<< = sockwrite -nt $sockname
  %<< GET $hget($sockname,request) HTTP/1.0
  %<< Host: $sock($sockname).addr
  %<< $crlf
}

on *:sockread:demo.*: {
  var %header, %content
  if (!$hget($sockname,header.complete)) {
    sockread %header
    while (%header != $null) {
      if (HTTP/* 2?? * iswm %header) { hadd $sockname following $true }
      elseif (HTTP/* 4?? * iswm %header) {
      }
      ;echo -ag %header
      sockread %header
    }
    if ($sockbr) hadd $sockname header.complete $true
  }

  if ($hget($sockname,header.complete)) {
    while ($sockbr) {
      sockread -f %content
      ;if (%content != $null) echo -ag %content
    }
  }
}

on *:sockclose:demo.*:{
  if ($hget($sockname,following)) { var %msg = Following }
  else { var %msg = Not following }

  if ($hget($sockname,chan)) { msg $v1 %msg }
  else { echo -ag %msg }

  hfree $sockname
}