home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / tin / part09 < prev    next >
Encoding:
Text File  |  1992-03-27  |  50.4 KB  |  1,970 lines
  1. Newsgroups: comp.sources.misc
  2. From: iain%anl433.uucp@germany.eu.net (Iain J. Lea)
  3. Subject:  v29i027:  tin - threaded full screen newsreader v1.1P1, Part09/12
  4. Message-ID: <1992Mar27.033839.3550@sparky.imd.sterling.com>
  5. X-Md4-Signature: 791eb2775cad270dee932193a6b1bd43
  6. Date: Fri, 27 Mar 1992 03:38:39 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: iain%anl433.uucp@germany.eu.net (Iain J. Lea)
  10. Posting-number: Volume 29, Issue 27
  11. Archive-name: tin/part09
  12. Environment: BSD, SCO, ISC, SUNOS, SYSVR3, SYSVR4, ULTRIX, XENIX
  13. Supersedes: tin: Volume 28, Issue 45-55
  14.  
  15. #!/bin/sh
  16. # this is tin.shar.09 (part 9 of tin1.1)
  17. # do not concatenate these parts, unpack them in order with /bin/sh
  18. # file prompt.c continued
  19. #
  20. if test ! -r _shar_seq_.tmp; then
  21.     echo 'Please unpack part 1 first!'
  22.     exit 1
  23. fi
  24. (read Scheck
  25.  if test "$Scheck" != 9; then
  26.     echo Please unpack part "$Scheck" next!
  27.     exit 1
  28.  else
  29.     exit 0
  30.  fi
  31. ) < _shar_seq_.tmp || exit 1
  32. if test ! -f _shar_wnt_.tmp; then
  33.     echo 'x - still skipping prompt.c'
  34. else
  35. echo 'x - continuing file prompt.c'
  36. sed 's/^X//' << 'SHAR_EOF' >> 'prompt.c' &&
  37. X        alarm (time_remaining);
  38. X        return FALSE;
  39. X    }
  40. X    strcpy (var, p);
  41. X
  42. X    alarm (time_remaining);
  43. X    
  44. X    return TRUE;
  45. }
  46. X
  47. X
  48. int prompt_yn (line, prompt, default_ch)
  49. X    int line;
  50. X    char *prompt;
  51. X    char default_ch;
  52. {
  53. X    char ch;
  54. X    int time_remaining;
  55. X    
  56. X    time_remaining = alarm (0);
  57. X
  58. X    MoveCursor (line, 0);
  59. X    CleartoEOLN ();
  60. X    printf ("%s%c", prompt, default_ch);
  61. X    fflush (stdout);
  62. X    MoveCursor (line, (int) strlen (prompt));
  63. X
  64. X    if ((ch = (char) ReadCh()) == CR) {
  65. X        ch = default_ch;
  66. X    }    
  67. X
  68. X    if (line == LINES) {
  69. X        clear_message();
  70. X    } else {
  71. X        MoveCursor (line, (int) strlen (prompt));
  72. X        if (ch == ESC) {
  73. X            printf ("%c", default_ch);
  74. X        } else {
  75. X            printf ("%c", ch);
  76. X        }
  77. X        fflush (stdout);
  78. X    }
  79. X
  80. X    alarm (time_remaining);
  81. X
  82. X    return (ch == 'y' ? TRUE : FALSE);
  83. }
  84. X
  85. X
  86. void prompt_on_off (row, col, var, help_text, prompt_text)
  87. X    int row;
  88. X    int col;
  89. X    int *var;
  90. X    char *help_text;
  91. X    char *prompt_text;
  92. {
  93. X    int ch, var_orig;
  94. X    int time_remaining;
  95. X    
  96. X    time_remaining = alarm (0);
  97. X
  98. X    var_orig = *var;
  99. X
  100. X    show_menu_help (help_text);
  101. X    do {
  102. X        MoveCursor (row, col + (int) strlen (prompt_text));
  103. X        if ((ch = (char) ReadCh ()) == ' ') {
  104. X            *var = !*var;
  105. X            printf ("%s", (*var ? "ON " : "OFF"));
  106. X            fflush (stdout);
  107. X        }
  108. X    } while (ch != CR && ch != ESC);
  109. X
  110. X    if (ch == ESC) {
  111. X        *var = var_orig;
  112. X        printf ("%s", (*var ? "ON " : "OFF"));
  113. X        fflush (stdout);
  114. X    }
  115. X
  116. X    alarm (time_remaining);
  117. }
  118. X
  119. X
  120. void continue_prompt ()
  121. {
  122. X    char ch;
  123. X    int time_remaining;
  124. X    
  125. X    time_remaining = alarm (0);
  126. X    
  127. X    info_message (txt_hit_any_key);
  128. X    ch = (char) ReadCh ();
  129. X
  130. X    alarm (time_remaining);
  131. }
  132. X
  133. X
  134. SHAR_EOF
  135. echo 'File prompt.c is complete' &&
  136. chmod 0600 prompt.c ||
  137. echo 'restore of prompt.c failed'
  138. Wc_c="`wc -c < 'prompt.c'`"
  139. test 3318 -eq "$Wc_c" ||
  140.     echo 'prompt.c: original size 3318, current size' "$Wc_c"
  141. rm -f _shar_wnt_.tmp
  142. fi
  143. # ============= rcfile.c ==============
  144. if test -f 'rcfile.c' -a X"$1" != X"-c"; then
  145.     echo 'x - skipping rcfile.c (File already exists)'
  146.     rm -f _shar_wnt_.tmp
  147. else
  148. > _shar_wnt_.tmp
  149. echo 'x - extracting rcfile.c (Text)'
  150. sed 's/^X//' << 'SHAR_EOF' > 'rcfile.c' &&
  151. /*
  152. X *  Project   : tin - a threaded Netnews reader
  153. X *  Module    : rcfile.c
  154. X *  Author    : I.Lea
  155. X *  Created   : 01-04-91
  156. X *  Updated   : 13-03-92
  157. X *  Notes     :
  158. X *  Copyright : (c) Copyright 1991-92 by Iain Lea
  159. X *              You may  freely  copy or  redistribute  this software,
  160. X *              so  long as there is no profit made from its use, sale
  161. X *              trade or  reproduction.  You may not change this copy-
  162. X *              right notice, and it must be included in any copy made
  163. X */
  164. X
  165. #include    "tin.h"
  166. X
  167. extern char index_file[LEN];
  168. extern int index_point;
  169. X
  170. static int COL1;
  171. static int COL2;
  172. static int COL3;
  173. X
  174. /*
  175. X *  read_rcfile - read defaults from ~/.tin/tinrc
  176. X */
  177. X
  178. int read_rcfile ()
  179. {
  180. X    char buf[LEN];
  181. X    FILE *fp;
  182. X
  183. X    if ((fp = fopen (rcfile, "r")) != NULL) {
  184. X        while (fgets (buf, sizeof buf, fp) != NULL) {
  185. X            if (buf[0] != '#') { 
  186. X                if (strncmp (buf, "save_archive=", 13) == 0) {
  187. X                    save_archive_name = (strncmp (&buf[13], "ON", 2) == 0 ? TRUE : FALSE);
  188. X                } else if (strncmp (buf, "save_separate=", 14) == 0) {
  189. X                    save_separate = (strncmp (&buf[14], "ON", 2) == 0 ? TRUE : FALSE);
  190. X                } else if (strncmp (buf, "mark_saved_read=", 16) == 0) {
  191. X                    mark_saved_read = (strncmp (&buf[16], "ON", 2) == 0 ? TRUE : FALSE);
  192. X                } else if (strncmp (buf, "kill_articles=", 14) == 0) {
  193. X                    kill_articles = (strncmp (&buf[14], "ON", 2) == 0 ? TRUE : FALSE);
  194. X                } else if (strncmp (buf, "draw_arrow=", 11) == 0) {
  195. X                    draw_arrow_mark = (strncmp (&buf[11], "ON", 2) == 0 ? TRUE : FALSE);
  196. X                    if (draw_arrow_mark == FALSE && inverse_okay == FALSE) {
  197. X                        inverse_okay = TRUE;
  198. X                    }
  199. X                } else if (strncmp (buf, "print_header=", 13) == 0) {
  200. X                    print_header = (strncmp (&buf[13], "ON", 2) == 0 ? TRUE : FALSE);
  201. X                } else if (strncmp (buf, "pos_first_unread=", 17) == 0) {
  202. X                    pos_first_unread = (strncmp (&buf[17], "ON", 2) == 0 ? TRUE : FALSE);
  203. X                } else if (strncmp (buf, "full_page_scroll=", 17) == 0) {
  204. X                    full_page_scroll = (strncmp (&buf[17], "ON", 2) == 0 ? TRUE : FALSE);
  205. X                } else if (strncmp (buf, "catchup_read_groups=", 20) == 0) {
  206. X                    catchup_read_groups = (strncmp (&buf[20], "ON", 2) == 0 ? TRUE : FALSE);
  207. X                } else if (strncmp (buf, "thread_articles=", 16) == 0) {
  208. X                    thread_arts = (strncmp (&buf[16], "ON", 2) == 0 ? TRUE : FALSE);
  209. X                } else if (strncmp (buf, "unlink_article=", 15) == 0) {
  210. X                    unlink_article = (strncmp (&buf[15], "ON", 2) == 0 ? TRUE : FALSE);
  211. X                } else if (strncmp (buf, "show_only_unread=", 17) == 0) {
  212. X                    show_only_unread = (strncmp (&buf[17], "ON", 2) == 0 ? TRUE : FALSE);
  213. X                } else if (strncmp (buf, "show_author=", 12) == 0) {
  214. X                    default_show_author = atoi (&buf[12]);
  215. X                } else if (strncmp (buf, "post_process_type=", 18) == 0) {
  216. X                    post_proc_type = atoi (&buf[18]);
  217. X                    switch (post_proc_type) {
  218. X                        case POST_PROC_NONE:
  219. X                            proc_ch_default = 'n';
  220. X                            break;
  221. X                        case POST_PROC_SHAR:
  222. X                            proc_ch_default = 's';
  223. X                            break;
  224. X                        case POST_PROC_UUDECODE:
  225. X                            proc_ch_default = 'u';
  226. X                            break;
  227. X                        case POST_PROC_UUD_LST_ZOO:
  228. X                            proc_ch_default = 'U';
  229. X                            break;
  230. X                        case POST_PROC_UUD_EXT_ZOO:
  231. X                            proc_ch_default = 'U';
  232. X                            break;
  233. X                    }
  234. X                } else if (strncmp (buf, "sort_article_type=", 18) == 0) {
  235. X                    sort_art_type = atoi (&buf[18]);
  236. X                } else if (strncmp (buf, "savedir=", 8) == 0) {
  237. X                    strncpy (savedir, &buf[8], LEN);
  238. X                    savedir[strlen (savedir) - 1] = '\0';
  239. X                    if (savedir[0] == '.' && strlen (savedir) == 1) {
  240. #if defined(BSD) && ! defined(sinix)
  241. X                        getwd (buf);    
  242. #else
  243. X                        getcwd (buf, LEN);
  244. #endif
  245. X                        my_strncpy (savedir, buf, LEN);
  246. X                    }
  247. X                } else if (strncmp (buf, "maildir=", 8) == 0) {
  248. X                    strncpy (maildir, &buf[8], LEN);
  249. X                    maildir[strlen (maildir) - 1] = '\0';
  250. X                } else if (strncmp (buf, "printer=", 8) == 0) {
  251. X                    strncpy (printer, &buf[8], LEN);
  252. X                    printer[strlen (printer) - 1] = '\0';
  253. X                } else if (strncmp (buf, "spooldir=", 9) == 0) {
  254. X                    strncpy (spooldir, &buf[9], LEN);
  255. X                    spooldir[strlen (spooldir) - 1] = '\0';
  256. X                } else if (strncmp (buf, "signature=", 10) == 0) {
  257. X                    strncpy (signature, &buf[10], LEN);
  258. X                    signature[strlen (signature) - 1] = '\0';
  259. X                } else if (strncmp (buf, "sig=", 4) == 0) {
  260. X                    strncpy (sig, &buf[4], LEN);
  261. X                    sig[strlen (sig) - 1] = '\0';
  262. X                }
  263. X            }
  264. X        }
  265. X        fclose (fp);
  266. X        return TRUE;        
  267. X    }
  268. X    return FALSE;        
  269. }
  270. X
  271. /*
  272. X *  write_rcfile - write defaults to ~/.tin/tinrc
  273. X */
  274. X
  275. void write_rcfile ()
  276. {
  277. X    FILE *fp;
  278. X
  279. X    set_real_uid_gid ();
  280. X    
  281. X    if ((fp = fopen (rcfile, "w")) != NULL) {
  282. X        if (! cmd_line) {
  283. X            wait_message (txt_saving);
  284. X        }
  285. X        fprintf (fp, "# if ON articles/threads with Archive-name: in mail header will\n");
  286. X        fprintf (fp, "# be automatically saved with the Archive-name & part/patch no.\n");
  287. X        fprintf (fp, "save_archive=%s\n\n", (save_archive_name ? "ON" : "OFF"));
  288. X        fprintf (fp, "# if ON articles of a threads will be saved to separate files\n");
  289. X        fprintf (fp, "# otherwise the whole thread will be saved to one file\n");
  290. X        fprintf (fp, "save_separate=%s\n\n", (save_separate ? "ON" : "OFF"));
  291. X        fprintf (fp, "# if ON mark articles that are saved as read\n");
  292. X        fprintf (fp, "mark_saved_read=%s\n\n", (mark_saved_read ? "ON" : "OFF"));
  293. X        fprintf (fp, "# if ON use -> otherwise highlighted bar for selection\n");
  294. X        fprintf (fp, "draw_arrow=%s\n\n", (draw_arrow_mark ? "ON" : "OFF"));
  295. X        fprintf (fp, "# if ON kill articles that match kill file\n");
  296. X        fprintf (fp, "kill_articles=%s\n\n", (kill_articles ? "ON" : "OFF"));
  297. X        fprintf (fp, "# if ON print all of mail header otherwise Subject: & From: lines\n");
  298. X        fprintf (fp, "print_header=%s\n\n", (print_header ? "ON" : "OFF"));
  299. X        fprintf (fp, "# if ON put cursor at first unread art in group otherwise last art\n");
  300. X        fprintf (fp, "pos_first_unread=%s\n\n", (pos_first_unread ? "ON" : "OFF"));
  301. X        fprintf (fp, "# if ON scroll full page of groups/articles otherwise half a page\n");
  302. X        fprintf (fp, "full_page_scroll=%s\n\n", (full_page_scroll ? "ON" : "OFF"));
  303. X        fprintf (fp, "# if ON ask user if read groups should all be marked read\n");
  304. X        fprintf (fp, "catchup_read_groups=%s\n\n", (catchup_read_groups ? "ON" : "OFF"));
  305. X        fprintf (fp, "# part of from field to display 0) none 1) address 2) full name 3) both\n");
  306. X        fprintf (fp, "show_author=%d\n\n", default_show_author);
  307. X        fprintf (fp, "# type of post processing to perform after saving articles.\n");
  308. X        fprintf (fp, "# 0) none 1) shar 2) uudecode 3) uud & list zoo 4) uud & extract zoo 5) patch.\n");
  309. X        fprintf (fp, "post_process_type=%d\n\n", post_proc_type);
  310. X        fprintf (fp, "# if ON and group not in ~/.tin/unthread articles will be threaded.\n");
  311. X        fprintf (fp, "thread_articles=%s\n\n", (thread_arts ? "ON" : "OFF"));
  312. X        fprintf (fp, "# if ON remove ~/.article after posting.\n");
  313. X        fprintf (fp, "unlink_article=%s\n\n", (unlink_article ? "ON" : "OFF"));
  314. X        fprintf (fp, "# if ON show only new/unread articles otherwise show all.\n");
  315. X        fprintf (fp, "show_only_unread=%s\n\n", (show_only_unread ? "ON" : "OFF"));
  316. X        fprintf (fp, "# sort articles by 0) nothing 1) Subject (descending) 2) Subject (ascending)\n");
  317. X        fprintf (fp, "# 3) From (descend) 4) From (ascend) 5) Date (descend) 6) Date (ascend)\n");
  318. X        fprintf (fp, "sort_article_type=%d\n\n", sort_art_type);
  319. X        fprintf (fp, "# (-d) directory where articles/threads are saved\n");
  320. X        fprintf (fp, "savedir=%s\n\n", savedir);
  321. X        fprintf (fp, "# (-M) directory where articles/threads are saved in mailbox format\n");    
  322. X        fprintf (fp, "maildir=%s\n\n", maildir);    
  323. X        fprintf (fp, "# (-p) print program with parameters used to print articles/threads\n");
  324. X        fprintf (fp, "printer=%s\n\n", printer);
  325. X        fprintf (fp, "# (-s) directory where news is spooled\n");
  326. X        fprintf (fp, "spooldir=%s\n\n", spooldir);
  327. X
  328. X        fprintf (fp, "# .signature file used for replies, followups\n");
  329. X        fprintf (fp, "signature=%s\n\n", signature);
  330. X        fprintf (fp, "# .Sig file used for postings\n");
  331. X        fprintf (fp, "sig=%s\n\n", sig);
  332. X
  333. X        fclose (fp);
  334. X        chmod (rcfile, 0600);
  335. X    }
  336. X    set_tin_uid_gid ();
  337. }
  338. X
  339. /*
  340. X *  options menu so that the user can dynamically change parameters
  341. X */
  342. X 
  343. int change_rcfile (group, kill_at_once)
  344. X    char *group;
  345. X    int kill_at_once;
  346. {
  347. X    char *str;
  348. X    int ch, i;
  349. X    int kill_changed = FALSE;
  350. X    int orig_kill_state;
  351. X    int orig_show_only_unread;
  352. X    int orig_thread_arts;
  353. X    int option;
  354. X    int ret_code = NO_KILLING;
  355. X    int var_orig;
  356. X    
  357. #ifdef SIGTSTP
  358. X    SIGTYPE (*susp)();
  359. X
  360. X    if (do_sigtstp) {
  361. #ifdef POSIX_JOB_CONTROL
  362. X        sigemptyset (&rcfile_act.sa_mask);
  363. X        rcfile_act.sa_flags = SA_RESTART | SA_RESETHAND;
  364. X        rcfile_act.sa_handler = SIG_DFL;
  365. X        sigaction (SIGTSTP, &rcfile_act, &old_act);
  366. #else
  367. X        susp = signal (SIGTSTP, SIG_DFL);
  368. #endif
  369. X    }
  370. #endif
  371. X
  372. X    COL1 = 0;
  373. X    COL2 = ((COLS / 3) * 1) + 1;
  374. X    COL3 = ((COLS / 3) * 2) + 2;
  375. X
  376. X    show_rcfile_menu ();
  377. X
  378. X    while (1) {
  379. X
  380. #ifdef SIGTSTP
  381. X        if (do_sigtstp) {
  382. #ifdef POSIX_JOB_CONTROL
  383. X            sigemptyset (&rcfile_act.sa_mask);
  384. X            rcfile_act.sa_flags = SA_RESTART | SA_RESETHAND;
  385. X            rcfile_act.sa_handler = rcfile_suspend;
  386. X            sigaction (SIGTSTP, &rcfile_act, 0L);
  387. #else
  388. X            signal (SIGTSTP, rcfile_suspend);
  389. #endif
  390. X        }
  391. #endif
  392. X        MoveCursor (LINES, 0);
  393. X        ch = ReadCh ();
  394. X        if (ch >= '1' && ch <= '9') {
  395. X            option = prompt_num (ch, "Enter option number> ");
  396. X        } else {
  397. X            if (ch == 'q' || ch == ESC) {
  398. X                option = -1;
  399. X            } else {
  400. X                option = 0;
  401. X            }
  402. X        }
  403. #ifdef SIGTSTP
  404. X        if (do_sigtstp) {
  405. #ifdef POSIX_JOB_CONTROL
  406. X            sigemptyset (&rcfile_act.sa_mask);
  407. X            rcfile_act.sa_flags = SA_RESTART | SA_RESETHAND;
  408. X            rcfile_act.sa_handler = SIG_IGN;
  409. X            sigaction (SIGTSTP, &rcfile_act, 0L);
  410. #else
  411. X            signal (SIGTSTP, SIG_IGN);
  412. #endif
  413. X        }
  414. #endif
  415. X        switch (option) {
  416. X            case -1:
  417. X                clear_note_area ();
  418. X                return ret_code;
  419. X                /*NOTREACHED*/                
  420. X            case 0:
  421. X                write_rcfile ();
  422. X                if (kill_changed) {
  423. X                    if (kill_at_once) {
  424. X                        if (kill_articles) {
  425. X                            read_kill_file ();
  426. X                            if (kill_any_articles (group)) {
  427. X                                reload_index_file (group, TRUE);    /* kill arts */
  428. X                            }
  429. X                        } else {
  430. X                            reload_index_file (group, FALSE);    /* add killed arts */
  431. X                        }
  432. X                    }
  433. X                    ret_code = KILLING;
  434. X                }
  435. X                clear_note_area ();
  436. #ifdef SIGTSTP
  437. X                if (do_sigtstp) {
  438. #ifdef POSIX_JOB_CONTROL
  439. X                    sigemptyset (&rcfile_act.sa_mask);
  440. X                    rcfile_act.sa_flags = SA_RESTART | SA_RESETHAND;
  441. X                    rcfile_act.sa_handler = SIG_IGN;
  442. X                    sigaction (SIGTSTP, &old_act, 0L);
  443. #else
  444. X                    signal (SIGTSTP, susp);
  445. #endif
  446. X                }
  447. #endif
  448. X                return ret_code;
  449. X            
  450. X            case 1:        /* auto save */
  451. X                prompt_on_off (INDEX_TOP, COL1, &save_archive_name, 
  452. X                    txt_help_autosave, txt_opt_autosave);
  453. X                break;
  454. X
  455. X            case 2:        /* save sperate */
  456. X                prompt_on_off (INDEX_TOP, COL2, &save_separate, 
  457. X                    txt_help_save_separate, txt_opt_save_separate);
  458. X                break;
  459. X            
  460. X            case 3:        /* mark saved articles read */
  461. X                prompt_on_off (INDEX_TOP, COL3, &mark_saved_read, 
  462. X                    txt_help_mark_saved_read, txt_opt_mark_saved_read);
  463. X                break;
  464. X
  465. X            case 4:        /* kill articles */
  466. X                orig_kill_state = kill_articles;
  467. X                show_menu_help (txt_help_kill_articles);
  468. X                do {
  469. X                    MoveCursor (INDEX_TOP+2, COL1 + (int) strlen (txt_opt_kill_articles));
  470. X                    if ((ch = ReadCh()) == ' ') {
  471. X                        kill_articles = !kill_articles;
  472. X                        kill_changed = (kill_articles != orig_kill_state ? TRUE : FALSE);
  473. X                        printf ("%s", (kill_articles ? "ON " : "OFF"));
  474. X                        fflush (stdout);
  475. X                    }
  476. X                } while (ch != CR && ch != ESC);
  477. X                break;
  478. X
  479. X            case 5:        /* draw -> / highlighted bar */
  480. X                prompt_on_off (INDEX_TOP+2, COL2, &draw_arrow_mark, 
  481. X                    txt_help_draw_arrow, txt_opt_draw_arrow);
  482. X                if (draw_arrow_mark == FALSE && inverse_okay == FALSE) {
  483. X                    inverse_okay = TRUE;
  484. X                }
  485. X                break;
  486. X
  487. X            case 6:        /* print header */
  488. X                prompt_on_off (INDEX_TOP+2, COL3, &print_header, 
  489. X                    txt_help_print_header, txt_opt_print_header);
  490. X                break;
  491. X            
  492. X            case 7:        /* position cursor at first / last unread art */
  493. X                prompt_on_off (INDEX_TOP+4, COL1, &pos_first_unread, 
  494. X                    txt_help_pos_first_unread, txt_opt_pos_first_unread);
  495. X                break;
  496. X
  497. X            case 8:        /* scroll half/full page of groups/articles */
  498. X                prompt_on_off (INDEX_TOP+4, COL2, &full_page_scroll, 
  499. X                    txt_help_page_scroll, txt_opt_page_scroll);
  500. X                break;
  501. X
  502. X            case 9:        /* catchup read groups when quitting */
  503. X                prompt_on_off (INDEX_TOP+4, COL3, &catchup_read_groups, 
  504. X                    txt_help_catchup_groups, txt_opt_catchup_groups);
  505. X                break;
  506. X
  507. X            case 10:    /* thread/unthread all groups except those in ~/.tin/unthreaded */
  508. X                orig_thread_arts = thread_arts;    
  509. X                prompt_on_off (INDEX_TOP+6, COL1, &thread_arts, 
  510. X                    txt_help_thread_arts, txt_opt_thread_arts);
  511. X                if (thread_arts != orig_thread_arts || group != (char *) 0) {
  512. X                    make_threads (TRUE);
  513. X                    find_base (show_only_unread);
  514. X                }
  515. X                break;
  516. X
  517. X            case 11:    /* show all arts or just new/unread arts */
  518. X                orig_show_only_unread = show_only_unread;    
  519. X                prompt_on_off (INDEX_TOP+6, COL2, &show_only_unread, 
  520. X                    txt_help_show_only_unread, txt_opt_show_only_unread);
  521. X                if (show_only_unread != orig_show_only_unread || group != (char *) 0) {
  522. X                    make_threads (TRUE);
  523. X                    find_base (show_only_unread);
  524. X                    if (space_mode) {
  525. X                        for (i = 0; i < top_base; i++) {
  526. X                            if (new_responses (i)) {
  527. X                                break;
  528. X                            }
  529. X                        }
  530. X                        if (i < top_base) {
  531. X                            index_point = i;
  532. X                        } else {
  533. X                            index_point = top_base - 1;
  534. X                        }
  535. X                    } else {
  536. X                        index_point = top_base - 1;
  537. X                    }
  538. X                }
  539. X                break;
  540. X
  541. X            case 13:        /* show subject & author / subject only */
  542. X                var_orig = show_author;
  543. X                show_menu_help (txt_help_show_author);
  544. X                do {
  545. X                    MoveCursor (INDEX_TOP+8, COL1 + (int) strlen (txt_opt_show_author));
  546. X                    if ((ch    = ReadCh()) == ' ') {
  547. X                        if (show_author + 1 > SHOW_FROM_BOTH) {
  548. X                            show_author = SHOW_FROM_NONE;
  549. X                        } else {
  550. X                            show_author++;
  551. X                        }
  552. X                        switch (show_author) {
  553. X                            case SHOW_FROM_NONE:
  554. X                                str = txt_show_from_none;
  555. X                                break;
  556. X                            case SHOW_FROM_ADDR:
  557. X                                str = txt_show_from_addr;
  558. X                                break;
  559. X                            case SHOW_FROM_NAME:
  560. X                                str = txt_show_from_name;
  561. X                                break;
  562. X                            case SHOW_FROM_BOTH:
  563. X                                str = txt_show_from_both;
  564. X                                break;
  565. X                        }
  566. X                        printf ("%s", str);
  567. X                        fflush (stdout);
  568. X                    }
  569. X                } while (ch != CR && ch != ESC);
  570. X
  571. X                if (ch == ESC) {    /* restore original value */
  572. X                    show_author = var_orig;
  573. X                    switch (show_author) {
  574. X                        case SHOW_FROM_NONE:
  575. X                            str = txt_show_from_none;
  576. X                            break;
  577. X                        case SHOW_FROM_ADDR:
  578. X                            str = txt_show_from_addr;
  579. X                            break;
  580. X                        case SHOW_FROM_NAME:
  581. X                            str = txt_show_from_name;
  582. X                            break;
  583. X                        case SHOW_FROM_BOTH:
  584. X                            str = txt_show_from_both;
  585. X                            break;
  586. X                    }
  587. X                    printf ("%s", str);
  588. X                    fflush (stdout);
  589. X                } else {
  590. X                    default_show_author = show_author;    
  591. X                    if (show_author == SHOW_FROM_BOTH) {
  592. X                        max_subj = (COLS / 2) - 2;
  593. X                    } else {
  594. X                        max_subj = (COLS / 2) + 5;
  595. X                    }
  596. X                    max_from = (COLS - max_subj) - 17;
  597. X                }
  598. X                break;
  599. X
  600. X            case 14:
  601. X                var_orig = post_proc_type;
  602. X                show_menu_help (txt_help_post_proc_type);
  603. X                do {
  604. X                    MoveCursor (INDEX_TOP+8, COL2 + (int) strlen (txt_opt_process_type));
  605. X                    if ((ch    = ReadCh()) == ' ') {
  606. X                        if (post_proc_type + 1 > POST_PROC_UUD_EXT_ZOO) {
  607. X                            post_proc_type = POST_PROC_NONE;
  608. X                        } else {
  609. X                            post_proc_type++;
  610. X                        }
  611. X                        switch (post_proc_type) {
  612. X                            case POST_PROC_NONE:
  613. X                                str = txt_post_process_none;
  614. X                                proc_ch_default = 'n';
  615. X                                break;
  616. X                            case POST_PROC_SHAR:
  617. X                                str = txt_post_process_sh;
  618. X                                proc_ch_default = 's';
  619. X                                break;
  620. X                            case POST_PROC_UUDECODE:
  621. X                                str = txt_post_process_uudecode;
  622. X                                proc_ch_default = 'u';
  623. X                                break;
  624. X                            case POST_PROC_UUD_LST_ZOO:
  625. X                                str = txt_post_process_uud_lst_zoo;
  626. X                                proc_ch_default = 'U';
  627. X                                break;
  628. X                            case POST_PROC_UUD_EXT_ZOO:
  629. X                                str = txt_post_process_uud_ext_zoo;
  630. X                                proc_ch_default = 'U';
  631. X                                break;
  632. X                        }
  633. X                        CleartoEOLN (); 
  634. X                        printf ("%s", str);
  635. X                        fflush (stdout);
  636. X                    }
  637. X                } while (ch != CR && ch != ESC);
  638. X
  639. X                if (ch == ESC) {    /* restore original value */
  640. X                    post_proc_type = var_orig;
  641. X                    switch (post_proc_type) {
  642. X                        case POST_PROC_NONE:
  643. X                            str = txt_post_process_none;
  644. X                            proc_ch_default = 'n';
  645. X                            break;
  646. X                        case POST_PROC_SHAR:
  647. X                            str = txt_post_process_sh;
  648. X                            proc_ch_default = 's';
  649. X                            break;
  650. X                        case POST_PROC_UUDECODE:
  651. X                            str = txt_post_process_uudecode;
  652. X                            proc_ch_default = 'u';
  653. X                            break;
  654. X                        case POST_PROC_UUD_LST_ZOO:
  655. X                            str = txt_post_process_uud_lst_zoo;
  656. X                            proc_ch_default = 'U';
  657. X                            break;
  658. X                        case POST_PROC_UUD_EXT_ZOO:
  659. X                            str = txt_post_process_uud_ext_zoo;
  660. X                            proc_ch_default = 'U';
  661. X                            break;
  662. X                    }
  663. X                    CleartoEOLN (); 
  664. X                    printf ("%s", str);
  665. X                    fflush (stdout);
  666. X                }
  667. X                break;
  668. X
  669. X            case 15:
  670. X                var_orig = sort_art_type;
  671. X                show_menu_help (txt_help_sort_type);
  672. X                do {
  673. X                    MoveCursor (INDEX_TOP+10, COL1 + (int) strlen (txt_opt_sort_type));
  674. X                    if ((ch    = ReadCh()) == ' ') {
  675. X                        if (sort_art_type + 1 > SORT_BY_DATE_ASCEND) {
  676. X                            sort_art_type = SORT_BY_NOTHING;
  677. X                        } else {
  678. X                            sort_art_type++;
  679. X                        }
  680. X                        switch (sort_art_type) {
  681. X                            case SORT_BY_NOTHING:
  682. X                                str = txt_sort_by_nothing;
  683. X                                break;
  684. X                            case SORT_BY_SUBJ_DESCEND:
  685. X                                str = txt_sort_by_subj_descend;
  686. X                                break;
  687. X                            case SORT_BY_SUBJ_ASCEND:
  688. X                                str = txt_sort_by_subj_ascend;
  689. X                                break;
  690. X                            case SORT_BY_FROM_DESCEND:
  691. X                                str = txt_sort_by_from_descend;
  692. X                                break;
  693. X                            case SORT_BY_FROM_ASCEND:
  694. X                                str = txt_sort_by_from_ascend;
  695. X                                break;
  696. X                            case SORT_BY_DATE_DESCEND:
  697. X                                str = txt_sort_by_date_descend;
  698. X                                break;
  699. X                            case SORT_BY_DATE_ASCEND:
  700. X                                str = txt_sort_by_date_ascend;
  701. X                                break;
  702. X                        }
  703. X                        CleartoEOLN (); 
  704. X                        printf ("%s", str);
  705. X                        fflush (stdout);
  706. X                    }
  707. X                } while (ch != CR && ch != ESC);
  708. X
  709. X                if (ch == ESC) {    /* restore original value */
  710. X                    sort_art_type = var_orig;
  711. X                    switch (sort_art_type) {
  712. X                        case SORT_BY_NOTHING:
  713. X                            str = txt_sort_by_nothing;
  714. X                            break;
  715. X                        case SORT_BY_SUBJ_DESCEND:
  716. X                            str = txt_sort_by_subj_descend;
  717. X                            break;
  718. X                        case SORT_BY_SUBJ_ASCEND:
  719. X                            str = txt_sort_by_subj_ascend;
  720. X                            break;
  721. X                        case SORT_BY_FROM_DESCEND:
  722. X                            str = txt_sort_by_from_descend;
  723. X                            break;
  724. X                        case SORT_BY_FROM_ASCEND:
  725. X                            str = txt_sort_by_from_ascend;
  726. X                            break;
  727. X                        case SORT_BY_DATE_DESCEND:
  728. X                            str = txt_sort_by_date_descend;
  729. X                            break;
  730. X                        case SORT_BY_DATE_ASCEND:
  731. X                            str = txt_sort_by_date_ascend;
  732. X                            break;
  733. X                    }
  734. X                    CleartoEOLN (); 
  735. X                    printf ("%s", str);
  736. X                    fflush (stdout);
  737. X                }
  738. X                break;
  739. X
  740. X            case 16:
  741. X                show_menu_help (txt_help_savedir);
  742. X                prompt_menu_string (INDEX_TOP+12, COL1 + (int) strlen (txt_opt_savedir), savedir);
  743. X                expand_rel_abs_pathname (INDEX_TOP+12, COL1 + (int) strlen (txt_opt_savedir), savedir);
  744. X                break;
  745. X
  746. X            case 17:
  747. X                show_menu_help (txt_help_maildir);
  748. X                prompt_menu_string (INDEX_TOP+14, COL1 + (int) strlen (txt_opt_maildir), maildir);
  749. X                expand_rel_abs_pathname (INDEX_TOP+14, COL1 + (int) strlen (txt_opt_maildir), maildir);
  750. X                break;
  751. X
  752. X            case 18:
  753. X                show_menu_help (txt_help_printer);
  754. X                prompt_menu_string (INDEX_TOP+16, COL1 + (int) strlen (txt_opt_printer), printer);
  755. X                expand_rel_abs_pathname (INDEX_TOP+16, COL1 + (int) strlen (txt_opt_printer), printer);
  756. X                break;
  757. X        }
  758. X        show_menu_help (txt_select_rcfile_option);
  759. X    }
  760. }
  761. X
  762. X
  763. void show_rcfile_menu ()
  764. {
  765. X    char *str;
  766. X
  767. X    ClearScreen ();
  768. X
  769. X    center_line (0, TRUE, txt_options_menu);
  770. X    
  771. X    MoveCursor (INDEX_TOP, 0);
  772. X    printf ("%s%s\r\n\r\n", txt_opt_autosave, (save_archive_name ? "ON " : "OFF"));
  773. X    printf ("%s%s\r\n\r\n", txt_opt_kill_articles, (kill_articles ? "ON " : "OFF"));
  774. X    printf ("%s%s\r\n\r\n", txt_opt_pos_first_unread, (pos_first_unread ? "ON " : "OFF"));
  775. X    printf ("%s%s", txt_opt_thread_arts, (thread_arts ? "ON " : "OFF"));
  776. X
  777. X    MoveCursor(INDEX_TOP, COL2);
  778. X    printf ("%s%s", txt_opt_save_separate, (save_separate ? "ON " : "OFF"));
  779. X    MoveCursor(INDEX_TOP+2, COL2);
  780. X    printf ("%s%s", txt_opt_draw_arrow, (draw_arrow_mark ? "ON " : "OFF"));
  781. X    MoveCursor(INDEX_TOP+4, COL2);
  782. X    printf ("%s%s", txt_opt_page_scroll, (full_page_scroll ? "ON " : "OFF"));
  783. X    MoveCursor(INDEX_TOP+6, COL2);
  784. X    printf ("%s%s", txt_opt_show_only_unread, (show_only_unread ? "ON " : "OFF"));
  785. X
  786. X    MoveCursor(INDEX_TOP, COL3);
  787. X    printf ("%s%s", txt_opt_mark_saved_read, (mark_saved_read ? "ON " : "OFF"));
  788. X    MoveCursor(INDEX_TOP+2, COL3);
  789. X    printf ("%s%s", txt_opt_print_header, (print_header ? "ON " : "OFF"));
  790. X    MoveCursor(INDEX_TOP+4, COL3);
  791. X    printf ("%s%s", txt_opt_catchup_groups, (catchup_read_groups ? "ON " : "OFF"));
  792. X
  793. X    MoveCursor(INDEX_TOP+8, COL1);
  794. X    switch (show_author) {
  795. X        case SHOW_FROM_NONE:
  796. X            str = txt_show_from_none;
  797. X            break;
  798. X        case SHOW_FROM_ADDR:
  799. X            str = txt_show_from_addr;
  800. X            break;
  801. X        case SHOW_FROM_NAME:
  802. X            str = txt_show_from_name;
  803. X            break;
  804. X        case SHOW_FROM_BOTH:
  805. X            str = txt_show_from_both;
  806. X            break;
  807. X        }
  808. X    printf ("%s%s", txt_opt_show_author, str);
  809. X    MoveCursor(INDEX_TOP+8, COL2);
  810. X    switch (post_proc_type) {
  811. X        case POST_PROC_NONE:
  812. X            str = txt_post_process_none;
  813. X            break;
  814. X        case POST_PROC_SHAR:
  815. X            str = txt_post_process_sh;
  816. X            break;
  817. X        case POST_PROC_UUDECODE:
  818. X            str = txt_post_process_uudecode;
  819. X            break;
  820. X        case POST_PROC_UUD_LST_ZOO:
  821. X            str = txt_post_process_uud_lst_zoo;
  822. X            break;
  823. X        case POST_PROC_UUD_EXT_ZOO:
  824. X            str = txt_post_process_uud_ext_zoo;
  825. X            break;
  826. X    }
  827. X    printf ("%s%s\r\n\r\n", txt_opt_process_type, str);
  828. X    
  829. X    MoveCursor(INDEX_TOP+10, COL1);
  830. X    switch (sort_art_type) {
  831. X        case SORT_BY_NOTHING:
  832. X            str = txt_sort_by_nothing;
  833. X            break;
  834. X        case SORT_BY_SUBJ_DESCEND:
  835. X            str = txt_sort_by_subj_descend;
  836. X            break;
  837. X        case SORT_BY_SUBJ_ASCEND:
  838. X            str = txt_sort_by_subj_ascend;
  839. X            break;
  840. X        case SORT_BY_FROM_DESCEND:
  841. X            str = txt_sort_by_from_descend;
  842. X            break;
  843. X        case SORT_BY_FROM_ASCEND:
  844. X            str = txt_sort_by_from_ascend;
  845. X            break;
  846. X        case SORT_BY_DATE_DESCEND:
  847. X            str = txt_sort_by_date_descend;
  848. X            break;
  849. X        case SORT_BY_DATE_ASCEND:
  850. X            str = txt_sort_by_date_ascend;
  851. X            break;
  852. X    }
  853. X    printf ("%s%s\r\n\r\n", txt_opt_sort_type, str);
  854. X
  855. X    printf ("%s%s\r\n\r\n", txt_opt_savedir, savedir);
  856. X    printf ("%s%s\r\n\r\n", txt_opt_maildir, maildir);
  857. X    printf ("%s%s\r\n\r\n", txt_opt_printer, printer);
  858. X    fflush(stdout);
  859. X
  860. X    show_menu_help (txt_select_rcfile_option);
  861. X    MoveCursor (LINES, 0);
  862. }
  863. X
  864. /*
  865. X *  expand ~/News to /usr/username/News and print to screen
  866. X */
  867. X 
  868. void expand_rel_abs_pathname (line, col, str)
  869. X    int line;
  870. X    int col;
  871. X    char *str;
  872. {
  873. X    char buf[LEN];
  874. X    
  875. X    if (str[0] == '~') {
  876. X        if (strlen (str) == 1) {
  877. X            strcpy (str, homedir);
  878. X        } else {
  879. X            sprintf (buf, "%s%s", homedir, str+1);
  880. X            strcpy (str, buf);
  881. X        }
  882. X    }
  883. X    MoveCursor (line, col);
  884. X    CleartoEOLN ();
  885. X    puts (str);
  886. X    fflush (stdout);
  887. }
  888. X
  889. /*
  890. X *  show_menu_help
  891. X */
  892. X 
  893. void show_menu_help (help_message)
  894. X    char *help_message;
  895. {
  896. X     MoveCursor (LINES-2, 0);
  897. X     CleartoEOLN ();
  898. X     center_line (LINES-2, FALSE, help_message);
  899. }
  900. SHAR_EOF
  901. chmod 0600 rcfile.c ||
  902. echo 'restore of rcfile.c failed'
  903. Wc_c="`wc -c < 'rcfile.c'`"
  904. test 22745 -eq "$Wc_c" ||
  905.     echo 'rcfile.c: original size 22745, current size' "$Wc_c"
  906. rm -f _shar_wnt_.tmp
  907. fi
  908. # ============= save.c ==============
  909. if test -f 'save.c' -a X"$1" != X"-c"; then
  910.     echo 'x - skipping save.c (File already exists)'
  911.     rm -f _shar_wnt_.tmp
  912. else
  913. > _shar_wnt_.tmp
  914. echo 'x - extracting save.c (Text)'
  915. sed 's/^X//' << 'SHAR_EOF' > 'save.c' &&
  916. /*
  917. X *  Project   : tin - a threaded Netnews reader
  918. X *  Module    : save.c
  919. X *  Author    : I.Lea & R.Skrenta
  920. X *  Created   : 01-04-91
  921. X *  Updated   : 22-03-92
  922. X *  Notes     :
  923. X *  Copyright : (c) Copyright 1991-92 by Iain Lea & Rich Skrenta
  924. X *              You may  freely  copy or  redistribute  this software,
  925. X *              so  long as there is no profit made from its use, sale
  926. X *              trade or  reproduction.  You may not change this copy-
  927. X *              right notice, and it must be included in any copy made
  928. X */
  929. X
  930. #include    "tin.h"
  931. X
  932. #define    INITIAL        1
  933. #define MIDDLE        2
  934. #define OFF            3
  935. #define END            4
  936. X
  937. int create_subdir = TRUE;
  938. X
  939. struct save_t *save;
  940. int save_num=0;
  941. int max_save;
  942. X
  943. /*
  944. X * types of archive programs
  945. X * 0=archiver, 1=extension, 2=extract option, 3=list option
  946. X */
  947. X 
  948. struct archiver_t { 
  949. X    char *name;
  950. X    char *ext;
  951. X    char *extract;
  952. X    char *list;
  953. };
  954. X
  955. struct archiver_t archiver[] = {
  956. X    { "",            "",            "",            "" },
  957. X    { "",            "",            "",            "" },
  958. X    { "",            "",            "",            "" },
  959. X    { "zoo",        "zoo",        "-extract",    "-list" },
  960. X    { (char *) 0,    (char *) 0,    (char *) 0,    (char *) 0 }
  961. };
  962. X
  963. extern char *glob_group;
  964. extern char note_h_path[LEN];    /* Path:    */
  965. extern char note_h_date[LEN];    /* Date:    */
  966. extern FILE    *note_fp;            /* the body of the current article */
  967. extern int index_point;
  968. extern int note_end;
  969. extern int note_page;
  970. extern long note_mark[MAX_PAGES];
  971. X
  972. X
  973. /*
  974. X *  Check for articles and say how many new/unread in each group.
  975. X *  or
  976. X *  Start if new/unread articles and return first group with new/unread.
  977. X *  or
  978. X *  Save any new articles to savedir and mark arts read and mail user
  979. X *  and inform how many arts in which groups were saved.
  980. X *  or
  981. X *  Mail any new articles to specified user and mark arts read and mail
  982. X *  user and inform how many arts in which groups were mailed.
  983. X */
  984. X
  985. int check_start_save_any_news (check_start_save)
  986. X    int check_start_save;
  987. {
  988. #ifndef INDEX_DAEMON
  989. X
  990. X    char buf[LEN], logfile[LEN], *p;
  991. X    char group_path[LEN];
  992. X    char savefile[LEN];
  993. X    extern FILE *note_fp;
  994. X    FILE *fp, *fp_log;
  995. X    int i, j, print_group;
  996. X    int check_arts = 0;
  997. X    int    log_opened = TRUE;
  998. X    int print_first = TRUE;
  999. X    int saved_arts = 0;
  1000. X    int saved_groups = 0;
  1001. X    int unread_news = FALSE;    
  1002. X    long epoch;
  1003. X
  1004. X    switch (check_start_save) {
  1005. X        case CHECK_ANY_NEWS:
  1006. X            if (verbose) {
  1007. X                wait_message (txt_checking_for_news);
  1008. X            }
  1009. X            break;
  1010. X        case START_ANY_NEWS:
  1011. X            wait_message (txt_checking_for_news);
  1012. X            break;
  1013. X        case MAIL_ANY_NEWS:
  1014. X        case SAVE_ANY_NEWS:
  1015. X            sprintf (logfile, "%s/log", rcdir);
  1016. X            if ((fp_log = fopen (logfile, "w")) == NULL) {
  1017. X                error_message (txt_cannot_open, logfile);
  1018. X                fp_log = stdout;
  1019. X                verbose = FALSE;
  1020. X                log_opened = FALSE;
  1021. X            }
  1022. X            time (&epoch);
  1023. X            fprintf (fp_log, "To: %s\n", userid);
  1024. X            fprintf (fp_log, "Subject: NEWS LOG %s\n", ctime (&epoch));
  1025. X            break;
  1026. X    }
  1027. X    
  1028. X    for (i = 0; i < group_top; i++) {
  1029. X        strcpy (group_path, active[my_group[i]].name);
  1030. X        for (p = group_path; *p; p++) {
  1031. X            if (*p == '.') {
  1032. X                *p = '/';
  1033. X            }
  1034. X        }
  1035. X        
  1036. X        index_group (active[my_group[i]].name, group_path);
  1037. X        read_newsrc_line (active[my_group[i]].name);
  1038. X        print_group = TRUE;
  1039. X        check_arts = 0;
  1040. X
  1041. X        for (j = 0; j < top; j++) {
  1042. X            if (arts[j].unread == ART_UNREAD)  {
  1043. X                switch (check_start_save) {
  1044. X                    case CHECK_ANY_NEWS:
  1045. X                        if (print_first && verbose) {
  1046. X                            putchar ('\n');
  1047. X                            print_first = FALSE;
  1048. X                        }
  1049. X                        check_arts++;
  1050. X                        break;
  1051. X                    case START_ANY_NEWS:
  1052. X                        return i;    /* return first group with unread news */ 
  1053. X                        /* NOTREACHED */
  1054. X                    case MAIL_ANY_NEWS:
  1055. X                    case SAVE_ANY_NEWS:
  1056. X                        if (print_group) {    
  1057. X                            sprintf (buf, "Saved %s...\n", active[my_group[i]].name);
  1058. X                            fprintf (fp_log, "%s", buf);
  1059. X                            if (verbose) {
  1060. X                                wait_message (buf);
  1061. X                            }
  1062. X                            print_group = FALSE;
  1063. X                            saved_groups++;
  1064. X                            if (check_start_save == SAVE_ANY_NEWS) {
  1065. X                                sprintf (buf, "%s/dummy", group_path);
  1066. X                                create_path (buf);
  1067. X                            }
  1068. X                        }
  1069. X                        sprintf (buf, "[%5ld]  %s\n", arts[j].artnum, arts[j].subject);
  1070. X                        fprintf (fp_log, "%s", buf);
  1071. X                        if (verbose) {
  1072. X                            wait_message (buf);
  1073. X                        }
  1074. X                        saved_arts++;
  1075. X
  1076. X                        if (check_start_save == MAIL_ANY_NEWS) {
  1077. X                            sprintf (savefile, "/tmp/tin.%d", process_id);
  1078. X                        } else {
  1079. X                            sprintf (savefile, "%s/%s/%ld", savedir,
  1080. X                                     group_path, arts[j].artnum);
  1081. X                        }
  1082. X
  1083. X                        if ((fp = fopen (savefile, "w")) == NULL) {
  1084. X                            fprintf (fp_log, txt_cannot_open, savefile);
  1085. X                            if (verbose) {
  1086. X                                error_message (txt_cannot_open, savefile);
  1087. X                            }
  1088. X                            continue;
  1089. X                        }
  1090. X                
  1091. X                        if (check_start_save == MAIL_ANY_NEWS) {
  1092. X                            fprintf (fp, "To: %s\n", mail_news_user);
  1093. X                        }
  1094. X
  1095. X                        note_page = art_open (arts[j].artnum, group_path);    
  1096. X                        fseek (note_fp, 0L, 0);
  1097. X                        copy_fp (note_fp, fp, (char *) 0);
  1098. X                        art_close ();
  1099. X                        fclose (fp);
  1100. X
  1101. X                        if (check_start_save == MAIL_ANY_NEWS) {
  1102. X                            sprintf (buf, "%s \"%s\" < %s", mailer,
  1103. X                                    mail_news_user, savefile);
  1104. X                            if (! invoke_cmd (buf)) {
  1105. X                                error_message (txt_command_failed_s, buf);
  1106. X                            }
  1107. X                            unlink (savefile);
  1108. X                        }
  1109. X                        if (catchup) {
  1110. X                            arts[j].unread = ART_READ;
  1111. X                        }
  1112. X                        break;
  1113. X                }
  1114. X            }
  1115. X        }
  1116. X        
  1117. X        if (check_start_save == MAIL_ANY_NEWS ||
  1118. X            check_start_save == SAVE_ANY_NEWS) {
  1119. X            if (catchup) {
  1120. X                update_newsrc (active[my_group[i]].name, my_group[i], FALSE);
  1121. X            }
  1122. X        } else {
  1123. X            if (check_arts) {
  1124. X                if (verbose) {
  1125. X                    sprintf (buf, "%4d unread articles in %s\n",
  1126. X                        check_arts, active[my_group[i]].name);
  1127. X                    wait_message (buf);     
  1128. X                }
  1129. X                unread_news = TRUE;    
  1130. X            }
  1131. X        }
  1132. X    }
  1133. X    switch (check_start_save) {
  1134. X        case CHECK_ANY_NEWS:
  1135. X            if (unread_news) {
  1136. X                return 2;
  1137. X            } else {
  1138. X                if (verbose) {
  1139. X                    wait_message (txt_there_is_no_news);
  1140. X                }
  1141. X                return 0;
  1142. X            }
  1143. X            /* NOTREACHED */ 
  1144. X        case START_ANY_NEWS:
  1145. X            wait_message (txt_there_is_no_news);
  1146. X            return -1;
  1147. X            /* NOTREACHED */ 
  1148. X        case MAIL_ANY_NEWS:
  1149. X        case SAVE_ANY_NEWS:
  1150. X            sprintf (buf, "\n%s %d article(s) from %d group(s)\n", 
  1151. X                (check_start_save == MAIL_ANY_NEWS ? "Mailed" : "Saved"),
  1152. X                saved_arts, saved_groups);
  1153. X            fprintf (fp_log, "%s", buf);
  1154. X            if (verbose) {
  1155. X                wait_message (buf);
  1156. X            }
  1157. X            if (log_opened) {
  1158. X                fclose (fp_log);
  1159. X                if (verbose) {
  1160. X                    sprintf (buf, "Mailing log to %s\n",
  1161. X                        (check_start_save == MAIL_ANY_NEWS ? mail_news_user : userid));
  1162. X                    wait_message (buf);
  1163. X                }
  1164. X                sprintf (buf, "%s \"%s\" < %s", mailer,
  1165. X                    (check_start_save == MAIL_ANY_NEWS ? mail_news_user : userid),
  1166. X                    logfile);
  1167. X                if (! invoke_cmd (buf)) {
  1168. X                    error_message (txt_command_failed_s, buf);
  1169. X                }
  1170. X            }
  1171. X            break;
  1172. X    }
  1173. X
  1174. #endif /* INDEX_DAEMON */
  1175. X
  1176. X    return 0;
  1177. }
  1178. X
  1179. X
  1180. int save_art_to_file (respnum, index, mailbox, filename)
  1181. X    int respnum;
  1182. X    int index;
  1183. X    int mailbox;
  1184. X    char *filename;
  1185. {
  1186. #ifndef INDEX_DAEMON
  1187. X
  1188. X    char file[LEN];
  1189. X    char save_art_info[LEN];
  1190. X    FILE *fp;
  1191. X    int is_mailbox = FALSE;
  1192. X    int i = 0, ret_code = FALSE;
  1193. X    long epoch;
  1194. X    
  1195. X    if (filename) {
  1196. X        my_strncpy (file, filename, LEN);
  1197. X        is_mailbox = mailbox;
  1198. X        i = index;
  1199. X    } else if (save_archive_name && arts[respnum].archive) {
  1200. X            my_strncpy (file, arts[respnum].archive, LEN);
  1201. X    }
  1202. X
  1203. X    if (! append_to_existing_file (i)) {
  1204. X        save[i].saved = FALSE;
  1205. X        info_message (txt_art_not_saved);
  1206. X        sleep (1);
  1207. X        return (ret_code);
  1208. X    }
  1209. X
  1210. X    set_real_uid_gid ();
  1211. X
  1212. X    if ((fp = fopen (save_filename (i), "a+")) == NULL) {
  1213. X        save[i].saved = FALSE;
  1214. X        info_message (txt_art_not_saved);
  1215. X        set_tin_uid_gid ();
  1216. X        return (ret_code);
  1217. X    }
  1218. X
  1219. X     time (&epoch);
  1220. X     fprintf (fp, "From %s %s", note_h_path, ctime (&epoch));
  1221. X
  1222. X    if (fseek (note_fp, 0L, 0) == -1) {
  1223. X        error_message ("fseek() error on [%s]", arts[respnum].subject);
  1224. X    }
  1225. X    copy_fp (note_fp, fp, (char *) 0);
  1226. X    fputs ("\n", fp);
  1227. X    fclose (fp);
  1228. X    fseek (note_fp, note_mark[note_page], 0);
  1229. X
  1230. X    save[i].saved = TRUE;
  1231. X
  1232. X    set_tin_uid_gid ();
  1233. X
  1234. X    if (filename == (char *) 0) {
  1235. X        if (is_mailbox) {
  1236. X            sprintf (save_art_info, txt_saved_to_mailbox, get_first_savefile ());
  1237. X        } else {
  1238. X            sprintf (save_art_info, txt_art_saved_to, get_first_savefile ());
  1239. X        }
  1240. X        info_message(save_art_info);
  1241. X    }
  1242. X
  1243. #endif /* INDEX_DAEMON */
  1244. X
  1245. X    return TRUE;
  1246. }
  1247. X
  1248. X
  1249. int save_thread_to_file (is_mailbox, group_path)
  1250. X    int is_mailbox;
  1251. X    char *group_path;
  1252. {
  1253. #ifndef INDEX_DAEMON
  1254. X
  1255. X    char buf[LEN];
  1256. X    char save_thread_info[LEN];
  1257. X    char *first_savefile;
  1258. X    int count = 0;
  1259. X    int i, ret_code = FALSE;
  1260. X    long epoch;
  1261. X
  1262. X    set_real_uid_gid ();
  1263. X
  1264. X    for (i=0 ; i < save_num ; i++) {
  1265. X        sprintf (msg, "%s%d", txt_saving, ++count);
  1266. X        wait_message (msg);
  1267. X
  1268. X        if (is_mailbox) {
  1269. X            buf[0] = 0;
  1270. X        }else {
  1271. X            sprintf (buf, "%s.%02d", save[i].file, i+1);
  1272. X        }
  1273. X
  1274. X        note_page = art_open (arts[save[i].index].artnum, group_path);
  1275. X        ret_code = save_art_to_file (save[i].index, i, is_mailbox, buf);
  1276. X        art_close ();            
  1277. X    }
  1278. X    set_tin_uid_gid ();
  1279. X    
  1280. X    first_savefile = get_first_savefile ();
  1281. X
  1282. X    if (first_savefile == (char *) 0) {
  1283. X        info_message (txt_thread_not_saved);
  1284. X    } else {
  1285. X        if (is_mailbox) {
  1286. X            sprintf (save_thread_info, txt_saved_to_mailbox, first_savefile);
  1287. X        } else {
  1288. X            if (save_num == 1) {
  1289. X                sprintf (save_thread_info, txt_art_saved_to, first_savefile);
  1290. X            } else {
  1291. X                if (save_separate) {
  1292. X                    sprintf (save_thread_info, txt_thread_saved_to_many,
  1293. X                        first_savefile, get_last_savefile ());
  1294. X                } else {
  1295. X                    sprintf (save_thread_info, txt_thread_saved_to,
  1296. X                        first_savefile);
  1297. X                }
  1298. X            }
  1299. X            if (first_savefile != (char *) 0) {
  1300. X                free (first_savefile);
  1301. X                first_savefile = (char *) 0;
  1302. X            }
  1303. X        }
  1304. X        info_message (save_thread_info);
  1305. X    }
  1306. X
  1307. #endif /* INDEX_DAEMON */
  1308. X
  1309. X    return TRUE;
  1310. }
  1311. X
  1312. X
  1313. int save_regex_arts (is_mailbox, group_path)
  1314. X    int is_mailbox;
  1315. X    char *group_path;
  1316. {
  1317. #ifndef INDEX_DAEMON
  1318. X
  1319. X    char buf[LEN];
  1320. X    int i, ret_code;     
  1321. X    
  1322. X    for (i=0 ; i < save_num ; i++) {
  1323. X        sprintf(msg, "%s%d", txt_saving, i+1);
  1324. X        wait_message (msg);
  1325. X
  1326. X        if (is_mailbox) {
  1327. X            buf[0] = 0;
  1328. X        }else {
  1329. X            sprintf (buf, "%s.%02d", save[i].file, i+1);
  1330. X        }
  1331. X
  1332. X        note_page = art_open (arts[save[i].index].artnum, group_path);
  1333. X        ret_code = save_art_to_file (save[i].index, i, is_mailbox, buf);
  1334. X        art_close ();            
  1335. X    }
  1336. X
  1337. X    if (! save_num) {    
  1338. X        info_message (txt_no_match);
  1339. X    } else {
  1340. X        if (is_mailbox) {
  1341. X            sprintf (buf, txt_saved_to_mailbox, get_first_savefile ());
  1342. X        } else {
  1343. X            sprintf (buf,txt_saved_pattern_to,
  1344. X                get_first_savefile (), get_last_savefile ());
  1345. X        }
  1346. X        info_message (buf);
  1347. X    }
  1348. X
  1349. X    return (ret_code);
  1350. X
  1351. #else
  1352. X
  1353. X    return (FALSE);
  1354. X    
  1355. #endif /* INDEX_DAEMON */
  1356. }
  1357. X
  1358. X
  1359. int append_to_existing_file (i)
  1360. X    int i;
  1361. {
  1362. #ifndef INDEX_DAEMON
  1363. X
  1364. X    char buf[LEN];
  1365. X    char *file;
  1366. X    struct stat st;
  1367. X
  1368. X    if (! save[i].is_mailbox && save_separate) {
  1369. X        file = save_filename (i);
  1370. X        if (stat(file, &st) != -1) {    
  1371. X            sprintf (buf, txt_append_to_file, file); 
  1372. X            if (! prompt_yn (LINES, buf, 'n')) {
  1373. X                if (file != (char *) 0) {
  1374. X                    free (file);
  1375. X                    file = (char *) 0;
  1376. X                }
  1377. X                return FALSE;
  1378. X            }
  1379. X        }
  1380. X        if (file != (char *) 0) {
  1381. X            free (file);
  1382. X            file = (char *) 0;
  1383. X        }
  1384. X    }
  1385. X
  1386. #endif /* INDEX_DAEMON */
  1387. X    
  1388. X    return TRUE;
  1389. }
  1390. X
  1391. X
  1392. int create_path (path)
  1393. X    char *path;
  1394. {
  1395. #ifdef INDEX_DAEMON
  1396. X
  1397. X    char buf[LEN];
  1398. X    char group[LEN];
  1399. X    char *env;
  1400. X    int i, j, len;
  1401. X    struct stat st;
  1402. X    
  1403. X    /*
  1404. X     * save in mailbox format to ~/Mail/<group.name>
  1405. X     */
  1406. X    if (path[0] == '=') {
  1407. X        return TRUE;
  1408. X    }
  1409. X
  1410. X    /*
  1411. X     * if ~/file expand (ie. /usr/homedir/file)
  1412. X     */
  1413. X    switch (path[0]) {
  1414. X        case '~':
  1415. X            my_strncpy (buf, path+1, LEN);
  1416. X            sprintf (path, "%s%s", homedir, buf);
  1417. X            break;
  1418. X        case '+':
  1419. X            my_strncpy (buf, path+1, LEN);
  1420. #ifdef USE_LONG_FILENAMES 
  1421. X            strcpy (group, glob_group);
  1422. #else
  1423. X            my_strncpy (group, glob_group, 14);
  1424. #endif
  1425. X            /*
  1426. X             *  convert 1st letter to uppercase
  1427. X             */
  1428. X            if (group[0] >= 'a' && group[0] <= 'z') {
  1429. X                group[0] = group[0] - 32;
  1430. X            }
  1431. X            sprintf (path, "%s/%s/%s", savedir, group, buf);
  1432. X            break;
  1433. X        case '$':
  1434. X            for (i = 0 ; isalnum (path[i+1]) ; i++) {
  1435. X                buf[i] = path[i+1];
  1436. X            }
  1437. X            buf[i] = '\0';
  1438. X            if (buf[0] == '\0' || (env = (char *) getenv (buf)) == NULL ||
  1439. X                (len = strlen (env)) == 0) {
  1440. X            }
  1441. X            sprintf (buf, "%s%s%s", env, (path[i+1] != '/' &&
  1442. X                    env[len-1] != '/') ? "/" : "", &path[i+1]);
  1443. X            strcpy (path, buf);
  1444. X            break;
  1445. X        case '/':
  1446. X            break;
  1447. X        case '.':
  1448. X            error_message ("Cannot create %s", buf);
  1449. X            return FALSE;
  1450. X            /* NOTREACHED */
  1451. X        default:
  1452. X            sprintf (buf, "%s/%s", savedir, path);
  1453. X            my_strncpy (path, buf, LEN);
  1454. X            break;
  1455. X    }
  1456. X
  1457. X    /*
  1458. X     *  create any directories, otherwise check
  1459. X     *  errno and give appropiate error message
  1460. X     */
  1461. X    len = (int) strlen (path);
  1462. X    
  1463. X    for (i=0, j=0 ; i < len ; i++, j++) {
  1464. X        buf[j] = path[i];
  1465. X        if (i+1 < len && path[i+1] == '/') {
  1466. X            buf[j+1] = '\0';
  1467. X            if (stat (buf, &st) == -1) {
  1468. X                if (mkdir (buf, 0755) == -1) {
  1469. X                    error_message ("Cannot create %s", buf);
  1470. X                    return FALSE;
  1471. X                }
  1472. X            }
  1473. X        }
  1474. X    }
  1475. X
  1476. #endif /* INDEX_DAEMON */
  1477. X    
  1478. X    return FALSE;
  1479. }
  1480. X
  1481. X
  1482. int create_sub_dir (i)
  1483. X    int i;
  1484. {
  1485. #ifndef INDEX_DAEMON
  1486. X
  1487. X    char dir[LEN];
  1488. X    struct stat st;
  1489. X
  1490. X    if (! save[i].is_mailbox && save[i].archive) {
  1491. X        sprintf (dir, "%s/%s", save[i].dir, save[i].archive);
  1492. X        if (stat (dir, &st) == -1) {
  1493. X            mkdir (dir, 0755);
  1494. X            return TRUE;
  1495. X        }
  1496. X        if ((st.st_mode & S_IFMT) == S_IFDIR) {
  1497. X            return TRUE;
  1498. X        } else {
  1499. X            return FALSE;
  1500. X        }
  1501. X    }
  1502. X
  1503. #endif /* INDEX_DAEMON */
  1504. X    
  1505. X    return FALSE;
  1506. }
  1507. X
  1508. /*
  1509. X *  add files to be saved to save array
  1510. X */
  1511. X
  1512. void add_to_save_list (index, article, is_mailbox, path)
  1513. X    int index;
  1514. X    struct article_t *article;
  1515. X    int is_mailbox;
  1516. X    char *path;
  1517. {
  1518. #ifndef INDEX_DAEMON
  1519. X
  1520. X    char dir[LEN];
  1521. X    char file[LEN];
  1522. X    int i;
  1523. X    
  1524. X    dir[0] = '\0';
  1525. X    file[0] = '\0';
  1526. X
  1527. X    if (save_num == max_save-1) {
  1528. X        expand_save ();
  1529. X    }
  1530. X
  1531. X    save[save_num].index   = index;
  1532. X    save[save_num].saved   = FALSE;
  1533. X    save[save_num].is_mailbox = is_mailbox;
  1534. X    save[save_num].dir     = (char *) 0;
  1535. X    save[save_num].file    = (char *) 0;
  1536. X    save[save_num].archive = (char *) 0;
  1537. X    save[save_num].part    = (char *) 0;
  1538. X    save[save_num].patch   = (char *) 0;
  1539. X
  1540. X    save[save_num].subject = str_dup (article->subject);
  1541. X    if (article->archive) {
  1542. X        save[save_num].archive = str_dup (article->archive);
  1543. X    }
  1544. X    if (article->part) {
  1545. X        save[save_num].part = str_dup (article->part);
  1546. X    }
  1547. X    if (article->patch) {
  1548. X        save[save_num].patch = str_dup (article->patch);
  1549. X    }
  1550. X
  1551. X    if (is_mailbox) {
  1552. X        if ((int) strlen (path) > 1) {
  1553. X            if (path[0] == '=') {
  1554. X                strcpy (file, path+1);
  1555. X            } else {
  1556. X                strcpy (file, path);
  1557. X            }
  1558. X        } else {
  1559. X            strcpy (file, glob_group);
  1560. X        }
  1561. X        save[save_num].dir = str_dup (maildir);
  1562. X        save[save_num].file = str_dup (file);
  1563. X    } else {
  1564. X        if (path[0]) {
  1565. X            for (i=strlen (path) ; i ; i--) {
  1566. X                if (path[i] == '/') {
  1567. X                    strncpy (dir, path, i);
  1568. X                    dir[i] = '\0';
  1569. X                    strcpy (file, path+i+1);
  1570. X                    break;
  1571. X                }
  1572. X            }
  1573. X        }
  1574. X        
  1575. X        if (dir[0]) {
  1576. X            save[save_num].dir = str_dup (dir);
  1577. X        } else {
  1578. X            save[save_num].dir = str_dup (savedir);
  1579. X        }
  1580. X
  1581. X        if (file[0]) {
  1582. X            save[save_num].file = str_dup (file);
  1583. X        } else {
  1584. X            if (path[0]) {
  1585. X                save[save_num].file = str_dup (path);
  1586. X            } else {
  1587. X                save[save_num].file = str_dup (save[save_num].archive);
  1588. X            }
  1589. X        }
  1590. X    }
  1591. X    save_num++;
  1592. X
  1593. #endif /* INDEX_DAEMON */
  1594. }
  1595. X
  1596. /*
  1597. X *  print save array of files to be saved
  1598. X */
  1599. X
  1600. void sort_save_list ()
  1601. {
  1602. X    qsort ((char *) save, save_num, sizeof (struct save_t), save_comp);
  1603. }
  1604. X
  1605. /*
  1606. X *  string comparison routine for the qsort()
  1607. X *  ie. qsort(array, 5, 32, save_comp);
  1608. X */
  1609. X
  1610. int save_comp (p1, p2)
  1611. X    char *p1;
  1612. X    char *p2;
  1613. {
  1614. X    struct save_t *s1 = (struct save_t *)p1;
  1615. X    struct save_t *s2 = (struct save_t *)p2;
  1616. X
  1617. X    /* s1->subject less than s2->subject */
  1618. X    if (strcmp (s1->subject, s2->subject) < 0) {
  1619. X        return -1;
  1620. X    }
  1621. X    /* s1->subject greater than s2->subject */
  1622. X    if (strcmp (s1->subject, s2->subject) > 0) {
  1623. X        return 1;
  1624. X    }
  1625. X    return 0;
  1626. }
  1627. X
  1628. X
  1629. char *save_filename (i)
  1630. X    int i;
  1631. {
  1632. X    char *filename;
  1633. X
  1634. X    filename = (char *) my_malloc (LEN);
  1635. X
  1636. X    if (save[i].is_mailbox) {
  1637. X        sprintf (filename, "%s/%s", save[i].dir, save[i].file);
  1638. X        return (filename);
  1639. X    }
  1640. X    
  1641. X    if (! save_separate || ! save_archive_name || (! save[i].part && ! save[i].patch)) {
  1642. X        if (! save_separate || save_num == 1) {
  1643. X            sprintf (filename, "%s/%s", save[i].dir, save[i].file);
  1644. X        } else {
  1645. X            sprintf (filename, "%s/%s.%02d", save[i].dir, save[i].file, i+1);
  1646. X        }
  1647. X    } else {
  1648. X        if (save[i].part) {
  1649. X            if (create_sub_dir (i)) {
  1650. X                sprintf (filename, "%s/%s/%s.%s%s", save[i].dir, save[i].archive, save[i].archive, LONG_PATH_PART, save[i].part);
  1651. X            } else {
  1652. X                sprintf (filename, "%s/%s.%s%s", save[i].dir, save[i].archive, LONG_PATH_PART, save[i].part);
  1653. X            }
  1654. X        } else {
  1655. X            if (save[i].patch) {
  1656. X                if (create_sub_dir (i)) {
  1657. X                    sprintf (filename, "%s/%s/%s.%s%s", save[i].dir, save[i].archive, save[i].archive, LONG_PATH_PATCH, save[i].patch);
  1658. X                } else {
  1659. X                    sprintf (filename, "%s/%s.%s%s", save[i].dir, save[i].archive, LONG_PATH_PATCH, save[i].patch);
  1660. X                }
  1661. X            } else {
  1662. X                  sprintf (filename, "%s/%s", save[i].dir, save[i].file);
  1663. X            }
  1664. X        }
  1665. X    }
  1666. X
  1667. X    return (filename);
  1668. }
  1669. X
  1670. X
  1671. char *get_first_savefile ()
  1672. {
  1673. X    char *file;
  1674. X    int i;
  1675. X
  1676. X    for (i=0 ; i < save_num ; i++) {
  1677. X        if (save[i].saved) {
  1678. X            file = (char *) my_malloc (LEN);
  1679. X            if (save[i].is_mailbox) {
  1680. X                sprintf (file, "%s/%s", save[i].dir, save[i].file);
  1681. X                return (file);
  1682. X            } else {
  1683. X                if (save[i].archive && save_archive_name) {
  1684. X                    if (save[i].part) {
  1685. X                        if (create_subdir) {
  1686. X                            sprintf (file, "%s/%s.%s%s", save[i].archive, save[i].archive, LONG_PATH_PART, save[i].part);
  1687. X                        } else {
  1688. X                            sprintf (file, "%s.%s%s", save[i].archive, LONG_PATH_PART, save[i].part);
  1689. X                        }
  1690. X                    } else {
  1691. X                        if (create_subdir) {
  1692. X                            sprintf (file, "%s/%s.%s%s", save[i].archive, save[i].archive, LONG_PATH_PATCH, save[i].patch);
  1693. X                        } else {
  1694. X                            sprintf (file, "%s.%s%s", save[i].archive, LONG_PATH_PATCH, save[i].patch);
  1695. X                        }
  1696. X                    }
  1697. X                } else {
  1698. X                    if (! save_separate || save_num == 1) {
  1699. X                        sprintf (file, "%s", save[i].file);
  1700. X                    } else {
  1701. X                        sprintf (file, "%s.%02d", save[i].file, i+1);
  1702. X                    }
  1703. X                }
  1704. X                return (file);
  1705. X            }
  1706. X        }
  1707. X    }
  1708. X    return ((char *) 0);
  1709. }
  1710. X
  1711. X
  1712. char *get_last_savefile ()
  1713. {
  1714. X    char *file;
  1715. X    int i;
  1716. X    
  1717. X    for (i=save_num-1 ; i >= 0 ; i--) {
  1718. X        if (save[i].saved) {
  1719. X            file = (char *) my_malloc (LEN);
  1720. X            if (save[i].is_mailbox) {
  1721. X                sprintf (file, "%s/%s", save[i].dir, save[i].file);
  1722. X                return (file);
  1723. X            } else {
  1724. X                if (save[i].archive && save_archive_name) {
  1725. X                    if (save[i].part) {
  1726. X                        if (create_subdir) {
  1727. X                            sprintf (file, "%s/%s.%s%s", save[i].archive, save[i].archive, LONG_PATH_PART, save[i].part);
  1728. X                        } else {
  1729. X                            sprintf (file, "%s.%s%s", save[i].archive, LONG_PATH_PART, save[i].part);
  1730. X                        }
  1731. X                    } else {
  1732. X                        if (create_subdir) {
  1733. X                            sprintf (file, "%s/%s.%s%s", save[i].archive, save[i].archive, LONG_PATH_PATCH, save[i].patch);
  1734. X                        } else {
  1735. X                            sprintf (file, "%s.%s%s", save[i].archive, LONG_PATH_PATCH, save[i].patch);
  1736. X                        }
  1737. X                    }
  1738. X                } else {
  1739. X                    if (! save_separate || save_num == 1) {
  1740. X                        sprintf (file, "%s", save[i].file);
  1741. X                    } else {
  1742. X                        sprintf (file, "%s.%02d", save[i].file, i+1);
  1743. X                    }
  1744. X                }
  1745. X                return (file);
  1746. X            }
  1747. X        }
  1748. X    }
  1749. X    return ((char *) 0);
  1750. }
  1751. X
  1752. X
  1753. int post_process_files (proc_type_ch)
  1754. X    char proc_type_ch;
  1755. {
  1756. X    if (save_num) {
  1757. X        wait_message (txt_post_processing);
  1758. X
  1759. X        set_real_uid_gid();
  1760. X
  1761. X        switch (proc_type_ch) {
  1762. X            case 's':
  1763. X                post_process_sh ();
  1764. X                break;
  1765. X                
  1766. X            case 'u':
  1767. X                post_process_uud (POST_PROC_UUDECODE);
  1768. X                break;
  1769. X
  1770. X            case 'U':
  1771. X                if (post_proc_type == POST_PROC_UUD_EXT_ZOO) {
  1772. X                    post_process_uud (POST_PROC_UUD_EXT_ZOO);
  1773. X                } else {
  1774. X                    post_process_uud (POST_PROC_UUD_LST_ZOO);
  1775. X                }
  1776. X                break;
  1777. X        }
  1778. X
  1779. X        info_message (txt_post_processing_finished);
  1780. X        sleep (1);
  1781. X        return TRUE;
  1782. X    }
  1783. X    return FALSE;
  1784. }
  1785. X
  1786. X
  1787. void post_process_uud (pp)
  1788. X    int pp;
  1789. {
  1790. #ifndef INDEX_DAEMON
  1791. X
  1792. X    char s[LEN], t[LEN], u[LEN];
  1793. X    char buf[LEN], *file;
  1794. X    char file_out[LEN];
  1795. X    char file_out_dir[LEN];
  1796. X    FILE *fp_in, *fp_out;
  1797. X    int i, state = INITIAL;
  1798. X    int file_size = 0;
  1799. X    struct stat st;
  1800. X    
  1801. X    t[0] = '\0';
  1802. X    u[0] = '\0';
  1803. X
  1804. X    my_strncpy (file_out_dir, save_filename (0), LEN);
  1805. X    for (i=strlen(file_out_dir) ; i > 0 ; i--) {
  1806. X        if (file_out_dir[i] == '/') {
  1807. X            file_out_dir[i] = '\0';
  1808. X            break;
  1809. X        }
  1810. X    }
  1811. X
  1812. X    sprintf (file_out, "%s/tin.%05d", file_out_dir, process_id);
  1813. X    
  1814. X    if ((fp_out = fopen (file_out, "a+")) == NULL) {
  1815. X        error_message (txt_cannot_open, file_out);
  1816. X    }
  1817. X
  1818. X
  1819. X    for (i=0 ; i < save_num ; i++) {
  1820. X        my_strncpy (buf, save_filename (i), LEN);
  1821. X
  1822. X        if ((fp_in = fopen (buf, "r")) != NULL) {
  1823. X            if (fgets (s, sizeof s, fp_in) == NULL) {
  1824. X                fclose (fp_in);
  1825. X                continue;
  1826. X            }
  1827. X            while (state != END) { 
  1828. X                switch (state) {
  1829. X                    case INITIAL:
  1830. X                        if (! strncmp ("begin", s, 5)) {
  1831. X                            state = MIDDLE;
  1832. X                            fprintf (fp_out, "%s", s);
  1833. X                        }
  1834. X                        break;
  1835. X
  1836. X                    case MIDDLE:
  1837. X                        if (s[0] == 'M') {
  1838. X                            fprintf (fp_out, "%s", s);
  1839. X                        } else if (strncmp("end", s, 3)) {
  1840. X                            state = OFF;
  1841. X                        } else { /* end */
  1842. X                            state = END;
  1843. X                            if (u[0] != 'M') {
  1844. X                                fprintf (fp_out, "%s", u);
  1845. X                            }
  1846. X                            if (t[0] != 'M') {
  1847. X                                fprintf (fp_out, "%s", t);
  1848. X                            }
  1849. X                            fprintf (fp_out, "%s\n", s);
  1850. X                        }
  1851. X                        break;
  1852. X
  1853. X                    case OFF:
  1854. X                        if ((s[0] == 'M') && (t[0] == 'M') && (u[0] == 'M')) {
  1855. X                            fprintf (fp_out, "%s", u);
  1856. X                            fprintf (fp_out, "%s", t);
  1857. X                            fprintf (fp_out, "%s", s);
  1858. X                            state = MIDDLE;
  1859. X                        } else if (! strncmp ("end", s, 3)) {
  1860. X                            state = END;
  1861. X                            if (u[0] != 'M') {
  1862. X                                fprintf (fp_out, "%s", u);
  1863. X                            }
  1864. X                            if (t[0] != 'M') {
  1865. X                                fprintf (fp_out, "%s", t);
  1866. X                            }
  1867. X                            fprintf (fp_out, "%s\n", s);
  1868. X                        }
  1869. X                        break;
  1870. X
  1871. X                    case END:
  1872. X                        break;
  1873. X
  1874. X                    default:
  1875. X                        fprintf (stderr, "\r\nerror: ASSERT - default state\n");
  1876. X                        fclose (fp_in);
  1877. X                        fclose (fp_out);
  1878. X                        unlink (file_out);
  1879. X                        return;
  1880. X                }
  1881. X                strcpy (u,t);
  1882. X                strcpy (t,s);
  1883. X                /*
  1884. X                 *  read next line & if error goto next file in save array
  1885. X                 */
  1886. X                if (fgets (s, sizeof s, fp_in) == NULL) {
  1887. X                    break;
  1888. X                }
  1889. X            }
  1890. X            fclose (fp_in);
  1891. X        }
  1892. X    }
  1893. X    fclose (fp_out);
  1894. X
  1895. X    /*
  1896. X     *  uudecode file
  1897. X     */
  1898. X    wait_message (txt_uudecoding);
  1899. X    
  1900. X    sprintf (buf, "cd %s; uudecode %s", file_out_dir, file_out); 
  1901. X    if (invoke_cmd (buf)) {
  1902. X        set_real_uid_gid ();
  1903. X        /*
  1904. X         *  sum file
  1905. X         */
  1906. X        if ((file = get_archive_file (file_out_dir, "*")) != NULL) { 
  1907. X            sprintf (buf, "%s %s", DEFAULT_SUM, file); 
  1908. X            printf ("\r\n\r\nChecksum of %s...\r\n\r\n", file); 
  1909. X            fflush (stdout);
  1910. X            if ((fp_in = popen (buf, "r")) == NULL) {
  1911. X                printf ("Cannot execute %s\r\n", buf); 
  1912. X                fflush (stdout);
  1913. X            } else {
  1914. X                if (stat (file, &st) != -1) {
  1915. X                    file_size = (int) st.st_size;
  1916. X                }
  1917. X                if (fgets (buf, sizeof buf, fp_in) != NULL) {
  1918. X                    buf[strlen (buf)-1] = '\0';
  1919. X                }
  1920. X                fclose (fp_in);
  1921. X                printf ("%s  %8d bytes\r\n", buf, file_size); 
  1922. X                fflush (stdout);
  1923. X            }
  1924. X            if (file != (char *) 0) {
  1925. X                free (file);
  1926. X                file = (char *) 0;
  1927. X            }
  1928. X        }
  1929. X    }
  1930. X
  1931. X    set_real_uid_gid ();
  1932. X
  1933. X    if (pp > POST_PROC_UUDECODE) {
  1934. X        sprintf (buf, "*.%s", archiver[pp].ext); 
  1935. X        if ((file = get_archive_file (file_out_dir, buf)) != NULL) {
  1936. X            if (pp == POST_PROC_UUD_EXT_ZOO) {
  1937. X                sprintf (buf, "cd %s; %s %s %s", file_out_dir,
  1938. X                    archiver[pp].name, archiver[pp].extract, file);
  1939. X                printf ("\r\n\r\nListing %s archive...\r\n", file); 
  1940. X            } else {
  1941. X                sprintf (buf, "cd %s; %s %s %s", file_out_dir,
  1942. X                    archiver[pp].name, archiver[pp].list, file);
  1943. X                printf ("\r\n\r\nExtracting %s archive...\r\n", file);
  1944. X            }
  1945. X            fflush (stdout);
  1946. X            if (file != (char *) 0) {
  1947. X                free (file);
  1948. X                file = (char *) 0;
  1949. X            }
  1950. X            if (! invoke_cmd (buf)) {
  1951. SHAR_EOF
  1952. true || echo 'restore of save.c failed'
  1953. fi
  1954. echo 'End of tin1.1 part 9'
  1955. echo 'File save.c is continued in part 10'
  1956. echo 10 > _shar_seq_.tmp
  1957. exit 0
  1958.  
  1959. --
  1960. NAME   Iain Lea 
  1961. EMAIL  iain%anl433.uucp@germany.eu.net
  1962. SNAIL  Siemens AG, ANL A433SZ, Gruendlacher Str. 248, 8510 Fuerth, Germany.
  1963. PHONE  +49-911-3089-407 (work) +49-911-331963 (home) +49-911-3089-290 (FAX)  
  1964. -- 
  1965.  Dr. med. dipl.-math Dieter Becker           Tel.: (0 / +49) 6841 - 16 3046
  1966.  Medizinische Universitaets- und Poliklinik  Fax.: (0 / +49) 6841 - 16 3369
  1967.  Innere Medizin III                         
  1968.  D - 6650 Homburg / Saar                     Email: becker@med-in.uni-sb.de
  1969. exit 0 # Just in case...
  1970.