Forums mIRC Help HTTP 1.1 Image Transfer Issue

alias GetProfile {
  var %x = 1, %y = $len($$1), %puid = ""
  while (%x <= %y) {
    %puid = $+(%puid,$base($base($asc($mid($1,%x,1)),10,8),8,16))
    inc %x
  }
  ;if (!$dialog($+(ProfileView.,%puid))) {
  ;  dialog -m $+(ProfileView.,%puid) $+(ProfileView.,%puid)
  ;}
  hadd -m $+(Picture.,%puid) Nickname $1
  sockopen $+(Picture.,%puid) sparkpea.net 80
  ; sockopen $+(Profile.,%puid) sparkpea.net 80
}

on *:SOCKOPEN:Picture.*:{
  sockwrite -n $sockname GET $+(/memberpic.php?size=l&epuid=,$gettok($sockname,2,46)) HTTP/1.0
  sockwrite -n $sockname Host: www.sparkpea.net
  sockwrite -n $sockname $crlf $+ $crlf
}

on *:SOCKREAD:Picture.*:{
  sockread -fn &buffer
  if ($sockerr) {
    echo 5 -s $+(Error in $sockname ",$sock($sockname).wsmsg," [,$sock($sockname).wserr,])
    return
  }
  tokenize 32 $bvar(&buffer,1,$bvar(&buffer,0)).text
  if ($debug()) echo 3 -s $sockname $+ ; $1-

  ;- START SOCKET STATEMENTS

  if ($1 == HTTP/1.1 && $2 != 200) sockclose $sockname
  elseif ($bvar(&buffer,1).long == $null) hadd -m $sockname IsReading $true
  elseif ($hget($sockname,IsReading)) bwrite test.txt -1 -1 &buffer

  ;- END SOCKET STATEMENTS
}

on *:SOCKCLOSE:Picture.*:{
  echo 3 -a SOCKCLOSE $sockname $1-
  if ($findfile($+($ActiveDirectory(),temp\),$+($sockname,.jpg),0)) {
    hadd -m $sockname Picture $+($ActiveDirectory(),temp\,$sockname,.jpg)
    hadd -m $sockname IsReading $false
  }
  else {
    hadd -m $sockname Picture $+($ActiveDirectory(),nophoto.jpg)
    hadd -m $sockname IsReading $false
  }
}