Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Kevin Lyda
bulletin
Commits
4c18bf80
Unverified
Commit
4c18bf80
authored
Nov 07, 2021
by
Kevin Lyda
Browse files
Stupid filename case games fixed
parent
f1c90142
Pipeline
#6157
failed with stage
in 5 seconds
Changes
11
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/bulletin.for
View file @
4c18bf80
...
...
@@ -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
View file @
4c18bf80
...
...
@@ -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
View file @
4c18bf80
...
...
@@ -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
View file @
4c18bf80
...
...
@@ -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
View file @
4c18bf80
...
...
@@ -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
...
...
src/bulletin4.for
View file @
4c18bf80
...
...
@@ -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./
...
...
src/bulletin5.for
View file @
4c18bf80
...
...
@@ -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
...
...
src/bulletin6.for
View file @
4c18bf80
...
...
@@ -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',
...
...
src/bulletin7.for
View file @
4c18bf80
...
...
@@ -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.'')')
...
...
src/bulletin8.for
View file @
4c18bf80
...
...
@@ -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
...
...
src/bulletin9.for
View file @
4c18bf80
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment