on *:SOCKREAD:dcc.*:{
if ($sockerr) { return }
while ($sock($sockname).rq) {
sockread 4096 &dcc
bwrite %filename -1 -1 &dcc
}
}