sloane@kuhub.cc.ukans.edu (01/05/90)
$! ------------------ CUT HERE -----------------------
$ v='f$verify(f$trnlnm("SHARE_VERIFY"))'
$!
$! This archive created by VMS_SHARE Version 7.1-004 3-AUG-1989
$! On 3-JAN-1990 14:34:15.21 By user SLOANE
$!
$! This VMS_SHARE Written by:
$! Andy Harper, Kings College London UK
$!
$! Acknowledgements to:
$! James Gray - Original VMS_SHARE
$! Michael Bednarek - Original Concept and implementation
$!
$!+ THIS PACKAGE DISTRIBUTED IN 3 PARTS, TO KEEP EACH PART
$! BELOW 91 BLOCKS
$!
$! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
$! AND EXECUTE AS A COMMAND PROCEDURE ( @name )
$!
$! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
$! 1. ADD_TRANSFORM.C_UPDATE;1
$! 2. MAILDEF.H_UPDATE;1
$! 3. NEWS.C_UPDATE;1
$! 4. NEWS.HLP_UPDATE;1
$! 5. NEWSADD.C_UPDATE;1
$! 6. NEWSBUILD.COM_UPDATE;1
$! 7. NEWSCMD.CLD_UPDATE;1
$! 8. NEWSDEFINE.H_UPDATE;1
$! 9. NEWSDELETE.C_UPDATE;1
$! 10. NEWSDIR.C_UPDATE;1
$! 11. NEWSDISPLAY.C_UPDATE;1
$! 12. NEWSDIST.C_UPDATE;1
$! 13. NEWSEXTERN.H_UPDATE;1
$! 14. NEWSEXTRACT.C_UPDATE;1
$! 15. NEWSFILES.C_UPDATE;1
$! 16. NEWSFORWARD.C_UPDATE;1
$! 17. NEWSHELP.C_UPDATE;1
$! 18. NEWSINCLUDE.H_UPDATE;1
$! 19. NEWSMOD.C_UPDATE;1
$! 20. NEWSMODE.C_UPDATE;1
$! 21. NEWSPOST.C_UPDATE;1
$! 22. NEWSRC.C_UPDATE;1
$! 23. NEWSREAD.C_UPDATE;1
$! 24. NEWSREGISTER.C_UPDATE;1
$! 25. NEWSREMCLIENT.C_UPDATE;1
$! 26. NEWSRTL.C_UPDATE;1
$! 27. NEWSSEARCH.C_UPDATE;1
$! 28. NEWSSELECT.C_UPDATE;1
$! 29. NEWSSETSHOW.C_UPDATE;1
$! 30. NEWSSITE.C_UPDATE;1
$! 31. NEWSSITE.H_UPDATE;1
$! 32. NEWSSKIM.C_UPDATE;1
$! 33. NEWSSKIP.C_UPDATE;1
$! 34. NEWSUTILITY.C_UPDATE;1
$! 35. NEWSV58_UPGRADE.C_UPDATE;1
$! 36. NEWSVARIABLES.H_UPDATE;1
$! 37. NEWSVMSMAIL.C_UPDATE;1
$! 38. NNTP_CLIENT.C_UPDATE;1
$! 39. NNTP_DEC.C_UPDATE;1
$! 40. NNTP_DECM.C_UPDATE;1
$! 41. NNTP_FEED.C_UPDATE;1
$! 42. NNTP_SERVER.C_UPDATE;1
$! 43. NNTP_TCPCMU.C_UPDATE;1
$! 44. NNTP_TCPWIN.C_UPDATE;1
$! 45. NNTP_TTY.C_UPDATE;1
$! 46. NNTP_XFER.C_UPDATE;1
$! 47. OPTIONS_C_LINK.OPT_UPDATE;1
$! 48. SORTDEF.H_UPDATE;1
$!
$set="set"
$set symbol/scope=(nolocal,noglobal)
$f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
$e="write sys$error ""%UNPACK"", "
$w="write sys$output ""%UNPACK"", "
$ if f$trnlnm("SHARE_LOG") then $ w = "!"
$ if f$getsyi("version") .ges. "V4.4" then $ goto START
$ e "-E-OLDVER, Must run at least VMS 4.4"
$ v=f$verify(v)
$ exit 44
$UNPACK: SUBROUTINE ! P1=filename, P2=checksum
$ if f$search(P1) .eqs. "" then $ goto file_absent
$ e "-W-EXISTS, File ''P1' exists. Skipped."
$ delete/nolog 'f'*
$ exit
$file_absent:
$ if f$parse(P1) .nes. "" then $ goto dirok
$ dn=f$parse(P1,,,"DIRECTORY")
$ w "-I-CREDIR, Creating directory ''dn'."
$ create/dir 'dn'
$ if $status then $ goto dirok
$ e "-E-CREDIRFAIL, Unable to create ''dn'. File skipped."
$ delete/nolog 'f'*
$ exit
$dirok:
$ w "-I-PROCESS, Processing file ''P1'."
$ define/user sys$output nl:
$ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='P1'
PROCEDURE Unpacker ON_ERROR ENDON_ERROR;SET(FACILITY_NAME,"UNPACK");SET(
SUCCESS,OFF);SET(INFORMATIONAL,OFF);f:=GET_INFO(COMMAND_LINE,"file_name");
buff:=CREATE_BUFFER(f,f);p:=SPAN(" ")@r&LINE_END;POSITION(BEGINNING_OF(buff))
;LOOP EXITIF SEARCH(p,FORWARD)=0;POSITION(r);ERASE(r);ENDLOOP;POSITION(
BEGINNING_OF(buff));g:=0;LOOP EXITIF MARK(NONE)=END_OF(buff);x:=
ERASE_CHARACTER(1);IF g = 0 THEN IF x="X" THEN MOVE_VERTICAL(1);ENDIF;IF x=
"V" THEN APPEND_LINE;MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);ENDIF;
IF x="+" THEN g:=1;ERASE_LINE;ENDIF;ELSE IF x="-" THEN g:=0;ENDIF;ERASE_LINE;
ENDIF;ENDLOOP;p:="`";POSITION(BEGINNING_OF(buff));LOOP r:=SEARCH(p,FORWARD);
EXITIF r=0;POSITION(r);ERASE(r);COPY_TEXT(ASCII(INT(ERASE_CHARACTER(3))));
ENDLOOP;o:=GET_INFO(COMMAND_LINE,"output_file");WRITE_FILE(buff,o);
ENDPROCEDURE;Unpacker;EXIT;
$ delete/nolog 'f'*
$ CHECKSUM 'P1'
$ IF CHECKSUM$CHECKSUM .eqs. P2 THEN $ EXIT
$ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
$ ENDSUBROUTINE
$START:
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093ADD_TRANSFORM.C to `091-.NEWS_
VSRC`093ADD_TRANSFORM.C
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:24:32.66
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093ADD_TRANSFORM.C to produc
Ve `091-.NEWS_SRC`093ADD_TRANSFORM.C
X$ checksum `091-.NEWS_V59_SRC`093ADD_TRANSFORM.C
X$ if checksum$checksum .ne. 1112582333 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093ADD_TRANSFORM.C") .nes. "" then -
X purge `091-.NEWS_SRC`093ADD_TRANSFORM.C
X$ if f$search("`091-.NEWS_SRC`093ADD_TRANSFORM.C") .nes. "" then -
X rename `091-.NEWS_SRC`093ADD_TRANSFORM.C ADD_TRANSFORM.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093ADD_TRANSFORM.C/update=sys$Input:/output=`0
V91-.NEWS_SRC`093ADD_TRANSFORM.C
X$ DECK
X- 48, 48
X**`009`009*@*`009 gateway::in%"\001@\002"
X- 116, 117
X`009`123"*@*",`009 "in\%\"\001@\002\""`125,
X`009`123"*::*", "in\%\"\002@\001\""`125,
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093ADD_TRANSFORM.C
X$ if checksum$checksum .ne. 793278608 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK ADD_TRANSFORM.C_UPDATE;1 406528483
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093MAILDEF.H to `091-.NEWS_SRC`09
V3MAILDEF.H
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:24:38.47
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093MAILDEF.H to produce `091
V-.NEWS_SRC`093MAILDEF.H
X$ checksum `091-.NEWS_V59_SRC`093MAILDEF.H
X$ if checksum$checksum .ne. 1481057646 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093MAILDEF.H") .nes. "" then -
X purge `091-.NEWS_SRC`093MAILDEF.H
X$ if f$search("`091-.NEWS_SRC`093MAILDEF.H") .nes. "" then -
X rename `091-.NEWS_SRC`093MAILDEF.H MAILDEF.H_old
X$ edit/sum `091-.NEWS_V59_SRC`093MAILDEF.H/update=sys$Input:/output=`091-.NE
VWS_SRC`093MAILDEF.H
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093MAILDEF.H
X$ if checksum$checksum .ne. 1481057646 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK MAILDEF.H_UPDATE;1 958859376
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWS.C to `091-.NEWS_SRC`093NE
VWS.C
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:24:43.69
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWS.C to produce `091-.N
VEWS_SRC`093NEWS.C
X$ checksum `091-.NEWS_V59_SRC`093NEWS.C
X$ if checksum$checksum .ne. 1853344626 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWS.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWS.C
X$ if f$search("`091-.NEWS_SRC`093NEWS.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWS.C NEWS.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWS.C/update=sys$Input:/output=`091-.NEWS_
VSRC`093NEWS.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWS.C
X$ if checksum$checksum .ne. 1853344626 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWS.C_UPDATE;1 1149002387
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWS.HLP to `091-.NEWS_SRC`093
VNEWS.HLP
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:24:56.60
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWS.HLP to produce `091-
V.NEWS_SRC`093NEWS.HLP
X$ checksum `091-.NEWS_V59_SRC`093NEWS.HLP
X$ if checksum$checksum .ne. 1748322780 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWS.HLP") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWS.HLP
X$ if f$search("`091-.NEWS_SRC`093NEWS.HLP") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWS.HLP NEWS.HLP_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWS.HLP/update=sys$Input:/output=`091-.NEW
VS_SRC`093NEWS.HLP
X$ DECK
X- 6, 13
X conforms to the Internet Standard for Interchange of USENET Messages
X (RFC1036).
X
X Unlike person-to-person mail, all items posted into NEWS are normally
X readable by all users of the system, so the items in NEWS are intended
X for general view. NEWS sites are typically linked into the global USENET
X news network, and in such cases the items will be read by users on many
X other systems throughout the world.
X- 17, 19
X NEWS allows you to SELECT newsgroups for viewing, READ items, REPLY to
X items, POST new news items, EXTRACT items into a local file, REGISTER
X yourself into newsgroups, and FORWARD items to other users (via mail).
X
X Commands to NEWS are listed in this help file: some of these commands are
X NEWS Management commands, and may only be executed by a nominated
X "News Manager" account. These commands are flagged within the command
X description as management commands.
X- 24, 24
X command "$ NEWS" will invoke an interactive session of NEWS, or you can
X- 28, 43
X Examples:
X
X $ NEWS
X to invoke an interactive news session on a screen terminal
X
X $ NEWS/NOSCREEN
X to invoke an interactive news session on a line terminal
X
X $ NEWS POST/NEWSG=net.animal/SUBJECT="Frogs" frog.txt
X to post the file "frog.txt" into the newsgroup "net.animal",
X with the title "Frogs".
X- 47, 56
X</ALLSCAN
X
X If this qualifier is present, NEWS will scan the local item database
X for any unseen items in those newsgroups you have subscribed to (or
X registered in). NEWS will output a one line message for each registered
X newsgroup which contains any unseen items. This is a more verbose form
X of the /SCAN qualifier actions, and will take a longer time to complete.
X
X /ALLSCAN will immediately exit after performing this scan of newsgroups.
X To alter your LOGIN.COM to output a new NEWS message similar to the
X new Mail login notice add the line:
X
X $ NEWS/ALLSCAN
X
X to your LOGIN.COM file.
X
X</CLASS
X /CLASS=class-name
X
X Newsgroups may be assigned to CLASSES. Such Classes contain a set of
X newsgroups assigned to each class either by the local NEWS manager as a
X system-wide definition, or by each user as a personal assignment.
X
X An initial class of newsgroups may be selected on startup by the use of
X this qualifier. For example,
X
X $ NEWS/CLASS=$local
X
X will display all locally defined newsgroups on startup.
X- 60, 63
X If this qualifier is present, NEWS will scan the local item database
X for any unseen items in those newsgroups you have subscribed to (or
X registered in). If any unseen items in any of these newsgroups are
X located, NEWS will output a simple one line message indicating that
X there are new unseen items in NEWS.
X- 67, 82
X new mail message add the line:
X
X $ NEWS/SCAN
X
X to your LOGIN.COM file.
X
X</SCREEN
X /SCREEN `091default`093
X /NOSCREEN
X
X Determines whether a screen-based interface will be used for this session.
X If /SCREEN mode is used NEWS will determine whether the output device is
X supported by the VMS screen management routines (SMG), and if so the screen
X interface will be used. If the /NOSCREEN qualifier is present, or the
X output device is not a supported terminal, the interface will not use
X screen-based presentation.
X- 87, 94
X are unseen items in those newsgroups you have subscribed to (or
X registered in). If there are no such unseen items then NEWS will exit
X immediately. Otherwise NEWS will invoke an interactive session with
X the directory screen set to /NEW (selection of those registered
X newsgroups which contain unseen items).
X
X2 Structure
X
X NEWS items are classified into NEWSGROUPS. All items with a similar subject
X matter are normally contained in a single newsgroup. An item may be posted
X into a single newsgroup, or into multiple newsgroups.
X- 98, 227
X sequence number is used to identify a particular item.
X
X1 NEWS_settings
X
X There are two ways in which NEWS can be altered to suit personal
X preferences: by the use of logical names (initialized in your LOGIN.COM
X file or similar), or by the "SET PROFILE" commands. In most cases the
X logical names have equivalent PROFILE commands. In all such cases the
X PROFILE settings take preference over any logical name settings.
X
X The SET PROFILE commands are documented within the SET topic.
X
X The logical names and their actions are listed below.
X
X2 NEWSRC
X
X This logical name is is used to define the file containing the NEWS user
X notebook. This file contains the set of seen and unseen items for each
X newsgroup, MARKed items, and similar per-user context information. Note
X that if this logical name is used, then the translation of the name
X must equate to a full VMS file specification (including device and
X extension). For compatibility with previous versions of NEWS the
X logical name "NEWS_REGISTER" can be used instead of NEWSRC.
X
X If this logical name is not defined, the notebook will be stored in the
X file "SYS$LOGIN:NEWSRC".
X
X There is no equivalent PROFILE setting for this logical name.
X
X2 NEWS_INI
X
X This can be defined as a file name which contains a set of DEFINE/KEY
X commands to change the default key binding of news.
X
X The equivalent PROFILE command is SET PROFILE/KEYDEFS=filename
X
X2 NEWS_EDIT
X
X This logical name can be used determine which text editor is to be used
X by NEWS. The text editor is used to generate new postings, and to edit
X forwarded mail, and (optionally) in readonly mode, to display the
X contents of a newsitem.
X
X By default NEWS links the TPU editor to NEWS, using the TPU section as
X defined by the user.
X
X This logical name may be used to:
X
X * Use the TPU editor with a section other than the default section
X defined with TPU:
X $ DEFINE NEWS_EDIT "TPU/SEC=mysection"
X
X * Use EDT as the configured editor:
X $ DEFINE NEWS_EDIT CALLABLE_EDT
X
X * Invoke any other editor using a command procedure in a subprocess:
X $ DEFINE NEWS_EDIT "@dev:`091dir`093my_editor.com"
X and NEWS will then SPAWN the command:
X $ @dev:`091dir`093my_editor.com filename
X
X The subtopic "Examples" shows an example editor command procedure.
X
X The equivalent PROFILE setting is SET PROFILE/EDITOR=value.
X
X2 NEWS_VIEW
X
X This logical name is only required if you are using a procedure as the
X way of invoking the NEWS text editor. In this case a second procedure
X is required which invokes the same editor in read_only mode:
X $ DEFINE NEWS_VIEW "@dev:`091dir`093my_reader.com"
X and NEWS will then spawn the command:
X $ @dev:`091dir`093my_reader.com filename
X
X When TPU or EDT is configured as the editor, then NEWS will automatically
X add the /READONLY qualifier to the editor invocation in order create a
X readonly editor session.
X
X There is no equivalent PROFILE setting.
X
X2 NEWS_PERSONALNAME
X
X NEWS will retrieve your VMS MAIL profile record to set up a personal
X name to be included in the header of all your NEWS postings. This
X MAIL-defined personal name can be changed to a NEWS-specific name by
X equating this logical name to a personal name string.
X
X The equivalent PROFILE command is SET PROFILE/PERSONAL_NAME="string"
X`032
X2 NEWS_SCANSIZE
X
X NEWS will normally display the text of a newsitem on a page-by-page
X basis. When scanning through items it is often useful to only display
X the first few lines of an item, to decide whether to view the complete
X text.
X
X If the logical name NEWS_SCANSIZE is defined as a number (n), then only
X the first n lines of each new item will be displayed before the first
X prompt to display more of the item. Commonly, a value between 8 and 12
X is most useful.
X
X The equivalent PROFILE command is SET PROFILE/SCANSIZE=n
X
X2 NEWS_DEFAULT_DIRECTORY
X
X NEWS will normally remember the last newsgroup directory setting across
X invocations of the program (i.e. If you had executed DIR/NEW before
X exiting NEWS, then when you next run NEWS, the initial newsgroup directory
X state will be set to DIR/NEW). It is possible to specify a constant
X initial directory state by defining this logical name as one of the
X values:
X
X ALL
X NEW
X REGISTER
X SINCE
X "SINCE=vms_date"
X
X The equivalent PROFILE command is SET PROFILE/DIRECTORY=setting.
X
X2 NEWS_POST_CC
X
X This logical name directs NEWS to generate MAIL copies of your NEWS
X postings. The logical name value is interpreted by NEWS as the name
X of a POST_CC control file.
X
X This file consists of lines of the form:
X
X newsgroup address
X
X The newsgroup name starts in column 1, and may be the name of a single
X newsgroup, or may specify a set of newsgroups by including the
X wildcard match character ('*').
X
X The address is the address to receive a carbon copy of the posting. It
X is separated from the newsgroup name by at least 1 space character.
X The address may be a DECnet or Internet-format address.
X
X The interpretation of the file is such that any postings you make
X into any of the specified newsgroups will also generate mail to the
X matching addresses.
X
X There is no equivalent PROFILE setting.
X
X2 NEWS_ORGANIZATION
X
X This logical name allows you to override the locally defined name of`032
X your organization with a personal setting. This name is included in the
X headings of all NEWS postings you make.
X
X The equivalent PROFILE command is SET PROFILE/ORGANIZATION="string"
X
X2 MAIL_SIGNATURE
X
X This logical name may be defined as the name of your mail signature
X file. If this logical name is defined, then the contents of this file
X will be automatically appended to all postings and mailings made from
X within NEWS. If this logical name is not defined then NEWS will
X search for the file "SYS$LOGIN:MAIL.SIGNATURE" as a signature file.
X
X The equivalent PROFILE command is SET PROFILE/SIGNATURE=file
X
X2 Example
X
X- 252, 292
X By default, the VT keypad is configured within NEWS as shown below:
X
X
X +--------+--------+--------+--------+
X `124 pf1 `124 pf2 `124 pf3 `124 pf4 `124
X gold-`124 `124 `124 `124SKIP/FOLLOWUP
X `124GOLD `124HELP `124SKIP `124SKIP/NEWSGROUP
X +--------+--------+--------+--------+
X `124 7 `124 8 `124 9 `124 - `124
X gold-`124PRINT `124EXTRACT `124EXTR/ALL`124EXTR/APPEND
X `124DIR `124DIR/NEW `124DIR/REG `124DIR/ALL `124
X +--------+--------+--------+--------+
X `124 4 `124 5 `124 6 `124 , `124
X gold-`124 `124TOP `124 `124 `124
X `124DIR `124 >>UP<< `124DIR/REG `124DIR/ALL `124
X +--------+--------+--------+--------+
X `124 1 `124 2 `124 3 `124 enter `124
X gold-`124READ/HEA`124BOTTOM `124READ/NEX/HEAD `124
X `124READ `124>>DOWN<<`124READ/NEXT `124
X +--------+--------+--------+ `124
X `124 0 `124 . `124 `124
X gold-`124READ/NEW/HEADER `124READ/NEW/FOLLOWUP/HEADER
X `124READ/NEW `124READ/NEW/FOLLOWUP`124
X +-----------------+--------+--------+
X
X
X +--------+--------+--------+
X `124 find `124 insert `124 remove `124
X `124 `124 `124 `124
X `124 SEARCH `124REGISTER`124DEREGISTER
X +--------+--------+--------+
X `124 select `124 prev `124 next `124
X gold-`124 CLOSE `124 TOP `124BOTTOM `124
X `124 SELECT `124 UP 18 `124DOWN 18 `124
X +--------+--------+--------+
X
X These defaults may be altered in three ways:
X
X * Using the DEFINE/KEY command to bind a news command to a key.
X
X * Defining the logical name "NEWS_INI" to a file containing a
X- 295
X * Using the SET PROFILE/KEYPAD=file command in a similar fashion
X as the use of the NEWS_INI logical name.
X
X- 299
X *MANAGEMENT COMMAND*
X
X- 308, 311
X ADD ENTRY is used to add the specified newsgroup into a CLASS. A class
X is a set of newsgroups which the user has grouped together into a
X class set. This grouping is maintained within the per-user news
X context file, so that this command refers only to the user executing
X the command.
X- 337
X *MANAGEMENT COMMAND*
X- 342, 342
X ADD FILE filename
X- 348, 349
X If the node is defined as a news routing node, this command also generates
X the batch files to send to the adjacent NEWS nodes.
X- 378, 381
X Postings to moderated newsgroups require an "Approved:" stamp in the
X item headers in order for NEWS to accept the posting. /ACCEPT
X overrides this condition, allowing addition of unapproved postings into
X moderated newsgroups. /NOACCEPT is the default.
X- 391, 393
X exist on the local system. Default is /NOCREGRP.
X
X /CREGRP is normally not recommended if you are part of a NEWS network,
X as this will result in the creation of many bogus newsgroups.
X- 403, 417
X- 426, 438
X /EXECUTE= `091RETAIN (default qualifier value) `124 LOCAL `124 DELETE `093
X /NOEXECUTE `091Default`093
X
X "Control" messages are posted periodically to the net by various news
X network administrators to manage the network newsgroups. Some types of
X Control messages can be executed immediately by the NEWS software,
X while those which refer to the creation or deletion of newsgroups may
X be handled in a number of ways.
X
X The default action (/NOEXECUTE) is to create a DCL command file which
X can perform the necessary newsgroup creation/deletion commands as
X directed in the control posting, and post this command file to the mail`032
X address "USENET".
X- 442, 459
X manager.
X
X In the case of newsgroup deletion (affecting newsgroups listed in a
X "rmgroup" or a "checkgroups" Control message) the default action of
X /EXECUTE is to set the newsgroups which are to be removed to a 1 week
X retention period (this corresponds to a qualifier value of
X "/EXECUTE=RETAIN"). This default action may be modified by specifying
X either "/EXECUTE=LOCAL" (in which case any such newsgroups are set to
X "/LOCAL" status), or "/EXECUTE=DELETE" (in which case such newsgroups
X are immediately deleted. In all cases a log of the actions performed
X will be posted to address "USENET".
X- 479, 479
X if required rather than complete the NEWS posting.
X
X</NETFEED
X /NETFEED `091default`093
X /NONETFEED
X
X The default action of NEWS is to assume that all items added by the ADD
X command are network news items, and should be forwarded to NEWS network
X neighbours (as specified by the SYS and DISTRIBUTION files). /NONETFEED
X inhibits the forwarding of ADDed items to neighbours. /NETFEED is the
X default
X
X</NEWSGROUP
X /NEWSGROUP=newsgroup
X
X This directs the NEWS parser to place all items into the nominated
X newsgroup (regardless of whether the item contains a "Newsgroups:"
X header line). This qualifier is useful when converting messages from
X a mailing list into a newsgroup. For example:
X
X $ MAIL
X MAIL> set folder CMU_TCPIP
X MAIL> extract/all tcp.mail
X MAIL> delete/all
X MAIL> exit
X $ NEWS/NOSCREEN
X NEWS> add file tcp.mail/news=anu.tcpip
X
X</NOCONTROL
X
X When specified, this qualifier inhibits the interpretation of the Control:
X header in ADDed items by NEWS.
X
X The default behaviour of NEWS is to interpret all Control: headers.
X- 490, 492
X the Path: item has now been stamped with the local node name, indicating
X that the local system has already seen this item. /RETRY directs the ADD
X command to ignore the Path: header line when checking the news item for
X addition into the local node.
X- 501, 507
X printed by the PRINT/MARK command. Marks are on a user-by-user basis,
X and system-wide marks are not supported in NEWS.
X
X If no marker-name value is specified then the default value, "mark" is
X used. A marker name is a string. If no item number is specified, the
X mark is placed against the current item.
X
X Example:
X
X`009ADD MARKER "comms"
X will mark the current item with the tag "comms"
X- 510
X *MANAGEMENT COMMAND*
X- 521, 522
X or related usernames. An identifier name may be used instead of a username,
X in which case all owners of that identifier are included. If wildcards or
X identifier names are used it is advised not to include the /MAIL or /NODES
X- 529, 529
X3 Qualifiers
X- 535, 535
X either a VMS MAIL or an Internet format address.
X- 560, 560
X See the Topic FOLLOWUP
X- 581, 581
X BACK REPLY is equivalent to READ/PARENT, displaying the previous entry in
X- 598, 602
X Use a text editor in read-only mode to display the newsitem.
X- 612, 612
X The command is invoked by the key sequence Gold (PF1) - NextScreen.
X- 625, 626
X local supervisor of the newsgroup, who can cancel ANY item that has been
X posted from the local node.
X- 687, 687
X once the MAIL file is opened within NEWS by the OPEN/MAIL command.
X- 703, 706
X- 719
X *MANAGEMENT COMMAND*
X- 730, 730
XNewsgroup
X- 741, 741
X</APPROVAL
X /APPROVAL `091default`093
X /NOAPPROVAL
X
X Moderated newsgroups require an Approved: header in all postings in order
X to be accepted by each local NEWS site. This approval requirement can be
X removed by specifying the /NOAPPROVAL qualifier with the newsgroup.
X
X</CACHE
X /CACHE=2 `091default`093
X /NOCACHE
X- 748, 749
X item cache. This cache is used if the newsgroup is defined as an
X NNTP-served newsgroup. /NOCACHE disables all caching.
X
X</CONFIRM
X /CONFIRM `091default`093
X /NOCONFIRM
X
X Normally NEWS will require confirmation in order to create new newsgroups.
X The /NOCONFIRM qualifier overrides this requirement.
X- 763, 763
X deleted. It is recommended that network-newsgroups be initially set up
X with a /HOLD=* value.
X- 774, 774
X which do not already exist on the local system. The user is prompted
X- 792, 792
X be automatically deleted. For network newsgroups a value of between 20 and
X 30 is common. This is dependant on the available disk space for NEWS and
X level of activity in the newsgroup.
X- 814, 815
X redirected into the mail system, and are mailed directly to the moderator
X for moderator approval.
X- 822, 825
X The moderator address may be specified in either DECnet or Internet
X format (user@node.site.domain).
X
X</MAILLIST
X /MAILLIST=address
X
X This qualifier sets the newsgroup as a mailing list newsgroup.This is
X very similar to setting a moderated newsgroup with a number of
X alterations in the support of the newsgroup to act as an interface
X between the local news system and a mailing list.
X
X The changes from the moderator model in order to support the mapping
X of mailing lists into NEWS require the dropping of the Approval:
X item header requirement for incoming items, and a forwarding of all
X local postings to the mapped newsgroup to the mailing list address
X without the normal NEWS headers.
X
X The address used with this qualifier is the address of the mailing list.
X- 885
X</UPDATE
X
X This qualifier is used in conjunction with the /SERVED qualifier, and
X directs NEWS to load the created newsgroup with the contents of the
X NNTP server database immediately.
X
X</WRITE
X /WRITE `091default`093
X /NOWRITE
X
X the /NOWRITE qualifier is used to create a READONLY newsgroup.
X
X- 1019, 1019
X The /NOTERMINATE qualifier allows you to create key definitions that
X- 1026, 1026
X be used to delete news items or newsgroups from the local database
X- 1063, 1063
X See the subtopic NEWSGROUPS.
X- 1067, 1067
X See the subtopic NEWSITEMS.
X- 1070
X *MANAGEMENT COMMAND*
X- 1075, 1076
X- 1094, 1094
X each newsgroup. Valid responses are 'Y', 'N', or `094Z to terminate the
X- 1098
X *MANAGEMENT COMMAND*
X- 1103, 1106
X- 1126, 1126
X each newsitem. Valid responses are 'Y', 'N', or `094Z to terminate the
X- 1142, 1142
X See the subtopic NEWSITEMS.
X- 1157
X *MANAGEMENT COMMAND*
X- 1180, 1180
Xnewsgroup
X- 1194, 1198
X This command is used to display a directory of either local newsgroups
X or news items within a newsgroup.
X- 1204, 1205
X DIR/ALL resets the newsgroup directory to display all local newsgroups.
X This resets the actions of DIR/NEW or DIR/REG.
X- 1213, 1213
X To display all newsgroups the classname "*" is used.
X- 1217, 1222
X DIR/NEW sets the newsgroup directory screen to only display those
X newsgroups in which you are registered, and there are unread
X newsitems within those newsgroups.
X- 1226, 1230
X DIR/REGISTER sets the newsgroup directory screen to display entries for
X those newsgroups in which you are registered.
X- 1246, 1248
X1 DISPLAY
X
X Format:
X
X DISPLAY filename
X
X This command displays the specified file using the same screen
X management routines as used to display news item.
X
X1 DOWN
X
X Format:
X- 1328
X /APPEND
X /NOAPPEND `091default`093
X- 1426, 1430
X- 1490, 1490
X FORWARD and MAIL are synonyms.
X- 1599, 1599
X logical name. See the section on NEWS settingsfor details.
X- 1621, 1621
X FORWARD and MAIL are synonyms.
X- 1926, 1926
X A range of items can be specified by separating the start and end
X- 2091, 2091
X parentheses. Characteristics can refer to such things as colour of
X- 3432
X</RCFILTER
X /RCFILTER
X /NORCFILTER
X
X By default all accessible newsgroups are displayed in a full newsgroup
X directory display. The number of newsgroups can be restricted by the
X command SET PROFILE/RCFILTER. This instructs NEWS to only use those
X newsgroups as entered in the NEWSRC file.
X
X To reduce the number of newsgroups displayed in the directory listing:
X Run NEWS and enter the command "SET PROFILE/RCFILTER"
X Exit NEWS and then edit the NEWSRC file, deleting the lines
X referring to newsgroups you wish to remove from the display.
X
X</RCORDER
X /RCORDER
X /NORCORDER `091default`093
X
X By default all newsgroups are displayed within the newsgroup directory
X screen in alphabetical order. By specifying SET PROFILE/RCORDER,
X newsgroups are ordered as shown in the NEWSRC. file. To change the
X directory display order:
X Run NEWS and enter the command "SET PROFILE/RCORDER"
X Exit NEWS and then edit the NEWSRC file, altering the
X order of entries as required
X
X- 3660, 3660
X ensure the correct operation of "cancel" and "supersedes" control
X- 3904, 3904
X contain explicit references to the preceding articles in the same
X- 3926, 3926
X logical name. See the section on NEWS settings for details. For
X- 3984, 3984
X an interactive session, these snapshots of the database summary are not
X immediately automatically updated.
X- 3996, 3999
X software.
X
X This help file was updated to reflect NEWS Version 5.9C, and was last
X updated on 19 December 1989.
X- 4003, 4004
X WRITE is used to post new items into NEWS.
X
X This command is synonymous to "POST", and is documented under "POST".
X
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWS.HLP
X$ if checksum$checksum .ne. 393473351 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWS.HLP_UPDATE;1 806899037
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSADD.C to `091-.NEWS_SRC`09
V3NEWSADD.C
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:25:08.89
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSADD.C to produce `091
V-.NEWS_SRC`093NEWSADD.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSADD.C
X$ if checksum$checksum .ne. 548324385 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSADD.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSADD.C
X$ if f$search("`091-.NEWS_SRC`093NEWSADD.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSADD.C NEWSADD.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSADD.C/update=sys$Input:/output=`091-.NE
VWS_SRC`093NEWSADD.C
X$ DECK
X- 66
X**`009V5.9B`00912-Oct-1989`009Mark Pizzolato
X**`009 - Amended the routines control_ihave and control_sendme to actually
X**`009 work properly.
X- 404, 404
X if (mod) fprintf(fpm,"Set NEWSGROUP %s/MOD\n\r\n",ga`091g`093-
V>grp_name);
X- 420, 420
X if (mod) fprintf(fpm,"\r\n");
X- 600, 600
X fprintf(fpm,"SET NEWSGROUP \"%s\"/MOD\n\r\n",locname);
X- 648, 648
X fprintf(fpm,"SET NEWSGROUP \"%s\"/MOD\n\r\n",locname);
X- 671, 671
X fprintf(fpm,"!SET NEWSGROUP \"%s\"/LOCAL\n",ga`091g`093->grp_name);
X- 858, 861
X *cp,
X subject`091132`093;
X FILE *fpw = 0,
X *fpr;
X int line_count = 0,
X cre_grp`0912`093;
X- 866, 866
X strcpy(xbuf, newsgroups);
X if ((cp = strrchr(xbuf, '.')) && !strcmp(".ctl",cp)) *cp = '\0';
X if (strcmp(xbuf,s_str)) `123
X- 887, 887
X fpw = fopen(send_scr_file,"w","mbc=32");
X- 899, 899
X if (fpr = fopen(fn,"r","mbc=32","mbf=2")) `123
X- 918, 919
X fpr = fopen(send_scr_file,"r","mbc=32","mbf=2");
X fpw = fopen(send_scr_file,"w","mbc=32");
X- 926, 927
X sprintf(subject,"sendme %s",news_node);
X fprintf(fpw,"Control: %s\n",subject);
X fprintf(fpw,"Subject: %s\n",subject);
X- 942, 942
X sys_remote_send(post_path,s_str,post_dist,send_scr_file,loc_id,0);
X if (sys_local_accept(s_str,post_dist)) `123
X do_new_group(s_str,0,cre_grp);
X if (cre_grp`0910`093)
X`009 do_new_item(cre_grp,loc_id,subject,send_scr_file,1,0,line_count);
X `125
X- 959, 959
X *il = itm`091CONTROL`093 + 6,
X- 966, 966
X FILE *fpr,*fpi;
X- 977
X if ((cp = strrchr(xbuf,'.')) && !strcmp(".ctl",cp)) *cp = '\0';
X- 992, 992
X il = itm`091CONTROL`093 + 6;
X- 1012, 1014
X if (fpi = fopen(fn,"r")) `123
X while ((fgets(xbuf,510,fpi)) && (*xbuf != '\n'));
X while (fgets(xbuf,510,fpi)) `123
X- 1025, 1025
X fclose(fpi);
X fpi = 0;
X- 1029
X if (fpi) fclose(fpi);
X- 1119, 1125
X strcpy(newsgroup,"control");
X if ( !skip_loop_test
X && ( path_match(itm`091PATH`093,news_node)
X `124`124 check_id(itm`091MESSAGE_ID`093)))
X printf("\tControl: Ignored (Loop Detected)\n");
X else `123
X if (sys_local_accept(newsgroup,itm`091DISTRIBUTION`093)) parse_control
V_item(fn);
X else printf("\tControl: Ignored (SYS filter)\n");
X `125
X- 1154, 1158
X if (status = do_new_item(cre_grp,itm`091MESSAGE_ID`093,subject,fn,1,
X skip_loop_test,linecount)) `123
X if ( (status == 0xb00184ec)
X `124`124 (status == 0xb0010001))
X return(printf(": REJECT (Looping item)\n",no_new_item));
X else `123
X if (strcmp(newsgroup,junk)) `123
X sys_remote_send(itm`091PATH`093,itm`091NEWSGROUPS`093,itm`091DISTR
VIBUTION`093,
X ((*itm_fname) ? itm_fname : fn),itm`091MESSAGE_ID`093,!
Vmod_add);
X- 1173, 1174
X net_sender`091132`093,
X`009 save_itm_fname`091256`093;
X
X strcpy(save_itm_fname,itm_fname);
X- 1195
X strcpy(itm_fname,save_itm_fname);
X- 1485, 1489
X do `123
X- 1493, 1494
X `125 `032
X `125 while (!strcmp(add_inline,"\f\n"));
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSADD.C
X$ if checksum$checksum .ne. 1171443627 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSADD.C_UPDATE;1 274943547
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSBUILD.COM to `091-.NEWS_SR
VC`093NEWSBUILD.COM
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:25:15.93
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSBUILD.COM to produce
V `091-.NEWS_SRC`093NEWSBUILD.COM
X$ checksum `091-.NEWS_V59_SRC`093NEWSBUILD.COM
X$ if checksum$checksum .ne. 1055942715 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSBUILD.COM") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSBUILD.COM
X$ if f$search("`091-.NEWS_SRC`093NEWSBUILD.COM") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSBUILD.COM NEWSBUILD.COM_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSBUILD.COM/update=sys$Input:/output=`091
V-.NEWS_SRC`093NEWSBUILD.COM
X$ DECK
X- 39, 39
X$ no_multinettcp = 1
X$ no_wintcp = 1
X$ if f$search("multinet_root:`091multinet.include`093*.H") .eqs. "" then $go
Vto nomultinet
X$!
X$! Include MULTINET/TCP support modules.....
X$!
X$ no_wintcp = 0
X$ define vaxc$include `009multinet_root:`091multinet.include.ARPA`093,-
X`009`009`009multinet_root:`091multinet.include.NET`093,-
X`009`009`009multinet_root:`091multinet.include.NETCHAOS`093,-
X`009`009`009multinet_root:`091multinet.include.NETINET`093,-
X`009`009`009multinet_root:`091multinet.include.NETPUP`093,-
X`009`009`009multinet_root:`091multinet.include.NFS`093,-
X`009`009`009multinet_root:`091multinet.include.RPC`093,-
X`009`009`009multinet_root:`091multinet.include.SYS`093,-
X`009`009`009multinet_root:`091multinet.include.VMS`093,-
X`009`009`009multinet_root:`091multinet.include`093,-
X `009sys$library
X$ define lnk$library MULTINET_COMMON_ROOT:`091MULTINET.LIBRARY`093LIB.OLB
X$ define lnk$library_1 MULTINET_COMMON_ROOT:`091MULTINET.LIBRARY`093RPC.OLB
X$ define lnk$library_3 sys$library:vaxcrtl
X$ cc :== "CC/DEFINE=MULTINET"
X$nomultinet:
X- 48
X twg$tcp:`091netdist.include.arpa`093,-
X- 80, 80
X$ call compile "NEWSVMSMAIL" "DELOBJ" 'p1
X- 321, 322
X$! NNTP_XFER
X$!
X$ if f$search("NNTP_XFER.OBJ").eqs."" then $ goto do9a
X$ if f$cvtime(f$file_attributes("`091-.NEWS_SRC`093NNTP_XFER.C","rdt")).gts.
V-
X f$cvtime(f$file_attributes("NNTP_XFER.OBJ","rdt")) then $ goto do9a
X$ goto past9a
X$do9a:
X$ set def `091-.news_src`093
X$ write sys$output "$ cc nntp_xfer"
X$ cc/nolis/object=`091-.news_build`093nntp_xfer nntp_xfer
X$ set def `091-.news_build`093
X$ purge nntp_xfer.*,`091-.news_src`093nntp_xfer.*
X$past9a:
X$ if f$search("`091-.NEWS_DIST`093NNTP_XFER.EXE").eqs."" then $ goto do18a
X$ if f$cvtime(f$file_attributes("NNTP_XFER.OBJ","rdt")).gts.-
X f$cvtime(f$file_attributes("`091-.NEWS_DIST`093NNTP_XFER.EXE","rdt")) then
V $ goto do18a
X$ goto past18a
X$do18a:
X$ write sys$output "$ link nntp_xfer"
X$ link/notrace/nomap/exe=`091-.NEWS_DIST`093nntp_xfer nntp_xfer,`091-.news_s
Vrc`093options_c_link/opt
X$ purge nntp_xfer.*,`091-.news_dist`093nntp_xfer.*
X$past18a:
X$!
X$! NNTP_TCPCMU
X$!
X$ if no_wintcp .and. no_multinettcp then $ goto past14a
X$ goto past14
X$past14a:
X- 346, 371
X$ if no_wintcp .and. no_multinettcp then $ goto pastpa3
X$!
X$! NNTP_TCPWINMULTINET
X$!
X$ if f$search("NNTP_TCPWINMULTINET.OBJ").eqs."" then $ goto dopa2
X$ if f$cvtime(f$file_attributes("`091-.NEWS_SRC`093NNTP_TCPWINMULTINET.C","r
Vdt")).gts.-
X f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")) then $ goto d
Vopa2
X$ goto pastpa2
X$ dopa2:
X$ set def `091-.news_src`093
X$ write sys$output "$ cc nntp_tcpwinmultinet"
X$ cc/nolis/object=`091-.news_build`093nntp_tcpwinmultinet nntp_tcpwinmultine
Vt
X$ set def `091-.news_build`093
X$ purge nntp_tcpwinmultinet.*,`091-.news_src`093nntp_tcpwinmultinet.*
X$pastpa2:
X$ if f$search("`091-.NEWS_DIST`093NNTP_TCPWINMULTINET.EXE").eqs."" then $ go
Vto dopa3
X$ if f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")).gts.-
X f$cvtime(f$file_attributes("`091-.NEWS_DIST`093NNTP_TCPWINMULTINET.EXE","r
Vdt")) then $ goto dopa3
X$ if f$cvtime(f$file_attributes("NNTP_SERVER.OBJ","rdt")).gts.-
X f$cvtime(f$file_attributes("`091-.NEWS_DIST`093NNTP_TCPWINMULTINET.EXE","r
Vdt")) then $ goto dopa3
X$ goto pastpa3
X$dopa3:
X$ write sys$output "$ link nntp_tcpwinmultinet,nntp_server"
X$ link/nomap/notrace/exe=`091-.news_dist`093nntp_tcpwinmultinet -
X nntp_tcpwinmultinet,nntp_server,newsdist,-
X add_transform,newsrtl,`091-.news_src`093options_c_link/opt
X$ purge nntp_tcpwinmultinet.*,`091-.news_dist`093nntp_tcpwinmultinet.*
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSBUILD.COM
X$ if checksum$checksum .ne. 1821375115 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSBUILD.COM_UPDATE;1 1748804891
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSCMD.CLD to `091-.NEWS_SRC`
V093NEWSCMD.CLD
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:25:22.81
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSCMD.CLD to produce `0
V91-.NEWS_SRC`093NEWSCMD.CLD
X$ checksum `091-.NEWS_V59_SRC`093NEWSCMD.CLD
X$ if checksum$checksum .ne. 1672956155 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSCMD.CLD") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSCMD.CLD
X$ if f$search("`091-.NEWS_SRC`093NEWSCMD.CLD") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSCMD.CLD NEWSCMD.CLD_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSCMD.CLD/update=sys$Input:/output=`091-.
VNEWS_SRC`093NEWSCMD.CLD
X$ DECK
X- 39, 39
X! - Add protocol option MULTINETTCP for Multinet TCP (Mats Sundvall)
X- 178, 178
X keyword MULTINETTCP
X- 481, 481
X parameter P2 label=NOTEID
X- 544
X qualifier RCORDER`009 negatable
X qualifier RCFILTER negatable
X- 663, 670
X- 738
X qualifier UNREGISTERED nonnegatable
X- 742, 742
X disallow any2 (ALL,ITEMS,NEW,NEWSGROUPS,REGISTER,SINCE,UNREGISTERED)
X- 784
X synonym ANSWER
X- 860
Xdefine verb CROSSPOST
X routine do_xpost
X
X- 865, 865
X qualifier CONTROL, value, nonnegatable
X- 940
X qualifier SUBJECT value,nonnegatable
X qualifier TITLE value,nonnegatable
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSCMD.CLD
X$ if checksum$checksum .ne. 1166556622 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSCMD.CLD_UPDATE;1 2004624962
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSDEFINE.H to `091-.NEWS_SRC
V`093NEWSDEFINE.H
X$!
X$! Execute this file with @<file>
X$! The original BASE source for NEWS V5.9 must be in `091-.NEWS_V59_SRC`093
X$!
X$! generated by SLOANE at 3-JAN-1990 14:25:30.48
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSDEFINE.H to produce `
V091-.NEWS_SRC`093NEWSDEFINE.H
X$ checksum `091-.NEWS_V59_SRC`093NEWSDEFINE.H
X$ if checksum$checksum .ne. 1470576181 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSDEFINE.H") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSDEFINE.H
X$ if f$search("`091-.NEWS_SRC`093NEWSDEFINE.H") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSDEFINE.H NEWSDEFINE.H_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSDEFINE.H/update=sys$Input:/output=`091-
V.NEWS_SRC`093NEWSDEFINE.H
X$ DECK
X- 48
X#define DIR_UNREGISTER 4
X- 74, 74
X#define DISP_BUF_SIZE 700
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSDEFINE.H
X$ if checksum$checksum .ne. 2144617838 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSDEFINE.H_UPDATE;1 1849374649
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSDELETE.C to `091-.NEWS_SRC
V`093NEWSDELETE.C
X$!
X$! Execute this file with @<file>
+-+-+-+-+-+-+-+- END OF PART 1 +-+-+-+-+-+-+-+-
--
USmail: Bob Sloane, University of Kansas Computer Center, Lawrence, KS, 66045
E-mail: sloane@kuhub.cc.ukans.edu, sloane@ukanvax.bitnet, AT&T: (913)864-0444