Forums Scripts & Popups socket dcc get

 on *:sockread:dccget*: {
  sockread &dccget
  :dccget
  if ($sockerr) { echo #root Sock Error $sockerr }
  if ($sockbr == 0) { sockwrite -n $sockname $lf ? | return }
  bwrite $gettok($hget($sockname,file),1,32) -1 -1 &dccget
  echo #root   sockwrite -n $sockname sent packet $sock($sockname).rcvd
  sockread &dccget
  goto dccget
} 

on *:sockread:dccget*: {

  sockread &dccget

  :dccget {

    if ($sockerr) { echo #root Sock Error $sockerr }

    if ($sockbr == 0) { sockclose $sockname | halt }

    bwrite $gettok($hget($sockname,file),1,32) -1 -1 &dccget

    echo -a $sock($sockname).rcvd bytes recieved

    sockread &dccget

  }

  goto dccget

}