alias wn {
  if $sock($1).status == active {
    sockwrite -n $1-
  }
}

alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}

alias meta {
  if !$sock(meta) {
    if ($1 == $null) {
      echo -a Herhangi bir site bilgisi girilmedi, lütfen /meta siteadı şeklinde kullanınız.
      halt
    }
    set %::postveri $1
    sockopen meta webuildpages.com 80
  }
  else { .echo -a Zaten şuan da aktif konumdayım. }
}

on *:sockopen:meta:{
  var %wn url= $+ %::postveri $+ &c=1
  wn meta POST /seo-tools/spider-test/index.php HTTP/1.1
  wn meta Content-Type: application/x-www-form-urlencoded; charset="utf-8"
  wn meta Content-Length: $calc($len(%wn) + 1)
  wn meta Host: webuildpages.com
  wn meta
  wn meta %wn
}

on *:sockread:meta:{
  var %w
  sockread %w
  if (*<p><strong>Title:* iswm %w) echo -a 2Title: $remove($afree(%w),title:)
  if (*<p><strong>Description:* iswm %w) echo -a 2Description: $remove($afree(%w),description:)
  if (*<p><strong>Keywords:* iswm %w)  echo -a 2Keywords: $remove($afree(%w),keywords:)
  if (*<p><strong>Size:* iswm %w) echo -a 2Boyut: $remove($afree(%w),Size:) (byte)
  if (*<p><strong>Number*distinct*words:* iswm %w) echo -a 2Google icin kelime sayisi: $remove($afree(%w),Number,of,Distinct,words:)
}