/*
                      _____
                     /      __  _ _   __  __    __  _  __  ____
                     \     /  _/  \  /   /     /   /  /   / __
                   ___\   /        \    / __  /   /      / __
                  /      /  \      /   /     /   /  \   /
______________________________________________________________________________
 
     Level/UserInfo, © 1993/94 by Casa Nova, Sysop of Skyline BBS Berlin.
     It was written for TempestBBS, higher than v1.4u. Started: 07-31-93

     Insert to your Optionals [*,*,*,*,*] = Y |REXX|TempRexx:PN-UserInfo.rexx


______________________________________________________________________________   */

/*TRACE RESULTS*/				/*----------------------*/
OPTIONS RESULTS                                 /*----------------------*/
ARG BBS_NODE                                    /* Grab the Node Number */
Address value 'TempRexx-'BBS_NODE               /* Tell Arexx # of NODE  /
------------------------------------------------------------------------*/
VERS = '1.4'		                        /* DON'T CHANGE! 	 /
------------------------------------------------------------------------*/
PROGRAMNAME = 'UserInfo'			/* DON'T CHANGE!	 /
------------------------------------------------------------------------*/
V_DATE = '02-09-94'                             /* DON'T CHANGE!         /
------------------------------------------------------------------------*/
Bufferflush                                     /*                      */
signal ON ERROR                                 /*                      */
signal ON HALT                                  /*                      */
signal ON SYNTAX                                /*                      */
signal ON FAILURE                               /*                      */
signal ON IOERR                                 /*                      */
                                                /*----------------------*/
'Getvar' 43                                     /* UserName             */
RUName = (result)                               /* Name UPPER-CASE      */
                                                /*----------------------*/
'Getvar' 0                              	/* Path where the BBS is*/
BBS    = (result)                          	/* located              */
                                                /*----------------------*/
'BBSIDENTIFY ANSI'                              /* Ansi on/off?         */
gfx = (result)                                  /*                      */
                                                /*----------------------*/
'Getvar' 1                                      /* Path to the Accounts:*/
SAF    = (result)                               /*                      */
                                                /*----------------------*/
'Getvar' 4                                      /* Path to the Text: Dir*/
STF    = (result)                               /*                      */
                                                /*----------------------*/
'Getvar' 9                                      /*                      */
SAF    = (result)			        /* Accounts: Directory  */
                                                /*----------------------*/
'Getvar' 16                                     /*                      */
DATE   = (result)			        /* DATE			*/
                                                /*----------------------*/
'Getvar' 17                                     /*                      */
TIM    = (result)			        /* TIME			*/
                                                /*----------------------*/
'Getvar' 18                                     /* Name of the BBS     	*/
SYSTEM = (result)                               /* (don't change!)     	*/
                                                /*----------------------*/
'Getvar' 19                                     /*                      */
Baud   = (result)			        /* Baud Rate of User    */
                                                /*----------------------*/
'Getvar' 30                                     /*                      */
LDB    = (result)			        /* Daily DL byte Limit  */
                                                /*----------------------*/
'Getvar' 31                                     /*                      */
UCL    = (result)			        /* Call Limit / Day     */
                                                /*----------------------*/
'Getvar' 32                                     /*                      */
UCT    = (result)			        /* Users Calls today    */
                                                /*----------------------*/
'Getvar' 33                                     /*                      */
UTC    = (result)			        /* Total calls system   */
                                                /*----------------------*/
'Getvar' 34                                     /*                      */
DF     = (result)			        /* DL Files 		*/
                                                /*----------------------*/
'Getvar' 35                                     /*                      */
UF     = (result)			        /* Uploaded Files	*/
                                                /*----------------------*/
'Getvar' 37                                     /*                      */
TL     = (result)			        /* Daily Time Limit	*/
                                                /*----------------------*/
'Getvar' 39                                     /*                      */
TR     = (result)			        /* Remaining Time  	*/
                                                /*----------------------*/
'Getvar' 43                                     /*                      */
UName  = (result)	 		        /* User whos ONLINE	*/
                                                /*----------------------*/
'Getvar' 44                                     /*                      */
LO     = (result)	 		        /* User`s LOCATION	*/
                                                /*----------------------*/
'Getvar' 70                                     /*                      */
RN     = (result)			        /* Real Name            */
                                                /*----------------------*/
'Getvar' 71                                     /*                      */
PASS   = (result)			        /* User`s Password      */
                                                /*----------------------*/
'Getvar' 72                                     /*                      */
PN     = (result)			        /* Phone Number         */
                                                /*----------------------*/
'Getvar' 73                                     /*                      */
CT     = (result)	 		        /* User's Computer-Type	*/
                                                /*----------------------*/
