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

Stupid filename case games fixed

parent f1c90142
Pipeline #6157 failed with stage
in 5 seconds
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -135,7 +135,7 @@ C if it creates empty space for new user.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
CHARACTER*12 LOGIN_USER
......@@ -182,7 +182,7 @@ C FUNCTION: Removes all entries in user file of usesr that no longer exist
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
CHARACTER TODAY*23
......@@ -262,7 +262,7 @@ C
COMMON /LAST_RECORD_WRITTEN/ OCOUNT
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
IF (REMOTE_SET) THEN
WRITE (REMOTE_UNIT,'(A)',IOSTAT=IER) 2
......@@ -396,7 +396,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
IF (ILEN.GT.LINE_LENGTH) THEN ! First read?
IBLOCK = SBLOCK ! Initialize pointers.
......@@ -445,7 +445,7 @@ C increment the record counter.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
......@@ -537,7 +537,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE '($RMSDEF)'
......@@ -595,9 +595,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
IF (NBULL.GT.0) THEN
CALL READDIR(0,IER)
......@@ -1141,9 +1141,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE '($PRVDEF)'
......@@ -1203,7 +1203,7 @@ C
INCLUDE '($PRVDEF)'
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
......@@ -1319,9 +1319,9 @@ C NOTE: The ID must be in the RIGHTS data base.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER ACLENT*255,ID*(*),ACCESS*(*)
......@@ -1391,9 +1391,9 @@ C NOTE: The ID must be in the RIGHTS data base.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER ACLENT*255,ID*(*),ACCESS*(*)
......@@ -1443,13 +1443,13 @@ 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
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
DATA REMOTE_SET /.FALSE./
......
......@@ -12,9 +12,9 @@ C FUNCTION: Sets flag defaults for specified folder
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /COMMAND_LINE/ INCMD
CHARACTER*132 INCMD
......@@ -110,13 +110,13 @@ 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
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
......@@ -246,13 +246,13 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE '($RMSDEF)'
INCLUDE '($SSDEF)'
......@@ -556,13 +556,13 @@ C
COMMON /COMMAND_SWITCHES/ REVERSE_SWITCH,SEPARATE
CHARACTER*1 SEPARATE
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER*12 FOLDER_BBOARD_SAVE,FOLDER_OWNER_SAVE
CHARACTER*25 FOLDER_SAVE
......@@ -661,9 +661,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
IF (FOLDER_NUMBER.LT.0) RETURN
......@@ -700,13 +700,13 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
......@@ -877,11 +877,11 @@ C FUNCTION: Display all FOLDER entries.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /PAGE/ PAGE_LENGTH,PAGE_WIDTH,PAGING
LOGICAL PAGING
......@@ -1005,11 +1005,11 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE '($SSDEF)'
......@@ -1322,7 +1322,7 @@ C
CHARACTER*(*) KEY_NAME
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
ENTRY WRITE_FOLDER_FILE(IER)
......@@ -1405,7 +1405,7 @@ C
CHARACTER*(*) KEY_NAME
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
CHARACTER*12 SAVE_USERNAME
......@@ -1475,7 +1475,7 @@ C general bulletins continually for a certain amount of days.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /BULLPAR/ BULL_PARAMETER,LEN_P
CHARACTER*64 BULL_PARAMETER
......@@ -1522,7 +1522,7 @@ C FUNCTION: Enables or disables bulletin display at login.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
CHARACTER TODAY*23
......
......@@ -72,13 +72,13 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE '($FORIOSDEF)'
......@@ -301,13 +301,13 @@ C
INCLUDE '($FORIOSDEF)'
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /POINT/ BULL_POINT
......@@ -518,11 +518,11 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER BUFFER*115
......@@ -607,11 +607,11 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER*81 BUFFER
......@@ -695,11 +695,11 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER*80 BUFFER,NEW_FILE
......@@ -783,11 +783,11 @@ C FUNCTION: Converts bulletin folder file to new format.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE '($SSDEF)'
......@@ -913,9 +913,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
CHARACTER BUFFER*74,NEW_FILE*80
......@@ -1046,9 +1046,9 @@ C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
COMMON /PROMPT/ COMMAND_PROMPT
CHARACTER*39 COMMAND_PROMPT
......@@ -1163,7 +1163,7 @@ C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
......@@ -1206,7 +1206,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CHARACTER*23 DATETIME
......@@ -1234,7 +1234,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CHARACTER*23 DATETIME
......@@ -1275,7 +1275,7 @@ C
COMMON /DIR_POSITION/ DIR_NUM
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CONV = .TRUE.
......@@ -1339,7 +1339,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CALL SYS_BINTIM(NEWEST_EXDATE//' '//NEWEST_EXTIME,NEWEST_EXBTIM)
......@@ -1356,7 +1356,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CALL SYS_BINTIM(EXDATE//' '//EXTIME,EX_BTIM)
......@@ -1382,7 +1382,7 @@ C ACLENT - String which will be large enough to hold ACL information.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE '($ACLDEF)'
......@@ -1464,9 +1464,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
OPEN (UNIT=10,FILE=BULLINF_FILE,STATUS='OLD',
& ACCESS='KEYED',RECORDTYPE='FIXED',
......
......@@ -13,11 +13,11 @@ C or added.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE '($BRKDEF)'
......@@ -182,9 +182,9 @@ C FUNCTION: Enters a new directory entry in the directory file.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
......@@ -626,11 +626,11 @@ C If 3, modify BRIEF_FLAG, 4, modify NOTIFY_FLAG
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
DIMENSION FLAGS(FLONG,4)
EQUIVALENCE (NEW_FLAG(1),FLAGS(1,1))
......@@ -741,11 +741,11 @@ C FUNCTION: Sets version number.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
DIMENSION FLAGS(FLONG,4)
EQUIVALENCE (NEW_FLAG(1),FLAGS(1,1))
......@@ -1007,11 +1007,11 @@ C FUNCTION: Searches for empty space in bulletin file and deletes it.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
CHARACTER FILENAME*132,BUFFER*128
......@@ -1185,9 +1185,9 @@ C was abnormally terminated.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_ENTRY_SAVE
......@@ -1300,11 +1300,11 @@ C FUNCTION: Show user flags.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
C
C Find user entry in BULLUSER.DAT to obtain flags.
......@@ -1430,7 +1430,7 @@ C FUNCTION: Opens the file in SYS$LOGIN which contains user information.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /USERINFO/ USERINFO_READ
DATA USERINFO_READ /.FALSE./
......@@ -1497,7 +1497,7 @@ C
COMMON /USERINFO/ USERINFO_READ
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
IF (.NOT.USERINFO_READ) RETURN
......@@ -1547,9 +1547,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /READIT/ READIT
......@@ -1748,7 +1748,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
WRITE (6,'('' ERROR: Connection to remote folder disconnected.'')')
......
......@@ -146,7 +146,7 @@ C CALL SET_TIMER('02')
INCLUDE '($MSGDEF)'
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
PARAMETER MAXLINK = 10
......@@ -770,13 +770,13 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
PARAMETER MAXLINK = 10
......@@ -1267,11 +1267,11 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
PARAMETER MAXLINK = 10
......@@ -1324,7 +1324,7 @@ C
COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
IF ((PROCPRIV(1).AND.NEEDPRIV(1)).EQ.0.AND.
& (PROCPRIV(2).AND.NEEDPRIV(2)).EQ.0) THEN
......
......@@ -13,9 +13,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /NODE_INFO/ NODES,LOCAL_NODE_FOUND,NODE_NUM,
& NODE_ERROR,POINT_NODE
......@@ -113,11 +113,11 @@ C FUNCTION: Sets or clears specified flag for folder
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
CHARACTER*(*) FLAGNAME
......@@ -157,11 +157,11 @@ C FUNCTION: Sets folder expiration limit.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
IF (LIMIT.LT.0) THEN
WRITE (6,'('' ERROR: Invalid expiration length specified.'')')
......@@ -191,9 +191,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CHARACTER*(DIR_RECORD_LENGTH) BULLDIR_ENTRY_SAVE
......@@ -707,7 +707,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
DATA BULL_TAG /.FALSE./,READ_TAG /.FALSE./
......@@ -779,9 +779,9 @@ C
INCLUDE '($FORIOSDEF)'
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
CHARACTER*12 TAG_KEY
......@@ -809,9 +809,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
CHARACTER*12 TAG_KEY
......@@ -845,7 +845,7 @@ C
INCLUDE '($FORIOSDEF)'
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
......@@ -889,7 +889,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
......@@ -958,7 +958,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /TAGS/ BULL_TAG,READ_TAG
......@@ -1056,10 +1056,10 @@ C Brian Nelson, Brian@uoft02.bitnet (or .ccnet, node 8.2)
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'BULLFILES.INC'
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulldir.inc
INCLUDE 'bullfiles.inc
INCLUDE 'bullfolder.inc
INCLUDE 'bulluser.inc
COMMON /POINT/ BULL_POINT
......@@ -1175,9 +1175,9 @@ C FUNCTION: Shows information for specified users.
C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLUSER.INC'
INCLUDE 'bulluser.inc
DIMENSION NOLOGIN_BTIM(2)
......@@ -1264,11 +1264,11 @@ C False if folder not found.
C
IMPLICIT INTEGER (A - Z)
INCLUDE 'BULLFILES.INC'
INCLUDE 'bullfiles.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
COMMON /BCP/ BULLCP
LOGICAL BULLCP
......@@ -1403,9 +1403,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
COMMON /MAIL_PROTOCOL/ PROTOCOL,LPRO
CHARACTER*12 PROTOCOL
......@@ -1568,9 +1568,9 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
COMMON /DIGEST/ LDESCR,FIRST_BREAK
......@@ -1642,7 +1642,7 @@ C
COMMON /MAIL_PROTOCOL/ PROTOCOL,LPRO
CHARACTER*12 PROTOCOL
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CHARACTER*(*) IFROM
......@@ -1748,7 +1748,7 @@ C
IMPLICIT INTEGER (A-Z)
INCLUDE 'BULLDIR.INC'
INCLUDE 'bulldir.inc
CHARACTER*(*) INDESCRIP
......@@ -1793,7 +1793,7 @@ C
CHARACTER*(*) BUFFER
INCLUDE 'BULLFOLDER.INC'
INCLUDE 'bullfolder.inc
IF (.NOT.BTEST(FOLDER_FLAG,4).OR.TRIM(BUFFER).EQ.0) THEN
! If STRIP not set for folder or empty line
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment