Stuff

on ^$*:TEXT:/^(!addpre\b)|(!add\b)/g:#: {
  haltdef  
  if (%DISABLE.ADDPRE) || ($banned($fulladdress)) return
  elseif (!$3) return
  elseif (%RESTRICT.ADDPRE) && (!$authorized($fulladdress,$chan,$network,!addpre)) return
  elseif (%FILTER.ADDPRE) && (!$validEntry($2)) return
  else {
    var %pretime = $ctime, %rlsname = $2, %cat = $catcheck(%rlsname,$3)
    noop $regex(%rlsname,/([\w\d]+$)/g)
    var %group = $regml(1), %userid = $getUserID($nick,$chan,$network,$address)

    if ( $addpre(%rlsname, %cat, %pretime, %group, %userid) ) {
      respondWith %ADDPRE.SUCCESS
      addaddpre $nick !addpre %rlsname %cat
      if (%ANNOUNCE.PRE) {
        var %reply = !addpre %rlsname %pretime %cat
        makeAnnounce %reply
      }
    }
    else respondWith %ADDPRE.FAIL
  }
}

alias addaddpre {
  if (!$window(@!addpre)) { window -ak0eg2 @!addpre }
  var %nick = $+(<,$1,>), %rlsname = $3, %output = $2-
  var %tstamp = 02( $+ $time $+ 02)
  if ($fline(@!addpre,%rlsname,0,2)) return
  else aline -h @!addpre %tstamp %nick %output
}