'Getvar' 74                                     /*                      */
FR     = (result)	 		        /* File Ratio		*/
                                                /*----------------------*/
'Getvar' 75                                     /*                      */
FB     = (result)	 		        /* Byte Ratio		*/
                                                /*----------------------*/
'Getvar' 76                                     /*                      */
DB     = (result)	 		        /* DL Bytes since day 1 */
                                                /*----------------------*/
'Getvar' 77                                     /*                      */
UB     = (result)	 		        /* Uploaded Bytes	*/
                                                /*----------------------*/
'Getvar' 78                                     /*                      */
LDF    = (result)	 		        /* Daily DL File limit	*/
                                                /*----------------------*/
'Getvar' 92                                     /*                      */
UMT    = (result)			        /* MSG left today       */
                                                /*----------------------*/
'Getvar' 82                                     /*                      */
DFT    = (result)			        /* DL Files today       */
                                                /*----------------------*/
'Getvar' 83                                     /*                      */
DBT    = (result)			        /* DL Bytes today       */
                                                /*----------------------*/
'Getvar' 84                                     /*                      */
UFT    = (result)			        /* UL Files today       */
                                                /*----------------------*/
'Getvar' 85                                     /*                      */
UBT    = (result)			        /* UL Bytes today       */
                                                /*----------------------*/
'Getvar' 86                                     /*                      */
DFL    = (result)			        /* DL allowed files left*/
                                                /*----------------------*/
'Getvar' 87                                     /*                      */
DBL    = (result)			        /* DL allowed Bytes left*/
                                                /*----------------------*/
'Getvar' 93                                     /*                      */
UML    = (result)			        /* MSG allowed / day    */
                                                /*----------------------*/
'Getvar' 94                                     /*                      */
TCT    = (result)			        /* Calls Today          */
                                                /*----------------------*/
'Getvar' 109                                    /*                      */
LEV    = (result)                               /* User Level           */
                                                /*----------------------*/
'Getvar' 126                                    /*                      */
UMF    = (result)                               /* User's MSG flags     */
                                                /*----------------------*/
'Getvar' 127                                    /*                      */
UFF    = (result)                               /* User's File flags    */
                                                /*----------------------*/
'Getvar' 128                                    /*                      */
UOP    = (result)                               /* User's Option flags  */
                                                /*----------------------*/
'Getvar' 131                                    /*                      */
FCL    = (result)			        /* Users First Call     */
                                                /*----------------------*/
'Getvar' 132                                    /*                      */
LCL    = (result)			        /* Users Last Call      */
                                                /*----------------------*/
'Getvar' 133                                    /*                      */
PWF    = (result)			        /* Password Failures    */
                                                /*----------------------*/
'Getvar' 208                                    /*                      */
SN     = (result)                               /* UserSlotNumber(User#)*/
                                                /*----------------------*/
	                       			/*                      */
file7=SAF'FlaggedFiles/FF-'SN  			/*                      */
                                                /*----------------------*/



/*    *********** NOT DEFINED NOW, PLEASE INCL. THE CODES ************

                                                /*----------------------*/
'Getvar' ???                                    /*                      */
UTG    = (result)			        /* Upload Time Gained   */
                                                /*----------------------*/
'Getvar' ???                                    /*                      */
UBD    = (result)			        /* Users Birthday       */
                                                /*----------------------*/
'Getvar' ???                                    /*                      */
LON    = (result)			        /* Last on Node         */
                                                /*----------------------*/
'Getvar' ???                                    /*                      */
VIEW   = (result)			        /* Filelist Viewmode #  */
                                                /*----------------------*/
'Getvar' ???                                    /*                      */
APU    = (result)			        /* Add % of UL time     */
                                                /*----------------------*/
'Getvar' ???                                    /*                      */
TB     = (result)			        /* Mins stored:Timebank */
                                                /*----------------------*/
*/



/*----------------------------------------------------------------------*/
BIRTH='00-00-00'    /* Birthday              Not defined in Tempest */
VIEW ='-'           /* View-Mode        \    Arexx now!             */
LON  ='-'           /* Last on Node      \                          */
UTG  ='--'          /* Time / UL Tdy.     >  Remove this lines when */
APU  ='50'          /* Add Time/UL(50%)  /   incl. and define them  */
TB   ='--'          /* Timebank         /    in the upper line!     */

/************************************************************************/
/***  C H A N G E   T H I S  (if you like)  *****************************/
/************************************************************************/
                                                /* Change to YOUR favor.*/
DISPLAY = 1                   			/* Display-Mode: 1 or 2 */
                    				/*                      */
