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