alias socktest {
  sockclose Deluge
  ;set %Test# $iif($chan,$chan,$nick)
  set %TestURL /profile/u/manish17
  sockopen -e Deluge www.delugerpg.com 443
}

on *:SOCKOPEN:Deluge: {
  sockwrite -n Deluge GET %TestURL HTTP/1.1
  sockwrite -n Deluge Host: www.delugerpg.com
  sockwrite Deluge $crlf
}

on *:SOCKREAD:Deluge: {
  sockread %Test
  while ($sockbr) {
    /*
    if (<p> isin %Test) {
      echo %Test
      unset %Test*
      sockclose Deluge
      return
    }
    */
    write test.txt - %Test
  }
  sockread %Deluge

}