;
; LOGON.SCR Last Modified:
; July 13, 1998
; Tim Strike
;
; This logon script is a sample logon script. The logon script is called
; during the logon sequence - with one paremter, whether or not it is a fast
; logon or not. If it's a fast logon, @1@ = 1, otherwise @1@ = 0.
;
; add your doors here that you wish to run for all logins
; MENU DGC:\BBS\PATH\TGNEWS READ ~UN ~CP ~CB
; ... etc ...
; process full-length logon, skip if fastlogon
IF "@1@" "0"
; add your doors here that you wish to run for long logins only
; MENU DGC:\BBS\PATH\TGNEWS READ ~UN ~CP ~CB
; ... etc ...
; check auto-message
MENU UR
; display userinfo file
MENU -FUSERINFO
ENDIF
; show user statistics
PUTNL "`0BYou are caller #`09~SO"
NL
PUTNL "`07Time available ......: `0B~CT"
IFNOT "~TP" "0"
IFNOT "~TR" "0"
PUTNL "~SG`0EIllegal logons ......: `84~TR attempts"
ENDIF
PUTNL "`07Total times called ..: `0B~TP calls (~TQ today)"
PUTNL "`07Last date called ....: `0B~UI ~UJ"
ENDIF
ACS R8 PUTNL "`07Account limits ......: `0B~RC calls per day and ~RT minutes per call"
ACS !R8 PUTNL "`07Account limits ......: `0B~RC calls per day and ~RT minutes per day"
; mailbox status
MENU LM
; short-messages (important)
MENU LS
; voting tally (important)
MENU LV
; check mail
MENU MC
; if not fast-logon, bulletins
IF "@1@" "0"
PAUSE
MENU OS
ENDIF