* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against virgin17\rbbssub1.bas to produce ..\rbbssub1.bas
* rbbssub1.bas:  Date 10-2-1988  Size 52864 bytes
* ------------[ Created 10-11-1988 06:53:23 ]------------
* REPLACING old line(s) by new
59660 SUB PUTWORK (STRNG$,REC.NUM,REC.LEN) STATIC
      ON ERROR GOTO 65000
      FIELD #2,REC.LEN AS UPLOAD.RECORD$
      LSET UPLOAD.RECORD$ = STRNG$
      REC.NUM = REC.NUM + 1
      PUT #2,REC.NUM
      END SUB
* ------[ first line different ]------
'
' $SUBTITLE: 'DGSALIAS - Subroutine to Create/Update Alias Info file'
' $PAGE
'
'  SUBROUTINE NAME    -- DGSALIAS
'
'  INPUT PARAMETERS   --     PARAMETER                    MEANING
'                         GRN$                        CONFERENCE NAME
'                         ORIG.USER.NAME$             USERS - LOG ON NAME
'                         DGS.ALIAS$                  USERS - ALIAS NAME
'                         DGS.STL$                    NULL FIRST TIME IN
'                                                     'STILL' IF ALIAS EXISTS
'                                                     OR REAL NAME
'                         DGS.FILE.NAME$              CONFERENCE ALIAS FILE
'
'  OUTPUT PARAMETERS  --  GRN$ ORIG.USER.NAME$ DGS.ALIAS$ DGS.STL$
'                         DGS.FILE.NAME$
'
'  SUBROUTINE PURPOSE --  TO READ CONFA.DEF AND GET USERS ALIAS OR
'                         CREATE ONE
'
     SUB DGSALIAS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$) STATIC
'
     IF DGS.STL$ = "" THEN
	CONFA.DEF.FLAG = 0
	CALL BRKFNAME (MAIN.USER.FILE$,DRV$,PREFIX$,EXT$,TRUE)
	DGS.FILE.NAME$ = DRV$ + GRN$ + "A.DEF"
	CALL FINDIT (DGS.FILE.NAME$)
	IF OK THEN
	   CONFA.DEF.FLAG = TRUE
	END IF
	IF CONFA.DEF.FLAG = TRUE THEN
	   OPEN "I", 7, DGS.FILE.NAME$
	   DGS.ALIAS$ = ""
	   WHILE DGS.ALIAS$ = "" AND NOT EOF(7)
	      INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$
	      DGS.UNL = LEN(DGS.USER.NAME$)
	      IF DGS.USER.NAME$ = LEFT$(ORIG.USER.NAME$,DGS.UNL) THEN
		 DGS.ALIAS$ = DGS.TEMP.ALIAS$
	      END IF
	   WEND
	   CLOSE 7
	ELSE
	   DGS.ALIAS$ = "NO CONFA.DEF"
	   EXIT SUB
	END IF
     END IF
     CALL GOODALS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$)
     END SUB
'
'
' $SUBTITLE: 'GOODALS - Subroutine to Make Sure Alias Good'
' $PAGE
'
'  SUBROUTINE NAME    -- GOODALS
'
'  INPUT PARAMETERS   --     PARAMETER                    MEANING
'                         GRN$                        CONFERENCE NAME
'                         ORIG.USER.NAME$             USERS - LOG ON NAME
'                         DGS.ALIAS$                  USERS - ALIAS NAME
'                         DGS.STL$                    NULL FIRST TIME IN
'                                                     'STILL' IF ALIAS EXISTS
'                                                     OR REAL NAME
'                         DGS.FILE.NAME$              CONFERENCE ALIAS FILE
'
'  OUTPUT PARAMETERS  --  GRN$ ORIG.USER.NAME$ DGS.ALIAS$ DGS.STL$
'                         DGS.FILE.NAME$
'
'  SUBROUTINE PURPOSE --  TO READ CONFA.DEF AND SEE IF GET USERS ALIAS IS
'                         ALREADY IN USE OR A REAL NAME
'
     SUB GOODALS (GRN$,ORIG.USER.NAME$,DGS.ALIAS$,DGS.STL$,DGS.FILE.NAME$) STATIC
'
     IF DGS.ALIAS$ = "" THEN
	DGS.SFN.SLN$ = SYSOP.FIRST.NAME$+" "+SYSOP.LAST.NAME$
	A$ = "Do you" +DGS.STL$+ " want to use an Alias? (Y,[N])"
	SUBROUTINE.PARAMETER = 1
	CALL TGET
	IF YES THEN
	   ABFLG$ = ""
	   A$ = "Enter Alias (31 Char. Max.) "
	   SUBROUTINE.PARAMETER = 1
	   CALL TGET
	   CALL ALLCAPS (B$)
	   IF B$ = "" OR INSTR(SPACE$(31),B$) > 0 THEN
	      B$ = ""
	      ABFLG$ = "Alias Must NOT be Blank"
	   END IF
	   IF LEN(B$) > 31 THEN
	      B$= ""
	      ABFLG$ = "Length Must NOT Exceed 31 Characters"
	   END IF
	   IF B$ = "SYSOP" OR B$ = DGS.SFN.SLN$ THEN
	      A$ = CHR$(7)+CHR$(7)
	      A$ = A$ + "Wrong Answer! Alias Request Denied!"
	      A$ = A$ + CHR$(13) + "Contact Sysop for Alias Retry"
	      CALL QTPUT (A$,2)
	      DGS.ALIAS$ = ORIG.USER.NAME$+CHR$(250)
	      ACTIVE.USER.NAME$ = ORIG.USER.NAME$+CHR$(250)
	      FIRST.NAME$ = ORIG.USER.NAME$+CHR$(250)
	   ELSE
	      OPEN "I", 7, DGS.FILE.NAME$
	      WHILE ABFLG$ = "" AND NOT EOF(7)
		 INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$
		 IF B$ = DGS.USER.NAME$ THEN
		    ABFLG$ = " is a Real User"
		 ELSE
		    IF B$ = DGS.TEMP.ALIAS$ THEN
		       ABFLG$ = " has Already been Used"
		    END IF
		 END IF
	      WEND
	      CLOSE 7
	      IF ABFLG$="" THEN
		 DGS.ALIAS$ = B$
		 ACTIVE.USER.NAME$ = B$
		 FIRST.NAME$ = B$
	      ELSE
		 A$="Sorry "+FIRST.NAME$+" but "+B$+ABFLG$
		 CALL QTPUT (A$,1)
		 DGS.STL$ = " still"
		 DGS.ALIAS$ = ""
	      END IF
	   END IF
	ELSE
	   DGS.ALIAS$ = ORIG.USER.NAME$
	END IF
	IF DGS.ALIAS$ <> "" THEN
	   CLOSE 2
	   OPEN "A", 2, DGS.FILE.NAME$
	   WRITE #2, ORIG.USER.NAME$, DGS.ALIAS$
	   CLOSE 2
	END IF
     ELSE
	ACTIVE.USER.NAME$ = DGS.ALIAS$
	FIRST.NAME$ = DGS.ALIAS$
     END IF
 END SUB