@program lib-comsys-global.muf
1 1000 d
i
( Support library for making global comsys channels
  Propdir: #0:/_comsys/<command>/
    Props: Channel: Channel this alias will map to
           Login:   Person is automatically added on login if they arent part
  Propdir: me:/_comsys/<command>/
    Props: NoLogin: Override for Login on #0
)
$include $lib/alynna
$include $lib/comsys
lvar param

: addgcom
var alias
var channel
param @ "=" split channel ! alias !
#0 "/_comsys/<channel>/
;

: main
param !
command @ tolower case
 "queued event." smatch when param @ tolower case
   "connect" smatch when autologin end
  endcase
 "addgcom" smatch when addgcom end
 "delgcom" smatch when delgcom end
 "autocom" smatch when autojoincom end
 "noautocom" smatch when noautojoincom end
 default gtalk end
endcase
;
.
c
q