/************************************************************************/

/*address command 'setenv NODE-'BBS_NODE' 'BBS_NODE'' /* No InterNode-MSGs*/*/

file0 = 'NODE:DOOR_'BBS_NODE			/* Create NODE:DOOR_#   */
OPEN(fn0,file0,'W')				/* Create NODE:DOOR_#   */
Writeln(fn0,'UserInfo   ')			/* Create NODE:DOOR_#   */
CLOSE(fn0)                   			/* Create NODE:DOOR_#   */

FLA = 'Yes'					/* Flagged Files   	*/
file7='BBS:Accounts/FlaggedFiles/FF-'SN  	/*                      */
IF ~exists(file7) THEN DO                       /*                      */
   FLA='No'                        		/*                      */
END                        			/*                      */

 l=E
 A.29 = 'English'
 A.30 = 'Tempest'

SYS = 'Ok'                        		/* User access 		*/
IF LEV = 255 THEN DO                            /* Level 255 ? 		*/
   SYS = '<Sysop>'                              /* then Sysop access	*/
END                                             /* 	 		*/

START:
/*---------------------------------------------------------*/
'Getvar' 74                             	/*                      */
FR = (result)	 		        	/* File Ratio		*/
                                        	/*----------------------*/
'Getvar' 75                             	/*                      */
FB = (result)	 		        	/* Byte Ratio		*/

USER_STATS:
IF FR>0 THEN DO
FR='1:'FR
END
IF FB>0 THEN DO
FB='1:'FB
END

IF FR=0 THEN DO
FR='off'
END
IF FB=0 THEN DO
FB='off'
END


file4 = 'ENV:NODE-'BBS_NODE	  		/* Directory of NODE:   */
IF exists(file4) THEN DO
   ENV='No'
END
IF ~exists(file4) THEN DO
   ENV='Yes'
END

m=0
f=0
z=0
ACC.1 =' ' ; AC.1 =' ' ; Ax.1 =' '
ACC.2 =' ' ; AC.2 =' ' ; Ax.2 =' '
ACC.3 =' ' ; AC.3 =' ' ; Ax.3 =' '
ACC.4 =' ' ; AC.4 =' ' ; Ax.4 =' '
ACC.5 =' ' ; AC.5 =' ' ; Ax.5 =' '

DO z = 1 TO 23
    FLAG = SUBSTR(''UMF'',z,1,)		/* This one checks if User has  */
    IF FLAG=Y THEN DO		        /* Option flags set to "Yes"    */
    m = m+1
    a=1
    AC.a  = 'Access'
    Ax.a = '.:'
    ACC.a = 'Messages'
    END
    IF FLAG=S THEN DO		        /* Option flags set to "Yes"    */
    m = m+1
    a=1
    AC.a = 'Access'
    Ax.a = '.:'
    ACC.a = 'Messages'
    END
END z

DO z = 1 TO 23
    FLAG = SUBSTR(''UFF'',z,1,)		/* This one checks if User has  */
    IF FLAG=Y THEN DO		        /* Option flags set to "Yes"    */
    f = f+1
    ACCf=1
    END
    IF FLAG=S THEN DO		        /* Option flags set to "Yes"    */
    f = f+1
    ACCf=1
    END
END z
IF ACCf = 1 THEN DO
    a=a+1
    AC.a = 'Access'
    Ax.a = '.:'
    ACC.a = 'Files'
END


    BULL='No'
    VOTE='No'
    DOOR='No'
    FILE='No'

    BULL = SUBSTR(''UOP'',13,1,)	/* This one checks if User has  */
    IF BULL=Y THEN DO		        /* Option flag #12 set to "Yes" */
    BULL ='Yes'
    a=a+1
    AC.a = 'Access'
    Ax.a = '.:'
    ACC.a = 'Bulletins'
    END

    VOTE = SUBSTR(''UOP'',15,1,)	/* This one checks if User has  */
    IF VOTE=Y THEN DO		        /* Option flag #14 set to "Yes" */
    VOTE ='Yes'
    a=a+1
    AC.a = 'Access'
    Ax.a = '.:'
    ACC.a = 'Voting'
    END

    DOOR = SUBSTR(''UOP'',16,1,)	/* This one checks if User has  */
    IF DOOR=Y THEN DO		        /* Option flag #15 set to "Yes" */
    DOOR ='Yes'
    a=a+1
    AC.a = 'Access'
    Ax.a = '.:'
    ACC.a = 'Doors'
    END

    REL = SUBSTR(''UOP'',35,1,)		/* This one checks if User has  */
    IF REL=Y THEN DO		        /* Option flag #34 set to "Yes" */
    REL ='Yes'
    END
    IF REL=N THEN DO		        /* Option flag #34 set to "Yes" */
    REL ='No'
    END

