/*
------------------------------------------------------------------------
                 Oves SommarHus BBS +46-(0)16-146837 
  $VER: FastStatus.Rexx 1.1 (29-09-96) Snille Of LoserKlubben.inc
------------------------------------------------------------------------

Description:  Fast status viewer for the login sequence!

Requirements: CNet 3.05

Install:      Just copy this file to PFiles:FastStatus/
              and insert this line in your Sys.Welcome
              #0Pfiles:FastStatus/FastStatus.Rexx}

Mail me at:   E-Mail:
              erik.pettersson@mailbox.swipnet.se

------------------------------------------------------------------------
*/

options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; gs=getscratch
a='rexxsupport.library' ; if ~show('l',a) then if ~addlib(a,0,-30) then exit

/* ------------------------- Config here ------------------------------- */
BBS="Oves SommarHus BBS"                 /* BBS name                     */
MaxAX="11"                               /* Higest User accsess          */
Comment="(11=Free DL 4 ALL)"             /* Comment after AX grop...     */
/* ------------------------ End of Config ------------------------------ */

options results
getuser 15 ; axsg=result
getuser 16 ; axsgn=result
getuser 34 ; fcred=result ||' Files'
getuser 35 ; bcred=result ||' Bytes'

getuser 1100663
a=d2c(result+(result<0)*256)
if (BitTST(a,7)) = 1 then bcred = 'c7DISABLED'
if (BitTST(a,6)) = 1 then fcred = 'c7DISABLED'

Done:
transmit "c7"
transmit center("---- Your security status on "BBS" -----",79)
transmit center("c2Security Level : c3"axsg" of "MaxAX" "Comment,83)
transmit center("c2Level name : c3"axsgn"",81)
transmit center("c2File Credits : c5"fcred"",83)
transmit center("c2Byte Credits : c5"bcred"",83)
transmit "c7"
Exit

SYNTAX: ; ERROR: ; IOERR: ; er=rc' ('errortext(rc)') in line 'sigl
	getuser 1311992 ; a=result ; getuser 1311960 ; b=result ; c='"'a||b'"'
	er='Error Code 'er' of 'c ; transmit er ; logentry er ; bufferflush
Exit