Code:
ctcp *:DCC SEND*:?:{
  if !$regex($3-,/^(.+) (?!0 )(?:\d+) (?!0 )(?:\d+) (?!0$)(?:\d+)$/) {
    dcc reject
    halt 
  }
  tokenize 32 $regml(1)
  if $isfile($+(", $getdir($1-), $1-, ")) {
    var %e = $mid($1-, $pos($1-, ., $pos($1-, ., 0)))
    .rename $+(", $getdir($1-), $1-, ") $&
      $+(", $getdir($1-), $left($1-, $+(-, $len(%e))), -[, $ctime, ], %e, ")
  }
}

DALnet: #HelpDesk and #m[color:#FF0000]IR[color:#EEEE00]C