sloane@kuhub.cc.ukans.edu (01/05/90)
-+-+-+-+-+-+-+-+ START OF PART 3 -+-+-+-+-+-+-+-+
X if (resp_val == 380) `123
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSREMCLIENT.C
X$ if checksum$checksum .ne. 1573571741 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSREMCLIENT.C_UPDATE;1 134568874
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSRTL.C to `091-.NEWS_SRC`09
V3NEWSRTL.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:27:24.87
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSRTL.C to produce `091
V-.NEWS_SRC`093NEWSRTL.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSRTL.C
X$ if checksum$checksum .ne. 1321093077 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSRTL.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSRTL.C
X$ if f$search("`091-.NEWS_SRC`093NEWSRTL.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSRTL.C NEWSRTL.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSRTL.C/update=sys$Input:/output=`091-.NE
VWS_SRC`093NEWSRTL.C
X$ DECK
X- 407
X if (*p == '`094') return((*l == *(p+1)) && wild_match(l+1,p+2));
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSRTL.C
X$ if checksum$checksum .ne. 1862162594 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSRTL.C_UPDATE;1 962057844
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSEARCH.C to `091-.NEWS_SRC
V`093NEWSSEARCH.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:27:31.43
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSEARCH.C to produce `
V091-.NEWS_SRC`093NEWSSEARCH.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSSEARCH.C
X$ if checksum$checksum .ne. 1183947980 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSEARCH.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSEARCH.C
X$ if f$search("`091-.NEWS_SRC`093NEWSSEARCH.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSEARCH.C NEWSSEARCH.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSEARCH.C/update=sys$Input:/output=`091-
V.NEWS_SRC`093NEWSSEARCH.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSEARCH.C
X$ if checksum$checksum .ne. 1183947980 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSEARCH.C_UPDATE;1 1848526143
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSELECT.C to `091-.NEWS_SRC
V`093NEWSSELECT.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:27:35.95
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSELECT.C to produce `
V091-.NEWS_SRC`093NEWSSELECT.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSSELECT.C
X$ if checksum$checksum .ne. 1351590642 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSELECT.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSELECT.C
X$ if f$search("`091-.NEWS_SRC`093NEWSSELECT.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSELECT.C NEWSSELECT.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSELECT.C/update=sys$Input:/output=`091-
V.NEWS_SRC`093NEWSSELECT.C
X$ DECK
X- 32
X
X#define CLASSES 1
X- 43, 43
X int g,
X- 53, 53
X if ( curr_g
X && ga`091curr_g`093->grp_reg
X && ga`091curr_g`093->grp_unread
X
X#if CLASSES
X && ga`091curr_g`093->grp_display_indx
X#endif
X ) `123
X
X- 61, 65
X no_more_news = 1;
X g = 1;
X for (g = 1; g <= ga_size; ++g) `123
X if (ga`091g`093->grp_reg && ga`091g`093->grp_unread) `123
X no_more_news = 0;
X if ( (ga`091g`093->grp_reg > mp)
X#if CLASSES
X && ga`091g`093->grp_display_indx
X#endif `032
X ) `123
X mp = ga`091g`093->grp_reg;
X mg = g;
X `125
X- 80, 83
X `125
X if (!ga_size) err_line("\tSelect - NEWS has no Newsgroups\n");
X else err_line("\tSelect - No new items\n");
X- 93, 93
X gm;
X- 224
X if (do_select(s,0,2)) selgrp_action();
X return(0);
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSELECT.C
X$ if checksum$checksum .ne. 1893010695 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSELECT.C_UPDATE;1 1160863359
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSETSHOW.C to `091-.NEWS_SR
VC`093NEWSSETSHOW.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:27:41.46
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSETSHOW.C to produce
V `091-.NEWS_SRC`093NEWSSETSHOW.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSSETSHOW.C
X$ if checksum$checksum .ne. 30158226 then write sys$output "Checksum Error o
Vn MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSETSHOW.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSETSHOW.C
X$ if f$search("`091-.NEWS_SRC`093NEWSSETSHOW.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSETSHOW.C NEWSSETSHOW.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSETSHOW.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NEWSSETSHOW.C
X$ DECK
X- 29, 29
X** - Add support for MULTINET Multinet TCP (Mats Sundvall)
X- 162, 165
X else if (!strncmp(tmpstr,"MULTINETTCP",len)) protocol_val = 3;
X else if (!strncmp(tmpstr,"TCP",len))
X
X#ifdef MULTINET
X- 1208, 1245
X char acline`091256`093, cknode`091132`093, mod`091132`093,
X *cp, *ap, *op;
X FILE *fpd;
X
X ga`091g`093->grp_flags `124= NEWS_M_ACCESS_CHECKED;
X if (ga`091g`093->grp_flags & NEWS_M_MAILMODERATE) `123
X sprintf(mod,"%s@%s",usr_username,Node_address);
X if (!strcmp(mod,moderator_address(ga`091g`093->grp_name))) `123
X ga`091g`093->grp_flags `124= (NEWS_M_MOD_USER `124 NEWS_M_WRITE_ACCESS
V);
X return;
X `125
X `125
X if (!(ga`091g`093->grp_flags & NEWS_M_NOWRITE_SET))
X ga`091g`093->grp_flags `124= NEWS_M_WRITE_ACCESS;
X sprintf(itm_fname,Access_template,util_dir(ga`091g`093->grp_name));
X sysprv();
X if (fpd = fopen(itm_fname,"r")) `123
X while (fgets(acline,256,fpd)) `123
X if (*acline == '#') continue;
X if (cp = strchr(acline,'\n')) *cp = ' ';
X s_to_lower(acline);
X if (cp = strchr(acline,' ')) *cp = '\0';
X if (ap = strchr(acline,'@')) *ap = '\0';
X if (op = strchr(acline,':')) *op = '\0';
X if ( !strcmp(acline,usr_username)
X `124`124 wild_match(usr_username,acline)
X `124`124 idmatch(acline)) `123
X if (cp) *cp = ' ';
X if (ap) *ap = '@';
X if (strchr(acline,'@')) `123
X sprintf(cknode,"@%s ",news_node);
X if (!substrcmp(cp,cknode)) continue;
X `125
X if (substrcmp(cp," write ")) ga`091g`093->grp_flags `124= NEWS_M_WRI
VTE_ACCESS;
X if (substrcmp(cp," nowrite ")) ga`091g`093->grp_flags &= `126NEWS_M_
VWRITE_ACCESS;
X if (substrcmp(cp," moderate ")) ga`091g`093->grp_flags `124= (NEWS_M
V_MOD_USER `124 NEWS_M_WRITE_ACCESS);
X `125
X `125
X fclose(fpd);
X `125
X nosysprv();
X- 1374, 1374
X if (ga`0910`093->grp_life == 65535) strcpy(hold,"`091Permanent (Defaul
Vt)`093");
X- 1428, 1428
X else if (ga`091g`093->grp_srvproto == 3) put_line("NNTP-Transport: TCP
V (MULTINET)",0);
X- 1517, 1517
X else parse_newsgroups(s,"",0,0,1);
X- 1561, 1564
X else if (!strncmp(tmpstr,"MULTINETTCP",len)) protocol_val= 2;
X else if (!strncmp(tmpstr,"TCP",len))
X
X#ifdef MULTINET
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSETSHOW.C
X$ if checksum$checksum .ne. 1570671031 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSETSHOW.C_UPDATE;1 778114609
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSITE.C to `091-.NEWS_SRC`0
V93NEWSSITE.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:27:48.06
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSITE.C to produce `09
V1-.NEWS_SRC`093NEWSSITE.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSSITE.C
X$ if checksum$checksum .ne. 244776900 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSITE.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSITE.C
X$ if f$search("`091-.NEWS_SRC`093NEWSSITE.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSITE.C NEWSSITE.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSITE.C/update=sys$Input:/output=`091-.N
VEWS_SRC`093NEWSSITE.C
X$ DECK
X- 244
X if (!strchr(mail_sig,'@')) `123
X strcat(mail_sig,"@");
X strcat(mail_sig,Node_address);
X `125
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSITE.C
X$ if checksum$checksum .ne. 351987080 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSITE.C_UPDATE;1 1602113176
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSITE.H to `091-.NEWS_SRC`0
V93NEWSSITE.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:27:53.30
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSITE.H to produce `09
V1-.NEWS_SRC`093NEWSSITE.H
X$ checksum `091-.NEWS_V59_SRC`093NEWSSITE.H
X$ if checksum$checksum .ne. 837512075 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSITE.H") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSITE.H
X$ if f$search("`091-.NEWS_SRC`093NEWSSITE.H") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSITE.H NEWSSITE.H_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSITE.H/update=sys$Input:/output=`091-.N
VEWS_SRC`093NEWSSITE.H
X$ DECK
X- 4, 4
X** NEWSSITE.H
X- 23
X**`009V5.9B`00925-Oct-1989`009GIH
X**`009 - Drop default item lifetime to 20 days (NEWS volumes are increasing
V)
X- 27, 29
X#define NEWS_VERSION "VMS News - V5.9C"
X#define NEWS_VDATE "19-Dec-1989"
X#define NEWS_DDATE "19/12/89"
X- 39, 40
X#define EXP_TIME 20
X#define GRP_TIME 50
X- 162
X#define NEWGROUP_REG 0
X
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSITE.H
X$ if checksum$checksum .ne. 1888504771 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSITE.H_UPDATE;1 1444585492
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSKIM.C to `091-.NEWS_SRC`0
V93NEWSSKIM.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:28:01.26
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSKIM.C to produce `09
V1-.NEWS_SRC`093NEWSSKIM.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSSKIM.C
X$ if checksum$checksum .ne. 1972368928 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSKIM.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSKIM.C
X$ if f$search("`091-.NEWS_SRC`093NEWSSKIM.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSKIM.C NEWSSKIM.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSKIM.C/update=sys$Input:/output=`091-.N
VEWS_SRC`093NEWSSKIM.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSKIM.C
X$ if checksum$checksum .ne. 1972368928 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSKIM.C_UPDATE;1 153692155
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSSKIP.C to `091-.NEWS_SRC`0
V93NEWSSKIP.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:28:08.34
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSSKIP.C to produce `09
V1-.NEWS_SRC`093NEWSSKIP.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSSKIP.C
X$ if checksum$checksum .ne. 1518441444 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSSKIP.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSSKIP.C
X$ if f$search("`091-.NEWS_SRC`093NEWSSKIP.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSSKIP.C NEWSSKIP.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSSKIP.C/update=sys$Input:/output=`091-.N
VEWS_SRC`093NEWSSKIP.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSSKIP.C
X$ if checksum$checksum .ne. 1518441444 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSSKIP.C_UPDATE;1 489241299
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSUTILITY.C to `091-.NEWS_SR
VC`093NEWSUTILITY.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:28:15.60
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSUTILITY.C to produce
V `091-.NEWS_SRC`093NEWSUTILITY.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSUTILITY.C
X$ if checksum$checksum .ne. 1254898256 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSUTILITY.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSUTILITY.C
X$ if f$search("`091-.NEWS_SRC`093NEWSUTILITY.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSUTILITY.C NEWSUTILITY.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSUTILITY.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NEWSUTILITY.C
X$ DECK
X- 778, 778
X`009if (newsgrp.grp_itmlife)
X- 924, 924
X ga`091i`093->grp_reg = NEWGROUP_REG;
X- 1327, 1330
X int i,
X lens = strlen(s);
X char *n, *ps, *pn, *sps;
X
X sps = s + lens - 1;
X for (i = 1 ; i <= ga_size ; ++i) `123
X if ( (*s != *(n = ga`091i`093->grp_name))
X `124`124 (lens != strlen(n)))
X continue;`009`009`009`009`009/* first char & length == */
X /* The real works: Compare backwards; First chars known equal. */
X ps = sps;
X pn = n + lens - 1;
X while (ps > s)
X if (*ps-- != *pn--) break;
X if (ps == s) return(i);
X `125
X</* if (!strcmp(s,ga`091i`093->grp_name)) return(i); <<-- original code *
V/
X
X- 1786
X if (!gap->grp_ia) map_items(curr_g);
X- 2171
X
Xcheck_id(id)
X char *id;
X`123
X char mref`091IDLEN + 4`093;
X int *gp;
X
X util_idcpy(mref,id);
X s_to_lower(mref);
X gp = &mref`091IDLEN`093;
X *gp = 0;
X
X itmrab.rab$l_kbf = mref;
X itmrab.rab$b_ksz = IDLEN + 4;
X itmrab.rab$b_krf = 1;
X itmrab.rab$l_rop = RAB$M_KGE `124 RAB$M_RRL `124 RAB$M_NLK;
X itmrab.rab$b_rac = RAB$C_KEY;
X
X if ( (sys$get(&itmrab) & 1)
X && !strcmp(mref,newsitm.itm_id)) return(1);
X if (hist_check(mref)) return(1);
X return(0);
X`125
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSUTILITY.C
X$ if checksum$checksum .ne. 1321231716 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSUTILITY.C_UPDATE;1 1174483923
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSV58_UPGRADE.C to `091-.NEW
VS_SRC`093NEWSV58_UPGRADE.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:28:20.71
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSV58_UPGRADE.C to prod
Vuce `091-.NEWS_SRC`093NEWSV58_UPGRADE.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSV58_UPGRADE.C
X$ if checksum$checksum .ne. 697440169 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSV58_UPGRADE.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSV58_UPGRADE.C
X$ if f$search("`091-.NEWS_SRC`093NEWSV58_UPGRADE.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSV58_UPGRADE.C NEWSV58_UPGRADE.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSV58_UPGRADE.C/update=sys$Input:/output=
V`091-.NEWS_SRC`093NEWSV58_UPGRADE.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSV58_UPGRADE.C
X$ if checksum$checksum .ne. 697440169 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSV58_UPGRADE.C_UPDATE;1 1194090343
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSVARIABLES.H to `091-.NEWS_
VSRC`093NEWSVARIABLES.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:28:25.04
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSVARIABLES.H to produc
Ve `091-.NEWS_SRC`093NEWSVARIABLES.H
X$ checksum `091-.NEWS_V59_SRC`093NEWSVARIABLES.H
X$ if checksum$checksum .ne. 2121250739 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSVARIABLES.H") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSVARIABLES.H
X$ if f$search("`091-.NEWS_SRC`093NEWSVARIABLES.H") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSVARIABLES.H NEWSVARIABLES.H_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSVARIABLES.H/update=sys$Input:/output=`0
V91-.NEWS_SRC`093NEWSVARIABLES.H
X$ DECK
X- 71, 71
X str_col,
X mail_self_flag iev(0);
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSVARIABLES.H
X$ if checksum$checksum .ne. 959886852 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSVARIABLES.H_UPDATE;1 206914682
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NEWSVMSMAIL.C to `091-.NEWS_SR
VC`093NEWSVMSMAIL.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:28:31.06
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NEWSVMSMAIL.C to produce
V `091-.NEWS_SRC`093NEWSVMSMAIL.C
X$ checksum `091-.NEWS_V59_SRC`093NEWSVMSMAIL.C
X$ if checksum$checksum .ne. 765574529 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NEWSVMSMAIL.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NEWSVMSMAIL.C
X$ if f$search("`091-.NEWS_SRC`093NEWSVMSMAIL.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NEWSVMSMAIL.C NEWSVMSMAIL.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NEWSVMSMAIL.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NEWSVMSMAIL.C
X$ DECK
X- 4, 4
X** NEWSVMSMAIL
X- 25, 25
X#module NEWSVMSMAIL "V5.8"
X- 126
X tmp->fnext = 0;
X- 731, 731
X all = ((news_context == 1) `124`124 (cli$present(c$dsc("ALL")) & 1));
X- 905, 906
X sm`0910`093.bl = 0; sm`0910`093.ba = 0; sm`0910`093.rl = 0;
X sm`0911`093.bl = 0; sm`0911`093.ic = 0; sm`0911`093.ba = 0;
V sm`0911`093.rl = 0;
X- 923, 923
X sm`0911`093.bl = 0; sm`0911`093.ic = 0; sm`0911`093.ba = 0; sm`0
V911`093.rl = 0;
X- 932, 933
X sm`0910`093.bl = 0; sm`0910`093.ba = 0; sm`0910`093.rl = 0;
X sm`0911`093.bl = 0; sm`0911`093.ic = 0; sm`0911`093.ba = 0; sm`0911`
V093.rl = 0;
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NEWSVMSMAIL.C
X$ if checksum$checksum .ne. 2122906716 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NEWSVMSMAIL.C_UPDATE;1 1444956558
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_CLIENT.C to `091-.NEWS_SR
VC`093NNTP_CLIENT.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:28:36.42
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_CLIENT.C to produce
V `091-.NEWS_SRC`093NNTP_CLIENT.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_CLIENT.C
X$ if checksum$checksum .ne. 1971360592 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_CLIENT.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_CLIENT.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_CLIENT.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_CLIENT.C NNTP_CLIENT.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_CLIENT.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NNTP_CLIENT.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_CLIENT.C
X$ if checksum$checksum .ne. 1971360592 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_CLIENT.C_UPDATE;1 1719562079
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_DEC.C to `091-.NEWS_SRC`0
V93NNTP_DEC.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:28:41.00
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_DEC.C to produce `09
V1-.NEWS_SRC`093NNTP_DEC.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_DEC.C
X$ if checksum$checksum .ne. 501076812 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_DEC.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_DEC.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_DEC.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_DEC.C NNTP_DEC.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_DEC.C/update=sys$Input:/output=`091-.N
VEWS_SRC`093NNTP_DEC.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_DEC.C
X$ if checksum$checksum .ne. 501076812 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_DEC.C_UPDATE;1 1764172959
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_DECM.C to `091-.NEWS_SRC`
V093NNTP_DECM.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:28:46.97
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_DECM.C to produce `0
V91-.NEWS_SRC`093NNTP_DECM.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_DECM.C
X$ if checksum$checksum .ne. 2014574993 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_DECM.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_DECM.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_DECM.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_DECM.C NNTP_DECM.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_DECM.C/update=sys$Input:/output=`091-.
VNEWS_SRC`093NNTP_DECM.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_DECM.C
X$ if checksum$checksum .ne. 2014574993 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_DECM.C_UPDATE;1 1896874151
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_FEED.C to `091-.NEWS_SRC`
V093NNTP_FEED.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:28:52.86
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_FEED.C to produce `0
V91-.NEWS_SRC`093NNTP_FEED.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_FEED.C
X$ if checksum$checksum .ne. 2080011524 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_FEED.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_FEED.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_FEED.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_FEED.C NNTP_FEED.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_FEED.C/update=sys$Input:/output=`091-.
VNEWS_SRC`093NNTP_FEED.C
X$ DECK
X- 34, 36
X#module NNTP_FEED "V5.8"
X- 41, 41
X- 47, 52
X- 65, 65
X#define MULTINETTCP 3
X- 70, 71
X#ifdef MULTINET
X#define MULTINET 1
X- 75, 75
X#if TWG `124`124 MULTINET
X- 156, 156
X idfile`091256`093,
X`009tmpf`091256`093;
X- 425, 430
X#elif MULTINET
X else if (proto == MULTINETTCP) `123
X#endif
X if (sys$assign(c$dsc("INET0:"),&net_chan,0,0) & 1) `123
X
X#if TWG `124`124 MULTINET
X- 453, 456
X#endif
X `125
X else `123
X sprintf(netobj,"%s::\"TASK=NNTP\"",node);
X- 485, 485
X if (!nntp_write("STAT") `124`124 (!(wait_net_response(RESP_TIMER,1)))) `
V123
X- 517, 517
X * proto_num (3 == MULTINETTCP, 2 == WINTCP, 1 == CMUTCP, 0 = DECNET)
X- 591, 591
X lib$rename_file(c$dsc(tmpf),c$dsc(idfile),
X- 598, 598
X delete(tmpf);
X- 759, 761
X#elif MULTINET
X if (tolower(*proto) == 't') proto_num = MULTINETTCP;
X if (tolower(*proto) == 'm') proto_num = MULTINETTCP;
X- 774, 774
X strcpy(tmpf,idfile);
X if (cp = strrchr(tmpf,'`093')) cp++;
X else if (cp = strrchr(tmpf,':')) cp++;
X else cp = tmpf;
X sprintf(cp,"NNTP_%X.TMP",getpid()); `032
X fpw = fopen(tmpf,"w");
X- 870, 871
X if (lines_written) lib$rename_file(c$dsc(tmpf),c$dsc(idfile),0,0,0,0,0,0
V,0,0,0,0);
X else delete(tmpf);
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_FEED.C
X$ if checksum$checksum .ne. 881678828 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_FEED.C_UPDATE;1 572261520
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_SERVER.C to `091-.NEWS_SR
VC`093NNTP_SERVER.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:28:59.28
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_SERVER.C to produce
V `091-.NEWS_SRC`093NNTP_SERVER.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_SERVER.C
X$ if checksum$checksum .ne. 1067346106 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_SERVER.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_SERVER.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_SERVER.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_SERVER.C NNTP_SERVER.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_SERVER.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NNTP_SERVER.C
X$ DECK
X- 93, 93
X#define NEWSBATCH "NEWS_MANAGER:NNTP_%X.BATCH"
X#define NEWS_BATCH_SIZE 250000
X- 262, 262
Xint mail_add_expiry,
X ihave_size = 0;
X- 1104
X if (xfrbuf`091strlen(xfrbuf)-1`093=='\n')
X xfrbuf`091strlen(xfrbuf)-1`093='\0'; /* remove newline (POK) */
X- 1250, 1274
X char *fn;
X int mode;
X char *msgbuf;
X int stm;
X`123
X FILE *fpr,
X *fpw;
X char line`091BUFF_STRLEN`093,
X batch`091FILE_STRLEN`093;
X struct stat sbuffer;
X
X if (mode == POST) return(post_add_item(fn,msgbuf,stm));
X
X if (!(fpr = fopen(fn,"r"))) `123
X strcpy(msgbuf,"File handler error in NNTP Server.");
X return(0);
X `125
X sprintf(batch,NEWSBATCH,getpid());
X if (!stat(batch,&sbuffer)) `123
X if (sbuffer.st_size > NEWS_BATCH_SIZE) fpw = fopen(batch,"w","alq=30","d
Veq=30");
X else
X if (!(fpw = fopen(batch,"a"))) fpw = fopen(batch,"w","alq=30","deq=30"
V);
X `125
X else fpw = fopen(batch,"w","alq=30","deq=30");
X if (!fpw) `123
X strcpy(msgbuf,"File handler error in NNTP Server.");
X return(0);
X `125
X fprintf(fpw,"#! rnews %d\n", (ihave_size > 0 ? ihave_size : 1));
X while (fgets(line,BUFF_STRLEN,fpr)) fputs(line,fpw);
X fclose(fpr);
X fclose(fpw);
X strcpy(msgbuf,"Item successfully spooled.");
X while (!delete(fn));
X return(1);
X- 1820, 1852
XFILE *openartbyid(id,msg_status,stm)
X char *id;
X int *msg_status;
X int stm;
X`123
X char l_id`091IDLEN + 4`093;
X int i;
X
X ihave_size = 0;
X *msg_status = M430;
X for (i = 0; i < (IDLEN + 4); ++i) l_id`091i`093 = '\0';
X strncpy(l_id,id,IDLEN);
X
X grprab.rab$l_kbf = &(newsitm.itm_grp);
X grprab.rab$b_ksz = 4;
X grprab.rab$b_krf = 1;
X grprab.rab$l_rop = RAB$M_RRL `124 RAB$M_NLK;
X grprab.rab$b_rac = RAB$C_KEY;
X
X itmrab.rab$l_kbf = l_id;
X itmrab.rab$b_ksz = IDLEN + 4;
X itmrab.rab$b_krf = 1;
X itmrab.rab$l_rop = RAB$M_KGE `124 RAB$M_RRL `124 RAB$M_NLK;
X itmrab.rab$b_rac = RAB$C_KEY;
X if ( !(sys$get(&itmrab) & 1)
X `124`124 strcmp(l_id,newsitm.itm_id)
X `124`124 !(sys$get(&grprab) & 1))
X return(0);
X itmrab.rab$b_rac = RAB$C_SEQ;
X while (!check_ngperm(newsgrp.grp_name,stm))
X if ( !(sys$get(&itmrab) & 1)
X `124`124 strcmp(l_id,newsitm.itm_id)
X `124`124 !(sys$get(&grprab) & 1)) `123
X *msg_status = M502;
X return(0);
X `125
X sprintf(itm_fname,Itm_template,util_dir(newsgrp.grp_name),newsitm.itm_num)
V;
X return(fopen(itm_fname,"r"));
X- 2161
X ihave_size = 0;
X- 2165, 2166
X if ((!strcmp(ibuf,"..\n")) && (fpl)) `123
X --ihave_size;
X fputs(ibuf + 1,fpl);
X `125
X else if (fpl) fputs(ibuf,fpl);
X ihave_size += strlen(ibuf);
X- 2798, 2800
X if (!(np = getenv("SYS$NODE"))) np = "";
X strcpy(localhost, np);
X if (np = strchr(localhost,':')) np = '\0';
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_SERVER.C
X$ if checksum$checksum .ne. 61150618 then write sys$output "Checksum Error o
Vn UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_SERVER.C_UPDATE;1 1460295377
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_TCPCMU.C to `091-.NEWS_SR
VC`093NNTP_TCPCMU.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:29:04.67
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_TCPCMU.C to produce
V `091-.NEWS_SRC`093NNTP_TCPCMU.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_TCPCMU.C
X$ if checksum$checksum .ne. 1286248757 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_TCPCMU.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_TCPCMU.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_TCPCMU.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_TCPCMU.C NNTP_TCPCMU.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_TCPCMU.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NNTP_TCPCMU.C
X$ DECK
X- 67, 67
X#define DEBUG 0
X- 74, 74
X#define nntp_getchar() (!nntp_input_size ? nntp_fillbuf() : (--nntp_input_si
Vze, *nntp_input_ptr++))
X- 82, 84
Xstatic char nntp_input_buffer`091X_BUF_SIZE`093;
Xstatic char *nntp_input_ptr = nntp_input_buffer;
Xstatic int nntp_input_size = 0;
X
X#define POK_OUTPUT_BUFFER
X#ifdef POK_OUTPUT_BUFFER
Xstatic char nntp_output_buffer`091X_BUF_SIZE`093;`009/* NNTP output buffer *
V/
Xstatic char *nntp_output_ptr = nntp_output_buffer;
Xstatic int nntp_output_size = X_BUF_SIZE;
X#endif
X- 100, 100
X fprintf(flog,"TCP CMU open NNTP Connection %s",ctime(&cur_time));
X- 122, 122
X while (next_function) `123
X
X#ifdef POK_OUTPUT_BUFFER
X write_out();
X#endif
X (*next_function)(1);
X `125
X- 145
X
X#ifdef POK_OUTPUT_BUFFER
X write_out();
X#endif
X
X- 156, 161
X cks(sys$qiow(0,f,IO$_READVBLK,iosb,0,0,nntp_input_buffer,
X sizeof(nntp_input_buffer),0,0,0,0));
X alarm(0);
X if (!iosb`0911`093) return(cancel_net(),-1);
X nntp_input_ptr = nntp_input_buffer;
X nntp_input_size = iosb`0911`093-1;
X return(*nntp_input_ptr++);
X- 201, 210
X#ifdef POK_OUTPUT_BUFFER
X</* this asumes that nobody ever writes more than X_BUF_SIZE bytes */
X
Xwrite_net(s,unit)
X char *s;
X int unit;
X`123
X register int size = strlen(s);
X
X#if DEBUG
X fprintf(stderr,"Write_net:%s\n",s);
X#endif
X
X if (nntp_output_size < size) write_out(); /* no space in buffer - flush */
X strncpy(nntp_output_ptr,s,size);
X nntp_output_ptr += size;
X nntp_output_size -= size;
X`125
X
Xwrite_out()
X`123
X if (nntp_output_ptr != nntp_output_buffer) `123 /* something in the buffe
Vr */
X cks(sys$qiow(0,f,IO$_WRITEVBLK,iosb,0,0,nntp_output_buffer,
X nntp_output_ptr - nntp_output_buffer,0,1,0,0));
X cks(*i_o_sts);
X nntp_output_ptr = nntp_output_buffer;
X nntp_output_size = X_BUF_SIZE;
X `125
X`125
X#else
X
Xwrite_net(s,unit)
X char *s;
X int unit;
X`123
X#if DEBUG
X fprintf(stderr,"Write_net:%s\n",s);
X#endif
X
X cks(sys$qiow(0,f,IO$_WRITEVBLK,iosb,0,0,s,strlen(s),0,1,0,0));
X cks(*i_o_sts);
X`125
X#endif
X- 248, 254
X fprintf(stderr,"Close_net\n");
X#endif
X
X#ifdef POK_OUTPUT_BUFFER`032
X write_out();
X#endif
X
X sys$cancel(f);
X log_to_file(1);
X cks(sys$qiow(0,f,IO$_DELETE,iosb,0,0,0,0,0,0,0,0));
X cks(*i_o_sts);
X sys$dassgn(f);
X- 275, 287
X `125 _align(quadword) info_buffer;
X
Xgetremhost(remhost,remuser,unit)
X char *remhost, *remuser;
X int unit;
X`123
X if (remhost) `123
X
X</* i have had some trouble with this call - it is reinserted - BUT take it
V out
Xif you cannot get it to work and replace it with the single line following!
X
X strcpy(remhost,"tcp");
X*/
X
X cks(sys$qiow(0,f,IO$_MODIFY,iosb,0,0,&info_buffer,sizeof(info_buffer),0,
V0,0,0));
X cks(*i_o_sts);
X strncpy(remhost,info_buffer.fhost,info_buffer.fhost_len);
X remhost`091info_buffer.fhost_len`093 = '\0';
X</* if you cannot get it to work comment out the above block and put back th
Ve
X strcpy line! */
X
X `125
X if (remuser) strcpy(remuser,"nntp");
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_TCPCMU.C
X$ if checksum$checksum .ne. 2079437225 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_TCPCMU.C_UPDATE;1 1483652605
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_TCPWIN.C to `091-.NEWS_SR
VC`093NNTP_TCPWIN.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:29:09.59
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_TCPWIN.C to produce
V `091-.NEWS_SRC`093NNTP_TCPWIN.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_TCPWIN.C
X$ if checksum$checksum .ne. 1724609280 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_TCPWIN.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_TCPWIN.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_TCPWIN.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_TCPWIN.C NNTP_TCPWIN.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_TCPWIN.C/update=sys$Input:/output=`091
V-.NEWS_SRC`093NNTP_TCPWIN.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_TCPWIN.C
X$ if checksum$checksum .ne. 1724609280 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_TCPWIN.C_UPDATE;1 1969911700
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_TTY.C to `091-.NEWS_SRC`0
V93NNTP_TTY.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:29:13.86
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_TTY.C to produce `09
V1-.NEWS_SRC`093NNTP_TTY.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_TTY.C
X$ if checksum$checksum .ne. 719599219 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_TTY.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_TTY.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_TTY.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_TTY.C NNTP_TTY.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_TTY.C/update=sys$Input:/output=`091-.N
VEWS_SRC`093NNTP_TTY.C
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_TTY.C
X$ if checksum$checksum .ne. 719599219 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_TTY.C_UPDATE;1 1881352909
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093NNTP_XFER.C to `091-.NEWS_SRC`
V093NNTP_XFER.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:29:19.46
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093NNTP_XFER.C to produce `0
V91-.NEWS_SRC`093NNTP_XFER.C
X$ checksum `091-.NEWS_V59_SRC`093NNTP_XFER.C
X$ if checksum$checksum .ne. 2079707824 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093NNTP_XFER.C") .nes. "" then -
X purge `091-.NEWS_SRC`093NNTP_XFER.C
X$ if f$search("`091-.NEWS_SRC`093NNTP_XFER.C") .nes. "" then -
X rename `091-.NEWS_SRC`093NNTP_XFER.C NNTP_XFER.C_old
X$ edit/sum `091-.NEWS_V59_SRC`093NNTP_XFER.C/update=sys$Input:/output=`091-.
VNEWS_SRC`093NNTP_XFER.C
X$ DECK
X- 32, 32
X- 36, 36
X#define MULTINETTCP 3
X- 41, 42
X#ifdef MULTINET
X#define MULTINET 1
X- 46, 46
X#if TWG `124`124 MULTINET
X- 78, 78
X logging = 0,
X days = 1;
X- 330, 334
X#elif MULTINET
X else if (proto == MULTINETTCP) `123
X if (sys$assign(c$dsc("INET0:"),&net_chan,0,0) & 1) `123
X#endif
X#if TWG `124`124 MULTINET
X- 438, 438
X * proto_num (3 == MULTINETTCP, 2 == WINTCP, 1 == CMUTCP, 0 = DECNET)
X- 654, 654
X last_time -= days * 60 * 60 * 24;
X- 747
X xfn`091256`093,
X npart`09120`093,
X- 753
X static int part = 0;
X- 811, 811
X if (!fpw) `123
X strcpy(xfn,batchfile);`009`009`009/* `091BT`093 */
X cp = strrchr(xfn,'.');`009`009`009/* `091BT`093 */
X sprintf(npart,"_%02d.batch",++part);`009/* `091BT`093 */
X strcpy(cp,npart);`009`009`009`009/* `091BT`093 */
X fpw = fopen(nfn,"w");
X `125
X- 833, 833
X rename(nfn,xfn);
X- 842, 842
X rename(nfn,xfn);
X- 866, 866
X int usg_error = 0,
X- 875, 878
X- 887, 891
X `009`009`009`009/* interpret program arguments */
X if (argc < 2) `123
X printf("Usage: NNTPXFER -n node -p proto `091-l log`093 `091-d`093 `091-
Vs n`093\n");
X exit(1);
X `125
X
X *node = '\0';
X if (*argv`0911`093 != '-') `123
X strcpy(node,argv`0911`093);
X if (argc > 2) strcpy(proto,argv`0912`093);
X if (argc > 3) `123
X strcpy(logfile,argv`0913`093);
X logging = 1;
X `125
X if (argc==5) debugging = 1;
X `125
X else `123
X i = 1;
X while (i < argc) `123
X np = argv`091i`093;
X if (*np == '-') `123
X ++np;
X switch (tolower(*np)) `123
X case 'n':
X`009 if (++i < argc) strcpy(node,argv`091i`093); else ++usg_error; break;
X case 'p':
X if (++i < argc) strcpy(proto,argv`091i`093); else ++usg_error; b
Vreak;
X case 'l':
X if (++i < argc) `123
X`009 strcpy(logfile,argv`091i`093);
X`009 logging = 1;
X`009 `125
X else ++usg_error;
X`009 break;
X case 'd' :
X`009 debugging = 1; break;
X case 'x' :
X if (++i < argc) `123
X`009 if (sscanf(argv`091i`093,"%d",&days) != 1) days = 1;
X `125
X else ++usg_error;
X`009 break;
X `125
X if (usg_error) `123
X printf("Usage: NNTPXFER -n node -p proto `091-l log`093 `091-d`093
V `091-x n`093\n");
X exit(1);
X`009 `125
X`009`125
X ++i;
X `125
X `125
X if (!*node) `123
X printf("Usage: NNTPXFER -n node -p proto `091-l log`093 `091-d`093 `091-
Vx n`093\n");
X exit(1);
X `125
X strcpy(fnode,node);
X while (np = strchr(fnode,'.')) *np = '-';
X- 895, 897
X#elif MULTINET
X if (tolower(*proto) == 't') proto_num = MULTINETTCP;
X if (tolower(*proto) == 'm') proto_num = MULTINETTCP;
X- 902, 907
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093NNTP_XFER.C
X$ if checksum$checksum .ne. 197966869 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK NNTP_XFER.C_UPDATE;1 1193041695
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093OPTIONS_C_LINK.OPT to `091-.NE
VWS_SRC`093OPTIONS_C_LINK.OPT
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:29:24.31
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093OPTIONS_C_LINK.OPT to pro
Vduce `091-.NEWS_SRC`093OPTIONS_C_LINK.OPT
X$ checksum `091-.NEWS_V59_SRC`093OPTIONS_C_LINK.OPT
X$ if checksum$checksum .ne. 471470287 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093OPTIONS_C_LINK.OPT") .nes. "" then -
X purge `091-.NEWS_SRC`093OPTIONS_C_LINK.OPT
X$ if f$search("`091-.NEWS_SRC`093OPTIONS_C_LINK.OPT") .nes. "" then -
X rename `091-.NEWS_SRC`093OPTIONS_C_LINK.OPT OPTIONS_C_LINK.OPT_old
X$ edit/sum `091-.NEWS_V59_SRC`093OPTIONS_C_LINK.OPT/update=sys$Input:/output
V=`091-.NEWS_SRC`093OPTIONS_C_LINK.OPT
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093OPTIONS_C_LINK.OPT
X$ if checksum$checksum .ne. 471470287 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK OPTIONS_C_LINK.OPT_UPDATE;1 203444607
$ create/nolog 'f'
X$! Procedure to convert `091-.NEWS_V59_SRC`093SORTDEF.H to `091-.NEWS_SRC`09
V3SORTDEF.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:29:28.25
X$!
X$ set noon
X$ write sys$Output "Updating `091-.NEWS_V59_SRC`093SORTDEF.H to produce `091
V-.NEWS_SRC`093SORTDEF.H
X$ checksum `091-.NEWS_V59_SRC`093SORTDEF.H
X$ if checksum$checksum .ne. 190537173 then write sys$output "Checksum Error
V on MASTER source."
X$ if f$search("`091-.NEWS_SRC`093SORTDEF.H") .nes. "" then -
X purge `091-.NEWS_SRC`093SORTDEF.H
X$ if f$search("`091-.NEWS_SRC`093SORTDEF.H") .nes. "" then -
X rename `091-.NEWS_SRC`093SORTDEF.H SORTDEF.H_old
X$ edit/sum `091-.NEWS_V59_SRC`093SORTDEF.H/update=sys$Input:/output=`091-.NE
VWS_SRC`093SORTDEF.H
X$ DECK
X/
X$EOD
X$ checksum `091-.NEWS_SRC`093SORTDEF.H
X$ if checksum$checksum .ne. 190537173 then write sys$output "Checksum Error
V on UPDATED source."
X$ write sys$output "Completed Conversion"
$ CALL UNPACK SORTDEF.H_UPDATE;1 1377849868
$ v=f$verify(v)
$ EXIT
--
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