home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume35 / mbox / part07 < prev    next >
Text File  |  1993-02-05  |  56KB  |  2,389 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  3. Subject: v35i042:  mbox - ix/Mbox, A BBS for UNIX and MINIX v1.6 PL10j7, Part07/15
  4. Message-ID: <1993Feb5.185734.10323@sparky.imd.sterling.com>
  5. X-Md4-Signature: d63f2d7d680fc06f2914f870bf1dee18
  6. Date: Fri, 5 Feb 1993 18:57:34 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  10. Posting-number: Volume 35, Issue 42
  11. Archive-name: mbox/part07
  12. Environment: MINIX, ISC, ESIX, SVR3
  13. Supersedes: mbox: Volume 31, Issue 16-27
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then feed it
  17. # into a shell via "sh file" or similar.  To overwrite existing files,
  18. # type "sh file -c".
  19. # Contents:  src/loop.c src/mail.c src/makro.c wendy/fast
  20. # Wrapped by kent@sparky on Fri Feb  5 12:18:09 1993
  21. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  22. echo If this archive is complete, you will see the following message:
  23. echo '          "shar: End of archive 7 (of 15)."'
  24. if test -f 'src/loop.c' -a "${1}" != "-c" ; then 
  25.   echo shar: Will not clobber existing file \"'src/loop.c'\"
  26. else
  27.   echo shar: Extracting \"'src/loop.c'\" \(22323 characters\)
  28.   sed "s/^X//" >'src/loop.c' <<'END_OF_FILE'
  29. X/***************************************************************************/
  30. X/*        PROGRAMM  ix/Mbox                           */
  31. X/*             DATEI  loop.c                           */
  32. X/*        FUNKTIONEN  sigcatch(), cut_bef(), cut_arg(), rates(), loop()       */
  33. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  34. X/*  LETZTE AENDERUNG  18.12.1992                       */
  35. X/***************************************************************************/
  36. X   
  37. X#include <stdio.h>
  38. X#include <sys/types.h>
  39. X#include <sys/wait.h>
  40. X#include <time.h>
  41. X#include <setjmp.h>
  42. X#include <signal.h>
  43. X#include <sys/stat.h>
  44. X
  45. X#include "mbox.h"
  46. X
  47. Xextern time_t time_start, time_now;
  48. X
  49. Xjmp_buf jmpenv;
  50. X
  51. X/***************************************************************************/
  52. X/*      FUNKTION  sigcatch()                           */
  53. X/*  BESCHREIBUNG  Wird aufgerufen, wenn eines der abgefangen Signale       */
  54. X/*          eintrifft. Je nach Signal wird entweder ein CTRL-X       */
  55. X/*          simuliert, oder das Programm ordnungsgemaesst beendet.   */
  56. X/*     PARAMETER  sig  =  Nummer des ausloesenden Signals                  */
  57. X/*     RUECKGABE  keine                                                    */
  58. X/***************************************************************************/
  59. X
  60. Xvoid sigcatch(sig)
  61. Xint sig;
  62. X{
  63. X  unsigned char tmp[80];  
  64. X
  65. X  signal(SIGINT,   SIG_IGN);
  66. X  signal(SIGQUIT,  SIG_IGN);
  67. X  signal(SIGHUP,   SIG_IGN);
  68. X  signal(SIGABRT,  SIG_IGN);
  69. X  signal(SIGTERM,  SIG_IGN);
  70. X
  71. X  chdir( HOME );
  72. X 
  73. X  switch (sig) {
  74. X    case SIGINT:
  75. X    case SIGQUIT:
  76. X        sprintf(tmp, "%s/I.%d", TMP, getpid());
  77. X        unlink(tmp);
  78. X        sprintf(tmp, "%s/show%d", TMP, getpid());
  79. X        unlink(tmp);
  80. X        mbunlock( UDBASE );
  81. X        printf("\n");
  82. X        ansi("mr");
  83. X        printf("%s", LOP01_MSG);
  84. X        ansi("me");
  85. X        printf("\n\n");
  86. X        longjmp(jmpenv, 1);
  87. X        break;
  88. X      case SIGHUP:
  89. X      case SIGABRT:
  90. X      case SIGTERM:
  91. X        printf("\n\n");
  92. X        ansi("mr");
  93. X        printf("%s", LOP02_MSG);
  94. X        ansi("me");
  95. X        printf("");
  96. X        logout();
  97. X        exit(-1);
  98. X        break;
  99. X  }
  100. X}
  101. X
  102. X
  103. X
  104. X
  105. X/***************************************************************************/
  106. X/*      FUNKTION  cut_bef()                           */
  107. X/*  BESCHREIBUNG  Filtert den Befehl aus der Eingabe eines Users.          */
  108. X/*     PARAMETER  Eingabezeile                                             */
  109. X/*     RUECKGABE  Der isolierte Befehl                                     */
  110. X/***************************************************************************/
  111. X
  112. Xunsigned char *cut_bef(s)
  113. Xunsigned char s[];
  114. X{
  115. X  static unsigned char bef[STRING];
  116. X  int i = 0;
  117. X
  118. X  while (s[i] > 32) {
  119. X    bef[i] = s[i];
  120. X    i++;
  121. X  }
  122. X  bef[i] = '\0';
  123. X  return (unsigned char *) bef;
  124. X}
  125. X
  126. X
  127. X
  128. X/***************************************************************************/
  129. X/*      FUNKTION  cut_arg()                           */
  130. X/*  BESCHREIBUNG  Filtert das Argument aus der Eingabe des Users.          */
  131. X/*     PARAMETER  Eingabezeile                                                */
  132. X/*     RUECKGABE  Das isolierte Argument                                   */
  133. X/***************************************************************************/
  134. X
  135. Xunsigned char *cut_arg(s)
  136. Xunsigned char s[];
  137. X{
  138. X  static unsigned char arg[STRING];
  139. X  int i = 0, a = 0;
  140. X
  141. X  while (s[i] > 32) i++;
  142. X  if (s[i] == '\0') return (unsigned char *) "";
  143. X
  144. X  while (s[i] == 32) i++;
  145. X
  146. X  while (s[i] != '\0') {
  147. X    arg[a] = s[i];
  148. X    i++;
  149. X    a++;
  150. X  }
  151. X  arg[a] = '\0';
  152. X
  153. X  while((arg[(a-1)] < 33) && (a > 1)){
  154. X    a--;
  155. X    arg[a] = '\0';
  156. X  }
  157. X
  158. X  return (unsigned char *) arg;
  159. X}
  160. X
  161. X
  162. X
  163. X
  164. X/***************************************************************************/
  165. X/*      FUNKTION  rates()                           */
  166. X/*  BESCHREIBUNG  Ermittelt die Telefongebuehren des laufenden Anrufs und  */
  167. X/*          bereitet sie als PROMPT auf.                             */
  168. X/*     PARAMETER  keine                                                       */
  169. X/*     RUECKGABE  PROMPT-Zeile fuer Gebuehren                              */
  170. X/***************************************************************************/
  171. X
  172. Xunsigned char *rates()
  173. X{
  174. X  static unsigned char s[STRING];
  175. X  unsigned char t[STRING];
  176. X  int nz, rz, wz;
  177. X  int dif;
  178. X  int n1, n2, r1, r2, w1, w2;
  179. X  struct tm *timeptr;
  180. X
  181. X  time(&time_now);
  182. X  dif = time_now - time_start;
  183. X
  184. X  n1 = dif / NZNT;
  185. X  n1++;
  186. X  n1 *= TARIF;
  187. X  n2 = dif / NZBT;
  188. X  n2++;
  189. X  n2 *= TARIF;
  190. X  r1 = dif / RZNT;
  191. X  r1++;
  192. X  r1 *= TARIF;
  193. X  r2 = dif / RZBT;
  194. X  r2++;
  195. X  r2 *= TARIF;
  196. X  w1 = dif / WZNT;
  197. X  w1++;
  198. X  w1 *= TARIF;
  199. X  w2 = dif / WZBT;
  200. X  w2++;
  201. X  w2 *= TARIF;
  202. X
  203. X  timeptr = localtime(&time_now);
  204. X  sprintf(t, "%s", asctime(timeptr));
  205. X
  206. X  if ((t[0] == 'S') || (timeptr->tm_hour > 18) || (timeptr->tm_hour < 8)) {
  207. X    sprintf(s, "(%ds) NZ %d.%02.2d, RZ %d.%02.2d, WZ %d.%02.2d",
  208. X     dif, fix(n2), flt(n2), fix(r2), flt(r2), fix(w2), flt(w2));
  209. X  }
  210. X  else {
  211. X    sprintf(s, "(%ds) NZ %d.%02.2d, RZ %d.%02.2d, WZ %d.%02.2d",
  212. X     dif, fix(n1), flt(n1), fix(r1), flt(r1), fix(w1), flt(w1));
  213. X  }
  214. X
  215. X  return (unsigned char *) s;
  216. X}
  217. X
  218. X
  219. X
  220. X
  221. X/***************************************************************************/
  222. X/*      FUNKTION  loop.c                           */
  223. X/*  BESCHREIBUNG  Die Eingaben des Users werden entgegengenommen und die   */
  224. X/*          entsprechenden Routinen aufgerufen und ausgefuehrt.      */
  225. X/*     PARAMETER  keine                                                       */
  226. X/*     RUECKGABE  keine                                                    */
  227. X/***************************************************************************/
  228. X
  229. Xvoid loop()
  230. X{
  231. X  unsigned char s[STRING];
  232. X  unsigned char t[STRING];
  233. X  unsigned char l[LONGSTRING];
  234. X  unsigned char befehl[STRING];
  235. X  unsigned char argument[STRING];
  236. X  unsigned char prompt[STRING];
  237. X
  238. X  unsigned char prev_befehl[10][STRING];
  239. X  int wasok;
  240. X
  241. X  int c;
  242. X
  243. X  unsigned char bef_buff[(STRING * 2)];
  244. X  int bef_rec;
  245. X
  246. X  int ende = 0, ok, dummy, i;
  247. X  int pp;
  248. X  int to_del;
  249. X  int fpid;
  250. X
  251. X  struct stat fst;
  252. X
  253. X
  254. X  sprintf(prev_befehl[1], "%s ", BEF[BB1].befehl);
  255. X  sprintf(prev_befehl[2], "%s ", BEF[BB2].befehl); 
  256. X  sprintf(prev_befehl[3], "%s ", BEF[BB3].befehl);
  257. X  sprintf(prev_befehl[4], "%s ", BEF[BB4].befehl);
  258. X  sprintf(prev_befehl[5], "%s ", BEF[BB5].befehl);
  259. X  sprintf(prev_befehl[6], "%s ", BEF[BB6].befehl);
  260. X  sprintf(prev_befehl[7], "%s ", BEF[BB7].befehl);
  261. X  sprintf(prev_befehl[8], "%s ", BEF[BB8].befehl);
  262. X  sprintf(prev_befehl[9], "%s ", BEF[BB9].befehl);
  263. X
  264. X  wasok = 1;
  265. X
  266. X  bef_buff[0] = '\0';
  267. X
  268. X  DISKUSSION = 0;
  269. X
  270. X  do {
  271. X
  272. X    if(setjmp(jmpenv) == 1){
  273. X        bef_buff[0] = '\0';
  274. X    }
  275. X
  276. X    FASTER:
  277. X    
  278. X    signal(SIGINT,  sigcatch);
  279. X    signal(SIGQUIT, sigcatch);
  280. X
  281. X    signal(SIGHUP,  sigcatch);
  282. X    signal(SIGABRT, sigcatch);
  283. X    signal(SIGTERM, sigcatch);
  284. X
  285. X    sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  286. X    stat(s, &fst);
  287. X    if(fst.st_size > IDX_SIZE){
  288. X        printf("%c\n\n%s\n", BELL, LOP03_MSG); 
  289. X    }
  290. X        IDX_SIZE = (long) fst.st_size;
  291. X
  292. X    if(bef_buff[0] != '\0'){
  293. X        sprintf(s, "%s", bef_buff);        
  294. X        IS_BUFFERED = 1;
  295. X        bef_rec++;
  296. X        goto BUFFERING;
  297. X    }
  298. X        else 
  299. X        IS_BUFFERED = 0;
  300. X
  301. X
  302. X    bef_rec = 0;
  303. X
  304. X    ansi("md");
  305. X    prompt[0] = '\0';
  306. X
  307. X    switch (USER.prompt) {
  308. X        case 1:
  309. X            strcat(prompt, (unsigned char *) mytime(0));
  310. X            break;
  311. X        case 2:    
  312. X            strcat(prompt, NG);
  313. X            break;
  314. X        case 3:    
  315. X            strcat(prompt, (unsigned char *) rates());
  316. X            break;
  317. X    }
  318. X    printf("\n[%s] %s > ", prompt, LOP06_MSG);
  319. X    ansi("me");
  320. X    if (USER.bell == 1) printf("%c", BELL);
  321. X
  322. X    befehl[0] = '\0';
  323. X
  324. X#ifdef _CORELEFT
  325. X    if(coreleft() < _CORELEFT){
  326. X        sprintf(s, "%d", _CORELEFT);
  327. X        nerror( "loop.c", 288, "loop", "Speicherplatz kleiner ", s );
  328. X    }
  329. X#endif
  330. X
  331. X
  332. X    do {
  333. X        strcpy(s, (unsigned char *) getline(60, 11001, 32, befehl));
  334. X        to_del = length(befehl);
  335. X
  336. X        if (s[0] == 48) {
  337. X            headline( LOP05_MSG );
  338. X            printf("\n");
  339. X            for (i = 9; i > 0; i--) {
  340. X                printf(" %d: %s\n", i, prev_befehl[i]);
  341. X            }
  342. X            goto FASTER;
  343. X        }
  344. X        if ((s[0] > 48) && (s[0] < 58)) {
  345. X            sprintf(befehl, "%s", prev_befehl[(s[0] - 48)]);
  346. X            printf("%c", CR);
  347. X            if (ansi("ce") == 1) {
  348. X                printf("                                                               ");
  349. X            }
  350. X            ansi("md");
  351. X            printf("%c[%s] %s > ", CR, prompt, LOP06_MSG);
  352. X            ansi("me");
  353. X        }
  354. X    } while ((s[0] > 47) && (s[0] < 58));
  355. X
  356. X    
  357. X        if(makro_definition(s) != 0) goto FASTER;
  358. X
  359. X
  360. X    BUFFERING:
  361. X
  362. X    if((bef_rec > MAKRO_MAX_REK) && (USER.level < (ADMIN_LEV+1))){
  363. X        bef_buff[0] = '\0';
  364. X        goto FASTER;
  365. X    }
  366. X
  367. X        
  368. X    strcpy(t, (unsigned char *) makro(s));
  369. X    strcpy(s, t); 
  370. X        
  371. X    while ((s[0] == 32) || (s[0] == '.')) {
  372. X        sprintf(befehl, "%s", (unsigned char *) strcopy(s, 1, length(s)));
  373. X        sprintf(s, "%s", befehl);
  374. X    }
  375. X
  376. X    i = 0; ok = 0;
  377. X    while((ok == 0) && (s[i] != '\0')){
  378. X        if(s[i] == ','){ 
  379. X            strcpy(bef_buff, (unsigned char *) strcopy(s, (i+1), length(s)));
  380. X            s[i] = '\0';
  381. X            ok++;
  382. X        }            
  383. X        i++;
  384. X    }
  385. X    if(ok == 0) bef_buff[0] = '\0';
  386. X    
  387. X    strcpy(befehl, (unsigned char *) cut_bef(s));
  388. X    strcpy(argument, (unsigned char *) cut_arg(s));
  389. X    strcpy(s, (unsigned char *) upcased(befehl));
  390. X    strcpy(befehl, s);
  391. X
  392. X    sprintf(s, "%s %s", befehl, argument);
  393. X
  394. X    if (wasok == 1) {
  395. X        ok = 0;
  396. X        for (i = 9; i > 0; i--) {
  397. X            if ((strcomp(s, prev_befehl[i]) == 0) && (strcomp(prev_befehl[i], s) == 0))
  398. X                ok++;
  399. X        }
  400. X        if ((ok == 0) && (befehl[0] > 32)) {
  401. X            for (i = 9; i > 1; i--) {
  402. X                sprintf(prev_befehl[i], "%s", prev_befehl[(i - 1)]);
  403. X            }
  404. X            sprintf(prev_befehl[1], "%s %s", befehl, argument);
  405. X        }
  406. X    }
  407. X    else {
  408. X        sprintf(prev_befehl[1], "%s %s", befehl, argument);
  409. X    }
  410. X
  411. X    sprintf(s, "[%s] %s %s", LOP04_MSG, befehl, argument);
  412. X    control(s, 3);
  413. X
  414. X    sprintf(s, "%s %s", befehl, argument);
  415. X    whodo(s);
  416. X
  417. X
  418. X    wasok = 0;
  419. X
  420. X    if (befehl[0] == '"') {
  421. X        ansi("md");
  422. X        /*
  423. X        printf(" <- Nein, so daemlich kann kein User sein !\n");
  424. X        */
  425. X        printf(" %s\n", LOP07_MSG);
  426. X        ansi("me");
  427. X        goto FASTER;
  428. X    }
  429. X    if (befehl[0] == '\0') goto FASTER;
  430. X
  431. X
  432. X    if(argument[0] == '?') {
  433. X        strcpy(argument, befehl);
  434. X        strcpy(befehl, BEF[BB7].befehl);
  435. X     }
  436. X
  437. X/*  ?  */
  438. X
  439. X    if (befehl[0] == '?') {
  440. X        if (argument[0] != '*') {
  441. X            sprintf(s, " %s %d) ", LOP08_MSG, USER.level);
  442. X        } else {
  443. X            sprintf(s, " %s ", LOP09_MSG, USER.level);
  444. X        }
  445. X        headline(s);
  446. X        printf("\n");
  447. X        bef("?", argument);
  448. X        goto FASTER;
  449. X    }
  450. X
  451. X/* <BREAK> */
  452. X
  453. X    if (strcomp(befehl, "<BREAK>") == 0) {
  454. X        printf("!@#?");
  455. X        ansi("md");
  456. X        printf(" %s", LOP10_MSG);
  457. X        ansi("me");
  458. X        printf("\n");
  459. X        goto FASTER;
  460. X    }
  461. X    wasok = 1;
  462. X
  463. X
  464. X    switch (bef(befehl, argument)) {
  465. X
  466. X        case 275:        /* RELOGIN */
  467. X
  468. X        logout();
  469. X        intro();
  470. X        break;
  471. X
  472. X
  473. X        case 240:        /* MINIX */
  474. X
  475. X        if (argument[0] == '\0') {
  476. X            ansi("md");
  477. X            printf(" %s\n", LOP11_MSG);
  478. X            ansi("me");
  479. X        }
  480. X        else {
  481. X            printf("\n\n");
  482. X            sprintf(s, "exec %s %s %d %d", RSH, argument, OLDUID, OLDGID);
  483. X            system(s);
  484. X        }
  485. X        break;
  486. X
  487. X
  488. X        case 110:
  489. X        case 120:        /* + -  */
  490. X
  491. X        scanner(befehl[0]);
  492. X        break;
  493. X
  494. X
  495. X        case 190:        /* HILFE */
  496. X
  497. X        printf("\n\n");
  498. X        if (argument[0] < 33)
  499. X            help("=");
  500. X        else {
  501. X            if(argument[0] == '*'){    
  502. X                help("*");
  503. X            }
  504. X            else{
  505. X                strcpy(s, "#");
  506. X                strcat(s, upcased(argument));
  507. X                if (help(s) < 1) {
  508. X                    ansi("md");
  509. X                    printf("%s \"%s\" %s\n", LOP12_MSG, argument, LOP13_MSG);
  510. X                    ansi("me");
  511. X                }
  512. X            }
  513. X        }
  514. X        break;
  515. X
  516. X
  517. X        case 150:        /* BRETT */
  518. X
  519. X        if(strcomp("**", argument) == NULL) strcpy(argument, "^");
  520. X        brett(argument);
  521. X        break;
  522. X
  523. X
  524. X        case 130:        /* ANRUFER */
  525. X
  526. X        if(argument[0] == '#'){
  527. X            statistik();
  528. X            break;
  529. X        }
  530. X
  531. X        if(argument[0] == '%'){
  532. X            headline( LOP34_MSG );
  533. X            printf("%s\n", LOP35_MSG);
  534. X            printf("===============================================================================\n");
  535. X            printf("%s ..", LOP29_MSG);
  536. X    
  537. X            switch( (fpid = fork()) ){
  538. X                case -1 :
  539. X                    break;
  540. X                case  0 : 
  541. X                    while(1){
  542. X                        printf(".");
  543. X                        sleep(2);
  544. X                    }    
  545. X                    break;
  546. X            }
  547. X            sprintf(t, "%s/%d.srt", TMP, getpid());
  548. X            sprintf(l, SECONDCUT, CALLS, t);
  549. X            system(l);             
  550. X            kill( fpid, SIGKILL );
  551. X            (void) wait( &fpid );
  552. X            printf("%c", CR);
  553. X            show(t, 9999, USER.more + 100);
  554. X            unlink(t);
  555. X            break;
  556. X        }
  557. X
  558. X        headline( LOP14_MSG );
  559. X        printf("%s\n", LOP15_MSG);
  560. X        printf("===============================================================================\n");
  561. X
  562. X        if (argument[0] != '*') {
  563. X            show(CALLS, 19, USER.more);
  564. X        }
  565. X        else {
  566. X            show(CALLS, 9999, USER.more + 100);
  567. X        }
  568. X        break;
  569. X
  570. X
  571. X        case 200:        /* INHALT */
  572. X
  573. X        inhalt2(argument, 'I');
  574. X        break;
  575. X
  576. X
  577. X        case 210:        /* LESEN */
  578. X
  579. X        dummy = (pruefe(argument));
  580. X        if (dummy == 0) lesen(argument);
  581. X        if (dummy == -1) lesen2(argument, 'L');
  582. X        break;
  583. X
  584. X
  585. X
  586. X        case 230:        /* SCHREIBEN */
  587. X
  588. X        if (USER.level < WRITE_IN_LEV) {
  589. X            ansi("md");
  590. X            printf(" %s\n", LOP16_MSG);
  591. X            ansi("me");
  592. X        }
  593. X        else
  594. X            schreiben(argument);
  595. X        break;
  596. X
  597. X
  598. X        case 220:        /* LOESCHEN */
  599. X
  600. X        dummy = (pruefe(argument));
  601. X        if (dummy == 0) loeschen(argument);
  602. X        if (dummy == -1) loeschen2(argument, 'D');
  603. X        break;
  604. X
  605. X
  606. X        case 160:        /* BRIEF */
  607. X
  608. X        if (USER.level < WRITE_IN_LEV) {
  609. X            ansi("md");
  610. X            printf(" %s\n", LOP16_MSG);
  611. X            ansi("me");
  612. X        }
  613. X        else
  614. X            if((brief(argument) == 0) && (strcomp(GUEST, USER.name) != 0)){
  615. X                sprintf(s, "%s?", USER.name);
  616. X                brief(s);
  617. X                sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  618. X                stat(s, &fst);
  619. X                    IDX_SIZE = (int) fst.st_size;
  620. X            }
  621. X            else bef_buff[0] = '\0';
  622. X        break;
  623. X
  624. X
  625. X        case 170:        /* CHAT */
  626. X
  627. X        sprintf(s, "exec %s %s \"%s\" %d %d", RSH, CHAT, USER.nick, OLDUID, OLDGID);
  628. X        system(s);
  629. X        break;
  630. X
  631. X
  632. X        case 250:        /* PM */
  633. X
  634. X        strcpy(BRETT, "PM");
  635. X        printf("\n");
  636. X        sprintf(NG, "%s.PM", USER.name);
  637. X        sprintf(INHALT, "%s/usr/%d/INDEX", HOME, USER.id);
  638. X        break;
  639. X
  640. X
  641. X        case 260:        /* POSTFACH */
  642. X
  643. X        postfach("*");
  644. X        break;
  645. X
  646. X
  647. X        case 300:        /* USER */
  648. X
  649. X        userliste(argument);
  650. X        break;
  651. X
  652. X
  653. X        case 140:        /* ANSAGE */
  654. X
  655. X        ansage();
  656. X        break;
  657. X
  658. X
  659. X        case 310:        /* UNTERSCHRIFT */
  660. X
  661. X        unterschrift();
  662. X        break;
  663. X
  664. X
  665. X        case 320:        /* VERSION */
  666. X
  667. X        printf("\n\n");
  668. X        ansi("md");
  669. X        printf("Version: ");
  670. X        ansi("me");
  671. X        printf("%s %s %s\n", VERSION, PATCHLEVEL, AUTOR);
  672. X
  673. X        if(argument[0] == '#'){
  674. X            ansi("md");
  675. X            printf("\nMein spezieller Dank gilt folgenden Mitarbeitern, Beta-Testern und Ratgebern: \n\n");
  676. X            ansi("me");
  677. X            
  678. X            printf("andreas@xenox.ruhr.de       - fuer den \"NewsFeed\" und seine Geduld\n");
  679. X            printf("                              bei unseren \"Sonderwuenschen\"\n\n");
  680. X
  681. X            printf("az@unnet.w.open.de          - fuer seinen Einsatz beim \"Einrichten\"\n");
  682. X            printf("                              der Mailbox und der PD-Portierung\n\n");
  683. X
  684. X            printf("joergg@unnet.ruhr.sub.org   - fuer seine Ideen, Tips, konstruktive\n");
  685. X            printf("                              Kritik und gruendliche Tests\n\n");        
  686. X
  687. X            printf("klausr@skylink.ruhr.sub.org - fuer viele Vorschlaege, und vor allem\n");            
  688. X            printf("                              fuer seine praesizen Fehlerbeschreibungen\n\n");            
  689. X
  690. X            printf("stefans@coduck.ruhr.sub.org - fuer seine Hilfe bei der Installation\n");
  691. X            printf("                              der 386er Patches und der PD-Beschaffung\n\n");
  692. X
  693. X            printf("walterb@weller.ruhr.sub.org - fuer seine Unterstuetzung bei der Portierung auf\n");
  694. X            printf("                              UNIX SVR3 und bei der Installation\n\n");
  695. X
  696. X            printf("hergo@ivcmd.boerde.de       - fuer seine Hilfe bei der Bildung einer Referenz-\n");
  697. X            printf("                              Version zur Verwendung von CDIFFs\n\n");
  698. X            
  699. X        }
  700. X        
  701. X        if(argument[0] == '*'){
  702. X            ansi("md");
  703. X            printf("\n%s ", LOP17_MSG);
  704. X            ansi("me");
  705. X#ifdef _SYS7
  706. X            printf("-D_SYS7 ");
  707. X#endif
  708. X#ifdef _MBOX
  709. X            printf("-D_MBOX ");
  710. X#endif
  711. X#ifdef _MINIX
  712. X            printf("-D_MINIX ");
  713. X#endif
  714. X#ifdef _ESTDIO
  715. X            printf("-D_ESTDIO ");
  716. X#endif
  717. X#ifdef _CORELEFT
  718. X            printf("-D_CORELEFT ");
  719. X#endif
  720. X#ifdef _DATESTAMP
  721. X            printf("-D_DATESTAMP ");
  722. X#endif
  723. X#ifdef _BAUDRATE
  724. X            printf("-D_BAUDRATE ");
  725. X#endif
  726. X#ifdef _MULTIMEDIA
  727. X            printf("-D_MULTIMEDIA ");
  728. X#endif
  729. X#ifdef _METAMAIL
  730. X            printf("-D_METAMAIL ");
  731. X#endif
  732. X#ifdef _UMLAUT
  733. X            printf("-D_UMLAUT ");
  734. X#endif
  735. X
  736. X            printf("\n");
  737. X        }
  738. X
  739. X        break;
  740. X
  741. X
  742. X        case 270:        /* PORTINFO */
  743. X
  744. X        port( argument );
  745. X        break;
  746. X
  747. X
  748. X        case 280:        /* SETUP */
  749. X
  750. X        sprintf(s, "%s", NG);
  751. X        sprintf(t, "%s", BRETT);
  752. X        setup();
  753. X        if (strcomp("PM", t) != 0) brett(s);
  754. X        break;
  755. X
  756. X
  757. X        case 125:        /* ADMIN */
  758. X
  759. X        sprintf(s, "%s", NG);
  760. X        sprintf(t, "%s", BRETT);
  761. X        admin();
  762. X        if (strcomp("PM", t) != 0) brett(s);
  763. X        break;
  764. X
  765. X
  766. X        case 205:        /* ID */
  767. X
  768. X        if(strcomp("-c", argument) == 0){ /* Memory fault - core dumped */
  769. X            printf("\n\nDebug-Modus: ");
  770. X            fclose(0);   
  771. X            break;
  772. X        }
  773. X
  774. X        if(strcomp("*", argument) == 0){
  775. X            BAUDRATE = baudrate( MAX_BPS );
  776. X            printf("\n\n>>> Baudrate %d\n", BAUDRATE);
  777. X            break;
  778. X        }
  779. X
  780. X        if(strcomp("#", argument) == 0){
  781. X            printf("\n\n>>> Coreleft %d\n", coreleft());
  782. X            break;
  783. X        }
  784. X
  785. X        printf("\n\n>>> %s (UID %d|%d|%d) (GID %d|%d|%d)\n", MYNAME,
  786. X               getuid(), geteuid(), OLDUID,
  787. X               getgid(), getegid(), OLDGID);
  788. X        break;
  789. X
  790. X
  791. X        case 215:        /* LEVEL */
  792. X
  793. X        show_level();
  794. X        break;
  795. X
  796. X
  797. X        case 290:        /* STATUS */
  798. X
  799. X        status();
  800. X        break;
  801. X
  802. X
  803. X        case 330:         /* MAKRO */
  804. X
  805. X        set_makros();
  806. X        break;
  807. X
  808. X
  809. X        case 340:        /* WEITERLEITEN */
  810. X
  811. X        weiterleiten( argument );
  812. X        break;
  813. X
  814. X
  815. X        case 350:           /* SLEEP */
  816. X
  817. X        dummy = atoi( argument );
  818. X        if(dummy < 1) dummy = 1;
  819. X        printf("\n");
  820. X        ansi( "mr" );
  821. X        printf(" %s ... ", LOP29_MSG);
  822. X        ansi( "me" );    
  823. X        sleep( dummy );
  824. X        break;        
  825. X
  826. X
  827. X        case 360:        /* KEYPRESSED */
  828. X
  829. X        printf("\n");
  830. X        ansi("mr");
  831. X        printf(" Taste ! ");
  832. X        ansi("me");
  833. X        dummy = getint();
  834. X        if((dummy == CTRL_X) || (dummy == 'x') || (dummy == 'q')){
  835. X            bef_buff[0] = '\0';
  836. X            printf("\n");
  837. X        }
  838. X        break;
  839. X
  840. X
  841. X        case 370:        /* DATUM */
  842. X        
  843. X        ansi("md");
  844. X        printf("\n\n%s ", LOP18_MSG);
  845. X        ansi("me"); 
  846. X        printf("%s, ", (unsigned char *) mydate( 2 ));
  847. X        printf("%s\n",  (unsigned char *) mydate( 0 ));
  848. X        break;
  849. X    
  850. X
  851. X        case 380:        /* ZEIT */
  852. X
  853. X        ansi("md");
  854. X        printf("\n\n%s ", LOP19_MSG);
  855. X        ansi("me");
  856. X        printf("%s\n", (unsigned char *) mytime( 0 ));
  857. X        ansi("md");
  858. X        printf("Online: ");
  859. X        ansi("me");
  860. X        time(&time_now);
  861. X        printf("%d %s\n",  (int) time_now - time_start, LOP20_MSG);
  862. X        break;
  863. X
  864. X
  865. X       case 390:        /* SPIELE */
  866. X
  867. X        games();
  868. X        break;
  869. X    
  870. X
  871. X        case 400:        /* RICHTUNG */
  872. X
  873. X        ansi("md");
  874. X        printf("\n\n%s ", LOP21_MSG);
  875. X        ansi("me");
  876. X
  877. X        if (USER.leserichtung == 1) {
  878. X            USER.leserichtung = 2;
  879. X            printf("%s\n", LOP22_MSG);
  880. X        }
  881. X        else {
  882. X            USER.leserichtung = 1;
  883. X            printf("%s\n", LOP22aMSG);
  884. X        }
  885. X        break;
  886. X
  887. X
  888. X        case 410:           /* STATISTIK */
  889. X
  890. X        if ((argument[0] != '#') && (argument[0] != '$') && (argument[0] != '%') && (argument[0] != '!') && (argument[0] != '>')) {
  891. X            headline( LOP23_MSG );
  892. X            printf("%s\n", LOP24_MSG);
  893. X            printf("===============================================================================\n");
  894. X
  895. X            if (argument[0] != '*') {
  896. X                show(MB_DLOG, 19, USER.more);
  897. X            }
  898. X            else {
  899. X                show(MB_DLOG, 9999, USER.more + 100);
  900. X            }
  901. X        }
  902. X        if(argument[0] == '$') {
  903. X            headline( LOP25_MSG );
  904. X            show(UUCPCOSTS, 9999, USER.more);
  905. X        }
  906. X           if(argument[0] == '#') {
  907. X            headline( LOP26_MSG );
  908. X            printf("%s\n", LOP27_MSG);
  909. X            printf("===============================================================================\n");
  910. X
  911. X            show(PDLOG, 9999, USER.more + 100);
  912. X        }
  913. X        if(argument[0] == '>') {
  914. X            headline( LOP27aMSG );
  915. X            printf("%s\n", LOP27bMSG);
  916. X            printf("===============================================================================\n");
  917. X
  918. X            show(XMDLOG, 9999, USER.more + 100);
  919. X        }
  920. X        if(argument[0] == '%') {
  921. X            headline( LOP32_MSG );
  922. X            printf("%s\n", LOP33_MSG);
  923. X            printf("===============================================================================\n");
  924. X            printf("%s ..", LOP29_MSG);
  925. X    
  926. X            switch( (fpid = fork()) ){
  927. X                case -1 :
  928. X                    break;
  929. X                case  0 : 
  930. X                    while(1){
  931. X                        printf(".");
  932. X                        sleep(2);
  933. X                    }    
  934. X                    break;
  935. X            }
  936. X            sprintf(t, "%s/%d.srt", TMP, getpid());
  937. X            sprintf(l, SORTEDCUT, PDLOG, t);
  938. X            system(l);             
  939. X            kill( fpid, SIGKILL );
  940. X            (void) wait( &fpid );
  941. X            printf("%c", CR);
  942. X            show(t, 9999, USER.more + 100);
  943. X            unlink(t);
  944. X        }
  945. X        if(argument[0] == '!') {
  946. X            headline( " OUTDIAL " );
  947. X            show("/local/mbox/etc/outdial.log", 9999, USER.more);
  948. X        }
  949. X
  950. X        break;
  951. X 
  952. X
  953. X        case 430:        /* SUCHEN */
  954. X
  955. X        suchen( argument );
  956. X        break;    
  957. X
  958. X                    
  959. X        case 420:        /* RING */
  960. X
  961. X        ende = 1;
  962. X        break;
  963. X
  964. X
  965. X        case 440:        /* DOWNLOAD */
  966. X
  967. X        download( argument );
  968. X        break;
  969. X
  970. X         case 450:        /* OUTDIAL */
  971. X
  972. X        outdial();
  973. X        break;
  974. X
  975. X        case 460:        /* AREA */
  976. X
  977. X        if((strcomp("++", argument) == 0) || (strcomp("--", argument) == 0)){
  978. X            scanner( argument[0] + 1500 );
  979. X        }
  980. X        else{
  981. X            scanner( argument[0] + 500 );
  982. X        }    
  983. X        break;
  984. X
  985. X
  986. X        case 470:        /* SYSINFO */
  987. X
  988. X        headline( " SYSiNFO " );
  989. X        show(SYSINFO, 9999, USER.more);
  990. X        break;
  991. X
  992. X        case 480:        /* EDIT */
  993. X
  994. X        edit( argument );
  995. X        break;
  996. X
  997. X        case 490:        /* DIS */
  998. X
  999. X        dis( argument );
  1000. X        break;
  1001. X
  1002. X        case 500:        /* UMLAUT */
  1003. X
  1004. X        ansi("md");
  1005. X        printf("\n\n%s ", LOP33aMSG);
  1006. X        ansi("me");
  1007. X
  1008. X        if (UMLAUT_MODUS == 4) {
  1009. X            UMLAUT_MODUS = USER.schluessel[2];
  1010. X            switch(UMLAUT_MODUS){
  1011. X                case 1 : printf("%s\n", ADM70dMSG);
  1012. X                     break;
  1013. X                case 2 : printf("%s\n", ADM70eMSG);
  1014. X                     break;
  1015. X                case 3 : printf("%s\n", ADM70fMSG);
  1016. X                     break;
  1017. X                case 4 : printf("%s\n", ADM70gMSG);
  1018. X                     break;
  1019. X            }
  1020. X        }
  1021. X        else {
  1022. X            UMLAUT_MODUS = 4;
  1023. X            printf("%s\n", LOP33bMSG);
  1024. X        }
  1025. X        break;
  1026. X
  1027. X        case 510:        /* MONITOR */
  1028. X
  1029. X        i = atoi( argument );
  1030. X         if(i < 1) i = 15;
  1031. X
  1032. X        switch( (fpid = fork()) ){
  1033. X            case -1 :
  1034. X                break;
  1035. X            case  0 : 
  1036. X                while(1){
  1037. X                    headline( LOP14_MSG );
  1038. X                    printf("%s\n", LOP15_MSG);
  1039. X                    printf("===============================================================================\n");
  1040. X                    show(CALLS, 19, USER.more);
  1041. X                    sleep( i ); 
  1042. X                    statistik();
  1043. X                    sleep( i ); 
  1044. X                    port( "" );
  1045. X                    sleep( i ); 
  1046. X                    headline( LOP23_MSG );
  1047. X                    printf("%s\n", LOP24_MSG);
  1048. X                    printf("===============================================================================\n");
  1049. X                    show(MB_DLOG, 19, USER.more);
  1050. X                    sleep( i ); 
  1051. X                }    
  1052. X        }
  1053. X        c = getch();
  1054. X        kill( fpid, SIGKILL );
  1055. X        (void) wait( &fpid );        
  1056. X        break;
  1057. X
  1058. X        case 1000:        /* User Defined Command */
  1059. X
  1060. X        /* See 'befehl.c' how that works ;-) */
  1061. X        break;
  1062. X
  1063. X        case 180:        /* ENDE */
  1064. X
  1065. X#ifdef _MINIX
  1066. X        if (tty() >= FIRST_EX_TTY) {
  1067. X            printf("\n\n");
  1068. X            ansi("mr");
  1069. X            printf("%c%s [%c, %c] > ", CR, LOP28_MSG, GBL06_MSG, GBL07_MSG);
  1070. X            ansi("me");
  1071. X            
  1072. X            c = yesno();
  1073. X        } else
  1074. X#endif
  1075. X            c = GBL06_MSG;
  1076. X
  1077. X
  1078. X        if (c == GBL06_MSG)
  1079. X            ende = 1;
  1080. X        else
  1081. X            printf("\n");
  1082. X
  1083. X        if(argument[0] == '*'){
  1084. X            USER.lasttime = LASTTIME;
  1085. X            strcpy(USER.lastlog, (unsigned char *) datereconv( LASTLOG ));
  1086. X        }
  1087. X        else{
  1088. X            strcpy(s, (unsigned char *) mydate(0));
  1089. X            s[10] = '\0';
  1090. X            strcpy(USER.lastlog, s);
  1091. X            strcpy(s, (unsigned char *) mytime(1));
  1092. X            USER.lasttime = timeconv(s);
  1093. X        }
  1094. X
  1095. X        break;
  1096. X
  1097. X        case -1:        /* LEVEL ??? */
  1098. X
  1099. X        wasok = 0;
  1100. X        ansi("md");
  1101. X        printf(" %s %d ...\n", LOP30_MSG, USER.level);
  1102. X        ansi("me");
  1103. X        break;
  1104. X
  1105. X        default:
  1106. X
  1107. X        wasok = 0;
  1108. X        ansi("md");
  1109. X        printf(" %s\n", LOP31_MSG);
  1110. X        ansi("me");
  1111. X    }
  1112. X
  1113. X  } while (ende == 0);
  1114. X}
  1115. END_OF_FILE
  1116.   if test 22323 -ne `wc -c <'src/loop.c'`; then
  1117.     echo shar: \"'src/loop.c'\" unpacked with wrong size!
  1118.   fi
  1119.   # end of 'src/loop.c'
  1120. fi
  1121. if test -f 'src/mail.c' -a "${1}" != "-c" ; then 
  1122.   echo shar: Will not clobber existing file \"'src/mail.c'\"
  1123. else
  1124.   echo shar: Extracting \"'src/mail.c'\" \(22275 characters\)
  1125.   sed "s/^X//" >'src/mail.c' <<'END_OF_FILE'
  1126. X/***************************************************************************/
  1127. X/*        PROGRAMM  ix/Mbox                           */
  1128. X/*             DATEI  mail.c                           */
  1129. X/*        FUNKTIONEN  brief()                           */
  1130. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1131. X/*  LETZTE AENDERUNG  16.11.1992                       */
  1132. X/***************************************************************************/
  1133. X
  1134. X#include <sys/types.h>
  1135. X#include <sys/stat.h>
  1136. X#include <unistd.h>
  1137. X#include <stdio.h>
  1138. X#include <fcntl.h>
  1139. X#include <time.h>
  1140. X
  1141. X#include "mbox.h"
  1142. X
  1143. X
  1144. X
  1145. X/***************************************************************************/
  1146. X/*      FUNKTION  brief()                           */
  1147. X/*  BESCHREIBUNG  Eine persoenliche Nachricht wird verschickt. Je nach     */
  1148. X/*          Empfaenger-Adresse und Parameter wird die Post ins       */
  1149. X/*          MBox-interne Mailsystem geschickt, oder an MAIL          */
  1150. X/*          weitergleitet. Die Adresse des Empfaengers wird ent-     */
  1151. X/*          weder als Parameter uebergeben, oder aus einer Datei     */
  1152. X/*          gefiltert, auf die geantwortet werden soll (REPLY-Mode). */
  1153. X/*     PARAMETER  arg  =  "~REPLY~"    =  REPLY-Modus aktivieren           */
  1154. X/*          arg  =  "Empfaenger" =  verwertbare Adresse fuer das     */
  1155. X/*              interen Mail-System oder MAIL.                   */
  1156. X/*     RUECKGABE   -1  =  Abbruch                                          */
  1157. X/***************************************************************************/
  1158. X
  1159. Xint brief(arg)
  1160. Xunsigned char arg[];
  1161. X{
  1162. X  FILE *fp;
  1163. X  FILE *ff;
  1164. X  FILE *ft;
  1165. X  int fd;
  1166. X  int i, j;
  1167. X  int ok;
  1168. X  struct userdaten LOOSER;
  1169. X
  1170. X  time_t timer;
  1171. X  struct tm *timeptr;
  1172. X
  1173. X  int receiver;
  1174. X  int mail_id;
  1175. X  int EX_PM = 0;
  1176. X  int REPLY = 0;
  1177. X  int lines = 0;
  1178. X  int WEITERLEITEN = 0;
  1179. X  int HOLD = 0;
  1180. X  int UMLEITUNG = 0;
  1181. X  int KOPIE = 0;
  1182. X
  1183. X  unsigned char s[STRING];
  1184. X  unsigned char t[STRING];
  1185. X  unsigned char TEP[STRING];
  1186. X  unsigned char REP[STRING];
  1187. X  unsigned char f[STRING];
  1188. X  unsigned char subject[STRING];
  1189. X  unsigned char from[STRING];
  1190. X  unsigned char rec_char[STRING];
  1191. X  unsigned char ex[LONGSTRING];
  1192. X  unsigned char user[STRING];
  1193. X  unsigned char mesg_id[STRING];
  1194. X  unsigned char refs[STRING];
  1195. X  unsigned char date[STRING];
  1196. X  unsigned char c;
  1197. X  unsigned char protokoll;
  1198. X  unsigned char lf;
  1199. X  unsigned char pubdir[STRING];
  1200. X  unsigned char dummy[STRING];
  1201. X  unsigned char username[STRING];
  1202. X  unsigned char reply[STRING];
  1203. X  unsigned char priority[STRING];
  1204. X  unsigned char action[STRING];
  1205. X  unsigned char cc[STRING];
  1206. X  unsigned char bcc[STRING];
  1207. X  unsigned char encrypted[STRING];
  1208. X  unsigned char comments[STRING];
  1209. X  unsigned char keywords[STRING];
  1210. X  unsigned char fortune[STRING];
  1211. X  unsigned char content[STRING];
  1212. X  unsigned char receipt[STRING];
  1213. X
  1214. X  long cont_length = 0;
  1215. X
  1216. X  unsigned char YOUR_SITE[STRING];
  1217. X
  1218. X  int BINFILE;
  1219. X  int news_reply = 0;
  1220. X
  1221. X  struct stat fst;
  1222. X
  1223. X
  1224. X  i = 0;
  1225. X  ok = 0;
  1226. X
  1227. X  mesg_id[0] = '\0';
  1228. X
  1229. X  if (arg[0] == '\0') {
  1230. X    ansi("md");
  1231. X    printf(" %s\n", MAL03_MSG);
  1232. X    ansi("me");
  1233. X    return -1;
  1234. X  }
  1235. X  EX_PM = 0;
  1236. X
  1237. X  i = 0;
  1238. X  strcpy(t, USER.name);
  1239. X  while (t[i] != '\0') {
  1240. X    if (t[i] == ' ') t[i] = '.';
  1241. X    i++;
  1242. X  }
  1243. X  strcpy(username, t);
  1244. X  action[0] = '\0';
  1245. X  priority[0] = '\0';
  1246. X  encrypted[0] = '\0';
  1247. X  keywords[0] = '\0';
  1248. X  comments[0] = '\0';
  1249. X  cc[0] = '\0';
  1250. X  bcc[0] = '\0';
  1251. X  fortune[0] = '\0';
  1252. X  content[0] = '\0';
  1253. X  receipt[0] = '\0';
  1254. X
  1255. X#ifdef _UMLAUT
  1256. X  if(UMLAUT_MODUS < 3) strcpy(content, (unsigned char *) "text/plain; charset=iso-8859-1");
  1257. X#endif
  1258. X
  1259. X  i = 0;
  1260. X  while (arg[i] != '\0') {
  1261. X    if ((arg[i] == '!') || (arg[i] == '@') || (arg[i] == '%')) EX_PM++;
  1262. X    i++;
  1263. X  }
  1264. X
  1265. X  if ((EX_PM > 0) && (USER.level < MAILOUT_LEV)) {
  1266. X    ansi("md");
  1267. X    printf("\n\n%s (%d) %s\n", MAL04_MSG, MAILOUT_LEV, MAL05_MSG);
  1268. X    ansi("me");
  1269. X    return -1;
  1270. X  }
  1271. X
  1272. X  if(arg[length(arg) -1] == '?'){
  1273. X    arg[length(arg) -1] = '$';
  1274. X    HOLD++;
  1275. X    KOPIE++;
  1276. X  }
  1277. X
  1278. X  if(arg[length(arg) -1] == '$'){
  1279. X    WEITERLEITEN++;
  1280. X    arg[length(arg) -1] = '\0';
  1281. X    sprintf(TEP, "%s/usr/%d/.lastletter", HOME, USER.id);
  1282. X    sprintf(t, "%s/usr/%d/.lastsubject", HOME, USER.id);
  1283. X    fp = fopen( t, "r" );
  1284. X    if(fp == NULL) {
  1285. X        return -1; 
  1286. X    }
  1287. X    fgets(s, 80, fp);
  1288. X    fclose(fp);
  1289. X    if(HOLD == 0){
  1290. X        sprintf(subject, "%s %s", MAL06_MSG, s);
  1291. X        UMLEITUNG++;
  1292. X    }else
  1293. X        sprintf(subject, "%s", s);
  1294. X  }
  1295. X
  1296. X  user[0] = '\0';
  1297. X  strcat(user, arg);
  1298. X
  1299. X  if(WEITERLEITEN != 0) goto TRY_AGAIN;
  1300. X
  1301. X  if (strcomp("~REPLY~", arg) == 0) {
  1302. X    REPLY++;
  1303. X    sprintf(REP, "%s/%dRep", TMP, getpid());
  1304. X    sprintf(TEP, "%s/%dTep", TMP, getpid());
  1305. X    fp = fopen(REP, "r");
  1306. X    if (fp == NULL) {
  1307. X        nerror("mail.c", 278, "brief", "Datei-Lesefehler", REP);
  1308. X    }
  1309. X    fgets(s, 80, fp    );            /* HEADER: Autor */
  1310. X
  1311. X    sprintf(dummy, "%s %s", GBL01_MSG, X_MAIL_DEMON);
  1312. X
  1313. X    if ((strcomp(GBL01_MSG, s) == 0) && (strcomp(dummy, s) != 0)) {
  1314. X        strcpy(user, (unsigned char *) strcopy(s, (1+strlen(GBL01_MSG)), 80));
  1315. X
  1316. X        fgets(s, 80, fp);        /* HEADER: Datum */
  1317. X        fgets(s, 80, fp);        /* HEADER: Betreff */
  1318. X
  1319. X        strcpy(t, (unsigned char *) strcopy(s, (1+strlen(GBL03_MSG)), 80));
  1320. X        subject[0]= '\0';
  1321. X        if (strcomp("Re: ", t) != 0) {
  1322. X            strcpy(subject, "Re: ");
  1323. X        }
  1324. X        strcat(subject, (unsigned char *) stripped(t));
  1325. X
  1326. X        fgets(s, 80, fp);    /* HEADER: Leer */
  1327. X        fgets(s, 80, fp);    /* HEADER: Leer */
  1328. X    }
  1329. X    else {        /* UUCP-Header (!MBox) */
  1330. X
  1331. X        sprintf(subject, MAL07_MSG);
  1332. X        refs[0] = '\0';
  1333. X        mesg_id[0] = '\0';
  1334. X
  1335. X        ok = -1;
  1336. X
  1337. X        while ((ok < 1) && (fgets(s, 80, fp) != NULL)) {
  1338. X            if (strcomp("Lines: ", s)      == 0) ok = 1;
  1339. X            if (strcomp("Date: ",  s)      == 0) {
  1340. X                strcpy(date, (unsigned char *) strcopy(s, 6, 80));
  1341. X            }
  1342. X            if (strcomp("Newsgroups: ", s) == 0) news_reply++;
  1343. X            if (strcomp("Subject: ", s)    == 0) {
  1344. X                subject[0] = '\0';
  1345. X                strcpy(t, (unsigned char *) strcopy(s, 9, 80));
  1346. X                if (strcomp("Re: ", t) != 0) {
  1347. X                    sprintf(subject, "%s", "Re: ");
  1348. X                }
  1349. X                strcat(subject, (unsigned char *) stripped(t));
  1350. X            }
  1351. X            if (strcomp("Message-Id: ", s) == 0) {
  1352. X                strcpy(mesg_id, (unsigned char *) strcopy(s, 12, 80));
  1353. X            }
  1354. X            if (strcomp("From: ", s) == 0) {
  1355. X                strcpy(from, (unsigned char *) strcopy(s, 6, 80));
  1356. X                ok = 0;
  1357. X            }
  1358. X            if (strcomp("From ", s) == 0) {
  1359. X                strcpy(from, (unsigned char *) strcopy(s, 5, 80));
  1360. X                ok = 0;
  1361. X            }
  1362. X            if (strcomp("References: ", s) == 0) {
  1363. X                strcpy(refs, (unsigned char *) strcopy(s, 12, 80));
  1364. X            }
  1365. X            if (strcomp("Comments: ", s) == 0) {
  1366. X                strcpy(comments, (unsigned char *) strcopy(s, 10, 80));
  1367. X                strcpy(comments, (unsigned char *) stripped(comments));    
  1368. X            }
  1369. X            if (strcomp("Keywords: ", s) == 0) {
  1370. X                strcpy(keywords, (unsigned char *) strcopy(s, 10, 80));
  1371. X                strcpy(keywords, (unsigned char *) stripped(keywords));
  1372. X            }
  1373. X            if (strcomp("Content-Type: ", s) == 0) {
  1374. X                strcpy(content, (unsigned char *) strcopy(s, 14, 80));
  1375. X                strcpy(content, (unsigned char *) stripped(content));
  1376. X            }
  1377. X
  1378. X            if ((strlen(s) < 5) && (ok == 0)) ok = 1;
  1379. X        }
  1380. X    }
  1381. X
  1382. X    ff = fopen(TEP, "w");
  1383. X    while (fgets(s, 80, fp) != NULL) {
  1384. X        if(s[0] != '\n') fputs("> ", ff);
  1385. X        fputs((unsigned char *) iso_line(s), ff);
  1386. X    }
  1387. X    fputs("", ff);
  1388. X    fclose(ff);
  1389. X    fclose(fp);
  1390. X  }
  1391. X
  1392. X  TRY_AGAIN:
  1393. X
  1394. X  if((WEITERLEITEN != 0) && (EX_PM != 0)){
  1395. X    sprintf(rec_char, "%s", user);
  1396. X    if(checkdomaintype( rec_char ) != 0) return -1;
  1397. X    goto ONCE_MORE;
  1398. X  }
  1399. X
  1400. X  receiver = 0;
  1401. X
  1402. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  1403. X  fd = open(UDBASE, O_RDONLY);
  1404. X  if (fd == -1) {
  1405. X    nerror("mail.c", 216, "brief", "Datei-Lesefehler", UDBASE);
  1406. X  }
  1407. X  lseek(fd, 0L, SEEK_SET);
  1408. X  while ((receiver == 0) && (read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER))) {
  1409. X    if ((strcomp(user, LOOSER.name) == 0) ||
  1410. X        (strcomp(LOOSER.name, user) == 0) ||
  1411. X        (strcomp(user, LOOSER.nick) == 0) ||
  1412. X        (strcomp(user, LOOSER.sh_name) == 0)) {
  1413. X        receiver = LOOSER.id;
  1414. X        strcpy(rec_char, LOOSER.name);
  1415. X    }
  1416. X  }
  1417. X  close(fd);
  1418. X  mbunlock(UDBASE);
  1419. X
  1420. X  if ((receiver == 0) && (EX_PM == 0)) {
  1421. X
  1422. X    if (REPLY != 0) {
  1423. X        strcpy(user, fetch_reciepy(REP));
  1424. X        if (fetch_local == 1) goto TRY_AGAIN;
  1425. X        strcpy(rec_char, (unsigned char *) stripped(user));
  1426. X        if (strcomp(user, "OOPS") == 0) {
  1427. X            ansi("md");
  1428. X            printf("\n\n%s\n", MAL08_MSG);
  1429. X            ansi("me ");
  1430. X            unlink(TEP);
  1431. X            unlink(REP); /* ??? */
  1432. X            return -1;
  1433. X        }
  1434. X        EX_PM = 1;
  1435. X        c = MAL13_MSG;
  1436. X        goto REPLY_MARK;
  1437. X    }
  1438. X    else {
  1439. X        ansi("md");
  1440. X        strcpy(rec_char, (unsigned char *) stripped(user));
  1441. X        printf("\n\n%s \"%s\" %s\n", MAL09_MSG, user, MAL10_MSG);
  1442. X        ansi("me");
  1443. X        if(WEITERLEITEN == 0) unlink(TEP);
  1444. X        unlink(REP);
  1445. X        return -1;
  1446. X    }
  1447. X  }
  1448. X
  1449. X  if(WEITERLEITEN != 0) goto ONCE_MORE;
  1450. X
  1451. X  unlink(REP);
  1452. X
  1453. X  if (EX_PM == 0) {
  1454. X    ansi("md");
  1455. X    sprintf(s, "%s/usr/%d/.hello", HOME, receiver);
  1456. X    printf("\n\n");
  1457. X    show(s, 22, 0);
  1458. X    ansi("me");
  1459. X  }
  1460. X  else {
  1461. X    strcpy(rec_char, arg);
  1462. X  }
  1463. X
  1464. X  if(checkdomaintype( rec_char ) != 0) return -1;
  1465. X
  1466. X  if (REPLY != 0) {
  1467. X    c = MAL13_MSG;
  1468. X    goto REPLY_MARK;
  1469. X  }
  1470. X  printf("\n\n");
  1471. X  ansi("mr");
  1472. X  printf("[%s \"%s\"] %s, ? > ", MAL11_MSG, rec_char, MAL12_MSG);
  1473. X  ansi("me");
  1474. X  printf("%c%c", MAL13_MSG, BS);
  1475. X
  1476. X  do {
  1477. X    c = getint();
  1478. X    if (c >= 97) c -= 32;
  1479. X    if (c == '?') {
  1480. X        clearline();
  1481. X        ansi("mr");
  1482. X        printf("%c%s > ", CR, MAL16_MSG);
  1483. X        ansi("me");
  1484. X    }
  1485. X    if (c == ENTER) c = MAL13_MSG;
  1486. X    if ((c != MAL13_MSG) && (c != MAL14_MSG) && (c != MAL15_MSG)) c = 0;
  1487. X  } while (c == 0);
  1488. X
  1489. X  printf("%c", c);
  1490. X
  1491. X  if (c == MAL15_MSG) {        /* VERWERFEN */
  1492. X    unlink(REP);
  1493. X    unlink(TEP);
  1494. X    printf("\n");
  1495. X    return -1;
  1496. X  }
  1497. X  sprintf(TEP, "%s/M%d", TMP, getpid());
  1498. X  sprintf(pubdir, "%s/dir%d", TMP, getpid());
  1499. X
  1500. X  if (c == MAL14_MSG) {        /* UPLOAD */
  1501. X    clearline();
  1502. X    ansi("mr");
  1503. X    printf("%c%s, ? > ", CR, MAL17_MSG);
  1504. X    ansi("me");
  1505. X
  1506. X    do {
  1507. X        protokoll = getint();
  1508. X        if (protokoll >= 97) protokoll -= 32;
  1509. X        if (protokoll == '?') {
  1510. X            clearline();
  1511. X            ansi("mr");
  1512. X            printf("%c%s > ", CR, MAL17aMSG);
  1513. X            ansi("me");
  1514. X        }
  1515. X        if ((protokoll != MAL18_MSG) && (protokoll != MAL18_MSG) &&
  1516. X            (protokoll != MAL20_MSG) && (protokoll != MAL21_MSG))
  1517. X            protokoll = 0;
  1518. X    } while (protokoll == 0);
  1519. X
  1520. X    printf("%c", protokoll);
  1521. X
  1522. X  }
  1523. X  printf("\n\n%c", CR);
  1524. X  ansi("mr");
  1525. X  printf("%s ", MAL22_MSG);
  1526. X  ansi("me");
  1527. X  printf(" %s (%s)\n%c", USER.name, USER.nick, CR);
  1528. X  ansi("mr");
  1529. X  printf("%s ", MAL23_MSG);
  1530. X  ansi("me");
  1531. X  printf(" %s\n%c", rec_char, CR);
  1532. X  ansi("mr");
  1533. X  printf("%s ", MAL24_MSG);
  1534. X  ansi("me");
  1535. X  printf(" ");
  1536. X  strcpy(subject, (unsigned char *) getline(50, -11, '.', ""));
  1537. X  printf("\n");
  1538. X  ansi("mr");
  1539. X  printf("%s ", MAL23aMSG);
  1540. X  ansi("me");
  1541. X  printf(" ");
  1542. X  strcpy(cc, (unsigned char *) getline(50, -11, '.', ""));
  1543. X
  1544. X  REPLY_MARK:
  1545. X
  1546. X  if(checkdomaintype( rec_char ) != 0) return -1;
  1547. X
  1548. X  if (c == MAL13_MSG) {
  1549. X    sprintf(s, "%s %s", EDDY, TEP);
  1550. X    noctrlx();
  1551. X    system(s);
  1552. X    ctrlx();
  1553. X    protokoll = '*';
  1554. X  }
  1555. X  else {            /* UPLOAD */
  1556. X
  1557. X    printf("\n\n");
  1558. X    printf("%s\n\n", MAL25_MSG); 
  1559. X    ansi("md");
  1560. X    printf("%s", MAL26_MSG);
  1561. X    ansi("me");
  1562. X          
  1563. X    unlink( TEP );
  1564. X    
  1565. X    switch (protokoll) {
  1566. X        case MAL18_MSG:
  1567. X            fp = fopen(TEP, "w");
  1568. X            if (fp == NULL) {
  1569. X                nerror("mail.c", 268, "brief", "DSF", TEP);
  1570. X            }
  1571. X            c = 0;
  1572. X            lf = CR;
  1573. X
  1574. X            fputc(LF, fp);
  1575. X
  1576. X            while ((c != CTRL_X) && (c != CTRL_D)) {
  1577. X                c = getint();
  1578. X                if ((c == CR) && (lf == CR)) fputc(LF, fp);
  1579. X                if (c == CR) lf = CR;
  1580. X                if (c == LF) lf = LF;
  1581. X                if ((c != CTRL_X) && (c != CTRL_D) && (c != CR)) {
  1582. X                    fputc(c, fp);
  1583. X                }
  1584. X            }
  1585. X            fclose(fp);
  1586. X            break;
  1587. X
  1588. X        case MAL19_MSG:
  1589. X            printf("\n");
  1590. X            sprintf(s, "exec %s -bc TimeTravelAgency", RX);
  1591. X            break;
  1592. X        case MAL20_MSG:
  1593. X            printf("\n");
  1594. X            sprintf(s, "exec %s -b", RB);
  1595. X            break;
  1596. X        case MAL21_MSG:
  1597. X            printf("\n");
  1598. X            sprintf(s, "exec %s -b", RZ);
  1599. X            break;
  1600. X    }
  1601. X    if (protokoll != MAL18_MSG){
  1602. X        mkdir( pubdir, 0777 );
  1603. X        chdir( pubdir );
  1604. X
  1605. X        system( s );
  1606. X
  1607. X        chdir( HOME );
  1608. X        sprintf(s, "mv %s/* %s", pubdir, TEP);
  1609. X        system( s );
  1610. X        sprintf(s, "rm -r %s", pubdir);
  1611. X        system( s );
  1612. X    }
  1613. X    sync();
  1614. X    stat(TEP, &fst);
  1615. X    if (fst.st_size < 3L) {
  1616. X        printf("\n\n%s\n", MAL27_MSG);
  1617. X        control(MAL28_MSG, 3);
  1618. X        unlink(REP);    /* ??? */
  1619. X        unlink(TEP);
  1620. X        return -1;
  1621. X    }    
  1622. X    if (prf(TEP) == 1) {
  1623. X        printf("\n\n");
  1624. X        ansi( "md" );
  1625. X        printf("%s", MAL25_MSG);        
  1626. X        ansi( "me" );
  1627. X        unlink(REP);     /* ??? */
  1628. X        unlink(TEP);
  1629. X        return -1;
  1630. X        BINFILE++;
  1631. X    }
  1632. X    else{
  1633. X        mkix(TEP);
  1634. X    }
  1635. X  }
  1636. X
  1637. X  sprintf(reply, "%s <%s@%s>", USER.name, username, UUCPID);
  1638. X
  1639. X  ONCE_MORE:
  1640. X
  1641. X    
  1642. X  if((HOLD != 0) || ((WEITERLEITEN != 0) && (IS_BUFFERED != 0))) goto HOLD_MARK;
  1643. X
  1644. X  printf("\n\n");
  1645. X  ansi("mr");
  1646. X  printf("[%s \"%s\"] %s, ? > ", MAL11_MSG, rec_char, MAL28aMSG);
  1647. X  ansi("me");
  1648. X  printf("%c%c", MAL29_MSG, BS);
  1649. X
  1650. X  do {
  1651. X    c = getint();
  1652. X    if (c >= 97) c -= 32;
  1653. X    if (c == '?') {
  1654. X        clearline();
  1655. X        ansi("mr");
  1656. X        printf("%c%s > ", CR, MAL32_MSG);
  1657. X        ansi("me");
  1658. X    }
  1659. X    if (c == ENTER) c = MAL29_MSG;
  1660. X    if ((c != MAL29_MSG) && (c != MAL30_MSG) && (c != MAL30aMSG) &&  (c != MAL31_MSG) && (c != MAL31aMSG)) c = 0;
  1661. X  } while (c == 0);
  1662. X
  1663. X  printf("%c", c);
  1664. X
  1665. X  if (c == MAL31_MSG) {        /* WEITERSCHREIBEN */
  1666. X    sprintf(s, "%s %s", EDDY, TEP);
  1667. X    noctrlx();
  1668. X    system(s);
  1669. X    ctrlx();
  1670. X    goto ONCE_MORE;
  1671. X  }
  1672. X  if (c == MAL30_MSG) {        /* VERWERFEN */
  1673. X    printf("\n");
  1674. X    unlink(TEP);
  1675. X    unlink(REP);
  1676. X    return -1;
  1677. X  }
  1678. X  if (c == MAL31aMSG) {        /* HEADER */
  1679. X    headline( MAL32aMSG );
  1680. X    printf("\n");
  1681. X
  1682. X    time(&timer);
  1683. X
  1684. X    ansi( "md" );
  1685. X    printf("From: ");
  1686. X    ansi( "me" );
  1687. X    printf("%s <%s@%s>\n", USER.name, username, UUCPID);
  1688. X
  1689. X    ansi( "md" );
  1690. X    printf("Reply-To: ");
  1691. X    ansi( "me" );
  1692. X    if(USER.level > GUEST_LEV){
  1693. X        strcpy(reply, (unsigned char *) getline(80, -1001, 32, reply));
  1694. X        printf("\n");
  1695. X    }
  1696. X    else printf("%s\n", reply);
  1697. X
  1698. X    ansi( "md" );
  1699. X    printf("Return-Receipt-To: ");
  1700. X    ansi( "me" );
  1701. X    if(USER.level > GUEST_LEV){
  1702. X        /*
  1703. X        if(receipt[0] == '\0') sprintf(receipt, (unsigned char *) "%s@%s",  username, UUCPID);
  1704. X        */
  1705. X        strcpy(receipt, (unsigned char *) getline(80, -1001, 32, receipt));
  1706. X        printf("\n");
  1707. X    }
  1708. X
  1709. X    i = 0; j = 0;            /* Empfaenger: Realname */
  1710. X    while(from[i] != '\0'){
  1711. X        if(from[i] == '<'){
  1712. X            strcpy(s, (unsigned char *) strcopy(from, 0, (i-1)));
  1713. X            j = i;
  1714. X        }
  1715. X        if(from[i] == '(') j = i+1;
  1716. X        if(from[i] == ')') strcpy(s, (unsigned char *) strcopy(from, j, (i-1)));
  1717. X        i++;
  1718. X    }
  1719. X    if(j == 0) strcpy(s, from);
  1720. X        
  1721. X    if(mesg_id[0] != '\0'){
  1722. X        ansi( "md" );
  1723. X        printf("In-Reply-To: ");
  1724. X        ansi( "me" );
  1725. X        printf("%s; ", (unsigned char *) stripped(mesg_id)); 
  1726. X        printf("from \"%s\" at %s", (unsigned char *) stripped(s), date);
  1727. X
  1728. X        if(refs[0] != '\0') 
  1729. X            sprintf(s, "%s ", stripped(refs));
  1730. X        else
  1731. X            s[0] = '\0';
  1732. X        strcat(s, mesg_id);
  1733. X        ansi( "md" );
  1734. X        printf("References: ");
  1735. X        ansi( "me" );
  1736. X        printf("%s", s);
  1737. X    }
  1738. X
  1739. X    ansi( "md" );
  1740. X    printf("To: ");
  1741. X    ansi( "me" );
  1742. X    if(USER.level > GUEST_LEV){
  1743. X        strcpy(rec_char, (unsigned char *) getline(80, -1001, 32, rec_char));
  1744. X        printf("\n");
  1745. X    }
  1746. X    else printf("%s\n", rec_char);
  1747. X
  1748. X    ansi( "md" );
  1749. X    printf("Cc: ");
  1750. X    ansi( "me" );
  1751. X    if(USER.level > GUEST_LEV){
  1752. X        strcpy(cc, (unsigned char *) getline(80, -1001, 32, cc));
  1753. X        printf("\n");
  1754. X    }
  1755. X    else printf("%s\n", cc);
  1756. X
  1757. X    ansi( "md" );
  1758. X    printf("Bcc: ");
  1759. X    ansi( "me" );
  1760. X    if(USER.level > GUEST_LEV){
  1761. X        strcpy(bcc, (unsigned char *) getline(80, -1001, 32, bcc));
  1762. X        printf("\n");
  1763. X    }
  1764. X    else printf("%s\n", bcc);
  1765. X
  1766. X
  1767. X    ansi( "md" );
  1768. X    printf("Subject: ");
  1769. X    ansi( "me" );
  1770. X    if(USER.level > GUEST_LEV){
  1771. X        strcpy(subject, (unsigned char *) getline(80, -1001, 32, subject));
  1772. X        printf("\n");
  1773. X    }
  1774. X    else printf("%s\n", subject);
  1775. X
  1776. X    ansi( "md" );
  1777. X    printf("Keywords: ");
  1778. X    ansi( "me" );
  1779. X    if(USER.level > GUEST_LEV){
  1780. X        strcpy(keywords, (unsigned char *) getline(80, -1001, 32, keywords));
  1781. X        printf("\n");
  1782. X    }
  1783. X    else printf("%s\n", keywords);
  1784. X
  1785. X    ansi( "md" );
  1786. X    printf("Comments: ");
  1787. X    ansi( "me" );
  1788. X    if(USER.level > GUEST_LEV){
  1789. X        strcpy(comments, (unsigned char *) getline(80, -1001, 32, comments));
  1790. X        printf("\n");
  1791. X    }
  1792. X    else printf("%s\n", comments);
  1793. X
  1794. X    ansi( "md" );
  1795. X    printf("Encrypted: ");
  1796. X    ansi( "me" );
  1797. X    if(USER.level > GUEST_LEV){
  1798. X        strcpy(encrypted, (unsigned char *) getline(80, -1001, 32, encrypted));
  1799. X        printf("\n");
  1800. X    }
  1801. X    else printf("%s\n", encrypted);
  1802. X
  1803. X#ifdef _MULTIMEDIA
  1804. X    ansi( "md" );
  1805. X    printf("MIME-Version: ");
  1806. X    ansi( "me" );
  1807. X    printf("%s\n", MIME_VERSION);
  1808. X
  1809. X    if(USER.level >= WRITE_INTERNAT){
  1810. X        if(content[0] == '\0')
  1811. X            strcpy(content, (unsigned char *) "text/plain; charset=us-ascii");
  1812. X        ansi( "md" ); 
  1813. X        printf("Content-Type: ");
  1814. X        ansi( "me" );
  1815. X        strcpy(content, (unsigned char *) getline(80, -1001, 32, content));
  1816. X        printf("\n");
  1817. X    }
  1818. X#endif
  1819. X
  1820. X    ansi( "md" );
  1821. X    printf("X-Mailer: ");
  1822. X    ansi( "me" );
  1823. X    printf("%s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  1824. X
  1825. X    ansi( "md" );
  1826. X    printf("Priority: ");
  1827. X    ansi( "me" );
  1828. X    if(USER.level > GUEST_LEV){
  1829. X        strcpy(priority, (unsigned char *) getline(80, -1001, 32, priority));
  1830. X        printf("\n");
  1831. X    }
  1832. X    else printf("%s\n", priority);
  1833. X
  1834. X    ansi( "md" );
  1835. X    printf("Action: ");
  1836. X    ansi( "me" );
  1837. X    if(USER.level > GUEST_LEV){
  1838. X        strcpy(action, (unsigned char *) getline(80, -1001, 32, action));
  1839. X        printf("\n");
  1840. X    }
  1841. X    else printf("%s\n", action);
  1842. X
  1843. X    ansi( "md" );
  1844. X    printf("X-Fortune: ");
  1845. X    ansi( "me" );
  1846. X    if(USER.level > GUEST_LEV){
  1847. X        strcpy(fortune, (unsigned char *) getline(80, -1001, 32, fortune));
  1848. X        printf("\n");
  1849. X    }
  1850. X    else printf("%s\n", fortune);
  1851. X
  1852. X
  1853. X    ansi( "md" );
  1854. X    printf("Message-Id: ");
  1855. X    ansi( "me" );
  1856. X       printf("<%x.%d@%s>\n", timer, USER.id, UUCPID);
  1857. X
  1858. X    goto ONCE_MORE;
  1859. X  }
  1860. X
  1861. X
  1862. X  HOLD_MARK:
  1863. X
  1864. X  if((UMLEITUNG == 0) && (WEITERLEITEN == 0) && (strcomp(TMP, TEP) == 0)){
  1865. X    sprintf(s, "cp %s %s/usr/%d/.lastletter > /dev/null", TEP, HOME, USER.id);
  1866. X    system( s );     
  1867. X    sprintf(s, "%s/usr/%d/.lastsubject", HOME, USER.id);
  1868. X    fp = fopen( s, "w" );
  1869. X    if(fp == NULL){
  1870. X        nerror("mail.c", 500, "brief", "Datei-Schreibfehler", s);
  1871. X    }
  1872. X    fprintf(fp, "%s", subject);
  1873. X    fclose(fp);
  1874. X  }
  1875. X
  1876. X
  1877. X  if (EX_PM == 0) {
  1878. X    sprintf(s, "%s/usr/%d/seq", HOME, receiver);
  1879. X    maybe_locked(s, "r");
  1880. X    fp = fopen(s, "r");
  1881. X    if (fp == NULL) {
  1882. X        nerror("mail.c", 431, "brief", "Datei-Lesefehler", s);
  1883. X    }
  1884. X    fscanf(fp, "%d", &mail_id);
  1885. X    fclose(fp);
  1886. X    fp = fopen(s, "w");
  1887. X    fprintf(fp, "%d\n", (mail_id + 1));
  1888. X    fclose(fp);
  1889. X
  1890. X    sprintf(s, "%s/usr/%d/%d", HOME, receiver, mail_id);
  1891. X  }
  1892. X  else {
  1893. X    umask(0000);
  1894. X    sprintf(s, "%s/%d.expm", TMP, getpid());
  1895. X  }
  1896. X
  1897. X
  1898. X  fp = fopen(s, "w");
  1899. X
  1900. X  if (EX_PM == 0) {
  1901. X    sprintf(s, "%s %s (%s)\n", GBL01_MSG, USER.name, USER.nick);
  1902. X    fputs(s, fp);
  1903. X
  1904. X    time(&timer);
  1905. X    timeptr = localtime(&timer);
  1906. X    strcpy(t, asctime(timeptr));
  1907. X
  1908. X    sprintf(s, "%s %s", GBL02_MSG, t);
  1909. X    fputs(s, fp);
  1910. X
  1911. X    sprintf(s, "%s %s\n\n", GBL03_MSG, subject);
  1912. X    fputs(s, fp);
  1913. X
  1914. X    fputs("Content-Type: text/richtext;\n", fp);
  1915. X
  1916. X    lines = 5;
  1917. X   }
  1918. X   else {
  1919. X    lines = 4;
  1920. X  }
  1921. X
  1922. X  ff = fopen(TEP, "r");
  1923. X  if (ff == 0) {
  1924. X    printf("\n\n");
  1925. X    ansi("md");
  1926. X    printf("%s\n", MAL33_MSG);
  1927. X    ansi("me");
  1928. X    control(MAL34_MSG, 3);
  1929. X    return;
  1930. X  }
  1931. X  stat(TEP, &fst);
  1932. X  cont_length = fst.st_size;
  1933. X
  1934. X  if(EX_PM != 0){
  1935. X
  1936. X    time(&timer);
  1937. X
  1938. X    i = 0; j = 0;            /* Empfaenger: Realname */
  1939. X    while(from[i] != '\0'){
  1940. X        if(from[i] == '<'){
  1941. X            strcpy(s, (unsigned char *) strcopy(from, 0, (i-1)));
  1942. X            j = i;
  1943. X        }
  1944. X        if(from[i] == '(') j = i+1;
  1945. X        if(from[i] == ')') strcpy(s, (unsigned char *) strcopy(from, j, (i-1)));
  1946. X        i++;
  1947. X    }
  1948. X    if(j == 0) strcpy(s, from);
  1949. X
  1950. X    fprintf(fp, "From: %s@%s (%s)\n", username, UUCPID, USER.name); 
  1951. X    if(reply[0] != '\0')
  1952. X        fprintf(fp, "Reply-To: %s\n", reply);
  1953. X    if(receipt[0] != '\0')
  1954. X        fprintf(fp, "Return-Receipt-To: %s\n", receipt);
  1955. X    fprintf(fp, "Organization: %s\n", ORGANIZATION);
  1956. X    if(mesg_id[0] != '\0'){
  1957. X        fprintf(fp, "In-Reply-To: %s; ", (unsigned char *) stripped(mesg_id)); 
  1958. X        fprintf(fp, "from \"%s\" at %s", (unsigned char *) stripped(s), date);
  1959. X        if(refs[0] != '\0') 
  1960. X            sprintf(s, "%s ", stripped(refs));
  1961. X        else
  1962. X            s[0] = '\0';
  1963. X        strcat(s, mesg_id);
  1964. X        fprintf(fp, "References: %s", s);
  1965. X    }
  1966. X        fprintf(fp, "To: %s\n", rec_char);
  1967. X    if(cc[0] != '\0')
  1968. X        fprintf(fp, "Cc: %s\n", cc);
  1969. X
  1970. X    sprintf(s, "%s/usr/%d/.face", HOME, USER.id); /* X-Face ??? */
  1971. X    ft = fopen( s, "r" );
  1972. X    if(ft != NULL){
  1973. X        while(fgets(s, 70, ft) != NULL){
  1974. X            fprintf(fp, "X-Face: %s\n", (unsigned char *) stripped(s));
  1975. X        }
  1976. X        fclose(ft);
  1977. X    }
  1978. X
  1979. X    if(subject[0] != '\0')
  1980. X        fprintf(fp, "Subject: %s\n", subject);
  1981. X    if(keywords[0] != '\0')
  1982. X        fprintf(fp, "Keywords: %s\n", keywords);
  1983. X    if(comments[0] != '\0')
  1984. X        fprintf(fp, "Comments: %s\n", comments);
  1985. X    if(encrypted[0] != '\0')
  1986. X        fprintf(fp, "Encrypted: %s\n", encrypted);
  1987. X
  1988. X#ifdef _MULTIMEDIA
  1989. X    fprintf(fp, "MIME-Version: %s\n", MIME_VERSION);
  1990. X    if(content[0] != '\0'){
  1991. X        fprintf(fp, "Content-Type: %s\n", content);
  1992. X        if(UMLAUT_MODUS < 3) fprintf(fp, "Content-Transfer-Encoding: 8bit\n");
  1993. X        fprintf(fp, "Content-Length: %ld\n", cont_length);
  1994. X    }
  1995. X#endif
  1996. X    fprintf(fp, "X-Mailer: %s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  1997. X    if(priority[0] != '\0')
  1998. X        fprintf(fp, "Priority: %s\n", priority);
  1999. X    if(action[0] != '\0')
  2000. X        fprintf(fp, "Action: %s\n", action);
  2001. X    if(fortune[0] != '\0')
  2002. X        fprintf(fp, "X-Fortune: %s\n", fortune);
  2003. X       fprintf(fp, "Message-Id: <%x.%d@%s>\n", timer, USER.id, UUCPID);
  2004. X     fputs("\n", fp);
  2005. X  }
  2006. X
  2007. X  UMLAUT_MODUS = 1;
  2008. X  while (fgets(s, 80, ff) != 0) {
  2009. X    fputs((unsigned char *) iso_line(s), fp);
  2010. X    lines++;
  2011. X  }
  2012. X  fclose(ff);
  2013. X
  2014. X  if(UMLEITUNG == 0){
  2015. X      sprintf(s, "%s/usr/%d/.signature", HOME, USER.id);
  2016. X      ff = fopen(s, "r");
  2017. X      if (ff != NULL) {
  2018. X        while (fgets(s, 80, ff) != 0) {
  2019. X            fputs((unsigned char *) iso_line(s), fp);
  2020. X            lines++;
  2021. X        }
  2022. X        fclose(ff);
  2023. X      }
  2024. X  }
  2025. X
  2026. X  UMLAUT_MODUS = USER.schluessel[2];
  2027. X
  2028. X  if(WEITERLEITEN == 0) unlink(TEP);
  2029. X  fclose(fp);
  2030. X
  2031. X  if (EX_PM == 0) {
  2032. X    sprintf(s, "%s/usr/%d/INDEX", HOME, receiver);
  2033. X    maybe_locked(s, "r"); 
  2034. X    fp = fopen(s, "a");
  2035. X    if (fp == NULL) {
  2036. X        nerror("mail.c", 527, "brief", "Datei-Ergaenzungsfehler", s);
  2037. X    }
  2038. X    sprintf(s, "%d              ", mail_id);
  2039. X    s[6] = '\0';
  2040. X    if(HOLD != 0){
  2041. X        s[5] = '>';
  2042. X    }
  2043. X    fputs(s, fp);
  2044. X
  2045. X    sprintf(ex, "%s                                ", subject);
  2046. X    ex[26] = '\0';
  2047. X    fputs(ex, fp);
  2048. X
  2049. X    sprintf(ex, "  %s                                        ", USER.name);
  2050. X    ex[22] = '\0';
  2051. X    fputs(ex, fp);
  2052. X
  2053. X    strcpy(s, (unsigned char *) mydate(1));
  2054. X    strcpy(t, (unsigned char *) mytime(1));
  2055. X    sprintf(ex, "  %s  %s         ", s, t);
  2056. X    ex[19] = '\0';
  2057. X    fputs(ex, fp);
  2058. X
  2059. X    sprintf(s, "%-6.d\n", lines);
  2060. X    fputs(s, fp);
  2061. X
  2062. X    fclose(fp);
  2063. X  }
  2064. X  else {
  2065. X    sprintf(s, " X-Mail via UUCP (%s) ", rec_char);
  2066. X    headline(s);
  2067. X    printf("\n%s", MAL35_MSG);
  2068. X    sprintf(s, "%s/%d.expm", TMP, getpid());
  2069. X    sprintf(t, "/bin/sh ./etc/rmail.sh %s %s 2>&1 /dev/null", s, rec_char);
  2070. X    system(t);
  2071. X    unlink(s);
  2072. X    unlink(f);
  2073. X    umask(0007);
  2074. X    printf(" %s\n", MAL36_MSG);
  2075. X  }
  2076. X
  2077. X  unlink(REP);
  2078. X  if((UMLEITUNG == 0) && (WEITERLEITEN == 0)) unlink(TEP);
  2079. X
  2080. X  sprintf(s, "%s \"%s\" %s", MAL11_MSG, rec_char, MAL37_MSG);
  2081. X  control(s, 3);
  2082. X
  2083. X  printf("\n");
  2084. X
  2085. X
  2086. X#ifdef _PMCOPY
  2087. X
  2088. X  IS_BUFFERED = 0;
  2089. X
  2090. X  if(WEITERLEITEN == 0){
  2091. X      if((strcomp(POSTMASTER, LOOSER.sh_name) == 0) || (strcomp(POSTMASTER, LOOSER.nick) == 0)){
  2092. X        if(bcc[0] != '\0') strcat(bcc, ", ");
  2093. X        sprintf(s, "%s!root", UUCPSITE);
  2094. X        strcat(bcc, (unsigned char *) s);
  2095. X        IS_BUFFERED = 1;
  2096. X      }
  2097. X  }
  2098. X#endif
  2099. X
  2100. X  if((cc[0] != '\0') || (bcc[0] != '\0')){
  2101. X    carboncopy(cc, bcc);
  2102. X  }
  2103. X
  2104. X  return 0;
  2105. X}
  2106. END_OF_FILE
  2107.   if test 22275 -ne `wc -c <'src/mail.c'`; then
  2108.     echo shar: \"'src/mail.c'\" unpacked with wrong size!
  2109.   fi
  2110.   # end of 'src/mail.c'
  2111. fi
  2112. if test -f 'src/makro.c' -a "${1}" != "-c" ; then 
  2113.   echo shar: Will not clobber existing file \"'src/makro.c'\"
  2114. else
  2115.   echo shar: Extracting \"'src/makro.c'\" \(5585 characters\)
  2116.   sed "s/^X//" >'src/makro.c' <<'END_OF_FILE'
  2117. X/***************************************************************************/
  2118. X/*        PROGRAMM  ix/Mbox                           */
  2119. X/*             DATEI  makro.c                           */
  2120. X/*        FUNKTIONEN  makro()                           */
  2121. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  2122. X/*  LETZTE AENDERUNG  16.11.1991                       */
  2123. X/***************************************************************************/
  2124. X
  2125. X#include <stdio.h>
  2126. X
  2127. X#include "mbox.h"
  2128. X
  2129. X
  2130. Xvoid get_makros();
  2131. X
  2132. X/***************************************************************************/
  2133. X/*      FUNKTION  makro()                           */
  2134. X/*  BESCHREIBUNG  Makros auswerten                       */
  2135. X/*     PARAMETER  s  =  Eingabezeile                                       */
  2136. X/*     RUECKGABE  Eingabezeile mit Gegenwerten der Makros               */
  2137. X/***************************************************************************/
  2138. X
  2139. Xunsigned char *makro( s )
  2140. Xunsigned char s[];
  2141. X{
  2142. X  static unsigned char t[STRING];
  2143. X  unsigned char f[STRING];
  2144. X  int a = 0, b = 0, i = 0;
  2145. X  int m = 0, ok = 0;
  2146. X  int subcom = 0;
  2147. X
  2148. X  t[0] = '\0';
  2149. X
  2150. X  strcat(s, " ");
  2151. X
  2152. X  while(s[0] == ' ') *s++;
  2153. X
  2154. X  while(s[i] != '\0'){
  2155. X
  2156. X    if(s[i] == ' '){
  2157. X        b = i -1;
  2158. X        f[0] = '\0';
  2159. X        strcat(f, strcopy(s, a, b));
  2160. X        a = i +1;
  2161. X        ok = 0; 
  2162. X        m = 0;
  2163. X
  2164. X        while(MAK[m].makname[0] != '\0'){
  2165. X            if((strcomp(f, MAK[m].makname) == 0) && (strcomp(MAK[m].makname, f) == 0) && (subcom == 0)){
  2166. X                ok = 1; 
  2167. X                strcat(t, MAK[m].makwert);
  2168. X            }
  2169. X            m++;
  2170. X        }
  2171. X        if(ok == 0) strcat(t, stripped(f));
  2172. X        strcat(t, " ");
  2173. X    
  2174. X        subcom++;
  2175. X    }
  2176. X    i++;
  2177. X  }
  2178. X  return (unsigned char *) t;
  2179. X}
  2180. X
  2181. X
  2182. X
  2183. X/***************************************************************************/
  2184. X/*      FUNKTION  set_makros                           */
  2185. X/*  BESCHREIBUNG  Die Makro-Datei wird angezeigt und kann geandert werden. */
  2186. X/*     PARAMETER  keine                                                       */
  2187. X/*     RUECKGABE  keine                                                       */
  2188. X/***************************************************************************/
  2189. X
  2190. Xvoid set_makros()
  2191. X{
  2192. X  FILE *ff;
  2193. X  unsigned char s[STRING];
  2194. X  unsigned char t[STRING];
  2195. X  unsigned char tmp[STRING];
  2196. X  unsigned char c;
  2197. X  int b;
  2198. X
  2199. X
  2200. X  printf("\n\n%s\n\n", MAK01_MSG);
  2201. X
  2202. X  ansi("md");
  2203. X  b = 4;
  2204. X  while(MAK[b].makname[0] != '\0'){
  2205. X    printf("%s%c=%c%s\n", MAK[b].makname, TAB, TAB, MAK[b].makwert);
  2206. X    b++;
  2207. X  }  
  2208. X  printf("\n");  
  2209. X  ansi("mr");
  2210. X  printf("%c%s [%c, %c] > ", CR, MAK02_MSG, GBL06_MSG, GBL07_MSG);
  2211. X  ansi("me");
  2212. X
  2213. X  c = yesno();
  2214. X
  2215. X  if (c == GBL06_MSG) {
  2216. X    sprintf(t, "%s %s", EDDY, MAKRO);
  2217. X    system(t);
  2218. X  }
  2219. X
  2220. X  get_makros();
  2221. X
  2222. X  printf("\n");
  2223. X}
  2224. X
  2225. X
  2226. X
  2227. X
  2228. X/***************************************************************************/
  2229. X/*      FUNKTION  get_makros()                           */
  2230. X/*  BESCHREIBUNG  Liest die userabhaengigen Makro-Vereinbarungen in die    */
  2231. X/*          Stuktur ein                                   */
  2232. X/*     PARAMETER  keine                                                       */
  2233. X/*     RUECKGABE  keine                               */
  2234. X/***************************************************************************/
  2235. X
  2236. Xvoid get_makros()
  2237. X{
  2238. X  FILE *fp;
  2239. X  unsigned char s[STRING];
  2240. X  unsigned char t[STRING];
  2241. X  int b = 0, i = 0;
  2242. X
  2243. X
  2244. X  sprintf(MAK[0].makname, "demo");
  2245. X  sprintf(MAK[0].makwert, "?, sl 3, PM, sl 3, i, sl 3, anr, sl 3, dem1");
  2246. X  sprintf(MAK[1].makname, "dem1");
  2247. X  sprintf(MAK[1].makwert, "b, sl 3, +, +, +, +, +, +, i, sl 3, +, dem2");
  2248. X  sprintf(MAK[2].makname, "dem2");
  2249. X  sprintf(MAK[2].makwert, "i, sl 3, +, i, sl 3, b, +, i, sl 3, ?, dem3");
  2250. X  sprintf(MAK[3].makname, "dem3");
  2251. X  sprintf(MAK[3].makwert, "sl 3, v, sl 3, h hilf, sl 3, st, sl 3, pm, i");
  2252. X 
  2253. X
  2254. X  fp = fopen(MAKRO, "r");
  2255. X  if (fp == NULL) {
  2256. X    MAK[4].makname[0] = '\0';
  2257. X    return;
  2258. X  }
  2259. X
  2260. X
  2261. X  b = 4;
  2262. X
  2263. X  while(fgets(s, 80, fp) != NULL){
  2264. X
  2265. X    MAK[b].makname[0] = '\0';
  2266. X    MAK[b].makwert[0] = '\0';
  2267. X    
  2268. X    i = 0;
  2269. X
  2270. X    while((s[i] != '=') && (s[i] != '\0')) i++;
  2271. X
  2272. X    t[0] = '\0'; strcat(t, strcopy(s, 0, (i-1)));
  2273. X    strcat(MAK[b].makname, stripped(t));
  2274. X
  2275. X    t[0] = '\0'; strcat(t, strcopy(s, (i+1), length(s)));
  2276. X     strcat(MAK[b].makwert, stripped(t));
  2277. X
  2278. X    b++;
  2279. X    if (b >= (MAX_MAK -1)) {
  2280. X        nerror("makro.c", 108, "get_makro", "MAX_MAK ueberschritten !!", "???");
  2281. X    }
  2282. X  }
  2283. X  MAK[b].makname[0] = '\0';
  2284. X
  2285. X  fclose(fp);
  2286. X
  2287. X}
  2288. X
  2289. X/***************************************************************************/
  2290. X/*      FUNKTION  add_makros()                           */
  2291. X/*  BESCHREIBUNG  Haengt Makro-Definition aus einer Prompt-Eingabe an die  */
  2292. X/*          Makro-Datei an                               */
  2293. X/*     PARAMETER  s  =  Makro-Definition                                   */
  2294. X/*     RUECKGABE  keine                               */
  2295. X/***************************************************************************/
  2296. X
  2297. Xvoid add_makro( s )
  2298. Xunsigned char s[];
  2299. X{
  2300. X  FILE *fp;
  2301. X
  2302. X  fp = fopen( MAKRO, "a" );
  2303. X  if(fp == NULL){
  2304. X    nerror("makro.c", 189, "add_makro", "Datei-Erweiterungsfehler", MAKRO);
  2305. X  }
  2306. X  fputs((unsigned char *) stripped(s), fp);
  2307. X  fputs("\n", fp);
  2308. X  fclose(fp);
  2309. X
  2310. X  get_makros();
  2311. X
  2312. X  printf("\n\n%s\n", MAK03_MSG);
  2313. X  
  2314. X}
  2315. X
  2316. X
  2317. X/***************************************************************************/
  2318. X/*      FUNKTION  makro_definition()                       */
  2319. X/*  BESCHREIBUNG  Prueft ob die Prompt-Eingabe eine Makro-Definition ent-  */
  2320. X/*          haelt.                                       */
  2321. X/*     PARAMETER  s  =  Prompt-Eingabe                                     */
  2322. X/*     RUECKGABE  0  =  Keine Definition                   */
  2323. X/*                1  =  Makro-Definition                   */
  2324. X/***************************************************************************/
  2325. X
  2326. Xint makro_definition( s )
  2327. Xunsigned char s[];
  2328. X{
  2329. X  int i = 0;
  2330. X  int ok = 0;
  2331. X
  2332. X  while(s[i] != '\0'){
  2333. X    if(s[i] == '=') ok++;
  2334. X    i++;
  2335. X  }
  2336. X
  2337. X  if(ok == 1){
  2338. X    add_makro( s );
  2339. X  }
  2340. X  if(ok > 1){
  2341. X    ansi("md");
  2342. X    printf(" %s\n", MAK04_MSG);
  2343. X    ansi("me");
  2344. X  }
  2345. X  return ok;
  2346. X}
  2347. X
  2348. END_OF_FILE
  2349.   if test 5585 -ne `wc -c <'src/makro.c'`; then
  2350.     echo shar: \"'src/makro.c'\" unpacked with wrong size!
  2351.   fi
  2352.   # end of 'src/makro.c'
  2353. fi
  2354. if test -f 'wendy/fast' -a "${1}" != "-c" ; then 
  2355.   echo shar: Will not clobber existing file \"'wendy/fast'\"
  2356. else
  2357.   echo shar: Extracting \"'wendy/fast'\" \(99 characters\)
  2358.   sed "s/^X//" >'wendy/fast' <<'END_OF_FILE'
  2359. Xmake clean
  2360. X/etc/mount /dev/PS1 /user
  2361. Xcpdir -mvs /local/mbox/wendy /user
  2362. Xsync
  2363. X/etc/umount /dev/PS1
  2364. X
  2365. END_OF_FILE
  2366.   if test 99 -ne `wc -c <'wendy/fast'`; then
  2367.     echo shar: \"'wendy/fast'\" unpacked with wrong size!
  2368.   fi
  2369.   chmod +x 'wendy/fast'
  2370.   # end of 'wendy/fast'
  2371. fi
  2372. echo shar: End of archive 7 \(of 15\).
  2373. cp /dev/null ark7isdone
  2374. MISSING=""
  2375. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  2376.     if test ! -f ark${I}isdone ; then
  2377.     MISSING="${MISSING} ${I}"
  2378.     fi
  2379. done
  2380. if test "${MISSING}" = "" ; then
  2381.     echo You have unpacked all 15 archives.
  2382.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2383. else
  2384.     echo You still must unpack the following archives:
  2385.     echo "        " ${MISSING}
  2386. fi
  2387. exit 0
  2388. exit 0 # Just in case...
  2389.