/*
    SYS = SUBSTR(''UOP'',38,1,)	        /* This one checks if User has  */
    IF SYS=Y THEN DO		        /* Option flag #37 set to "Yes" */
    SYS='F-SYSOP'
    END
*/

IF F>0 THEN DO
 FILE='Yes'
END

IF F=S THEN DO
 FILE='Yes'
END

IF M>0 THEN DO
 MSG='Yes'
END

IF GFX = '0' THEN DO
GFX = 'Off'
END
IF GFX = '1' THEN DO
GFX = 'On'
END

CLS
IF DISPLAY = 1 THEN DO
MESSAGE
MESSAGE ' 'system'  'PROGRAMNAME' 'VERS' 'copies(' ',23-length(system))''copies(' ',15-length(PROGRAMNAME))' Designed by Casa Nova ['V_DATE'] '
MESSAGE ''COPIES('-',80)''
MESSAGE 'Username..: 'LEFT(''Uname'',52)'  Date: 'DATE
MESSAGE 'Location..: 'LEFT(''LO'',52)'  Time: 'TIM
MESSAGE ''COPIES('-',80)''
MESSAGE 'Computer..: 'LEFT(''CT'',14)' Calls/Day...: 'LEFT(''UCL'',5)' 'LEFT(''AC.1'',6)''LEFT(''Ax.1'',2) ''LEFT(''ACC.1'',9)' Logon/ID#: 'SN
MESSAGE 'Phone.....: 'LEFT(''PN'',14)' Total Calls.: 'LEFT(''UTC'',5)' 'LEFT(''AC.2'',6)''LEFT(''Ax.2'',2) ''LEFT(''ACC.2'',9)' Level....: 'LEV /*'vel''SET_LEVEL*/
MESSAGE 'Birthday..: 'LEFT(''BIRTH'',14)' Calls Today.: 'LEFT(''UCT'',5)' 'LEFT(''AC.3'',6)''LEFT(''Ax.3'',2) ''LEFT(''ACC.3'',9)' ViewMode.: 'VIEW
MESSAGE 'Time Limit: 'LEFT(''TL' mins',14)' Messages/Day: 'LEFT(''UML'',5)' 'LEFT(''AC.4'',6)''LEFT(''Ax.4'',2) ''LEFT(''ACC.4'',9)' Remaining: 'TR
MESSAGE 'Baud Rate.: 'LEFT(''BAUD'',14)' Messages Tdy: 'LEFT(''UMT'',5)' 'LEFT(''AC.5'',6)''LEFT(''Ax.5'',2) ''LEFT(''ACC.5'',9)' TimeBank.: 'TB
MESSAGE 'First Call: 'LEFT(''FCL'',14)' Message Base: 'LEFT(''m'',5)'          'LEFT(''   '',9)' Re-Logon.: 'REL
MESSAGE 'Last Call.: 'LEFT(''LCL'',14)' Last on Node: 'LEFT(''LON'',5)'          'LEFT(''   '',9)' Flagged..: 'FLA
MESSAGE 'Language..: 'LEFT(''A.29'',14)' File Base`s.: 'LEFT(''f'',5)'          'LEFT(''   '',9)' Colors...: 'GFX
MESSAGE 'Emulation.: 'LEFT(''A.30'',14)' Time/UL.Tdy.: 'LEFT(''UTG'',5)' Status.: 'LEFT(''SYS'',9)' LogInfo..: 'LEFT(''ENV'',9)''
MESSAGE
MESSAGE '                  Total Files/Bytes   Todays Files/Bytes                        '
MESSAGE ''COPIES('-',80)
MESSAGE 'Downloads.......| 'RIGHT(''DF'',5)'  'RIGHT(''DB'',10)' | 'RIGHT(''DFT'',5)'  'RIGHT(''DBT'',10)' |  File Ratio.....: 'FR
MESSAGE 'Uploads.........| 'RIGHT(''UF'',5)'  'RIGHT(''UB'',10)' | 'RIGHT(''UFT'',5)'  'RIGHT(''UBT'',10)' |  Byte Ratio.....: 'FB
MESSAGE 'Dl`s Downloads..| 'RIGHT(''LDF'',5)'  'RIGHT(''LDB'',10)' | 'RIGHT(''DFL'',5)'  'RIGHT(''DBL'',10)' |  Add Time per UL: 'APU'%'
MESSAGE ''COPIES('-',80)''
END
IF DISPLAY = 2 THEN DO
MESSAGE
MESSAGE
MESSAGE ' 'system'  'PROGRAMNAME' 'VERS' 'copies(' ',23-length(system))''copies(' ',15-length(PROGRAMNAME))' Designed by Casa Nova ['V_DATE'] '
MESSAGE ''COPIES('-',80)''
MESSAGE 'Username........: 'LEFT(''Uname'',46)'  Date: 'DATE
MESSAGE 'Location/from...: 'LEFT(''LO'',46)'  Time: 'TIM
MESSAGE ''COPIES('-',80)''
MESSAGE 'Calls per Day...: 'LEFT(''UCL'',10)' Calls Today...: 'LEFT(''UCT'',15)'First Call: 'FCL
MESSAGE 'Total Calls.....: 'LEFT(''UTC'',10)' Computer......: 'LEFT(''CT'',15)'Last Call.: 'LCL
MESSAGE 'Messages per Day: 'LEFT(''UML'',10)' Phone.........: 'LEFT(''PN'',15)'Logon-/ID#: 'SN
MESSAGE 'Messages Today..: 'LEFT(''UMT'',10)' Baud Rate.....: 'LEFT(''BAUD'',15)'Level.....: 'vel''SET_LEVEL
MESSAGE 'Voting Access...: 'LEFT(''VOTE'',10)' Time Limit....: 'LEFT(''TL' mins',15)'Log-Info..: 'ENV
MESSAGE 'Message Access..: 'LEFT(''MSG'',10)' Message Base`s: 'LEFT(''m'',15)'Color/Ansi: 'GFX
MESSAGE 'File Access.....: 'LEFT(''FILE'',10)' File Base`s...: 'LEFT(''f'',15)'Birthday..: 00-00-00'
MESSAGE 'Bulletins Access: 'LEFT(''BULL'',10)' BBS Language..: 'LEFT(''A.29'',15)'+++.......: --'
MESSAGE 'Door Access.....: 'LEFT(''DOOR'',10)' BBS Emulation.: 'LEFT(''A.30'',15)'Bonus.....: --'
MESSAGE
MESSAGE '                  Total Files/Bytes   Todays Files/Bytes                        '
MESSAGE ''COPIES('-',80)
MESSAGE 'Downloads.......| 'RIGHT(''DF'',5)'  'RIGHT(''DB'',10)' | 'RIGHT(''DFT'',5)'  'RIGHT(''DBT'',10)' |   File Ratio: 'FR
MESSAGE 'Uploads.........| 'RIGHT(''UF'',5)'  'RIGHT(''UB'',10)' | 'RIGHT(''UFT'',5)'  'RIGHT(''UBT'',10)' |   Byte Ratio: 'FB
MESSAGE 'Dl`s Downloads..| 'RIGHT(''LDF'',5)'  'RIGHT(''LDB'',10)' | 'RIGHT(''DFL'',5)'  'RIGHT(''DBL'',10)' |   Remaining : 'TR' mins'
MESSAGE ''COPIES('-',80)''
END
/*---------------------------------------------------------*/

