home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume22 / elm2.3 / part23 < prev    next >
Text File  |  1990-06-07  |  50KB  |  1,856 lines
  1. Subject:  v22i085:  ELM mail syste, release 2.3, Part23/26
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 0c166c91 0a54b00a 842e22a7 b9bf7105
  5.  
  6. Submitted-by: Syd Weinstein <syd@dsinc.dsi.com>
  7. Posting-number: Volume 22, Issue 85
  8. Archive-name: elm2.3/part23
  9.  
  10. #!/bin/sh
  11. # this is part 23 of a multipart archive
  12. # do not concatenate these parts, unpack them in order with /bin/sh
  13. # file src/syscall.c continued
  14. #
  15. CurArch=23
  16. if test ! -r s2_seq_.tmp
  17. then echo "Please unpack part 1 first!"
  18.      exit 1; fi
  19. ( read Scheck
  20.   if test "$Scheck" != $CurArch
  21.   then echo "Please unpack part $Scheck next!"
  22.        exit 1;
  23.   else exit 0; fi
  24. ) < s2_seq_.tmp || exit 1
  25. echo "x - Continuing file src/syscall.c"
  26. sed 's/^X//' << 'SHAR_EOF' >> src/syscall.c
  27. X    int  old_raw, helpful, ret;
  28. X
  29. X    helpful = (user_level == 0);
  30. X
  31. X    if (helpful)
  32. X      PutLine0(LINES-3,COLUMNS-40,"(Use the shell name for a shell.)");
  33. X    PutLine0(LINES-2,0,"Shell command: ");
  34. X    CleartoEOS();
  35. X    command[0] = '\0';
  36. X    (void) optionally_enter(command, LINES-2, 15, FALSE, FALSE);
  37. X    if (command[0] == 0) {
  38. X      if (helpful)
  39. X        MoveCursor(LINES-3,COLUMNS-40);
  40. X      else
  41. X        MoveCursor(LINES-2,0);
  42. X      CleartoEOS();
  43. X      return 0;
  44. X    }
  45. X
  46. X    MoveCursor(LINES,0);
  47. X    CleartoEOLN();
  48. X
  49. X    if ((old_raw = RawState()) == ON)
  50. X      Raw(OFF);
  51. X    softkeys_off();
  52. X    if (cursor_control)
  53. X      transmit_functions(OFF);
  54. X    
  55. X    umask(original_umask);    /* restore original umask so users new files are ok */
  56. X    ret = system_call(command, USER_SHELL, TRUE, TRUE);
  57. X    umask(077);        /* now put it back to private for mail files */
  58. X
  59. X    PutLine0(LINES, 0, "\n\nPress any key to return to ELM: ");
  60. X    Raw(ON);
  61. X    (void) getchar();
  62. X    if (old_raw == OFF)
  63. X      Raw(OFF);
  64. X    softkeys_on();
  65. X    if (cursor_control)
  66. X      transmit_functions(ON);
  67. X
  68. X    if (ret)
  69. X      error1("Return code was %d.", ret);
  70. X
  71. X    return 1;
  72. X}
  73. X
  74. X#endif /* ALLOW_SUBSHELL */
  75. X
  76. Xsystem_call(string, shell_type, allow_signals, allow_interrupt)
  77. Xchar *string;
  78. Xint   shell_type, allow_signals, allow_interrupt;
  79. X{
  80. X    /** execute 'string', setting uid to userid... **/
  81. X    /** if shell-type is "SH" /bin/sh is used regardless of the 
  82. X        users shell setting.  Otherwise, "USER_SHELL" is sent.
  83. X        If allow_signals is TRUE, then allow the executed
  84. X        command handle hangup, and optionally if allow_interrupt
  85. X        is also true handle interrupt in its own way.
  86. X        This is useful for executed programs with
  87. X        user interaction that handle those signals on their
  88. X        own terms. It is especially important for vi, so that
  89. X        a message being edited when a user connection is
  90. X        dropped is recovered by vi's expreserve program **/
  91. X
  92. X    int stat = 0, pid, w;
  93. X#if defined(BSD) && !defined(WEXITSTATUS)
  94. X    union wait status;
  95. X#else
  96. X    int status;
  97. X#endif
  98. X#ifdef VOIDSIG
  99. X    register void (*istat)(), (*qstat)();
  100. X# ifdef SIGTSTP
  101. X    register void (*oldstop)(), (*oldstart)();
  102. X# endif
  103. X#else
  104. X    register int (*istat)(), (*qstat)();
  105. X# ifdef SIGTSTP
  106. X    register int (*oldstop)(), (*oldstart)();
  107. X# endif 
  108. X#endif
  109. X    
  110. X    dprint(2, (debugfile,
  111. X        "System Call: %s\n\t%s\n", shell_type == SH? "/bin/sh" : shell,
  112. X        string));
  113. X
  114. X#ifdef VFORK
  115. X    if ((pid = vfork()) == 0)
  116. X#else
  117. X    if ((pid = fork()) == 0)
  118. X#endif
  119. X    {
  120. X      setgid(groupid);    /* and group id            */
  121. X      setuid(userid);    /* back to the normal user! */
  122. X
  123. X      if(allow_signals) {
  124. X        /* program to exec should handle interrupt, accidental hangup, and stop signals */
  125. X        (void)signal(SIGHUP, SIG_DFL);
  126. X        if (allow_interrupt)
  127. X          (void)signal(SIGINT, SIG_DFL);
  128. X        else
  129. X          (void)signal(SIGINT, SIG_IGN);
  130. X#ifdef SIGTSTP
  131. X        (void)signal(SIGTSTP, SIG_DFL);
  132. X        (void)signal(SIGCONT, SIG_DFL);
  133. X#endif
  134. X      } else {
  135. X        /* program to exec should ignore interrupt, accidental hangup, and stop signals */
  136. X        (void)signal(SIGHUP, SIG_IGN);
  137. X        (void)signal(SIGINT, SIG_IGN);
  138. X#ifdef SIGTSTP
  139. X        (void)signal(SIGTSTP, SIG_IGN);
  140. X        (void)signal(SIGCONT, SIG_IGN);
  141. X#endif
  142. X      }
  143. X
  144. X      if (strlen(shell) > 0 && shell_type == USER_SHELL) {
  145. X        execl(shell, argv_zero(shell), "-c", string, (char *) 0);
  146. X      }
  147. X      else 
  148. X        execl("/bin/sh", "sh", "-c", string, (char *) 0);
  149. X      _exit(127);
  150. X    }
  151. X
  152. X    istat = signal(SIGINT, SIG_IGN);
  153. X    qstat = signal(SIGQUIT, SIG_IGN);
  154. X#ifdef SIGTSTP
  155. X    oldstop = signal(SIGTSTP, SIG_DFL);
  156. X    oldstart = signal(SIGCONT, SIG_DFL);
  157. X#endif
  158. X
  159. X    while ((w = wait(&status)) != pid && w != -1)
  160. X        ;
  161. X
  162. X
  163. X    if (w == pid) {
  164. X#ifdef    WEXITSTATUS
  165. X      stat = WEXITSTATUS(status);
  166. X#else
  167. X# ifdef    BSD
  168. X      if (status.w_retcode != 0) stat = status.w_retcode;
  169. X# else
  170. X      stat = status;
  171. X# endif
  172. X#endif
  173. X    }
  174. X
  175. X    (void)signal(SIGINT, istat);
  176. X    (void)signal(SIGQUIT, qstat);
  177. X#ifdef SIGTSTP
  178. X    (void)signal(SIGTSTP, oldstop);
  179. X    (void)signal(SIGCONT, oldstart);
  180. X#endif
  181. X
  182. X    return(stat);
  183. X}
  184. X
  185. Xint
  186. Xdo_pipe()
  187. X{
  188. X    /** pipe the current message or tagged messages to
  189. X        the specified sequence.. **/
  190. X
  191. X    char command[SLEN], buffer[SLEN], message_list[SLEN];
  192. X    register int  ret, to_pipe;
  193. X    int    old_raw;
  194. X
  195. X    to_pipe = make_msg_list(message_list);
  196. X    sprintf(buffer, "Pipe message%s to: ", plural(to_pipe));
  197. X        PutLine0(LINES-2,0,buffer);
  198. X
  199. X    command[0] = '\0';
  200. X
  201. X    (void) optionally_enter(command, LINES-2, strlen(buffer), FALSE, FALSE);
  202. X    if (strlen(command) == 0) {
  203. X      MoveCursor(LINES-2,0);    CleartoEOLN();
  204. X      return(0);
  205. X    }
  206. X
  207. X    MoveCursor(LINES,0);     CleartoEOLN();
  208. X    if (( old_raw = RawState()) == ON)
  209. X      Raw(OFF);
  210. X
  211. X    if (cursor_control)  transmit_functions(OFF);
  212. X    
  213. X    sprintf(buffer, "%s -f %s -h %s | %s",
  214. X        readmsg,
  215. X        (folder_type == NON_SPOOL ? cur_folder : cur_tempfolder),
  216. X        message_list,
  217. X        command);
  218. X    
  219. X    ret = system_call(buffer, USER_SHELL, TRUE, TRUE);
  220. X
  221. X    PutLine0(LINES, 0, "\n\nPress any key to return to ELM.");
  222. X    if (old_raw == ON)
  223. X       Raw(ON);
  224. X    (void) getchar();
  225. X    if (cursor_control)  transmit_functions(ON);
  226. X
  227. X    if (ret != 0) error1("Return code was %d.", ret);
  228. X    return(1);
  229. X}
  230. X
  231. Xprint_msg()
  232. X{
  233. X    /** Print current message or tagged messages using 'printout' 
  234. X        variable.  Error message iff printout not defined! **/
  235. X
  236. X    char buffer[SLEN], filename[SLEN], printbuffer[SLEN];
  237. X    char message_list[SLEN];
  238. X    register int  retcode, to_print;
  239. X
  240. X    if (strlen(printout) == 0) {
  241. X      error("Don't know how to print - option \"printmail\" undefined!");
  242. X      return;
  243. X    }
  244. X    
  245. X    to_print = make_msg_list(message_list);
  246. X
  247. X    sprintf(filename,"%s%s%d", temp_dir, temp_print, getpid());
  248. X
  249. X    if (in_string(printout, "%s"))
  250. X      sprintf(printbuffer, printout, filename);
  251. X    else
  252. X      sprintf(printbuffer, "%s %s", printout, filename);
  253. X
  254. X    sprintf(buffer,"(%s -p -f %s%s > %s; %s 2>&1) > /dev/null",
  255. X        readmsg,
  256. X        (folder_type == NON_SPOOL ? cur_folder : cur_tempfolder),
  257. X        message_list, 
  258. X        filename,
  259. X        printbuffer);
  260. X    
  261. X    dprint(2, (debugfile, "Printing system call...\n"));
  262. X
  263. X      Centerline(LINES, "Queuing...");
  264. X
  265. X    if ((retcode = system_call(buffer, SH, FALSE, FALSE)) == 0) {
  266. X      sprintf(buffer, "Message%s queued up to print.", plural(to_print));
  267. X      Centerline(LINES, buffer);
  268. X    }
  269. X    else
  270. X      error1("Printout failed with return code %d.", retcode);
  271. X
  272. X    unlink(filename);    /* remove da temp file! */
  273. X}
  274. X
  275. Xmake_msg_list(message_list)
  276. Xchar *message_list;
  277. X{
  278. X    /** make a list of the tagged or just the current, if none tagged.
  279. X        check for overflow on messsage length
  280. X         **/
  281. X
  282. X    int i, msgs_selected = 0;
  283. X
  284. X    *message_list = '\0';    /* start with an empty list */
  285. X
  286. X    for (i=0; i < message_count; i++) 
  287. X      if (headers[i]->status & TAGGED) {
  288. X        if (strlen(message_list) + 6 >= SLEN) {
  289. X          error1("Too many messages selected, messages from %d on not used", i);
  290. X          return(msgs_selected);
  291. X          }
  292. X        sprintf(message_list, "%s %d", message_list, 
  293. X            headers[i]->index_number);
  294. X        msgs_selected++;
  295. X      }
  296. X
  297. X    if (! msgs_selected) {
  298. X      sprintf(message_list," %d", headers[current-1]->index_number);
  299. X      msgs_selected = 1;
  300. X    }
  301. X    
  302. X    return(msgs_selected);
  303. X}
  304. X
  305. Xlist_folders(numlines, helpmsg)
  306. Xunsigned numlines;
  307. Xchar *helpmsg;
  308. X{
  309. X    /** list the folders in the users FOLDERHOME directory.  This is
  310. X        simply a call to "ls -C"
  311. X        Numlines is the number of lines to scroll afterwards. This is
  312. X        useful when a portion of the screen needs to be cleared for
  313. X        subsequent prompts, but you don't want to overwrite the
  314. X        list of folders.
  315. X        Helpmsg is what should be printed before the listing if not NULL.
  316. X    **/
  317. X
  318. X    char buffer[SLEN];
  319. X
  320. X    Raw(OFF);
  321. X    ClearScreen();
  322. X    MoveCursor(LINES, 0);
  323. X    if(helpmsg)
  324. X      printf(helpmsg);
  325. X    sprintf(buffer, "cd %s;ls -C", folders);
  326. X    printf("\n\rContents of your folder directory:\n\r\n\r");
  327. X    system_call(buffer, SH, FALSE, FALSE); 
  328. X    while(numlines--)
  329. X        printf("\n\r");
  330. X    Raw(ON);
  331. X}
  332. SHAR_EOF
  333. echo "File src/syscall.c is complete"
  334. chmod 0444 src/syscall.c || echo "restore of src/syscall.c fails"
  335. echo "x - extracting src/utils.c (Text)"
  336. sed 's/^X//' << 'SHAR_EOF' > src/utils.c &&
  337. X
  338. Xstatic char rcsid[] = "@(#)$Id: utils.c,v 4.1 90/04/28 22:44:19 syd Exp $";
  339. X
  340. X/*******************************************************************************
  341. X *  The Elm Mail System  -  $Revision: 4.1 $   $State: Exp $
  342. X *
  343. X *             Copyright (c) 1986, 1987 Dave Taylor
  344. X *             Copyright (c) 1988, 1989, 1990 USENET Community Trust
  345. X *******************************************************************************
  346. X * Bug reports, patches, comments, suggestions should be sent to:
  347. X *
  348. X *    Syd Weinstein, Elm Coordinator
  349. X *    elm@DSI.COM            dsinc!elm
  350. X *
  351. X *******************************************************************************
  352. X * $Log:    utils.c,v $
  353. X * Revision 4.1  90/04/28  22:44:19  syd
  354. X * checkin of Elm 2.3 as of Release PL0
  355. X * 
  356. X *
  357. X ******************************************************************************/
  358. X
  359. X/** Utility routines for ELM
  360. X
  361. X**/
  362. X
  363. X#include "headers.h"
  364. X#include <sys/types.h>
  365. X#include <sys/stat.h>
  366. X#include <ctype.h>
  367. X#include <errno.h>
  368. X
  369. X#ifdef BSD
  370. X#undef tolower
  371. X#endif
  372. X
  373. X#include <signal.h>
  374. X
  375. Xextern int errno;
  376. X
  377. Xchar *error_name();
  378. Xvoid   exit();
  379. X
  380. Xcreate_new_folders()
  381. X{
  382. X    /* this creates a new folders directory */
  383. X
  384. X#ifdef MKDIR
  385. X    (void) mkdir(folders, 0700);
  386. X#else
  387. X    char com[SLEN];
  388. X
  389. X    /** Some systems don't have a mkdir call - how inconvienient! **/
  390. X
  391. X    sprintf(com, "mkdir %s", folders);
  392. X    system_call(com, SH, FALSE, FALSE);
  393. X    sprintf(com, "chmod 700 %s", folders);
  394. X    system_call(com, SH, FALSE, FALSE);
  395. X#endif /* MKDIR */
  396. X
  397. X    chown(folders, userid, groupid);
  398. X}
  399. X
  400. Xcreate_new_elmdir()
  401. X{
  402. X    /** this routine is just for allowing new users who don't have the
  403. X        old elm files to create a new .elm directory **/
  404. X
  405. X    char source[SLEN];
  406. X#ifdef MKDIR
  407. X    sprintf(source, "%s/.elm", home);
  408. X    (void) mkdir(source, 0700);
  409. X#else
  410. X    char com[SLEN];
  411. X
  412. X    /** Some systems don't have a mkdir call - how inconvienient! **/
  413. X
  414. X    sprintf(com, "mkdir %s/.elm", home);
  415. X    system_call(com, SH, FALSE, FALSE);
  416. X    sprintf(com, "chmod 700 %s/.elm", home);
  417. X    system_call(com, SH, FALSE, FALSE);
  418. X#endif /* MKDIR */
  419. X
  420. X    chown( source, userid, groupid);
  421. X}
  422. X
  423. Xmove_old_files_to_new()
  424. X{
  425. X    /** this routine is just for allowing people to transition from
  426. X        the old Elm, where things are all kept in their $HOME dir,
  427. X        to the new one where everything is in $HOME/.elm... **/
  428. X
  429. X    char source[SLEN], dest[SLEN], temp[SLEN];
  430. X    char com[SLEN];
  431. X
  432. X    /** simply go through all the files... **/
  433. X
  434. X    sprintf(source, "%s/.alias_text", home);
  435. X    if (access(source, ACCESS_EXISTS) != -1) {
  436. X      sprintf(dest,   "%s/%s", home, ALIAS_TEXT);
  437. X      printf("\n\rCopying from: %s\n\rCopying to:   %s\n\r", source, dest);
  438. X
  439. X      sprintf(temp, "/tmp/%d", getpid());
  440. X      sprintf(com, "%s -e 's/:/=/g' %s > %s\n", sed_cmd, source, temp);
  441. X      (void) system_call(com, SH, FALSE, FALSE);
  442. X      sprintf(com, "%s %s %s\n", move_cmd, temp, dest);
  443. X      (void) system_call(com, SH, FALSE, FALSE);
  444. X      (void) system_call("newalias", SH, FALSE, FALSE);
  445. X    }
  446. X
  447. X    sprintf(source, "%s/.elmheaders", home);
  448. X    if (access(source, ACCESS_EXISTS) != -1) {
  449. X      sprintf(dest,   "%s/%s", home, mailheaders);
  450. X      printf("\n\rCopying from: %s\n\rCopying to:   %s\n\r", source, dest);
  451. X      copy(source, dest);
  452. X    }
  453. X
  454. X    sprintf(source, "%s/.elmrc", home);
  455. X    if (access(source, ACCESS_EXISTS) != -1) {
  456. X      sprintf(dest,   "%s/%s", home, elmrcfile);
  457. X      printf("\n\rCopying from: %s\n\rCopying to:   %s\n\r", source, dest);
  458. X      copy(source, dest);
  459. X    }
  460. X
  461. X    printf(
  462. X    "\n\rWelcome to the new version of ELM!\n\n\rHit return to continue.");
  463. X    getchar();
  464. X}
  465. X
  466. Xemergency_exit()
  467. X{
  468. X    /** used in dramatic cases when we must leave without altering
  469. X        ANYTHING about the system... **/
  470. X    char *mk_lockname();
  471. X
  472. X    dprint(1, (debugfile,
  473. X     "\nERROR: Something dreadful is happening!  Taking emergency exit!!\n\n"));
  474. X    dprint(1, (debugfile,
  475. X         "  possibly leaving behind the following files;\n"));
  476. X    dprint(1, (debugfile,
  477. X         "     The mailbox tempfile : %s\n", cur_tempfolder));
  478. X    if(folder_type == SPOOL) dprint(1, (debugfile,
  479. X         "     The mailbox lock file: %s\n", mk_lockname(cur_folder)));
  480. X    dprint(1, (debugfile,
  481. X         "     The composition file : %s%s%d\n", temp_dir, temp_file, getpid()));
  482. X    dprint(1, (debugfile,
  483. X         "     The readmsg data file: %s/%s\n", home, readmsg_file));
  484. X
  485. X    Raw(OFF);
  486. X    if (cursor_control)  transmit_functions(OFF);
  487. X    if (hp_terminal)     softkeys_off();
  488. X
  489. X    if (cursor_control)
  490. X      MoveCursor(LINES, 0);
  491. X
  492. X    PutLine0(LINES,0,
  493. X        "\nEmergency exit taken! All temp files intact!\n\n");
  494. X
  495. X    exit(1);
  496. X}
  497. Xrm_temps_exit()
  498. X{
  499. X      char buffer[SLEN];
  500. X      PutLine0(LINES,0,
  501. X         "\nWrite to temp file failed, exiting leaving mailbox intact!\n\n");
  502. X      dprint(2, (debugfile, "\nrm_temps_exit, deleteing temp files\n"));
  503. X      Raw(OFF);
  504. X      if (cursor_control)  transmit_functions(OFF);
  505. X      if (hp_terminal)     softkeys_off();
  506. X      sprintf(buffer,"%s%d",temp_file, getpid());  /* editor buffer */
  507. X      (void) unlink(buffer);
  508. X      if (folder_type == SPOOL) {
  509. X        (void) unlink(cur_tempfolder);
  510. X      }
  511. X      sprintf(buffer,"%s/%s", home, readmsg_file);  /* readmsg temp */
  512. X      (void) unlink(buffer);
  513. X      unlock();                               /* remove lock file if any */
  514. X      if(!batch_only) {
  515. X        MoveCursor(LINES,0);
  516. X        NewLine();
  517. X      }
  518. X      exit(1);
  519. X}
  520. X
  521. X/*ARGSUSED*/
  522. X/*VARARGS0*/
  523. X
  524. Xleave(val)
  525. Xint val;    /* not used, placeholder for signal catching! */
  526. X{
  527. X    char buffer[SLEN];
  528. X
  529. X    dprint(2, (debugfile, "\nLeaving mailer normally (leave)\n"));
  530. X
  531. X    Raw(OFF);
  532. X    if (cursor_control)  transmit_functions(OFF);
  533. X    if (hp_terminal)     softkeys_off();
  534. X
  535. X    sprintf(buffer,"%s%s%d", temp_dir, temp_file, getpid());  /* editor buffer */
  536. X    (void) unlink(buffer);
  537. X
  538. X    if (folder_type == SPOOL) {
  539. X      (void) unlink(cur_tempfolder);
  540. X    }
  541. X
  542. X    sprintf(buffer,"%s/%s", home, readmsg_file);  /* readmsg temp */
  543. X    (void) unlink(buffer);
  544. X
  545. X    unlock();                /* remove lock file if any */
  546. X
  547. X    if(!batch_only) {
  548. X      MoveCursor(LINES,0);
  549. X      NewLine();
  550. X    }
  551. X
  552. X    exit(0);
  553. X}
  554. X
  555. Xsilently_exit()
  556. X{
  557. X    /** This is the same as 'leave', but it doesn't remove any non-pid
  558. X        files.  It's used when we notice that we're trying to create a
  559. X        temp mail file and one already exists!!
  560. X    **/
  561. X    char buffer[SLEN];
  562. X
  563. X    dprint(2, (debugfile, "\nLeaving mailer quietly (silently_exit)\n"));
  564. X
  565. X    Raw(OFF);
  566. X    if (cursor_control)  transmit_functions(OFF);
  567. X    if (hp_terminal)     softkeys_off();
  568. X
  569. X    sprintf(buffer,"%s%s%d", temp_dir, temp_file, getpid());  /* editor buffer */
  570. X    (void) unlink(buffer);
  571. X
  572. X    MoveCursor(LINES,0);
  573. X    NewLine();
  574. X
  575. X    exit(0);
  576. X}
  577. X
  578. X/*ARGSUSED0*/
  579. X
  580. X#ifndef REMOVE_AT_LAST
  581. Xleave_locked(val)
  582. Xint val;    /* not used, placeholder for signal catching! */
  583. X{
  584. X    /** same as leave routine, but don't disturb lock file **/
  585. X
  586. X    char buffer[SLEN];
  587. X
  588. X        dprint(3, (debugfile,
  589. X        "\nLeaving mailer due to presence of lock file (leave_locked)\n"));
  590. X
  591. X    Raw(OFF);
  592. X    if (cursor_control)  transmit_functions(OFF);
  593. X    if (hp_terminal)     softkeys_off();
  594. X
  595. X    sprintf(buffer,"%s%s%d", temp_dir, temp_file, getpid());  /* editor buffer */
  596. X    (void) unlink(buffer);
  597. X
  598. X    (void) unlink(cur_tempfolder);            /* temp mailbox */
  599. X
  600. X    MoveCursor(LINES,0);
  601. X    NewLine();
  602. X    exit(0);
  603. X}
  604. X#endif
  605. X
  606. Xint
  607. Xget_page(msg_pointer)
  608. Xint msg_pointer;
  609. X{
  610. X    /** Ensure that 'current' is on the displayed page,
  611. X        returning NEW_PAGE iff the page changed! **/
  612. X
  613. X    register int first_on_page, last_on_page;
  614. X
  615. X    first_on_page = (header_page * headers_per_page) + 1;
  616. X
  617. X    last_on_page = first_on_page + headers_per_page - 1;
  618. X
  619. X    if (selected)    /* but what is it on the SCREEN??? */
  620. X      msg_pointer = compute_visible(msg_pointer);
  621. X
  622. X    if (selected && msg_pointer > selected)
  623. X      return(SAME_PAGE);    /* too far - page can't change! */
  624. X
  625. X    if (msg_pointer > last_on_page) {
  626. X      header_page = (int) (msg_pointer-1)/ headers_per_page;
  627. X      return(NEW_PAGE);
  628. X    }
  629. X    else if (msg_pointer < first_on_page) {
  630. X      header_page = (int) (msg_pointer-1) / headers_per_page;
  631. X      return(NEW_PAGE);
  632. X    }
  633. X    else
  634. X      return(SAME_PAGE);
  635. X}
  636. X
  637. Xchar *nameof(filename)
  638. Xchar *filename;
  639. X{
  640. X    /** checks to see if 'filename' has any common prefixes, if
  641. X        so it returns a string that is the same filename, but
  642. X        with '=' as the folder directory, or '~' as the home
  643. X        directory..
  644. X    **/
  645. X
  646. X    static char buffer[STRING];
  647. X    register int i = 0, iindex = 0;
  648. X
  649. X    if (strncmp(filename, folders, strlen(folders)) == 0) {
  650. X      if (strlen(folders) > 0) {
  651. X        buffer[i++] = '=';
  652. X        iindex = strlen(folders);
  653. X        if(filename[iindex] == '/')
  654. X          iindex++;
  655. X      }
  656. X    }
  657. X    else if (strncmp(filename, home, strlen(home)) == 0) {
  658. X      if (strlen(home) > 1) {
  659. X        buffer[i++] = '~';
  660. X        iindex = strlen(home);
  661. X      }
  662. X    }
  663. X    else iindex = 0;
  664. X
  665. X    while (filename[iindex] != '\0')
  666. X      buffer[i++] = filename[iindex++];
  667. X    buffer[i] = '\0';
  668. X
  669. X    return( (char *) buffer);
  670. X}
  671. SHAR_EOF
  672. chmod 0444 src/utils.c || echo "restore of src/utils.c fails"
  673. echo "x - extracting src/validname.c (Text)"
  674. sed 's/^X//' << 'SHAR_EOF' > src/validname.c &&
  675. X
  676. Xstatic char rcsid[] = "@(#)$Id: validname.c,v 4.1 90/04/28 22:44:21 syd Exp $";
  677. X
  678. X/*******************************************************************************
  679. X *  The Elm Mail System  -  $Revision: 4.1 $   $State: Exp $
  680. X *
  681. X *             Copyright (c) 1986, 1987 Dave Taylor
  682. X *             Copyright (c) 1988, 1989, 1990 USENET Community Trust
  683. X *******************************************************************************
  684. X * Bug reports, patches, comments, suggestions should be sent to:
  685. X *
  686. X *    Syd Weinstein, Elm Coordinator
  687. X *    elm@DSI.COM            dsinc!elm
  688. X *
  689. X *******************************************************************************
  690. X * $Log:    validname.c,v $
  691. X * Revision 4.1  90/04/28  22:44:21  syd
  692. X * checkin of Elm 2.3 as of Release PL0
  693. X * 
  694. X *
  695. X ******************************************************************************/
  696. X
  697. X#include "defs.h"
  698. X
  699. X#include <stdio.h>
  700. X
  701. X#ifndef NOCHECK_VALIDNAME         /* Force a return of valid */
  702. X# ifdef PWDINSYS
  703. X#  include <sys/pwd.h>
  704. X# else
  705. X#  include <pwd.h>
  706. X# endif
  707. X#endif
  708. X
  709. Xint
  710. Xvalid_name(name)
  711. Xchar *name;
  712. X{
  713. X    /** Determine whether "name" is a valid logname on this system.
  714. X        It is valid if there is a password entry, or if there is
  715. X        a mail file in the mail spool directory for "name".
  716. X     **/
  717. X
  718. X#ifdef NOCHECK_VALIDNAME         /* Force a return of valid */
  719. X
  720. X    return(TRUE);
  721. X
  722. X#else
  723. X
  724. X    char filebuf[SLEN];
  725. X    struct passwd *getpwnam();
  726. X
  727. X    if(getpwnam(name) != NULL)
  728. X      return(TRUE);
  729. X
  730. X    sprintf(filebuf,"%s/%s", mailhome, name);
  731. X    if (access(filebuf, ACCESS_EXISTS) == 0)
  732. X      return(TRUE);
  733. X
  734. X    return(FALSE);
  735. X
  736. X#endif
  737. X}
  738. SHAR_EOF
  739. chmod 0444 src/validname.c || echo "restore of src/validname.c fails"
  740. echo "x - extracting test/test.empty (Text)"
  741. sed 's/^X//' << 'SHAR_EOF' > test/test.empty &&
  742. SHAR_EOF
  743. chmod 0444 test/test.empty || echo "restore of test/test.empty fails"
  744. echo "x - extracting test/test.mail (Text)"
  745. sed 's/^X//' << 'SHAR_EOF' > test/test.mail &&
  746. XFrom root Wed Oct 30 14:03:36 1985
  747. X>From srmmail Wed Oct 30 14:10:08 1985  remote from veeger
  748. X>From hplabs Wed Oct 30 14:00:16 1985 remote from hpcnof
  749. X>From hpl-opus!poulton  Wed Oct 30 02:06:16 1985 remote from hplabs
  750. XDate: Wed, 30 Oct 85 01:55:05 pst
  751. XFrom: <hplabs!hpl-opus!poulton>
  752. XReceived: by HP-VENUS id AA26352; Wed, 30 Oct 85 01:55:05 pst
  753. XMessage-Id: <8510300955.AA26352@HP-VENUS>
  754. XTo: hplabs!hpldat!taylor
  755. XSubject: Re: announce(1)
  756. X
  757. XThe announce I got was shar'd July 8.   NLEN was not defined in that
  758. Xsource, just used.  LONG_SLEN is not defined in the newmail(1)
  759. Xthat you sent me.  What system are you running on?
  760. XMy s500 doesn't have these def's.
  761. X
  762. X    -> Monday, January 3rd: Call your mother
  763. X
  764. XAs to announce --> newmail: why the switch?
  765. XSeems like both are useful, in different situations.
  766. X
  767. XKen Poulton
  768. XHPL
  769. X
  770. X
  771. X
  772. X
  773. XFrom root Wed Oct 30 14:03:39 1985
  774. X>From srmmail Wed Oct 30 14:10:12 1985  remote from veeger
  775. X>From hplabs Wed Oct 30 13:59:53 1985 remote from hpcnof
  776. X>From fowler  Wed Oct 30 12:57:11 1985 remote from hplabs
  777. XDate: Wed, 30 Oct 85 12:57:11 pst
  778. XFrom: Greg Fowler <hplabs!fowler>
  779. XReceived: by HP-VENUS id AA12562; Wed, 30 Oct 85 12:57:11 pst
  780. XMessage-Id: <8510302057.AA12562@HP-VENUS>
  781. XTo: mail-men@rochester
  782. XSubject: Re: Summary of Network Mail Headers
  783. XReferences: <36700044@hpcnof.UUCP>
  784. XPriority: Most Urgent
  785. X
  786. XI believe your introduction referred to the uucp network.  usenet is the network news
  787. Xsoftware mechanism and isn't a "network".
  788. X
  789. X    - > February 19, 1986
  790. X    -
  791. X    -    A longer test of the system
  792. X    -
  793. X
  794. X    Greg
  795. X
  796. X
  797. X
  798. XFrom root Wed Oct 30 14:13:23 1985
  799. X>From srmmail Wed Oct 30 14:20:08 1985  remote from veeger
  800. X>From root Wed Oct 30 14:01:57 1985 remote from hpcnof
  801. XTo: DCC@hplabs
  802. XSubject: Log of backup tape #1
  803. X
  804. X 
  805. XFull Backup starting at Wed Oct 30 12:45:14 MST 1985
  806. X 
  807. X
  808. X
  809. Xbacking up directories: 
  810. X    ./users/fh ./users/rmd ./users/vince ./users/roberts ./users/row ./users/dt ./lost+found ./users/lost+found ./users/scb ./users/kevin ./users/du
  811. X
  812. X
  813. X
  814. X
  815. X
  816. XFrom root Wed Oct 30 15:33:24 1985
  817. X>From srmmail Wed Oct 30 15:40:26 1985  remote from veeger
  818. X>From root Wed Oct 30 15:37:17 1985 remote from hpcnof
  819. XTo: root, uucp, taylor@hplabs.ARPA
  820. XSubject: Log of backup tape #2
  821. X
  822. Xbacking up directories: 
  823. X    ./users/fh ./users/rmd ./users/vince ./users/roberts ./users/row ./users/dt ./lost+found ./users/lost+found ./users/scb ./users/kevin ./users/du
  824. X
  825. X
  826. X
  827. X
  828. Xbacking up directories: 
  829. X    ./users/sbh ./users/ges ./users/cpb ./users/amy ./net ./users/root ./users/balza ./dev ./users/remple ./users/jr ./users/mwr ./users/larryf
  830. X
  831. X
  832. X
  833. X
  834. X
  835. XFrom root Sun Dec  8 22:50:18 1985
  836. X>From srmmail Mon Dec  9 00:50:05 1985 remote from veeger
  837. X>From root Mon Dec  9 00:41:15 1985 remote from hpcnof
  838. X>From JLarson.pa@Xerox.ARPA  Sun Dec  8 20:45:55 1985 remote from hplabs
  839. XDate: 8 Dec 85 20:36:36 PST (Sunday)
  840. XFrom: hplabs!JLarson.pa@Xerox.ARPA
  841. XSubject: How's it going, anyway?
  842. XTo: hpcnou!dat@HPLABS.ARPA (Dave Taylor)
  843. XCc: JLarson.pa@Xerox.ARPA
  844. X
  845. XHow are things with you?  Could you send me that paper we were talking
  846. Xabout?  
  847. X
  848. X    Thanks
  849. X
  850. XJohn Larson
  851. XXerox Palo Alto Research Center
  852. X3333 Coyote Hill Road
  853. XPalo Alto, Ca  94304
  854. X
  855. X
  856. X
  857. X
  858. XFrom To:host!root@hplabs.HP.COM Wed Aug  7 19:58:30 1985
  859. X#From uucp Wed Aug  7 19:55:12 1985  remote from veeger
  860. X#From hplabs Wed Aug  7 19:48:10 1985 remote from hpcnof
  861. X#From RICHER@SUMEX-AIM  Wed Aug  7 09:23:12 1985 remote from hplabs
  862. XReceived: by HP-VENUS id AA18269; Wed, 7 Aug 85 09:11:48 pdt
  863. XDate: Tue 6 Aug 85 09:12:37-PDT
  864. X#From: Mark Richer <hplabs!RICHER@SUMEX-AIM>
  865. XReceived: by HP-VENUS via CSNET; 7 Aug 1985 09:11:37-PDT (Wed)
  866. XReceived: from sumex-aim.arpa by csnet-relay.arpa id a015812; 6 Aug 85 12:14 EDT
  867. XTo: hpcnof!veeger!hpcnou!dat%hplabs.csnet@CSNET-RELAY
  868. XVia:  CSNet; 7 Aug 85 9:11-PDT
  869. XSubject: Re: AI in Education mailing list...
  870. XCc: RICHER@SUMEX-AIM
  871. XIn-Reply-To: <8508030243.AA27641@HP-VENUS>
  872. XMessage-Id: <12132987812.61.RICHER@SUMEX-AIM.ARPA>
  873. X
  874. XI added you to aied.  This message may be of interest to you:
  875. X
  876. XArtificial Intelligence in Education Meeting at IJCAI 85
  877. X---------- ------------ -- --------- ------- -- ----- --
  878. X
  879. XPlace: Math Sciences Auditorium (a.k.a. Math 4000A), UCLA campus
  880. XTime: 6:30 pm, Tuesday, Aug. 20, 1985  (length: 1 - 1 1/4 hr)
  881. X
  882. XAgenda:
  883. X    I have two speakers scheduled to make presentations that
  884. Xshould stimulate questions and discussions:
  885. X
  886. X    (1) Short Announcements
  887. X
  888. X    (2) Jeff Bonar, Research Scientist, Learning Research and
  889. X    Development Center (LRDC), University of Pittsburgh
  890. X
  891. X    --- on-going ICAI research projects at LRDC
  892. X    --- dissemination of ICAI technology in the form of software
  893. X    tools, workshops, written materials, and video tapes.
  894. X
  895. X    (3) Gary Fine, Product Engineering Manager, INTELLICORP,
  896. X    formerly with a company producing CAI products, also graduate
  897. X    work in ICAI  
  898. X
  899. X    --- bridging the gap between current ICAI technology and the
  900. X    real world
  901. X
  902. X[IJCAI-85, the 9th International Joint Conference on Artificial
  903. XIntelligence is being held at UCLA Campus, August 18-23, 1985.  This
  904. Xconference is co-sponsered by the American Association for Artificial
  905. XIntelligence (AAAI) this year, and I have been told by their office
  906. Xthat only walk-in registration is available at this time.  For more
  907. Xinformation, contact AAAI:  AAAI-OFFICE@SUMEX-AIM.ARPA
  908. X                AAAI, 445 Burgess Drive, Menlo Park, CA 94025
  909. X                or call (415) 328-3123]
  910. X
  911. XDirect questions on the AI in ED meeting (only) to Mark Richer,
  912. XRICHER@SUMEX-AIM.ARPA
  913. X-------
  914. X
  915. X
  916. X
  917. X
  918. XFrom root Tue Sep 24 09:53:24 1985
  919. X>From HPMAIL-gateway Tue Sep 24  9:46:47 1985  remote from veeger
  920. X>From Simon_CINTZ_/_HPD600/TR  Tue Sep 24  9:46:47 1985  remote from hpmail
  921. XDate:   Tue, 24 Sep 85  9:14:00 MDT
  922. XFrom:   Simon_CINTZ_/_HPD600/TR  (Simon Cintz)
  923. XSubject: ITF
  924. XFrom:   Simon_CINTZ_/_HPD600/TR  (Simon Cintz)
  925. XTo:     Dave_TAYLOR_/_HPF100/00
  926. X
  927. XDave -
  928. X
  929. XJust as one programming language doesn't suit the needs of
  930. Xall programmers, one authoring facility will probably not
  931. Xsuit the needs of all HP entities that require CBT -- at least
  932. Xnot in the near future.  Of course, this is my personal opinion
  933. Xand if I'm wrong, it won't be the first time.
  934. X
  935. XGood luck.
  936. X
  937. X
  938. X                                           - Simon
  939. X
  940. XFrom root Mon Oct 21 10:43:37 1985
  941. X>From srmmail Mon Oct 21 10:30:16 1985  remote from veeger
  942. X>From root Mon Oct 21 10:28:58 1985 remote from hpcnof
  943. X>From DLS.MDC%office-X.arpa@CSNET-RELAY  Mon Oct 21 01:57:05 1985 remote from hplabs
  944. XReceived: by HP-VENUS id AA17376; Mon, 21 Oct 85 01:57:05 pdt
  945. XDate: 21 Oct 85 01:02 EDT
  946. XFrom: Duane Stone / McDonnell Douglas / CSC-ASD <hplabs!DLS.MDC%office-1.arpa@CSNET-RELAY>
  947. XReceived: by HP-VENUS via CSNET; 21 Oct 1985 01:57:01-PDT (Mon)
  948. XReceived: from office-1.arpa by CSNET-RELAY.ARPA id a019220; 21 Oct 85 1:18 EDT
  949. XTo: Dave Taylor <hpcnou!dat%hplabs.csnet@CSNET-RELAY>
  950. XVia:  CSNet; 21 Oct 85 1:56-PDT
  951. XSubject: Re: More Mail Headers...
  952. XMessage-Id: <MDC-DLS-7W9CS@OFFICE-1>
  953. XComment: Dave -- this is the body of the message I previously 'sent' to you via
  954. X
  955. Xa Journal.
  956. X
  957. XI might suggest re-wording the para on Author -- my associates might object to 
  958. X'strange' -- something like:
  959. X
  960. X   This is used to credit the original author, or to give credit on article 
  961. X   excerpts (from Newspapers, magazines, books, etc).
  962. X
  963. XOne field which I forgot is:
  964. X
  965. X   Length:  This is computed when the message is sent and gives the recipients 
  966. X   an estimate of the number of pages in the document.
  967. X
  968. X   Example:
  969. X
  970. X      Length: 6 pages [estimate]
  971. X
  972. XAccess:
  973. X
  974. X   Used to declare whether a Journal item should be Public or Private (to those
  975. X   that are on the distribution list or Extended Access list)
  976. X
  977. X   Example:
  978. X
  979. X      Access: Unrestricted
  980. X
  981. XAcknowledge-Delivery:
  982. X
  983. X   Used to request the system mailer send back a message when it has 
  984. X   successfully delivered the item.
  985. X
  986. X   Example:
  987. X
  988. X      Acknowledge-Delivery: Requested
  989. X
  990. XAcknowledge-Receipt:
  991. X
  992. X   Used to to ask the recipient to acknowledge receipt of the message.
  993. X
  994. X   Example:
  995. X
  996. X   Acknowledge-Receipt: Requested
  997. X
  998. XAddendum-To:
  999. X
  1000. X   A pointer to a previously submitted Journal item.
  1001. X
  1002. X   Example:
  1003. X
  1004. X      Addendum-To: <ASD,1234,>
  1005. X
  1006. XDelivery-Timing:
  1007. X
  1008. X   Used by the sender to indicate when the message should be submitted to the 
  1009. X   mailer.
  1010. X
  1011. X      Examples:
  1012. X
  1013. X         Rush:       -   immediate
  1014. X
  1015. X         Soon:       -   as soon as possible
  1016. X
  1017. X         Defer:      -   overnight
  1018. X
  1019. X         Start-Delivery: DATE TIME
  1020. X
  1021. X         Stop-Delivery:  DATE TIME (if not yet delivered)
  1022. X
  1023. XDisposition-Code:
  1024. X
  1025. X   Used by the system to group Journal items into one of several classes for 
  1026. X   eventual archive to tape and as an indicator of how long the archive tapes 
  1027. X   should be retained.
  1028. X
  1029. X   Example:
  1030. X
  1031. X      Disposition-Code: Temporary (2 years)
  1032. X
  1033. XExtended-access:
  1034. X
  1035. X   Used with private Journal items to allow access by other than those on the 
  1036. X   distribution list.
  1037. X
  1038. X   Example:
  1039. X
  1040. X      Extended-access: ASD.MDC
  1041. X
  1042. XLocation:
  1043. X
  1044. X   Used to submit the message to the Journal.  The adressees receive a short 
  1045. X   citation with other header fields and a "Location:" field pointing to a file
  1046. X   in an electronic library.
  1047. X
  1048. X   Example:
  1049. X
  1050. X      Location: <MDC,1234,>
  1051. X
  1052. XPart-Of:
  1053. X
  1054. X   A pointer to a previously submitted Journal item.
  1055. X
  1056. X   Example:
  1057. X
  1058. X      Part-Of: <MDC,1234,>
  1059. X
  1060. XRoute-To:
  1061. X
  1062. X   Used to send a message "in-turn" to addressees in the "To:" field -- as 
  1063. X   opposed to the broadcast method of delivery where everyone gets the message 
  1064. X   "simultaneously".  Any addresses in the "Cc:" field receive a copy of the 
  1065. X   message each time it is passed from one adressee to the next in the "To:" 
  1066. X   field.
  1067. X
  1068. X   Example:
  1069. X
  1070. X      Routed-to: {addresses in To field}
  1071. X
  1072. XSigned:
  1073. X
  1074. X   Created when the user employs the Sign command; used to electronically sign 
  1075. X   a message.  It affixes a signature-block to a message.  A "Verify Signature"
  1076. X   command is available to recipients that lets them find out if anyone has 
  1077. X   changed the body of the message since the message was signed.
  1078. X
  1079. X   Example:
  1080. X
  1081. X          SIGNED
  1082. X      
  1083. X      Duane L. Stone
  1084. X      App. Dev. Mgr.
  1085. X
  1086. XSupersedes:
  1087. X
  1088. X   A pointer to a previously submitted Journal item.
  1089. X
  1090. X   Example:
  1091. X
  1092. X      Supersedes: <MDC,1234,>
  1093. X
  1094. X
  1095. X--- last line of the file --
  1096. SHAR_EOF
  1097. chmod 0444 test/test.mail || echo "restore of test/test.mail fails"
  1098. echo "x - extracting utils/Makefile.SH (Text)"
  1099. sed 's/^X//' << 'SHAR_EOF' > utils/Makefile.SH &&
  1100. Xcase $CONFIG in
  1101. X'')
  1102. X    if test ! -f config.sh; then
  1103. X    ln ../config.sh . || \
  1104. X    ln ../../config.sh . || \
  1105. X    ln ../../../config.sh . || \
  1106. X    (echo "Can't find config.sh."; exit 1)
  1107. X    fi
  1108. X    . ./config.sh
  1109. X    ;;
  1110. Xesac
  1111. Xcase "$0" in
  1112. X*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
  1113. Xesac
  1114. X
  1115. Xecho "Extracting utils/Makefile (with variable substitutions)"
  1116. Xcat >Makefile <<!GROK!THIS!
  1117. X
  1118. X# @(#)$Id: Makefile.SH,v 4.1 90/04/28 22:44:26 syd Exp $
  1119. X#
  1120. X#  Makefile for the Elm system utilities
  1121. X#
  1122. X#    Copyright (c) 1986, 1987 Dave Taylor
  1123. X#    Copyright (c) 1988, 1989, 1990 USENET Community Trust
  1124. X#
  1125. X# Bug reports, patches, comments, suggestions should be sent to:
  1126. X#
  1127. X#    Syd Weinstein - elm@DSI.COM
  1128. X#            dsinc!elm
  1129. X#
  1130. X# $Log:    Makefile.SH,v $
  1131. X# Revision 4.1  90/04/28  22:44:26  syd
  1132. X# checkin of Elm 2.3 as of Release PL0
  1133. X# 
  1134. X#
  1135. X# Variables
  1136. X#    Variables established by Configure
  1137. XCC        =    $cc
  1138. XCCFLAGS        =    $ccflags $xencf
  1139. XCHMOD        =    $chmod
  1140. XCP        =    $cp
  1141. XDEST        =    $bin
  1142. XECHO        =    $echo
  1143. XLFLAGS        =    $ldflags $xenlf
  1144. XLIB        =    $lib
  1145. XLIB2        =     $libs
  1146. XLIBS        =    $termlib $dbm
  1147. XLINT        =    $lint
  1148. XLN        =    $ln
  1149. XMAKE        =    $make
  1150. XMV        =    $mv
  1151. XOPTIMIZE    =    $optimize
  1152. XRM        =     $rm -f
  1153. XTOUCH        =    $touch
  1154. X!GROK!THIS!
  1155. X
  1156. Xcat >>Makefile <<'!NO!SUBS!'
  1157. X#    Variables you may want to manually edit
  1158. X#        If you want debug logging then you'll
  1159. X#        want to uncomment the following.
  1160. X#DEBUG        =    -DDEBUG
  1161. X
  1162. X#    Other general variables
  1163. XBIN        =    ../bin
  1164. XCFLAGS        =    $(CCFLAGS) $(OPTIMIZE) -I$(INCLDIR) $(DEBUG) $(DACSNET) 
  1165. XINCLDIR        =    ../hdrs
  1166. XLINTFLAGS    =    -I$(INCLDIR)
  1167. XSHELL        =    /bin/sh
  1168. X
  1169. X#    Lists
  1170. X#        List of installed programs - excludes wnewmail, which is
  1171. X#        handled separately
  1172. XINSTALL_LIST    =    $(DEST)/answer        \
  1173. X            $(DEST)/arepdaemon    \
  1174. X            $(DEST)/autoreply    \
  1175. X            $(DEST)/checkalias    \
  1176. X            $(DEST)/fastmail    \
  1177. X            $(DEST)/frm        \
  1178. X            $(DEST)/listalias    \
  1179. X            $(DEST)/messages    \
  1180. X            $(DEST)/newalias    \
  1181. X            $(DEST)/newmail        \
  1182. X            $(DEST)/printmail    \
  1183. X            $(DEST)/readmsg
  1184. X
  1185. X#        List of remotely install programs
  1186. XREMOTE_LIST    =    $(REMOTE)$(DEST)/answer        \
  1187. X            $(REMOTE)$(DEST)/arepdaemon    \
  1188. X            $(REMOTE)$(DEST)/autoreply    \
  1189. X            $(REMOTE)$(DEST)/checkalias    \
  1190. X            $(REMOTE)$(DEST)/fastmail    \
  1191. X            $(REMOTE)$(DEST)/frm        \
  1192. X            $(REMOTE)$(DEST)/listalias    \
  1193. X            $(REMOTE)$(DEST)/messages    \
  1194. X            $(REMOTE)$(DEST)/newalias    \
  1195. X            $(REMOTE)$(DEST)/newmail    \
  1196. X            $(REMOTE)$(DEST)/printmail    \
  1197. X            $(REMOTE)$(DEST)/readmsg
  1198. X
  1199. X#        List of programs in bin directory
  1200. XBINARY_LIST    =    $(BIN)/answer        \
  1201. X            $(BIN)/arepdaemon    \
  1202. X            $(BIN)/autoreply    \
  1203. X            $(BIN)/checkalias    \
  1204. X            $(BIN)/fastmail        \
  1205. X            $(BIN)/frm        \
  1206. X            $(BIN)/listalias    \
  1207. X            $(BIN)/messages        \
  1208. X            $(BIN)/newalias        \
  1209. X            $(BIN)/newmail        \
  1210. X            $(BIN)/printmail    \
  1211. X            $(BIN)/readmsg
  1212. X
  1213. X#        List of programs to $(LINT) - only C programs
  1214. XLINT_LIST    =    answer_lint    \
  1215. X            arepdaemon_lint    \
  1216. X            autoreply_lint    \
  1217. X            fastmail_lint    \
  1218. X            frm_lint    \
  1219. X            listalias_lint    \
  1220. X            newalias_lint    \
  1221. X            newmail_lint    \
  1222. X            readmsg_lint
  1223. X
  1224. X#    List of all object files in all util programs (used in parallel makes)
  1225. XUTIL_OBJ    =    answer.o        \
  1226. X            arepdaem.o         \
  1227. X            autoreply.o        \
  1228. X            expand.o        \
  1229. X            fastmail.o        \
  1230. X            from.o            \
  1231. X            listalias.o        \
  1232. X            newalias.o        \
  1233. X            newmail.o        \
  1234. X            readmsg.o        \
  1235. X            ../src/opt_utils.o    \
  1236. X            ../src/string2.o    \
  1237. X            ../src/validname.o
  1238. X
  1239. X#    Lists of source and object files for each C program
  1240. XANSWER_SRC    =    answer.c ../src/opt_utils.c ../src/string2.c
  1241. XANSWER_OBJ    =    answer.o ../src/opt_utils.o ../src/string2.o
  1242. XAREPDAEMON_SRC    =    arepdaem.c ../src/opt_utils.c ../src/errno.c
  1243. XAREPDAEMON_OBJ    =    arepdaem.o ../src/opt_utils.o ../src/errno.o
  1244. XAUTOREPLY_SRC    =    autoreply.c ../src/opt_utils.c
  1245. XAUTOREPLY_OBJ    =    autoreply.o ../src/opt_utils.o
  1246. XFASTMAIL_SRC    =    fastmail.c ../src/opt_utils.c
  1247. XFASTMAIL_OBJ    =    fastmail.o ../src/opt_utils.o
  1248. XFRM_SRC        =    from.c expand.c ../src/opt_utils.c ../src/string2.c
  1249. XFRM_OBJ        =    from.o expand.o ../src/opt_utils.o ../src/string2.o
  1250. XLISTALIAS_SRC    =    listalias.c
  1251. XLISTALIAS_OBJ    =    listalias.o
  1252. XNEWALIAS_SRC    =    newalias.c ../src/validname.c ../src/opt_utils.c ../src/string2.c
  1253. XNEWALIAS_OBJ    =    newalias.o ../src/validname.o ../src/opt_utils.o ../src/string2.o
  1254. XNEWMAIL_SRC    =    newmail.c expand.c ../src/opt_utils.c ../src/string2.c
  1255. XNEWMAIL_OBJ    =    newmail.o expand.o ../src/opt_utils.o ../src/string2.o
  1256. XREADMSG_SRC    =    readmsg.c expand.c ../src/opt_utils.c ../src/string2.c
  1257. XREADMSG_OBJ    =    readmsg.o expand.o ../src/opt_utils.o ../src/string2.o
  1258. X
  1259. X# Standard targets
  1260. Xall:            objects $(BINARY_LIST)
  1261. X
  1262. X#    This unusual target enables highly efficial compilation of object files
  1263. X#    on systems that have the parallel make feature.
  1264. Xobjects:        $& $(UTIL_OBJ)
  1265. X
  1266. Xinstall:        $(INSTALL_LIST) $(DEST)/wnewmail
  1267. X
  1268. Xuninstall:        
  1269. X            $(RM) $(INSTALL_LIST) $(DEST)/wnewmail
  1270. X
  1271. X#    This is the only target that gets installed even if not out-of-date
  1272. X#    with respect the files from which it is installed.
  1273. Xrmt-install:        rmt-defined
  1274. X            -$(MV) $(DEST)/answer $(DEST)/answer.old
  1275. X            -$(MV) $(DEST)/arepdaemon $(DEST)/arepdaemon.old
  1276. X            -$(MV) $(DEST)/autoreply $(DEST)/autoreply.old
  1277. X            -$(MV) $(DEST)/checkalias $(DEST)/checkalias.old
  1278. X            -$(MV) $(DEST)/fastmail $(DEST)/fastmail.old
  1279. X            -$(MV) $(DEST)/frm $(DEST)/frm.old
  1280. X            -$(MV) $(DEST)/listalias $(DEST)/listalias.old
  1281. X            -$(MV) $(DEST)/messages $(DEST)/messages.old
  1282. X            -$(MV) $(DEST)/newalias $(DEST)/newalias.old
  1283. X            -$(MV) $(DEST)/newmail $(DEST)/newmail.old
  1284. X            -$(MV) $(DEST)/printmail $(DEST)/printmail.old
  1285. X            -$(MV) $(DEST)/readmsg $(DEST)/readmsg.old
  1286. X            -$(MV) $(DEST)/wnewmail $(DEST)/wnewmail.old
  1287. X            -$(RM) $(DEST)/answer.old
  1288. X            -$(RM) $(DEST)/arepdaemon.old
  1289. X            -$(RM) $(DEST)/autoreply.old
  1290. X            -$(RM) $(DEST)/checkalias.old
  1291. X            -$(RM) $(DEST)/fastmail.old
  1292. X            -$(RM) $(DEST)/frm.old
  1293. X            -$(RM) $(DEST)/listalias.old
  1294. X            -$(RM) $(DEST)/messages.old
  1295. X            -$(RM) $(DEST)/newalias.old
  1296. X            -$(RM) $(DEST)/newmail.old
  1297. X            -$(RM) $(DEST)/printmail.old
  1298. X            -$(RM) $(DEST)/readmsg.old
  1299. X            -$(RM) $(DEST)/wnewmail.old
  1300. X            $(CP) $(REMOTE_LIST) $(DEST)
  1301. X            $(LN) $(DEST)/newmail $(DEST)/wnewmail
  1302. X            $(CHMOD) a+rx $(INSTALL_LIST)
  1303. X
  1304. Xrmt-defined:
  1305. X    @(if [ "$(REMOTE)" = "" ];\
  1306. X      then\
  1307. X        $(ECHO) "You need to define 'REMOTE' as the remote file system";\
  1308. X        $(ECHO) "for this particular command. The easiest way to do this";\
  1309. X        $(ECHO) "to type:";\
  1310. X        $(ECHO) "        make REMOTE=<remote file system> rmt-install";\
  1311. X        exit 1;\
  1312. X      fi);
  1313. X
  1314. X#    This rule allows us to put lint output for each program on the
  1315. X#    same file, but make sure we start off fresh each time.
  1316. Xlint:            
  1317. X            $(RM) LINT.OUT; $(MAKE) -$(MAKEFLAGS) $(LINT_LIST)
  1318. X
  1319. Xclean:            
  1320. X            $(RM) $(UTIL_OBJ) $(BINARY_LIST)
  1321. X
  1322. X# Dependencies and rules
  1323. X#    Dependencies and rules for compiling and linting C programs
  1324. X.PRECIOUS:        $(INCLDIR)/defs.h $(INCLDIR)/elm.h $(INCLDIR)/headers.h
  1325. X
  1326. X$(BIN)/answer:        $(ANSWER_OBJ)
  1327. X            $(CC) $(LFLAGS) -o $@ $(ANSWER_OBJ) $(LIB2)
  1328. X
  1329. Xanswer_lint:        $(ANSWER_SRC)
  1330. X            $(LINT) $(LINTFLAGS) $(ANSWER_SRC) >> LINT.OUT
  1331. X
  1332. X$(BIN)/arepdaemon:    $(AREPDAEMON_OBJ)
  1333. X            $(CC) $(LFLAGS) -o $@ $(AREPDAEMON_OBJ) $(LIB2)
  1334. X
  1335. Xarepdaemon_lint:    $(AREPDAEMON_SRC)
  1336. X            $(LINT) $(LINTFLAGS) $(AREPDAEMON_SRC) >> LINT.OUT
  1337. X
  1338. X$(BIN)/autoreply:    $(AUTOREPLY_OBJ)
  1339. X            $(CC) $(LFLAGS) -o $@ $(AUTOREPLY_OBJ) $(LIB2)
  1340. X
  1341. Xautoreply_lint:        $(AUTOREPLY_SRC)
  1342. X            $(LINT) $(LINTFLAGS) $(AUTOREPLY_SRC) >> LINT.OUT
  1343. X
  1344. X$(BIN)/fastmail:    $(FASTMAIL_OBJ)
  1345. X            $(CC) $(LFLAGS) -o $@ $(FASTMAIL_OBJ) $(LIB2)
  1346. X
  1347. Xfastmail_lint:        $(FASTMAIL_SRC)
  1348. X            $(LINT) $(LINTFLAGS) $(FASTMAIL_SRC) >> LINT.OUT
  1349. X
  1350. X$(BIN)/frm:        $(FRM_OBJ)
  1351. X            $(CC) $(LFLAGS) -o $@ $(FRM_OBJ) $(LIB2)
  1352. X
  1353. Xfrm_lint:        $(FRM_SRC)
  1354. X            $(LINT) $(LINTFLAGS) $(FRM_SRC) >> LINT.OUT
  1355. X
  1356. X$(BIN)/listalias:    $(LISTALIAS_OBJ)
  1357. X            $(CC) $(LFLAGS) -o $@ $(LISTALIAS_OBJ) $(LIB2)
  1358. X
  1359. Xlistalias_lint:        $(LISTALIAS_SRC)
  1360. X            $(LINT) $(LINTFLAGS) $(LISTALIAS_SRC) >> LINT.OUT
  1361. X
  1362. X$(BIN)/newalias:    $(NEWALIAS_OBJ)
  1363. X            $(CC) $(LFLAGS) -o $@ $(NEWALIAS_OBJ) $(LIB2)
  1364. X
  1365. Xnewalias_lint:        $(NEWALIAS_SRC)
  1366. X            $(LINT) $(LINTFLAGS) $(NEWALIAS_SRC) >> LINT.OUT
  1367. X
  1368. X$(BIN)/newmail:        $(NEWMAIL_OBJ)
  1369. X            $(CC) $(LFLAGS) -o $@ $(NEWMAIL_OBJ) $(LIB2)
  1370. X
  1371. Xnewmail_lint:        $(NEWMAIL_SRC)
  1372. X            $(LINT) $(LINTFLAGS) $(NEWMAIL_SRC) >> LINT.OUT
  1373. X
  1374. X$(BIN)/readmsg:        $(READMSG_OBJ)
  1375. X            $(CC) $(LFLAGS) -o $@ $(READMSG_OBJ) $(LIB2)
  1376. X
  1377. Xreadmsg_lint:        $(READMSG_SRC)
  1378. X            $(LINT) $(LINTFLAGS) $(READMSG_SRC) >> LINT.OUT
  1379. X
  1380. X
  1381. X#    Rules to make shell scripts in bin directory
  1382. X$(BIN)/checkalias:    checkalias
  1383. X            $(CP) $? $@
  1384. X            $(CHMOD) u+w,a+rx $@
  1385. X
  1386. X$(BIN)/messages:    messages
  1387. X            $(CP) $? $@
  1388. X            $(CHMOD) u+w,a+rx $@
  1389. X
  1390. X$(BIN)/printmail:    printmail
  1391. X            $(CP) $? $@
  1392. X            $(CHMOD) u+w,a+rx $@
  1393. X
  1394. X#    Dependencies of header files upon other header files they include
  1395. X$(INCLDIR)/defs.h:    $(INCLDIR)/../config.h $(INCLDIR)/sysdefs.h
  1396. X            $(CHMOD) u+w $@
  1397. X            $(TOUCH) $@
  1398. X
  1399. X$(INCLDIR)/elm.h:    $(INCLDIR)/curses.h $(INCLDIR)/defs.h
  1400. X            $(CHMOD) u+w $@
  1401. X            $(TOUCH) $@
  1402. X
  1403. X$(INCLDIR)/headers.h:    $(INCLDIR)/curses.h $(INCLDIR)/defs.h
  1404. X            $(CHMOD) u+w $@
  1405. X            $(TOUCH) $@
  1406. X
  1407. X#    Rules to make objects from src directory
  1408. X../src/opt_utils.o:
  1409. X            cd ../src; $(MAKE) -$(MAKEFLAGS) opt_utils.o
  1410. X
  1411. X../src/string2.o:
  1412. X            cd ../src; $(MAKE) -$(MAKEFLAGS) string2.o
  1413. X
  1414. X../src/validname.o:
  1415. X            cd ../src; $(MAKE) -$(MAKEFLAGS) validname.o
  1416. X
  1417. X#    Dependencies of C object files
  1418. Xanswer.o:    $(INCLDIR)/defs.h
  1419. Xarepdaem.o:    $(INCLDIR)/defs.h
  1420. Xautoreply.o:    $(INCLDIR)/defs.h
  1421. Xexpand.o:    $(INCLDIR)/defs.h
  1422. Xfastmail.o:    $(INCLDIR)/defs.h $(INCLDIR)/patchlevel.h
  1423. Xfrom.o:        $(INCLDIR)/defs.h
  1424. Xlistalias.o:    $(INCLDIR)/defs.h $(INCLDIR)/sysdefs.h
  1425. Xnewalias.o:    $(INCLDIR)/defs.h $(INCLDIR)/sysdefs.h
  1426. Xnewmail.o:    $(INCLDIR)/defs.h
  1427. Xreadmsg.o:    $(INCLDIR)/defs.h
  1428. X
  1429. X#    Dependencies and rules for installing programs from bin directory
  1430. X$(DEST)/answer:        $(BIN)/answer
  1431. X            -$(MV) $@ $@.old
  1432. X            -$(RM) $@.old
  1433. X            $(CP) $? $@
  1434. X            $(CHMOD) a+x $@
  1435. X
  1436. X$(DEST)/arepdaemon:    $(BIN)/arepdaemon
  1437. X            -$(MV) $@ $@.old
  1438. X            -$(RM) $@.old
  1439. X            $(CP) $? $@
  1440. X            $(CHMOD) a+x $@
  1441. X
  1442. X$(DEST)/autoreply:    $(BIN)/autoreply
  1443. X            -$(MV) $@ $@.old
  1444. X            -$(RM) $@.old
  1445. X            $(CP) $? $@
  1446. X            $(CHMOD) a+x $@
  1447. X            $(CHMOD) u+s $@
  1448. X
  1449. X$(DEST)/checkalias:    $(BIN)/checkalias
  1450. X            -$(MV) $@ $@.old
  1451. X            -$(RM) $@.old
  1452. X            $(CP) $? $@
  1453. X            $(CHMOD) a+rx $@
  1454. X
  1455. X$(DEST)/fastmail:    $(BIN)/fastmail
  1456. X            -$(MV) $@ $@.old
  1457. X            -$(RM) $@.old
  1458. X            $(CP) $? $@
  1459. X            $(CHMOD) a+x $@
  1460. X
  1461. X$(DEST)/frm:        $(BIN)/frm
  1462. X            -$(MV) $@ $@.old
  1463. X            -$(RM) $@.old
  1464. X            $(CP) $? $@
  1465. X            $(CHMOD) a+x $@
  1466. X
  1467. X$(DEST)/listalias:    $(BIN)/listalias
  1468. X            -$(MV) $@ $@.old
  1469. X            -$(RM) $@.old
  1470. X            $(CP) $? $@
  1471. X            $(CHMOD) a+x $@
  1472. X
  1473. X$(DEST)/messages:    $(BIN)/messages
  1474. X            -$(MV) $@ $@.old
  1475. X            -$(RM) $@.old
  1476. X            $(CP) $? $@
  1477. X            $(CHMOD) a+rx $@
  1478. X
  1479. X$(DEST)/newalias:    $(BIN)/newalias
  1480. X            -$(MV) $@ $@.old
  1481. X            -$(RM) $@.old
  1482. X            $(CP) $? $@
  1483. X            $(CHMOD) a+x $@
  1484. X
  1485. X$(DEST)/newmail:    $(BIN)/newmail
  1486. X            -$(MV) $@ $@.old
  1487. X            -$(RM) $@.old
  1488. X            $(RM) $@
  1489. X            $(CP) $? $@
  1490. X            $(CHMOD) a+x $@
  1491. X
  1492. X$(DEST)/printmail:    $(BIN)/printmail
  1493. X            -$(MV) $@ $@.old
  1494. X            -$(RM) $@.old
  1495. X            $(CP) $? $@
  1496. X            $(CHMOD) a+rx $@
  1497. X
  1498. X$(DEST)/readmsg:    $(BIN)/readmsg
  1499. X            -$(MV) $@ $@.old
  1500. X            -$(RM) $@.old
  1501. X            $(CP) $? $@
  1502. X            $(CHMOD) a+x $@
  1503. X
  1504. X$(DEST)/wnewmail:    $(DEST)/newmail
  1505. X            -$(MV) $@ $@.old
  1506. X            -$(RM) $@.old
  1507. X            $(RM) $@
  1508. X            $(LN) $? $@
  1509. X
  1510. X!NO!SUBS!
  1511. SHAR_EOF
  1512. chmod 0444 utils/Makefile.SH || echo "restore of utils/Makefile.SH fails"
  1513. echo "x - extracting utils/answer.c (Text)"
  1514. sed 's/^X//' << 'SHAR_EOF' > utils/answer.c &&
  1515. X
  1516. Xstatic char rcsid[] = "@(#)$Id: answer.c,v 4.1 90/04/28 22:44:27 syd Exp $";
  1517. X
  1518. X/*******************************************************************************
  1519. X *  The Elm Mail System  -  $Revision: 4.1 $   $State: Exp $
  1520. X *
  1521. X *             Copyright (c) 1986, 1987 Dave Taylor
  1522. X *             Copyright (c) 1988, 1989, 1990 USENET Community Trust
  1523. X *******************************************************************************
  1524. X * Bug reports, patches, comments, suggestions should be sent to:
  1525. X *
  1526. X *    Syd Weinstein, Elm Coordinator
  1527. X *    elm@DSI.COM            dsinc!elm
  1528. X *
  1529. X *******************************************************************************
  1530. X * $Log:    answer.c,v $
  1531. X * Revision 4.1  90/04/28  22:44:27  syd
  1532. X * checkin of Elm 2.3 as of Release PL0
  1533. X * 
  1534. X *
  1535. X ******************************************************************************/
  1536. X
  1537. X/** This program is a phone message transcription system, and
  1538. X    is designed for secretaries and the like, to allow them to
  1539. X    painlessly generate electronic mail instead of paper forms.
  1540. X
  1541. X    Note: this program ONLY uses the local alias file, and does not
  1542. X      even read in the system alias file at all.
  1543. X
  1544. X**/
  1545. X
  1546. X#include <stdio.h>
  1547. X#include <fcntl.h>
  1548. X#include <ctype.h>
  1549. X
  1550. X#include "defs.h"            /* ELM system definitions      */
  1551. X
  1552. X#define  ELM        "elm"        /* where the elm program lives */
  1553. X
  1554. X#define  answer_temp_file    "/tmp/answer."
  1555. X
  1556. Xstatic char ident[] = { WHAT_STRING };
  1557. X
  1558. Xstruct alias_rec user_hash_table  [MAX_UALIASES];
  1559. X
  1560. Xint user_data;        /* fileno of user data file   */
  1561. X
  1562. Xchar *expand_group(), *get_alias_address(), *get_token(), *strip_parens(),
  1563. X    *shift_lower();
  1564. X
  1565. Xmain()
  1566. X{
  1567. X    FILE *fd;
  1568. X    char *address, buffer[LONG_STRING], tempfile[SLEN], *cp;
  1569. X    char  name[SLEN], user_name[SLEN];
  1570. X    int   msgnum = 0, eof;
  1571. X    
  1572. X    read_alias_files();
  1573. X
  1574. X    while (1) {
  1575. X      if (msgnum > 9999) msgnum = 0;
  1576. X    
  1577. X      printf("\n-------------------------------------------------------------------------------\n");
  1578. X
  1579. Xprompt:   printf("\nMessage to: ");
  1580. X      if (fgets(user_name, SLEN, stdin) == NULL) {
  1581. X        putchar('\n');
  1582. X        exit(0);
  1583. X      }
  1584. X      if(user_name[0] == '\0')
  1585. X        goto prompt;
  1586. X      
  1587. X      cp = &user_name[strlen(user_name)-1];
  1588. X      if(*cp == '\n') *cp = '\0';
  1589. X      if(user_name[0] == '\0')
  1590. X        goto prompt;
  1591. X
  1592. X      if ((strcmp(user_name,"quit") == 0) ||
  1593. X          (strcmp(user_name,"exit") == 0) ||
  1594. X          (strcmp(user_name,"done") == 0) ||
  1595. X          (strcmp(user_name,"bye")  == 0))
  1596. X         exit(0);
  1597. X
  1598. X      if (translate(user_name, name) == 0)
  1599. X        goto prompt;
  1600. X
  1601. X      address = get_alias_address(name, 1, 0);
  1602. X
  1603. X      printf("address '%s'\n", address);
  1604. X
  1605. X      if (address == NULL || strlen(address) == 0) {
  1606. X        printf("Sorry, could not find '%s' [%s] in list!\n", user_name, 
  1607. X           name);
  1608. X        goto prompt;
  1609. X      }
  1610. X
  1611. X      sprintf(tempfile, "%s%d", answer_temp_file, msgnum++);
  1612. X
  1613. X      if ((fd = fopen(tempfile,"w")) == NULL)
  1614. X        exit(printf("** Fatal Error: could not open %s to write\n",
  1615. X         tempfile));
  1616. X
  1617. X
  1618. X      printf("\nEnter message for %s ending with a blank line.\n\n", 
  1619. X         user_name);
  1620. X
  1621. X      fprintf(fd,"\n\n");
  1622. X
  1623. X      do {
  1624. X       printf("> ");
  1625. X       if (! (eof = (fgets(buffer, SLEN, stdin) == NULL))) 
  1626. X         fprintf(fd, "%s", buffer);
  1627. X      } while (! eof && strlen(buffer) > 1);
  1628. X    
  1629. X      fclose(fd);
  1630. X 
  1631. X      sprintf(buffer, 
  1632. X         "((%s -s \"While You Were Out\" %s ; %s %s) & ) < %s > /dev/null",
  1633. X         ELM, strip_parens(address), remove_cmd, tempfile, tempfile);
  1634. X
  1635. X      system(buffer);
  1636. X    }
  1637. X}
  1638. X
  1639. Xint
  1640. Xtranslate(fullname, name)
  1641. Xchar *fullname, *name;
  1642. X{
  1643. X    /** translate fullname into name..
  1644. X           'first last'  translated to first_initial - underline - last
  1645. X           'initial last' translated to initial - underline - last
  1646. X        Return 0 if error.
  1647. X    **/
  1648. X    register int i, lastname = 0, len;
  1649. X
  1650. X    for (i=0, len = strlen(fullname); i < len; i++) {
  1651. X
  1652. X      if (isupper(fullname[i]))
  1653. X         fullname[i] = tolower(fullname[i]);
  1654. X
  1655. X      if (fullname[i] == ' ') 
  1656. X        if (lastname) {
  1657. X          printf(
  1658. X          "** Can't have more than 'FirstName LastName' as address!\n");
  1659. X          return(0);
  1660. X        }
  1661. X        else
  1662. X          lastname = i+1;
  1663. X    
  1664. X    }
  1665. X
  1666. X    if (lastname) 
  1667. X      sprintf(name, "%c_%s", fullname[0], (char *) fullname + lastname);
  1668. X    else
  1669. X      strcpy(name, fullname);
  1670. X
  1671. X    return(1);
  1672. X}
  1673. X
  1674. X        
  1675. Xread_alias_files()
  1676. X{
  1677. X    /** read the user alias file **/
  1678. X
  1679. X    char fname[SLEN];
  1680. X    int  hash;
  1681. X
  1682. X    sprintf(fname,  "%s/.elm/aliases.hash", getenv("HOME")); 
  1683. X
  1684. X    if ((hash = open(fname, O_RDONLY)) == -1) 
  1685. X      exit(printf("** Fatal Error: Could not open %s!\n", fname));
  1686. X
  1687. X    read(hash, user_hash_table, sizeof user_hash_table);
  1688. X    close(hash);
  1689. X
  1690. X    sprintf(fname,  "%s/.elm/aliases.data", getenv("HOME")); 
  1691. X
  1692. X    if ((user_data = open(fname, O_RDONLY)) == -1) 
  1693. X      return;
  1694. X}
  1695. X
  1696. Xchar *get_alias_address(name, mailing, depth)
  1697. Xchar *name;
  1698. Xint   mailing, depth;
  1699. X{
  1700. X    /** return the line from either datafile that corresponds 
  1701. X        to the specified name.  If 'mailing' specified, then
  1702. X        fully expand group names.  Returns NULL if not found.
  1703. X        Depth is the nesting depth, and varies according to the
  1704. X        nesting level of the routine.  **/
  1705. X
  1706. X    static char buffer[VERY_LONG_STRING];
  1707. X    int    loc;
  1708. X
  1709. X    name = shift_lower(name);
  1710. X    if ((loc = find(name, user_hash_table, MAX_UALIASES)) >= 0) {
  1711. X      lseek(user_data, ntohl(user_hash_table[loc].byte), 0L);
  1712. X      get_line(user_data, buffer);
  1713. X      if (buffer[0] == '!' && mailing)
  1714. X        return( (char *) expand_group(buffer, depth));
  1715. X      else
  1716. X        return( (char *) buffer);
  1717. X    }
  1718. X    
  1719. X    return( (char *) NULL);
  1720. X}
  1721. X
  1722. Xchar *expand_group(members, depth)
  1723. Xchar *members;
  1724. Xint   depth;
  1725. X{
  1726. X    /** given a group of names separated by commas, this routine
  1727. X        will return a string that is the full addresses of each
  1728. X        member separated by spaces.  Depth is the current recursion
  1729. X        depth of the expansion (for the 'get_token' routine) **/
  1730. X
  1731. X    char   buffer[VERY_LONG_STRING];
  1732. X    char   buf[LONG_STRING], *word, *address, *bufptr;
  1733. X
  1734. X    strcpy(buf, members);     /* parameter safety! */
  1735. X    buffer[0] = '\0';    /* nothing in yet!   */
  1736. X    bufptr = (char *) buf;    /* grab the address  */
  1737. X    depth++;        /* one more deeply into stack */
  1738. X
  1739. X    while ((word = (char *) get_token(bufptr, "!, ", depth)) != NULL) {
  1740. X      if ((address = (char *) get_alias_address(word, 1, depth)) == NULL) {
  1741. X        fprintf(stderr, "Alias %s not found for group expansion!", word);
  1742. X        return( (char *) NULL);
  1743. X      }
  1744. X      else if (strcmp(buffer,address) != 0) {
  1745. X        sprintf(buffer,"%s %s", buffer, address);
  1746. X      }
  1747. X
  1748. X      bufptr = NULL;
  1749. X    }
  1750. X
  1751. X    return( (char *) buffer);
  1752. X}
  1753. X
  1754. Xint
  1755. Xfind(word, table, size)
  1756. Xchar *word;
  1757. Xstruct alias_rec table[];
  1758. Xint size;
  1759. X{
  1760. X    /** find word and return loc, or -1 **/
  1761. X    register int loc;
  1762. X    
  1763. X    if (strlen(word) > 20)
  1764. X      exit(printf("Bad alias name: %s.  Too long.\n", word));
  1765. X
  1766. X    loc = hash_it(word, size);
  1767. X
  1768. X    while (strcmp(word, table[loc].name) != 0) {
  1769. X      if (table[loc].name[0] == '\0') 
  1770. X        return(-1);
  1771. X      loc = (loc + 1) % size; 
  1772. X    }
  1773. X
  1774. X    return(loc);
  1775. X}
  1776. X
  1777. Xint
  1778. Xhash_it(string, table_size)
  1779. Xchar *string;
  1780. Xint   table_size;
  1781. X{
  1782. X    /** compute the hash function of the string, returning
  1783. X        it (mod table_size) **/
  1784. X
  1785. X    register int i, sum = 0;
  1786. X    
  1787. X    for (i=0; string[i] != '\0'; i++)
  1788. X      sum += (int) string[i];
  1789. X
  1790. X    return(sum % table_size);
  1791. X}
  1792. X
  1793. Xget_line(fd, buffer)
  1794. Xint fd;
  1795. Xchar *buffer;
  1796. X{
  1797. X    /* read from file fd.  End read upon reading either 
  1798. X       EOF or '\n' character (this is where it differs 
  1799. X       from a straight 'read' command!) */
  1800. X
  1801. X    register int i= 0;
  1802. X    char     ch;
  1803. X
  1804. X    while (read(fd, &ch, 1) > 0)
  1805. X      if (ch == '\n' || ch == '\r') {
  1806. X        buffer[i] = 0;
  1807. X        return;
  1808. X      }
  1809. X      else
  1810. X        buffer[i++] = ch;
  1811. X}
  1812. X
  1813. Xprint_long(buffer, init_len)
  1814. Xchar *buffer;
  1815. Xint   init_len;
  1816. X{
  1817. X    /** print buffer out, 80 characters (or less) per line, for
  1818. X        as many lines as needed.  If 'init_len' is specified, 
  1819. X        it is the length that the first line can be.
  1820. X    **/
  1821. X
  1822. X    register int i, loc=0, space, length, len; 
  1823. X
  1824. X    /* In general, go to 80 characters beyond current character
  1825. X       being processed, and then work backwards until space found! */
  1826. X
  1827. X    length = init_len;
  1828. X
  1829. X    do {
  1830. X      if (strlen(buffer) > loc + length) {
  1831. X        space = loc + length;
  1832. X        while (buffer[space] != ' ' && space > loc + 50) space--;
  1833. X        for (i=loc;i <= space;i++)
  1834. X          putchar(buffer[i]);
  1835. X        putchar('\n');
  1836. X        loc = space;
  1837. X      }
  1838. X      else {
  1839. X        for (i=loc, len = strlen(buffer);i < len;i++)
  1840. X          putchar(buffer[i]);
  1841. X        putchar('\n');
  1842. X        loc = len;
  1843. X      }
  1844. X      length = 80;
  1845. X    } while (loc < strlen(buffer));
  1846. X}
  1847. X
  1848. X/****
  1849. X     The following is a newly chopped version of the 'strtok' routine
  1850. X  that can work in a recursive way (up to 20 levels of recursion) by
  1851. SHAR_EOF
  1852. echo "End of part 23"
  1853. echo "File utils/answer.c is continued in part 24"
  1854. echo "24" > s2_seq_.tmp
  1855. exit 0
  1856.