home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume31 / mbox / part03 < prev    next >
Encoding:
Text File  |  1992-07-09  |  60.4 KB  |  2,530 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de@unnet (Volker Schuermann)
  3. Subject:  v31i019:  mbox - A BBS for UNIX and MINIX v1.6 PL10, Part03/11
  4. Message-ID: <1992Jul10.050229.27341@sparky.imd.sterling.com>
  5. X-Md4-Signature: 54c65f002eec9a60af77e0e634e9c624
  6. Date: Fri, 10 Jul 1992 05:02:29 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Volker.Schuermann@unnet.w.open.de@unnet (Volker Schuermann)
  10. Posting-number: Volume 31, Issue 19
  11. Archive-name: mbox/part03
  12. Environment: MINIX, ISC, ESIX, SVR3
  13. Supersedes: mbox: Volume 29, Issue 63-72
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then feed it
  17. # into a shell via "sh file" or similar.  To overwrite existing files,
  18. # type "sh file -c".
  19. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  20. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  21. # Contents:  src/admin.c src/lesen.c src/mail.c
  22. # Wrapped by kent@sparky on Thu Jul  9 23:26:00 1992
  23. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  24. echo If this archive is complete, you will see the following message:
  25. echo '          "shar: End of archive 3 (of 11)."'
  26. if test -f 'src/admin.c' -a "${1}" != "-c" ; then 
  27.   echo shar: Will not clobber existing file \"'src/admin.c'\"
  28. else
  29.   echo shar: Extracting \"'src/admin.c'\" \(24570 characters\)
  30.   sed "s/^X//" >'src/admin.c' <<'END_OF_FILE'
  31. X/***************************************************************************/
  32. X/*        PROGRAMM  ix/Mbox                           */
  33. X/*             DATEI  admin.c                           */
  34. X/*        FUNKTIONEN  user_aendern(), user_anzeigen(), user_loeschen(),    */
  35. X/*              setup_get(), wait_until_keypressed(), admin(),       */
  36. X/*              setup()                               */
  37. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  38. X/*  LETZTE AENDERUNG  18.03.1992                       */
  39. X/***************************************************************************/
  40. X
  41. X#include <sys/types.h>
  42. X#include <sys/stat.h>
  43. X#include <unistd.h>
  44. X#include <stdio.h>
  45. X#include <fcntl.h>
  46. X
  47. X#include "mbox.h"
  48. X
  49. X
  50. Xvoid wait_until_keypressed();
  51. X
  52. X
  53. X
  54. X/***************************************************************************/
  55. X/*      FUNKTION  user_aendern                           */
  56. X/*  BESCHREIBUNG  Aendern ALLER Teilnehmerparameter (von ADMIN aus)        */
  57. X/*     PARAMETER  keine                                                       */
  58. X/*     RUECKGABE  keine                                                       */
  59. X/***************************************************************************/
  60. X
  61. Xvoid user_aendern()
  62. X{
  63. X  int fd;
  64. X  struct userdaten DUMMY, LOOSER;
  65. X  char s[STRING];
  66. X  char t[STRING];
  67. X  long ll = -1L;
  68. X  size_t dummy = sizeof(DUMMY);
  69. X  char c;
  70. X  int i;
  71. X  int uid = -1;
  72. X
  73. X  headline( ADM01_MSG );
  74. X
  75. X  printf("%s ", ADM02_MSG);
  76. X  strcpy(s, (char *) getline(30, 11, '.', ""));
  77. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  78. X
  79. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  80. X  fd = open(UDBASE, O_RDONLY);
  81. X  if(fd == -1){
  82. X    nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  83. X  }
  84. X  while(read(fd, &DUMMY, dummy) == dummy){
  85. X    if(uid == DUMMY.id){
  86. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  87. X    }
  88. X    else{
  89. X        if((strcomp(s, DUMMY.name) == 0) ||
  90. X           (strcomp(s, DUMMY.nick) == 0) ||
  91. X           (strcomp(s, DUMMY.sh_name) == 0)){
  92. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  93. X        }
  94. X    }
  95. X  }
  96. X  lseek(fd, ll, SEEK_SET);
  97. X  read(fd, &LOOSER, sizeof(LOOSER));
  98. X  close(fd);
  99. X  mbunlock(UDBASE);
  100. X
  101. X  if(ll == -1L) return;
  102. X
  103. X  printf("%c%s %d                                               ", CR, ADM03_MSG, LOOSER.id);
  104. X
  105. X  printf("\n%s ", ADM04_MSG);
  106. X  strcpy(s, (char *) getline(30, 1011, '.', LOOSER.name));
  107. X  if (s[0] > 32) sprintf(LOOSER.name, s);
  108. X  if (s[0] == 32) LOOSER.name[0] = '\0';
  109. X
  110. X  printf("\n%s ", ADM05_MSG);
  111. X  strcpy(s, (char *) getline(10, 1011, '.', LOOSER.passwort));
  112. X  if (s[0] > 32) sprintf(LOOSER.passwort, s);
  113. X  if (s[0] == 32) LOOSER.passwort[0] = '\0';
  114. X
  115. X  printf("\n%s ", ADM06_MSG);
  116. X  strcpy(s, (char *) getline(14, 1011, '.', LOOSER.sh_name));
  117. X  if (s[0] > 32) sprintf(LOOSER.sh_name, s);
  118. X  if (s[0] == 32) LOOSER.sh_name[0] = '\0';
  119. X
  120. X  printf("\n%s ", ADM07_MSG);
  121. X  strcpy(s, (char *) getline(30, 1011, '.', LOOSER.nick));
  122. X  if (s[0] > 32) sprintf(LOOSER.nick, s);
  123. X  if (s[0] == 32) LOOSER.nick[0] = '\0';
  124. X
  125. X  printf("\n%s ", ADM08_MSG);
  126. X  strcpy(s, (char *) getline(30, 1011, '.', LOOSER.wohnort));
  127. X  if (s[0] > 31) sprintf(LOOSER.wohnort, s);
  128. X
  129. X  printf("\n%s ", ADM09_MSG);
  130. X  strcpy(s, (char *) getline(30, 1011, '.', LOOSER.strasse));
  131. X  if (s[0] > 31) sprintf(LOOSER.strasse, s);
  132. X
  133. X  printf("\n%s ", ADM10_MSG);
  134. X  strcpy(s, (char *) getline(20, 1011, '.', LOOSER.telefon1));
  135. X  if (s[0] > 31) sprintf(LOOSER.telefon1, s);
  136. X
  137. X  printf("\n%s ", ADM11_MSG);
  138. X  strcpy(s, (char *) getline(20, 1011, '.', LOOSER.telefon2));
  139. X  if (s[0] > 31) sprintf(LOOSER.telefon2, s);
  140. X
  141. X  printf("\n%s ", ADM12_MSG);
  142. X  strcpy(s, (char *) getline(10, 1114, '?', LOOSER.geburtsdatum));
  143. X  if (s[0] > 31) sprintf(LOOSER.geburtsdatum, s);
  144. X
  145. X  printf("\n%s ", ADM13_MSG);
  146. X  sprintf(t, "%d", LOOSER.terminal);
  147. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  148. X  if (s[0] > 31) LOOSER.terminal = atoi(s);
  149. X  if ((LOOSER.terminal < 1) || (LOOSER.terminal > 4)) LOOSER.terminal = 1;
  150. X
  151. X  printf("\n%s ", ADM14_MSG);
  152. X  sprintf(t, "%d", LOOSER.editor);
  153. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  154. X  if (s[0] > 31) LOOSER.editor = atoi(s);
  155. X  if ((LOOSER.editor < 1) || (LOOSER.editor > 3)) LOOSER.editor = 1;
  156. X
  157. X  printf("\n%s ", ADM15_MSG);
  158. X  sprintf(t, "%d", LOOSER.level);
  159. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  160. X  if (s[0] > 31) LOOSER.level = atoi(s);
  161. X
  162. X  printf("\n%s ", ADM16_MSG);
  163. X  sprintf(t, "%d", LOOSER.more);
  164. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  165. X  if (s[0] > 31) LOOSER.more = atoi(s);
  166. X  if ((LOOSER.more < 0) || (LOOSER.more > 3)) LOOSER.more = 1;
  167. X
  168. X  printf("\n%s ", ADM17_MSG);
  169. X  sprintf(t, "%d", LOOSER.bell);
  170. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  171. X  if (s[0] > 31) LOOSER.bell = atoi(s);
  172. X  if ((LOOSER.bell < -1) || (LOOSER.bell > 1)) LOOSER.bell = 0;
  173. X
  174. X  printf("\n%s ", ADM18_MSG);
  175. X  sprintf(t, "%d", LOOSER.prompt);
  176. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  177. X  if (s[0] > 31) LOOSER.prompt = atoi(s);
  178. X  if ((LOOSER.prompt < 1) || (LOOSER.prompt > 3)) LOOSER.prompt = 2;
  179. X
  180. X  printf("\n%s ", ADM19_MSG);
  181. X  LOOSER.tlines += 2;
  182. X  sprintf(t, "%d", LOOSER.tlines);
  183. X  strcpy(s, (char *) getline(5, 1111, '.', t));
  184. X  if (s[0] > 31) LOOSER.tlines = atoi(s);
  185. X  LOOSER.tlines -= 2;
  186. X  if ((LOOSER.tlines < 22) || (LOOSER.tlines > 23)) LOOSER.tlines = DEF_MAX_SCR_LINES;
  187. X  
  188. X  printf("\n%s ", ADM20_MSG);
  189. X  strcpy(s, (char *) getline(10, 1114, '?', LOOSER.lastlog));
  190. X  if (s[0] > 31) sprintf(LOOSER.lastlog, s);
  191. X
  192. X  printf("\n%s ", ADM21_MSG);
  193. X  strcpy(t, (char *) timereconv((long) LOOSER.lasttime));
  194. X  t[5] = '\0';
  195. X  strcpy(s, (char *) getline(5, 1113, '?', t));
  196. X  LOOSER.lasttime = timeconv(s);
  197. X
  198. X  printf("\n%s ", ADM21aMSG);
  199. X  strcpy(s, (char *) ttyname(0));
  200. X  if(strcomp(PMS_TTY, s) == 0){
  201. X    strcpy(s, (char *) getline(17, 1011, '.', LOOSER.account));
  202. X    if (s[0] > 31) sprintf(LOOSER.account, s);
  203. X  }
  204. X  else{
  205. X    printf("%s", LOOSER.account);
  206. X  }
  207. X
  208. X  printf("\n%s ", ADM22_MSG);
  209. X  strcpy(s, (char *) getline(58, 1011, '.', LOOSER.newsgrps));
  210. X  if (s[0] > 31) sprintf(LOOSER.newsgrps, s);
  211. X
  212. X  printf("\n%s ", ADM23_MSG);
  213. X  sprintf(t, "%d", LOOSER.seq);
  214. X  strcpy(s, (char *) getline(10, 1111, '.', t));
  215. X  if (s[0] > 31) LOOSER.seq = atoi(s);
  216. X
  217. X  wait_until_keypressed();
  218. X
  219. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  220. X  fd = open(UDBASE, O_WRONLY);
  221. X  if (fd == -1) {
  222. X    nerror("admin.c", 428, "aendern", "Datei-Schreibfehler", UDBASE);
  223. X  }
  224. X  if (lseek(fd, ll, SEEK_SET) == -1) {
  225. X    nerror("admin.c", 431, "aendern", "Positionierungsfehler", UDBASE);
  226. X  }
  227. X  write(fd, &LOOSER, sizeof(LOOSER));
  228. X  close(fd);
  229. X  mbunlock(UDBASE);
  230. X
  231. X  if (LOOSER.id == USER.id) {    /* Ich bin's !!! */
  232. X
  233. X    maybe_locked(UDBASE, "r");
  234. X    mblock(UDBASE);
  235. X    fd = open(UDBASE, O_RDONLY);
  236. X    if (fd == -1) {
  237. X        nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  238. X    }
  239. X    lseek(fd, ll, SEEK_SET);
  240. X    read(fd, &USER, sizeof(USER));
  241. X    close(fd);
  242. X    mbunlock(UDBASE);
  243. X  }
  244. X}
  245. X
  246. X
  247. X
  248. X/***************************************************************************/
  249. X/*      FUNKTION  user_anzeigen()                       */
  250. X/*  BESCHREIBUNG  ALLE Teilnehmerdaten anzeigen (von ADMIN aus)           */
  251. X/*     PARAMETER  keine                                                       */
  252. X/*     RUECKGABE  keine                                                       */
  253. X/***************************************************************************/
  254. X
  255. Xvoid user_anzeigen()
  256. X{
  257. X  int fd;
  258. X  struct userdaten DUMMY, LOOSER;
  259. X  char s[STRING];
  260. X  char t[STRING];
  261. X  long ll = -1L;
  262. X  size_t dummy = sizeof(DUMMY);
  263. X  char c;
  264. X  int i;
  265. X  int uid = -1;
  266. X
  267. X
  268. X  headline( ADM01_MSG );
  269. X
  270. X  printf("%s ", ADM02_MSG);
  271. X  strcpy(s, (char *) getline(30, 11, '.', ""));
  272. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  273. X
  274. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  275. X  fd = open(UDBASE, O_RDONLY);
  276. X  if (fd == -1) {
  277. X    nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  278. X  }
  279. X  while (read(fd, &DUMMY, dummy) == dummy) {
  280. X    if (uid == DUMMY.id) {
  281. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  282. X    } 
  283. X    else{
  284. X        if ((strcomp(s, DUMMY.name) == 0) ||
  285. X            (strcomp(s, DUMMY.nick) == 0) ||
  286. X            (strcomp(s, DUMMY.sh_name) == 0)) {
  287. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  288. X        }
  289. X    }
  290. X  }
  291. X  lseek(fd, ll, SEEK_SET);
  292. X  read(fd, &LOOSER, sizeof(LOOSER));
  293. X  close(fd);
  294. X  mbunlock(UDBASE);
  295. X
  296. X  if (ll == -1L) return;
  297. X
  298. X  printf("%c  %s %d                                               ", CR, ADM03_MSG, LOOSER.id);
  299. X  printf("\n  %s %s",   ADM04_MSG, LOOSER.name);
  300. X  printf("\n  %s %s",   ADM05_MSG, LOOSER.passwort);
  301. X  printf("\n  %s %s",   ADM06_MSG, LOOSER.sh_name);
  302. X  printf("\n  %s %s",   ADM07_MSG, LOOSER.nick);
  303. X  printf("\n  %s %s",   ADM08_MSG, LOOSER.wohnort);
  304. X  printf("\n  %s %s",   ADM09_MSG, LOOSER.strasse);
  305. X  printf("\n  %s %s",   ADM10_MSG, LOOSER.telefon1);
  306. X  printf("\n  %s %s",   ADM11_MSG, LOOSER.telefon2);
  307. X  printf("\n  %s %s",   ADM12_MSG, LOOSER.geburtsdatum);
  308. X  printf("\n  %s %d",   ADM13_MSG, LOOSER.terminal);
  309. X  printf("\n  %s %d",   ADM14_MSG, LOOSER.editor);
  310. X  printf("\n  %s %d",   ADM15_MSG, LOOSER.level);
  311. X  printf("\n  %s %d",   ADM16_MSG, LOOSER.more);
  312. X  printf("\n  %s %d",   ADM17_MSG, LOOSER.bell);
  313. X  printf("\n  %s %d",   ADM18_MSG, LOOSER.prompt);
  314. X  printf("\n  %s %d",   ADM19_MSG, LOOSER.tlines += 2);
  315. X  printf("\n  %s %s",   ADM20_MSG, LOOSER.lastlog);
  316. X  printf("\n  %s %.5s", ADM21_MSG, (char *) timereconv((long) LOOSER.lasttime));
  317. X  printf("\n  %s %s",   ADM21aMSG, LOOSER.account);
  318. X  printf("\n  %s %s",   ADM22_MSG, LOOSER.newsgrps);
  319. X  printf("\n  %s %d",   ADM23_MSG, LOOSER.seq);
  320. X
  321. X  wait_until_keypressed();
  322. X}
  323. X
  324. X
  325. X
  326. X/***************************************************************************/
  327. X/*      FUNKTION  user_loeschen()                       */
  328. X/*  BESCHREIBUNG  Einen Teilnehmer einsch. persoenlicher Post etc. aus       */
  329. X/*          dem System entfernen.                                    */
  330. X/*     PARAMETER  keine                                                       */
  331. X/*     RUECKGABE  keine                                                       */
  332. X/***************************************************************************/
  333. X
  334. Xvoid user_loeschen()
  335. X{
  336. X  int fd;
  337. X  int gd;
  338. X  struct userdaten DUMMY, LOOSER;
  339. X  char s[STRING];
  340. X  char t[STRING];
  341. X  long ll = -1L;
  342. X  size_t dummy = sizeof(DUMMY);
  343. X  char c;
  344. X  int i;
  345. X  int uid = -1;
  346. X
  347. X
  348. X  headline( ADM25_MSG );
  349. X    
  350. X  printf("\n%s ", ADM02_MSG);
  351. X  strcpy(s, (char *) getline(30, 11, '.', ""));
  352. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  353. X
  354. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  355. X  fd = open(UDBASE, O_RDONLY);
  356. X  if (fd == -1) {
  357. X    nerror("admin.c", 459, "loeschen", "Datei-Lesefehler", UDBASE);
  358. X  }
  359. X  while (read(fd, &DUMMY, dummy) == dummy) {
  360. X    if (uid == DUMMY.id) {
  361. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  362. X    }
  363. X    else{
  364. X        if ((strcomp(s, DUMMY.name) == 0) ||
  365. X            (strcomp(s, DUMMY.nick) == 0) ||
  366. X            (strcomp(s, DUMMY.sh_name) == 0)) {
  367. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  368. X        }
  369. X    }
  370. X  }
  371. X  lseek(fd, ll, SEEK_SET);
  372. X  read(fd, &LOOSER, sizeof(LOOSER));
  373. X  close(fd);
  374. X  mbunlock(UDBASE);
  375. X
  376. X  if (ll == -1L) return;
  377. X
  378. X  printf("%c%s (%d)                                     ", CR, ADM26_MSG, LOOSER.id);
  379. X  printf("\n%s (%s) ", ADM27_MSG, LOOSER.name);
  380. X
  381. X  ansi("md");
  382. X  printf("\n\n%s [%c, %c] ? > ", ADM28_MSG, GBL06_MSG, GBL07_MSG);
  383. X  ansi("me");
  384. X
  385. X  c = yesno();
  386. X
  387. X  if (c != GBL06_MSG) return;
  388. X
  389. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  390. X  fd = open(UDBASE, O_RDONLY);
  391. X  if (fd == -1) {
  392. X    nerror("admin.c", 490, "loeschen", "Datei-Lesefehler", UDBASE);
  393. X  }
  394. X  sprintf(s, "%s/%dbase", TMP, getpid());
  395. X
  396. X  gd = open(s, O_WRONLY | O_CREAT);
  397. X  if (gd == -1) {
  398. X    nerror("admin.c", 497, "loeschen", "Datei-Erstellungsfehler", s);
  399. X  }
  400. X  while (read(fd, &DUMMY, dummy) == dummy) {
  401. X    if (DUMMY.id != LOOSER.id) {
  402. X        write(gd, &DUMMY, dummy);
  403. X    }
  404. X  }
  405. X  close(gd);
  406. X  close(fd);
  407. X  mbunlock(UDBASE);
  408. X
  409. X  sprintf(t, "cp %s %s", s, UDBASE);
  410. X  system(t);
  411. X
  412. X  unlink(s);
  413. X
  414. X  sprintf(s, "rm -r %s/usr/%d", HOME, LOOSER.id);
  415. X  system(s);
  416. X}
  417. X
  418. X
  419. X
  420. X
  421. X/***************************************************************************/
  422. X/*      FUNKTION  setup_get()                           */
  423. X/*  BESCHREIBUNG  Die Ziffern 1-max einlesen und zurueckgeben.           */
  424. X/*     PARAMETER  max  =  groesste, zulaessige Ziffer                   */
  425. X/*     RUECKGABE  erfasste Ziffer (CHAR !!!)                   */
  426. X/***************************************************************************/
  427. X
  428. Xint setup_get(max)
  429. Xchar max;
  430. X{
  431. X  char c;
  432. X
  433. X  ansi("md");
  434. X  printf("\n[1-%c] %s > ", max, ADM29_MSG);
  435. X  ansi("me");
  436. X
  437. X  do {
  438. X    c = getint();
  439. X    if ((c < '0') || (c > max)) c = 0;
  440. X  } while (c == 0);
  441. X  printf("%c", c);
  442. X
  443. X  return c;
  444. X}
  445. X
  446. X
  447. X
  448. X
  449. X/***************************************************************************/
  450. X/*      FUNKTION  wait_until_keypressed                       */
  451. X/*  BESCHREIBUNG  siehe FUNKTION                       */
  452. X/*     PARAMETER  keine                                                       */
  453. X/*     RUECKGABE  keine                                                       */
  454. X/***************************************************************************/
  455. X
  456. Xvoid wait_until_keypressed()
  457. X{
  458. X  char c;
  459. X
  460. X  ansi("md");
  461. X  printf("\n\n%s > ", ADM30_MSG);
  462. X  ansi("me");
  463. X 
  464. X  c = getint();
  465. X}
  466. X
  467. X
  468. X
  469. X
  470. X/***************************************************************************/
  471. X/*      FUNKTION  admin()                           */
  472. X/*  BESCHREIBUNG  Teilnehmerverwaltung fuer den Administrator/Sysop.       */
  473. X/*     PARAMETER  keine                                                       */
  474. X/*     RUECKGABE  keine                                                       */
  475. X/***************************************************************************/
  476. X
  477. Xvoid admin()
  478. X{
  479. X  char c;
  480. X
  481. XAGAIN:
  482. X
  483. X  headline( ADM31_MSG );
  484. X
  485. X  printf(  "\n  1 - %s", ADM32_MSG);
  486. X  printf("\n\n  2 - %s", ADM33_MSG);
  487. X  printf("\n\n  3 - %s", ADM34_MSG);
  488. X  printf("\n\n  4 - %s", ADM35_MSG);
  489. X  printf("\n\n  5 - %s", ADM36_MSG);
  490. X
  491. X  printf("\n");
  492. X  printf("\n\n  8 - %s", ADM37_MSG);
  493. X
  494. X  MEDIUM: printf("\n");
  495. X
  496. X  c = setup_get('8');
  497. X
  498. X  switch (c) {
  499. X      case '1':    
  500. X        postfach("*");
  501. X        logout();
  502. X        intro();
  503. X        break;
  504. X
  505. X      case '2':    
  506. X        user_aendern();
  507. X        break;
  508. X
  509. X      case '3':    
  510. X        user_loeschen();
  511. X        break;
  512. X
  513. X      case '4':    
  514. X        user_anzeigen();
  515. X        break;
  516. X
  517. X      case '5':
  518. X        userliste("");
  519. X        wait_until_keypressed();
  520. X        break;
  521. X
  522. X       default:
  523. X        printf("\n");
  524. X        return;
  525. X  }
  526. X  goto AGAIN;
  527. X
  528. X}
  529. X
  530. X
  531. X
  532. X
  533. X/***************************************************************************/
  534. X/*      FUNKTION  setup()                           */
  535. X/*  BESCHREIBUNG  Teilnehmerdaten/Parameter aendern (fuer die User)        */
  536. X/*     PARAMETER  keine                                                       */
  537. X/*     RUECKGABE  keine                                                       */
  538. X/***************************************************************************/
  539. X
  540. Xvoid setup()
  541. X{
  542. X  FILE *fp;
  543. X  int fd;
  544. X  char s[STRING];
  545. X  char t[STRING];
  546. X  char c;
  547. X  int i;
  548. X  int ok = 0;
  549. X  long ll;
  550. X  struct userdaten DUMMY;
  551. X  int dummy = sizeof(DUMMY);
  552. X  char *BLANKS = "                                               ";
  553. X
  554. X
  555. X  AGAIN:
  556. X
  557. X  headline( ADM38_MSG );
  558. X  printf("\n");
  559. X
  560. X  printf("  1 - %s\n\n", ADM39_MSG);
  561. X  printf("  2 - %s\n\n", ADM40_MSG);
  562. X  printf("  3 - %s\n\n", ADM41_MSG);
  563. X  printf("  4 - %s\n\n", ADM42_MSG);
  564. X  printf("  5 - %s\n\n", ADM43_MSG);
  565. X  printf("  6 - %s\n\n", ADM44_MSG);
  566. X  printf("  7 - %s\n\n", ADM45_MSG);
  567. X  printf("  8 - %s\n\n", ADM46_MSG);
  568. X  printf("\n");
  569. X  printf("  9 - %s\n\n", ADM47_MSG);
  570. X
  571. X  c = setup_get('9');
  572. X
  573. X  switch (c) {
  574. X      case '1':
  575. X        headline( ADM48_MSG );
  576. X        printf("\n");
  577. X        if (USER.terminal == 1)
  578. X            printf("*");
  579. X        else
  580. X            printf(" ");
  581. X        printf(" 1 - ANSI (X3.64 ... PC-BBS-ANSI)\n\n");
  582. X        if (USER.terminal == 2)
  583. X            printf("*");
  584. X        else
  585. X            printf(" ");
  586. X        printf(" 2 - VT100\n\n");
  587. X        if (USER.terminal == 3)
  588. X            printf("*");
  589. X        else
  590. X            printf(" ");
  591. X        printf(" 3 - VT52\n\n");
  592. X        if (USER.terminal == 4)
  593. X            printf("*");
  594. X        else
  595. X            printf(" ");
  596. X        printf(" 4 - Dump (%s)\n\n", ADM49_MSG);
  597. X        USER.terminal = setup_get('4') - 48;
  598. X        break;
  599. X
  600. X      case '2':
  601. X        headline( ADM50_MSG );
  602. X        printf("\n");
  603. X        fp = fopen(EDITORS, "r");
  604. X        if (fp == NULL) {
  605. X            nerror("admin.c", 563, "setup", "Datei-Lesefehler", EDITORS);
  606. X        }
  607. X        i = 0;
  608. X        while((fgets(s, 80, fp) != NULL) && (s[0] == '/'));
  609. X        while (fscanf(fp, "%s %s", s, t) > 0) {
  610. X            i++;
  611. X            if (USER.editor == i)
  612. X                printf("*");
  613. X            else
  614. X                printf(" ");
  615. X            printf(" %d - %s\n\n", i, s);
  616. X        }
  617. X        fclose(fp);
  618. X        USER.editor = setup_get((i + 48)) - 48;
  619. X    
  620. X        if (USER.level < WRITE_INTERNAT) USER.editor = 1;
  621. X        break;
  622. X
  623. X      case '3':
  624. X        headline( ADM51_MSG );
  625. X        printf("\n");
  626. X        strcpy(s, (char *) mytime(0));
  627. X        if ((USER.prompt == 1) && (USER.bell == 1))
  628. X            printf("*");
  629. X        else
  630. X            printf(" ");
  631. X        printf(" 1 - %s->     \"[%s] %s > \"\n\n", ADM52_MSG, s, LOP06_MSG);
  632. X        if ((USER.prompt == 1) && (USER.bell == 0))
  633. X            printf("*");             
  634. X        else
  635. X            printf(" ");
  636. X        printf(" 2 - %s->     \"[%s] %s > \"\n\n", ADM53_MSG, s, LOP06_MSG);
  637. X        if ((USER.prompt == 2) && (USER.bell == 1))
  638. X            printf("*");
  639. X        else
  640. X            printf(" ");
  641. X        printf(" 3 - %s->     \"[%s] %s > \"\n\n", ADM54_MSG, NG, LOP06_MSG);
  642. X        if ((USER.prompt == 2) && (USER.bell == 0))
  643. X            printf("*");
  644. X        else
  645. X            printf(" ");
  646. X        printf(" 4 - %s->     \"[%s] %s > \"\n\n", ADM55_MSG, NG, LOP06_MSG);
  647. X        if ((USER.prompt == 3) && (USER.bell == 1))
  648. X            printf("*");
  649. X        else
  650. X            printf(" ");
  651. X        printf(" 5 - %s->     \"[(Sec.) NZ, RZ, WZ] %s > \"\n\n", ADM56_MSG, LOP06_MSG);
  652. X        if ((USER.prompt == 3) && (USER.bell == 0))
  653. X            printf("*");
  654. X        else
  655. X            printf(" ");
  656. X        printf(" 6 - %s->     \"[(Sec.) NZ, RZ, WZ] %s > \"\n\n", ADM57_MSG, LOP06_MSG);
  657. X    
  658. X        c = setup_get('6');
  659. X        switch (c) {
  660. X                case '1':
  661. X                    USER.prompt = 1;
  662. X                    USER.bell = 1;
  663. X                    break;
  664. X                case '2':
  665. X                    USER.prompt = 1;
  666. X                    USER.bell = 0;
  667. X                    break;
  668. X                case '3':
  669. X                    USER.prompt = 2;
  670. X                    USER.bell = 1;
  671. X                    break;
  672. X                case '4':
  673. X                    USER.prompt = 2;
  674. X                    USER.bell = 0;
  675. X                    break;
  676. X                case '5':
  677. X                    USER.prompt = 3;
  678. X                    USER.bell = 1;
  679. X                    break;
  680. X                case '6':
  681. X                    USER.prompt = 3;
  682. X                    USER.bell = 0;
  683. X                    break;
  684. X        }
  685. X        break;
  686. X
  687. X      case '4':
  688. X        headline( ADM58_MSG );
  689. X        printf("\n");
  690. X        if (USER.more == 0)
  691. X            printf("*");
  692. X        else
  693. X            printf(" ");
  694. X        printf(" 1 - %s\n\n", ADM59_MSG);
  695. X        if (USER.more == 1)
  696. X            printf("*");
  697. X        else
  698. X            printf(" ");
  699. X        printf(" 2 - %s\n\n", ADM60_MSG);
  700. X        if (USER.more == 3)
  701. X            printf("*");
  702. X        else
  703. X            printf(" ");
  704. X        printf(" 3 - %s\n\n", ADM61_MSG);
  705. X        printf("\n");
  706. X        printf("  4 - %s\n\n", ADM62_MSG);
  707. X        printf("  5 - %s\n\n", ADM63_MSG);
  708. X        printf("  6 - %s\n\n", ADM64_MSG);        
  709. X        printf("  7 - %s\n\n", ADM64aMSG);
  710. X
  711. X        i = setup_get('7') - 49;
  712. X
  713. X        if (i < 3) {
  714. X            USER.more = i;
  715. X            if (USER.more == 2) USER.more++;
  716. X        }
  717. X        else {
  718. X            headline( ADM58_MSG );
  719. X            printf("\n");
  720. X            
  721. X            if (i == 3) {
  722. X                if (USER.leserichtung == 1)
  723. X                    printf("*");
  724. X                else
  725. X                    printf(" ");
  726. X                printf(" 1 - %s\n\n", ADM65_MSG);
  727. X                if (USER.leserichtung == 2)
  728. X                    printf("*");
  729. X                else
  730. X                    printf(" ");
  731. X                printf(" 2 - %s\n\n", ADM66_MSG);
  732. X        
  733. X                USER.leserichtung = setup_get('2') - 48;
  734. X            }
  735. X            if (i == 4) {
  736. X                if (USER.tlines != 23)
  737. X                    printf("*");
  738. X                else
  739. X                    printf(" ");
  740. X                printf(" 1 - %s\n\n", ADM67_MSG);
  741. X                if (USER.tlines == 23)
  742. X                    printf("*");
  743. X                else
  744. X                    printf(" ");
  745. X                printf(" 2 - %s\n\n", ADM68_MSG);
  746. X        
  747. X                USER.tlines = setup_get('2') - 48 + 21;
  748. X            }
  749. X            if (i == 5) {
  750. X                if (USER.schluessel[0] != 32)
  751. X                    printf("*");
  752. X                else
  753. X                    printf(" ");
  754. X                printf(" 1 - %s\n\n", ADM69_MSG);
  755. X                if (USER.schluessel[0] == 32)
  756. X                    printf("*");
  757. X                else
  758. X                    printf(" ");
  759. X                printf(" 2 - %s\n\n", ADM70_MSG);
  760. X        
  761. X                i = setup_get('2') - 48;
  762. X                if (i == 2){
  763. X                    USER.schluessel[0] = 32;
  764. X                }                
  765. X                else{
  766. X                    USER.schluessel[0] = 1;
  767. X                }
  768. X            }
  769. X            if (i == 6) {
  770. X                if (USER.schluessel[1] == 2)
  771. X                    printf("*");
  772. X                else
  773. X                    printf(" ");
  774. X                printf(" 1 - %s\n\n", ADM70aMSG);
  775. X                if (USER.schluessel[1] == 3)
  776. X                    printf("*");
  777. X                else
  778. X                    printf(" ");
  779. X                printf(" 2 - %s\n\n", ADM70bMSG);
  780. X        
  781. X                if (USER.schluessel[1] == 4)
  782. X                    printf("*");
  783. X                else
  784. X                    printf(" ");
  785. X                printf(" 3 - %s\n\n", ADM70cMSG);
  786. X    
  787. X                i = setup_get('3') - 48;
  788. X                USER.schluessel[1] = i + 1;
  789. X            }
  790. X        }
  791. X        break;
  792. X
  793. X    case '5':
  794. X        if (strcomp(GUEST, USER.name) == 0) break;
  795. X
  796. X        headline( ADM71_MSG );
  797. X        printf("\n");
  798. X
  799. X        ansi("md");
  800. X        printf("%s\n", ADM72_MSG);
  801. X        printf("%s\n", ADM73_MSG);
  802. X        printf("%s\n", ADM74_MSG);
  803. X        printf("\n");
  804. X        printf("%s\n", ADM75_MSG);
  805. X        printf("%s\n", ADM76_MSG);
  806. X        ansi("me");
  807. X
  808. X        maybe_locked(UDBASE, "r"); 
  809. X            fd = open(UDBASE, O_RDONLY);
  810. X        if (fd == -1) {
  811. X            nerror("admin.c", 747, "setup", "Datei-Lesefehler", UDBASE);
  812. X        }    
  813. X
  814. X        printf("\n%s ", ADM04_MSG);
  815. X        strcpy(s, (char *) getline(30, 1015, '.', USER.name));
  816. X        if(strcomp(GUEST, s) != 0){
  817. X            if (s[0] > 31){
  818. X                ok = 0;
  819. X                lseek(fd, 0L, SEEK_SET);
  820. X                while ((read(fd, &DUMMY, sizeof(DUMMY)) == sizeof(DUMMY)) && (ok == 0)) {
  821. X                    if (strcomp(s, DUMMY.name)    == 0) ok = 1;
  822. X                    if (strcomp(s, DUMMY.nick)    == 0) ok = 1;
  823. X                    if (strcomp(s, DUMMY.sh_name) == 0) ok = 1;
  824. X                }
  825. X                if(USER.level < ADMIN_LEV){
  826. X                    if ((strcomp("SYSOP", s) == 0) ||
  827. X                        (strcomp("POST",  s) == 0) ||
  828. X                        (strcomp("GAST",  s) == 0) ||
  829. X                        (strcomp("ADMIN", s) == 0) ||
  830. X                        (strcomp("COSYS", s) == 0)) ok++;
  831. X                }
  832. X
  833. X                if(ok == 0) sprintf(USER.name, s);
  834. X            }
  835. X        }
  836. X
  837. X        printf("\n%s ", ADM07_MSG);
  838. X        strcpy(s, (char *) getline(30, 1015, '.', USER.nick));
  839. X        if (s[0] > 31){    
  840. X            ok = 0;
  841. X            lseek(fd, 0L, SEEK_SET);
  842. X            while ((read(fd, &DUMMY, sizeof(DUMMY)) == sizeof(DUMMY)) && (ok == 0)) {
  843. X                if (strcomp(s, DUMMY.name)    == 0) ok = 1;
  844. X                if (strcomp(s, DUMMY.nick)    == 0) ok = 1;
  845. X                if (strcomp(s, DUMMY.sh_name) == 0) ok = 1;
  846. X            }
  847. X            if (USER.level < ADMIN_LEV){
  848. X                if ((strcomp("SYSOP", s) == 0) ||
  849. X                    (strcomp("POST",  s) == 0) ||
  850. X                    (strcomp("GAST",  s) == 0) ||
  851. X                    (strcomp("ADMIN", s) == 0) ||
  852. X                    (strcomp("COSYS", s) == 0)) ok++;
  853. X            }
  854. X
  855. X            if(ok == 0) sprintf(USER.nick, s);
  856. X        }
  857. X
  858. X        close(fd);
  859. X        mbunlock(UDBASE);
  860. X
  861. X        printf("\n%s ", ADM08_MSG);
  862. X        strcpy(s, (char *) getline(30, 1011, '.', USER.wohnort));
  863. X        if (s[0] > 31) sprintf(USER.wohnort, s);
  864. X
  865. X        printf("\n%s ", ADM09_MSG);
  866. X        strcpy(s, (char *) getline(30, 1011, '.', USER.strasse));
  867. X        if (s[0] > 31) sprintf(USER.strasse, s);
  868. X
  869. X        printf("\n%s ", ADM10_MSG);
  870. X        strcpy(s, (char *) getline(20, 1011, '.', USER.telefon1));
  871. X        if (s[0] > 31) sprintf(USER.telefon1, s);
  872. X
  873. X        printf("\n%s ", ADM11_MSG);
  874. X        strcpy(s, (char *) getline(20, 1011, '.', USER.telefon2));
  875. X        if (s[0] > 31) sprintf(USER.telefon2, s);
  876. X
  877. X        printf("\n%s ", ADM12_MSG);
  878. X        strcpy(s, (char *) getline(10, 1114, '?', USER.geburtsdatum));
  879. X        if (s[0] > 31) sprintf(USER.geburtsdatum, s);
  880. X
  881. X        break;
  882. X
  883. X
  884. X      case '6':
  885. X        if (strcomp(GUEST, USER.name) == 0) break;
  886. X
  887. X        headline( ADM77_MSG );
  888. X        
  889. X        NIX: printf("\n%s ", ADM78_MSG);
  890. X    
  891. X        strcpy(s, (char *) getline(10, 12, '.', ""));
  892. X        if (s[0] != '\0') {
  893. X            strcpy(USER.passwort, (char *) crypted(s));
  894. X            printf(" (%s)", USER.passwort);
  895. X        }
  896. X        if (length(USER.passwort) < 5) {
  897. X            ansi("md");
  898. X            printf("\n\n%s\n", ADM79_MSG);
  899. X            ansi("me");
  900. X            goto NIX;
  901. X        }
  902. X        printf("\n\n%s ", ADM80_MSG);
  903. X        strcpy(s, (char *) getline(10, 12, '.', ""));
  904. X        strcpy(t, (char *) crypted(s));
  905. X        printf(" (%s)", t);
  906. X        if ((strcomp(t, USER.passwort) != 0) || (strcomp(USER.passwort, t) != 0)) {
  907. X            ansi("md");
  908. X            printf(" %s         \n", ADM81_MSG);
  909. X            ansi("me");
  910. X            goto NIX;
  911. X        }
  912. X        break;
  913. X
  914. X    case '7':
  915. X        headline( ADM82_MSG );
  916. X        printf("\n");
  917. X        strcpy(s, (char *) mytime(0));
  918. X        if (USER.intro == 1)
  919. X            printf("*");
  920. X        else
  921. X            printf(" ");
  922. X        printf(" 1 - %s\n\n", ADM83_MSG);
  923. X        if (USER.intro == 2)
  924. X            printf("*");
  925. X        else
  926. X            printf(" ");
  927. X        printf(" 2 - %s\n\n", ADM84_MSG);
  928. X        if (USER.intro == 3)
  929. X            printf("*");
  930. X        else
  931. X            printf(" ");
  932. X        printf(" 3 - %s\n\n", ADM85_MSG);
  933. X        if (USER.intro == 4)
  934. X            printf("*");
  935. X        else
  936. X            printf(" ");
  937. X        printf(" 4 - %s\n\n", ADM86_MSG);
  938. X
  939. X        USER.intro = setup_get('4') - 48;
  940. X        break;
  941. X
  942. X      case '8':
  943. X        headline( ADM87_MSG );
  944. X        printf("\n");
  945. X        if (USER.lastmode == 1)
  946. X            printf("*");
  947. X        else
  948. X            printf(" ");
  949. X        printf(" 1 - %s\n\n", ADM88_MSG);
  950. X        if (USER.lastmode == 2)
  951. X            printf("*");
  952. X        else
  953. X            printf(" ");
  954. X        printf(" 2 - %s\n\n", ADM89_MSG);
  955. X        printf("\n");
  956. X        printf("  3 - %s\n\n", ADM90_MSG);
  957. X    
  958. X        i = setup_get('3') - 48;
  959. X
  960. X        switch (i) {
  961. X            case 1:
  962. X                USER.lastmode = 1;
  963. X                LASTTIME = USER.lasttime;
  964. X                break;
  965. X            case 2:
  966. X                USER.lastmode = 2;
  967. X                LASTTIME = (int) 0;
  968. X                break;
  969. X            case 3:
  970. X                headline( ADM87_MSG );
  971. X                ansi("md");
  972. X                printf("\n%s\n", ADM91_MSG);
  973. X                printf("%s\n", ADM92_MSG);
  974. X                printf("%s\n", ADM93_MSG);
  975. X                printf("%s\n", ADM94_MSG);
  976. X                ansi("me");
  977. X
  978. X                printf("\n%s ", ADM95_MSG);
  979. X                strcpy(t, (char *) datereconv(LASTLOG));
  980. X                strcpy(s, (char *) getline(10, 1114, '?', t));
  981. X                LASTLOG = (long) dateconv(s);
  982. X
  983. X                printf("\n%s ", ADM96_MSG);
  984. X                strcpy(t, (char *) timereconv(LASTTIME));
  985. X                strcpy(s, (char *) getline(8, 1113, '?', t));
  986. X                LASTTIME = timeconv(s);
  987. X
  988. X                break;
  989. X        }
  990. X        break;
  991. X
  992. X      case '9':    
  993. X        goto ENDE;
  994. X        break;
  995. X  }
  996. X  printf("\n\n");
  997. X  init_user( ADM97_MSG );
  998. X  goto AGAIN;
  999. X
  1000. X  ENDE:
  1001. X
  1002. X  printf("\n");
  1003. X  return;
  1004. X}
  1005. END_OF_FILE
  1006.   if test 24570 -ne `wc -c <'src/admin.c'`; then
  1007.     echo shar: \"'src/admin.c'\" unpacked with wrong size!
  1008.   fi
  1009.   # end of 'src/admin.c'
  1010. fi
  1011. if test -f 'src/lesen.c' -a "${1}" != "-c" ; then 
  1012.   echo shar: Will not clobber existing file \"'src/lesen.c'\"
  1013. else
  1014.   echo shar: Extracting \"'src/lesen.c'\" \(9399 characters\)
  1015.   sed "s/^X//" >'src/lesen.c' <<'END_OF_FILE'
  1016. X/***************************************************************************/
  1017. X/*        PROGRAMM  ix/Mbox                           */
  1018. X/*             DATEI  lesen.c                           */
  1019. X/*        FUNKTIONEN  lesen(), ansage(), unterschrift()               */
  1020. X/*              getsite(), checkdomaintype()               */
  1021. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1022. X/*  LETZTE AENDERUNG  04.01.1992                       */
  1023. X/***************************************************************************/
  1024. X
  1025. X#include <sys/types.h>
  1026. X#include <sys/stat.h>
  1027. X#include <unistd.h>
  1028. X#include <fcntl.h>
  1029. X#include <stdio.h>
  1030. X#include <utmp.h>
  1031. X#include <time.h>
  1032. X
  1033. X
  1034. X#include "mbox.h"
  1035. X
  1036. X
  1037. Xextern char headinfo[STRING];
  1038. X
  1039. X
  1040. X/***************************************************************************/
  1041. X/*      FUNKTION  lesen()                           */
  1042. X/*  BESCHREIBUNG  Zeigt einen Artikel o. eine persoenliche Mail an. Bietet */
  1043. X/*          dann versch. Optionen zum Weiterlesen o. Beantworten an. */
  1044. X/*     PARAMETER  arg  =  Nummer des Artikels/der Mail                     */
  1045. X/*     RUECKGABE  keine                                                       */
  1046. X/***************************************************************************/
  1047. X
  1048. Xvoid lesen(arg)
  1049. Xchar arg[];
  1050. X{
  1051. X  FILE *fp;
  1052. X  char s[LSTRING];
  1053. X  char entry[STRING];
  1054. X  char no[10];
  1055. X  char c;
  1056. X  int i;
  1057. X  int ok;
  1058. X  int MIN, MAX;
  1059. X  int pr;
  1060. X
  1061. X  struct stat fst;
  1062. X
  1063. X  sprintf(no, "%s", arg);
  1064. X
  1065. X  maybe_locked(INHALT, "r");
  1066. X  fp = fopen(INHALT, "r");
  1067. X  if (fp == NULL) {
  1068. X    nerror("misc.c", 558, "lesen", "Datei-Lesefehler", INHALT);
  1069. X  }
  1070. X  while ((fgets(s, LSTRING, fp) != NULL) && (s[2] != '='));
  1071. X  fgets(s, LSTRING, fp);
  1072. X  MIN = atoi(s);
  1073. X  while (fgets(s, LSTRING, fp) != NULL) {
  1074. X    MAX = atoi(s);
  1075. X  }
  1076. X  fclose(fp);
  1077. X
  1078. X  if (MAX < MIN) {
  1079. X    i = MIN;
  1080. X    MIN = MAX;
  1081. X    MAX = i;
  1082. X  }
  1083. X  NEXT_MSG:
  1084. X
  1085. X  if ((no[0] < '1') || (no[0] > '9')) {
  1086. X    ansi("md");
  1087. X    printf(" %s\n", MIS41_MSG);
  1088. X    ansi("me");
  1089. X    return;
  1090. X  }
  1091. X  if (pruefe(no) != 0) goto NEXT_NEXT;
  1092. X
  1093. X  printf("\n\n");
  1094. X  ansi("cl");
  1095. X
  1096. X  if (strcomp(BRETT, "PM") != 0) {
  1097. X        sprintf(entry, "%s/%s", BRETT, no); 
  1098. X    if(USER.terminal == 4){
  1099. X        ansi("md");
  1100. X        printf("%s %s\n", MIS42_MSG, no);
  1101. X        ansi("me");
  1102. X    }
  1103. X    else{
  1104. X        sprintf(headinfo, " %s %s (%s) ", MIS43_MSG, no, NG);
  1105. X        headline( headinfo );
  1106. X    }
  1107. X    ok = show(entry, 9999, USER.more);
  1108. X  }
  1109. X  else {
  1110. X    sprintf(entry, "%s/usr/%d/%s", HOME, USER.id, no);
  1111. X    if(USER.terminal == 4){
  1112. X        ansi("md");
  1113. X        printf("%s %s\n", MIS44_MSG, no);
  1114. X        ansi("me");
  1115. X    }
  1116. X    else{
  1117. X        sprintf(headinfo, " %s (%s) ", MIS45_MSG, no);
  1118. X        headline( headinfo );
  1119. X    }
  1120. X    ok = show(entry, 9999, USER.more);
  1121. X  }
  1122. X
  1123. X  if(ok == -1) return;
  1124. X
  1125. X  c = LF;
  1126. X
  1127. X  NEXT_NEXT:
  1128. X
  1129. X  printf("\n");
  1130. X  ansi("mr");
  1131. X  printf("[Mesg. %s] %s, ? > ", no, MIS46_MSG);
  1132. X  ansi("me");
  1133. X  printf("%c%c", MIS51_MSG, BS);
  1134. X
  1135. X  do {
  1136. X    c = getint();
  1137. X    if (c == MIS50_MSG) c = '*';
  1138. X    if (c >= 97) c -= 32;
  1139. X    if (c == ENTER) c = MIS51_MSG;
  1140. X    if (c == '?') {
  1141. X        clearline();
  1142. X        ansi("mr");
  1143. X        printf("%c%s > ", CR, MIS53_MSG);
  1144. X        ansi("me");
  1145. X    }
  1146. X    if ((c != MIS47_MSG) && (c != MIS48_MSG) && (c != MIS49_MSG) && (c != MIS50_MSG) && (c != MIS51_MSG) && (c != MIS52_MSG) && (c != '*'))
  1147. X        c = 0;
  1148. X  } while (c == 0);
  1149. X
  1150. X  printf("%c", c);
  1151. X
  1152. X  if (c == MIS50_MSG) {        /* LOESCHEN */
  1153. X    clearline();
  1154. X    ansi("mr");
  1155. X    printf("%s [%c, %c] > ", MIS54_MSG, GBL06_MSG, GBL07_MSG);
  1156. X    ansi("me");
  1157. X    if (yesno() == GBL06_MSG) {
  1158. X        loeschen(no);
  1159. X    }
  1160. X    printf("\n");
  1161. X    c = MIS51_MSG;
  1162. X  }
  1163. X  if (c == '*') {        /* LOESCHEN (sofort) */
  1164. X    loeschen(no);
  1165. X    printf("\n");
  1166. X    c = MIS51_MSG;
  1167. X  }
  1168. X  if (c == MIS51_MSG) {        /* NAECHSTE */
  1169. X    ok = 0;
  1170. X    do {
  1171. X        i = atoi(no);
  1172. X        i++;
  1173. X        sprintf(no, "%d", i);
  1174. X        pr = pruefe(no);
  1175. X        if (pr == 0) ok = 1;
  1176. X        if (pr == 1) goto NEXT_NEXT;
  1177. X        if (i > MAX) {
  1178. X            printf("\n\n%s\n", MIS55_MSG);
  1179. X            return;
  1180. X        }
  1181. X    } while (ok == 0);
  1182. X    if (ok == 1) goto NEXT_MSG;
  1183. X    goto NEXT_NEXT;
  1184. X  }
  1185. X  if (c == MIS52_MSG) {        /* VORHERIGE */
  1186. X    ok = 0;
  1187. X    do {
  1188. X        i = atoi(no);
  1189. X        i--;
  1190. X        sprintf(no, "%d", i);
  1191. X        pr = pruefe(no);
  1192. X        if (pr == 0) ok = 1;
  1193. X        if (pr == 1) goto NEXT_NEXT;
  1194. X        if (i < MIN) {
  1195. X            printf("\n\n%s\n", MIS56_MSG);
  1196. X            return;
  1197. X        }
  1198. X    } while (ok == 0);
  1199. X    if (ok == 1) goto NEXT_MSG;
  1200. X    goto NEXT_NEXT;
  1201. X  }
  1202. X  if (c == MIS49_MSG) goto NEXT_MSG;    /* WIEDERHOLEN */
  1203. X
  1204. X
  1205. X  if (c == MIS48_MSG) {            /* BEANTWORTEN */
  1206. X    headline( MIS57_MSG );
  1207. X    printf("\n%s", MIS58_MSG);
  1208. X    sprintf(s, "cp %s %s/%dRep > /dev/null", entry, TMP, getpid());
  1209. X    system(s);
  1210. X
  1211. X    if (strcomp(BRETT, "PM") == 0) {
  1212. X        brief("~REPLY~");
  1213. X        sprintf(s, "%s?", USER.name);
  1214. X        brief(s);
  1215. X        sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  1216. X        stat(s, &fst);
  1217. X        IDX_SIZE = (int) fst.st_size;
  1218. X    }
  1219. X    else {
  1220. X        printf("\n\n");
  1221. X        ansi("mr");
  1222. X        printf("%s, ? > ", MIS59_MSG);
  1223. X        ansi("me");
  1224. X
  1225. X        do {
  1226. X            c = getint();
  1227. X            if (c >= 97) c -= 32;
  1228. X            if (c == '?') {
  1229. X                clearline();
  1230. X                ansi("mr");
  1231. X                printf("%c%s > ", CR, MIS60_MSG);
  1232. X                ansi("me");
  1233. X            }
  1234. X            if ((c != MIS61_MSG) && (c != MIS62_MSG)) c = 0;
  1235. X        } while (c == 0);
  1236. X
  1237. X        printf("%c", c);
  1238. X
  1239. X        if (c == MIS62_MSG) {
  1240. X            schreiben("");
  1241. X        }
  1242. X        if (c == MIS61_MSG) {
  1243. X            brief("~REPLY~");
  1244. X            if(strcomp(GUEST, USER.name) != 0){
  1245. X                sprintf(s, "%s?", USER.name);
  1246. X                brief(s);
  1247. X                sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  1248. X                stat(s, &fst);
  1249. X                    IDX_SIZE = (long) fst.st_size;
  1250. X            }
  1251. X        }
  1252. X    }
  1253. X    goto NEXT_NEXT;
  1254. X  }
  1255. X  printf("\n");
  1256. X  return;
  1257. X}
  1258. X
  1259. X
  1260. X
  1261. X/***************************************************************************/
  1262. X/*      FUNKTION  ansage()                           */
  1263. X/*  BESCHREIBUNG  Der Ansage-Text wird angezeigt und kann geandert werden. */
  1264. X/*     PARAMETER  keine                                                       */
  1265. X/*     RUECKGABE  keine                                                       */
  1266. X/***************************************************************************/
  1267. X
  1268. Xvoid ansage()
  1269. X{
  1270. X  FILE *ff;
  1271. X  char s[STRING];
  1272. X  char t[STRING];
  1273. X  char TEP[STRING];
  1274. X  char c;
  1275. X
  1276. X
  1277. X  printf("\n\n%s\n\n", MAL38_MSG);
  1278. X
  1279. X  sprintf(TEP, "%s/usr/%d/.hello", HOME, USER.id);
  1280. X  ff = fopen(TEP, "r");
  1281. X  if (ff != NULL) {
  1282. X    ansi("md");
  1283. X    while (fgets(s, 80, ff) != NULL) {
  1284. X        printf("%s", s);
  1285. X    }
  1286. X    fclose(ff);
  1287. X    ansi("me");
  1288. X    printf("\n\n");
  1289. X  }
  1290. X  ansi("mr");
  1291. X  printf("%c%s [%c, %c] > ", CR, MAL39_MSG, GBL06_MSG, GBL07_MSG);
  1292. X  ansi("me");
  1293. X
  1294. X  c = yesno();
  1295. X
  1296. X  if (c == GBL06_MSG) {
  1297. X    sprintf(t, "%s %s", EDDY, TEP);
  1298. X    system(t);
  1299. X  }
  1300. X  printf("\n");
  1301. X}
  1302. X
  1303. X
  1304. X
  1305. X
  1306. X/***************************************************************************/
  1307. X/*      FUNKTION  unterschrift                           */
  1308. X/*  BESCHREIBUNG  Die Unterschrift (.signature) wird angezeigt und kann    */
  1309. X/*          geandert werden.                                         */
  1310. X/*     PARAMETER  keine                                                       */
  1311. X/*     RUECKGABE  keine                                                       */
  1312. X/***************************************************************************/
  1313. X
  1314. Xvoid unterschrift()
  1315. X{
  1316. X  FILE *ff;
  1317. X  char s[STRING];
  1318. X  char t[STRING];
  1319. X  char TEP[STRING];
  1320. X  char c;
  1321. X
  1322. X
  1323. X  printf("\n\n%s\n\n", MAL40_MSG);
  1324. X
  1325. X  sprintf(TEP, "%s/usr/%d/.signature", HOME, USER.id);
  1326. X  ff = fopen(TEP, "r");
  1327. X  if (ff != NULL) {
  1328. X    ansi("md");
  1329. X    while (fgets(s, 80, ff) != NULL) {
  1330. X        printf("%s", s);
  1331. X    }
  1332. X    fclose(ff);
  1333. X    ansi("me");
  1334. X    printf("\n\n");
  1335. X  }
  1336. X  ansi("mr");
  1337. X  printf("%c%s [%c, %c] > ", CR, MAL41_MSG, GBL06_MSG, GBL07_MSG);
  1338. X  ansi("me");
  1339. X
  1340. X  c = yesno();
  1341. X
  1342. X  if (c == GBL06_MSG) {
  1343. X    sprintf(t, "%s %s", EDDY, TEP);
  1344. X    system(t);
  1345. X  }
  1346. X  printf("\n");
  1347. X}
  1348. X
  1349. X
  1350. X
  1351. X
  1352. X/***************************************************************************/
  1353. X/*      FUNKTION  getsite()                           */
  1354. X/*  BESCHREIBUNG  Findet den Empfaenger SITE in der Adresse           */
  1355. X/*     PARAMETER  Adresse                                                  */
  1356. X/*     RUECKGABE  Empfaenger SITE                                          */
  1357. X/***************************************************************************/
  1358. X
  1359. Xchar *getsite(arg)
  1360. Xchar arg[];
  1361. X{
  1362. X  int i = 0, a = 0, b = 0, c = 0;
  1363. X  char s[STRING];
  1364. X
  1365. X  while(arg[i] != '\0'){
  1366. X    if(arg[i] == '!') a = i - 1;
  1367. X    if(arg[i] == '@') b = i + 1;
  1368. X    if(arg[i] == '.'){
  1369. X        if((b != 0) && (c == 0)) c = i -1;
  1370. X    }
  1371. X    i++;
  1372. X  }
  1373. X
  1374. X  if((a == 0) && (b == 0)) strcat(s, UUCPSITE);
  1375. X  if(a != 0) strcpy(s, (char *) strcopy(arg, 0, a));
  1376. X  if(b != 0) strcpy(s, (char *) strcopy(arg, b, c));
  1377. X
  1378. X  return (char *) s;
  1379. X}
  1380. X
  1381. X
  1382. X
  1383. X
  1384. X/***************************************************************************/
  1385. X/*      FUNKTION  checkdomaintype()                       */
  1386. X/*  BESCHREIBUNG  Internationale MAIL ???                    */
  1387. X/*     PARAMETER  Adresse                                                  */
  1388. X/*     RUECKGABE   0 = ok                                                  */
  1389. X/*                -1 = Level zu gering                       */
  1390. X/***************************************************************************/
  1391. X
  1392. Xint checkdomaintype(arg)
  1393. Xchar arg[];
  1394. X{
  1395. X  int i = 0, l, a, e = 0, f = 0, g = 0, international = 0;
  1396. X  char s[STRING];
  1397. X
  1398. X  if(USER.level >= WRITE_INTERNAT) return 0;
  1399. X
  1400. X  while(arg[i] != '\0'){
  1401. X    if(arg[i] == '!') e++;
  1402. X    if(arg[i] == '@') g++;
  1403. X    i++;
  1404. X  }
  1405. X  s[0] = '\0';
  1406. X
  1407. X  if((e == 0) && (g == 0)) return 0;
  1408. X
  1409. X  if(e > 1) international++;
  1410. X
  1411. X  if(e == 0){
  1412. X
  1413. X    l = strlen( (char *) arg);
  1414. X
  1415. X    a = strlen( (char *) NAT_DOMAIN1 );
  1416. X    strcpy(s, (char *) strcopy(arg, (l-a), l));
  1417. X    if(strcomp(s, NAT_DOMAIN1) == 0) f++;
  1418. X
  1419. X    a = strlen( (char *) NAT_DOMAIN2 );
  1420. X    strcpy(s, (char *) strcopy(arg, (l-a), l));
  1421. X    if(strcomp(s, NAT_DOMAIN2) == 0) f++;
  1422. X
  1423. X    a = strlen( (char *) NAT_DOMAIN3 );
  1424. X    strcpy(s, (char *) strcopy(arg, (l-a), l));
  1425. X    if(strcomp(s, NAT_DOMAIN3) == 0) f++;      
  1426. X
  1427. X    if(f == 0) international++;
  1428. X  }  
  1429. X
  1430. X  if(international != 0){
  1431. X    ansi("md");
  1432. X    printf("\n\n%s (%d) %s\n", MAL01_MSG, WRITE_INTERNAT, MAL02_MSG);
  1433. X    ansi("me");
  1434. X    return -1;    
  1435. X  }
  1436. X
  1437. X  return 0;
  1438. X}
  1439. X
  1440. X
  1441. X
  1442. X
  1443. END_OF_FILE
  1444.   if test 9399 -ne `wc -c <'src/lesen.c'`; then
  1445.     echo shar: \"'src/lesen.c'\" unpacked with wrong size!
  1446.   fi
  1447.   # end of 'src/lesen.c'
  1448. fi
  1449. if test -f 'src/mail.c' -a "${1}" != "-c" ; then 
  1450.   echo shar: Will not clobber existing file \"'src/mail.c'\"
  1451. else
  1452.   echo shar: Extracting \"'src/mail.c'\" \(22692 characters\)
  1453.   sed "s/^X//" >'src/mail.c' <<'END_OF_FILE'
  1454. X/***************************************************************************/
  1455. X/*        PROGRAMM  ix/Mbox                           */
  1456. X/*             DATEI  mail.c                           */
  1457. X/*        FUNKTIONEN  fetch_receipy(), brief()                   */
  1458. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1459. X/*  LETZTE AENDERUNG  03.06.1992                       */
  1460. X/***************************************************************************/
  1461. X
  1462. X#include <sys/types.h>
  1463. X#include <sys/stat.h>
  1464. X#include <unistd.h>
  1465. X#include <stdio.h>
  1466. X#include <fcntl.h>
  1467. X#include <time.h>
  1468. X
  1469. X#include "mbox.h"
  1470. X
  1471. Xstatic int fetch_local;
  1472. Xstatic char fetch_subj[STRING];
  1473. X
  1474. X
  1475. X/***************************************************************************/
  1476. X/*      FUNKTION  fetch_receipy()                       */
  1477. X/*  BESCHREIBUNG  Im REPLY-Modus wird die Adresse des Empfaengers aus      */
  1478. X/*              dessen Mail gefiltert.                                   */
  1479. X/*     PARAMETER  REP  =  Datei mit der Mail des zukuenftigen Empfaengers  */
  1480. X/*     RUECKGABE  Adresse des Empfaengers                                  */
  1481. X/***************************************************************************/
  1482. X
  1483. Xchar *fetch_reciepy(REP)
  1484. Xchar REP[];
  1485. X{
  1486. X  FILE *fp;
  1487. X  char s[STRING];
  1488. X  char t[STRING];
  1489. X  char f[STRING];
  1490. X  int ok = 0, i;
  1491. X  int beg = 0;
  1492. X  int bang = 0, at = 0, strange = 0, stranger = 0;
  1493. X
  1494. X  fetch_local = 0;
  1495. X  fetch_subj[0] = '\0';
  1496. X
  1497. X  fp = fopen(REP, "r");
  1498. X  if (fp == NULL) {
  1499. X    nerror("mail.c", 31, "fetch_reciepy", "Datei_Lesefehler", REP);
  1500. X  }
  1501. X  while (fgets(f, 80, fp) != NULL) {
  1502. X    if (strcomp("From: ", f) == 0) {
  1503. X        beg = 6;
  1504. X        ok = 1;
  1505. X        strcpy(s, f);
  1506. X    }
  1507. X    if (strcomp("From ", f) == 0) { /* local mail */
  1508. X        beg = 5; 
  1509. X        ok = 1;
  1510. X        strcpy(s, f);
  1511. X    }
  1512. X    if (strcomp("Reply-To: ", f) == 0) {
  1513. X        beg = 10;
  1514. X        ok = 1;
  1515. X        strcpy(s, f);
  1516. X    }
  1517. X    if (strcomp("Subject: ", s) == 0) {
  1518. X        strcpy(fetch_subj, (char *) strcopy(s, 9, 79));
  1519. X    }
  1520. X  }
  1521. X  fclose(fp);
  1522. X
  1523. X  if (ok == 0) {
  1524. X    return (char *) "OOPS";
  1525. X  }
  1526. X  i = beg;
  1527. X  ok = 0;
  1528. X
  1529. X  while (s[i] != '\0') {
  1530. X    if (s[i] == '(') ok = i - 2;
  1531. X    if (s[i] == '<') strange = i + 1;
  1532. X    if (s[i] == '>') stranger = i - 1;
  1533. X    i++;
  1534. X  }
  1535. X  if (ok == 0) ok = i;
  1536. X  strcpy(t, (char *) strcopy(s, beg, ok));
  1537. X
  1538. X  if ((strange != 0) && (stranger != 0)) {
  1539. X    strcpy(t, (char *) strcopy(s, strange, stranger));
  1540. X    return (char *) t;
  1541. X  }
  1542. X  i = 0;
  1543. X  while (t[i] != '\0') {
  1544. X    if (t[i] == '@') at = i;
  1545. X    if (t[i] == '!') bang = i;
  1546. X    i++;
  1547. X  }
  1548. X
  1549. X  if (at != 0) {
  1550. X    strcpy(s, (char *) strcopy(t, (at + 1), length(t)));
  1551. X    if (strcomp(UUCPSITE, s) == 0) {    /* local user */
  1552. X        fetch_local = 1;
  1553. X        strcpy(s, (char *) strcopy(t, 0, (at - 1)));
  1554. X        i = 0;
  1555. X        while (s[i] != '\0') {
  1556. X            if (s[i] == '.') s[i] = ' ';
  1557. X            i++;
  1558. X        }
  1559. X        return (char *) s;
  1560. X    }
  1561. X  }
  1562. X
  1563. X  if (beg == 5) {  /* local mail */
  1564. X    i = 0;
  1565. X    while((t[i] != '\0') && (t[i] != ' ')) i++;
  1566. X    t[i] = '\0';
  1567. X  }
  1568. X
  1569. X  return (char *) t;
  1570. X}
  1571. X
  1572. X
  1573. X
  1574. X
  1575. X
  1576. X
  1577. X/***************************************************************************/
  1578. X/*      FUNKTION  brief()                           */
  1579. X/*  BESCHREIBUNG  Eine persoenliche Nachricht wird verschickt. Je nach     */
  1580. X/*          Empfaenger-Adresse und Parameter wird die Post ins       */
  1581. X/*          MBox-interne Mailsystem geschickt, oder an MAIL          */
  1582. X/*          weitergleitet. Die Adresse des Empfaengers wird ent-     */
  1583. X/*          weder als Parameter uebergeben, oder aus einer Datei     */
  1584. X/*          gefiltert, auf die geantwortet werden soll (REPLY-Mode). */
  1585. X/*     PARAMETER  arg  =  "~REPLY~"    =  REPLY-Modus aktivieren           */
  1586. X/*              Es wird nicht unterschieden zwischen REPLY auf   */
  1587. X/*              pers. Mail oder REPLY auf einen NEWS-Artikel.    */
  1588. X/*              Die Datei mit der zu beantwortenden MSG liefert  */
  1589. X/*              die Routine "lesen()".                           */
  1590. X/*          arg  =  "Empfaenger" =  verwertbare Adresse fuer das     */
  1591. X/*              interen Mail-System oder MAIL.                   */
  1592. X/*     RUECKGABE   -1  =  Abbruch                                          */
  1593. X/***************************************************************************/
  1594. X
  1595. Xint brief(arg)
  1596. Xchar arg[];
  1597. X{
  1598. X  FILE *fp;
  1599. X  FILE *ff;
  1600. X  FILE *ft;
  1601. X  int fd;
  1602. X  int i, j;
  1603. X  int ok;
  1604. X  struct userdaten LOOSER;
  1605. X
  1606. X  struct tm *timeptr;
  1607. X  time_t timer;
  1608. X
  1609. X  int receiver;
  1610. X  int mail_id;
  1611. X  int EX_PM = 0;
  1612. X  int REPLY = 0;
  1613. X  int lines = 0;
  1614. X  int WEITERLEITEN = 0;
  1615. X  int HOLD = 0;
  1616. X  int UMLEITUNG = 0;
  1617. X
  1618. X  char s[STRING];
  1619. X  char t[STRING];
  1620. X  char TEP[STRING];
  1621. X  char REP[STRING];
  1622. X  char f[STRING];
  1623. X  char subject[STRING];
  1624. X  char from[STRING];
  1625. X  char rec_char[STRING];
  1626. X  char ex[LONGSTRING];
  1627. X  char user[STRING];
  1628. X  char mesg_id[STRING];
  1629. X  char refs[STRING];
  1630. X  char date[STRING];
  1631. X  char c;
  1632. X  char protokoll;
  1633. X  char lf;
  1634. X  char pubdir[STRING];
  1635. X  char dummy[STRING];
  1636. X  char username[STRING];
  1637. X  char reply[STRING];
  1638. X  char priority[STRING];
  1639. X  char action[STRING];
  1640. X  char cc[STRING];
  1641. X  char bcc[STRING];
  1642. X  char encrypted[STRING];
  1643. X  char comments[STRING];
  1644. X  char keywords[STRING];
  1645. X  char fortune[STRING];
  1646. X  char content[STRING];
  1647. X
  1648. X  char YOUR_SITE[STRING];
  1649. X
  1650. X  int BINFILE;
  1651. X  int news_reply = 0;
  1652. X
  1653. X  struct stat fst;
  1654. X
  1655. X
  1656. X  i = 0;
  1657. X  ok = 0;
  1658. X
  1659. X  mesg_id[0] = '\0';
  1660. X
  1661. X  if (arg[0] == '\0') {
  1662. X    ansi("md");
  1663. X    printf(" %s\n", MAL03_MSG);
  1664. X    ansi("me");
  1665. X    return -1;
  1666. X  }
  1667. X  EX_PM = 0;
  1668. X
  1669. X
  1670. X  i = 0;
  1671. X  strcpy(t, USER.name);
  1672. X  while (t[i] != '\0') {
  1673. X    if (t[i] == ' ') t[i] = '.';
  1674. X    i++;
  1675. X  }
  1676. X  strcpy(username, t);
  1677. X  action[0] = '\0';
  1678. X  priority[0] = '\0';
  1679. X  encrypted[0] = '\0';
  1680. X  keywords[0] = '\0';
  1681. X  comments[0] = '\0';
  1682. X  cc[0] = '\0';
  1683. X  bcc[0] = '\0';
  1684. X  fortune[0] = '\0';
  1685. X  content[0] = '\0';
  1686. X
  1687. X  i = 0;
  1688. X  while (arg[i] != '\0') {
  1689. X    if ((arg[i] == '!') || (arg[i] == '@') || (arg[i] == '%')) EX_PM++;
  1690. X    i++;
  1691. X  }
  1692. X
  1693. X  if ((EX_PM > 0) && (USER.level < MAILOUT_LEV)) {
  1694. X    ansi("md");
  1695. X    printf("\n\n%s (%d) %s\n", MAL04_MSG, MAILOUT_LEV, MAL05_MSG);
  1696. X    ansi("me");
  1697. X    return -1;
  1698. X  }
  1699. X
  1700. X  if(arg[length(arg) -1] == '?'){
  1701. X    arg[length(arg) -1] = '$';
  1702. X    HOLD++;
  1703. X  }
  1704. X
  1705. X  if(arg[length(arg) -1] == '$'){
  1706. X    WEITERLEITEN++;
  1707. X    arg[length(arg) -1] = '\0';
  1708. X    sprintf(TEP, "%s/usr/%d/.lastletter", HOME, USER.id);
  1709. X    sprintf(t, "%s/usr/%d/.lastsubject", HOME, USER.id);
  1710. X    fp = fopen( t, "r" );
  1711. X    if(fp == NULL) {
  1712. X        return -1; 
  1713. X    }
  1714. X    fgets(s, 80, fp);
  1715. X    fclose(fp);
  1716. X    if(HOLD == 0){
  1717. X        sprintf(subject, "%s %s", MAL06_MSG, s);
  1718. X        UMLEITUNG++;
  1719. X    }else
  1720. X        sprintf(subject, "%s", s);
  1721. X  }
  1722. X
  1723. X  user[0] = '\0';
  1724. X  strcat(user, arg);
  1725. X
  1726. X  if(WEITERLEITEN != 0) goto TRY_AGAIN;
  1727. X
  1728. X  if (strcomp("~REPLY~", arg) == 0) {
  1729. X    REPLY++;
  1730. X    sprintf(REP, "%s/%dRep", TMP, getpid());
  1731. X    sprintf(TEP, "%s/%dTep", TMP, getpid());
  1732. X    fp = fopen(REP, "r");
  1733. X    if (fp == NULL) {
  1734. X        nerror("mail.c", 278, "brief", "Datei-Lesefehler", REP);
  1735. X    }
  1736. X    fgets(s, 80, fp    );            /* HEADER: Autor */
  1737. X
  1738. X    sprintf(dummy, "%s %s", GBL01_MSG, X_MAIL_DEMON);
  1739. X
  1740. X    if ((strcomp(GBL01_MSG, s) == 0) && (strcomp(dummy, s) != 0)) {
  1741. X        strcpy(user, (char *) strcopy(s, (1+strlen(GBL01_MSG)), 80));
  1742. X
  1743. X        fgets(s, 80, fp);        /* HEADER: Datum */
  1744. X        fgets(s, 80, fp);        /* HEADER: Betreff */
  1745. X
  1746. X        strcpy(t, (char *) strcopy(s, (1+strlen(GBL03_MSG)), 80));
  1747. X        subject[0]= '\0';
  1748. X        if (strcomp("Re: ", t) != 0) {
  1749. X            strcpy(subject, "Re: ");
  1750. X        }
  1751. X        strcat(subject, (char *) stripped(t));
  1752. X
  1753. X        fgets(s, 80, fp);    /* HEADER: Leer */
  1754. X        fgets(s, 80, fp);    /* HEADER: Leer */
  1755. X    }
  1756. X    else {        /* UUCP-Header (!MBox) */
  1757. X
  1758. X        sprintf(subject, MAL07_MSG);
  1759. X        refs[0] = '\0';
  1760. X        mesg_id[0] = '\0';
  1761. X
  1762. X        ok = -1;
  1763. X
  1764. X        while ((ok < 1) && (fgets(s, 80, fp) != NULL)) {
  1765. X            if (strcomp("Lines: ", s)      == 0) ok = 1;
  1766. X            if (strcomp("Date: ",  s)      == 0) {
  1767. X                strcpy(date, (char *) strcopy(s, 6, 80));
  1768. X            }
  1769. X            if (strcomp("Newsgroups: ", s) == 0) news_reply++;
  1770. X            if (strcomp("Subject: ", s)    == 0) {
  1771. X                subject[0] = '\0';
  1772. X                strcpy(t, (char *) strcopy(s, 9, 80));
  1773. X                if (strcomp("Re: ", t) != 0) {
  1774. X                    sprintf(subject, "%s", "Re: ");
  1775. X                }
  1776. X                strcat(subject, (char *) stripped(t));
  1777. X            }
  1778. X            if (strcomp("Message-Id: ", s) == 0) {
  1779. X                strcpy(mesg_id, (char *) strcopy(s, 12, 80));
  1780. X            }
  1781. X            if (strcomp("From: ", s) == 0) {
  1782. X                strcpy(from, (char *) strcopy(s, 6, 80));
  1783. X                ok = 0;
  1784. X            }
  1785. X            if (strcomp("From ", s) == 0) {
  1786. X                strcpy(from, (char *) strcopy(s, 5, 80));
  1787. X                ok = 0;
  1788. X            }
  1789. X            if (strcomp("References: ", s) == 0) {
  1790. X                strcpy(refs, (char *) strcopy(s, 12, 80));
  1791. X            }
  1792. X            if (strcomp("Comments: ", s) == 0) {
  1793. X                strcpy(comments, (char *) strcopy(s, 10, 80));
  1794. X                strcpy(comments, (char *) stripped(comments));    
  1795. X            }
  1796. X            if (strcomp("Keywords: ", s) == 0) {
  1797. X                strcpy(keywords, (char *) strcopy(s, 10, 80));
  1798. X                strcpy(keywords, (char *) stripped(keywords));
  1799. X            }
  1800. X            if (strcomp("Content-Type: ", s) == 0) {
  1801. X                strcpy(content, (char *) strcopy(s, 14, 80));
  1802. X                strcpy(content, (char *) stripped(content));
  1803. X            }
  1804. X
  1805. X            if ((strlen(s) < 5) && (ok == 0)) ok = 1;
  1806. X        }
  1807. X    }
  1808. X
  1809. X    ff = fopen(TEP, "w");
  1810. X    while (fgets(s, 80, fp) != NULL) {
  1811. X        if(s[0] != '\n') fputs("> ", ff);
  1812. X        fputs(s, ff);
  1813. X    }
  1814. X    fputs("", ff);
  1815. X    fclose(ff);
  1816. X    fclose(fp);
  1817. X  }
  1818. X
  1819. X  TRY_AGAIN:
  1820. X
  1821. X  if((WEITERLEITEN != 0) && (EX_PM != 0)){
  1822. X    sprintf(rec_char, "%s", user);
  1823. X    if(checkdomaintype( rec_char ) != 0) return -1;
  1824. X    goto ONCE_MORE;
  1825. X  }
  1826. X
  1827. X  receiver = 0;
  1828. X
  1829. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  1830. X  fd = open(UDBASE, O_RDONLY);
  1831. X  if (fd == -1) {
  1832. X    nerror("mail.c", 216, "brief", "Datei-Lesefehler", UDBASE);
  1833. X  }
  1834. X  lseek(fd, 0L, SEEK_SET);
  1835. X  while ((read(fd, &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER)) && (receiver == 0)) {
  1836. X    if ((strcomp(user, LOOSER.name) == 0) ||
  1837. X        (strcomp(LOOSER.name, user) == 0) ||
  1838. X        (strcomp(user, LOOSER.nick) == 0) ||
  1839. X        (strcomp(user, LOOSER.sh_name) == 0)) {
  1840. X        receiver = LOOSER.id;
  1841. X        strcpy(rec_char, LOOSER.name);
  1842. X    }
  1843. X  }
  1844. X  close(fd);
  1845. X  mbunlock(UDBASE);
  1846. X
  1847. X
  1848. X  if ((receiver == 0) && (EX_PM == 0)) {
  1849. X
  1850. X    if (REPLY != 0) {
  1851. X        strcpy(user, fetch_reciepy(REP));
  1852. X        if (fetch_local == 1) goto TRY_AGAIN;
  1853. X        strcpy(rec_char, (char *) stripped(user));
  1854. X        if (strcomp(user, "OOPS") == 0) {
  1855. X            ansi("md");
  1856. X            printf("\n\n%s\n", MAL08_MSG);
  1857. X            ansi("me ");
  1858. X            unlink(TEP);
  1859. X            unlink(REP); /* ??? */
  1860. X            return -1;
  1861. X        }
  1862. X        EX_PM = 1;
  1863. X        c = MAL13_MSG;
  1864. X        goto REPLY_MARK;
  1865. X    }
  1866. X    else {
  1867. X        ansi("md");
  1868. X        strcpy(rec_char, (char *) stripped(user));
  1869. X        printf("\n\n%s \"%s\" %s\n", MAL09_MSG, user, MAL10_MSG);
  1870. X        ansi("me");
  1871. X        if(WEITERLEITEN == 0) unlink(TEP);
  1872. X        unlink(REP);
  1873. X        return -1;
  1874. X    }
  1875. X  }
  1876. X
  1877. X  if(WEITERLEITEN != 0) goto ONCE_MORE;
  1878. X
  1879. X  unlink(REP);
  1880. X
  1881. X  if (EX_PM == 0) {
  1882. X    ansi("md");
  1883. X    sprintf(s, "%s/usr/%d/.hello", HOME, receiver);
  1884. X    printf("\n\n");
  1885. X    show(s, 22, 0);
  1886. X    ansi("me");
  1887. X  }
  1888. X  else {
  1889. X    strcpy(rec_char, arg);
  1890. X  }
  1891. X
  1892. X  if(checkdomaintype( rec_char ) != 0) return -1;
  1893. X
  1894. X  if (REPLY != 0) {
  1895. X    c = MAL13_MSG;
  1896. X    goto REPLY_MARK;
  1897. X  }
  1898. X  printf("\n\n");
  1899. X  ansi("mr");
  1900. X  printf("[%s \"%s\"] %s, ? > ", MAL11_MSG, rec_char, MAL12_MSG);
  1901. X  ansi("me");
  1902. X  printf("%c%c", MAL13_MSG, BS);
  1903. X
  1904. X  do {
  1905. X    c = getint();
  1906. X    if (c >= 97) c -= 32;
  1907. X    if (c == '?') {
  1908. X        clearline();
  1909. X        ansi("mr");
  1910. X        printf("%c%s > ", CR, MAL16_MSG);
  1911. X        ansi("me");
  1912. X    }
  1913. X    if (c == ENTER) c = MAL13_MSG;
  1914. X    if ((c != MAL13_MSG) && (c != MAL14_MSG) && (c != MAL15_MSG)) c = 0;
  1915. X  } while (c == 0);
  1916. X
  1917. X  printf("%c", c);
  1918. X
  1919. X  if (c == MAL15_MSG) {        /* VERWERFEN */
  1920. X    unlink(REP);
  1921. X    unlink(TEP);
  1922. X    printf("\n");
  1923. X    return -1;
  1924. X  }
  1925. X  sprintf(TEP, "%s/M%d", TMP, getpid());
  1926. X  sprintf(pubdir, "%s/dir%d", TMP, getpid());
  1927. X
  1928. X  if (c == MAL14_MSG) {        /* UPLOAD */
  1929. X    clearline();
  1930. X    ansi("mr");
  1931. X    printf("%c%s, ? > ", CR, MAL17_MSG);
  1932. X    ansi("me");
  1933. X
  1934. X    do {
  1935. X        protokoll = getint();
  1936. X        if (protokoll >= 97) protokoll -= 32;
  1937. X        if (protokoll == '?') {
  1938. X            clearline();
  1939. X            ansi("mr");
  1940. X            printf("%c%s > ", CR, MAL17aMSG);
  1941. X            ansi("me");
  1942. X        }
  1943. X        if ((protokoll != MAL18_MSG) && (protokoll != MAL18_MSG) &&
  1944. X            (protokoll != MAL20_MSG) && (protokoll != MAL21_MSG))
  1945. X            protokoll = 0;
  1946. X    } while (protokoll == 0);
  1947. X
  1948. X    printf("%c", protokoll);
  1949. X
  1950. X  }
  1951. X  printf("\n\n%c", CR);
  1952. X  ansi("mr");
  1953. X  printf("%s ", MAL22_MSG);
  1954. X  ansi("me");
  1955. X  printf(" %s (%s)\n%c", USER.name, USER.nick, CR);
  1956. X  ansi("mr");
  1957. X  printf("%s ", MAL23_MSG);
  1958. X  ansi("me");
  1959. X  printf(" %s\n%c", rec_char, CR);
  1960. X  ansi("mr");
  1961. X  printf("%s ", MAL24_MSG);
  1962. X  ansi("me");
  1963. X  printf(" ");
  1964. X  strcpy(subject, (char *) getline(50, 11, '.', ""));
  1965. X  printf("\n");
  1966. X  ansi("mr");
  1967. X  printf("%s ", MAL23aMSG);
  1968. X  ansi("me");
  1969. X  printf(" ");
  1970. X  strcpy(cc, (char *) getline(50, 11, '.', ""));
  1971. X
  1972. X
  1973. X  REPLY_MARK:
  1974. X
  1975. X  if(checkdomaintype( rec_char ) != 0) return -1;
  1976. X
  1977. X  if (c == MAL13_MSG) {
  1978. X    sprintf(s, "%s %s", EDDY, TEP);
  1979. X    noctrlx();
  1980. X    system(s);
  1981. X    ctrlx();
  1982. X    protokoll = '*';
  1983. X  }
  1984. X  else {            /* UPLOAD */
  1985. X
  1986. X    printf("\n\n");
  1987. X    printf("%s\n\n", MAL25_MSG); 
  1988. X    ansi("md");
  1989. X    printf("%s", MAL26_MSG);
  1990. X    ansi("me");
  1991. X          
  1992. X    unlink( TEP );
  1993. X    
  1994. X    switch (protokoll) {
  1995. X        case MAL18_MSG:
  1996. X            fp = fopen(TEP, "w");
  1997. X            if (fp == NULL) {
  1998. X                nerror("mail.c", 268, "brief", "DSF", TEP);
  1999. X            }
  2000. X            c = 0;
  2001. X            lf = CR;
  2002. X
  2003. X            fputc(LF, fp);
  2004. X
  2005. X            while ((c != CTRL_X) && (c != CTRL_D)) {
  2006. X                c = getint();
  2007. X                if ((c == CR) && (lf == CR)) fputc(LF, fp);
  2008. X                if (c == CR) lf = CR;
  2009. X                if (c == LF) lf = LF;
  2010. X                if ((c != CTRL_X) && (c != CTRL_D) && (c != CR)) {
  2011. X                    fputc(c, fp);
  2012. X                }
  2013. X            }
  2014. X            fclose(fp);
  2015. X            break;
  2016. X
  2017. X        case MAL19_MSG:
  2018. X            printf("\n");
  2019. X            sprintf(s, "exec %s -bc TimeTravelAgency", RX);
  2020. X            break;
  2021. X        case MAL20_MSG:
  2022. X            printf("\n");
  2023. X            sprintf(s, "exec %s -b", RB);
  2024. X            break;
  2025. X        case MAL21_MSG:
  2026. X            printf("\n");
  2027. X            sprintf(s, "exec %s -b", RZ);
  2028. X            break;
  2029. X    }
  2030. X    if (protokoll != MAL18_MSG){
  2031. X        mkdir( pubdir, 0777 );
  2032. X        chdir( pubdir );
  2033. X
  2034. X        system( s );
  2035. X
  2036. X        chdir( HOME );
  2037. X        sprintf(s, "mv %s/* %s", pubdir, TEP);
  2038. X        system( s );
  2039. X        sprintf(s, "rm -r %s", pubdir);
  2040. X        system( s );
  2041. X    }
  2042. X    sync();
  2043. X    stat(TEP, &fst);
  2044. X    if (fst.st_size < 3L) {
  2045. X        printf("\n\n%s\n", MAL27_MSG);
  2046. X        control(MAL28_MSG, 3);
  2047. X        unlink(REP);    /* ??? */
  2048. X        unlink(TEP);
  2049. X        return -1;
  2050. X    }    
  2051. X    if (prf(TEP) == 1) {
  2052. X        printf("\n\n");
  2053. X        ansi( "md" );
  2054. X        printf("%s", MAL25_MSG);        
  2055. X        ansi( "me" );
  2056. X        unlink(REP);     /* ??? */
  2057. X        unlink(TEP);
  2058. X        return -1;
  2059. X        BINFILE++;
  2060. X    }
  2061. X    else{
  2062. X        mkix(TEP);
  2063. X    }
  2064. X  }
  2065. X
  2066. X  sprintf(reply, "%s <%s@%s>", USER.name, username, UUCPID);
  2067. X
  2068. X
  2069. X  ONCE_MORE:
  2070. X
  2071. X  if((HOLD != 0) || ((WEITERLEITEN != 0) && (IS_BUFFERED != 0))) goto HOLD_MARK;
  2072. X
  2073. X  printf("\n\n");
  2074. X  ansi("mr");
  2075. X  printf("[%s \"%s\"] %s, ? > ", MAL11_MSG, rec_char, MAL28aMSG);
  2076. X  ansi("me");
  2077. X  printf("%c%c", MAL29_MSG, BS);
  2078. X
  2079. X  do {
  2080. X    c = getint();
  2081. X    if (c >= 97) c -= 32;
  2082. X    if (c == '?') {
  2083. X        clearline();
  2084. X        ansi("mr");
  2085. X        printf("%c%s > ", CR, MAL32_MSG);
  2086. X        ansi("me");
  2087. X    }
  2088. X    if (c == ENTER) c = MAL29_MSG;
  2089. X    if ((c != MAL29_MSG) && (c != MAL30_MSG) && (c != MAL31_MSG) && (c != MAL31aMSG)) c = 0;
  2090. X  } while (c == 0);
  2091. X
  2092. X  printf("%c", c);
  2093. X
  2094. X  if (c == MAL31_MSG) {        /* WEITERSCHREIBEN */
  2095. X    sprintf(s, "%s %s", EDDY, TEP);
  2096. X    noctrlx();
  2097. X    system(s);
  2098. X    ctrlx();
  2099. X    goto ONCE_MORE;
  2100. X  }
  2101. X  if (c == MAL30_MSG) {        /* VERWERFEN */
  2102. X    printf("\n");
  2103. X    unlink(TEP);
  2104. X    unlink(REP);
  2105. X    return -1;
  2106. X  }
  2107. X  if (c == MAL31aMSG) {        /* HEADER */
  2108. X    headline( MAL32aMSG );
  2109. X    printf("\n");
  2110. X
  2111. X    time(&timer);
  2112. X
  2113. X    ansi( "md" );
  2114. X    printf("From: ");
  2115. X    ansi( "me" );
  2116. X    printf("%s <%s@%s>\n", USER.name, username, UUCPID);
  2117. X
  2118. X    ansi( "md" );
  2119. X    printf("Reply-To: ");
  2120. X    ansi( "me" );
  2121. X    if(USER.level > GUEST_LEV){
  2122. X        strcpy(reply, (char *) getline(80, 1001, 32, reply));
  2123. X        printf("\n");
  2124. X    }
  2125. X    else printf("%s\n", reply);
  2126. X
  2127. X
  2128. X    i = 0; j = 0;            /* Empfaenger: Realname */
  2129. X    while(from[i] != '\0'){
  2130. X        if(from[i] == '<'){
  2131. X            strcpy(s, (char *) strcopy(from, 0, (i-1)));
  2132. X            j = i;
  2133. X        }
  2134. X        if(from[i] == '(') j = i+1;
  2135. X        if(from[i] == ')') strcpy(s, (char *) strcopy(from, j, (i-1)));
  2136. X        i++;
  2137. X    }
  2138. X    if(j == 0) strcpy(s, from);
  2139. X        
  2140. X    if(mesg_id[0] != '\0'){
  2141. X        ansi( "md" );
  2142. X        printf("In-Reply-To: ");
  2143. X        ansi( "me" );
  2144. X        printf("%s; ", (char *) stripped(mesg_id)); 
  2145. X        printf("from \"%s\" at %s", (char *) stripped(s), date);
  2146. X
  2147. X        if(refs[0] != '\0') 
  2148. X            sprintf(s, "%s ", stripped(refs));
  2149. X        else
  2150. X            s[0] = '\0';
  2151. X        strcat(s, mesg_id);
  2152. X        ansi( "md" );
  2153. X        printf("References: ");
  2154. X        ansi( "me" );
  2155. X        printf("%s", s);
  2156. X    }
  2157. X
  2158. X    ansi( "md" );
  2159. X    printf("To: ");
  2160. X    ansi( "me" );
  2161. X    if(USER.level > GUEST_LEV){
  2162. X        strcpy(rec_char, (char *) getline(80, 1001, 32, rec_char));
  2163. X        printf("\n");
  2164. X    }
  2165. X    else printf("%s\n", rec_char);
  2166. X
  2167. X    ansi( "md" );
  2168. X    printf("Cc: ");
  2169. X    ansi( "me" );
  2170. X    if(USER.level > GUEST_LEV){
  2171. X        strcpy(cc, (char *) getline(80, 1001, 32, cc));
  2172. X        printf("\n");
  2173. X    }
  2174. X    else printf("%s\n", cc);
  2175. X
  2176. X    ansi( "md" );
  2177. X    printf("Bcc: ");
  2178. X    ansi( "me" );
  2179. X    if(USER.level > GUEST_LEV){
  2180. X        strcpy(bcc, (char *) getline(80, 1001, 32, bcc));
  2181. X        printf("\n");
  2182. X    }
  2183. X    else printf("%s\n", bcc);
  2184. X
  2185. X
  2186. X    ansi( "md" );
  2187. X    printf("Subject: ");
  2188. X    ansi( "me" );
  2189. X    if(USER.level > GUEST_LEV){
  2190. X        strcpy(subject, (char *) getline(80, 1001, 32, subject));
  2191. X        printf("\n");
  2192. X    }
  2193. X    else printf("%s\n", subject);
  2194. X
  2195. X    ansi( "md" );
  2196. X    printf("Keywords: ");
  2197. X    ansi( "me" );
  2198. X    if(USER.level > GUEST_LEV){
  2199. X        strcpy(keywords, (char *) getline(80, 1001, 32, keywords));
  2200. X        printf("\n");
  2201. X    }
  2202. X    else printf("%s\n", keywords);
  2203. X
  2204. X    ansi( "md" );
  2205. X    printf("Comments: ");
  2206. X    ansi( "me" );
  2207. X    if(USER.level > GUEST_LEV){
  2208. X        strcpy(comments, (char *) getline(80, 1001, 32, comments));
  2209. X        printf("\n");
  2210. X    }
  2211. X    else printf("%s\n", comments);
  2212. X
  2213. X    ansi( "md" );
  2214. X    printf("Encrypted: ");
  2215. X    ansi( "me" );
  2216. X    if(USER.level > GUEST_LEV){
  2217. X        strcpy(encrypted, (char *) getline(80, 1001, 32, encrypted));
  2218. X        printf("\n");
  2219. X    }
  2220. X    else printf("%s\n", encrypted);
  2221. X
  2222. X#ifdef _MULTIMEDIA
  2223. X    ansi( "md" );
  2224. X    printf("Mime-Version: ");
  2225. X    ansi( "me" );
  2226. X    printf("%s\n", MIME_VERSION);
  2227. X
  2228. X    if(USER.level >= WRITE_INTERNAT){
  2229. X        strcpy(content, (char *) "text/plain; charset=us-ascii");
  2230. X        ansi( "md" ); 
  2231. X        printf("Content-Type: ");
  2232. X        ansi( "me" );
  2233. X        strcpy(content, (char *) getline(80, 1001, 32, content));
  2234. X        printf("\n");
  2235. X    }
  2236. X#endif
  2237. X
  2238. X    ansi( "md" );
  2239. X    printf("X-Mailer: ");
  2240. X    ansi( "me" );
  2241. X    printf("%s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  2242. X
  2243. X    ansi( "md" );
  2244. X    printf("Priority: ");
  2245. X    ansi( "me" );
  2246. X    if(USER.level > GUEST_LEV){
  2247. X        strcpy(priority, (char *) getline(80, 1001, 32, priority));
  2248. X        printf("\n");
  2249. X    }
  2250. X    else printf("%s\n", priority);
  2251. X
  2252. X    ansi( "md" );
  2253. X    printf("Action: ");
  2254. X    ansi( "me" );
  2255. X    if(USER.level > GUEST_LEV){
  2256. X        strcpy(action, (char *) getline(80, 1001, 32, action));
  2257. X        printf("\n");
  2258. X    }
  2259. X    else printf("%s\n", action);
  2260. X
  2261. X    ansi( "md" );
  2262. X    printf("X-Fortune: ");
  2263. X    ansi( "me" );
  2264. X    if(USER.level > GUEST_LEV){
  2265. X        strcpy(fortune, (char *) getline(80, 1001, 32, fortune));
  2266. X        printf("\n");
  2267. X    }
  2268. X    else printf("%s\n", fortune);
  2269. X
  2270. X
  2271. X    ansi( "md" );
  2272. X    printf("Message-Id: ");
  2273. X    ansi( "me" );
  2274. X       printf("<%x.%d@%s>\n", timer, USER.id, UUCPID);
  2275. X
  2276. X    goto ONCE_MORE;
  2277. X  }
  2278. X
  2279. X
  2280. X  HOLD_MARK:
  2281. X 
  2282. X
  2283. X  if(UMLEITUNG == 0){
  2284. X    if(WEITERLEITEN == 0){
  2285. X        sprintf(s, "cp %s %s/usr/%d/.lastletter > /dev/null", TEP, HOME, USER.id);
  2286. X        system( s );     
  2287. X    }
  2288. X    sprintf(s, "%s/usr/%d/.lastsubject", HOME, USER.id);
  2289. X    fp = fopen( s, "w" );
  2290. X    if(fp == NULL){
  2291. X        nerror("mail.c", 500, "brief", "Datei-Schreibfehler", s);
  2292. X    }
  2293. X    fprintf(fp, "%s", subject);
  2294. X    fclose(fp);
  2295. X  }
  2296. X
  2297. X
  2298. X  if (EX_PM == 0) {
  2299. X    sprintf(s, "%s/usr/%d/seq", HOME, receiver);
  2300. X    maybe_locked(s, "r");
  2301. X    fp = fopen(s, "r");
  2302. X    if (fp == NULL) {
  2303. X        nerror("mail.c", 431, "brief", "Datei-Lesefehler", s);
  2304. X    }
  2305. X    fscanf(fp, "%d", &mail_id);
  2306. X    fclose(fp);
  2307. X    fp = fopen(s, "w");
  2308. X    fprintf(fp, "%d\n", (mail_id + 1));
  2309. X    fclose(fp);
  2310. X
  2311. X    sprintf(s, "%s/usr/%d/%d", HOME, receiver, mail_id);
  2312. X  }
  2313. X  else {
  2314. X    umask(0000);
  2315. X    sprintf(s, "%s/%d.expm", TMP, getpid());
  2316. X  }
  2317. X
  2318. X
  2319. X  fp = fopen(s, "w");
  2320. X
  2321. X  if (EX_PM == 0) {
  2322. X    sprintf(s, "%s %s (%s)\n", GBL01_MSG, USER.name, USER.nick);
  2323. X    fputs(s, fp);
  2324. X
  2325. X    time(&timer);
  2326. X    timeptr = localtime(&timer);
  2327. X    strcpy(t, asctime(timeptr));
  2328. X
  2329. X    sprintf(s, "%s %s", GBL02_MSG, t);
  2330. X    fputs(s, fp);
  2331. X
  2332. X    sprintf(s, "%s %s\n\n", GBL03_MSG, subject);
  2333. X    fputs(s, fp);
  2334. X
  2335. X    lines = 5;
  2336. X   }
  2337. X   else {
  2338. X    lines = 4;
  2339. X  }
  2340. X
  2341. X  ff = fopen(TEP, "r");
  2342. X  if (ff == 0) {
  2343. X    printf("\n\n");
  2344. X    ansi("md");
  2345. X    printf("%s\n", MAL33_MSG);
  2346. X    ansi("me");
  2347. X    control(MAL34_MSG, 3);
  2348. X    return;
  2349. X  }
  2350. X
  2351. X
  2352. X  if(EX_PM != 0){
  2353. X
  2354. X    time(&timer);
  2355. X
  2356. X    i = 0; j = 0;            /* Empfaenger: Realname */
  2357. X    while(from[i] != '\0'){
  2358. X        if(from[i] == '<'){
  2359. X            strcpy(s, (char *) strcopy(from, 0, (i-1)));
  2360. X            j = i;
  2361. X        }
  2362. X        if(from[i] == '(') j = i+1;
  2363. X        if(from[i] == ')') strcpy(s, (char *) strcopy(from, j, (i-1)));
  2364. X        i++;
  2365. X    }
  2366. X    if(j == 0) strcpy(s, from);
  2367. X
  2368. X    fprintf(fp, "From: %s@%s (%s)\n", username, UUCPID, USER.name); 
  2369. X    if(reply[0] != '\0')
  2370. X        fprintf(fp, "Reply-To: %s\n", reply);
  2371. X    fprintf(fp, "Organization: %s\n", ORGANIZATION);
  2372. X    if(mesg_id[0] != '\0'){
  2373. X        fprintf(fp, "In-Reply-To: %s; ", (char *) stripped(mesg_id)); 
  2374. X        fprintf(fp, "from \"%s\" at %s", (char *) stripped(s), date);
  2375. X        if(refs[0] != '\0') 
  2376. X            sprintf(s, "%s ", stripped(refs));
  2377. X        else
  2378. X            s[0] = '\0';
  2379. X        strcat(s, mesg_id);
  2380. X        fprintf(fp, "References: %s", s);
  2381. X    }
  2382. X        fprintf(fp, "To: %s\n", rec_char);
  2383. X    if(cc[0] != '\0')
  2384. X        fprintf(fp, "Cc: %s\n", cc);
  2385. X
  2386. X    sprintf(s, "%s/usr/%d/.face", HOME, USER.id); /* X-Face ??? */
  2387. X    ft = fopen( s, "r" );
  2388. X    if(ft != NULL){
  2389. X        while(fgets(s, 70, ft) != NULL){
  2390. X            fprintf(fp, "X-Face: %s\n", (char *) stripped(s));
  2391. X        }
  2392. X        fclose(ft);
  2393. X    }
  2394. X
  2395. X    if(subject[0] != '\0')
  2396. X        fprintf(fp, "Subject: %s\n", subject);
  2397. X    if(keywords[0] != '\0')
  2398. X        fprintf(fp, "Keywords: %s\n", keywords);
  2399. X    if(comments[0] != '\0')
  2400. X        fprintf(fp, "Comments: %s\n", comments);
  2401. X    if(encrypted[0] != '\0')
  2402. X        fprintf(fp, "Encrypted: %s\n", encrypted);
  2403. X
  2404. X#ifdef _MULTIMEDIA
  2405. X    fprintf(fp, "Mime-Version: %s\n", MIME_VERSION);
  2406. X#endif
  2407. X
  2408. X    if(content[0] != '\0')
  2409. X        fprintf(fp, "Content-Type: %s\n", content);
  2410. X    fprintf(fp, "X-Mailer: %s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  2411. X    if(priority[0] != '\0')
  2412. X        fprintf(fp, "Priority: %s\n", priority);
  2413. X    if(action[0] != '\0')
  2414. X        fprintf(fp, "Action: %s\n", action);
  2415. X    if(fortune[0] != '\0')
  2416. X        fprintf(fp, "X-Fortune: %s\n", fortune);
  2417. X       fprintf(fp, "Message-Id: <%x.%d@%s>\n", timer, USER.id, UUCPID);
  2418. X     fputs("\n", fp);
  2419. X  }
  2420. X
  2421. X  while (fgets(s, 80, ff) != 0) {
  2422. X    fputs(s, fp);
  2423. X    lines++;
  2424. X  }
  2425. X  fclose(ff);
  2426. X
  2427. X  if(UMLEITUNG == 0){
  2428. X      sprintf(s, "%s/usr/%d/.signature", HOME, USER.id);
  2429. X      ff = fopen(s, "r");
  2430. X      if (ff != NULL) {
  2431. X        while (fgets(s, 80, ff) != 0) {
  2432. X            fputs(s, fp);
  2433. X            lines++;
  2434. X        }
  2435. X        fclose(ff);
  2436. X      }
  2437. X  }
  2438. X
  2439. X  if(WEITERLEITEN == 0) unlink(TEP);
  2440. X  fclose(fp);
  2441. X
  2442. X  if (EX_PM == 0) {
  2443. X    sprintf(s, "%s/usr/%d/INDEX", HOME, receiver);
  2444. X    maybe_locked(s, "r"); 
  2445. X    fp = fopen(s, "a");
  2446. X    if (fp == NULL) {
  2447. X        nerror("mail.c", 527, "brief", "Datei-Ergaenzungsfehler", s);
  2448. X    }
  2449. X    sprintf(s, "%d              ", mail_id);
  2450. X    s[6] = '\0';
  2451. X    if(HOLD != 0){
  2452. X        s[5] = '>';
  2453. X    }
  2454. X    fputs(s, fp);
  2455. X
  2456. X    sprintf(ex, "%s                                ", subject);
  2457. X    ex[26] = '\0';
  2458. X    fputs(ex, fp);
  2459. X
  2460. X    sprintf(ex, "  %s                                        ", USER.name);
  2461. X    ex[22] = '\0';
  2462. X    fputs(ex, fp);
  2463. X
  2464. X    strcpy(s, (char *) mydate(1));
  2465. X    strcpy(t, (char *) mytime(1));
  2466. X    sprintf(ex, "  %s  %s         ", s, t);
  2467. X    ex[19] = '\0';
  2468. X    fputs(ex, fp);
  2469. X
  2470. X    sprintf(s, "%-6.d\n", lines);
  2471. X    fputs(s, fp);
  2472. X
  2473. X    fclose(fp);
  2474. X
  2475. X  }
  2476. X  else {
  2477. X    sprintf(s, " X-Mail via UUCP (%s) ", rec_char);
  2478. X    headline(s);
  2479. X    printf("\n%s", MAL35_MSG);
  2480. X    sprintf(s, "%s/%d.expm", TMP, getpid());
  2481. X    sprintf(t, "/bin/sh ./etc/rmail.sh %s %s", s, rec_char);
  2482. X    system(t);
  2483. X    unlink(s);
  2484. X    unlink(f);
  2485. X    umask(0007);
  2486. X    printf(" %s\n", MAL36_MSG);
  2487. X  }
  2488. X
  2489. X  unlink(REP);
  2490. X  if(UMLEITUNG == 0) unlink(TEP);
  2491. X
  2492. X  sprintf(s, "%s \"%s\" %s", MAL11_MSG, rec_char, MAL37_MSG);
  2493. X  control(s, 3);
  2494. X
  2495. X  printf("\n");
  2496. X
  2497. X  if((cc[0] != '\0') || (bcc[0] != '\0')){
  2498. X    carboncopy(cc, bcc);
  2499. X  }
  2500. X
  2501. X  return 0;
  2502. X}
  2503. X
  2504. X
  2505. X
  2506. X
  2507. END_OF_FILE
  2508.   if test 22692 -ne `wc -c <'src/mail.c'`; then
  2509.     echo shar: \"'src/mail.c'\" unpacked with wrong size!
  2510.   fi
  2511.   # end of 'src/mail.c'
  2512. fi
  2513. echo shar: End of archive 3 \(of 11\).
  2514. cp /dev/null ark3isdone
  2515. MISSING=""
  2516. for I in 1 2 3 4 5 6 7 8 9 10 11 ; do
  2517.     if test ! -f ark${I}isdone ; then
  2518.     MISSING="${MISSING} ${I}"
  2519.     fi
  2520. done
  2521. if test "${MISSING}" = "" ; then
  2522.     echo You have unpacked all 11 archives.
  2523.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2524. else
  2525.     echo You still must unpack the following archives:
  2526.     echo "        " ${MISSING}
  2527. fi
  2528. exit 0
  2529. exit 0 # Just in case...
  2530.