DONE:
DONE2:
/*address command 'DELETE ENV:NODE-'BBS_NODE' 'BBS_NODE' quiet' /*InterNode-MSGs*/*/
ADDRESS COMMAND 'DELETE NODE:DOOR_'BBS_NODE' quiet' 	/* Kill NODE:DOOR_# Info  */

/*---------------------------------------------------------*/
'exit'
exit

SYNTAX:
message "**SYNTAX ERROR** in line: " SIGL " Severity: " RC errortext(RC)
message "Notify Sysop Immediately!! -- Hit any key "
message " "
getchar
'exit'
exit

ERROR:
message "**IO ERROR** in line: " SIGL " Severity: " RC errortext(RC)
message "Notify Sysop Immediately!! -- Hit any key "
message " "
getchar
'exit'
exit

HALT:
message "**HALT** in line: " SIGL " Severity: " RC errortext(RC)
message "Notify Sysop Immediately!! -- Hit any key "
message " "
getchar
'exit'
exit

FAILURE:
message "**FAILURE** in line: " SIGL " Severity: " RC errortext(RC)
message "Notify Sysop Immediately!! -- Hit any key "
message " "
getchar
'exit'
exit

NOVALUE:
message "**NOVALUE** in line: " SIGL " Severity: " RC errortext(RC)
message "Notify Sysop Immediately!! -- Hit any key "
message " "
getchar
'exit'
exit

IOERR:
message "**IOERR** in 'programname' line: " SIGL " Severity: " RC errortext(RC)
message "Notify Sysop Immediately!! -- Hit any key "
message " "
getchar
'exit'
exit