on *:sockread:UpDaMsGeTdAmS:{
if ($sockerr) return
if (!$sock($sockname).mark) {
var %tmp
sockread %tmp
if (* !iswm %tmp) sockmark $sockname 1
}
else {
sockread &Data
while ($sockbr) {
.bwrite temp/ $+ %UpDaMs_b -1 $ifmatch &Data
sockread &Data
}
}
}