home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / de / comp / sources / os9 / 11 < prev    next >
Encoding:
Internet Message Format  |  1992-12-23  |  54.1 KB
  1. Xref: sparky de.comp.sources.os9:11 comp.os.os9:1553
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!sun-barr!news2me.EBay.Sun.COM!seven-up.East.Sun.COM!sungy!stasys!stasys!not-for-mail
  3. From: frank.kaefer@stasys.sta.sub.org (Frank Kaefer)
  4. Newsgroups: de.comp.sources.os9,comp.os.os9
  5. Subject: MNews Prerelease Part03/09
  6. Message-ID: <1hafd8INNpss@stasys.sta.sub.org>
  7. Date: 23 Dec 92 19:41:28 GMT
  8. Sender: news@stasys.sta.sub.org
  9. Followup-To: de.comp.sources.d
  10. Organization: Stasys News Server, Starnberg, Germany
  11. Lines: 2321
  12. Approved: frank.kaefer@stasys.sta.sub.org (Frank Kaefer)
  13. NNTP-Posting-Host: stasys.sta.sub.org
  14.  
  15. Submitted-by: Ulrich Dessauer <ud@Nightmare.ddt.sub.org>
  16. Archive-name: mnews/part03
  17.  
  18. : ----- Cut here ----- Cut here ----- Cut here ----- Cut here -----
  19. : Use  sh filename  to extract shell archive
  20. : This shell archive contains following files:
  21. :     'INEWS/csme.c                                  515 bytes'
  22. :     'INEWS/cssys.c                                1918 bytes'
  23. :     'INEWS/csuu.c                                 1242 bytes'
  24. :     'INEWS/csver.c                                1398 bytes'
  25. :     'INEWS/ctrl.c                                 3060 bytes'
  26. :     'INEWS/dbg.c                                  1599 bytes'
  27. :     'INEWS/ddst.c                                 1571 bytes'
  28. :     'INEWS/delh.c                                  768 bytes'
  29. :     'INEWS/exp.c                                  8032 bytes'
  30. :     'INEWS/ext.h                                  2171 bytes'
  31. :     'INEWS/fcan.c                                 2345 bytes'
  32. :     'INEWS/ffrom.c                                1922 bytes'
  33. :     'INEWS/ffup.c                                 1692 bytes'
  34. :     'INEWS/getd.c                                 1029 bytes'
  35. :     'INEWS/gfh.c                                   290 bytes'
  36. :     'INEWS/ghead.c                                 487 bytes'
  37. :     'INEWS/hact                                     69 bytes'
  38. :     'INEWS/hash.c                                  435 bytes'
  39. :     'INEWS/hist.h                                  873 bytes'
  40. :     'INEWS/ihead.c                                 947 bytes'
  41. :     'INEWS/inews.c                                1823 bytes'
  42. :     'INEWS/inews.h                               11606 bytes'
  43. : 
  44. if test -f 'INEWS/csme.c' ; then
  45.   echo 'File INEWS/csme.c already exists, overwriting it'
  46.   del 'INEWS/csme.c'
  47. fi
  48. echo Extracting \"'INEWS/csme.c'\"
  49. sed "s/^X//" >'INEWS/csme.c' <<'__END__OF__THIS__FILE__'
  50. X/*
  51. X * $Log:    csme.c_v $
  52. X * Revision 1.1  91/12/26  13:47:10  ud
  53. X * Initial revision
  54. X * 
  55. X * 
  56. X */
  57. X# ifndef    LINT
  58. Xstatic char rcsid[] = "$Id: csme.c_v 1.1 91/12/26 13:47:10 ud Exp $";
  59. X# endif        LINT
  60. X# include    <c8type.h>
  61. X# include    "inews.h"
  62. X
  63. Xextern char    *index ();
  64. Xextern char    *strdup ();
  65. X
  66. Xvoid
  67. Xsend_me ()
  68. X{
  69. X    char    *ptr;
  70. X    charc    *tmp;
  71. X
  72. X    if (! ngs)
  73. X        return;
  74. X    ptr = ngs -> text;
  75. X    if (Strnicmp (ptr, "to.", 3))
  76. X        return;
  77. X    ptr += 3;
  78. X    if (Strieql (ptr, hostname) || Strieql (ptr, fhost)) {
  79. X        /* Handle sendme */
  80. X        return;
  81. X    }
  82. X}
  83. X
  84. __END__OF__THIS__FILE__
  85. if test -f 'INEWS/cssys.c' ; then
  86.   echo 'File INEWS/cssys.c already exists, overwriting it'
  87.   del 'INEWS/cssys.c'
  88. fi
  89. echo Extracting \"'INEWS/cssys.c'\"
  90. sed "s/^X//" >'INEWS/cssys.c' <<'__END__OF__THIS__FILE__'
  91. X/*
  92. X * $Log:    cssys.c_v $
  93. X * Revision 1.1  90/08/31  15:33:03  cs
  94. X * Initial revision
  95. X * 
  96. X */
  97. X# ifndef    LINT
  98. Xstatic char rcsid[] = "$Id: cssys.c_v 1.1 90/08/31 15:33:03 cs Exp $";
  99. X# endif        LINT
  100. X# include    "inews.h"
  101. X
  102. Xextern char    *index ();
  103. Xextern char    *strdup ();
  104. X
  105. Xchar *
  106. Xget_path (tmp)
  107. Xcharc *tmp;
  108. X{
  109. X    char    *path;
  110. X
  111. X    if ((path = index (tmp->text, '!')) || (path = index (tmp->text, ':')))
  112. X        ++path;
  113. X    else
  114. X        path = tmp->text;
  115. X    return (path);
  116. X}
  117. X
  118. Xvoid
  119. Xsendsys ()
  120. X{
  121. X    char    *from, *reply_to;
  122. X    char    *comment[16];
  123. X    charc    *tmp;
  124. X# ifdef        IN_MEMORY
  125. X    list    *ltmp;
  126. X# endif        /* IN_MEMORY */
  127. X
  128. X    if (!(from = find_from_addr (TRUE)))
  129. X        if (!(from = strdup (news_owner)))
  130. X            return;
  131. X
  132. X    reply_to = NULL;
  133. X
  134. X# ifndef    SEND_WORLD
  135. X    if (dist_is_world ()) {
  136. X        reply_to = from;
  137. X        if (! (from = strdup (news_owner))) {
  138. X            free (reply_to);
  139. X            return;
  140. X        }
  141. X    }
  142. X# endif        /* SEND_WORLD */
  143. X
  144. X    do_log ("Received Sendsys Control Message from %s\n", from);
  145. X    comment[0] = "Dear Sender!\n";
  146. X    comment[1] = "You requested our `sys'-file, it is appended to this message\n";
  147. X    comment[2] = "This `sys'-file is currently running on ";
  148. X    comment[3] = fhost;
  149. X    comment[4] = ".\n";
  150. X    comment[5] = "** Note: This `sys'-format isn't compatible to this of BNews or CNews, so\n",
  151. X    comment[6] = "         if you have have got some problems, be free and send a mail\n";
  152. X    comment[7] = "         to postmaster@";
  153. X    comment[8] = fhost;
  154. X    comment[9] = ".\n";
  155. X    if (tmp = get_header_line (H_PATH)) {
  156. X        comment[10] = "The Path to here is: '";
  157. X        comment[11] = get_path (tmp);
  158. X        comment[12] = "'.\n";
  159. X        comment[13] = NULL;
  160. X    } else
  161. X        comment[10] = NULL;
  162. X# ifndef    IN_MEMORY
  163. X    mail_to (from, reply_to, "Request of sys-file from site", fhost, SYS_FILE, comment);
  164. X# else        /* IN_MEMORY */
  165. X    if (ltmp = get_file (SYS_FILE)) {
  166. X        mail_to (from, reply_to, "Request of sys-file from site", fhost, ltmp, comment);
  167. X        free_list (ltmp);
  168. X    }
  169. X# endif        /* IN_MEMORY */
  170. X    free (from);
  171. X    if (reply_to)
  172. X        free (reply_to);
  173. X}
  174. __END__OF__THIS__FILE__
  175. if test -f 'INEWS/csuu.c' ; then
  176.   echo 'File INEWS/csuu.c already exists, overwriting it'
  177.   del 'INEWS/csuu.c'
  178. fi
  179. echo Extracting \"'INEWS/csuu.c'\"
  180. sed "s/^X//" >'INEWS/csuu.c' <<'__END__OF__THIS__FILE__'
  181. X/*
  182. X * $Log:    csuu.c_v $
  183. X * Revision 1.1  90/08/31  15:33:07  cs
  184. X * Initial revision
  185. X * 
  186. X */
  187. X# ifndef    LINT
  188. Xstatic char rcsid[] = "$Id: csuu.c_v 1.1 90/08/31 15:33:07 cs Exp $";
  189. X# endif        LINT
  190. X# include    "inews.h"
  191. X
  192. Xextern char    *strdup ();
  193. X
  194. Xvoid
  195. Xsenduuname ()
  196. X{
  197. X    char    *from, *reply_to;
  198. X    char    *comment[10];
  199. X    charc    *tmp;
  200. X# ifdef        IN_MEMORY
  201. X    list    *ltmp;
  202. X# endif        /* IN_MEMORY */
  203. X
  204. X    if (!(from = find_from_addr (TRUE)))
  205. X        if (!(from = strdup (news_owner)))
  206. X            return;
  207. X
  208. X    reply_to = NULL;
  209. X# ifndef    SEND_WORLD
  210. X    if (dist_is_world ()) {
  211. X        reply_to = from;
  212. X        if (! (from = strdup (news_owner))) {
  213. X            free (reply_to);
  214. X            return;
  215. X        }
  216. X    }
  217. X# endif        /* SEND_WORLD */
  218. X
  219. X    do_log ("Received Senduuname Control Message from %s\n", from);
  220. X    if (tmp = get_header_line (H_PATH)) {
  221. X        comment[0] = "The Path to here is: '";
  222. X        comment[1] = get_path (tmp);
  223. X        comment[2] = "'.\n";
  224. X        comment[3] = NULL;
  225. X    } else
  226. X        comment[0] = NULL;
  227. X# ifndef    IN_MEMORY
  228. X    mail_to (from, reply_to, "Request of uuname from site", fhost, UUNAME_FILE, comment);
  229. X# else        /* IN_MEMORY */
  230. X    if (ltmp = get_file (UUNAME_FILE)) {
  231. X        mail_to (from, reply_to, "Request of uuname from site", fhost, ltmp, comment);
  232. X        free_list (ltmp);
  233. X    }
  234. X# endif        /* IN_MEMORY */
  235. X    free (from);
  236. X    if (reply_to)
  237. X        free (reply_to);
  238. X}
  239. X
  240. __END__OF__THIS__FILE__
  241. if test -f 'INEWS/csver.c' ; then
  242.   echo 'File INEWS/csver.c already exists, overwriting it'
  243.   del 'INEWS/csver.c'
  244. fi
  245. echo Extracting \"'INEWS/csver.c'\"
  246. sed "s/^X//" >'INEWS/csver.c' <<'__END__OF__THIS__FILE__'
  247. X/*
  248. X * $Log:    csver.c_v $
  249. X * Revision 1.2  91/12/26  14:00:58  ud
  250. X * Added RCS-ID as part of the version control message
  251. X * 
  252. X * Revision 1.1  90/08/31  15:33:10  cs
  253. X * Initial revision
  254. X * 
  255. X */
  256. Xstatic char rcsid[] = "$Id: csver.c_v 1.2 91/12/26 14:00:58 ud Exp $";
  257. X
  258. X# include    "inews.h"
  259. X
  260. Xextern char    *strdup ();
  261. X
  262. Xvoid
  263. Xsendversion ()
  264. X{
  265. X    char    *from, *reply_to;
  266. X    char    buf[128];
  267. X    char    *comment[12];
  268. X    charc    *tmp;
  269. X
  270. X    if (!(from = find_from_addr (TRUE)))
  271. X        if (!(from = strdup (news_owner)))
  272. X            return;
  273. X
  274. X    reply_to = NULL;
  275. X# ifndef    SEND_WORLD
  276. X    if (dist_is_world ()) {
  277. X        reply_to = from;
  278. X        if (! (from = strdup (news_owner))) {
  279. X            free (reply_to);
  280. X            return;
  281. X        }
  282. X    }
  283. X# endif        /* SEND_WORLD */
  284. X
  285. X    do_log ("Received Sendversion Control Message from %s\n", from);
  286. X# ifndef    PATCHLEVEL
  287. X    sprintf (buf, VERSIONSTR, VERSION);
  288. X# else        PATCHLEVEL
  289. X    sprintf (buf, VERSIONSTR, VERSION, PATCHLEVEL);
  290. X# endif        PATCHLEVEL
  291. X    comment[0] = "Our current running version on '";
  292. X    comment[1] = fhost;
  293. X    comment[2] = "' is\n";
  294. X    comment[3] = buf;
  295. X    comment[4] = ".\n";
  296. X    comment[5] = "\tRCS: ";
  297. X    comment[6] = rcsid;
  298. X    comment[7] = "\n";
  299. X    if (tmp = get_header_line (H_PATH)) {
  300. X        comment[8] = "The Path to here is: '";
  301. X        comment[9] = get_path (tmp);
  302. X        comment[10] = "'.\n";
  303. X        comment[11] = NULL;
  304. X    } else
  305. X        comment[8] = NULL;
  306. X    mail_to (from, reply_to, "Current News-Version", buf, NULL, comment);
  307. X    free (from);
  308. X    if (reply_to)
  309. X        free (reply_to);
  310. X}
  311. __END__OF__THIS__FILE__
  312. if test -f 'INEWS/ctrl.c' ; then
  313.   echo 'File INEWS/ctrl.c already exists, overwriting it'
  314.   del 'INEWS/ctrl.c'
  315. fi
  316. echo Extracting \"'INEWS/ctrl.c'\"
  317. sed "s/^X//" >'INEWS/ctrl.c' <<'__END__OF__THIS__FILE__'
  318. X/*
  319. X * $Log:    ctrl.c_v $
  320. X * Revision 1.2  91/12/26  13:34:13  ud
  321. X * Tried to insert `sendme', but didn't work as expected
  322. X * 
  323. X * Revision 1.1  90/08/31  15:33:14  cs
  324. X * Initial revision
  325. X * 
  326. X */
  327. X# ifndef    LINT
  328. Xstatic char rcsid[] = "$Id: ctrl.c_v 1.2 91/12/26 13:34:13 ud Exp $";
  329. X# endif        LINT
  330. X# include    "inews.h"
  331. X
  332. Xextern char    *rindex ();
  333. Xextern char    *strdup ();
  334. X
  335. Xstatic void
  336. Xdo_control (msg)
  337. Xchar *msg;
  338. X{
  339. X    register int    t;
  340. X    char        *rmsg;
  341. X    charc        *tmp;
  342. X    char        *opts;
  343. X    char        *ptr;
  344. X
  345. X    if (!(rmsg = strdup (msg))) {
  346. X        do_log ("FATAL: Failed during Control-Message\n");
  347. X        do_exit (1);
  348. X    }
  349. X    opts = skipc (rmsg, '\0');
  350. X    for (t=0;ctrlcodes[t];++t)
  351. X        if (Strieql (ctrlcodes[t], rmsg))
  352. X            break;
  353. X    if (!ctrlcodes[t]) {
  354. X        do_log ("FATAL: Unknown Controlmessage: %s (%s) --> article\n", rmsg, opts);
  355. X        tmp = ngs;
  356. X        while (tmp) {
  357. X            if ((ptr = rindex (tmp->text, '.')) && (Strieql (ptr, CTRL_POSTFIX)))
  358. X                *ptr = '\0';
  359. X            tmp = tmp->next;
  360. X        }
  361. X        return;
  362. X    }
  363. X    do_log ("Received Control Message: %s\n", msg);
  364. X    if (!(isctrl = (charc *) malloc (sizeof (charc)))) {
  365. X        do_log ("FATAL: Can't alloc isctrl!\n");
  366. X        do_exit (1);
  367. X    }
  368. X    isctrl -> text = NULL;
  369. X    switch (t) {
  370. X        case CC_CANCEL:
  371. X        case CC_IHAVE:
  372. X        case CC_NEWGROUP:
  373. X        case CC_RMGROUP:
  374. X        case CC_SENDSYS:
  375. X        case CC_SENDUUNAME:
  376. X        case CC_VERSION:
  377. X        case CC_CHECKGROUPS:
  378. X            isctrl -> text = strdup (NG_CONTROL);
  379. X            break;
  380. X        case CC_SENDME:
  381. X            if (ngs)
  382. X                isctrl -> text = strdup (ngs -> text);
  383. X            else
  384. X                do_log ("No newsgroups: for sendme\n");
  385. X            break;
  386. X    }
  387. X
  388. X    if (! isctrl -> text)
  389. X        do_exit (1);
  390. X
  391. X    isctrl->next = NULL;
  392. X    if (!ngs) {
  393. X        if (!(ngs = (charc *) malloc (sizeof (charc)))) {
  394. X            do_log ("FATAL: Failed during Control-Message\n");
  395. X            do_exit (1);
  396. X        }
  397. X        if (!(ngs->text = strdup (NG_CONTROL))) {
  398. X            do_log ("FATAL: Failed during Control-Message\n");
  399. X            do_exit (1);
  400. X        }
  401. X        ngs->next = NULL;
  402. X    } else {
  403. X        tmp = ngs;
  404. X        while (tmp) {
  405. X            if ((ptr = rindex (tmp->text, '.')) && (Strieql (ptr, CTRL_POSTFIX)))
  406. X                *ptr = '\0';
  407. X            tmp = tmp->next;
  408. X        }
  409. X    }
  410. X    if (t != CC_CANCEL)
  411. X        if (!get_header_line (H_APPROVED)) {
  412. X            do_log ("No Approved: Line for %s found\n", rmsg);
  413. X            do_exit (1);
  414. X        }
  415. X    switch (t) {
  416. X        case CC_CANCEL:
  417. X            cancel_msg (opts);
  418. X            break;
  419. X        case CC_IHAVE:
  420. X            do_log ("Unsopported control-message: %s\n", rmsg);
  421. X            do_exit (0);
  422. X            break;
  423. X        case CC_SENDME:
  424. X            send_me ();
  425. X            break;
  426. X        case CC_NEWGROUP:
  427. X            newgroup (opts);
  428. X            break;
  429. X        case CC_RMGROUP:
  430. X            rmgroup (opts);
  431. X            break;
  432. X        case CC_SENDSYS:
  433. X            sendsys ();
  434. X            break;
  435. X        case CC_SENDUUNAME:
  436. X            senduuname ();
  437. X            break;
  438. X        case CC_VERSION:
  439. X            sendversion ();
  440. X            break;
  441. X        case CC_CHECKGROUPS:
  442. X            checkgroups ();
  443. X            break;
  444. X    }
  445. X}
  446. X
  447. Xvoid
  448. Xcheck_control ()
  449. X{
  450. X    register charc    *tmp;
  451. X    char        *ptr;
  452. X
  453. X    if (tmp = get_header_line (H_CONTROL))
  454. X        ptr = skip_field (tmp->text);
  455. X    else if (ngs) {
  456. X        tmp = ngs;
  457. X        while (tmp)
  458. X            if ((ptr = rindex (ngs->text, '.')) && (Strieql (ptr, CTRL_POSTFIX)))
  459. X                break;
  460. X            else
  461. X                tmp = tmp->next;
  462. X        ptr = NULL;
  463. X        if (tmp)
  464. X            if (tmp = get_header_line (H_SUBJECT))
  465. X                ptr = skip_field (tmp->text);
  466. X    } else
  467. X        ptr = NULL;
  468. X    if (ptr)
  469. X        do_control (ptr);
  470. X}
  471. __END__OF__THIS__FILE__
  472. if test -f 'INEWS/dbg.c' ; then
  473.   echo 'File INEWS/dbg.c already exists, overwriting it'
  474.   del 'INEWS/dbg.c'
  475. fi
  476. echo Extracting \"'INEWS/dbg.c'\"
  477. sed "s/^X//" >'INEWS/dbg.c' <<'__END__OF__THIS__FILE__'
  478. X/*
  479. X * $Log:    dbg.c_v $
  480. X * Revision 1.1  91/05/22  13:38:16  ud
  481. X * Initial revision
  482. X * 
  483. X * 
  484. X */
  485. X# ifndef    LINT
  486. Xstatic char rcsid[] = "$Id: dbg.c_v 1.1 91/05/22 13:38:16 ud Exp $";
  487. X# endif        LINT
  488. X# include    <stdio.h>
  489. X# include    "inews.h"
  490. X# include    "hist.h"
  491. X
  492. Xvoid
  493. Xdump_charc (e)
  494. Xregister charc *e;
  495. X{
  496. X    for (; e; e = e->next)
  497. X        printf ("text=\"%s\", nr=%d\n", e->text, e->nr);
  498. X}
  499. X
  500. Xvoid
  501. Xdump_sys (e)
  502. Xregister sys *e;
  503. X{
  504. X    register int    t;
  505. X
  506. X    for (; e; e = e->next) {
  507. X        printf ("site=\"%s\"\n", e->site);
  508. X        if (e->wsites)
  509. X            for (t = 0; e->wsites[t]; ++t)
  510. X                printf ("\twsites[%d]=\"%s\"\n", t, e->wsites[t]);
  511. X        printf ("\tfwd=%d\n", e->fwd);
  512. X        if (e->grps && e->inv) {
  513. X            printf ("\tinv");
  514. X            for (t = 0; e->grps[t]; ++t)
  515. X                printf (", [%d]=%s", t, e->inv[t] ? "true" : "false");
  516. X            printf ("\n");
  517. X        }
  518. X        if (e->dist)
  519. X            for (t = 0; e->dist[t]; ++t)
  520. X                printf ("\tdist[%d]=\"%s\"\n", t, e->dist[t]);
  521. X        if (e->cmd)
  522. X            printf ("\tcmd=\"%s\"\n", e->cmd);
  523. X    }
  524. X}
  525. X
  526. Xvoid
  527. Xdump_active (e)
  528. Xregister active *e;
  529. X{
  530. X    register int    t;
  531. X
  532. X    for (; e; e = e->next) {
  533. X        printf ("grp=\"%s\", flag=%d, low=%d, high=%d, pos=%d, changed= %d, aflag='%c%c' kblimit=%d\n",
  534. X            e->grp, e->flag, e->low, e->high, e->pos,
  535. X            e->changed, e->aflag[0], e->aflag[1],
  536. X            e -> kblimit);
  537. X        if (e->moderator && e->moderator[0])
  538. X            for (t = 0; e->moderator[t]; ++t)
  539. X                printf ("\tmoderator[%d]=\"%s\"\n", t, e->moderator[t]);
  540. X    }
  541. X}
  542. X
  543. Xvoid
  544. Xdump_archive (e)
  545. Xregister archive *e;
  546. X{
  547. X    for (; e; e = e->next)
  548. X        printf ("grp=\"%s\", len=%d, dest=\"%s\", prefix=\"%s\"\n",
  549. X            e->grp, e->len,
  550. X            e->dest ? e->dest : "(none)",
  551. X            e->prefix ? e->prefix : "(none)");
  552. X}
  553. __END__OF__THIS__FILE__
  554. if test -f 'INEWS/ddst.c' ; then
  555.   echo 'File INEWS/ddst.c already exists, overwriting it'
  556.   del 'INEWS/ddst.c'
  557. fi
  558. echo Extracting \"'INEWS/ddst.c'\"
  559. sed "s/^X//" >'INEWS/ddst.c' <<'__END__OF__THIS__FILE__'
  560. X/*
  561. X * $Log:    ddst.c_v $
  562. X * Revision 1.1  90/08/31  15:33:19  cs
  563. X * Initial revision
  564. X * 
  565. X */
  566. X# ifndef    LINT
  567. Xstatic char rcsid[] = "$Id: ddst.c_v 1.1 90/08/31 15:33:19 cs Exp $";
  568. X# endif        LINT
  569. X# include    <c8type.h>
  570. X# include    <modes.h>
  571. X# include    "inews.h"
  572. X
  573. Xextern char    *malloc ();
  574. X
  575. Xvoid
  576. Xmake_default_dists ()
  577. X{
  578. X    register char    *ptr;
  579. X    regexp        *reg;
  580. X    char        *buf;
  581. X    char        *grp;
  582. X    char        *dst;
  583. X    char        *cmt;
  584. X    int        fd, n;
  585. X    charc        *t1, *t2;
  586. X    charc        *tmp, *append;
  587. X
  588. X    if (!ngs)
  589. X        return;
  590. X    if ((fd = open (DIST_FILE, S_IREAD)) < 0)
  591. X        return;
  592. X    catlines = TRUE;
  593. X    while (buf = readbuf (fd, & n)) {
  594. X        if ((n < 2) || (buf[0] == '#'))
  595. X            continue;
  596. X        buf[n - 1] = '\0';
  597. X        grp = buf;
  598. X        dst = skipc (buf, '\0');
  599. X        cmt = skipc (dst, '\0');
  600. X        if (!(reg = regcomp (grp)))
  601. X            continue;
  602. X        ptr = grp;
  603. X        while (*ptr) {
  604. X            *ptr = to8lower (*ptr);
  605. X            ++ptr;
  606. X        }
  607. X        t1 = ngs;
  608. X        while (t1)
  609. X            if (regexec (reg, t1->text))
  610. X                break;
  611. X            else
  612. X                t1 = t1->next;
  613. X        free ((char *) reg);
  614. X        if (t1 && (tmp = split_fields (dst, TRUE))) {
  615. X            t2 = dists;
  616. X            while (t2) {
  617. X                t1 = tmp;
  618. X                while (t1) {
  619. X                    if (Streql (t2->text, t1->text))
  620. X                        t1->text[0] = '\0';
  621. X                    t1 = t1->next;
  622. X                }
  623. X                t2 = t2->next;
  624. X            }
  625. X            append = dists;
  626. X            if (append)
  627. X                while (append->next)
  628. X                    append = append->next;
  629. X            t1 = tmp;
  630. X            while (t1) {
  631. X                t2 = t1->next;
  632. X                if (t1->text[0] == '\0') {
  633. X                    free (t1->text);
  634. X                    free ((char *) t1);
  635. X                } else {
  636. X                    if (append)
  637. X                        append->next = t1;
  638. X                    else
  639. X                        dists = t1;
  640. X                    append = t1;
  641. X                    append->next = NULL;
  642. X                }
  643. X                t1 = t2;
  644. X            }
  645. X        }
  646. X    }
  647. X    catlines = FALSE;
  648. X    close (fd);
  649. X}
  650. __END__OF__THIS__FILE__
  651. if test -f 'INEWS/delh.c' ; then
  652.   echo 'File INEWS/delh.c already exists, overwriting it'
  653.   del 'INEWS/delh.c'
  654. fi
  655. echo Extracting \"'INEWS/delh.c'\"
  656. sed "s/^X//" >'INEWS/delh.c' <<'__END__OF__THIS__FILE__'
  657. X/*
  658. X * $Log:    delh.c_v $
  659. X * Revision 1.1  90/08/31  15:33:23  cs
  660. X * Initial revision
  661. X * 
  662. X */
  663. X# ifndef    LINT
  664. Xstatic char rcsid[] = "$Id: delh.c_v 1.1 90/08/31 15:33:23 cs Exp $";
  665. X# endif        LINT
  666. X# include    "inews.h"
  667. X
  668. Xvoid
  669. Xdelete_header (id)
  670. Xregister int id;
  671. X{
  672. X    register charc    *tmp, *t2;
  673. X
  674. X    if ((id < 0) || (id > HEADER_MAX))
  675. X        return;
  676. X    tmp = head;
  677. X    t2 = NULL;
  678. X    while (tmp)
  679. X        if (Strnieql (tmp->text, hlines[id] + 2, strlen (hlines[id] + 2))) {
  680. X                if (t2)
  681. X                    t2->next = tmp->next;
  682. X                else
  683. X                    head = head->next;
  684. X                free (tmp->text);
  685. X                free ((char *) tmp);
  686. X                tmp = head;
  687. X            } else {
  688. X                t2 = tmp;
  689. X                tmp = tmp->next;
  690. X            }
  691. X}
  692. X
  693. Xvoid
  694. Xdel_obsolete_header ()
  695. X{
  696. X    register int    t;
  697. X
  698. X    for (t=0;hlines[t];++t) {
  699. X        if (hlines[t][0] != '2')
  700. X            continue;
  701. X        delete_header (t);
  702. X    }
  703. X}
  704. X
  705. __END__OF__THIS__FILE__
  706. if test -f 'INEWS/exp.c' ; then
  707.   echo 'File INEWS/exp.c already exists, overwriting it'
  708.   del 'INEWS/exp.c'
  709. fi
  710. echo Extracting \"'INEWS/exp.c'\"
  711. sed "s/^X//" >'INEWS/exp.c' <<'__END__OF__THIS__FILE__'
  712. X/*
  713. X * $Log:    exp.c_v $
  714. X * Revision 1.5  91/05/22  13:27:47  ud
  715. X * Correct expire of a list of newsgroups (now working)
  716. X * Allows other inews' running while in expire (this isn't the best
  717. X * solution, but better than nothing: Every inews fails when locking
  718. X * for lck.inews and saves the articles in a seperate directory; after
  719. X * each file (in non ndbm mode) and at the end of expire, inews scans
  720. X * this directory and feed them to itself)
  721. X * 
  722. X * Revision 1.4  91/01/02  21:28:02  ud
  723. X * Added ndbm support for history
  724. X * 
  725. X * Revision 1.3  90/12/01  15:52:35  ud
  726. X * Cleaned up a bit; make expire compatible to ols news
  727. X * version
  728. X * 
  729. X * Revision 1.2  90/10/26  14:19:14  ud
  730. X * Added archive stuff; only working with expire and a given list
  731. X * of newsgourps to expire
  732. X * 
  733. X * Revision 1.1  90/08/31  15:33:26  cs
  734. X * Initial revision
  735. X * 
  736. X */
  737. X# ifndef    LINT
  738. Xstatic char rcsid[] = "$Id: exp.c_v 1.5 91/05/22 13:27:47 ud Exp $";
  739. X# endif        LINT
  740. X# include    <c8type.h>
  741. X# include    <time.h>
  742. X# include    <modes.h>
  743. X# include    <dir.h>
  744. X# include    "inews.h"
  745. X# include    "hist.h"
  746. X
  747. X/*
  748. X *    Important! This file must start
  749. X *    with a digit!
  750. X */
  751. X# define    EXP_TMP        "1_working_file"
  752. X
  753. X# define    DO_WRITE    (1<<0)
  754. X# define    DO_DELETE    (1<<1)
  755. X# define    DO_ARCHIVE    (1<<2)
  756. X
  757. Xextern char    *malloc ();
  758. Xextern char    *rindex ();
  759. Xextern char    *strdup ();
  760. X
  761. Xstatic int    deleted, checked, archived;
  762. Xstatic charc    *rngs;
  763. Xstatic archive    *arc, *tarc;
  764. X
  765. Xstatic void
  766. Xsetup_rngs ()
  767. X{
  768. X    register charc    *act, *cur;
  769. X    register active    *ta;
  770. X    charc        *tmp;
  771. X    register char    *p;
  772. X    int        isok;
  773. X
  774. X    if (!hact)
  775. X        if (read_active () < 0)
  776. X            do_exit (_errmsg (1, "Can't read active-file for expire\n"));
  777. X    for (act = ngs; act; act = act->next)
  778. X        act->nr = strlen (act->text);
  779. X    for (ta = hact; ta; ta = ta->next) {
  780. X        act = ngs;
  781. X        isok = FALSE;
  782. X        for (act = ngs; act; act = act->next)
  783. X            if (act->text[0] == '!') {
  784. X                if (_cmpnam (ta->grp, act->text + 1, act->nr - 1) == 0) {
  785. X                    act = NULL;
  786. X                    isok = FALSE;
  787. X                    break;
  788. X                }
  789. X            } else if (_cmpnam (ta->grp, act->text, act->nr) == 0)
  790. X                isok = TRUE;
  791. X        if (isok && (tmp = (charc *) malloc (sizeof (charc))))
  792. X            if (tmp->text = strdup (ta->grp)) {
  793. X                tmp->nr = 0;
  794. X                p = tmp->text;
  795. X                while (*p)
  796. X                    if (((!is8alnum (*p)) || (!is8ascii (*p))) && (*p != '.'))
  797. X                        *p++ = '_';
  798. X                    else
  799. X                        ++p;
  800. X                tmp->next = NULL;
  801. X                if (!rngs)
  802. X                    rngs = tmp;
  803. X                else
  804. X                    cur->next = tmp;
  805. X                cur = tmp;
  806. X            } else
  807. X                free ((char *) tmp);
  808. X    }
  809. X}
  810. X                
  811. Xstatic int
  812. Xto_expire (tima, timh, buf)
  813. Xtime_t tima, timh;
  814. Xchar *buf;
  815. X{
  816. X    register charc    *tmp;
  817. X    char        **ags;
  818. X    register int    t;
  819. X    char        *ptr, *sav;
  820. X    char        artstate;
  821. X    char        *lbuf;
  822. X    char        *gpn;
  823. X    int        status;
  824. X    int        exptim;
  825. X
  826. X    tarc = NULL;
  827. X    exptim = atoi (buf);
  828. X    if (tima < exptim)
  829. X        status = DO_WRITE;
  830. X    else
  831. X        status = DO_DELETE;
  832. X    if (timh < exptim)
  833. X        status |= DO_WRITE;
  834. X    if (!(ngs || arc))
  835. X        return (status);
  836. X    ptr = skipn (buf, '\0');
  837. X    ptr = skipn (ptr, '\0');
  838. X    artstate = *ptr;
  839. X    if (artstate == ART_EXPIRED)
  840. X        status &= (~DO_DELETE);
  841. X    sav = skipn (ptr, '\0');
  842. X
  843. X    if (!(lbuf = strdup (sav)))
  844. X        return (status & (~DO_DELETE));
  845. X    if (getargs (lbuf, &ags) < 0) {
  846. X        free (lbuf);
  847. X        return (status & (~DO_DELETE));
  848. X    }
  849. X    for (t=0;ags[t];++t) {
  850. X        if (!(gpn = strdup (ags[t]))) {
  851. X            status &= (~DO_DELETE);
  852. X            break;
  853. X        }
  854. X        if (ptr = rindex (gpn, '/')) {
  855. X            *ptr = '\0';
  856. X            ptr = gpn;
  857. X            while (*ptr)
  858. X                if (*ptr == '/')
  859. X                    *ptr++ = '.';
  860. X                else
  861. X                    ++ptr;
  862. X        }
  863. X        if (ngs) {
  864. X            tmp = rngs;
  865. X            while (tmp)
  866. X                if (_cmpnam (gpn, tmp->text, strlen (tmp->text)) == 0)
  867. X                    break;
  868. X                else
  869. X                    tmp = tmp->next;
  870. X            if (!tmp) {
  871. X                status &= (~DO_DELETE);
  872. X                if (artstate == ART_EXISTS)
  873. X                    status |= DO_WRITE;
  874. X            }
  875. X        }
  876. X        if (arc) {
  877. X            tarc = arc;
  878. X            while (tarc)
  879. X                if (_cmpnam (gpn, tarc->grp, tarc->len) == 0) {
  880. X                    status |= DO_ARCHIVE;
  881. X                    break;
  882. X                } else
  883. X                    tarc = tarc->next;
  884. X        }
  885. X        free (gpn);
  886. X    }
  887. X    free ((char *) ags);
  888. X    free (lbuf);
  889. X    if ((!(status & DO_DELETE)) && (status & DO_ARCHIVE))
  890. X        status &= (~DO_ARCHIVE);
  891. X    return (status);
  892. X}
  893. X
  894. Xstatic void
  895. Xexpire (fn, diffa, diffh, buf)
  896. Xchar *fn;
  897. Xint diffa, diffh;
  898. Xchar *buf;
  899. X{
  900. X    int    fdi, fdo;
  901. X    int    n;
  902. X    time_t    tima, timh;
  903. X    char    *ptr, *delnam;
  904. X    char    *sav;
  905. X    int    st;
  906. X
  907. X    time (&tima);
  908. X    timh = tima;
  909. X    tima -= diffa;
  910. X    timh -= diffh;
  911. X# ifndef    USE_NDBM
  912. X    if ((fdi = open (fn, S_IREAD)) < 0) {
  913. X        do_log ("Can't open %s while in expire\n", fn);
  914. X        return;
  915. X    }
  916. X    unlink (EXP_TMP);
  917. X    if ((fdo = create (EXP_TMP, S_IWRITE | S_ISIZE, 03, _gs_size (fdi))) < 0) {
  918. X        do_log ("Can't create %s in expire\n", EXP_TMP);
  919. X        close (fdi);
  920. X        return;
  921. X    }
  922. X    while (buf = readbuf (fdi, & n)) {            /* } */
  923. X        buf[n - 1] = '\0';
  924. X# else        /* USE_NDBM */
  925. X    for (key = dbm_firstkey (db); key.dptr; key = dbm_nextkey (db)) {
  926. X        dat = dbm_fetch (db, key);
  927. X        memcpy (&hist, dat.dptr, sizeof (history));
  928. X        sprintf (buf, "%d %s %c %s", 
  929. X            hist.tim,
  930. X            key.dptr,
  931. X            (char) hist.flag,
  932. X            hist.fns);
  933. X# endif        /* USE_NDBM */
  934. X        ++checked;
  935. X        st = to_expire (tima, timh, buf);
  936. X        if (st & DO_DELETE) {
  937. X# ifndef    USE_NDBM
  938. X            if (st & DO_WRITE)
  939. X                sav = strdup (buf);
  940. X            else
  941. X                sav = NULL;
  942. X# endif        /* USE_NDBM */
  943. X            ptr = skipc (buf, '\0');
  944. X            ptr = skipc (ptr, '\0');
  945. X            if (*ptr != ART_EXPIRED) {
  946. X                ptr = skipc (ptr, '\0');
  947. X                ++deleted;
  948. X                while (*ptr) {
  949. X                    delnam = ptr;
  950. X                    ptr = skipc (ptr, '\0');
  951. X                    if (tarc) {
  952. X                        ++archived;
  953. X                        do_archive (delnam, tarc);
  954. X                        tarc = NULL;
  955. X                    }
  956. X                    unlink_in_newsdir_file (delnam);
  957. X                }
  958. X            }
  959. X# ifndef    USE_NDBM
  960. X            if (sav) {
  961. X                strcpy (buf, sav);
  962. X                ptr = skipn (buf, '\0');
  963. X                ptr = skipn (ptr, '\0');
  964. X                *ptr = ART_EXPIRED;
  965. X                free (sav);
  966. X            } else
  967. X                st = 0;
  968. X# else        /* USE_NDBM */
  969. X            hist.flag = ART_EXPIRED;
  970. X# endif        /* USE_NDBM */
  971. X        }
  972. X# ifndef    USE_NDBM
  973. X        if (st & DO_WRITE) {
  974. X            buf[n - 1] = '\n';
  975. X            write (fdo, buf, n);
  976. X        }
  977. X# else        /* USE_NDBM */
  978. X        if (st & DO_WRITE) {
  979. X            fill_hist ();
  980. X            dbm_store (db, key, dat, DBM_REPLACE);
  981. X        } else
  982. X            dbm_delete (db, key);
  983. X# endif        /* USE_NDBM */
  984. X    }
  985. X# ifndef    USE_NDBM
  986. X    close (fdi);
  987. X    n = _gs_size (fdo);
  988. X    close (fdo);
  989. X    unlink (fn);
  990. X    if (n == 0)
  991. X        unlink (EXP_TMP);
  992. X    else
  993. X        rename (EXP_TMP, fn);
  994. X# endif        /* USE_NDBM */
  995. X}
  996. X
  997. Xvoid
  998. Xdo_expire (delart, delhist)
  999. Xchar *delart, *delhist;
  1000. X{
  1001. X# ifndef    USE_NDBM
  1002. X    charc        *etmp, *hexp, *e2;
  1003. X    DIR        *dp;
  1004. X    struct direct    *ent;
  1005. X    int        tout;
  1006. X# endif        /* USE_NDBM */
  1007. X    char        *buf;
  1008. X    int        diffart, diffhist;
  1009. X
  1010. X    if (!(buf = malloc (2048)))
  1011. X        do_exit (_errmsg (1, "Can't alloc memory\n"));
  1012. X    diffart = atoi (delart) * 24 * 60 * 60;
  1013. X    if (delhist)
  1014. X        diffhist = atoi (delhist) * 24 * 60 * 60;
  1015. X    else
  1016. X        diffhist = diffart;
  1017. X    checked = 0;
  1018. X    deleted = 0;
  1019. X    archived = 0;
  1020. X    rngs = NULL;
  1021. X    if (ngs) {
  1022. X        setup_rngs ();
  1023. X        if (!rngs)
  1024. X            return;
  1025. X    }
  1026. X    arc = setup_archive ();
  1027. X# ifndef    USE_NDBM
  1028. X    hexp = NULL;
  1029. X    e2 = NULL;
  1030. X    if (!(dp = opendir (HIST_DIR)))
  1031. X        do_exit (_errmsg (1, "Can't open %s\n", HIST_DIR));
  1032. X    while (ent = readdir (dp)) {
  1033. X        if (ent->d_name[0] == '.')
  1034. X            continue;
  1035. X
  1036. X        /*
  1037. X         *    No valid history file may start with
  1038. X         *    a digit! 
  1039. X         */
  1040. X        if (isdigit (ent->d_name[0]))
  1041. X            continue;
  1042. X
  1043. X        if (!(etmp = (charc *) malloc (sizeof (charc))))
  1044. X            do_exit (_errmsg (1, "Can't alloc during dir-reading\n"));
  1045. X        if (!(etmp->text = strdup (ent->d_name)))
  1046. X            do_exit (_errmsg (1, "Can't alloc during dir-reading\n"));
  1047. X        etmp->next = NULL;
  1048. X        if (!hexp)
  1049. X            hexp = etmp;
  1050. X        else
  1051. X            e2->next = etmp;
  1052. X        e2 = etmp;
  1053. X    }
  1054. X    closedir (dp);
  1055. X    if (chdir (HIST_DIR) < 0)
  1056. X        do_exit (_errmsg (1, "Can't chdir to %s\n", HIST_DIR));
  1057. X    etmp = hexp;
  1058. X    while (etmp) {
  1059. X        expire (etmp->text, diffart, diffhist, buf);
  1060. X        etmp = etmp->next;
  1061. X        nunlock ();
  1062. X        respool (FALSE);
  1063. X        while (tout-- > 100)
  1064. X            if (nlock () != -1)
  1065. X                break;
  1066. X        if (tout <= 0)
  1067. X            break;
  1068. X        else if ((chdir (newslib) < 0) || (chdir (HIST_DIR) < 0))
  1069. X            break;
  1070. X    }
  1071. X# else        /* USE_NDBM */
  1072. X    if (!(db = open_hist (S_IREAD | S_IWRITE)))
  1073. X        do_exit (_errmsg (1, "Can't open %s.\n", HISTORY));
  1074. X    expire (NULL, diffart, diffhist, buf);
  1075. X    dbm_close (db);
  1076. X# endif        /* USE_NDBM */
  1077. X    do_log ("Expire: %d articles checked, %d deleted, %d archived.\n", checked, deleted, archived);
  1078. X    if (rngs)
  1079. X        free_field (rngs);
  1080. X    free_archive (arc);
  1081. X    if (chdir (newslib) < 0)
  1082. X        do_exit (_errmsg (1, "Can't chdir to %s\n", newslib));
  1083. X}
  1084. __END__OF__THIS__FILE__
  1085. if test -f 'INEWS/ext.h' ; then
  1086.   echo 'File INEWS/ext.h already exists, overwriting it'
  1087.   del 'INEWS/ext.h'
  1088. fi
  1089. echo Extracting \"'INEWS/ext.h'\"
  1090. sed "s/^X//" >'INEWS/ext.h' <<'__END__OF__THIS__FILE__'
  1091. X/*
  1092. X * 
  1093. X * $Log:    ext.h_v $
  1094. X * Initial revision
  1095. X * Revision 1.1  90/08/31  15:33:31  cs
  1096. X */
  1097. Xextern void    cancel_msg ();
  1098. Xextern void    check_control ();
  1099. Xextern void    check_message_id ();
  1100. Xextern void    checkgroups ();
  1101. Xextern void    del_obsolete_header ();
  1102. Xextern void    delete_dup_charc ();
  1103. Xextern void    do_archive ();
  1104. Xextern void    do_control ();
  1105. Xextern void    do_exit ();
  1106. Xextern void    do_expire ();
  1107. Xextern void    do_log ();
  1108. Xextern void    free_archive ();
  1109. X# ifdef        IN_MEMORY
  1110. Xextern void    free_list ();
  1111. X# endif        /* IN_MEMORY */
  1112. X# ifdef        CANCEL_SEND_CONTROL
  1113. Xextern void    force_cancel ();
  1114. X# endif        /* CANCEL_SEND_CONTROL */
  1115. Xextern void    handle_special ();
  1116. Xextern void    mail_it ();
  1117. Xextern void    mail_to ();
  1118. Xextern void    make_fn ();
  1119. Xextern void    newgroup ();
  1120. Xextern void    parse_args ();
  1121. Xextern void    pipe_it ();
  1122. Xextern void    rebuild_active_file ();
  1123. Xextern void    rmgroup ();
  1124. Xextern void    sendsys ();
  1125. Xextern void    senduuname ();
  1126. Xextern void    sendversion ();
  1127. Xextern void    set_msgid ();
  1128. Xextern void    sort_active ();
  1129. Xextern void    special_header ();
  1130. Xextern void    test_systems ();
  1131. Xextern void    unlink_in_newsdir_dir ();
  1132. Xextern void    write_it ();
  1133. Xextern char    *catcharc ();
  1134. Xextern char    *create_fn ();
  1135. Xextern char    *exists_message_id ();
  1136. Xextern char    *extract_address ();
  1137. Xextern char    *find_address ();
  1138. Xextern char    *find_address_hl ();
  1139. Xextern char    *find_followup_to ();
  1140. Xextern char    *find_from ();
  1141. Xextern char    *find_from_addr ();
  1142. Xextern char    *get_msgid ();
  1143. Xextern char    *get_path ();
  1144. Xextern char    *get_realfilename ();
  1145. Xextern char    *input_line ();
  1146. X# ifdef        USE_NDBM
  1147. Xextern char    *lower_mid ();
  1148. X# endif        /* USE_NDBM */
  1149. Xextern char    *make_own_address ();
  1150. Xextern char    *make_realfilename ();
  1151. Xextern char    *ntime ();
  1152. Xextern char    *readbuf ();
  1153. Xextern char    *skipc ();
  1154. Xextern char    *skipn ();
  1155. Xextern char    *update_lists ();
  1156. Xextern char    do_command ();
  1157. Xextern char    extra_menu ();
  1158. X# ifdef        HASH_SEARCH
  1159. Xextern hash_t    calc_hash ();
  1160. Xextern active    *find_active ();
  1161. X# endif        /* HASH_SEARCH */
  1162. Xextern charc    *copy_field ();
  1163. Xextern charc    *get_header_line ();
  1164. Xextern charc    *get_limit_newsgroups ();
  1165. Xextern charc    *make_head ();
  1166. Xextern charc    *split_fields ();
  1167. Xextern archive    *setup_archive ();
  1168. X# ifdef        IN_MEMORY
  1169. Xextern list    *get_file ();
  1170. X# endif        /* IN_MEMORY */
  1171. __END__OF__THIS__FILE__
  1172. if test -f 'INEWS/fcan.c' ; then
  1173.   echo 'File INEWS/fcan.c already exists, overwriting it'
  1174.   del 'INEWS/fcan.c'
  1175. fi
  1176. echo Extracting \"'INEWS/fcan.c'\"
  1177. sed "s/^X//" >'INEWS/fcan.c' <<'__END__OF__THIS__FILE__'
  1178. X/*
  1179. X * $Log$
  1180. X * 
  1181. X */
  1182. X# ifndef    LINT
  1183. Xstatic char rcsid[] = "$Id$";
  1184. X# endif        LINT
  1185. X# include    <stdio.h>
  1186. X# include    <time.h>
  1187. X# include    "inews.h"
  1188. X
  1189. X# ifdef        CANCEL_SEND_CONTROL
  1190. Xextern char    *malloc ();
  1191. Xextern FILE    *xpopen ();
  1192. X
  1193. Xvoid
  1194. Xforce_cancel (msg)
  1195. Xchar *msg;
  1196. X{
  1197. X    charc    *tmp;
  1198. X    FILE    *pp;
  1199. X    int    t;
  1200. X    char    *ptr;
  1201. X    char    *buf;
  1202. X    char    *name;
  1203. X    time_t    tim;
  1204. X
  1205. X    block_forward = TRUE;
  1206. X    if (! (buf = malloc (512))) {
  1207. X        do_log ("FATAL: malloc in force_cancel()\n");
  1208. X        do_exit (0);
  1209. X    }
  1210. X    nunlock ();
  1211. X    if (! (pp = xpopen (INEWS, "w"))) {
  1212. X        free (buf);
  1213. X        do_exit (0);
  1214. X    }
  1215. X    for (t = 0; hlines[t]; ++t) {
  1216. X        ptr = buf;
  1217. X        switch (t) {
  1218. X            case H_PATH:
  1219. X                sprintf (buf, "%s %s",
  1220. X                    hlines[H_PATH] + 2, news_owner);
  1221. X                break;
  1222. X            case H_FROM:
  1223. X                if (! (name = find_from (FALSE)))
  1224. X                    name = news_owner;
  1225. X                sprintf (buf, "%s %s",
  1226. X                    hlines[H_FROM] + 2, name);
  1227. X                break;
  1228. X            case H_NEWSGROUPS:
  1229. X                if (tmp = get_header_line (H_NEWSGROUPS))
  1230. X                    sprintf (buf, "%s %s",
  1231. X                        hlines[H_NEWSGROUPS] + 2,
  1232. X                        skip_field (tmp -> text));
  1233. X                else
  1234. X                    ptr = NULL;
  1235. X                break;
  1236. X            case H_TO:
  1237. X                sprintf (buf, "%s Postmaster@%s",
  1238. X                    hlines[H_TO] + 2,
  1239. X                    fhost);
  1240. X                break;
  1241. X            case H_SUBJECT:
  1242. X            case H_CONTROL:
  1243. X                if (tmp = get_header_line (H_MESSAGE_ID))
  1244. X                    sprintf (buf, "%s %s %s",
  1245. X                        hlines[t] + 2,
  1246. X                        ctrlcodes[CC_CANCEL],
  1247. X                        skip_field (tmp -> text));
  1248. X                else
  1249. X                    ptr = NULL;
  1250. X                break;
  1251. X            case H_MESSAGE_ID:
  1252. X                if (tmp = get_header_line (H_MESSAGE_ID))
  1253. X                    sprintf (buf, "%s C%s",
  1254. X                        hlines[H_MESSAGE_ID] + 2,
  1255. X                        skip_field (tmp -> text));
  1256. X                else
  1257. X                    ptr = NULL;
  1258. X                break;
  1259. X            case H_DISTRIBUTION:
  1260. X                if (tmp = get_header_line (H_DISTRIBUTION))
  1261. X                    strcpy (buf, tmp -> text);
  1262. X                else
  1263. X                    ptr = NULL;
  1264. X                break;
  1265. X            case H_DATE:
  1266. X                time (&tim);
  1267. X                sprintf (buf, "%s %s",
  1268. X                    hlines[H_DATE] + 2,
  1269. X                    ntime (&tim));
  1270. X                break;
  1271. X            case H_ORGANIZATION:
  1272. X                sprintf (buf, "%s News-Cancel Service",
  1273. X                    hlines[H_ORGANIZATION] + 2);
  1274. X                break;
  1275. X            case H_APPROVED:
  1276. X                if (! (name = find_from (FALSE)))
  1277. X                    name = news_owner;
  1278. X                sprintf (buf, "%s %s",
  1279. X                    hlines[H_APPROVED] + 2,
  1280. X                    name);
  1281. X                break;
  1282. X            case H_LINES:
  1283. X                sprintf (buf, "%s 0",
  1284. X                    hlines[H_LINES] + 2);
  1285. X                break;
  1286. X            default:
  1287. X                ptr = NULL;
  1288. X                break;
  1289. X        }
  1290. X        if (ptr)
  1291. X            fprintf (pp, "%s\n", buf);
  1292. X    }
  1293. X    pclose (pp);
  1294. X    free (buf);
  1295. X    do_exit (0);
  1296. X}
  1297. X# endif        /* CANCEL_SEND_CONTROL */
  1298. X
  1299. __END__OF__THIS__FILE__
  1300. if test -f 'INEWS/ffrom.c' ; then
  1301.   echo 'File INEWS/ffrom.c already exists, overwriting it'
  1302.   del 'INEWS/ffrom.c'
  1303. fi
  1304. echo Extracting \"'INEWS/ffrom.c'\"
  1305. sed "s/^X//" >'INEWS/ffrom.c' <<'__END__OF__THIS__FILE__'
  1306. X/*
  1307. X * $Log:    ffrom.c_v $
  1308. X * Revision 1.1  90/08/31  15:33:35  cs
  1309. X * Initial revision
  1310. X * 
  1311. X */
  1312. X# ifndef    LINT
  1313. Xstatic char rcsid[] = "$Id: ffrom.c_v 1.1 90/08/31 15:33:35 cs Exp $";
  1314. X# endif        LINT
  1315. X# include    <c8type.h>
  1316. X# include    "inews.h"
  1317. X
  1318. Xextern char    *index ();
  1319. Xextern char    *malloc ();
  1320. X
  1321. Xchar *
  1322. Xfind_from (use_reply_first)
  1323. Xint use_reply_first;
  1324. X{
  1325. X    charc    *tmp;
  1326. X    char    *from;
  1327. X
  1328. X    if (use_reply_first) {
  1329. X        if (!(tmp = get_header_line (H_REPLY_TO)))
  1330. X            tmp = get_header_line (H_FROM);
  1331. X    } else
  1332. X        if (!(tmp = get_header_line (H_FROM)))
  1333. X            tmp = get_header_line (H_REPLY_TO);
  1334. X    if (!tmp)
  1335. X        if (!(tmp = get_header_line (H_SENDER)))
  1336. X            return (NULL);
  1337. X    from = skip_field (tmp->text);
  1338. X    return (from);
  1339. X}
  1340. X
  1341. Xchar *
  1342. Xextract_address (s)
  1343. Xchar *s;
  1344. X{
  1345. X    char        *ad;
  1346. X    char        *from;
  1347. X    register char    *p1, *p2;
  1348. X
  1349. X    if (!(ad = malloc (strlen (s) + 10)))
  1350. X        return (NULL);
  1351. X    p1 = skip_field (s);
  1352. X    if (*p1 == '(') {
  1353. X        while (*p1 && (*p1 != ')'))
  1354. X            ++p1;
  1355. X        if (*p1)
  1356. X            ++p1;
  1357. X        while (is8space (*p1))
  1358. X            ++p1;
  1359. X    }
  1360. X    if (!*p1) {
  1361. X        free (ad);
  1362. X        return (NULL);
  1363. X    }
  1364. X    p2 = ad;
  1365. X    from = p1;
  1366. X    if (p1 = index (from, '<')) {
  1367. X        ++p1;
  1368. X        while (*p1 && (*p1 != '>'))
  1369. X            *p2++ = *p1++;
  1370. X    } else {
  1371. X        p1 = from;
  1372. X        while (*p1 && (!is8space (*p1)))
  1373. X            *p2++ = *p1++;
  1374. X    }
  1375. X    *p2 = '\0';
  1376. X    return (ad);
  1377. X}
  1378. X
  1379. Xchar *
  1380. Xfind_address_hl (id)
  1381. Xint id;
  1382. X{
  1383. X    charc    *tmp;
  1384. X    char    *ad;
  1385. X
  1386. X    if (!(tmp = get_header_line (id)))
  1387. X        return (NULL);
  1388. X    ad = extract_address (tmp->text);
  1389. X    return (ad);
  1390. X}
  1391. X
  1392. Xchar *
  1393. Xfind_address ()
  1394. X{
  1395. X    char        *ad;
  1396. X
  1397. X    if (!(ad = find_address_hl (H_FROM)))
  1398. X        ad = find_address_hl (H_SENDER);
  1399. X    return (ad);
  1400. X}
  1401. X
  1402. Xchar *
  1403. Xfind_from_addr (use_reply_first)
  1404. Xint use_reply_first;
  1405. X{
  1406. X    charc    *tmp;
  1407. X    char    *from;
  1408. X
  1409. X    if (use_reply_first) {
  1410. X        if (!(tmp = get_header_line (H_REPLY_TO)))
  1411. X            tmp = get_header_line (H_FROM);
  1412. X    } else
  1413. X        if (!(tmp = get_header_line (H_FROM)))
  1414. X            tmp = get_header_line (H_REPLY_TO);
  1415. X    if (!tmp)
  1416. X        if (!(tmp = get_header_line (H_SENDER)))
  1417. X            return (NULL);
  1418. X    return (extract_address (tmp->text));
  1419. X}
  1420. X
  1421. X
  1422. __END__OF__THIS__FILE__
  1423. if test -f 'INEWS/ffup.c' ; then
  1424.   echo 'File INEWS/ffup.c already exists, overwriting it'
  1425.   del 'INEWS/ffup.c'
  1426. fi
  1427. echo Extracting \"'INEWS/ffup.c'\"
  1428. sed "s/^X//" >'INEWS/ffup.c' <<'__END__OF__THIS__FILE__'
  1429. X/*
  1430. X * $Log:    ffup.c_v $
  1431. X * Revision 1.1  91/02/03  15:35:12  ud
  1432. X * Initial revision
  1433. X * 
  1434. X */
  1435. X# ifndef    LINT
  1436. Xstatic char rcsid[] = "$Id: ffup.c_v 1.1 91/02/03 15:35:12 ud Exp $";
  1437. X# endif        LINT
  1438. X# include    <modes.h>
  1439. X# include    "inews.h"
  1440. X
  1441. Xextern char    *malloc ();
  1442. Xextern char    *strdup ();
  1443. X
  1444. Xchar *
  1445. Xfind_followup_to (list)
  1446. Xcharc *list;
  1447. X{
  1448. X    char        *buf;
  1449. X    int        fd;
  1450. X    int        n;
  1451. X    char        *fup;
  1452. X    char        *res;
  1453. X    charc        *fhead, *tmp, *cur;
  1454. X    register charc    *srch;
  1455. X
  1456. X    if ((fd = open (FOLLOW_FILE, S_IREAD)) < 0)
  1457. X        return (NULL);
  1458. X    if (!(list = copy_field (list))) {
  1459. X        close (fd);
  1460. X        return (NULL);
  1461. X    }
  1462. X    for (srch = list; srch; srch = srch->next)
  1463. X        srch->nr = strlen (srch->text);
  1464. X    fhead = NULL;
  1465. X    cur = NULL;
  1466. X    catlines = TRUE;
  1467. X    while (buf = readbuf (fd, & n)) {
  1468. X        buf[n - 1] = '\0';
  1469. X        if ((buf[0] == '#') || (n == 1))
  1470. X            continue;
  1471. X        fup = skipc (buf, '\0');
  1472. X        if (!(*fup && *buf))
  1473. X            continue;
  1474. X        for (srch = list; srch; srch = srch->next)
  1475. X            if (srch->text[0] && (_cmpnam (buf, srch->text, srch->nr) != -1))
  1476. X                break;
  1477. X        if (srch) {
  1478. X            if (tmp = (charc *) malloc (sizeof (charc)))
  1479. X                if (tmp->text = strdup (fup)) {
  1480. X                    tmp->next = NULL;
  1481. X                    if (!cur)
  1482. X                        fhead = tmp;
  1483. X                    else
  1484. X                        cur->next = tmp;
  1485. X                    cur = tmp;
  1486. X                } else
  1487. X                    free ((char *) tmp);
  1488. X            srch->text[0] = '\0';
  1489. X        }
  1490. X    }
  1491. X    catlines = FALSE;
  1492. X    close (fd);
  1493. X    if (fhead) {
  1494. X        for (cur = fhead; cur->next; cur = cur->next)
  1495. X            ;
  1496. X        for (tmp = list; tmp;) {
  1497. X            srch = tmp;
  1498. X            tmp = tmp->next;
  1499. X            if (srch->text[0]) {
  1500. X                cur->next = srch;
  1501. X                srch->next = NULL;
  1502. X                cur = srch;
  1503. X            } else {
  1504. X                free (srch->text);
  1505. X                free ((char *) srch);
  1506. X            }
  1507. X        }
  1508. X        delete_dup_charc (fhead);
  1509. X        res = catcharc (fhead, ",");
  1510. X        free_field (fhead);
  1511. X    } else
  1512. X        res = NULL;
  1513. X    return (res);
  1514. X}
  1515. __END__OF__THIS__FILE__
  1516. if test -f 'INEWS/getd.c' ; then
  1517.   echo 'File INEWS/getd.c already exists, overwriting it'
  1518.   del 'INEWS/getd.c'
  1519. fi
  1520. echo Extracting \"'INEWS/getd.c'\"
  1521. sed "s/^X//" >'INEWS/getd.c' <<'__END__OF__THIS__FILE__'
  1522. X/*
  1523. X * $Log:    getd.c_v $
  1524. X * Revision 1.1  90/08/31  15:33:39  cs
  1525. X * Initial revision
  1526. X * 
  1527. X */
  1528. X# ifndef    LINT
  1529. Xstatic char rcsid[] = "$Id: getd.c_v 1.1 90/08/31 15:33:39 cs Exp $";
  1530. X# endif        LINT
  1531. X# include    <modes.h>
  1532. X# include    "inews.h"
  1533. X
  1534. Xextern char    *malloc ();
  1535. X
  1536. Xvoid
  1537. Xget_dists_and_ngs (fn)
  1538. Xchar *fn;
  1539. X{
  1540. X    char    *buf;
  1541. X    char    *tmp;
  1542. X    int    n;
  1543. X    int    fd;
  1544. X
  1545. X    if (dists && ngs)
  1546. X        return;
  1547. X    if (!(buf = malloc (512)))
  1548. X        return;
  1549. X    strcpy (buf, newsdir);
  1550. X    strcat (buf, "/");
  1551. X    strcat (buf, fn);
  1552. X    if ((fd = open (buf, S_IREAD)) < 0) {
  1553. X        free (buf);
  1554. X        return;
  1555. X    }
  1556. X    while ((n = readln (fd, buf, 500)) > 1) {
  1557. X        buf[n - 1] = '\0';
  1558. X        if ((!dists) && (Strnieql (buf, hlines[H_DISTRIBUTION] + 2, strlen (hlines[H_DISTRIBUTION] + 2)))) {
  1559. X            tmp = skip_field (buf);
  1560. X            dists = split_fields (tmp, TRUE);
  1561. X            if (dists && ngs)
  1562. X                break;
  1563. X        } else if ((!ngs) && (Strnieql (buf, hlines[H_NEWSGROUPS] + 2, strlen (hlines[H_NEWSGROUPS] + 2)))) {
  1564. X            tmp = skip_field (buf);
  1565. X            ngs = split_fields (tmp, TRUE);
  1566. X            if (dists && ngs)
  1567. X                break;
  1568. X        }
  1569. X    }
  1570. X    close (fd);
  1571. X    free (buf);
  1572. X}
  1573. __END__OF__THIS__FILE__
  1574. if test -f 'INEWS/gfh.c' ; then
  1575.   echo 'File INEWS/gfh.c already exists, overwriting it'
  1576.   del 'INEWS/gfh.c'
  1577. fi
  1578. echo Extracting \"'INEWS/gfh.c'\"
  1579. sed "s/^X//" >'INEWS/gfh.c' <<'__END__OF__THIS__FILE__'
  1580. X/*
  1581. X *    Extra sourcefile for this function, because it should be
  1582. X *    easiely changeable (should be moved to os9lib.l)
  1583. X */
  1584. X# ifdef        NEED_GETFULLHOSTNAME
  1585. Xchar *
  1586. Xgetfullhostname (buf, len)
  1587. Xchar *buf;
  1588. Xint len;
  1589. X{
  1590. X    return (info_str ("fullhost", buf, len - 1));
  1591. X}
  1592. X# endif        /* NEED_GETFULLHOSTNAME */
  1593. __END__OF__THIS__FILE__
  1594. if test -f 'INEWS/ghead.c' ; then
  1595.   echo 'File INEWS/ghead.c already exists, overwriting it'
  1596.   del 'INEWS/ghead.c'
  1597. fi
  1598. echo Extracting \"'INEWS/ghead.c'\"
  1599. sed "s/^X//" >'INEWS/ghead.c' <<'__END__OF__THIS__FILE__'
  1600. X/*
  1601. X * $Log:    ghead.c_v $
  1602. X * Revision 1.1  90/08/31  15:33:43  cs
  1603. X * Initial revision
  1604. X * 
  1605. X */
  1606. X# ifndef    LINT
  1607. Xstatic char rcsid[] = "$Id: ghead.c_v 1.1 90/08/31 15:33:43 cs Exp $";
  1608. X# endif        LINT
  1609. X# include    "inews.h"
  1610. X
  1611. Xcharc *
  1612. Xget_header_line (id)
  1613. Xregister int id;
  1614. X{
  1615. X    register charc    *tmp;
  1616. X
  1617. X    if ((id < 0) || (id > HEADER_MAX))
  1618. X        return (NULL);
  1619. X    tmp = head;
  1620. X    while (tmp)
  1621. X        if (Strnieql (tmp->text, hlines[id] + 2, strlen (hlines[id] + 2)))
  1622. X            break;
  1623. X        else
  1624. X            tmp = tmp->next;
  1625. X    return (tmp);
  1626. X}
  1627. X
  1628. X
  1629. __END__OF__THIS__FILE__
  1630. if test -f 'INEWS/hact' ; then
  1631.   echo 'File INEWS/hact already exists, overwriting it'
  1632.   del 'INEWS/hact'
  1633. fi
  1634. echo Extracting \"'INEWS/hact'\"
  1635. sed "s/^X//" >'INEWS/hact' <<'__END__OF__THIS__FILE__'
  1636. Xachk.c
  1637. Xwact.c
  1638. Xcnew.c
  1639. Xbuild.c
  1640. Xract.c
  1641. Xapp.c
  1642. Xsinfo.c
  1643. Xexp.c
  1644. Xcchk.c
  1645. Xcrm.c
  1646. __END__OF__THIS__FILE__
  1647. if test -f 'INEWS/hash.c' ; then
  1648.   echo 'File INEWS/hash.c already exists, overwriting it'
  1649.   del 'INEWS/hash.c'
  1650. fi
  1651. echo Extracting \"'INEWS/hash.c'\"
  1652. sed "s/^X//" >'INEWS/hash.c' <<'__END__OF__THIS__FILE__'
  1653. X/*
  1654. X * $Log$
  1655. X *
  1656. X */
  1657. X# ifndef    LINT
  1658. Xstatic char rcsid[] = "$Id$";
  1659. X# endif        LINT
  1660. X# include    "inews.h"
  1661. X# ifdef        HASH_SEARCH
  1662. X
  1663. Xactive *
  1664. Xfind_active (grp)
  1665. Xregister char *grp;
  1666. X{
  1667. X    register hash_t    id;
  1668. X    register active    *run;
  1669. X
  1670. X    id = calc_hash (grp, TRUE);
  1671. X    run = hashact[id % HASH_ACTIVE];
  1672. X    while (run)
  1673. X        if ((run -> id == id) && Strieql (grp, run -> grp))
  1674. X            return (run);
  1675. X        else
  1676. X            run = run -> hnext;
  1677. X    return (NULL);
  1678. X}
  1679. X# endif        /* HASH_SEARCH */
  1680. __END__OF__THIS__FILE__
  1681. if test -f 'INEWS/hist.h' ; then
  1682.   echo 'File INEWS/hist.h already exists, overwriting it'
  1683.   del 'INEWS/hist.h'
  1684. fi
  1685. echo Extracting \"'INEWS/hist.h'\"
  1686. sed "s/^X//" >'INEWS/hist.h' <<'__END__OF__THIS__FILE__'
  1687. X/*
  1688. X * $Log:    hist.h_v $
  1689. X * Revision 1.1  91/01/02  21:33:07  ud
  1690. X * Initial revision
  1691. X * 
  1692. X */
  1693. X/*
  1694. X *    Flags in history file
  1695. X */
  1696. X# define    ART_EXISTS    '1'
  1697. X# define    ART_EXPIRED    '0'
  1698. X
  1699. X# ifndef    USE_NDBM
  1700. X# define    HIST_FILE    "HISTORY/history.%04d"
  1701. X# define    HIST_DIR    "HISTORY"
  1702. X
  1703. X/*
  1704. X *    The maximum value for the hash-algorithm
  1705. X *    should be a prim-number
  1706. X *    This is equal to the number of creating
  1707. X *    history-files
  1708. X *    Possible values are: 19, 23, 29, 37, 43, 59, 73, 97
  1709. X *    and a lot of others (these are only some suggenstions!)
  1710. X */
  1711. X# define    HIST_MAXIMUM    37
  1712. X
  1713. X# else        /* USE_NDBM */
  1714. X
  1715. X# include    <ndbm.h>
  1716. X
  1717. X# ifndef    CLK_TCK
  1718. X# include    <time.h>
  1719. X# endif        /* CLK_TCK */
  1720. X
  1721. X# define    HISTORY        "HistoryDBM"
  1722. X
  1723. Xtypedef struct _history {
  1724. X    time_t    tim;
  1725. X    int    flag;
  1726. X    char    fns[1024];
  1727. X} history;
  1728. X
  1729. Xextern DBM    *open_hist ();
  1730. X
  1731. XEXTERN datum    key, dat;
  1732. XEXTERN history    *hptr, hist;
  1733. XEXTERN DBM    *db;
  1734. X# endif        /* USE_NDBM */
  1735. __END__OF__THIS__FILE__
  1736. if test -f 'INEWS/ihead.c' ; then
  1737.   echo 'File INEWS/ihead.c already exists, overwriting it'
  1738.   del 'INEWS/ihead.c'
  1739. fi
  1740. echo Extracting \"'INEWS/ihead.c'\"
  1741. sed "s/^X//" >'INEWS/ihead.c' <<'__END__OF__THIS__FILE__'
  1742. X/*
  1743. X * $Log:    ihead.c_v $
  1744. X * Revision 1.1  90/08/31  15:33:46  cs
  1745. X * Initial revision
  1746. X * 
  1747. X */
  1748. X# ifndef    LINT
  1749. Xstatic char rcsid[] = "$Id: ihead.c_v 1.1 90/08/31 15:33:46 cs Exp $";
  1750. X# endif        LINT
  1751. X# include    "inews.h"
  1752. X
  1753. Xextern char    *malloc ();
  1754. X
  1755. Xint
  1756. Xinsert_header (id, s, replace_it)
  1757. Xint id;
  1758. Xchar *s;
  1759. Xint replace_it;
  1760. X{
  1761. X    char        *buf;
  1762. X    charc        *tmp;
  1763. X    register charc    *t2;
  1764. X
  1765. X    if ((id < 0) || (id > HEADER_MAX))
  1766. X        return (-1);
  1767. X    if (!(buf = malloc (strlen (hlines[id] + 2) + strlen (s) + 6)))
  1768. X        return (-1);
  1769. X    strcpy (buf, hlines[id] + 2);
  1770. X    strcat (buf, " ");
  1771. X    strcat (buf, s);
  1772. X    if (tmp = get_header_line (id)) {
  1773. X        if (replace_it) {
  1774. X            free (tmp->text);
  1775. X            tmp->text = buf;
  1776. X        } else
  1777. X            free (buf);
  1778. X    } else {
  1779. X        if (!(tmp = (charc *) malloc (sizeof (charc)))) {
  1780. X            free (buf);
  1781. X            return (-1);
  1782. X        }
  1783. X        tmp->text = buf;
  1784. X        tmp->next = NULL;
  1785. X        if (!head)
  1786. X            head = tmp;
  1787. X        else {
  1788. X            t2 = head;
  1789. X            while (t2->next)
  1790. X                    t2 = t2->next;
  1791. X            t2->next = tmp;
  1792. X        }
  1793. X    }
  1794. X    return (0);
  1795. X}
  1796. __END__OF__THIS__FILE__
  1797. if test -f 'INEWS/inews.c' ; then
  1798.   echo 'File INEWS/inews.c already exists, overwriting it'
  1799.   del 'INEWS/inews.c'
  1800. fi
  1801. echo Extracting \"'INEWS/inews.c'\"
  1802. sed "s/^X//" >'INEWS/inews.c' <<'__END__OF__THIS__FILE__'
  1803. X/*
  1804. X * $Log:    inews.c_v $
  1805. X * Revision 1.3  91/12/26  13:41:06  ud
  1806. X * insert a new locking mechanism with events; not yet tested
  1807. X * 
  1808. X * Revision 1.2  91/05/22  13:20:01  ud
  1809. X * Added storing of articles in a seperate sub directory if lck.inews
  1810. X * can't be locked
  1811. X * 
  1812. X * Revision 1.1  90/08/31  15:33:49  cs
  1813. X * Initial revision
  1814. X * 
  1815. X */
  1816. X# ifndef    LINT
  1817. Xstatic char rcsid[] = "$Id: inews.c_v 1.3 91/12/26 13:41:06 ud Exp $";
  1818. Xstatic char copyright[] = "Copyright (C) 1989, 1990 by Ulrich Dessauer, Germering, Germany.\n";
  1819. X# endif        LINT
  1820. X# include    <signal.h>
  1821. X# define    EXTERN
  1822. X# include    "inews.h"
  1823. X# include    "hist.h"
  1824. X# ifdef        EVENT_LOCK
  1825. X# include    "lock.h"
  1826. X# endif        /* EVENT_LOCK */
  1827. X
  1828. Xint
  1829. Xhandler (sig)
  1830. Xint sig;
  1831. X{
  1832. X    switch (sig) {
  1833. X        case SIGHUP:
  1834. X            break;
  1835. X# ifdef        EVENT_LOCK
  1836. X        case SIGALRM:
  1837. X            _got_alarm = TRUE;
  1838. X            break;
  1839. X# endif        /* EVENT_LOCK */
  1840. X        default:
  1841. X# ifdef        EVENT_LOCK
  1842. X            do_unlock ("*");
  1843. X# endif        /* EVENT_LOCK */
  1844. X            exit (sig);
  1845. X            break;
  1846. X    }
  1847. X}
  1848. X
  1849. Xint
  1850. Xmain (argc, argv)
  1851. Xint argc;
  1852. Xchar *argv[];
  1853. X{
  1854. X    int    n;
  1855. X
  1856. X    zero_out ();
  1857. X    parse_args (argc, argv);
  1858. X    intercept (handler);
  1859. X    if ((n = do_init (TRUE)) < 0) {
  1860. X        if ((n != -2) || (do_store () < 0)) {
  1861. X            do_log ("Failed in do_init()\n");
  1862. X            do_exit (1);
  1863. X        }
  1864. X        do_exit (0);
  1865. X    }
  1866. X    if (read_active () < 0) {
  1867. X        do_log ("Failed in read_active()\n");
  1868. X        do_exit (1);
  1869. X    }
  1870. X    if (read_sys () < 0) {
  1871. X        do_log ("Failed in read_sys()\n");
  1872. X        do_exit (1);
  1873. X    }
  1874. X    if (read_header (0) < 0) {
  1875. X        do_log ("Failed in read_header()\n");
  1876. X        do_exit (1);
  1877. X    }
  1878. X    if (check_active () < 0) {
  1879. X        do_log ("Failed in check_active()\n");
  1880. X        do_exit (1);
  1881. X    }
  1882. X    if (write_groups () < 0) {
  1883. X        do_log ("Failed in write_groups()\n");
  1884. X        do_exit (1);
  1885. X    }
  1886. X    if (process_sys () < 0) {
  1887. X        do_log ("Failed in process_sys()\n");
  1888. X        do_exit (1);
  1889. X    }
  1890. X    if (restore_active () < 0) {
  1891. X        do_log ("Failed in restore_active()\n");
  1892. X        do_exit (1);
  1893. X    }
  1894. X    do_exit (0);
  1895. X}
  1896. __END__OF__THIS__FILE__
  1897. if test -f 'INEWS/inews.h' ; then
  1898.   echo 'File INEWS/inews.h already exists, overwriting it'
  1899.   del 'INEWS/inews.h'
  1900. fi
  1901. echo Extracting \"'INEWS/inews.h'\"
  1902. sed "s/^X//" >'INEWS/inews.h' <<'__END__OF__THIS__FILE__'
  1903. X/*
  1904. X * $Log:    inews.h_v $
  1905. X * Revision 1.4  91/05/22  13:33:16  ud
  1906. X * Added defines for Newsgroups file, Temp.file
  1907. X * Added define for Supersedes: field
  1908. X * 
  1909. X * Revision 1.3  91/01/02  21:29:38  ud
  1910. X * Removed the defines for history management and put them in a own
  1911. X * include file, hist.h
  1912. X * 
  1913. X * Revision 1.2  90/12/01  15:40:13  ud
  1914. X * Added struct for archiving news
  1915. X * Changed history relevant entries for hashing
  1916. X * 
  1917. X * Revision 1.1  90/08/31  15:34:00  cs
  1918. X * Initial revision
  1919. X * 
  1920. X */
  1921. X/*
  1922. X *    Format of the sys-file
  1923. X *    <site>{/sites(,sites)}{>fflag(s)}:<groups>:<dist>{:<cmd>}
  1924. X *    <site>   ::= the name of the site to forward this news
  1925. X *                   (check against member in the Path: field)
  1926. X *      <sites>  ::= this optional list of sites are to be not part of
  1927. X *                   the Path: otherwise they are not forwarded
  1928. X *    <fflags> ::= Flags to be prefixed to the filename in the file
  1929. X *                   in the batchdirectory
  1930. X *      <groups> ::= A list of to be send newsgroups for this site
  1931. X *    <dist>   ::= List of distributions for this site, !dist is
  1932. X *                   allowed to disable a distributin
  1933. X *      <cmd>    ::= Command to be executed, if not default is used
  1934. X *                   (default is storing all filenames in a file with
  1935. X *                   the filename equal to the sitename in a batch-
  1936. X *                   directory)
  1937. X */
  1938. X/*
  1939. X *    Format of the history-file:
  1940. X *    <number> <msg-id> <flag> <filename> {<filename>}
  1941. X *    number   ::= return value of time()
  1942. X *    msg-id   ::= the messageid of that article
  1943. X *      flag     ::= "0" | "1" ; "1" it article still exists, "0" if only
  1944. X *                   to be checked as duplicate articels
  1945. X *    filename ::= filename of article and all "pseudo"-links
  1946. X */
  1947. X/*
  1948. X *    Format of the active-file:
  1949. X *    <grp>:<low> <high> <aflag>{ <moderator>}
  1950. X *    <grp>       ::= The name of the group
  1951. X *    <low>       ::= the low mark (the number of the oldest article)
  1952. X *      <high>      ::= the high mark (the newest article on the system)
  1953. X *      <aflag>      ::= Moderatorflag (n = not mod., y = is mod.) or ignore
  1954. X *      <moderator> ::= The Name of the Moderators
  1955. X */
  1956. X/*
  1957. X *    Format of the .newsrc File:
  1958. X *      <flag><grp>:<low>:<high>:{<unread>}
  1959. X *      <flag>      ::= the group is unsubscribed
  1960. X *      <grp>       ::= the name of the group
  1961. X *      <low>       ::= All articles lower than this are obsolete (incl. this)
  1962. X *    <high>      ::= All articles higher than this are new
  1963. X *      <unread>    ::= A list of unread articles in this group
  1964. X */
  1965. X/*
  1966. X *    Format of the Distributions File:
  1967. X *    <group> <dist>{,<dist>} [<comment>]
  1968. X *    <group>     ::= A regular expression for the desired group
  1969. X *    <dist>      ::= A default distribution on this group
  1970. X *      <comment>   ::= A comment describing this newsgroup (opt.)
  1971. X */
  1972. X/*
  1973. X *    Format of Archive FIle:
  1974. X *    <group> <directory> {<prefix>}
  1975. X *    <group>     ::= The newsgroup to be archived (wildcard allowed)
  1976. X *      <directory> ::= A valid absolute path to a directory where to this
  1977. X *            gorup should be archived
  1978. X *    <prefix>    ::= Optional prefix to be placed before the unique
  1979. X *            number in the destination directory
  1980. X */
  1981. X# include    <regexp.h> 
  1982. X# include    "news.h"
  1983. X# include    "patchlevel.h"
  1984. X
  1985. X/*
  1986. X *    Some standard defienes
  1987. X */
  1988. X# ifndef    NULL
  1989. X# define    NULL        0
  1990. X# endif        NULL
  1991. X
  1992. X/*
  1993. X *    Current version
  1994. X */
  1995. X# define    VERSION        "1.03"
  1996. X# ifndef    PATCHLEVEL
  1997. X# define    VERSIONSTR    "MNews (minimal News system for OSK) V %s"
  1998. X# else        PATCHLEVEL
  1999. X# define    VERSIONSTR    "MNews (minimal News system for OSK) V %s (PL %d)"
  2000. X# endif        PATCHLEVEL
  2001. X
  2002. X/*
  2003. X *    Default directories
  2004. X */
  2005. X# define    NEWS_BATCH    MNEWS_BATCHDIR
  2006. X# define    NEWS_DIR    MNEWS_NEWSDIR
  2007. X# define    NEWS_LIB    MNEWS_NEWSLIB
  2008. X# define    NEWS_TSPOOL    MNEWS_TSPOOLDIR
  2009. X
  2010. X/*
  2011. X *    Some Filenames
  2012. X */
  2013. X# define    ACTIVE_FILE    "Active"
  2014. X# define    ACT_BAK_FILE    "Active.bak"
  2015. X# define    SYS_FILE    "Sys"
  2016. X# define    DIST_FILE    "Distributions"
  2017. X# define    CHK_FILE    "Checkgroups"
  2018. X# define    ALIAS_FILE    "Aliases"
  2019. X# define    LOG_FILE    "logfile"
  2020. X# define    UUNAME_FILE    "send_uuname"
  2021. X# define    ARCHIVE_FILE    "Archive"
  2022. X# define    FOLLOW_FILE    "Followup"
  2023. X
  2024. X# define    NEWSGROUPS_FILE    "Newsgroups"
  2025. X
  2026. X# define    TEMP_FILE    "$$$temp_file$$$"
  2027. X
  2028. X# define    EDITOR        "me"
  2029. X
  2030. X/*
  2031. X *    Access mode for the path for makdir()
  2032. X */
  2033. X# define    ACCESS_PATH    3
  2034. X
  2035. X/*
  2036. X *    Lock entry, only one program should run which changes
  2037. X *    files relating to inews
  2038. X */
  2039. X# define    NEWS_LOCK    "lck.inews"
  2040. X
  2041. X/*
  2042. X *    this specifies the time how long to wait for a lock
  2043. X *    -1 means wait forever, 0 means don't wait and every
  2044. X *    positiv number is the wait value in seconds
  2045. X */
  2046. X# define    LOCK_TIMEOUT    6
  2047. X
  2048. X/*
  2049. X *    Flags in the Active file (Types of moderation, ignore ng. etc.)
  2050. X */
  2051. X# define    M_NOT_MOD    'n'
  2052. X# define    M_MOD        'y'
  2053. X# define    M_IGNORE    'i'
  2054. X# define    M_USE        'u'
  2055. X# define    M_READONLY    'r'
  2056. X
  2057. X/*
  2058. X *    Some special Newsgroups & Distribution & etc.
  2059. X */
  2060. X# define    NG_JUNK        "junk"
  2061. X# define    NG_CONTROL    "control"
  2062. X
  2063. X# define    DST_LOCAL    "local"
  2064. X# define    DST_WORLD    "world"
  2065. X
  2066. X# define    CTRL_POSTFIX    ".ctl"
  2067. X
  2068. X/*
  2069. X *    Lines in header
  2070. X */
  2071. X# define    H_PATH        0
  2072. X# define    H_FROM        1
  2073. X# define    H_REPLY_TO    2
  2074. X# define    H_NEWSGROUPS    3
  2075. X# define    H_TO        4
  2076. X# define    H_CC        5
  2077. X# define    H_SUBJECT    6
  2078. X# define    H_FOLLOWUP_TO    7
  2079. X# define    H_MESSAGE_ID    8
  2080. X# define    H_DISTRIBUTION    9
  2081. X# define    H_DATE        10
  2082. X# define    H_SENDER    11
  2083. X# define    H_REFERENCES    12
  2084. X# define    H_ORGANIZATION    13
  2085. X# define    H_KEYWORDS    14
  2086. X# define    H_SUMMARY    15
  2087. X# define    H_EXPIRES    16
  2088. X# define    H_SUPERSEDES    17
  2089. X# define    H_CONTROL    18
  2090. X# define    H_APPROVED    19
  2091. X# define    H_LINES        20
  2092. X# define    H_XREF        21
  2093. X# define    H_POSTED    22
  2094. X
  2095. X# define    HEADER_MAX    22
  2096. X
  2097. X# define    S_PATH        0
  2098. X# define    S_NEWSGROUPS    1
  2099. X# define    S_TO        2
  2100. X# define    S_SUBJECT    3
  2101. X# define    S_FOLLOWUP_TO    4
  2102. X# define    S_MESSAGE_ID    5
  2103. X# define    S_DISTRIBUTION    6
  2104. X# define    S_REFERENCES    7
  2105. X# define    S_SUPERSEDES    8
  2106. X
  2107. X# define    SPECIAL_MAX    8
  2108. X
  2109. X/*
  2110. X *    Possible Control Messages
  2111. X */
  2112. X# define    CC_CANCEL    0
  2113. X# define    CC_IHAVE    1
  2114. X# define    CC_SENDME    2
  2115. X# define    CC_NEWGROUP    3
  2116. X# define    CC_RMGROUP    4
  2117. X# define    CC_SENDSYS    5
  2118. X# define    CC_SENDUUNAME    6
  2119. X# define    CC_VERSION    7
  2120. X# define    CC_CHECKGROUPS    8
  2121. X
  2122. X/*
  2123. X *    Possible modes for the user-interface
  2124. X */
  2125. X# define    M_NONE        0
  2126. X# define    M_READ        1
  2127. X# define    M_WRITE        2
  2128. X# define    M_MAIL        3
  2129. X
  2130. X/*
  2131. X *    Some macros...
  2132. X */
  2133. X# define    Write(s)        writeln(1,s,strlen(s))
  2134. X# define    skip_field(s)        skipn ((s), ':')
  2135. X# define    is_part_of_hostname(c)    ((c) && (is8alnum (c) || index ("-+._", (c))))
  2136. X
  2137. X/*
  2138. X *    This keeps the header
  2139. X */
  2140. Xtypedef struct _charc {
  2141. X    char    *text;        /* any kind of text            */
  2142. X    int    nr;        /* Number, e.g. Filename for NG        */
  2143. X    struct _charc    *next;
  2144. X} charc;
  2145. X
  2146. X/*
  2147. X *    This hold every line of the sys-File
  2148. X */
  2149. Xtypedef struct _sys {
  2150. X    char    *site;        /* Destination site            */
  2151. X    char    **wsites;    /* don't forward news with this sitenames
  2152. X                   in the Path:                */
  2153. X    char    *fflags;    /* flags for the batchfile        */
  2154. X    int    fwd;        /* if this article should go to sys    */
  2155. X    regexp    **grps;        /* The desired group in reg.exp.    */
  2156. X    int    *inv;        /* if the matching ng should NOT xmit    */
  2157. X    char    **dist;        /* The distributions for this site    */
  2158. X    char    *cmd;        /* the command to pipe to for this site    */
  2159. X    struct _sys    *next;
  2160. X} sys;
  2161. X
  2162. X/*
  2163. X *    The active File
  2164. X */
  2165. Xtypedef struct _active {
  2166. X    char    *grp;        /* group name                */
  2167. X    int    flag;        /* flag for checkgroups etc.        */
  2168. X    int    low;        /* the lowest current number        */
  2169. X    int    high;        /* the highest current number        */
  2170. X    int    pos;        /* position of low/high in file        */
  2171. X    int    changed;    /* if this entry had been changed    */
  2172. X    char    aflag[10];    /* active flag, moderated or ignore    */
  2173. X    int    kblimit;    /* maximum size of an article to be for-
  2174. X                   warded                */
  2175. X    char    **moderator;    /* the name(s) (accounts  of the 
  2176. X                   moderators                */
  2177. X# ifdef        HASH_SEARCH
  2178. X    hash_t    id;        /* the hashed version of the groupname    */
  2179. X    struct _active    *hnext;    /* next entry in the hashline        */
  2180. X# endif        /* HASH_SEARCH */
  2181. X    struct _active    *next;
  2182. X} active;
  2183. X
  2184. X/*
  2185. X *    To manage archive during expire
  2186. X */
  2187. Xtypedef struct _archive {
  2188. X    char    *grp;        /* the name of the group as a wildcard    */
  2189. X    int    len;        /* strlen (archive->grp)        */
  2190. X    char    *dest;        /* the destination directiory        */
  2191. X    char    *prefix;    /* if there should be a prefix in the
  2192. X                   destination filename            */
  2193. X    struct _archive    *next;
  2194. X} archive;
  2195. X
  2196. X/*
  2197. X *    This structure is used to keep track of groups in the
  2198. X *    Newsgroupsfile and not to delete old groups, if they
  2199. X *    are not in the new checkgroups message
  2200. X */
  2201. Xtypedef struct _cgroup {
  2202. X    char    *group;        /* name of the group            */
  2203. X    char    seperate;    /* the seperate character between
  2204. X                   group and comment (mostly space or
  2205. X                   tab)                    */
  2206. X    char    *comment;    /* comment to the gorup            */
  2207. X    struct _cgroup
  2208. X        *next;
  2209. X}    cgroup;
  2210. X
  2211. X# include    "ext.h"
  2212. X
  2213. X# ifndef    EXTERN
  2214. X# define    EXTERN        extern
  2215. Xextern char    *hlines[];
  2216. Xextern char    *slines[];
  2217. Xextern char    *ctrlcodes[];
  2218. X# else        EXTERN
  2219. Xchar    *hlines[] = {
  2220. X    /* first character is 0, 1 or 2, 0 if the line must be present in
  2221. X       the header, 1 if this line may be there 2 if it have to be deleted */
  2222. X    "0 Path:",
  2223. X    "0 From:",
  2224. X    "1 Reply-To:",
  2225. X    "0 Newsgroups:",
  2226. X    "2 To:",
  2227. X    "2 Cc:",
  2228. X    "0 Subject:",
  2229. X    "1 Followup-To:",
  2230. X    "0 Message-ID:",
  2231. X    "1 Distribution:",
  2232. X    "0 Date:",
  2233. X    "1 Sender:",
  2234. X    "1 References:",
  2235. X    "1 Organization:",
  2236. X    "1 Keywords:",
  2237. X    "1 Summary:",
  2238. X    "1 Expires:",
  2239. X    "1 Supersedes:",
  2240. X    "1 Control:",
  2241. X    "1 Approved:",
  2242. X    "0 Lines:",
  2243. X    "2 Xref:",
  2244. X    "1 Posted:",
  2245. X    NULL
  2246. X};
  2247. X
  2248. Xchar    *slines[] = {
  2249. X    "Path:",
  2250. X    "Newsgroups:",
  2251. X    "To:",
  2252. X    "Subject:",
  2253. X    "Followup-To:",
  2254. X    "Message-Id:",
  2255. X    "Distribution:",
  2256. X    "References:",
  2257. X    "Supersedes:",
  2258. X    NULL
  2259. X};
  2260. X
  2261. Xchar    *ctrlcodes[] = {
  2262. X    "cancel",
  2263. X    "ihave",
  2264. X    "sendme",
  2265. X    "newgroup",
  2266. X    "rmgroup",
  2267. X    "sendsys",
  2268. X    "senduuname",
  2269. X    "version",
  2270. X    "checkgroups",
  2271. X    NULL
  2272. X};
  2273. X# endif        EXTERN
  2274. X
  2275. XEXTERN charc    *ngs;        /* the newsgroups of this article    */
  2276. XEXTERN charc    *dists;        /* the distribuitons of this article    */
  2277. XEXTERN charc    *head;        /* the headerlines            */
  2278. XEXTERN sys    *hsys;        /* the sys-file entries            */
  2279. XEXTERN active    *hact;        /* the active file            */
  2280. X# ifdef        HASH_SEARCH
  2281. XEXTERN active    **hashact;    /* the hashtable for the active file    */
  2282. X# endif        /* HASH_SEARCH */
  2283. XEXTERN int    act_rewrite;    /* active file needs complete written    */
  2284. X
  2285. XEXTERN int    artsize;    /* the size of the article        */
  2286. X
  2287. XEXTERN int    block_forward;    /* if forwarding of this article should
  2288. X                   be blocked                */
  2289. X
  2290. XEXTERN charc    *recv;        /* list of receiver for mailing        */
  2291. X
  2292. XEXTERN char    *hostname;    /* The hostname of this system        */
  2293. XEXTERN char    *fhost;        /* Fullhostname (including domain)    */
  2294. XEXTERN char    *news_owner;    /* the owner of the newssystem        */
  2295. X
  2296. XEXTERN char    *batchdir;    /* Directory where batchfiles lives    */
  2297. XEXTERN char    *newsdir;    /* Directory for the news themselves    */
  2298. XEXTERN char    *newslib;    /* Directory for the news files        */
  2299. XEXTERN char    *newstspool;    /* Directory for temp.spooled files    */
  2300. X
  2301. XEXTERN int    crthd;        /* create missing header lines        */
  2302. XEXTERN int    doconv;        /* if a character translation should
  2303. X                   take place                */
  2304. XEXTERN int    ins_dist;    /* If the automatic determination of
  2305. X                   the distributions (if none present)
  2306. X                   should switched on w/o crthd        */
  2307. X
  2308. X# ifndef    IN_MEMORY
  2309. XEXTERN char    newstmp[40 + sizeof (TEMPDIR)];
  2310. X                /* The temp.filename of the body    */
  2311. X# else        /* IN_MEMORY */
  2312. XEXTERN list    *newstmp;    /* the body in memory            */
  2313. X# endif        /* IN_MEMORY */
  2314. X
  2315. XEXTERN charc    *isctrl;    /* if this is a Ctrl-Msg        */
  2316. XEXTERN int    lines;        /* lines in the message            */
  2317. XEXTERN char    *realfile;    /* the filename of the real article    */
  2318. XEXTERN int    catlines;    /* if TRUE, readin cats lines finished
  2319. X                   with a backslash with the next line    */
  2320. XEXTERN int    conv_it;    /* if TRUE, readin converts a character
  2321. X                   set it possible/neccessary        */
  2322. XEXTERN int    isadm;        /* if caller is news.admin        */
  2323. XEXTERN int    verbose;    /* if log messages should appear on scr    */
  2324. XEXTERN char    *user;        /* the name of the user            */
  2325. XEXTERN char    *home;        /* the homedirectory of current user    */
  2326. X
  2327. XEXTERN void    (*local_term) ();
  2328. X                /* if a subsystem of the newssystem
  2329. X                   needs it own cleanup            */
  2330. __END__OF__THIS__FILE__
  2331. exit 0
  2332. : end of shell archive
  2333.  
  2334. -- 
  2335. Frank Kaefer # fkk@stasys.sta.sub.org # Starnberg, Germany
  2336.