Anonymous

on *:text:*PRED*:#testee:{
  set %clean $strip($1-,burc)
  set %release $gettok( %Clean, 4, 32)
  set %type $gettok( $gettok($gettok(%clean,4,93),2,91), 1, 32)
  set %data $regex( %Clean, /([[:digit:]]{2}\/[[:digit:]]{2}\/[[:digit:]]{4})/g)
  set %data $regml(1) 
  set %data $asctime( $ctime( %data), yyyy/mm/dd)
  msg #testess !addold %type %release set data 00:00:00
}