Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!uunet!wuarchive!kuhub.cc.ukans.edu!sloane
From: sloane@kuhub.cc.ukans.edu
Newsgroups: news.software.anu-news
Subject: V5.9C SUM/SLP patches part 1 of 3
Message-ID: <20743.25a32b49@kuhub.cc.ukans.edu>
Date: 4 Jan 90 16:54:01 GMT
Organization: University of Kansas Academic Computing Services
Lines: 1199

$! ------------------ 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