From 4c18bf803900d6073355ce26943fe9f61b7b2758 Mon Sep 17 00:00:00 2001 From: Kevin Lyda <kevin@lyda.ie> Date: Sun, 7 Nov 2021 01:13:55 +0000 Subject: [PATCH] Stupid filename case games fixed --- src/bulletin.for | 24 ++++++++--------- src/bulletin0.for | 28 +++++++++---------- src/bulletin1.for | 40 ++++++++++++++-------------- src/bulletin2.for | 42 ++++++++++++++--------------- src/bulletin3.for | 56 +++++++++++++++++++------------------- src/bulletin4.for | 38 +++++++++++++------------- src/bulletin5.for | 60 ++++++++++++++++++++--------------------- src/bulletin6.for | 66 ++++++++++++++++++++++----------------------- src/bulletin7.for | 48 ++++++++++++++++----------------- src/bulletin8.for | 18 ++++++------- src/bulletin9.for | 68 +++++++++++++++++++++++------------------------ 11 files changed, 244 insertions(+), 244 deletions(-) diff --git a/src/bulletin.for b/src/bulletin.for index 3c598b4..6bc56f6 100644 --- a/src/bulletin.for +++ b/src/bulletin.for @@ -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 diff --git a/src/bulletin0.for b/src/bulletin0.for index 506fad3..1dba5c5 100644 --- a/src/bulletin0.for +++ b/src/bulletin0.for @@ -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 diff --git a/src/bulletin1.for b/src/bulletin1.for index fc51748..d3c1509 100644 --- a/src/bulletin1.for +++ b/src/bulletin1.for @@ -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 diff --git a/src/bulletin2.for b/src/bulletin2.for index 5a10bc7..b2cc0d2 100644 --- a/src/bulletin2.for +++ b/src/bulletin2.for @@ -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 diff --git a/src/bulletin3.for b/src/bulletin3.for index b593297..4276137 100644 --- a/src/bulletin3.for +++ b/src/bulletin3.for @@ -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 diff --git a/src/bulletin4.for b/src/bulletin4.for index d86064c..8ecd913 100644 --- a/src/bulletin4.for +++ b/src/bulletin4.for @@ -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./ diff --git a/src/bulletin5.for b/src/bulletin5.for index 212e3fa..ad737d6 100644 --- a/src/bulletin5.for +++ b/src/bulletin5.for @@ -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 diff --git a/src/bulletin6.for b/src/bulletin6.for index f567bff..d99d7e0 100644 --- a/src/bulletin6.for +++ b/src/bulletin6.for @@ -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', diff --git a/src/bulletin7.for b/src/bulletin7.for index 398456d..e143d3f 100644 --- a/src/bulletin7.for +++ b/src/bulletin7.for @@ -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.'')') diff --git a/src/bulletin8.for b/src/bulletin8.for index 7d2c223..dba2cf0 100644 --- a/src/bulletin8.for +++ b/src/bulletin8.for @@ -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 diff --git a/src/bulletin9.for b/src/bulletin9.for index ecabd14..c0575a3 100644 --- a/src/bulletin9.for +++ b/src/bulletin9.for @@ -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 -- GitLab