home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume42 / mbox / part04 < prev    next >
Internet Message Format  |  1994-03-29  |  93KB
  1. From: Volker.Schuermann@unnet.wupper.de (Volker Schuermann)
  2. Newsgroups: comp.sources.misc
  3. Subject: v42i027:  mbox - ix/MBox BBS, v2.1, Part04/12
  4. Date: 29 Mar 1994 21:07:19 -0600
  5. Organization: THE UNDERGROUND NETWORK
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <2naqd7$iqf@sparky.sterling.com>
  9. Reply-To: Volker Schuermann <Volker.Schuermann@unnet.wupper.de>
  10. X-Md4-Signature: 4f4104b5b18e31f3bcb40e8a10eccbf3
  11.  
  12. Submitted-by: Volker.Schuermann@unnet.wupper.de (Volker Schuermann)
  13. Posting-number: Volume 42, Issue 27
  14. Archive-name: mbox/part04
  15. Environment: MINIX, ISC, ESIX, SVR3, LINUX, SVR4
  16. Supersedes: mbox: Volume 35, Issue 36-50
  17.  
  18. #! /bin/sh
  19. # This is a shell archive.  Remove anything before this line, then feed it
  20. # into a shell via "sh file" or similar.  To overwrite existing files,
  21. # type "sh file -c".
  22. # Contents:  mbox/src/admin.c mbox/src/mail.c mbox/src/misc.c
  23. #   mbox/src/weiterl.c
  24. # Wrapped by kent@sparky on Thu Mar 24 21:48:34 1994
  25. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
  26. echo If this archive is complete, you will see the following message:
  27. echo '          "shar: End of archive 4 (of 12)."'
  28. if test -f 'mbox/src/admin.c' -a "${1}" != "-c" ; then 
  29.   echo shar: Will not clobber existing file \"'mbox/src/admin.c'\"
  30. else
  31.   echo shar: Extracting \"'mbox/src/admin.c'\" \(24678 characters\)
  32.   sed "s/^X//" >'mbox/src/admin.c' <<'END_OF_FILE'
  33. X/* ix/MBox (admin.c) by Volker Schuermann, 01.01.1994
  34. X
  35. X   This C source code contains the following functions:
  36. X
  37. X   #UA user_aendern()           change user data in the BBS database
  38. X   #UZ user_anzeigen()          show user data
  39. X   #UL user_loeschen()          delete user (data) from the database
  40. X   #SG setup_get()              read a number
  41. X   #WU wait_until_keypressed()  guess what ;-)
  42. X   #AD admin()                  sysop changing user data (interactive)
  43. X   #SU setup()                  user changing user data (interactive)
  44. X
  45. X   Contact <volkers@unnet.wupper.de> for help! */
  46. X
  47. X
  48. X
  49. X
  50. X
  51. X#include <sys/types.h>
  52. X#include <sys/stat.h>
  53. X#include <unistd.h>
  54. X#include <stdio.h>
  55. X#include <fcntl.h>
  56. X
  57. X#include "mbox.h"
  58. X
  59. Xvoid wait_until_keypressed();
  60. X
  61. X
  62. X
  63. X
  64. X/* #UA - Change users data. */
  65. X
  66. Xvoid user_aendern()
  67. X{
  68. X  int fd;
  69. X  struct userdaten DUMMY, LOOSER;
  70. X
  71. X  UNSIGNED char s[STRING];
  72. X  UNSIGNED char t[STRING];
  73. X  UNSIGNED char oldname[STRING];
  74. X
  75. X  long ll = -1L;
  76. X  size_t dummy = sizeof(DUMMY);
  77. X  UNSIGNED char c;
  78. X  int i;
  79. X  int uid = -1;
  80. X
  81. X  headline( ADM01_MSG );
  82. X
  83. X  printf("%s ", ADM02_MSG);
  84. X  strcpy(s, (UNSIGNED char *) getline(30, 11, '.', ""));
  85. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  86. X
  87. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  88. X  fd = open(UDBASE, O_RDONLY);
  89. X  if(fd == -1){
  90. X    nerror("admin.c", 324, "aendern", "Can't read", UDBASE);
  91. X  }
  92. X  while(read(fd, (UNSIGNED char *) &DUMMY, dummy) == dummy){
  93. X    if(uid == DUMMY.id){
  94. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  95. X    }
  96. X    else{
  97. X        if((strcomp(s, DUMMY.name) == 0) ||
  98. X           (strcomp(s, DUMMY.nick) == 0) ||
  99. X           (strcomp(s, DUMMY.sh_name) == 0)){
  100. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  101. X        }
  102. X    }
  103. X  }
  104. X  lseek(fd, ll, SEEK_SET);
  105. X  read(fd, (UNSIGNED char *) &LOOSER, sizeof(LOOSER));
  106. X  close(fd);
  107. X  mbunlock(UDBASE);
  108. X
  109. X  if(ll == -1L) return;
  110. X
  111. X  printf("%c%s %d                                               ", CR, ADM03_MSG, LOOSER.id);
  112. X
  113. X  strcpy(oldname, (UNSIGNED char) LOOSER.name);
  114. X
  115. X  printf("\n%s ", ADM04_MSG);
  116. X  strcpy(s, (UNSIGNED char *) getline(30, 1011, '.', LOOSER.name));
  117. X  if (s[0] > 32) sprintf(LOOSER.name, s);
  118. X  if (s[0] == 32) LOOSER.name[0] = '\0';
  119. X
  120. X  printf("\n%s ", ADM05_MSG);
  121. X  strcpy(s, (UNSIGNED char *) getline(10, 1011, '.', LOOSER.passwort));
  122. X  if (s[0] > 32) sprintf(LOOSER.passwort, s);
  123. X  if (s[0] == 32) LOOSER.passwort[0] = '\0';
  124. X
  125. X  printf("\n%s ", ADM06_MSG);
  126. X  strcpy(s, (UNSIGNED char *) getline(14, 1011, '.', LOOSER.sh_name));
  127. X  if (s[0] > 32) sprintf(LOOSER.sh_name, s);
  128. X  if (s[0] == 32) LOOSER.sh_name[0] = '\0';
  129. X
  130. X  printf("\n%s ", ADM07_MSG);
  131. X  strcpy(s, (UNSIGNED char *) getline(30, 1011, '.', LOOSER.nick));
  132. X  if (s[0] > 32) sprintf(LOOSER.nick, s);
  133. X  if (s[0] == 32) LOOSER.nick[0] = '\0';
  134. X
  135. X  printf("\n%s ", ADM08_MSG);
  136. X  strcpy(s, (UNSIGNED char *) getline(30, 1011, '.', LOOSER.wohnort));
  137. X  if (s[0] > 31) sprintf(LOOSER.wohnort, s);
  138. X
  139. X  printf("\n%s ", ADM09_MSG);
  140. X  strcpy(s, (UNSIGNED char *) getline(30, 1011, '.', LOOSER.strasse));
  141. X  if (s[0] > 31) sprintf(LOOSER.strasse, s);
  142. X
  143. X  printf("\n%s ", ADM10_MSG);
  144. X  strcpy(s, (UNSIGNED char *) getline(20, 1011, '.', LOOSER.telefon1));
  145. X  if (s[0] > 31) sprintf(LOOSER.telefon1, s);
  146. X
  147. X  printf("\n%s ", ADM11_MSG);
  148. X  strcpy(s, (UNSIGNED char *) getline(20, 1011, '.', LOOSER.telefon2));
  149. X  if (s[0] > 31) sprintf(LOOSER.telefon2, s);
  150. X
  151. X  printf("\n%s ", ADM12_MSG);
  152. X  strcpy(s, (UNSIGNED char *) getline(10, 1114, '?', LOOSER.geburtsdatum));
  153. X  if (s[0] > 31) sprintf(LOOSER.geburtsdatum, s);
  154. X
  155. X  printf("\n%s ", ADM13_MSG);
  156. X  sprintf(t, "%d", LOOSER.terminal);
  157. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  158. X  if (s[0] > 31) LOOSER.terminal = atoi(s);
  159. X  if ((LOOSER.terminal < 1) || (LOOSER.terminal > 8)) LOOSER.terminal = 1;
  160. X
  161. X  printf("\n%s ", ADM14_MSG);
  162. X  sprintf(t, "%d", LOOSER.editor);
  163. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  164. X  if (s[0] > 31) LOOSER.editor = atoi(s);
  165. X  if ((LOOSER.editor < 1) || (LOOSER.editor > OFFERED_EDITORS)) LOOSER.editor = 1;
  166. X
  167. X  printf("\n%s ", ADM15_MSG);
  168. X  sprintf(t, "%d", LOOSER.level);
  169. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  170. X  if (s[0] > 31) LOOSER.level = atoi(s);
  171. X
  172. X  printf("\n%s ", ADM16_MSG);
  173. X  sprintf(t, "%d", LOOSER.more);
  174. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  175. X  if (s[0] > 31) LOOSER.more = atoi(s);
  176. X  if ((LOOSER.more < 0) || (LOOSER.more > 3)) LOOSER.more = 1;
  177. X
  178. X  printf("\n%s ", ADM17_MSG);
  179. X  sprintf(t, "%d", LOOSER.bell);
  180. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  181. X  if (s[0] > 31) LOOSER.bell = atoi(s);
  182. X  if ((LOOSER.bell < -1) || (LOOSER.bell > 1)) LOOSER.bell = 0;
  183. X
  184. X  printf("\n%s ", ADM18_MSG);
  185. X  sprintf(t, "%d", LOOSER.prompt);
  186. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  187. X  if (s[0] > 31) LOOSER.prompt = atoi(s);
  188. X  if ((LOOSER.prompt < 1) || (LOOSER.prompt > 3)) LOOSER.prompt = 2;
  189. X
  190. X  printf("\n%s ", ADM19_MSG);
  191. X  LOOSER.tlines += 2;
  192. X  sprintf(t, "%d", LOOSER.tlines);
  193. X  strcpy(s, (UNSIGNED char *) getline(5, 1111, '.', t));
  194. X  if (s[0] > 31) LOOSER.tlines = atoi(s);
  195. X  LOOSER.tlines -= 2;
  196. X  if ((LOOSER.tlines < 22) || (LOOSER.tlines > 23)) LOOSER.tlines = DEF_MAX_SCR_LINES;
  197. X  
  198. X  printf("\n%s ", ADM20_MSG);
  199. X  strcpy(s, (UNSIGNED char *) getline(10, 1114, '?', LOOSER.lastlog));
  200. X  if (s[0] > 31) sprintf(LOOSER.lastlog, s);
  201. X
  202. X  printf("\n%s ", ADM21_MSG);
  203. X  strcpy(t, (UNSIGNED char *) timereconv((long) LOOSER.lasttime));
  204. X  t[5] = '\0';
  205. X  strcpy(s, (UNSIGNED char *) getline(5, 1113, '?', t));
  206. X  LOOSER.lasttime = timeconv(s);
  207. X
  208. X  printf("\n%s ", ADM21aMSG);
  209. X  strcpy(s, (UNSIGNED char *) ttyname(0));
  210. X  if(strcomp(PMS_TTY, s) == 0){
  211. X    strcpy(s, (UNSIGNED char *) getline(17, 1011, '.', LOOSER.account));
  212. X    if (s[0] > 31) sprintf(LOOSER.account, s);
  213. X  }
  214. X  else{
  215. X    printf("%s", LOOSER.account);
  216. X  }
  217. X
  218. X  printf("\n%s ", ADM22_MSG);
  219. X  strcpy(s, (UNSIGNED char *) getline(58, 1011, '.', LOOSER.newsgrps));
  220. X  if (s[0] > 31) sprintf(LOOSER.newsgrps, s);
  221. X
  222. X  printf("\n%s ", ADM23_MSG);
  223. X  sprintf(t, "%d", LOOSER.seq);
  224. X  strcpy(s, (UNSIGNED char *) getline(10, 1111, '.', t));
  225. X  if (s[0] > 31) LOOSER.seq = atoi(s);
  226. X
  227. X  wait_until_keypressed();
  228. X
  229. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  230. X  fd = open(UDBASE, O_WRONLY);
  231. X  if (fd == -1) {
  232. X    nerror("admin.c", 428, "aendern", "Can't write to", UDBASE);
  233. X  }
  234. X  if (lseek(fd, ll, SEEK_SET) == -1) {
  235. X    nerror("admin.c", 431, "aendern", "Position not found in", UDBASE);
  236. X  }
  237. X  write(fd, (UNSIGNED char *) &LOOSER, sizeof(LOOSER));
  238. X  close(fd);
  239. X  mbunlock(UDBASE);
  240. X
  241. X  if (LOOSER.id == USER.id) {    /* Ich bin's !!! */
  242. X
  243. X    maybe_locked(UDBASE, "r");
  244. X    mblock(UDBASE);
  245. X    fd = open(UDBASE, O_RDONLY);
  246. X    if (fd == -1) {
  247. X        nerror("admin.c", 324, "aendern", "Can't read", UDBASE);
  248. X    }
  249. X    lseek(fd, ll, SEEK_SET);
  250. X    read(fd, (UNSIGNED char *) &USER, sizeof(USER));
  251. X    close(fd);
  252. X    mbunlock(UDBASE);
  253. X  }
  254. X
  255. X  if(LOOSER.name[0] != oldname[0]){
  256. X    moving( oldname, LOOSER.name, LOOSER.id );
  257. X  }
  258. X}
  259. X
  260. X
  261. X
  262. X
  263. X/* #UZ - Show users data. */
  264. X
  265. Xvoid user_anzeigen()
  266. X{
  267. X  int fd;
  268. X  struct userdaten DUMMY, LOOSER;
  269. X  UNSIGNED char s[STRING];
  270. X  UNSIGNED char t[STRING];
  271. X  long ll = -1L;
  272. X  size_t dummy = sizeof(DUMMY);
  273. X  UNSIGNED char c;
  274. X  int i;
  275. X  int uid = -1;
  276. X
  277. X
  278. X  headline( ADM01_MSG );
  279. X
  280. X  printf("%s ", ADM02_MSG);
  281. X  strcpy(s, (UNSIGNED char *) getline(30, 11, '.', ""));
  282. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  283. X
  284. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  285. X  fd = open(UDBASE, O_RDONLY);
  286. X  if (fd == -1) {
  287. X    nerror("admin.c", 324, "aendern", "Can't read", UDBASE);
  288. X  }
  289. X  while (read(fd, (UNSIGNED char *) &DUMMY, dummy) == dummy) {
  290. X    if (uid == DUMMY.id) {
  291. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  292. X    } 
  293. X    else{
  294. X        if ((strcomp(s, DUMMY.name) == 0) ||
  295. X            (strcomp(s, DUMMY.nick) == 0) ||
  296. X            (strcomp(s, DUMMY.sh_name) == 0)) {
  297. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  298. X        }
  299. X    }
  300. X  }
  301. X  lseek(fd, ll, SEEK_SET);
  302. X  read(fd, (UNSIGNED char *) &LOOSER, sizeof(LOOSER));
  303. X  close(fd);
  304. X  mbunlock(UDBASE);
  305. X
  306. X  if (ll == -1L) return;
  307. X
  308. X  printf("%c  %s %d                                               ", CR, ADM03_MSG, LOOSER.id);
  309. X  printf("\n  %s %s",   ADM04_MSG, LOOSER.name);
  310. X  printf("\n  %s %s",   ADM05_MSG, LOOSER.passwort);
  311. X  printf("\n  %s %s",   ADM06_MSG, LOOSER.sh_name);
  312. X  printf("\n  %s %s",   ADM07_MSG, LOOSER.nick);
  313. X  printf("\n  %s %s",   ADM08_MSG, LOOSER.wohnort);
  314. X  printf("\n  %s %s",   ADM09_MSG, LOOSER.strasse);
  315. X  printf("\n  %s %s",   ADM10_MSG, LOOSER.telefon1);
  316. X  printf("\n  %s %s",   ADM11_MSG, LOOSER.telefon2);
  317. X  printf("\n  %s %s",   ADM12_MSG, LOOSER.geburtsdatum);
  318. X  printf("\n  %s %d",   ADM13_MSG, LOOSER.terminal);
  319. X  printf("\n  %s %d",   ADM14_MSG, LOOSER.editor);
  320. X  printf("\n  %s %d",   ADM15_MSG, LOOSER.level);
  321. X  printf("\n  %s %d",   ADM16_MSG, LOOSER.more);
  322. X  printf("\n  %s %d",   ADM17_MSG, LOOSER.bell);
  323. X  printf("\n  %s %d",   ADM18_MSG, LOOSER.prompt);
  324. X  printf("\n  %s %d",   ADM19_MSG, LOOSER.tlines += 2);
  325. X  printf("\n  %s %s",   ADM20_MSG, LOOSER.lastlog);
  326. X  printf("\n  %s %.5s", ADM21_MSG, (UNSIGNED char *) timereconv((long) LOOSER.lasttime));
  327. X  printf("\n  %s %s",   ADM21aMSG, LOOSER.account);
  328. X  printf("\n  %s %s",   ADM22_MSG, LOOSER.newsgrps);
  329. X  printf("\n  %s %d",   ADM23_MSG, LOOSER.seq);
  330. X
  331. X  wait_until_keypressed();
  332. X}
  333. X
  334. X
  335. X/* #UL - Delete BBS user account including all directories and files. */
  336. X
  337. Xvoid user_loeschen()
  338. X{
  339. X  int fd;
  340. X  int gd;
  341. X  struct userdaten DUMMY, LOOSER;
  342. X  UNSIGNED char s[STRING];
  343. X  UNSIGNED char t[STRING];
  344. X  long ll = -1L;
  345. X  size_t dummy = sizeof(DUMMY);
  346. X  UNSIGNED char c;
  347. X  int i;
  348. X  int uid = -1;
  349. X
  350. X
  351. X  headline( ADM25_MSG );
  352. X    
  353. X  printf("\n%s ", ADM02_MSG);
  354. X  strcpy(s, (UNSIGNED char *) getline(30, 11, '.', ""));
  355. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  356. X
  357. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  358. X  fd = open(UDBASE, O_RDONLY);
  359. X  if (fd == -1) {
  360. X    nerror("admin.c", 459, "loeschen", "Can't read", UDBASE);
  361. X  }
  362. X  while (read(fd, (UNSIGNED char *) &DUMMY, dummy) == dummy) {
  363. X    if (uid == DUMMY.id) {
  364. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  365. X    }
  366. X    else{
  367. X        if ((strcomp(s, DUMMY.name) == 0) ||
  368. X            (strcomp(s, DUMMY.nick) == 0) ||
  369. X            (strcomp(s, DUMMY.sh_name) == 0)) {
  370. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  371. X        }
  372. X    }
  373. X  }
  374. X  lseek(fd, ll, SEEK_SET);
  375. X  read(fd, (UNSIGNED char *) &LOOSER, sizeof(LOOSER));
  376. X  close(fd);
  377. X  mbunlock(UDBASE);
  378. X
  379. X  if (ll == -1L) return;
  380. X
  381. X  printf("%c%s (%d)                                     ", CR, ADM26_MSG, LOOSER.id);
  382. X  printf("\n%s (%s) ", ADM27_MSG, LOOSER.name);
  383. X
  384. X  ansi2("md", 0, 0);
  385. X  printf("\n\n%s [%c, %c] ? > ", ADM28_MSG, GBL06_MSG, GBL07_MSG);
  386. X  ansi2("me", 0, 0);
  387. X
  388. X  c = yesno();
  389. X
  390. X  if (c != GBL06_MSG) return;
  391. X
  392. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  393. X  fd = open(UDBASE, O_RDONLY);
  394. X  if (fd == -1) {
  395. X    nerror("admin.c", 490, "loeschen", "Can't read", UDBASE);
  396. X  }
  397. X  sprintf(s, "%s/%dbase", TMP, getpid());
  398. X
  399. X  gd = open(s, O_WRONLY | O_CREAT);
  400. X  if (gd == -1) {
  401. X    nerror("admin.c", 497, "loeschen", "Can't create", s);
  402. X  }
  403. X  while (read(fd, (UNSIGNED char *) &DUMMY, dummy) == dummy) {
  404. X    if (DUMMY.id != LOOSER.id) {
  405. X        write(gd, (UNSIGNED char *) &DUMMY, dummy);
  406. X    }
  407. X  }
  408. X  close(gd);
  409. X  close(fd);
  410. X  mbunlock(UDBASE);
  411. X
  412. X  sprintf(t, "cp %s %s", s, UDBASE);
  413. X  system(t);
  414. X
  415. X  unlink(s);
  416. X
  417. X  sprintf(s, "rm -r %s/usr/%c/%d", HOME, LOOSER.name[0], LOOSER.id);
  418. X  system(s);
  419. X}
  420. X
  421. X
  422. X
  423. X/* #SG - Read a number. Only accept numbers between 1 and 'max'. */
  424. X
  425. Xint setup_get(max)
  426. XUNSIGNED char max;
  427. X{
  428. X  UNSIGNED char c;
  429. X
  430. X  ansi2("md", 0 ,0);
  431. X  printf("\n[1-%c] %s > ", max, ADM29_MSG);
  432. X  ansi2("me", 0, 0);
  433. X
  434. X  do {
  435. X    c = getint();
  436. X    if ((c < '0') || (c > max)) c = 0;
  437. X  } while (c == 0);
  438. X  printf("%c", c);
  439. X
  440. X  return c;
  441. X}
  442. X
  443. X
  444. X
  445. X/* #WU - Wait until keypressed ... what a surprise! */
  446. X
  447. Xvoid wait_until_keypressed()
  448. X{
  449. X  UNSIGNED char c;
  450. X
  451. X  ansi2("md", 0, 0);
  452. X  printf("\n\n%s > ", ADM30_MSG);
  453. X  ansi2("me", 0, 0);
  454. X 
  455. X  c = getint();
  456. X}
  457. X
  458. X
  459. X
  460. X/* #AD - Sysop maintaining users database. */
  461. X
  462. Xvoid admin()
  463. X{
  464. X  UNSIGNED char c;
  465. X
  466. XAGAIN:
  467. X
  468. X  headline( ADM31_MSG );
  469. X
  470. X  printf(  "\n  1 - %s", ADM32_MSG);
  471. X  printf("\n\n  2 - %s", ADM33_MSG);
  472. X  printf("\n\n  3 - %s", ADM34_MSG);
  473. X  printf("\n\n  4 - %s", ADM35_MSG);
  474. X  printf("\n\n  5 - %s", ADM36_MSG);
  475. X
  476. X  printf("\n");
  477. X  printf("\n\n  8 - %s", ADM37_MSG);
  478. X
  479. X  MEDIUM: printf("\n");
  480. X
  481. X  c = setup_get('8');
  482. X
  483. X  switch (c) {
  484. X      case '1':    
  485. X        postfach("*");
  486. X        logout();
  487. X        intro();
  488. X        break;
  489. X
  490. X      case '2':    
  491. X        user_aendern();
  492. X        break;
  493. X
  494. X      case '3':    
  495. X        user_loeschen();
  496. X        break;
  497. X
  498. X      case '4':    
  499. X        user_anzeigen();
  500. X        break;
  501. X
  502. X      case '5':
  503. X        userliste("");
  504. X        wait_until_keypressed();
  505. X        break;
  506. X
  507. X       default:
  508. X        printf("\n");
  509. X        return;
  510. X  }
  511. X  goto AGAIN;
  512. X
  513. X}
  514. X
  515. X
  516. X
  517. X/* #SU - User maintaining his/her data. */
  518. X
  519. Xvoid setup()
  520. X{
  521. X  FILE *fp;
  522. X  int fd;
  523. X  UNSIGNED char s[STRING];
  524. X  UNSIGNED char t[STRING];
  525. X  UNSIGNED char c;
  526. X  int i;
  527. X  int ok = 0;
  528. X  long ll;
  529. X  struct userdaten DUMMY;
  530. X  int dummy = sizeof(DUMMY);
  531. X  UNSIGNED char *BLANKS = (UNSIGNED char *) "                                               ";
  532. X  UNSIGNED char oldname[STRING];
  533. X
  534. X
  535. X  AGAIN:
  536. X
  537. X  headline( ADM38_MSG );
  538. X  printf("\n");
  539. X
  540. X  printf("  1 - %s\n\n", ADM39_MSG);
  541. X  printf("  2 - %s\n\n", ADM40_MSG);
  542. X  printf("  3 - %s\n\n", ADM41_MSG);
  543. X  printf("  4 - %s\n\n", ADM42_MSG);
  544. X  printf("  5 - %s\n\n", ADM43_MSG);
  545. X  printf("  6 - %s\n\n", ADM44_MSG);
  546. X  printf("  7 - %s\n\n", ADM45_MSG);
  547. X  printf("  8 - %s\n\n", ADM46_MSG);
  548. X  printf("\n");
  549. X  printf("  9 - %s\n\n", ADM47_MSG);
  550. X
  551. X  c = setup_get('9');
  552. X
  553. X  switch (c) {
  554. X      case '1':
  555. X        headline( ADM48_MSG );
  556. X        printf("\n");
  557. X        if (USER.terminal == 1)
  558. X            printf("*");
  559. X        else
  560. X            printf(" ");
  561. X        printf(" 1 - ANSI (X3.64 ... PC-BBS-ANSI)\n\n");
  562. X        if (USER.terminal == 2)
  563. X            printf("*");
  564. X        else
  565. X            printf(" ");
  566. X        printf(" 2 - VT100 (Digital Equipment VT100)\n\n");
  567. X        if (USER.terminal == 3)
  568. X            printf("*");
  569. X        else
  570. X            printf(" ");
  571. X        printf(" 3 - VT52 (Digital Equipment VT52)\n\n");
  572. X        if (USER.terminal == 4)
  573. X            printf("*");
  574. X        else
  575. X            printf(" ");
  576. X        printf(" 4 - Dump (%s)\n\n", ADM49_MSG);
  577. X        if (USER.terminal == 5)
  578. X            printf("*");
  579. X        else
  580. X            printf(" ");
  581. X        printf(" 5 - COLOR-ANSI (X3.64 & ISO 6429)\n\n");
  582. X                if (USER.terminal == 6)
  583. X            printf("*");
  584. X        else
  585. X            printf(" ");
  586. X        printf(" 6 - %s (%s)\n\n", TECA[1].name, TECA[1].desc);
  587. X        if (USER.terminal == 7)
  588. X            printf("*");
  589. X        else
  590. X            printf(" ");
  591. X                printf(" 7 - %s (%s)\n\n", TECA[2].name, TECA[2].desc);
  592. X        if (USER.terminal == 8)
  593. X            printf("*");
  594. X        else
  595. X            printf(" ");
  596. X        printf(" 8 - %s (%s)\n\n", TECA[3].name, TECA[3].desc);
  597. X
  598. X        USER.terminal = setup_get('8') - 48;
  599. X        
  600. X        break;
  601. X
  602. X      case '2':
  603. X        headline( ADM50_MSG );
  604. X        printf("\n");
  605. X        fp = fopen(EDITORS, "r");
  606. X        if (fp == NULL) {
  607. X            nerror("admin.c", 563, "setup", "Can't read", EDITORS);
  608. X        }
  609. X        i = 0;
  610. X        while((fgets(s, STRING, fp) != NULL) && (s[0] != '='));
  611. X        while (fscanf(fp, "%s %s", s, t) > 0) {
  612. X            i++;
  613. X            if (USER.editor == i)
  614. X                printf("*");
  615. X            else
  616. X                printf(" ");
  617. X            printf(" %d - %s\n\n", i, s);
  618. X        }
  619. X        fclose(fp);
  620. X        USER.editor = setup_get((i + 48)) - 48;
  621. X    
  622. X        break;
  623. X
  624. X      case '3':
  625. X        headline( ADM51_MSG );
  626. X        printf("\n");
  627. X        strcpy(s, (UNSIGNED char *) mytime(0));
  628. X        if ((USER.prompt == 1) && (USER.bell == 1))
  629. X            printf("*");
  630. X        else
  631. X            printf(" ");
  632. X        printf(" 1 - %s->     \"[%s] %s > \"\n\n", ADM52_MSG, s, LOP06_MSG);
  633. X        if ((USER.prompt == 1) && (USER.bell == 0))
  634. X            printf("*");             
  635. X        else
  636. X            printf(" ");
  637. X        printf(" 2 - %s->     \"[%s] %s > \"\n\n", ADM53_MSG, s, LOP06_MSG);
  638. X        if ((USER.prompt == 2) && (USER.bell == 1))
  639. X            printf("*");
  640. X        else
  641. X            printf(" ");
  642. X        printf(" 3 - %s->     \"[%s] %s > \"\n\n", ADM54_MSG, NG, LOP06_MSG);
  643. X        if ((USER.prompt == 2) && (USER.bell == 0))
  644. X            printf("*");
  645. X        else
  646. X            printf(" ");
  647. X        printf(" 4 - %s->     \"[%s] %s > \"\n\n", ADM55_MSG, NG, LOP06_MSG);
  648. X        if ((USER.prompt == 3) && (USER.bell == 1))
  649. X            printf("*");
  650. X        else
  651. X            printf(" ");
  652. X        printf(" 5 - %s->     \"[(Sec.) NZ, RZ, WZ] %s > \"\n\n", ADM56_MSG, LOP06_MSG);
  653. X        if ((USER.prompt == 3) && (USER.bell == 0))
  654. X            printf("*");
  655. X        else
  656. X            printf(" ");
  657. X        printf(" 6 - %s->     \"[(Sec.) NZ, RZ, WZ] %s > \"\n\n", ADM57_MSG, LOP06_MSG);
  658. X    
  659. X        c = setup_get('6');
  660. X        switch (c) {
  661. X                case '1':
  662. X                    USER.prompt = 1;
  663. X                    USER.bell = 1;
  664. X                    break;
  665. X                case '2':
  666. X                    USER.prompt = 1;
  667. X                    USER.bell = 0;
  668. X                    break;
  669. X                case '3':
  670. X                    USER.prompt = 2;
  671. X                    USER.bell = 1;
  672. X                    break;
  673. X                case '4':
  674. X                    USER.prompt = 2;
  675. X                    USER.bell = 0;
  676. X                    break;
  677. X                case '5':
  678. X                    USER.prompt = 3;
  679. X                    USER.bell = 1;
  680. X                    break;
  681. X                case '6':
  682. X                    USER.prompt = 3;
  683. X                    USER.bell = 0;
  684. X                    break;
  685. X        }
  686. X        break;
  687. X
  688. X      case '4':
  689. X        headline( ADM58_MSG );
  690. X        printf("\n");
  691. X        if (USER.more == 0)
  692. X            printf("*");
  693. X        else
  694. X            printf(" ");
  695. X        printf(" 1 - %s\n\n", ADM59_MSG);
  696. X        if (USER.more == 1)
  697. X            printf("*");
  698. X        else
  699. X            printf(" ");
  700. X        printf(" 2 - %s\n\n", ADM60_MSG);
  701. X        if (USER.more == 3)
  702. X            printf("*");
  703. X        else
  704. X            printf(" ");
  705. X        printf(" 3 - %s\n\n", ADM61_MSG);
  706. X        printf("\n");
  707. X        printf("  4 - %s\n\n", ADM62_MSG);
  708. X        printf("  5 - %s\n\n", ADM63_MSG);
  709. X        printf("  6 - %s\n\n", ADM64_MSG);        
  710. X        printf("  7 - %s\n\n", ADM64aMSG);
  711. X        printf("  8 - %s\n\n", ADM64bMSG);
  712. X
  713. X        i = setup_get('8') - 49;
  714. X
  715. X        if (i < 3) {
  716. X            USER.more = i;
  717. X            if (USER.more == 2) USER.more++;
  718. X        }
  719. X        else {
  720. X            headline( ADM58_MSG );
  721. X            printf("\n");
  722. X            
  723. X            if (i == 3) {
  724. X                if (USER.leserichtung == 1)
  725. X                    printf("*");
  726. X                else
  727. X                    printf(" ");
  728. X                printf(" 1 - %s\n\n", ADM65_MSG);
  729. X                if (USER.leserichtung == 2)
  730. X                    printf("*");
  731. X                else
  732. X                    printf(" ");
  733. X                printf(" 2 - %s\n\n", ADM66_MSG);
  734. X        
  735. X                USER.leserichtung = setup_get('2') - 48;
  736. X            }
  737. X            if (i == 4) {
  738. X                if (USER.tlines == 22)
  739. X                    printf("*");
  740. X                else
  741. X                    printf(" ");
  742. X                printf(" 1 - %s\n\n", ADM67_MSG);
  743. X                if (USER.tlines == 23)
  744. X                    printf("*");
  745. X                else
  746. X                    printf(" ");
  747. X                printf(" 2 - %s\n\n", ADM68_MSG);
  748. X                if (USER.tlines == 43)
  749. X                    printf("*");
  750. X                else
  751. X                    printf(" ");
  752. X                printf(" 3 - %s\n\n", ADM68aMSG);
  753. X
  754. X                USER.tlines = setup_get('3') - 48 + 21;
  755. X                if(USER.tlines == 24) USER.tlines = 43; /* 45 Zeilen !! */    
  756. X            }
  757. X            if (i == 5) {
  758. X                if (USER.schluessel[0] != 32)
  759. X                    printf("*");
  760. X                else
  761. X                    printf(" ");
  762. X                printf(" 1 - %s\n\n", ADM69_MSG);
  763. X                if (USER.schluessel[0] == 32)
  764. X                    printf("*");
  765. X                else
  766. X                    printf(" ");
  767. X                printf(" 2 - %s\n\n", ADM70_MSG);
  768. X        
  769. X                i = setup_get('2') - 48;
  770. X                if (i == 2){
  771. X                    USER.schluessel[0] = 32;
  772. X                }                
  773. X                else{
  774. X                    USER.schluessel[0] = 1;
  775. X                }
  776. X            }
  777. X            if (i == 6) {
  778. X                if (USER.schluessel[1] == 2)
  779. X                    printf("*");
  780. X                else
  781. X                    printf(" ");
  782. X                printf(" 1 - %s\n\n", ADM70aMSG);
  783. X                if (USER.schluessel[1] == 3)
  784. X                    printf("*");
  785. X                else
  786. X                    printf(" ");
  787. X                printf(" 2 - %s\n\n", ADM70bMSG);
  788. X        
  789. X                if (USER.schluessel[1] == 4)
  790. X                    printf("*");
  791. X                else
  792. X                    printf(" ");
  793. X                printf(" 3 - %s\n\n", ADM70cMSG);
  794. X    
  795. X                i = setup_get('3') - 48;
  796. X                USER.schluessel[1] = i + 1;
  797. X            }
  798. X            if (i == 7) {
  799. X                if (USER.schluessel[2] == 1)
  800. X                    printf("*");
  801. X                else
  802. X                    printf(" ");
  803. X                printf(" 1 - %s [%c %c %c %c %c %c %c]\n\n", 
  804. X                    ADM70dMSG, 196, 214, 220, 228, 246, 252, 223);
  805. X                if (USER.schluessel[2] == 2)
  806. X                    printf("*");
  807. X                else
  808. X                    printf(" ");
  809. X                printf(" 2 - %s [%c %c %c %c %c %c %c]\n\n",
  810. X                     ADM70eMSG, 142, 153, 154, 132, 148, 129, 225);
  811. X                if (USER.schluessel[2] == 3)
  812. X                    printf("*");
  813. X                else
  814. X                    printf(" ");
  815. X                printf(" 3 - %s\n\n", ADM70fMSG);
  816. X                if (USER.schluessel[2] == 4)
  817. X                    printf("*");
  818. X                else
  819. X                    printf(" ");
  820. X                printf(" 4 - %s\n\n", ADM70gMSG);
  821. X
  822. X                i = setup_get('4') - 48;
  823. X                USER.schluessel[2] = i;
  824. X            }
  825. X        }
  826. X        break;
  827. X
  828. X    case '5':
  829. X        if (strcomp(GUEST, USER.name) == 0) break;
  830. X
  831. X        headline( ADM71_MSG );
  832. X        printf("\n");
  833. X
  834. X        ansi2("md", 0, 0);
  835. X        printf("%s\n", ADM72_MSG);
  836. X        printf("%s\n", ADM73_MSG);
  837. X        printf("%s\n", ADM74_MSG);
  838. X        printf("\n");
  839. X        printf("%s\n", ADM75_MSG);
  840. X        printf("%s\n", ADM76_MSG);
  841. X        ansi2("me", 0, 0);
  842. X
  843. X        maybe_locked(UDBASE, "r"); 
  844. X            fd = open(UDBASE, O_RDONLY);
  845. X        if (fd == -1) {
  846. X            nerror("admin.c", 747, "setup", "Can't read", UDBASE);
  847. X        }    
  848. X
  849. X        strcpy(oldname, (UNSIGNED char *) USER.name);
  850. X
  851. X        printf("\n%s ", ADM04_MSG);
  852. X        strcpy(s, (UNSIGNED char *) getline(30, 1015, '.', USER.name));
  853. X        if(strcomp(GUEST, s) != 0){
  854. X            if (s[0] > 31){
  855. X                ok = 0;
  856. X                lseek(fd, 0L, SEEK_SET);
  857. X                while ((read(fd, (UNSIGNED char *) &DUMMY, sizeof(DUMMY)) == sizeof(DUMMY)) && (ok == 0)) {
  858. X                    if (strcomp(s, DUMMY.name)    == 0) ok = 1;
  859. X                    if (strcomp(s, DUMMY.nick)    == 0) ok = 1;
  860. X                    if (strcomp(s, DUMMY.sh_name) == 0) ok = 1;
  861. X                }
  862. X                if(USER.level < ADMIN_LEV){
  863. X                    if ((strcomp("SYSOP", s) == 0) ||
  864. X                        (strcomp("POST",  s) == 0) ||
  865. X                        (strcomp("GAST",  s) == 0) ||
  866. X                        (strcomp("ADMIN", s) == 0) ||
  867. X                        (strcomp("COSYS", s) == 0)) ok++;
  868. X                }
  869. X                if(s[0] >= 97) s[0] -= 32;
  870. X
  871. X                if(ok == 0) strcpy(USER.name, (UNSIGNED char *) s);
  872. X            }
  873. X        }
  874. X
  875. X        printf("\n%s ", ADM07_MSG);
  876. X        strcpy(s, (UNSIGNED char *) getline(30, 1015, '.', USER.nick));
  877. X        if (s[0] > 31){    
  878. X            ok = 0;
  879. X            lseek(fd, 0L, SEEK_SET);
  880. X            while ((read(fd, (UNSIGNED char *) &DUMMY, sizeof(DUMMY)) == sizeof(DUMMY)) && (ok == 0)) {
  881. X                if (strcomp(s, DUMMY.name)    == 0) ok = 1;
  882. X                if (strcomp(s, DUMMY.nick)    == 0) ok = 1;
  883. X                if (strcomp(s, DUMMY.sh_name) == 0) ok = 1;
  884. X            }
  885. X            if (USER.level < ADMIN_LEV){
  886. X                if ((strcomp("SYSOP", s) == 0) ||
  887. X                    (strcomp("POST",  s) == 0) ||
  888. X                    (strcomp("GAST",  s) == 0) ||
  889. X                    (strcomp("ADMIN", s) == 0) ||
  890. X                    (strcomp("COSYS", s) == 0)) ok++;
  891. X            }
  892. X
  893. X            if(ok == 0) strcpy(USER.nick, (UNSIGNED char *) s);
  894. X        }
  895. X
  896. X        close(fd);
  897. X        mbunlock(UDBASE);
  898. X
  899. X        printf("\n%s ", ADM08_MSG);
  900. X        strcpy(s, (UNSIGNED char *) getline(30, 1011, '.', USER.wohnort));
  901. X        if (s[0] > 31) sprintf(USER.wohnort, s);
  902. X
  903. X        printf("\n%s ", ADM09_MSG);
  904. X        strcpy(s, (UNSIGNED char *) getline(30, 1011, '.', USER.strasse));
  905. X        if (s[0] > 31) sprintf(USER.strasse, s);
  906. X
  907. X        printf("\n%s ", ADM10_MSG);
  908. X        strcpy(s, (UNSIGNED char *) getline(20, 1011, '.', USER.telefon1));
  909. X        if (s[0] > 31) sprintf(USER.telefon1, s);
  910. X
  911. X        printf("\n%s ", ADM11_MSG);
  912. X        strcpy(s, (UNSIGNED char *) getline(20, 1011, '.', USER.telefon2));
  913. X        if (s[0] > 31) sprintf(USER.telefon2, s);
  914. X
  915. X        printf("\n%s ", ADM12_MSG);
  916. X        strcpy(s, (UNSIGNED char *) getline(10, 1114, '?', USER.geburtsdatum));
  917. X        if (s[0] > 31) sprintf(USER.geburtsdatum, s);
  918. X
  919. X        if(USER.name[0] != oldname[0]){
  920. X            moving( oldname, USER.name, USER.id );
  921. X        }
  922. X        break;
  923. X
  924. X      case '6':
  925. X        if (strcomp(GUEST, USER.name) == 0) break;
  926. X
  927. X        headline( ADM77_MSG );
  928. X        
  929. X        NIX: printf("\n%s ", ADM78_MSG);
  930. X    
  931. X        strcpy(s, (UNSIGNED char *) getline(10, 12, '.', ""));
  932. X        if (s[0] != '\0') {
  933. X            strcpy(USER.passwort, (UNSIGNED char *) crypted(s));
  934. X            printf(" (%s)", USER.passwort);
  935. X        }
  936. X        if (strlen(USER.passwort) < 5) {
  937. X            ansi2("md", 0, 0);
  938. X            printf("\n\n%s\n", ADM79_MSG);
  939. X            ansi2("me", 0, 0);
  940. X            goto NIX;
  941. X        }
  942. X        printf("\n\n%s ", ADM80_MSG);
  943. X        strcpy(s, (UNSIGNED char *) getline(10, 12, '.', ""));
  944. X        strcpy(t, (UNSIGNED char *) crypted(s));
  945. X        printf(" (%s)", t);
  946. X        if ((strcomp(t, USER.passwort) != 0) || (strcomp(USER.passwort, t) != 0)) {
  947. X            ansi2("md", 0, 0);
  948. X            printf(" %s         \n", ADM81_MSG);
  949. X            ansi2("me", 0, 0);
  950. X            goto NIX;
  951. X        }
  952. X        break;
  953. X
  954. X    case '7':
  955. X        headline( ADM82_MSG );
  956. X        printf("\n");
  957. X        strcpy(s, (UNSIGNED char *) mytime(0));
  958. X        if (USER.intro == 1)
  959. X            printf("*");
  960. X        else
  961. X            printf(" ");
  962. X        printf(" 1 - %s\n\n", ADM83_MSG);
  963. X        if (USER.intro == 2)
  964. X            printf("*");
  965. X        else
  966. X            printf(" ");
  967. X        printf(" 2 - %s\n\n", ADM84_MSG);
  968. X        if (USER.intro == 3)
  969. X            printf("*");
  970. X        else
  971. X            printf(" ");
  972. X        printf(" 3 - %s\n\n", ADM85_MSG);
  973. X        if (USER.intro == 4)
  974. X            printf("*");
  975. X        else
  976. X            printf(" ");
  977. X        printf(" 4 - %s\n\n", ADM86_MSG);
  978. X
  979. X        USER.intro = setup_get('4') - 48;
  980. X        break;
  981. X
  982. X      case '8':
  983. X        headline( ADM87_MSG );
  984. X        printf("\n");
  985. X        if (USER.lastmode == 1)
  986. X            printf("*");
  987. X        else
  988. X            printf(" ");
  989. X        printf(" 1 - %s\n\n", ADM88_MSG);
  990. X        if (USER.lastmode == 2)
  991. X            printf("*");
  992. X        else
  993. X            printf(" ");
  994. X        printf(" 2 - %s\n\n", ADM89_MSG);
  995. X        printf("\n");
  996. X        printf("  3 - %s\n\n", ADM90_MSG);
  997. X    
  998. X        i = setup_get('3') - 48;
  999. X
  1000. X        switch (i) {
  1001. X            case 1:
  1002. X                USER.lastmode = 1;
  1003. X                LASTTIME = USER.lasttime;
  1004. X                break;
  1005. X            case 2:
  1006. X                USER.lastmode = 2;
  1007. X                LASTTIME = (int) 0;
  1008. X                break;
  1009. X            case 3:
  1010. X                headline( ADM87_MSG );
  1011. X                ansi2("md", 0, 0);
  1012. X                printf("\n%s\n", ADM91_MSG);
  1013. X                printf("%s\n", ADM92_MSG);
  1014. X                printf("%s\n", ADM93_MSG);
  1015. X                printf("%s\n", ADM94_MSG);
  1016. X                ansi2("me", 0, 0);
  1017. X
  1018. X                printf("\n%s ", ADM95_MSG);
  1019. X                strcpy(t, (UNSIGNED char *) datereconv(LASTLOG));
  1020. X                strcpy(s, (UNSIGNED char *) getline(10, 1114, '?', t));
  1021. X                LASTLOG = (long) dateconv(s);
  1022. X
  1023. X                printf("\n%s ", ADM96_MSG);
  1024. X                strcpy(t, (UNSIGNED char *) timereconv(LASTTIME));
  1025. X                strcpy(s, (UNSIGNED char *) getline(8, 1113, '?', t));
  1026. X                LASTTIME = timeconv(s);
  1027. X
  1028. X                break;
  1029. X        }
  1030. X        break;
  1031. X
  1032. X      case '9':    
  1033. X        goto ENDE;
  1034. X        break;
  1035. X  }
  1036. X  printf("\n\n");
  1037. X  init_user( ADM97_MSG );
  1038. X  goto AGAIN;
  1039. X
  1040. X  ENDE:
  1041. X
  1042. X  sprintf(s, "%s/surf.%d", TMP, getpid());
  1043. X  unlink(s);
  1044. X
  1045. X  printf("\n");
  1046. X  return;
  1047. X}
  1048. END_OF_FILE
  1049.   if test 24678 -ne `wc -c <'mbox/src/admin.c'`; then
  1050.     echo shar: \"'mbox/src/admin.c'\" unpacked with wrong size!
  1051.   fi
  1052.   # end of 'mbox/src/admin.c'
  1053. fi
  1054. if test -f 'mbox/src/mail.c' -a "${1}" != "-c" ; then 
  1055.   echo shar: Will not clobber existing file \"'mbox/src/mail.c'\"
  1056. else
  1057.   echo shar: Extracting \"'mbox/src/mail.c'\" \(24817 characters\)
  1058.   sed "s/^X//" >'mbox/src/mail.c' <<'END_OF_FILE'
  1059. X/* ix/MBox (mail.c) by Volker Schuermann, 04.12.1993
  1060. X
  1061. X   This C source code contains the following functions:
  1062. X
  1063. X   #BF brief()           mailing to local and foreign users
  1064. X
  1065. X   Contact <volkers@unnet.wupper.de> for help! */
  1066. X
  1067. X
  1068. X
  1069. X
  1070. X
  1071. X
  1072. X
  1073. X
  1074. X#include <sys/types.h>
  1075. X#include <sys/stat.h>
  1076. X#include <unistd.h>
  1077. X#include <stdio.h>
  1078. X#include <fcntl.h>
  1079. X#include <time.h>
  1080. X
  1081. X#include "mbox.h"
  1082. X
  1083. X
  1084. X
  1085. X
  1086. X/* #BF - The internal mailer.
  1087. X
  1088. X   This one is able to mail to BBS users, to shell users and users
  1089. X   abroad.
  1090. X
  1091. X   If [arg] contains the text "~REPLY~", the mailer looks for a mail
  1092. X   to replay on. If not, [arg] must be some kind of address. The mailer
  1093. X   itself finds out wheter the receiver is a BBS user, shell user or
  1094. X   even a user on another site.
  1095. X
  1096. X   The function returns a -1 to announce a break or an error. */
  1097. X
  1098. Xint brief(arg)
  1099. XUNSIGNED char arg[];
  1100. X{
  1101. X  FILE *fp;
  1102. X  FILE *ff;
  1103. X  FILE *ft;
  1104. X  int fd;
  1105. X  int i, j, a;
  1106. X  int ok;
  1107. X  struct userdaten LOOSER;
  1108. X
  1109. X  int endless;
  1110. X
  1111. X  time_t timer;
  1112. X  struct tm *timeptr;
  1113. X
  1114. X  int receiver;
  1115. X  int mail_id;
  1116. X  int EX_PM = 0;
  1117. X  int REPLY = 0;
  1118. X  int lines = 0;
  1119. X  int WEITERLEITEN = 0;
  1120. X  int HOLD = 0;
  1121. X  int UMLEITUNG = 0;
  1122. X  int KOPIE = 0;
  1123. X
  1124. X  UNSIGNED char s[STRING];
  1125. X  UNSIGNED char t[STRING];
  1126. X  UNSIGNED char TEP[STRING];
  1127. X  UNSIGNED char REP[STRING];
  1128. X  UNSIGNED char f[STRING];
  1129. X  UNSIGNED char subject[STRING];
  1130. X  UNSIGNED char from[STRING];
  1131. X  UNSIGNED char rec_char[STRING];
  1132. X  UNSIGNED char ex[LONGSTRING];
  1133. X  UNSIGNED char user[STRING];
  1134. X  UNSIGNED char mesg_id[STRING];
  1135. X  UNSIGNED char refs[STRING];
  1136. X  UNSIGNED char date[STRING];
  1137. X  UNSIGNED char c;
  1138. X  UNSIGNED char protokoll;
  1139. X  UNSIGNED char lf;
  1140. X  UNSIGNED char pubdir[STRING];
  1141. X  UNSIGNED char dummy[STRING];
  1142. X  UNSIGNED char username[STRING];
  1143. X  UNSIGNED char reply[STRING];
  1144. X  UNSIGNED char priority[STRING];
  1145. X  UNSIGNED char action[STRING];
  1146. X  UNSIGNED char cc[STRING];
  1147. X  UNSIGNED char bcc[STRING];
  1148. X  UNSIGNED char encrypted[STRING];
  1149. X  UNSIGNED char comments[STRING];
  1150. X  UNSIGNED char keywords[STRING];
  1151. X  UNSIGNED char fortune[STRING];
  1152. X  UNSIGNED char content[STRING];
  1153. X  UNSIGNED char receipt[STRING];
  1154. X  UNSIGNED char delivery[STRING];
  1155. X
  1156. X  long cont_length = 0;
  1157. X
  1158. X  UNSIGNED char YOUR_SITE[STRING];
  1159. X
  1160. X  int BINFILE;
  1161. X  int news_reply = 0;
  1162. X
  1163. X  struct stat fst;
  1164. X
  1165. X
  1166. X  i = 0;
  1167. X  ok = 0;
  1168. X
  1169. X  mesg_id[0] = '\0';
  1170. X
  1171. X  if (arg[0] == '\0') {
  1172. X    ansi2("md", 0, 0);
  1173. X    printf(" %s\n", MAL03_MSG);
  1174. X    ansi2("me", 0, 0);
  1175. X    return -1;
  1176. X  }
  1177. X  EX_PM = 0;
  1178. X
  1179. X  i = 0;
  1180. X  strcpy(t, USER.name);
  1181. X  while (t[i] != '\0') {
  1182. X    if (t[i] == ' ') t[i] = '.';
  1183. X    i++;
  1184. X  }
  1185. X  strcpy(username, t);
  1186. X  action[0]     = '\0';
  1187. X  priority[0]    = '\0';
  1188. X  encrypted[0]    = '\0';
  1189. X  keywords[0]     = '\0';
  1190. X  comments[0]    = '\0';
  1191. X  cc[0]     = '\0';
  1192. X  bcc[0]    = '\0';
  1193. X  fortune[0]     = '\0';
  1194. X  content[0]    = '\0';
  1195. X  receipt[0]     = '\0';
  1196. X  reply[0]       = '\0';
  1197. X  delivery[0]    = '\0';
  1198. X
  1199. X#ifdef _UMLAUT
  1200. X  if(UMLAUT_MODUS < 3) strcpy(content, (UNSIGNED char *) "text/plain; charset=iso-8859-1");
  1201. X#endif
  1202. X
  1203. X  if(ROT13_MODUS) strcpy(encrypted, (UNSIGNED char *) "rot13");
  1204. X
  1205. X  i = 0;
  1206. X  while (arg[i] != '\0') {
  1207. X    if ((arg[i] == '!') || (arg[i] == '@') || (arg[i] == '%')) EX_PM++;
  1208. X    i++;
  1209. X  }
  1210. X
  1211. X  if ((EX_PM > 0) && (USER.level < MAILOUT_LEV)) {
  1212. X    ansi2("md", 0, 0);
  1213. X    printf("\n\n%s (%d) %s\n", MAL04_MSG, MAILOUT_LEV, MAL05_MSG);
  1214. X    ansi2("me", 0, 0);
  1215. X    return -1;
  1216. X  }
  1217. X
  1218. X  if(arg[strlen(arg) -1] == '?'){
  1219. X    arg[strlen(arg) -1] = '$';
  1220. X    HOLD++;
  1221. X    KOPIE++;
  1222. X  }
  1223. X
  1224. X  if(arg[strlen(arg) -1] == '$'){
  1225. X    WEITERLEITEN++;
  1226. X    arg[strlen(arg) -1] = '\0';
  1227. X    sprintf(TEP, "%s/usr/%c/%d/.lastletter", HOME, USER.name[0], USER.id);
  1228. X    sprintf(t, "%s/usr/%c/%d/.lastsubject", HOME, USER.name[0], USER.id);
  1229. X    fp = fopen( t, "r" );
  1230. X    if(fp == NULL) {
  1231. X        return -1; 
  1232. X    }
  1233. X    fgets(s, STRING, fp);
  1234. X    fclose(fp);
  1235. X    if(HOLD == 0){
  1236. X        sprintf(subject, "%s %s", MAL06_MSG, s);
  1237. X        UMLEITUNG++;
  1238. X    }else
  1239. X        sprintf(subject, "%s", s);
  1240. X  }
  1241. X
  1242. X  user[0] = '\0';
  1243. X  strcat(user, arg);
  1244. X
  1245. X  if(WEITERLEITEN != 0) goto TRY_AGAIN;
  1246. X
  1247. X  if (strcomp("~REPLY~", arg) == 0) {
  1248. X    REPLY++;
  1249. X    sprintf(REP, "%s/%dRep", TMP, getpid());
  1250. X    sprintf(TEP, "%s/%dTep", TMP, getpid());
  1251. X    fp = fopen(REP, "r");
  1252. X    if (fp == NULL) {
  1253. X        nerror("mail.c", 278, "brief", "Can't read", REP);
  1254. X    }
  1255. X    fgets(s, STRING, fp    );            /* HEADER: Autor */
  1256. X
  1257. X    sprintf(dummy, "%s %s", GBL01_MSG, X_MAIL_DEMON);
  1258. X
  1259. X    if ((strcomp(GBL01_MSG, s) == 0) && (strcomp(dummy, s) != 0)) {
  1260. X        strcpy(user, (UNSIGNED char *) strcopy(s, (1+strlen(GBL01_MSG)), 80));
  1261. X
  1262. X        fgets(s, STRING, fp);        /* HEADER: Datum */
  1263. X        fgets(s, STRING, fp);        /* HEADER: Betreff */
  1264. X
  1265. X        strcpy(t, (UNSIGNED char *) strcopy(s, (1+strlen(GBL03_MSG)), STRING));
  1266. X        subject[0]= '\0';
  1267. X        if (strcomp("Re: ", t) != 0) {
  1268. X            strcpy(subject, "Re: ");
  1269. X        }
  1270. X        strcat(subject, (UNSIGNED char *) stripped(t));
  1271. X
  1272. X        fgets(s, STRING, fp);    /* HEADER: empty */
  1273. X        fgets(s, STRING, fp);    /* HEADER: empty */
  1274. X    }
  1275. X    else {        /* UUCP-Header (!MBox) */
  1276. X
  1277. X        sprintf(subject, MAL07_MSG);
  1278. X        refs[0] = '\0';
  1279. X        mesg_id[0] = '\0';
  1280. X
  1281. X        ok = -1;
  1282. X
  1283. X        while ((ok < 1) && (fgets(s, STRING, fp) != NULL)) {
  1284. X            if (strcomp("Lines: ", s)      == 0) ok = 1;
  1285. X            if (strcomp("Date: ",  s)      == 0) {
  1286. X                strcpy(date, (UNSIGNED char *) strcopy(s, 6, STRING));
  1287. X            }
  1288. X            if (strcomp("Newsgroups: ", s) == 0) news_reply++;
  1289. X            if (strcomp("Subject: ", s)    == 0) {
  1290. X                subject[0] = '\0';
  1291. X                strcpy(t, (UNSIGNED char *) strcopy(s, 9, STRING));
  1292. X                if (strcomp("Re: ", t) != 0) {
  1293. X                    sprintf(subject, "%s", "Re: ");
  1294. X                }
  1295. X                strcat(subject, (UNSIGNED char *) stripped(t));
  1296. X            }
  1297. X            if (strcomp("Message-Id: ", s) == 0) {
  1298. X                strcpy(mesg_id, (UNSIGNED char *) strcopy(s, 12, STRING));
  1299. X            }
  1300. X            if (strcomp("From: ", s) == 0) {
  1301. X                strcpy(from, (UNSIGNED char *) strcopy(s, 6, STRING));
  1302. X                ok = 0;
  1303. X            }
  1304. X            if (strcomp("From ", s) == 0) {
  1305. X                strcpy(from, (UNSIGNED char *) strcopy(s, 5, STRING));
  1306. X                ok = 0;
  1307. X            }
  1308. X            if (strcomp("References: ", s) == 0) {
  1309. X                strcpy(refs, (UNSIGNED char *) strcopy(s, 12, STRING));
  1310. X            }
  1311. X            if (strcomp("Comments: ", s) == 0) {
  1312. X                strcpy(comments, (UNSIGNED char *) strcopy(s, 10, STRING));
  1313. X                strcpy(comments, (UNSIGNED char *) stripped(comments));    
  1314. X            }
  1315. X            if (strcomp("Keywords: ", s) == 0) {
  1316. X                strcpy(keywords, (UNSIGNED char *) strcopy(s, 10, STRING));
  1317. X                strcpy(keywords, (UNSIGNED char *) stripped(keywords));
  1318. X            }
  1319. X            if (strcomp("Content-Type: ", s) == 0) {
  1320. X                strcpy(content, (UNSIGNED char *) strcopy(s, 14, STRING));
  1321. X                strcpy(content, (UNSIGNED char *) stripped(content));
  1322. X            }
  1323. X            if (strcomp("X-Delivering-Time: ", s) == 0) {
  1324. X                strcpy(delivery, (UNSIGNED char *) strcopy(s, 19, STRING));
  1325. X                strcpy(delivery, (UNSIGNED char *) stripped(delivery));
  1326. X            }
  1327. X
  1328. X            if ((strlen(s) < 5) && (ok == 0)) ok = 1;
  1329. X
  1330. X            /* THE FOLLOWING IS A LOUSY TRICK, EATING HEADER INFORMATION! */
  1331. X
  1332. X            while(strlen(s) == (STRING - 1)){ 
  1333. X                fgets(s, STRING, fp);
  1334. X            }
  1335. X        }
  1336. X    }
  1337. X
  1338. X    i = 0; a = 0; printf(" %-4.4d", a );
  1339. X
  1340. X    ff = fopen(TEP, "w");
  1341. X
  1342. X    if(news_reply > 0){
  1343. X        fprintf(ff, "In \"%s\" you wrote the other day:\n", NG);
  1344. X    }
  1345. X    
  1346. X
  1347. X    while (fgets(s, STRING, fp) != NULL) {
  1348. X
  1349. X        a++; 
  1350. X        printf("%c%c%c%c%-4.4d", BS, BS, BS, BS, a );
  1351. X
  1352. X        if((s[0] != '\n') && (i == 0)){
  1353. X
  1354. X            if(s[0] != '>')
  1355. X                fputs(">     ", ff);
  1356. X            else{
  1357. X                if(strcomp(">  ", s) == 0){
  1358. X                    s[1] = '>';
  1359. X                }
  1360. X                else fputs(">", ff);
  1361. X            }
  1362. X        }
  1363. X
  1364. X        if(s[0] != '>'){
  1365. X
  1366. X            if(i >= 65){    
  1367. X                fputs("\n>     ", ff);
  1368. X                i = 0;
  1369. X            }
  1370. X
  1371. X            endless = 0;
  1372. X
  1373. X            BETTER_TWICE:
  1374. X
  1375. X            if((strlen(s) + i) > 65){
  1376. X                j = 65 - i;
  1377. X                i = 0;
  1378. X                ok = 0;
  1379. X                while((ok == 0) && (j > 0)){
  1380. X                    if(s[j] == ' '){
  1381. X                        fputs((UNSIGNED char *) iso_line( (UNSIGNED char *) strcopy(s, 0, (j-1))), ff);
  1382. X                        fputs("\n>     ", ff);
  1383. X                        strcpy(f, (UNSIGNED char *) stripped( strcopy(s, (j+1), strlen(s))));
  1384. X                        strcpy(s, (UNSIGNED char *) f);
  1385. X                        strcat(s, (UNSIGNED char *) " ");
  1386. X                        i = strlen(s);
  1387. X                        ok++;
  1388. X                    }
  1389. X                    j--;
  1390. X                }
  1391. X                if((j == 0) && (ok == 0)){
  1392. X                    fputs("\n>     ", ff);
  1393. X                    endless++;
  1394. X                    if(endless == 1) goto BETTER_TWICE;
  1395. X                }
  1396. X            }
  1397. X            else{
  1398. X                i = 0;
  1399. X            }
  1400. X        }
  1401. X
  1402. X        fputs((UNSIGNED char *) iso_line(s), ff);
  1403. X    }
  1404. X    fputs("", ff);
  1405. X    fclose(ff);
  1406. X    fclose(fp);
  1407. X  }
  1408. X
  1409. X  TRY_AGAIN:
  1410. X
  1411. X  if((WEITERLEITEN != 0) && (EX_PM != 0)){
  1412. X    sprintf(rec_char, "%s", user);
  1413. X    if(checkdomaintype( rec_char ) != 0) return -1;
  1414. X    goto ONCE_MORE;
  1415. X  }
  1416. X
  1417. X  receiver = 0;
  1418. X
  1419. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  1420. X  fd = open(UDBASE, O_RDONLY);
  1421. X  if (fd == -1) {
  1422. X    nerror("mail.c", 216, "brief", "Can't read", UDBASE);
  1423. X  }
  1424. X  lseek(fd, 0L, SEEK_SET);
  1425. X  while ((receiver == 0) && (read(fd, (UNSIGNED char *) &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER))) {
  1426. X    if ((strcomp(user, LOOSER.name) == 0) ||
  1427. X        (strcomp(LOOSER.name, user) == 0) ||
  1428. X        (strcomp(user, LOOSER.nick) == 0) ||
  1429. X        (strcomp(user, LOOSER.sh_name) == 0)) {
  1430. X        receiver = LOOSER.id;
  1431. X        strcpy(rec_char, LOOSER.name);
  1432. X    }
  1433. X  }
  1434. X  close(fd);
  1435. X  mbunlock(UDBASE);
  1436. X
  1437. X  if ((receiver == 0) && (EX_PM == 0)) {
  1438. X
  1439. X    if (REPLY != 0) {
  1440. X        strcpy(user, fetch_reciepy(REP));
  1441. X        if (fetch_local == 1) goto TRY_AGAIN;
  1442. X        strcpy(rec_char, (UNSIGNED char *) stripped(user));
  1443. X        if (strcomp(user, "OOPS") == 0) {
  1444. X            ansi2("md", 0, 0);
  1445. X            printf("\n\n%s\n", MAL08_MSG);
  1446. X            ansi2("me", 0, 0);
  1447. X            unlink(TEP);
  1448. X            unlink(REP); /* ??? */
  1449. X            return -1;
  1450. X        }
  1451. X        EX_PM = 1;
  1452. X        c = MAL13_MSG;
  1453. X        goto REPLY_MARK;
  1454. X    }
  1455. X    else {
  1456. X        ansi2("md", 0, 0);
  1457. X        strcpy(rec_char, (UNSIGNED char *) stripped(user));
  1458. X        printf("\n\n%s \"%s\" %s\n", MAL09_MSG, user, MAL10_MSG);
  1459. X        ansi2("me", 0, 0);
  1460. X        if(WEITERLEITEN == 0) unlink(TEP);
  1461. X        unlink(REP);
  1462. X        return -1;
  1463. X    }
  1464. X  }
  1465. X
  1466. X  if(WEITERLEITEN != 0) goto ONCE_MORE;
  1467. X
  1468. X  unlink(REP);
  1469. X
  1470. X  if (EX_PM == 0) {
  1471. X    ansi2("md", 0, 0);
  1472. X    sprintf(s, "%s/usr/%d/.hello", HOME, receiver);
  1473. X    printf("\n\n");
  1474. X    show(s, 22, 0);
  1475. X    ansi2("me", 0, 0);
  1476. X  }
  1477. X  else {
  1478. X    strcpy(rec_char, arg);
  1479. X  }
  1480. X
  1481. X  if(checkdomaintype( rec_char ) != 0) return -1;
  1482. X
  1483. X  if (REPLY != 0) {
  1484. X    c = MAL13_MSG;
  1485. X    goto REPLY_MARK;
  1486. X  }
  1487. X  printf("\n\n%c", CR);
  1488. X
  1489. X  if(ROT13_MODUS){
  1490. X    printf("%s ", MAL11aMSG);
  1491. X    ansi2("md", 0, 0);
  1492. X    printf("ROT13");
  1493. X    ansi2("me", 0, 0);
  1494. X    printf(" %s\n\n", MAL11bMSG);
  1495. X  }
  1496. X  ansi2("mr", 0, 0);
  1497. X  printf("[%s \"%s\"] %s, ? > ", MAL11_MSG, rec_char, MAL12_MSG);
  1498. X  ansi2("me", 0, 0);
  1499. X  printf("%c%c", MAL13_MSG, BS);
  1500. X
  1501. X  do {
  1502. X    c = getint();
  1503. X    if (c >= 97) c -= 32;
  1504. X    if (c == '?') {
  1505. X        clearline();
  1506. X        ansi2("mr", 0, 0);
  1507. X        printf("%c%s > ", CR, MAL16_MSG);
  1508. X        ansi2("me", 0, 0);
  1509. X    }
  1510. X    if (c == ENTER) c = MAL13_MSG;
  1511. X    if ((c != MAL13_MSG) && (c != MAL14_MSG) && (c != MAL15_MSG)) c = 0;
  1512. X  } while (c == 0);
  1513. X
  1514. X  printf("%c", c);
  1515. X
  1516. X  if (c == MAL15_MSG) {        /* REJECT / VERWERFEN */
  1517. X    unlink(REP);
  1518. X    unlink(TEP);
  1519. X    printf("\n");
  1520. X    return -1;
  1521. X  }
  1522. X  sprintf(TEP, "%s/M%d", TMP, getpid());
  1523. X  sprintf(pubdir, "%s/dir%d", TMP, getpid());
  1524. X
  1525. X  if (c == MAL14_MSG) {        /* UPLOAD */
  1526. X    clearline();
  1527. X    ansi2("mr", 0, 0);
  1528. X    printf("%c%s, ? > ", CR, MAL17_MSG);
  1529. X    ansi2("me", 0, 0);
  1530. X
  1531. X    do {
  1532. X        protokoll = getint();
  1533. X        if (protokoll >= 97) protokoll -= 32;
  1534. X        if (protokoll == '?') {
  1535. X            clearline();
  1536. X            ansi2("mr", 0, 0);
  1537. X            printf("%c%s > ", CR, MAL17aMSG);
  1538. X            ansi2("me", 0, 0);
  1539. X        }
  1540. X        if ((protokoll != MAL18_MSG) && (protokoll != MAL18_MSG) &&
  1541. X            (protokoll != MAL20_MSG) && (protokoll != MAL21_MSG))
  1542. X            protokoll = 0;
  1543. X    } while (protokoll == 0);
  1544. X
  1545. X    printf("%c", protokoll);
  1546. X
  1547. X  }
  1548. X  printf("\n\n%c", CR);
  1549. X  ansi2("mr", 0, 0);
  1550. X  printf("%s ", MAL22_MSG);
  1551. X  ansi2("me", 0, 0);
  1552. X  printf(" %s (%s)\n%c", USER.name, USER.nick, CR);
  1553. X  ansi2("mr", 0, 0);
  1554. X  printf("%s ", MAL23_MSG);
  1555. X  ansi2("me", 0, 0);
  1556. X  printf(" %s\n%c", rec_char, CR);
  1557. X  ansi2("mr", 0, 0);
  1558. X  printf("%s ", MAL24_MSG);
  1559. X  ansi2("me", 0, 0);
  1560. X  printf(" ");
  1561. X  strcpy(subject, (UNSIGNED char *) getline(50, -11, '.', ""));
  1562. X  if(subject[0] == '\0'){
  1563. X    strcpy(subject, (UNSIGNED char *) "Just another letter ...");
  1564. X    printf("%s                           ", subject);
  1565. X  }
  1566. X  printf("\n");
  1567. X  ansi2("mr", 0, 0);
  1568. X  printf("%s ", MAL23aMSG);
  1569. X  ansi2("me", 0, 0);
  1570. X  printf(" ");
  1571. X  strcpy(cc, (UNSIGNED char *) getline(50, -11, '.', ""));
  1572. X
  1573. X  REPLY_MARK:
  1574. X
  1575. X  if(checkdomaintype( rec_char ) != 0) return -1;
  1576. X
  1577. X  if (c == MAL13_MSG) {
  1578. X    security_ed( TEP );
  1579. X    protokoll = '*';
  1580. X  }
  1581. X  else {            /* UPLOAD */
  1582. X
  1583. X    noctrlx();
  1584. X
  1585. X    printf("\n\n%s\n\n", MAL25_MSG); 
  1586. X    ansi2("md", 0, 0);
  1587. X    printf("%s", MAL26_MSG);
  1588. X    ansi2("me", 0, 0);
  1589. X          
  1590. X    unlink( TEP );
  1591. X    
  1592. X    switch (protokoll) {
  1593. X        case MAL18_MSG:
  1594. X            fp = fopen(TEP, "w");
  1595. X            if (fp == NULL) {
  1596. X                nerror("mail.c", 268, "brief", "Can't write to", TEP);
  1597. X            }
  1598. X            c = 0;
  1599. X            lf = CR;
  1600. X
  1601. X            fputc(LF, fp);
  1602. X
  1603. X            /*
  1604. X            while ((c != CTRL_X) && (c != CTRL_D)) {
  1605. X            */
  1606. X            while ((c != CTRL_E) && (c != CTRL_D)) {
  1607. X                c = getint();
  1608. X                if ((c == CR) && (lf == CR)) fputc(LF, fp);
  1609. X                if (c == CR) lf = CR;
  1610. X                if (c == LF) lf = LF;
  1611. X                /*
  1612. X                if ((c != CTRL_X) && (c != CTRL_D) && (c != CR)) {
  1613. X                    fputc(c, fp);
  1614. X                }
  1615. X                */
  1616. X                if ((c != CTRL_E) && (c != CTRL_D) && (c != CR)) {
  1617. X                    fputc(c, fp);
  1618. X                }
  1619. X            }
  1620. X            fclose(fp);
  1621. X            break;
  1622. X
  1623. X        case MAL19_MSG:
  1624. X            printf("\n");
  1625. X            sprintf(s, "exec %s -c TimeTravelAgency", RX);
  1626. X            break;
  1627. X        case MAL20_MSG:
  1628. X            printf("\n");
  1629. X            sprintf(s, "exec %s", RB);
  1630. X            break;
  1631. X        case MAL21_MSG:
  1632. X            printf("\n");
  1633. X            sprintf(s, "exec %s", RZ);
  1634. X            break;
  1635. X    }
  1636. X    if (protokoll != MAL18_MSG){
  1637. X        mkdir( pubdir, 0777 );
  1638. X        chdir( pubdir );
  1639. X
  1640. X        system( s );
  1641. X
  1642. X        chdir( HOME );
  1643. X        sprintf(s, "mv %s/* %s", pubdir, TEP);
  1644. X        system( s );
  1645. X        sprintf(s, "rm -r %s", pubdir);
  1646. X        system( s );
  1647. X    }
  1648. X    sync();
  1649. X    ctrlx();
  1650. X    stat(TEP, &fst);
  1651. X    if (fst.st_size < 3L) {
  1652. X        printf("\n\n%s\n", MAL27_MSG);
  1653. X        control(MAL28_MSG, 3);
  1654. X        unlink(REP);    
  1655. X        unlink(TEP);
  1656. X        return -1;
  1657. X    }    
  1658. X    if (prf(TEP) == 1) {
  1659. X        printf("\n\n");
  1660. X        ansi2( "md", 0, 0 );
  1661. X        printf("%s", MAL25_MSG);        
  1662. X        ansi2( "me", 0, 0 );
  1663. X        unlink(REP);     
  1664. X        unlink(TEP);
  1665. X        BINFILE++;
  1666. X        return -1;
  1667. X    }
  1668. X    else{
  1669. X        mkix(TEP);
  1670. X    }
  1671. X  }
  1672. X
  1673. X  sprintf(reply, "%s <%s@%s>", USER.name, username, UUCPID);
  1674. X
  1675. X  ONCE_MORE:
  1676. X
  1677. X
  1678. X  if((HOLD != 0) || ((WEITERLEITEN != 0) && (IS_BUFFERED != 0))) goto HOLD_MARK;
  1679. X
  1680. X  printf("\n\n");
  1681. X  ansi2("mr", 0, 0);
  1682. X  printf("[%s \"%s\"] %s, ? > ", MAL11_MSG, rec_char, MAL28aMSG);
  1683. X  ansi2("me", 0, 0);
  1684. X  printf("%c%c", MAL29_MSG, BS);
  1685. X
  1686. X  do {
  1687. X    c = getint();
  1688. X    if (c >= 97) c -= 32;
  1689. X    if (c == '?') {
  1690. X        clearline();
  1691. X        ansi2("mr", 0, 0);
  1692. X        printf("%c%s > ", CR, MAL32_MSG);
  1693. X        ansi2("me", 0, 0);
  1694. X    }
  1695. X    if (c == ENTER) c = MAL29_MSG;
  1696. X    if ((c != MAL29_MSG) && (c != MAL30_MSG) && (c != MAL30aMSG) &&  (c != MAL31_MSG) && (c != MAL31aMSG)) c = 0;
  1697. X  } while (c == 0);
  1698. X
  1699. X  printf("%c", c);
  1700. X
  1701. X  if (c == MAL31_MSG) {        /* CONTINUE / WEITERSCHREIBEN */
  1702. X    security_ed( TEP );
  1703. X    goto ONCE_MORE;
  1704. X  }
  1705. X  if (c == MAL30_MSG) {        /* REJECT / VERWERFEN */
  1706. X    printf("\n");
  1707. X    unlink(TEP);
  1708. X    unlink(REP);
  1709. X    return -1;
  1710. X  }
  1711. X  if (c == MAL31aMSG) {        /* HEADER */
  1712. X    headline( MAL32aMSG );
  1713. X    printf("\n");
  1714. X
  1715. X    time(&timer);
  1716. X
  1717. X    ansi2( "md", 0, 0 );
  1718. X    printf("From: ");
  1719. X    ansi2( "me", 0, 0 );
  1720. X    printf("%s <%s@%s>\n", USER.name, username, UUCPID);
  1721. X
  1722. X    ansi2( "md", 0, 0 );
  1723. X    printf("Reply-To: ");
  1724. X    ansi2( "me", 0, 0 );
  1725. X    if(USER.level > GUEST_LEV){
  1726. X        strcpy(reply, (UNSIGNED char *) getline(STRING, -1001, 32, reply));
  1727. X        printf("\n");
  1728. X    }
  1729. X    else printf("%s\n", reply);
  1730. X
  1731. X    ansi2( "md", 0, 0 );
  1732. X    printf("Return-Receipt-To: ");
  1733. X    ansi2( "me", 0, 0 );
  1734. X    if(USER.level > GUEST_LEV){
  1735. X        strcpy(receipt, (UNSIGNED char *) getline(STRING, -1001, 32, receipt));
  1736. X        printf("\n");
  1737. X    }
  1738. X
  1739. X    i = 0; j = 0;            /* Receiver: Realname */
  1740. X    while(from[i] != '\0'){
  1741. X        if(from[i] == '<'){
  1742. X            strcpy(s, (UNSIGNED char *) strcopy(from, 0, (i-1)));
  1743. X            j = i;
  1744. X        }
  1745. X        if(from[i] == '(') j = i+1;
  1746. X        if(from[i] == ')') strcpy(s, (UNSIGNED char *) strcopy(from, j, (i-1)));
  1747. X        i++;
  1748. X    }
  1749. X    if(j == 0) strcpy(s, from);
  1750. X        
  1751. X    if(mesg_id[0] != '\0'){
  1752. X        ansi2( "md", 0, 0 );
  1753. X        printf("In-Reply-To: ");
  1754. X        ansi2( "me", 0, 0 );
  1755. X        printf("%s; ", (UNSIGNED char *) stripped(mesg_id)); 
  1756. X        printf("from \"%s\" at %s", (UNSIGNED char *) stripped(s), date);
  1757. X
  1758. X        if(refs[0] != '\0') 
  1759. X            sprintf(s, "%s ", stripped(refs));
  1760. X        else
  1761. X            s[0] = '\0';
  1762. X        strcat(s, mesg_id);
  1763. X        ansi2( "md", 0, 0 );
  1764. X        printf("References: ");
  1765. X        ansi2( "me", 0, 0 );
  1766. X        printf("%s\n", s);
  1767. X    }
  1768. X
  1769. X    ansi2( "md", 0, 0 );
  1770. X    printf("To: ");
  1771. X    ansi2( "me", 0, 0 );
  1772. X    if(USER.level > GUEST_LEV){
  1773. X        strcpy(rec_char, (UNSIGNED char *) getline(STRING, -1001, 32, rec_char));
  1774. X        printf("\n");
  1775. X    }
  1776. X    else printf("%s\n", rec_char);
  1777. X
  1778. X    ansi2( "md", 0, 0 );
  1779. X    printf("Cc: ");
  1780. X    ansi2( "me", 0, 0 );
  1781. X    if(USER.level > GUEST_LEV){
  1782. X        strcpy(cc, (UNSIGNED char *) getline(STRING, -1001, 32, cc));
  1783. X        printf("\n");
  1784. X    }
  1785. X    else printf("%s\n", cc);
  1786. X
  1787. X    ansi2( "md", 0, 0 );
  1788. X    printf("Bcc: ");
  1789. X    ansi2( "me", 0, 0 );
  1790. X    if(USER.level > GUEST_LEV){
  1791. X        strcpy(bcc, (UNSIGNED char *) getline(STRING, -1001, 32, bcc));
  1792. X        printf("\n");
  1793. X    }
  1794. X    else printf("%s\n", bcc);
  1795. X
  1796. X
  1797. X    ansi2( "md", 0, 0 );
  1798. X    printf("Subject: ");
  1799. X    ansi2( "me", 0, 0 );
  1800. X    if(USER.level > GUEST_LEV){
  1801. X        strcpy(subject, (UNSIGNED char *) getline(STRING, -1001, 32, subject));
  1802. X        printf("\n");
  1803. X    }
  1804. X    else printf("%s\n", subject);
  1805. X
  1806. X    ansi2( "md", 0, 0 );
  1807. X    printf("Keywords: ");
  1808. X    ansi2( "me", 0, 0 );
  1809. X    if(USER.level > GUEST_LEV){
  1810. X        strcpy(keywords, (UNSIGNED char *) getline(STRING, -1001, 32, keywords));
  1811. X        printf("\n");
  1812. X    }
  1813. X    else printf("%s\n", keywords);
  1814. X
  1815. X    ansi2( "md", 0, 0 );
  1816. X    printf("Comments: ");
  1817. X    ansi2( "me", 0, 0 );
  1818. X    if(USER.level > GUEST_LEV){
  1819. X        strcpy(comments, (UNSIGNED char *) getline(STRING, -1001, 32, comments));
  1820. X        printf("\n");
  1821. X    }
  1822. X    else printf("%s\n", comments);
  1823. X
  1824. X    ansi2( "md", 0, 0 );
  1825. X    printf("Encrypted: ");
  1826. X    ansi2( "me", 0, 0 );
  1827. X    if(USER.level > GUEST_LEV){
  1828. X        strcpy(encrypted, (UNSIGNED char *) getline(STRING, -1001, 32, encrypted));
  1829. X        printf("\n");
  1830. X    }
  1831. X    else printf("%s\n", encrypted);
  1832. X
  1833. X#ifdef _MULTIMEDIA
  1834. X    ansi2( "md", 0, 0 );
  1835. X    printf("MIME-Version: ");
  1836. X    ansi2( "me", 0, 0 );
  1837. X    printf("%s\n", MIME_VERSION);
  1838. X
  1839. X    if(USER.level >= WRITE_INTERNAT){
  1840. X        if(content[0] == '\0')
  1841. X            strcpy(content, (UNSIGNED char *) "text/plain; charset=us-ascii");
  1842. X        ansi2( "md", 0, 0 ); 
  1843. X        printf("Content-Type: ");
  1844. X        ansi2( "me", 0, 0 );
  1845. X        strcpy(content, (UNSIGNED char *) getline(STRING, -1001, 32, content));
  1846. X        printf("\n");
  1847. X    }
  1848. X#endif
  1849. X
  1850. X    ansi2( "md", 0, 0 );
  1851. X    printf("X-Mailer: ");
  1852. X    ansi2( "me", 0, 0 );
  1853. X    printf("%s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  1854. X
  1855. X    ansi2( "md", 0, 0 );
  1856. X    printf("Priority: ");
  1857. X    ansi2( "me", 0, 0 );
  1858. X    if(USER.level > GUEST_LEV){
  1859. X        strcpy(priority, (UNSIGNED char *) getline(STRING, -1001, 32, priority));
  1860. X        printf("\n");
  1861. X    }
  1862. X    else printf("%s\n", priority);
  1863. X
  1864. X    ansi2( "md", 0, 0 );
  1865. X    printf("Action: ");
  1866. X    ansi2( "me", 0, 0 );
  1867. X    if(USER.level > GUEST_LEV){
  1868. X        strcpy(action, (UNSIGNED char *) getline(STRING, -1001, 32, action));
  1869. X        printf("\n");
  1870. X    }
  1871. X    else printf("%s\n", action);
  1872. X
  1873. X    ansi2( "md", 0, 0 );
  1874. X    printf("X-Fortune: ");
  1875. X    ansi2( "me", 0, 0 );
  1876. X    if(USER.level > GUEST_LEV){
  1877. X        strcpy(fortune, (UNSIGNED char *) getline(STRING, -1001, 32, fortune));
  1878. X        printf("\n");
  1879. X    }
  1880. X    else printf("%s\n", fortune);
  1881. X
  1882. X
  1883. X    ansi2( "md", 0, 0 );
  1884. X    printf("Message-Id: ");
  1885. X    ansi2( "me", 0, 0 );
  1886. X       printf("<%x.%d@%s>\n", timer, USER.id, UUCPID);
  1887. X
  1888. X    goto ONCE_MORE;
  1889. X  }
  1890. X
  1891. X
  1892. X  HOLD_MARK: 
  1893. X
  1894. X  if((UMLEITUNG == 0) && (WEITERLEITEN == 0) && (strcomp(TMP, TEP) == 0)){
  1895. X    sprintf(s, "cp %s %s/usr/%c/%d/.lastletter > /dev/null", TEP, HOME, USER.name[0], USER.id);
  1896. X    system( s );     
  1897. X    sprintf(s, "%s/usr/%c/%d/.lastsubject", HOME, USER.name[0], USER.id);
  1898. X    fp = fopen( s, "w" );
  1899. X    if(fp == NULL){
  1900. X        nerror("mail.c", 500, "brief", "Can't write to", s);
  1901. X    }
  1902. X    fprintf(fp, "%s", subject);
  1903. X    fclose(fp);
  1904. X  }
  1905. X
  1906. X
  1907. X  if (EX_PM == 0) {
  1908. X
  1909. X     if(rec_char[0] >= 'a') rec_char[0] -= 32;
  1910. X
  1911. X    sprintf(s, "%s/usr/%c/%d/seq", HOME, rec_char[0], receiver);
  1912. X    maybe_locked(s, "r"); mblock(s);
  1913. X    fp = fopen(s, "r");
  1914. X    if (fp == NULL) {
  1915. X        nerror("mail.c", 431, "brief", "Can't read", s);
  1916. X    }
  1917. X    fscanf(fp, "%d", &mail_id);
  1918. X    fclose(fp);
  1919. X    fp = fopen(s, "w");
  1920. X    fprintf(fp, "%d\n", (mail_id + 1));
  1921. X    fclose(fp);
  1922. X    mbunlock(s);
  1923. X    sprintf(s, "%s/usr/%c/%d/%d", HOME, rec_char[0], receiver, mail_id);
  1924. X  }
  1925. X  else {
  1926. X    umask(0000);
  1927. X    sprintf(s, "%s/%d.expm", TMP, getpid());
  1928. X  }
  1929. X
  1930. X
  1931. X  fp = fopen(s, "w");
  1932. X
  1933. X  if (EX_PM == 0) {
  1934. X    sprintf(s, "%s %s (%s)\n", GBL01_MSG, USER.name, USER.nick);
  1935. X    fputs(s, fp);
  1936. X
  1937. X    time(&timer);
  1938. X    timeptr = localtime(&timer);
  1939. X    strcpy(t, asctime(timeptr));
  1940. X
  1941. X    sprintf(s, "%s %s", GBL02_MSG, t);
  1942. X    fputs(s, fp);
  1943. X
  1944. X    sprintf(s, "%s %s\n\n", GBL03_MSG, subject);
  1945. X    fputs(s, fp);
  1946. X
  1947. X    fputs("Content-Type: text/richtext;\n", fp);
  1948. X
  1949. X    lines = 5;
  1950. X   }
  1951. X   else {
  1952. X    lines = 4;
  1953. X  }
  1954. X
  1955. X  ff = fopen(TEP, "r");
  1956. X  if (ff == 0) {
  1957. X    printf("\n\n");
  1958. X    ansi2("md", 0, 0);
  1959. X    printf("%s\n", MAL33_MSG);
  1960. X    ansi2("me", 0, 0);
  1961. X    control(MAL34_MSG, 3);
  1962. X    return;
  1963. X  }
  1964. X  stat(TEP, &fst);
  1965. X  cont_length = fst.st_size;
  1966. X
  1967. X  if(EX_PM != 0){
  1968. X
  1969. X    time(&timer);
  1970. X
  1971. X    i = 0; j = 0;            /* Receiver: Realname */
  1972. X    while(from[i] != '\0'){
  1973. X        if(from[i] == '<'){
  1974. X            strcpy(s, (UNSIGNED char *) strcopy(from, 0, (i-1)));
  1975. X            j = i;
  1976. X        }
  1977. X        if(from[i] == '(') j = i+1;
  1978. X        if(from[i] == ')') strcpy(s, (UNSIGNED char *) strcopy(from, j, (i-1)));
  1979. X        i++;
  1980. X    }
  1981. X    if(j == 0) strcpy(s, from);
  1982. X
  1983. X    fprintf(fp, "From: %s@%s (%s)\n", username, UUCPID, USER.name); 
  1984. X    if(reply[0] != '\0')
  1985. X        fprintf(fp, "Reply-To: %s\n", reply);
  1986. X    if(receipt[0] != '\0')
  1987. X        fprintf(fp, "Return-Receipt-To: %s\n", receipt);
  1988. X    fprintf(fp, "Organization: %s\n", ORGANIZATION);
  1989. X    if(mesg_id[0] != '\0'){
  1990. X        fprintf(fp, "In-Reply-To: %s; ", (UNSIGNED char *) stripped(mesg_id)); 
  1991. X        fprintf(fp, "from \"%s\" at %s", (UNSIGNED char *) stripped(s), date);
  1992. X        if(refs[0] != '\0') 
  1993. X            sprintf(s, "%s ", stripped(refs));
  1994. X        else
  1995. X            s[0] = '\0';
  1996. X        strcat(s, mesg_id);
  1997. X        fprintf(fp, "References: %s\n", s);
  1998. X    }
  1999. X        fprintf(fp, "To: %s\n", rec_char);
  2000. X    if(cc[0] != '\0')
  2001. X        fprintf(fp, "Cc: %s\n", cc);
  2002. X
  2003. X    sprintf(s, "%s/usr/%c/%d/.face", HOME, USER.name[0], USER.id); /* X-Face ??? */
  2004. X    ft = fopen( s, "r" );
  2005. X    if(ft != NULL){
  2006. X        while(fgets(s, 70, ft) != NULL){
  2007. X            fprintf(fp, "X-Face: %s\n", (UNSIGNED char *) stripped(s));
  2008. X        }
  2009. X        fclose(ft);
  2010. X    }
  2011. X
  2012. X    if(subject[0] != '\0')
  2013. X        fprintf(fp, "Subject: %s\n", subject);
  2014. X    if(keywords[0] != '\0')
  2015. X        fprintf(fp, "Keywords: %s\n", keywords);
  2016. X    if(comments[0] != '\0')
  2017. X        fprintf(fp, "Comments: %s\n", comments);
  2018. X    if(encrypted[0] != '\0')
  2019. X        fprintf(fp, "Encrypted: %s\n", encrypted);
  2020. X
  2021. X#ifdef _MULTIMEDIA
  2022. X    fprintf(fp, "MIME-Version: %s\n", MIME_VERSION);
  2023. X    if(content[0] != '\0'){
  2024. X        fprintf(fp, "Content-Type: %s\n", content);
  2025. X        if(UMLAUT_MODUS < 3) fprintf(fp, "Content-Transfer-Encoding: 8bit\n");
  2026. X        fprintf(fp, "Content-Length: %ld\n", cont_length);
  2027. X    }
  2028. X#endif
  2029. X    fprintf(fp, "X-Mailer: %s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  2030. X    if(priority[0] != '\0')
  2031. X        fprintf(fp, "Priority: %s\n", priority);
  2032. X    if(action[0] != '\0')
  2033. X        fprintf(fp, "Action: %s\n", action);
  2034. X    if(fortune[0] != '\0')
  2035. X        fprintf(fp, "X-Fortune: %s\n", fortune);
  2036. X       fprintf(fp, "Message-Id: <%x.%d@%s>\n", timer, USER.id, UUCPID);
  2037. X    if(delivery[0] != '\0')
  2038. X        fprintf(fp, "X-Delivered-After: %s\n", delivery);
  2039. X     fputs("\n", fp);
  2040. X
  2041. X  }
  2042. X
  2043. X  UMLAUT_MODUS = 1;
  2044. X  if(WEITERLEITEN == 0) printf(" %-4.4d", lines);
  2045. X  while (fgets(s, STRING, ff) != 0) {
  2046. X    if(ROT13_MODUS) strcpy(s, (UNSIGNED char *) rot13( s ));
  2047. X    fputs((UNSIGNED char *) iso_line(s), fp);
  2048. X    lines++;
  2049. X    if(WEITERLEITEN == 0) printf("%c%c%c%c%-4.4d", BS, BS, BS, BS, lines);
  2050. X  }
  2051. X  fclose(ff);
  2052. X
  2053. X  if(UMLEITUNG == 0){
  2054. X      sprintf(s, "%s/usr/%c/%d/.signature", HOME, USER.name[0], USER.id);
  2055. X      ff = fopen(s, "r");
  2056. X      if (ff != NULL) {
  2057. X        while (fgets(s, STRING, ff) != 0) {
  2058. X            if(ROT13_MODUS) strcpy(s, (UNSIGNED char *) rot13( s ));
  2059. X            fputs((UNSIGNED char *) iso_line(s), fp);
  2060. X            lines++;
  2061. X            if(KOPIE == 0) printf("%c%c%c%c%-4.4d", BS, BS, BS, BS, lines);
  2062. X        }
  2063. X        fclose(ff);
  2064. X      }
  2065. X  }
  2066. X
  2067. X  UMLAUT_MODUS = USER.schluessel[2];
  2068. X
  2069. X  if(WEITERLEITEN == 0) unlink(TEP);
  2070. X  fclose(fp);
  2071. X
  2072. X  if (EX_PM == 0) {
  2073. X    sprintf(s, "%s/usr/%c/%d/INDEX", HOME, rec_char[0], receiver);
  2074. X    maybe_locked(s, "r"); 
  2075. X    fp = fopen(s, "a");
  2076. X    if (fp == NULL) {
  2077. X        nerror("mail.c", 527, "brief", "Can't append to", s);
  2078. X    }
  2079. X    sprintf(s, "%d              ", mail_id);
  2080. X    s[6] = '\0';
  2081. X    if(HOLD != 0){
  2082. X        s[5] = '>';
  2083. X    }
  2084. X    fputs(s, fp);
  2085. X
  2086. X    sprintf(ex, "%s                                ", subject);
  2087. X    ex[26] = '\0';
  2088. X    fputs(ex, fp);
  2089. X
  2090. X    sprintf(ex, "  %s                                        ", USER.name);
  2091. X    ex[22] = '\0';
  2092. X    fputs(ex, fp);
  2093. X
  2094. X    strcpy(s, (UNSIGNED char *) mydate(1));
  2095. X    strcpy(t, (UNSIGNED char *) mytime(1));
  2096. X    sprintf(ex, "  %s  %s         ", s, t);
  2097. X    ex[19] = '\0';
  2098. X    fputs(ex, fp);
  2099. X
  2100. X    if(HOLD != 0)
  2101. X        sprintf(s, "%s\n", LE216_MSG);
  2102. X    else{
  2103. X        if(priority[0] != '\0')
  2104. X            sprintf(s, "%s\n", LE219_MSG);
  2105. X        else
  2106. X            sprintf(s, "%s\n", LE215_MSG);
  2107. X    }
  2108. X
  2109. X    fputs(s, fp);
  2110. X
  2111. X    fclose(fp);
  2112. X  }
  2113. X  else {
  2114. X    sprintf(s, " X-Mail via UUCP (%s) ", rec_char);
  2115. X    headline(s);
  2116. X    printf("\n%s", MAL35_MSG);
  2117. X    sprintf(s, "%s/%d.expm", TMP, getpid());
  2118. X    sprintf(t, "/bin/sh ./etc/rmail.sh %s %s > /dev/null 2>&1", s, rec_char);
  2119. X    system(t);
  2120. X    unlink(s);
  2121. X    unlink(f);
  2122. X    umask(0007);
  2123. X    printf(" %s\n", MAL36_MSG);
  2124. X  }
  2125. X
  2126. X  unlink(REP);
  2127. X  if((UMLEITUNG == 0) && (WEITERLEITEN == 0)) unlink(TEP);
  2128. X
  2129. X  sprintf(s, "%s \"%s\" %s", MAL11_MSG, rec_char, MAL37_MSG);
  2130. X  control(s, 3);
  2131. X
  2132. X  printf("\n");
  2133. X
  2134. X
  2135. X#ifdef _PMCOPY
  2136. X
  2137. X  IS_BUFFERED = 0;
  2138. X
  2139. X  if(WEITERLEITEN == 0){
  2140. X      if((strcomp(POSTMASTER, LOOSER.sh_name) == 0) || (strcomp(POSTMASTER, LOOSER.nick) == 0)){
  2141. X        if(bcc[0] != '\0') strcat(bcc, ", ");
  2142. X        sprintf(s, "%s!root", UUCPSITE);
  2143. X        strcat(bcc, (UNSIGNED char *) s);
  2144. X        IS_BUFFERED = 1;
  2145. X      }
  2146. X  }
  2147. X#endif
  2148. X
  2149. X  if((cc[0] != '\0') || (bcc[0] != '\0')){
  2150. X    carboncopy(cc, bcc);
  2151. X  }
  2152. X
  2153. X  return 0;
  2154. X}
  2155. END_OF_FILE
  2156.   if test 24817 -ne `wc -c <'mbox/src/mail.c'`; then
  2157.     echo shar: \"'mbox/src/mail.c'\" unpacked with wrong size!
  2158.   fi
  2159.   # end of 'mbox/src/mail.c'
  2160. fi
  2161. if test -f 'mbox/src/misc.c' -a "${1}" != "-c" ; then 
  2162.   echo shar: Will not clobber existing file \"'mbox/src/misc.c'\"
  2163. else
  2164.   echo shar: Extracting \"'mbox/src/misc.c'\" \(24307 characters\)
  2165.   sed "s/^X//" >'mbox/src/misc.c' <<'END_OF_FILE'
  2166. X/* ix/MBox (misc.c) by Volker Schuermann, 04.12.1993
  2167. X
  2168. X   This C source code contains the following functions:
  2169. X
  2170. X   #SC scanner()           switching from one newsgroup to another
  2171. X   #SN schreiben()         write news articles 
  2172. X   #PF prf()               is the uploaded file a text or a binaries?
  2173. X   #PR pruefe()            contains an article the BINFILE key?
  2174. X
  2175. X   Contact <volkers@unnet.wupper.de> for help! */
  2176. X
  2177. X
  2178. X
  2179. X
  2180. X
  2181. X
  2182. X
  2183. X#include <sys/types.h>
  2184. X#include <sys/stat.h>
  2185. X#include <unistd.h>
  2186. X#include <fcntl.h>
  2187. X#include <stdio.h>
  2188. X#include <utmp.h>
  2189. X#include <time.h>
  2190. X
  2191. X
  2192. X#include "mbox.h"
  2193. X
  2194. X
  2195. Xextern UNSIGNED char headinfo[STRING];
  2196. X
  2197. X
  2198. Xint lastpoint( name )
  2199. XUNSIGNED char name[];
  2200. X{
  2201. X  int a = 0, b = 0;
  2202. X
  2203. X  while(name[a] != '\0'){
  2204. X    if(name[a] == '.') b = a;
  2205. X    a++;
  2206. X  }
  2207. X  if(b == 0) return a;
  2208. X
  2209. X  return (int) b;
  2210. X}
  2211. X
  2212. X
  2213. X
  2214. X/* #SC - Changing the current newsgroup.
  2215. X
  2216. X   [mode]  ->    >  255 = all boards (ignore date)
  2217. X                 >  500 = next AREA
  2218. X         > 1000 = no idea (next hiearchy, maybe)
  2219. X                 +      = next board
  2220. X                 -      = previous board */
  2221. X
  2222. Xvoid scanner(mode)
  2223. Xint mode;
  2224. X{
  2225. X  FILE *fp;
  2226. X  UNSIGNED char s[STRING];
  2227. X  UNSIGNED char t[STRING];
  2228. X  UNSIGNED char f[STRING];
  2229. X  UNSIGNED char prevg[STRING];
  2230. X  UNSIGNED char prevf[STRING];
  2231. X  int ok = 0, a, b;
  2232. X  int line = 0, l = 0;
  2233. X  int locmod = 0;
  2234. X  int max = 0;
  2235. X  int widerange = 0;
  2236. X
  2237. X
  2238. X  if (mode >= 1000) {
  2239. X    widerange = 1000;
  2240. X    mode -= 1000;
  2241. X  }
  2242. X
  2243. X  if (mode >= 500) {
  2244. X    locmod = 500;
  2245. X    mode -= 500;
  2246. X  }
  2247. X
  2248. X  if (mode >= 255) {
  2249. X    locmod = 255;
  2250. X    mode -= 255;
  2251. X  }
  2252. X  KEIN_ZUGRIFF:
  2253. X
  2254. X  if (locmod == 255) {
  2255. X    maybe_locked(SGROUPS, "r");
  2256. X    fp = fopen(SGROUPS, "r");
  2257. X    if (fp == NULL) {
  2258. X        nerror("misc.c", 26, "scanner", "Can't read", NGROUPS);
  2259. X    }
  2260. X }
  2261. X  else {
  2262. X    maybe_locked(UGROUPS, "r");
  2263. X    fp = fopen(UGROUPS, "r");
  2264. X    if (fp == NULL) {
  2265. X        nerror("misc.c", 34, "scanner", "Can't read", UGROUPS);
  2266. X    }
  2267. X  }
  2268. X
  2269. X  f[0] = '\0';
  2270. X  ok = 0;
  2271. X  strcpy(prevg, "L.I.S.A.");
  2272. X
  2273. X  while ((ok == 0) && (fscanf(fp, "%s %d %d %s", s, &a, &a, t) > 0)) {
  2274. X    l++;
  2275. X    if (strcomp(NG, s) == 0) {
  2276. X        ok = 1;
  2277. X    }
  2278. X    else {
  2279. X        strcpy(f, (UNSIGNED char *) s);
  2280. X    
  2281. X        if(strcomp(prevg, s) != 0){
  2282. X            if(widerange == 0){
  2283. X                  a = lastpoint( s );
  2284. X                strcpy(prevg, (UNSIGNED char *) s);
  2285. X                strcpy(prevf, (UNSIGNED char *) s);
  2286. X                prevg[a] = '\0';
  2287. X            }
  2288. X            else{
  2289. X                strcpy(prevg, (UNSIGNED char *) s); prevg[3] = '\0';
  2290. X                strcpy(prevf, (UNSIGNED char *) s);
  2291. X            }
  2292. X        }
  2293. X    }
  2294. X  }
  2295. X
  2296. X  if (locmod == 500) {
  2297. X    if (mode == '+') {
  2298. X        ok = 0;
  2299. X        
  2300. X        if(widerange == 0){
  2301. X            a = lastpoint( NG );
  2302. X            strcpy(prevg, (UNSIGNED char *) NG);
  2303. X            prevg[a] = '\0';
  2304. X        }
  2305. X        else{
  2306. X            strcpy(prevg, (UNSIGNED char *) NG);
  2307. X            prevg[3] = '\0';
  2308. X        }
  2309. X
  2310. X        while ((ok == 0) && (fscanf(fp, "%s %d %d %s", s, &a, &a, t) > 0)) {
  2311. X            l++;
  2312. X            if (strcomp(prevg, s) != 0) {
  2313. X                ok = 1;
  2314. X                strcpy(f, (UNSIGNED char *) s);
  2315. X            }
  2316. X        }
  2317. X        if(ok == 0) line = -1;
  2318. X    }
  2319. X    if (mode == '-') {
  2320. X        strcpy(f, (UNSIGNED char *) prevf);
  2321. X    }
  2322. X  }
  2323. X  else{
  2324. X      if (mode == '+') {
  2325. X        if (fscanf(fp, "%s %d %d %s", f, &a, &a, t) < 1) {
  2326. X            if (ok == 0) {
  2327. X                rewind(fp);
  2328. X                fscanf(fp, "%s %d %d %s", f, &a, &a, t);
  2329. X            }
  2330. X              else {
  2331. X                line = -1;
  2332. X            }
  2333. X        }
  2334. X      }
  2335. X      if (mode == '-') {
  2336. X        if (f[0] == '\0') {
  2337. X            rewind(fp);
  2338. X            while (fscanf(fp, "%s %d %d %s", f, &a, &a, t) > 0);
  2339. X        }
  2340. X      }
  2341. X  }    
  2342. X  fclose(fp);
  2343. X
  2344. X  if (max == 20) {
  2345. X    ansi2( "md", 0, 0 );
  2346. X    printf("\n\n%s", MIS00_MSG);
  2347. X    ansi2( "me", 0, 0 );
  2348. X  }
  2349. X
  2350. X  if ((line == -1) || (f[0] == '\0')) {
  2351. X    strcpy(BRETT, (UNSIGNED char *) "PM");
  2352. X    printf("\n");
  2353. X    sprintf(NG, "%s.PM", USER.name);
  2354. X    sprintf(INHALT, "%s/usr/%c/%d/INDEX", HOME, USER.name[0], USER.id);
  2355. X    return;
  2356. X  }
  2357. X  if (l == 0) {
  2358. X    ansi2("md", 0, 0);
  2359. X    printf(" %s\n", MIS01_MSG);
  2360. X    ansi2("me", 0, 0);
  2361. X    return;
  2362. X  }
  2363. X  if ((chk_newsgrp(f) != 0) || (is_subscribed(f) != 1)) {
  2364. X    sprintf(NG, "%s", f);
  2365. X    max++;
  2366. X    goto KEIN_ZUGRIFF;
  2367. X  }
  2368. X  brett(f);
  2369. X}
  2370. X
  2371. X
  2372. X
  2373. X
  2374. X
  2375. X
  2376. X/* #SN - Write an article for the news system.
  2377. X
  2378. X   [arg] seems to be a dummy ... don't comment on this! */
  2379. X
  2380. Xvoid schreiben(arg)
  2381. XUNSIGNED char arg[];
  2382. X{
  2383. X  FILE *fp;
  2384. X  FILE *ff;
  2385. X  FILE *fl;
  2386. X  UNSIGNED char s[STRING];
  2387. X  UNSIGNED char t[STRING];
  2388. X  UNSIGNED char f[STRING];
  2389. X  UNSIGNED char g[LSTRING];
  2390. X  UNSIGNED char ex[LONGSTRING];
  2391. X  UNSIGNED char cmdl[STRING];
  2392. X  UNSIGNED char rep[STRING];
  2393. X  UNSIGNED char subj[STRING];
  2394. X  UNSIGNED char keyw[STRING];
  2395. X  UNSIGNED char summ[STRING];
  2396. X  UNSIGNED char from[STRING];
  2397. X  UNSIGNED char msid[STRING];
  2398. X  UNSIGNED char refs[STRING];
  2399. X  UNSIGNED char tmp[STRING];
  2400. X  UNSIGNED char ng[STRING];
  2401. X  UNSIGNED char reply[STRING];
  2402. X  UNSIGNED char group[STRING];
  2403. X  UNSIGNED char newsgroups[STRING];
  2404. X  UNSIGNED char distribution[STRING];
  2405. X  UNSIGNED char followup[STRING];
  2406. X  UNSIGNED char expires[STRING];
  2407. X  UNSIGNED char ctrl[STRING];
  2408. X  UNSIGNED char sender[STRING];
  2409. X  UNSIGNED char approved[STRING];
  2410. X  UNSIGNED char content[STRING];
  2411. X  UNSIGNED char iam[STRING];
  2412. X  UNSIGNED char username[STRING];
  2413. X
  2414. X  int i, j, a, b, ok;
  2415. X  int app, endless;
  2416. X  int lines;
  2417. X
  2418. X  UNSIGNED char protokoll = 0;
  2419. X  UNSIGNED char c;
  2420. X  UNSIGNED char lf;
  2421. X
  2422. X  int BINFILE;
  2423. X
  2424. X  struct stat fst;
  2425. X
  2426. X  UNSIGNED char pubdir[STRING];
  2427. X  long tdummy;
  2428. X  long tn, ts;
  2429. X
  2430. X  if (strcomp(BRETT, "PM") == 0) {
  2431. X    brief( arg );
  2432. X    return;
  2433. X  }
  2434. X  BINFILE = 0;
  2435. X
  2436. X  if (moderated( NG ) == 1) return;
  2437. X
  2438. X  i = 0;                /* Vorname.Name */
  2439. X  strcpy(ng, USER.name);
  2440. X  while (ng[i] != '\0') {
  2441. X    if (ng[i] == ' ') ng[i] = '.';
  2442. X    i++;
  2443. X  }
  2444. X  strcpy(username, ng);
  2445. X  strcpy(group, NG);
  2446. X
  2447. X
  2448. X  umask(0000);
  2449. X
  2450. X  if (arg[0] == '\0') {
  2451. X
  2452. X    subj[0] = '\0';
  2453. X    keyw[0] = '\0';
  2454. X    from[0] = '\0';
  2455. X    msid[0] = '\0';
  2456. X    summ[0] = '\0';
  2457. X    refs[0] = '\0';
  2458. X
  2459. X    sprintf(rep, "%s/%dRep", TMP, getpid());
  2460. X
  2461. X    fp = fopen(rep, "r");
  2462. X    if (fp != NULL) {        /* REPLY */
  2463. X        while ((fgets(s, STRING, fp) != NULL) && (strlen(s) > 2)) {
  2464. X            if (strcomp("Subject:", s)   == 0) {
  2465. X                strcat(subj, strcopy(s, 8, 79));
  2466. X                strcpy(subj,  (UNSIGNED char *) stripped(subj));                
  2467. X            }
  2468. X            if (strcomp("From:", s)      == 0) {
  2469. X                from[0] = '\0';
  2470. X                strcat(from, strcopy(s, 6, 79));
  2471. X                strcpy(from,  (UNSIGNED char *) stripped(from));
  2472. X            }
  2473. X            if (strcomp("Reply-To:", s)  == 0) {
  2474. X                from[0] = '\0';
  2475. X                strcat(from, strcopy(s, 10, 79));
  2476. X                strcpy(from,  (UNSIGNED char *) stripped(from));
  2477. X            }
  2478. X            if (strcomp("Keywords:", s)  == 0) {
  2479. X                strcat(keyw, strcopy(s, 10, 79));
  2480. X                strcpy(keyw,  (UNSIGNED char *) stripped(keyw));
  2481. X            }
  2482. X            if (strcomp("Summary:", s)   == 0) {
  2483. X                strcat(summ, strcopy(s, 9, 79));
  2484. X                strcpy(summ,  (UNSIGNED char *) stripped(summ));
  2485. X            }
  2486. X            if (strcomp("Message-ID:", s) == 0) {
  2487. X                strcat(msid, strcopy(s, 11, 79));
  2488. X                strcpy(msid,  (UNSIGNED char *) stripped(msid));
  2489. X            }
  2490. X            if (strcomp("Content-Type:", s) == 0) {
  2491. X                strcat(content, strcopy(s, 14, 79));
  2492. X                strcpy(content,  (UNSIGNED char *) stripped(content));
  2493. X            }
  2494. X            if (strcomp("Article-I.D.:", s) == 0) {
  2495. X                strcat(msid, strcopy(s, 13, 79));
  2496. X                strcpy(msid,  (UNSIGNED char *) stripped(msid));
  2497. X            }
  2498. X            if (strcomp("References:", s) == 0) {
  2499. X                strcat(refs, strcopy(s, 12, 79));
  2500. X                strcpy(refs,  (UNSIGNED char *) stripped(refs));
  2501. X            } 
  2502. X            if (strcomp("Followup-To:", s) == 0) {
  2503. X                strcpy(group, strcopy(s, 13, 79));
  2504. X                strcpy(group, (UNSIGNED char *) stripped(group));
  2505. X            }
  2506. X
  2507. X            /* THE FOLLOWING IS A LOUSY TRICK, EATING HEADER INFORMATION! */
  2508. X
  2509. X            while(strlen(s) == (STRING - 1)){ 
  2510. X                fgets(s, STRING, fp);
  2511. X            }
  2512. X        }
  2513. X        
  2514. X        if(strcomp("Poster", group) == 0){
  2515. X            printf(" <- %s\n", MIS02aMSG);
  2516. X            return;
  2517. X        }
  2518. X
  2519. X
  2520. X        sprintf(t, "%s/A%d", TMP, getpid());
  2521. X        ff = fopen(t, "w");
  2522. X
  2523. X        a = 0;
  2524. X        b = 0;
  2525. X        i = 0;
  2526. X        while (from[i] != '\0') {
  2527. X            if (from[i] == '(') a = i + 1;
  2528. X            if (from[i] == ')') b = i - 1;
  2529. X            i++;
  2530. X        }
  2531. X        if (a < b) {
  2532. X            strcpy(s, (UNSIGNED char *) strcopy(from, a, b));
  2533. X            strcpy(from, (UNSIGNED char *) s);
  2534. X        }
  2535. X        sprintf(ex, "In article %s,\n            %s writes:\n\n", msid, from);
  2536. X        fputs(ex, ff);
  2537. X
  2538. X        a = 0; printf(" %-4.4d", a );
  2539. X
  2540. X        while (fgets(s, STRING, fp) != NULL) {
  2541. X    
  2542. X        a++; 
  2543. X        printf("%c%c%c%c%-4.4d", BS, BS, BS, BS, a );
  2544. X
  2545. X        if((s[0] != '\n') && (i == 0)){
  2546. X
  2547. X            if(s[0] != '>')
  2548. X                fputs(">     ", ff);
  2549. X            else{
  2550. X                if(strcomp(">  ", s) == 0){
  2551. X                    s[1] = '>';
  2552. X                }
  2553. X                else fputs(">", ff);
  2554. X            }
  2555. X        }
  2556. X
  2557. X        if(s[0] != '>'){
  2558. X
  2559. X            if(i >= 65){    
  2560. X                fputs("\n>     ", ff);
  2561. X                i = 0;
  2562. X            }
  2563. X
  2564. X            endless = 0;
  2565. X
  2566. X            BETTER_TWICE:
  2567. X
  2568. X            if((strlen(s) + i) > 65){
  2569. X                j = 65 - i;
  2570. X                i = 0;
  2571. X                ok = 0;
  2572. X                while((ok == 0) && (j > 0)){
  2573. X                    if(s[j] == ' '){
  2574. X                        fputs((UNSIGNED char *) iso_line( (UNSIGNED char *) strcopy(s, 0, (j-1))), ff);
  2575. X                        fputs("\n>     ", ff);
  2576. X                        strcpy(f, (UNSIGNED char *) stripped( strcopy(s, (j+1), strlen(s))));
  2577. X                        strcpy(s, (UNSIGNED char *) f);
  2578. X                        strcat(s, (UNSIGNED char *) " ");
  2579. X                        i = strlen(s);
  2580. X                        ok++;
  2581. X                    }
  2582. X                    j--;
  2583. X                }
  2584. X                if((j == 0) && (ok == 0)){
  2585. X                    fputs("\n>     ", ff);
  2586. X                    endless++;
  2587. X                    if(endless == 1) goto BETTER_TWICE;
  2588. X                }
  2589. X            }
  2590. X            else{
  2591. X                i = 0;
  2592. X            }
  2593. X        }
  2594. X
  2595. X        fputs((UNSIGNED char *) iso_line(s), ff);
  2596. X        }
  2597. X        fclose(fp);
  2598. X        fclose(ff);
  2599. X
  2600. X
  2601. X        printf("\n\n");
  2602. X        security_ed( t );
  2603. X        if (strcomp("Re:", subj) != 0) {
  2604. X            sprintf(f, "Re: %s", stripped(subj));
  2605. X            strcpy(subj, (UNSIGNED char *) f);
  2606. X        }
  2607. X        unlink(rep);
  2608. X    }
  2609. X    else {        /* Interactive Articles */
  2610. X
  2611. X        printf("\n\n%c", CR);
  2612. X
  2613. X        if(ROT13_MODUS){
  2614. X            printf("%s ", MIS02bMSG);
  2615. X            ansi2("md", 0, 0);
  2616. X            printf("ROT13");
  2617. X            ansi2("me", 0, 0);
  2618. X            printf(" %s\n\n", MIS02cMSG);
  2619. X        }
  2620. X
  2621. X        ansi2("mr", 0, 0);
  2622. X        printf("%s", MIS03_MSG);
  2623. X        ansi2("me", 0, 0);
  2624. X        printf(" %s (%s)\n%c", USER.name, USER.nick, CR);
  2625. X        ansi2("mr", 0, 0);
  2626. X        printf("%s", MIS04_MSG);
  2627. X        ansi2("me", 0, 0);
  2628. X        printf(" %s\n%c", NG, CR);
  2629. X        ansi2("mr", 0, 0);
  2630. X        printf("%s", MIS05_MSG);
  2631. X        ansi2("me", 0, 0);
  2632. X        printf(" ");
  2633. X        strcpy(subj, (UNSIGNED char *) getline(57, -11, '.', ""));
  2634. X        if(subj[0] == '\0'){
  2635. X            strcpy(subj, (UNSIGNED char *) "Yet another article ...");
  2636. X            printf("%s                                  ", subj);
  2637. X        }    
  2638. X
  2639. X        printf("\n");
  2640. X        ansi2("mr", 0, 0);
  2641. X        printf("%s", MIS06_MSG);
  2642. X        ansi2("me", 0, 0);
  2643. X        printf(" ");
  2644. X        strcpy(keyw, (UNSIGNED char *) getline(57, -11, '.', ""));
  2645. X        printf("\n");
  2646. X        ansi2("mr", 0, 0);
  2647. X        printf("%s", MIS07_MSG);
  2648. X        ansi2("me", 0, 0);
  2649. X        printf(" ");
  2650. X        strcpy(summ, (UNSIGNED char *) getline(57, -11, '.', ""));
  2651. X
  2652. X        printf("\n\n");
  2653. X        ansi2("mr", 0, 0);
  2654. X        printf("[%s] %s ? > ", NG, MIS08_MSG);
  2655. X        ansi2("me", 0, 0);
  2656. X        printf("%c%c", MIS09_MSG, BS);
  2657. X
  2658. X        do {
  2659. X            c = getint();
  2660. X            if (c >= 97) c -= 32;
  2661. X            if (c == '?') {
  2662. X                clearline();
  2663. X                ansi2("mr", 0, 0);
  2664. X                printf("%c%s > ", CR, MIS12_MSG);
  2665. X                ansi2("me", 0, 0);
  2666. X            }
  2667. X            if (c == ENTER) c = MIS09_MSG;
  2668. X            if ((c != MIS09_MSG) && (c != MIS10_MSG) && (c != MIS11_MSG)) c = 0;
  2669. X        } while (c == 0);
  2670. X
  2671. X        printf("%c", c);
  2672. X
  2673. X        if (c == MIS11_MSG) {    /* REJECT / VERWERFEN */
  2674. X            printf("\n");
  2675. X            unlink(t);
  2676. X            return;
  2677. X        }
  2678. X        if (c == MIS10_MSG) {    /* UPLOAD */
  2679. X            printf("%c                                                                       ", CR);
  2680. X            ansi2("mr", 0, 0);
  2681. X            printf("%c%s, ? > ", CR, MIS13_MSG);
  2682. X            ansi2("me", 0, 0);
  2683. X
  2684. X            do {
  2685. X                protokoll = getint();
  2686. X                if (protokoll >= 97) protokoll -= 32;
  2687. X                if (protokoll == '?') {
  2688. X                    clearline();
  2689. X                    ansi2("mr", 0, 0);
  2690. X                    printf("%c%s > ", CR, MIS14_MSG);
  2691. X                    ansi2("me", 0, 0); 
  2692. X                }
  2693. X                if ((protokoll != MIS15_MSG) && (protokoll != MIS15_MSG) &&
  2694. X                    (protokoll != MIS18_MSG) && (protokoll != MIS17_MSG ))
  2695. X                    protokoll = 0;
  2696. X            } while (protokoll == 0);
  2697. X
  2698. X            printf("%c", protokoll);
  2699. X
  2700. X        }
  2701. X        sprintf(tmp, "%s/A%d", TMP, getpid());
  2702. X        sprintf(pubdir, "%s/dir%d", TMP, getpid());
  2703. X        strcpy(cmdl, (UNSIGNED char *) tmp);
  2704. X
  2705. X        if (c == MIS09_MSG) {    /* SEND / SCHREIBEN */
  2706. X            strcpy(cmdl, (UNSIGNED char *) tmp);
  2707. X            security_ed( cmdl );
  2708. X            protokoll = '*';
  2709. X        }
  2710. X        else {    /* UPLOAD */
  2711. X
  2712. X            noctrlx();
  2713. X
  2714. X            printf("\n\n");
  2715. X            ansi2("md", 0, 0);
  2716. X            printf("%s", MIS19_MSG);
  2717. X            ansi2("me", 0, 0);
  2718. X
  2719. X            switch (protokoll) {
  2720. X                case MIS15_MSG:
  2721. X                    fp = fopen(tmp, "w");
  2722. X                    if (fp == NULL) {
  2723. X                        nerror("misc.c", 310, "schreiben", "Can't write to", tmp);
  2724. X                    }
  2725. X                    c = 0;
  2726. X                    lf = CR;
  2727. X                    fputc(LF, fp);
  2728. X
  2729. X                    /*
  2730. X                    while ((c != CTRL_X) && (c != CTRL_D)) {
  2731. X                    */
  2732. X                    while ((c != CTRL_E) && (c != CTRL_D)) {
  2733. X                        c = getint();
  2734. X                        if ((c == CR) && (lf == CR))
  2735. X                            fputc(LF, fp);
  2736. X                        if (c == CR) lf = CR;
  2737. X                        if (c == LF) lf = LF;
  2738. X                        /*
  2739. X                        if ((c != CTRL_X) && (c != CTRL_D) && (c != CR)) {
  2740. X                            fputc(c, fp);
  2741. X                        }
  2742. X                        */
  2743. X                        if ((c != CTRL_E) && (c != CTRL_D) && (c != CR)) {
  2744. X                            fputc(c, fp);
  2745. X                        }
  2746. X                    }
  2747. X                    fclose(fp);
  2748. X                    break;
  2749. X                case MIS16_MSG:
  2750. X                    printf("\n");
  2751. X                    sprintf(s, "exec %s -c TimeTravelAgency 2> /dev/null", RX);
  2752. X                    break;
  2753. X                case MIS17_MSG:
  2754. X                    printf("\n");
  2755. X                    sprintf(s, "exec %s 2> /dev/null", RB);
  2756. X                    break;
  2757. X                case MIS18_MSG:
  2758. X                    printf("\n");
  2759. X                    sprintf(s, "exec %s 2> /dev/null", RZ);
  2760. X                    break;
  2761. X            }
  2762. X            if (protokoll != MIS15_MSG){
  2763. X                mkdir( pubdir, 0777 );
  2764. X                chdir( pubdir );
  2765. X
  2766. X                time(&ts);
  2767. X                system( s );
  2768. X                time(&tn); tn = tn - ts;
  2769. X                tn -= 10;  /* 10 = "Toleranz" */
  2770. X    
  2771. X                chdir( HOME );
  2772. X                sprintf(s, "mv %s/* %s", pubdir, tmp);
  2773. X                system( s );
  2774. X                sprintf(s, "rm -r %s", pubdir);
  2775. X                system( s );
  2776. X            }
  2777. X            sync();
  2778. X            ctrlx();
  2779. X            stat(tmp, &fst);
  2780. X            if (fst.st_size < 3L) {
  2781. X                printf("\n\n%s\n", MIS20_MSG);
  2782. X                control(MIS21_MSG, 3);
  2783. X                unlink(tmp);
  2784. X                return;
  2785. X            }
  2786. X            if (prf(tmp) == 1) {
  2787. X                if (strcomp(PDNG, NG) == 0) {
  2788. X                    USER.upratio += ((long) fst.st_size / 1024);
  2789. X                }
  2790. X                BINFILE++;
  2791. X                sprintf(s, MIS22_MSG);
  2792. X            }
  2793. X            else{
  2794. X                mkix(tmp);
  2795. X                sprintf(s, MIS23_MSG);
  2796. X            }
  2797. X            ansi2( "md", 0, 0 );
  2798. X            printf("\n\n%ld %s %s %s.\n", fst.st_size, MIS24_MSG, s, MIS25_MSG);
  2799. X            ansi2( "me", 0, 0 );
  2800. X            if(tn < 1) tn = 1L;
  2801. X            printf("%s %d cps (ca. %d bps).", MIS26_MSG,
  2802. X                (fst.st_size / tn), ((fst.st_size / tn) * 11));                
  2803. X        }
  2804. X    }
  2805. X
  2806. X    sprintf(iam, "%s <%s@%s>", USER.name, username, UUCPID);
  2807. X    /*    
  2808. X    sprintf(reply, "%s@%s (%s)", username, UUCPID, USER.name);
  2809. X    */
  2810. X    strcpy(newsgroups, group);
  2811. X    if (USER.level < WRITE_EX_LEV) {
  2812. X        strcpy(distribution, "local");
  2813. X    }
  2814. X    else {
  2815. X        /*
  2816. X        strcpy(ng, NG);
  2817. X        i = 0;
  2818. X        while ((ng[i] != '.') && (ng[i] != '\0')) i++;
  2819. X        ng[i] = '\0';
  2820. X        strcpy(distribution, ng);
  2821. X        */
  2822. X        strcpy(distribution, "world");
  2823. X    }
  2824. X    if(refs[0] != '\0') strcat(refs, " ");
  2825. X    strcat(refs, msid);    
  2826. X    followup[0] = '\0';
  2827. X    sender[0] = '\0';
  2828. X    ctrl[0] = '\0';
  2829. X    expires[0] = '\0';
  2830. X    approved[0] = '\0';
  2831. X    app = 0;
  2832. X    content[0] = '\0';    
  2833. X
  2834. X#if defined(_MULTIMEDIA) && defined(_UMLAUT)
  2835. X    strcpy(content, (UNSIGNED char *) "text/plain; charset=iso-8859-1");
  2836. X#endif
  2837. X
  2838. X    ONCE_MORE:
  2839. X
  2840. X    printf("\n\n");
  2841. X    ansi2("mr", 0, 0);
  2842. X    if(BINFILE == 0){
  2843. X        printf("[%s] %s, ? > ", NG, MIS27_MSG);
  2844. X    }
  2845. X    else{
  2846. X        printf("[%s] %s, ? > ", NG, MIS28_MSG);
  2847. X    }
  2848. X    ansi2("me", 0, 0);
  2849. X    printf("%c%c", MIS29_MSG, BS);
  2850. X
  2851. X    do {
  2852. X        c = getint();
  2853. X        if (c >= 97) c -= 32;
  2854. X        if (c == '?') {
  2855. X            clearline();
  2856. X            ansi2("mr", 0, 0);
  2857. X            if(BINFILE == 0){
  2858. X                printf("%c%s > ", CR, MIS32_MSG);
  2859. X            }
  2860. X            else{
  2861. X                printf("%c%s > ", CR, MIS33_MSG);
  2862. X            }
  2863. X            ansi2("me", 0, 0);
  2864. X        }
  2865. X        if (c == ENTER) c = MIS29_MSG;
  2866. X        if ((c != MIS29_MSG) && (c != MIS30_MSG) && (c != MIS31_MSG) && (c != MIS31aMSG)) c = 0;
  2867. X    } while (c == 0);
  2868. X
  2869. X    printf("%c", c);
  2870. X    if (c == MIS30_MSG) {    /* REJECT / VERWERFEN */
  2871. X        unlink(f);
  2872. X        unlink(s);
  2873. X        unlink(t);
  2874. X        unlink(tmp); /* ??? */
  2875. X        unlink(rep);
  2876. X        printf("\n");
  2877. X        return;
  2878. X    }
  2879. X    if ((c == MIS31_MSG) && (BINFILE == 0)) {    /* REEDIT / WEITERSCHREIBEN */
  2880. X        security_ed( cmdl );
  2881. X        goto ONCE_MORE;
  2882. X    }
  2883. X    if (c == MIS31aMSG) { /* HEADER */
  2884. X        headline( MIS38aMSG );
  2885. X        printf("\n");
  2886. X        time(&tdummy);
  2887. X
  2888. X        ansi2( "md", 0, 0 );
  2889. X        printf("From: ");
  2890. X        ansi2( "me", 0, 0 );
  2891. X        if(USER.level > ADMIN_LEV){
  2892. X            strcpy(s, (UNSIGNED char *) getline(80, -1001, 32, iam));
  2893. X            if(strcomp(s, iam) != 0) app++;            
  2894. X            if(s[0] != '\0') strcpy(iam, s);
  2895. X            printf("\n");
  2896. X        }
  2897. X        else printf("%s\n", iam);
  2898. X
  2899. X        ansi2( "md", 0, 0 );
  2900. X        printf("Reply-To: ");
  2901. X        ansi2( "me", 0, 0 );
  2902. X        if(USER.level > GUEST_LEV){
  2903. X            strcpy(reply, (UNSIGNED char *) getline(80, -1001, 32, reply));
  2904. X            printf("\n");
  2905. X        }
  2906. X        else printf("%s\n", reply);
  2907. X
  2908. X        ansi2( "md", 0, 0 );
  2909. X        printf("Sender: ");
  2910. X        ansi2( "me", 0, 0 );
  2911. X        if(USER.level >= ADMIN_LEV){
  2912. X            strcpy(sender, (UNSIGNED char *) getline(80, -1001, 32, sender));
  2913. X            printf("\n");
  2914. X        }
  2915. X        else printf("%s\n", sender);    
  2916. X        
  2917. X        ansi2( "md", 0, 0 );
  2918. X        printf("Control: ");
  2919. X        ansi2( "me", 0, 0 );
  2920. X        if(USER.level >= ADMIN_LEV){
  2921. X            strcpy(ctrl, (UNSIGNED char *) getline(80, -1001, 32, ctrl));
  2922. X            printf("\n");
  2923. X        }
  2924. X        else printf("%s\n", ctrl);    
  2925. X        
  2926. X        ansi2( "md", 0, 0 );
  2927. X        printf("Approved: ");
  2928. X        ansi2( "me", 0, 0 );
  2929. X        if(app != 0) sprintf(approved, "%s <%s@%s>", USER.name, username, UUCPID);
  2930. X        if(USER.level >= EXE_LEV){
  2931. X            strcpy(approved, (UNSIGNED char *) getline(80, -1001, 32, approved));
  2932. X            printf("\n");
  2933. X        }
  2934. X        else printf("%s\n", approved);    
  2935. X    
  2936. X        ansi2( "md", 0, 0 );
  2937. X        printf("Newsgroups: ");
  2938. X        ansi2( "me", 0, 0 );
  2939. X        if(USER.level >= WRITE_EX_LEV){
  2940. X            strcpy(newsgroups, (UNSIGNED char *) getline(80, -1001, 32, newsgroups));
  2941. X            printf("\n");
  2942. X            i = 0;
  2943. X            while(newsgroups[i] != '\0'){
  2944. X                if(newsgroups[i] == ' '){
  2945. X                    strcpy(s, (UNSIGNED char *) newsgroups);
  2946. X                    newsgroups[i] = '\0';
  2947. X                    strcat(newsgroups, (UNSIGNED char *) strcopy(s, (i+1), 80));
  2948. X                    i--;
  2949. X                }
  2950. X                i++;
  2951. X            }            
  2952. X        }
  2953. X        else printf("%s\n", newsgroups);    
  2954. X        
  2955. X        ansi2( "md", 0, 0 );
  2956. X        printf("Distribution: ");
  2957. X        ansi2( "me", 0, 0 );
  2958. X        if(USER.level >= WRITE_INTERNAT){
  2959. X            strcpy(distribution, (UNSIGNED char *) getline(80, -1001, 32, distribution));
  2960. X            printf("\n");
  2961. X        }
  2962. X        else printf("%s\n", distribution);    
  2963. X        
  2964. X        ansi2( "md", 0, 0 );
  2965. X        printf("Followup-To: ");
  2966. X        ansi2( "me", 0, 0 );
  2967. X        if(USER.level >= WRITE_EX_LEV){
  2968. X            strcpy(followup, (UNSIGNED char *) getline(80, -1001, 32, followup));
  2969. X            printf("\n");
  2970. X        }
  2971. X        else printf("%s\n", followup);    
  2972. X        
  2973. X        ansi2( "md", 0, 0 );
  2974. X        printf("Subject: ");
  2975. X        ansi2( "me", 0, 0 );
  2976. X        strcpy(subj, (UNSIGNED char *) getline(80, -1001, 32, subj));
  2977. X
  2978. X        ansi2( "md", 0, 0 );
  2979. X        printf("\nKeywords: ");
  2980. X        ansi2( "me", 0, 0 );
  2981. X        strcpy(keyw, (UNSIGNED char *) getline(80, -1001, 32, keyw));
  2982. X            
  2983. X        ansi2( "md", 0, 0 );
  2984. X        printf("\nSummary: ");
  2985. X        ansi2( "me", 0, 0 );
  2986. X        strcpy(summ, (UNSIGNED char *) getline(80, -1001, 32, summ));
  2987. X
  2988. X#ifdef _MULTIMEDIA
  2989. X
  2990. X        if(USER.level >= WRITE_INTERNAT){
  2991. X            if(content[0] == '\0')
  2992. X                strcpy(content, (UNSIGNED char *) "text/plain; charset=us-ascii");
  2993. X            ansi2( "md", 0, 0 ); 
  2994. X            printf("\nContent-Type: ");
  2995. X            ansi2( "me", 0, 0 );
  2996. X            strcpy(content, (UNSIGNED char *) getline(80, -1001, 32, content));
  2997. X        }
  2998. X#endif
  2999. X
  3000. X        ansi2( "md", 0, 0 );
  3001. X        printf("\nX-News-Reader: ");
  3002. X        ansi2( "me", 0, 0 );
  3003. X            printf("%s %s %s\n", VERSION, PATCHLEVEL, AUTOR);
  3004. X
  3005. X        ansi2( "md", 0, 0 );
  3006. X        printf("References: ");
  3007. X        ansi2( "me", 0, 0 );
  3008. X        printf("%s\n", refs);
  3009. X        
  3010. X        ansi2( "md", 0, 0 );
  3011. X        printf("Message-ID: ");
  3012. X        ansi2( "me", 0, 0 );
  3013. X        printf("<%x.%d@%s>\n", tdummy, USER.id, UUCPID);
  3014. X        
  3015. X        ansi2( "md", 0, 0 );
  3016. X        printf("Expires: ");
  3017. X        ansi2( "me", 0, 0 );
  3018. X        if(USER.level >= WRITE_INTERNAT){
  3019. X            strcpy(expires, (UNSIGNED char *) getline(80, -1001, 32, expires));
  3020. X            printf("\n");
  3021. X        }
  3022. X        else printf("%s\n", expires);    
  3023. X
  3024. X        goto ONCE_MORE;        
  3025. X    }
  3026. X
  3027. X    ansi2( "md", 0, 0 );
  3028. X    printf("\n\n%s\n", MIS34_MSG);
  3029. X    ansi2( "me", 0, 0 );
  3030. X
  3031. X    sprintf(f, "%s/A%d", TMP, getpid());
  3032. X    sprintf(t, "%s/B%d", TMP, getpid());
  3033. X
  3034. X    fp = fopen(f, "r");
  3035. X    if (fp == NULL) {
  3036. X        printf("\n");
  3037. X        ansi2("md", 0, 0);
  3038. X        printf("%s ...\n", MIS35_MSG);
  3039. X        ansi2("me", 0, 0);
  3040. X        control(MIS36_MSG, 3);
  3041. X        unlink(rep);
  3042. X        return;
  3043. X    }
  3044. X
  3045. X#ifdef _CNEWS
  3046. X    lines = 0;
  3047. X    while(fgets(s, STRING, fp) != 0) lines++;
  3048. X    rewind(fp);
  3049. X#endif
  3050. X
  3051. X    ff = fopen(t, "w");
  3052. X
  3053. X    time(&tdummy);
  3054. X
  3055. X    fprintf(ff, "From: %s\n", iam);
  3056. X    if(reply[0] != '\0')
  3057. X        fprintf(ff, "Reply-To: %s\n", reply);
  3058. X    if(sender[0] != '\0')
  3059. X        fprintf(ff, "Sender: %s\n", sender);
  3060. X    if(approved[0] != '\0')
  3061. X        fprintf(ff, "Approved: %s\n", approved);
  3062. X    if(newsgroups[0] != '\0')
  3063. X        fprintf(ff, "Newsgroups: %s\n", newsgroups);
  3064. X    if(distribution[0] != '\0')
  3065. X        fprintf(ff, "Distribution: %s\n", distribution);
  3066. X    if(ctrl[0] != '\0')
  3067. X        fprintf(ff, "Control: %s\n", ctrl);
  3068. X    if(followup[0] != '\0')
  3069. X        fprintf(ff, "Followup-To: %s\n", followup);
  3070. X    if(subj[0] != '\0')
  3071. X        fprintf(ff, "Subject: %s\n", subj);
  3072. X    if(keyw[0] != '\0')
  3073. X        fprintf(ff, "Keywords: %s\n", keyw);
  3074. X    if(summ[0] != '\0')
  3075. X        fprintf(ff, "Summary: %s\n", summ);
  3076. X    if(content[0] != '\0'){
  3077. X        fprintf(ff, "MIME-Version: %s\n", MIME_VERSION);        
  3078. X        fprintf(ff, "Content-Type: %s\n", content);
  3079. X#ifdef _UMLAUT
  3080. X        fprintf(ff, "Content-Transfer-Encoding: 8bit\n");
  3081. X#endif
  3082. X    }
  3083. X    fprintf(ff, "X-News-Reader: %s %s %s\n", VERSION, PATCHLEVEL, AUTOR);
  3084. X    fprintf(ff, "Message-ID: <%x.%d@%s>\n", tdummy, USER.id, UUCPID);
  3085. X    if(expires[0] != '\0')
  3086. X        fprintf(ff, "Expires: %s\n", expires);
  3087. X    if(refs[0] != '\0')
  3088. X        fprintf(ff, "References: %s\n", refs);    
  3089. X#ifdef _CNEWS
  3090. X    fprintf(ff, "Lines: %d\n", lines);    
  3091. X#endif
  3092. X    fputs("\n", ff);    
  3093. X    
  3094. X    if (BINFILE == 0) {
  3095. X        UMLAUT_MODUS = 1;
  3096. X        i = 0;
  3097. X        while (fgets(s, STRING, fp) != 0) {
  3098. X            if(ROT13_MODUS) strcpy(s, (UNSIGNED char *) rot13( s ));
  3099. X            fputs((UNSIGNED char *) iso_line(s), ff);
  3100. X            i++;
  3101. X        }
  3102. X    }
  3103. X    else {
  3104. X        time(&tdummy);
  3105. X        fputs("BINFILE\n", ff);
  3106. X        sprintf(s, "%s/PD.%d", BRETT, tdummy);
  3107. X        fputs(s, ff);
  3108. X        sprintf(f, "cp %s %s &", tmp, s);
  3109. X        system(f);
  3110. X        sprintf(s, "\n/public/pd/%s\n", subj);
  3111. X        fputs(s, ff);
  3112. X        fl = fopen( PDSCRIPT, "a" );
  3113. X        fprintf(fl, "mv %s/PD.%d /public/pd/%s\n", BRETT, tdummy, subj);
  3114. X        fclose(fl);
  3115. X    }
  3116. X    fclose(fp);
  3117. X    unlink(f);
  3118. X
  3119. X    unlink(rep);
  3120. X
  3121. X    if ((USER.level > WRITE_IN_LEV) && (BINFILE == 0)) {
  3122. X        sprintf(s, "%s/usr/%c/%d/.signature", HOME, USER.name[0], USER.id);
  3123. X        fp = fopen(s, "r");
  3124. X        if (fp != NULL) {
  3125. X            while (fgets(s, STRING, fp) != 0) {
  3126. X                if(ROT13_MODUS) strcpy(s, (UNSIGNED char *) rot13( s ));
  3127. X                fputs((UNSIGNED char *) iso_line(s), ff);
  3128. X            }
  3129. X            fclose(fp);
  3130. X        }
  3131. X    }
  3132. X    fclose(ff);
  3133. X
  3134. X    UMLAUT_MODUS = USER.schluessel[2];
  3135. X
  3136. X    sprintf(ex, "/bin/sh ./etc/inews.sh %s %s", NG, t);
  3137. X    system(ex);
  3138. X
  3139. X    unlink(t);
  3140. X
  3141. X    sprintf(s, "%s \"%s\" %s", MIS37_MSG, NG, MIS38_MSG);
  3142. X    control(s, 3);
  3143. X
  3144. X    
  3145. X    if(BINFILE != 0){
  3146. X        maybe_locked(NGROUPS, "r");
  3147. X        fp = fopen(NGROUPS, "r");
  3148. X        if (fp == NULL) {
  3149. X            nerror("misc.c", 895, "schreiben", "Can't read", NGROUPS);
  3150. X        }
  3151. X
  3152. X        ok = 0;
  3153. X
  3154. X            while ((ok == 0) && (fscanf(fp, "%s %d %d %s", s, &a, &b, f) > 0)) {
  3155. X            if(strcomp(NG, s) == 0){
  3156. X                i = a;
  3157. X                ok = 1;
  3158. X            }
  3159. X         }
  3160. X        fclose(fp);
  3161. X
  3162. X        fl = fopen( PDSCRIPT, "a" );
  3163. X        fprintf(fl, "%s %s/%d\n", FAVORITE_EDITOR, BRETT, i); 
  3164. X        fprintf(fl, "#%s   %s\n\n", NG, USER.name);
  3165. X        fclose(fl);
  3166. X    }
  3167. X
  3168. X    printf("%s", MIS39_MSG);
  3169. X
  3170. X#ifndef _SYS7
  3171. X    sleep(30);    /* Scheinbar laeuft INEWS bei SYSV im Hintergrund */
  3172. X#endif
  3173. X
  3174. X    sprintf(s, "%s %s", MB_DAEMON, group);
  3175. X    system(s);
  3176. X    unlink(tmp);
  3177. X    printf("\n");
  3178. X  }
  3179. X  else {
  3180. X    ansi2("md", 0, 0);
  3181. X    printf(" %s\n\n", MIS40_MSG);
  3182. X    ansi2("me", 0, 0);
  3183. X  }
  3184. X  umask(0007);
  3185. X
  3186. X}
  3187. X
  3188. X
  3189. X
  3190. X
  3191. X
  3192. X
  3193. X/* #PR - Finds out whether a file is a text or binary.
  3194. X
  3195. X   [arg] is the name/path of the file to check.   
  3196. X
  3197. X   This function returns 0 if the file includes a text or an 1 if
  3198. X   its binary. */
  3199. X
  3200. Xint prf(arg)
  3201. XUNSIGNED char arg[];
  3202. X{
  3203. X  FILE *fp;
  3204. X  UNSIGNED char ex[LONGSTRING];
  3205. X  int i, a;
  3206. X
  3207. X#ifdef _PROFILE
  3208. X  profile( "prf()" );
  3209. X#endif
  3210. X
  3211. X  fp = fopen(arg, "r");
  3212. X  if (fp == NULL) return -1;
  3213. X  while ((fgets(ex, LONGSTRING, fp) != NULL) && (strlen(ex) < 30));
  3214. X  fclose(fp);
  3215. X
  3216. X  i = 0;
  3217. X  a = 0;
  3218. X  while (ex[i] != '\0') {
  3219. X    if ((ex[i] < 32) || (ex[i] > 127)) {
  3220. X        if ((ex[i] != LF) && (ex[i] != CR)) a++;
  3221. X    }
  3222. X    i++;
  3223. X  }
  3224. X  if (a > 3) return 1;        /* BINFILE */
  3225. X
  3226. X  return 0;            /* TEXTFILE */
  3227. X}
  3228. X
  3229. X
  3230. X
  3231. X
  3232. X
  3233. X
  3234. X/* #PF - Checks if an article includes the key BINFILE. If so, the 
  3235. X   function "pd()" is called to handle it.
  3236. X
  3237. X   [arg] gives the number (NOT path) of an article.
  3238. X
  3239. X   This function returns 0 if the article includes a text and 1 if it
  3240. X   is a binary file. */
  3241. X
  3242. Xint pruefe(arg)
  3243. XUNSIGNED char arg[];
  3244. X{
  3245. X  FILE *fp;
  3246. X  UNSIGNED char ex[LONGSTRING];
  3247. X  UNSIGNED char s[STRING];
  3248. X  UNSIGNED char entry[STRING];
  3249. X  UNSIGNED char keywds[STRING];
  3250. X
  3251. X#ifdef _PROFILE
  3252. X  profile( "pruefe()" );
  3253. X#endif
  3254. X
  3255. X  if ((arg[0] == '\0') || (arg[0] == '*')) return -1;
  3256. X
  3257. X  if (strcomp(BRETT, "PM") != 0) {
  3258. X    sprintf(entry, "%s/%s", BRETT, arg);
  3259. X  }
  3260. X  else {
  3261. X    sprintf(entry, "%s/usr/%c/%d/%s", HOME, USER.name[0], USER.id, arg);
  3262. X  }
  3263. X
  3264. X  keywds[0] = '\0';
  3265. X
  3266. X  fp = fopen(entry, "r");
  3267. X  if (fp == NULL) return -1;
  3268. X
  3269. X  while ((fgets(ex, LONGSTRING, fp) != NULL) && (ex[0] > 32)){
  3270. X    if(strcomp("Keywords: ", ex) == 0){
  3271. X        ex[80] = '\0';
  3272. X        strcpy(keywds, strcopy(ex, 10, 80));
  3273. X    }
  3274. X  }
  3275. X
  3276. X  while ((fgets(ex, LONGSTRING, fp) != NULL) && (ex[0] < 32));
  3277. X
  3278. X  if (strcomp("Content-", ex) == 0) 
  3279. X          fgets(ex, LONGSTRING, fp);
  3280. X
  3281. X  if (strcomp("BINFILE", ex) == 0) {
  3282. X    fgets(s, STRING, fp);
  3283. X    fclose(fp);
  3284. X    pd(s, keywds);
  3285. X    return 1;
  3286. X  }
  3287. X  fclose(fp);
  3288. X
  3289. X  return 0;
  3290. X}
  3291. X
  3292. X
  3293. X
  3294. X
  3295. X
  3296. X
  3297. END_OF_FILE
  3298.   if test 24307 -ne `wc -c <'mbox/src/misc.c'`; then
  3299.     echo shar: \"'mbox/src/misc.c'\" unpacked with wrong size!
  3300.   fi
  3301.   # end of 'mbox/src/misc.c'
  3302. fi
  3303. if test -f 'mbox/src/weiterl.c' -a "${1}" != "-c" ; then 
  3304.   echo shar: Will not clobber existing file \"'mbox/src/weiterl.c'\"
  3305. else
  3306.   echo shar: Extracting \"'mbox/src/weiterl.c'\" \(11765 characters\)
  3307.   sed "s/^X//" >'mbox/src/weiterl.c' <<'END_OF_FILE'
  3308. X/* ix/MBox (weiterl.c) by Volker Schuermann, 04.12.1993
  3309. X
  3310. X   This C source code contains the following functions:
  3311. X
  3312. X   #WL weiterleiten()    forward mails or articles
  3313. X   #CC carboncopy()      send copies to other users
  3314. X   #BO boerse()          stock exchange ("de.etc.finanz")
  3315. X
  3316. X   Contact <volkers@unnet.wupper.de> for help! */
  3317. X
  3318. X
  3319. X
  3320. X
  3321. X
  3322. X
  3323. X#include <stdio.h>
  3324. X#include <sys/types.h>
  3325. X#include <sys/stat.h>
  3326. X#include <dirent.h>
  3327. X
  3328. X#include "mbox.h"
  3329. X
  3330. X
  3331. X
  3332. X
  3333. X/* #WL - Forward mails.
  3334. X
  3335. X   [arg]    ->  ''             = show which mail may be forwarded
  3336. X            ->  'user'         = forward the last mail to 'user'
  3337. X            ->  'article user' = forward 'article' to 'user' */
  3338. X
  3339. Xvoid weiterleiten( arg )
  3340. XUNSIGNED char arg[];
  3341. X{
  3342. X  FILE *fp;
  3343. X  UNSIGNED char s[STRING];
  3344. X  UNSIGNED char t[STRING];
  3345. X  UNSIGNED char subject[STRING];
  3346. X  int i, a, num;
  3347. X  UNSIGNED char empf[STRING];
  3348. X
  3349. X  subject[0] = '\0';
  3350. X
  3351. X  sprintf(s, "%s/usr/%c/%d/.lastsubject", HOME, USER.name[0], USER.id);
  3352. X  fp = fopen( s, "r" );
  3353. X  if(fp != NULL){
  3354. X    fgets(subject, STRING, fp);
  3355. X    fclose(fp);
  3356. X  }
  3357. X
  3358. X  if((subject[0] == '\0') && ((arg[0] > 64) || (arg[0] == '?'))){
  3359. X    ansi2("md", 0, 0);
  3360. X    printf(" %s\n", WEI01_MSG);
  3361. X    ansi2("me", 0, 0);
  3362. X    return;
  3363. X  }
  3364. X
  3365. X  if(arg[0] == '\0'){
  3366. X    printf("\n\n%s\n\n", WEI02_MSG);
  3367. X    ansi2("md", 0, 0);
  3368. X    printf("%s %s\n\n", WEI03_MSG, subject);
  3369. X    ansi2("me", 0, 0);
  3370. X    return;
  3371. X  }
  3372. X
  3373. X  num = 0;
  3374. X
  3375. X  if(arg[0] < 65){
  3376. X    i = 0;
  3377. X    while((arg[i] > 32) && (arg[i] != '\0')) i++;
  3378. X    strcpy(s, (UNSIGNED char *) strcopy(arg, 0, (i-1)));
  3379. X    num = atoi(s);
  3380. X    strcpy(empf, (UNSIGNED char *) strcopy(arg, (i+1), strlen(arg)));
  3381. X    strcat(empf, "$");
  3382. X  }
  3383. X  else{
  3384. X    sprintf(empf, "%s$", arg);
  3385. X  }  
  3386. X
  3387. X  if(num != 0){
  3388. X    if(strcomp(BRETT, "PM") != 0){
  3389. X        sprintf(t, "%s/%d", BRETT, num);
  3390. X        sprintf(s, "cp %s/%d %s/usr/%c/%d/.lastletter", BRETT, num, HOME, USER.name[0], USER.id);
  3391. X    }
  3392. X    else{
  3393. X        sprintf(t, "%s/usr/%c/%d/%d", HOME, USER.name[0], USER.id, num);
  3394. X        sprintf(s, "cp %s/usr/%c/%d/%d %s/usr/%c/%d/.lastletter", HOME, USER.name[0], USER.id, num, HOME, USER.name[0], USER.id);
  3395. X    }
  3396. X    fp = fopen( t, "r" );
  3397. X    if(fp == NULL){
  3398. X        ansi2("md", 0, 0);
  3399. X        printf(" %s\n", WEI04_MSG);
  3400. X        ansi2("me", 0, 0);
  3401. X    return;
  3402. X    }
  3403. X    fclose(fp);
  3404. X    system(s);
  3405. X    sprintf(s, "%s/usr/%c/%d/.lastletter", HOME, USER.name[0], USER.id);
  3406. X
  3407. X    sprintf(s, "%s/usr/%c/%d/.lastsubject", HOME, USER.name[0], USER.id);
  3408. X    fp = fopen( s, "w" );
  3409. X    if(fp == NULL){
  3410. X        nerror("weiterl.c", 76, "weiterleiten", "Can't write to", s);
  3411. X    }
  3412. X    fprintf(fp, "%d <%s>", num, NG);
  3413. X    fclose(fp);
  3414. X  }
  3415. X
  3416. X  brief(empf);
  3417. X}
  3418. X
  3419. X
  3420. X
  3421. X
  3422. X/* #CC - Send copies of mails to various users.
  3423. X
  3424. X   [cc]   ->  name of users (shown in "Cc:" header line)
  3425. X   [bcc]  ->  name of users (shown in "Bcc:" header line, not shown to
  3426. X              users) */
  3427. X
  3428. Xvoid carboncopy( cc, bcc )
  3429. XUNSIGNED char cc[], bcc[];
  3430. X{
  3431. X  UNSIGNED char ex[LONGSTRING];
  3432. X  UNSIGNED char ef[LONGSTRING];
  3433. X  UNSIGNED char s[STRING];
  3434. X
  3435. X  int a = 0, i = 0;
  3436. X  int ok = 0;
  3437. X
  3438. X  printf("\n");
  3439. X
  3440. X  sprintf(ex, "%s,%s ", (UNSIGNED char *) stripped(cc), bcc);
  3441. X
  3442. X  if(ex[0] == '\0') return;
  3443. X
  3444. X  while(ok == 0){
  3445. X    while((ex[i] != ',') && (ex[i] != '\0')) i++;
  3446. X
  3447. X    if(ex[i] == '\0') ok++;
  3448. X
  3449. X    strcpy(ef, (UNSIGNED char *) bigcopy(ex, a, (i-1)));
  3450. X    strcpy(s, (UNSIGNED char *) stripped(ef));
  3451. X
  3452. X    if((strlen(s) > 1) && (s[0] != '(')){
  3453. X        weiterleiten( s );
  3454. X    }
  3455. X    a = i + 1;
  3456. X    i++;
  3457. X  }
  3458. X  
  3459. X}
  3460. X
  3461. X
  3462. X
  3463. X
  3464. X/* #BO - Handle stock exchange database.
  3465. X
  3466. X   This needs informations from newsgroup "de.etc.finanz".
  3467. X
  3468. X   NOTE: This stuff is still under construction!  */
  3469. X
  3470. X#define MAX_BOERSE    40
  3471. X#define MAX_KURSE    40
  3472. X
  3473. Xvoid boerse( arg )
  3474. XUNSIGNED char arg[];
  3475. X{
  3476. X  UNSIGNED char s[STRING];
  3477. X  UNSIGNED char t[STRING];
  3478. X  UNSIGNED char u[STRING];
  3479. X
  3480. X  UNSIGNED char d[MAX_BOERSE][STRING];
  3481. X  UNSIGNED char l[MAX_KURSE][STRING];
  3482. X  int dptr;
  3483. X
  3484. X  FILE *fp;
  3485. X  FILE *ff;
  3486. X
  3487. X  int c, i, j, a, b;
  3488. X
  3489. X  long t1, t2;
  3490. X  long o1, o2;
  3491. X  long p1;
  3492. X  long x1, x2;
  3493. X  long q;
  3494. X
  3495. X  DIR *dp;
  3496. X  struct dirent *actdir;
  3497. X
  3498. X
  3499. X
  3500. X  if(USER.terminal == 4){
  3501. X    printf(" <- %s\n", BAU04_MSG );
  3502. X    return;
  3503. X  }
  3504. X
  3505. X
  3506. X  sprintf(s, " Stock Exchange                      [Support: %s] ", STOCK_AUTOR);
  3507. X  headline( s );
  3508. X
  3509. X  fp = fopen( STOCK_INDEX, "r" );
  3510. X  if(fp != NULL){
  3511. X
  3512. X    ansi2( "cm", 56, 3 );
  3513. X    printf("DAX ........");
  3514. X    ansi2( "cm", 56, 4 );
  3515. X    printf("FTSE .......");
  3516. X    ansi2( "cm", 56, 5 );
  3517. X    printf("DOW JONES ..");
  3518. X    ansi2( "cm", 56, 6 );
  3519. X    printf("CAC ........");
  3520. X    ansi2( "cm", 56, 7 );
  3521. X    printf("MIBTEL .....");
  3522. X    ansi2( "cm", 56, 8 );
  3523. X    printf("IBEX .......");
  3524. X
  3525. X    while(fgets(s, STRING, fp) != 0){
  3526. X        if(strlen(s) > 10) strcpy(t, (UNSIGNED char *) s);
  3527. X    }
  3528. X
  3529. X    fclose(fp);
  3530. X
  3531. X    ansi2( "md", 0, 0 );
  3532. X
  3533. X    j = 12;
  3534. X
  3535. X    for(i = 3; i < 9; i++){
  3536. X        ansi2( "cm", 69, i );
  3537. X        printf("%s", (UNSIGNED char *) strcopy(t, j, (j + 8)));
  3538. X        j += 11;
  3539. X     }      
  3540. X
  3541. X    ansi2( "cm", 56, 10 );
  3542. X    ansi2( "mr", 0, 0 );
  3543. X    printf("      %s      ", (UNSIGNED char *) strcopy(t, 0, 9) );
  3544. X  }
  3545. X
  3546. X  ansi2( "cm", 1, 2 );
  3547. X  ansi2( "me", 0, 0 ); 
  3548. X
  3549. X  printf("\n  1 - DAX Aktien Kurse\n");
  3550. X  printf("\n  2 - Dow Jones Aktien Kurse\n");
  3551. X  ansi2( "us", 0, 0 );
  3552. X  printf("\n  3 - Diagramm\n\n\n");
  3553. X  ansi2( "me", 0, 0 );  
  3554. X
  3555. X  ansi2( "md", 0, 0 );
  3556. X  printf("[Kurse] Welche? > ");
  3557. X
  3558. X  c = getint();
  3559. X
  3560. X  ansi2( "me", 0, 0 );
  3561. X
  3562. X  if((c < '1') || (c > '3')){
  3563. X    printf("\n");
  3564. X    return;
  3565. X  }
  3566. X
  3567. X  if(c != '3'){
  3568. X
  3569. X    sprintf(s, " Stock Exchange                      [Support: %s] ", STOCK_AUTOR);
  3570. X    headline( s );
  3571. X
  3572. X    dptr = 1;
  3573. X
  3574. X    dp = opendir( STOCK_PATH );
  3575. X    if(dp == NULL){
  3576. X        nerror("weiterl.c", 216, "boerse", "Directory not found", STOCK_PATH);
  3577. X    }
  3578. X  
  3579. X    while(((actdir = readdir(dp)) != NULL) && (dptr < MAX_BOERSE)){
  3580. X        strcpy(s, (UNSIGNED char *) actdir->d_name);
  3581. X        i = strlen(s);
  3582. X        if(i > 3){
  3583. X            while(i > -1){
  3584. X                if(s[i] == '.'){
  3585. X                    a = i + 1;
  3586. X                    i = -1;
  3587. X                }
  3588. X                i--;
  3589. X            }
  3590. X            strcpy(t, (UNSIGNED char *) strcopy(s, a, strlen(s)));
  3591. X    
  3592. X            if(c == '1'){
  3593. X                if(strcomp("dax", t) == 0){
  3594. X                    strcpy(d[dptr], actdir->d_name);
  3595. X                    dptr++;
  3596. X                }
  3597. X            }
  3598. X            if(c == '2'){
  3599. X                if(strcomp("dj", t) == 0){
  3600. X                    strcpy(d[dptr], actdir->d_name);
  3601. X                    dptr++;
  3602. X                }    
  3603. X            }
  3604. X        }
  3605. X    }
  3606. X    closedir(dp);
  3607. X
  3608. X  
  3609. X    for(i = 1; i < dptr; i++){
  3610. X        for(j = 1; j < dptr; j++){
  3611. X            t1 = dateconv( d[i] );
  3612. X            t2 = dateconv( d[j] );
  3613. X            if(t1 > t2){
  3614. X                strcpy(s, (UNSIGNED char *) d[i]);
  3615. X                strcpy(d[i], (UNSIGNED char *) d[j]);
  3616. X                strcpy(d[j], (UNSIGNED char *) s);
  3617. X            }
  3618. X        }
  3619. X    }
  3620. X    
  3621. X    
  3622. X    j = 0; strcpy(l[0], "                               "); 
  3623. X
  3624. X    if(dptr > 5) dptr = 5;
  3625. X
  3626. X    for(i = 1; i < dptr; i++){
  3627. X    
  3628. X        sprintf(s, "%s/%s", STOCK_PATH, d[i]);
  3629. X
  3630. X        b = 1;
  3631. X    
  3632. X        fp = fopen( s, "r" );
  3633. X        if(fp == NULL){
  3634. X            nerror("weiterl.c", 274, "boerse", "Can't read", s);
  3635. X        }
  3636. X    
  3637. X        strcat(l[0], "    ");
  3638. X        strcat(l[0], (UNSIGNED char *) strcopy(d[i], 0, 7));
  3639. X    
  3640. X        while(fgets(s, STRING, fp) != 0){
  3641. X            if(j == 0){
  3642. X                strcpy(l[b], stripped( (UNSIGNED char *) strcopy(s, 7, 80)));
  3643. X                while(strlen(l[b]) < 31) strcat(l[b], " ");    
  3644. X                l[b][31] = '\0';
  3645. X            }
  3646. X            fgets(t, STRING, fp);
  3647. X            if(s[0] == t[0]){
  3648. X                sprintf(s, "   %9.9s", stripped( (UNSIGNED char *) strcopy(t, 7, 80)));
  3649. X            }
  3650. X            else{
  3651. X                sprintf(s, "   %9.9s", "WPKN?");
  3652. X            }
  3653. X            strcat(l[b], s);
  3654. X            if(b < MAX_KURSE) b++;
  3655. X           }
  3656. X        fclose(fp);
  3657. X    
  3658. X        j++;
  3659. X    }  
  3660. X
  3661. X    sprintf(t, "%s/city.%d", STOCK_PATH, getpid());
  3662. X
  3663. X    fp = fopen( t, "w" );
  3664. X    if(fp == NULL){
  3665. X        nerror("weiterl.c", 303, "boerse", "Can't write to", t);
  3666. X    }
  3667. X
  3668. X    fputs("Content-Type: text/richtext\n", fp);
  3669. X
  3670. X    a = 0;
  3671. X
  3672. X    for(i = 1; i < b; i++){
  3673. X        if(l[i][0] >= 'A'){
  3674. X            if(a == 0){
  3675. X                fprintf(fp, "%s\n", l[i]);
  3676. X                a++;
  3677. X            }
  3678. X            else{
  3679. X                fprintf(fp, "<Underline>%s</Underline>\n", l[i]);
  3680. X                a = 0;
  3681. X            }
  3682. X        }
  3683. X    }
  3684. X    fclose(fp);
  3685. X
  3686. X    sprintf(s, " Stock Exchange                      [Support: %s] ", STOCK_AUTOR);
  3687. X    headblock( s, l[0] );
  3688. X    show( t, 9999, USER.more + 100 );
  3689. X
  3690. X    unlink( t );
  3691. X
  3692. X  }    
  3693. X  else{ /* Grafik */
  3694. X
  3695. X    sprintf(s, " Stock Exchange                      [Support: %s] ", STOCK_AUTOR);
  3696. X    headline( s );
  3697. X
  3698. X    dptr = 1;
  3699. X
  3700. X    dp = opendir( STOCK_PATH );
  3701. X    if(dp == NULL){
  3702. X        nerror("weiterl.c", 341, "boerse", "Directory not found", STOCK_PATH);
  3703. X    }
  3704. X  
  3705. X    while((actdir = readdir(dp)) != NULL){
  3706. X        if(dptr >= MAX_BOERSE){
  3707. X            for(i = 1; i <= dptr; i++)
  3708. X                strcpy(d[i], (UNSIGNED char *) d[i+1]);
  3709. X            dptr--;
  3710. X        }
  3711. X        strcpy(s, (UNSIGNED char *) actdir->d_name);
  3712. X        i = strlen(s);
  3713. X        if(i > 3){
  3714. X            while(i > -1){
  3715. X                if(s[i] == '.'){
  3716. X                    a = i + 1;
  3717. X                    i = -1;
  3718. X                }
  3719. X                i--;
  3720. X            }
  3721. X            strcpy(t, (UNSIGNED char *) strcopy(s, a, strlen(s)));
  3722. X    
  3723. X            if((strcomp("wpkn", t) != 0) && (strcomp("index", s) != 0)){
  3724. X                strcpy(d[dptr], actdir->d_name);
  3725. X                dptr++;
  3726. X            }
  3727. X        }
  3728. X    }
  3729. X    closedir(dp);
  3730. X
  3731. X  
  3732. X    for(i = 1; i < dptr; i++){
  3733. X        for(j = 1; j < dptr; j++){
  3734. X            t1 = dateconv( d[i] );
  3735. X            t2 = dateconv( d[j] );
  3736. X            if(t1 < t2){
  3737. X                strcpy(s, (UNSIGNED char *) d[i]);
  3738. X                strcpy(d[i], (UNSIGNED char *) d[j]);
  3739. X                strcpy(d[j], (UNSIGNED char *) s);
  3740. X            }
  3741. X        }
  3742. X    }
  3743. X
  3744. X    b = 1; t1 = 9999L; t2 = 0L; o1 = 9999L; o2 = 0L;
  3745. X    
  3746. X    for(i = 1; i < dptr; i++){                /* Pass 1 */
  3747. X        sprintf(s, "%s/%s", STOCK_PATH, d[i]);
  3748. X    
  3749. X        fp = fopen( s, "r" );
  3750. X        if(fp == NULL){
  3751. X            nerror("weiterl.c", 385, "boerse", "Can't read", s);            
  3752. X        }
  3753. X    
  3754. X        fgets(t, STRING, fp); 
  3755. X        fgets(s, STRING, fp); 
  3756. X
  3757. X        if(atol(t) != atol(s)){    /* WPKN ??? */
  3758. X            fclose(fp);
  3759. X            continue;
  3760. X        }
  3761. X
  3762. X        strcpy(l[b], (UNSIGNED char *) strcopy(s, 7, 80));
  3763. X
  3764. X        q = atol(l[b]);
  3765. X    
  3766. X        if(d[i][strlen(d[i]) -1] == 'x'){
  3767. X            if(q < t1) t1 = q;
  3768. X            if(q > t2) t2 = q;
  3769. X        }
  3770. X        else{
  3771. X            if(q < o1) o1 = q;
  3772. X            if(q > o2) o2 = q;
  3773. X        }
  3774. X
  3775. X        if(b < MAX_KURSE) b++;
  3776. X        fclose(fp);
  3777. X    }
  3778. X
  3779. X    t1 = (t1 + t2) / 2;
  3780. X    o1 = (o1 + o2) / 2;    
  3781. X
  3782. X    x1 = (t2 - t1) / 10 + 1;
  3783. X    x2 = (o2 - o1) / 10 + 1;
  3784. X
  3785. X    a = 15;
  3786. X
  3787. X    for( i = 3; i < (42 - USER.tlines); i++){
  3788. X        ansi2( "cm", 14, i );
  3789. X        printf("------------------------------------------------------------------");
  3790. X    }
  3791. X
  3792. X
  3793. X    ansi2( "md", 0, 0 );
  3794. X    ansi2( "cm", 14, 12 );
  3795. X    printf("------------------------------------------------------------------");
  3796. X    ansi2( "cm", 14, (42 - USER.tlines) );
  3797. X    printf("------------------------------------------------------------------");
  3798. X
  3799. X    ansi2( "me", 0, 0 );
  3800. X
  3801. X    for( i = 4; i < 7; i++){
  3802. X        ansi2( "cm", 68, i );
  3803. X        printf("             ");
  3804. X    }
  3805. X
  3806. X    ansi2( "cm", 69, 4 );
  3807. X    ansi2( "mr", 0, 0 );
  3808. X    printf("=");
  3809. X    ansi2( "me", 0, 0 );
  3810. X    ansi2( "md", 0, 0 );
  3811. X    printf(" DAX");
  3812. X    ansi2( "me", 0, 0 );
  3813. X
  3814. X     ansi2( "cm", 69, 6 );
  3815. X    ansi2( "mr", 0, 0 );
  3816. X    printf("+");
  3817. X    ansi2( "me", 0, 0 );
  3818. X    printf(" Dow Jones");
  3819. X
  3820. X    ansi2( "cm", 58, (41 - USER.tlines) );
  3821. X    ansi2( "us", 0, 0 );
  3822. X    strcpy(t, (UNSIGNED char *) strcopy(d[(dptr - 1)], 0, 7));
  3823. X      printf(" %s bis %s", (UNSIGNED char *) strcopy(d[1], 0, 7), t); 
  3824. X    ansi2( "me", 0, 0 );
  3825. X
  3826. X    j = 1;
  3827. X    /*
  3828. X        if(dptr > 22) j = dptr - 22;
  3829. X    */
  3830. X     if(dptr > 27) j = dptr - 27;
  3831. X
  3832. X    for(i = j; i < dptr; i++){                /* Pass 2 */
  3833. X        sprintf(s, "%s/%s", STOCK_PATH, d[i]);
  3834. X    
  3835. X        fp = fopen( s, "r" );
  3836. X        if(fp == NULL){
  3837. X            nerror("weiterl.c", 476, "boerse", "Can't read", s);
  3838. X        }
  3839. X    
  3840. X        fgets(t, STRING, fp); 
  3841. X        fgets(s, STRING, fp); 
  3842. X
  3843. X        if(atol(t) != atol(s)){    /* WPKN ??? */
  3844. X            fclose(fp);
  3845. X            continue;
  3846. X        }
  3847. X
  3848. X        strcpy(t, (UNSIGNED char *) strcopy(s, 7, 80));
  3849. X            
  3850. X        q = atol(t);
  3851. X
  3852. X        ansi2( "mr", 0, 0 );
  3853. X
  3854. X        if(d[i][strlen(d[i]) -1] == 'x'){
  3855. X
  3856. X            p1 = t1 - q;
  3857. X            p1 /= x1;
  3858. X            if(p1 == 0) p1 = 1;
  3859. X
  3860. X            
  3861. X            if(p1 > 0){
  3862. X                for(j = 0; j < p1; j++){
  3863. X                    b = 12 + j;
  3864. X                    ansi2( "cm", a, b);
  3865. X                    printf("=");
  3866. X                }
  3867. X            }
  3868. X            else{
  3869. X                p1 *= -1;
  3870. X
  3871. X                for(j = 0; j < p1; j++){
  3872. X                    b = 12 - j;
  3873. X                    ansi2( "cm", a, b);
  3874. X                    printf("=");
  3875. X                }
  3876. X
  3877. X            }
  3878. X            
  3879. X            ansi2( "cm", 1, b);
  3880. X            ansi2( "me", 0, 0 );
  3881. X            ansi2( "md", 0, 0 );
  3882. X            printf("%s", t);
  3883. X        }
  3884. X        else{
  3885. X            p1 = o1 - q;
  3886. X            p1 /= x2;
  3887. X            if(p1 == 0) p1 = 1;
  3888. X
  3889. X
  3890. X            if(p1 > 0){
  3891. X                for(j = 0; j < p1; j++){
  3892. X                    b = 12 + j;
  3893. X                    ansi2( "cm", a, b);
  3894. X                    printf("+");
  3895. X                }
  3896. X            }
  3897. X            else{
  3898. X                p1 *= -1;
  3899. X
  3900. X                for(j = 0; j < p1; j++){
  3901. X                    b = 12 - j;
  3902. X                    ansi2( "cm", a, b);
  3903. X                    printf("+");
  3904. X                }
  3905. X
  3906. X            }
  3907. X            ansi2( "cm", 1, b);
  3908. X            ansi2( "me", 0, 0 );
  3909. X            printf("%s", t);
  3910. X        }
  3911. X
  3912. X        for(j = 0; j < 2; j++){
  3913. X            ansi2( "cm", a, (43 - USER.tlines) + j );
  3914. X            printf("%c", d[i][j]);
  3915. X        }
  3916. X
  3917. X        ansi2( "me", 0, 0 );
  3918. X
  3919. X        a += 2;
  3920. X
  3921. X        fclose(fp);
  3922. X    }    
  3923. X    ansi2( "cm", 1, (USER.tlines + 1) );
  3924. X  }
  3925. X}
  3926. END_OF_FILE
  3927.   if test 11765 -ne `wc -c <'mbox/src/weiterl.c'`; then
  3928.     echo shar: \"'mbox/src/weiterl.c'\" unpacked with wrong size!
  3929.   fi
  3930.   # end of 'mbox/src/weiterl.c'
  3931. fi
  3932. echo shar: End of archive 4 \(of 12\).
  3933. cp /dev/null ark4isdone
  3934. MISSING=""
  3935. for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
  3936.     if test ! -f ark${I}isdone ; then
  3937.     MISSING="${MISSING} ${I}"
  3938.     fi
  3939. done
  3940. if test "${MISSING}" = "" ; then
  3941.     echo You have unpacked all 12 archives.
  3942.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  3943. else
  3944.     echo You still must unpack the following archives:
  3945.     echo "        " ${MISSING}
  3946. fi
  3947. exit 0
  3948. exit 0 # Just in case...
  3949.