mIRC URLTitle

;#################################################
;##                                             ##
;##              URLTitle 1.0 Regex             ##
;##              Made by TheShadow              ##
;##                                             ##
;#################################################

on *:TEXT:*http*:#hf-network,#hf-modders,#testtest2: {
  ;echo -d i'm in TEXT and my text was $1
  if (http isin $1) { URLTitleFun $1 }
}

alias URLTitleFun {
  %FromChannel = $chan
  ;echo -a URLTitleFun
  ;echo -a send url : $1

  if ($regex(info, $1, ([a-z][a-z0-9+\-.]*?:\/\/)([^\/?#]+)?(.*) )) {
    ;echo -a Groups Counter: $regml(info,0)
    %site = $regml(info, 2)
    %siteSub = $regml(info, 3)

    ;echo -a site: %site
    ;echo -a siteSub: %siteSub

    if (youtu isin $1) {
      /return
    }
    else (https isin $1) {
      sockclose URLTitle
      sockopen -e URLTitle %site 443
    }
    else {
      sockclose URLTitle
      sockopen URLTitle %site 80
    }

  }
}

on *:sockopen:URLTitle: {
  ;echo -a sockopen:URLTitle
  ;echo -a %site / www. $+ %site / %siteSub

  /*
  echo -a $sockname GET %siteSub HTTP/1.1
  ;echo -a $sockname Host: www. $+ %site
  echo -a $sockname Host: %site
  echo -a $sockname Connection: close
  echo -a $sockname $crlf
  */

  sockwrite -n $sockname GET %siteSub HTTP/1.1
  sockwrite -n $sockname Host: %site
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:sockread:URLTitle: {
  ;echo -a sockread:URLTitle
  if ($sockerr) {
    /msg %FromChannel An error occurred: $sock($sockname).wsmsg
  }

  sockread %line
  ;echo -a Line: %line
  if ($regex(info,%line, <title>(.*)<\/title>\s?\S? )) {
    sockclose $sockname
    ;echo -a Groups Counter: $regml(info,0)
    ;echo -a Groups Counter: $regml(info,1)
    %holdmsg  = $regml(info,1)
    %holdmsg = $replace(%holdmsg,&#38;,')
    %holdmsg = $replace(%holdmsg,&#34;,')
    %holdmsg = $replace(%holdmsg,&#39;,')
    %holdmsg = $replace(%holdmsg,&quot;,')
    %holdmsg = $replace(%holdmsg,&amp;,&)
    %holdmsg = $replace(%holdmsg,&#x27;,')


    /msg %FromChannel 4[10Site Title4]5 %holdmsg

  }
}