Unverified Commit 4c18bf80 authored by Kevin Lyda's avatar Kevin Lyda
Browse files

Stupid filename case games fixed

parent f1c90142

src/bulletin.for

+12 −12
Original line number Diff line number Diff line
@@ -7,13 +7,13 @@ C Programmer: Mark R. London 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE '($RMSDEF)'
@@ -661,11 +661,11 @@ C 


	COMMON /LAST_RECORD_WRITTEN/ OCOUNT



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	CHARACTER INEXDATE*11,INEXTIME*11

	CHARACTER*(LINE_LENGTH) INDESCRIP
@@ -1155,9 +1155,9 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	PARAMETER BRDCST_LIMIT = 82*12 + 2

	CHARACTER*(BRDCST_LIMIT) BMESSAGE
@@ -1232,7 +1232,7 @@ C 
	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	IF (BULL_POINT.EQ.0) THEN	! If no bulletin has been read

	   WRITE(6,'('' ERROR: You have not read any message.'')')
@@ -1330,9 +1330,9 @@ C 


	INCLUDE '($PRVDEF)'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	IF (NEEDPRIV(1).EQ.0.AND.NEEDPRIV(2).EQ.0) THEN

	   CALL OPEN_BULLUSER_SHARED		! Get BULLUSER.DAT file

src/bulletin0.for

+14 −14
Original line number Diff line number Diff line
@@ -8,7 +8,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE '($BRKDEF)'
@@ -95,7 +95,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	EXTERNAL CLI$_ABSENT
@@ -174,11 +174,11 @@ C 
	COMMON /DECNET/ DECNET_PROC,ERROR_UNIT

	LOGICAL DECNET_PROC



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -349,7 +349,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	COMMON /POINT/ BULL_POINT
@@ -456,11 +456,11 @@ C FUNCTION: Display directory of messages. 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /PAGE/ PAGE_LENGTH,PAGE_WIDTH,PAGING

	LOGICAL PAGING
@@ -735,9 +735,9 @@ C 
	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	EXTERNAL CLI$_ABSENT
@@ -858,11 +858,11 @@ C FUNCTION: Alerts user of new messages upon logging in. 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /READIT/ READIT

src/bulletin1.for

+20 −20
Original line number Diff line number Diff line
@@ -19,7 +19,7 @@ C 


	CHARACTER*64 MAIL_SUBJECT



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	EXTERNAL CLI$_ABSENT
@@ -169,11 +169,11 @@ C 
	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	INCLUDE '($SSDEF)'
@@ -337,13 +337,13 @@ C 
	COMMON /COMMAND_LINE/ INCMD

	CHARACTER*132 INCMD



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	EXTERNAL CLI$_ABSENT
@@ -677,9 +677,9 @@ C 


	INCLUDE '($SJCDEF)'



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /POINT/ BULL_POINT
@@ -856,11 +856,11 @@ C 


	COMMON /POINT/ BULL_POINT



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	COMMON /READIT/ READIT
@@ -1243,9 +1243,9 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	OPEN(UNIT=3,FILE='SYS$LOGIN:BULL.SCR',IOSTAT=IER,

     &		RECL=LINE_LENGTH,STATUS='NEW',CARRIAGECONTROL='LIST')
@@ -1305,11 +1305,11 @@ C 
	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /SYSTEM_FOLDERS/ SYSTEM_FLAG(FLONG),DUMMY(2)
@@ -1533,9 +1533,9 @@ C FUNCTION: Sets default expiration date. 
C

	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	CHARACTER EXPIRE*3

src/bulletin2.for

+21 −21
Original line number Diff line number Diff line
@@ -12,11 +12,11 @@ C FUNCTION: Set username for BBOARD for selected folder. 
C

	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	INCLUDE '($UAIDEF)'
@@ -161,9 +161,9 @@ C FUNCTION: Set SYSTEM specification for selected folder. 
C

	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	IF (FOLDER_NUMBER.EQ.0) THEN

	   WRITE (6,'('' ERROR: Cannot modify GENERAL folder.'')')
@@ -194,9 +194,9 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -355,13 +355,13 @@ C FUNCTION: Set or reset remote node specification for selected folder. 
C

	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	EXTERNAL CLI$_ABSENT
@@ -514,9 +514,9 @@ C 
	COMMON /COMMAND_LINE/ INCMD

	CHARACTER*132 INCMD



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	CHARACTER FROM_TEST*5,INFROM*(LINE_LENGTH)
@@ -733,11 +733,11 @@ C 


	COMMON /LAST_RECORD_WRITTEN/ OCOUNT



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	CHARACTER INEXDATE*11,INEXTIME*11

	CHARACTER INDESCRIP*(LINE_LENGTH),INFROM*(LINE_LENGTH)
@@ -1176,7 +1176,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	EXTERNAL CLI$_ABSENT
@@ -1250,7 +1250,7 @@ C FUNCTION: Search for bulletin with specified string 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	CHARACTER*132 SEARCH_STRING,SAVE_STRING

	DATA SEARCH_STRING /' '/, SEARCH_LEN /1/
@@ -1398,11 +1398,11 @@ C 


	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	EXTERNAL CLI$_ABSENT

src/bulletin3.for

+28 −28
Original line number Diff line number Diff line
@@ -14,11 +14,11 @@ C NOTE: Assumes directory file is already opened. 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -166,9 +166,9 @@ C 


	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE '($PRVDEF)'
@@ -256,11 +256,11 @@ C 


	COMMON /POINT/ BULL_POINT



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INTEGER DIR_BTIM(2)
@@ -313,11 +313,11 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	CHARACTER*23 EXPDAT

	CHARACTER*23 TODAY
@@ -520,7 +520,7 @@ C 


	INCLUDE '($PRVDEF)'



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	COMMON /REALPROC/ REALPROCPRIV(2)
@@ -675,11 +675,11 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	COMMON /BCP/ BULLCP

	LOGICAL BULLCP
@@ -777,7 +777,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -816,7 +816,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INTEGER SHUTDOWN_BTIM(FLONG)
@@ -875,7 +875,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INTEGER SHUTDOWN_BTIM(FLONG)
@@ -995,11 +995,11 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /SHUTDOWN/ NODE_NUMBER,NODE_AREA

	COMMON /SHUTDOWN/ SHUTDOWN_FLAG(FLONG)
@@ -1052,13 +1052,13 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	INCLUDE '($RMSDEF)'
@@ -1370,7 +1370,7 @@ C 


	INCLUDE '($PRCDEF)'



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc



	COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
@@ -1479,7 +1479,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc



	COMMON /KNOWN_FOLDERS/ FOLDER_Q1,NUM_FOLDERS

	DATA FOLDER_Q1/0/
@@ -1566,7 +1566,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc



	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT