home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume35 / mbox / part09 < prev    next >
Encoding:
Text File  |  1993-02-04  |  54.1 KB  |  2,247 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  3. Subject: v35i044:  mbox - ix/Mbox, A BBS for UNIX and MINIX v1.6 PL10j7, Part09/15
  4. Message-ID: <1993Feb5.185815.10481@sparky.imd.sterling.com>
  5. X-Md4-Signature: 858339a0c6b9f11dc461d16061300e36
  6. Date: Fri, 5 Feb 1993 18:58:15 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 44
  11. Archive-name: mbox/part09
  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:  etc/logo~ src/portinfo.c src/proto.h src/show.c src/xmd.c
  20. # Wrapped by kent@sparky on Fri Feb  5 12:18:10 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 9 (of 15)."'
  24. if test -f 'etc/logo~' -a "${1}" != "-c" ; then 
  25.   echo shar: Will not clobber existing file \"'etc/logo~'\"
  26. else
  27.   echo shar: Extracting \"'etc/logo~'\" \(243 characters\)
  28.   sed "s/^X//" >'etc/logo~' <<'END_OF_FILE'
  29. X
  30. X
  31. X
  32. Xooo o o ooo   ooo o ooo ooo   ooo oo   o  o o ooo o      o  oo  ooo ooo ooo o o
  33. X o  ooo oo     o  o ooo oo     o  ooo ooo o o oo  o     ooo o o oo  ooo o    o
  34. X o  o o ooo    o  o o o ooo    o  o o o o  o  ooo ooo   o o ooo ooo ooo ooo  o
  35. X
  36. X
  37. END_OF_FILE
  38.   if test 243 -ne `wc -c <'etc/logo~'`; then
  39.     echo shar: \"'etc/logo~'\" unpacked with wrong size!
  40.   fi
  41.   # end of 'etc/logo~'
  42. fi
  43. if test -f 'src/portinfo.c' -a "${1}" != "-c" ; then 
  44.   echo shar: Will not clobber existing file \"'src/portinfo.c'\"
  45. else
  46.   echo shar: Extracting \"'src/portinfo.c'\" \(15712 characters\)
  47.   sed "s/^X//" >'src/portinfo.c' <<'END_OF_FILE'
  48. X/***************************************************************************/
  49. X/*        PROGRAMM  ix/Mbox                           */
  50. X/*             DATEI  portinfo.c                       */
  51. X/*        FUNKTIONEN  port(), show_level(), userliste(), finger()       */
  52. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  53. X/*  LETZTE AENDERUNG  31.12.1992                       */
  54. X/***************************************************************************/
  55. X 
  56. X#include <sys/types.h>
  57. X#include <sys/stat.h>
  58. X#include <fcntl.h>
  59. X#include <unistd.h>
  60. X#include <stdio.h>
  61. X#include <utmp.h>
  62. X#include <time.h>
  63. X
  64. X#include <string.h>
  65. X
  66. X#include "mbox.h"
  67. X
  68. X
  69. X
  70. X
  71. X/***************************************************************************/
  72. X/*      FUNKTION  port()                           */
  73. X/*  BESCHREIBUNG  Anzeigen was die Mbox- und die SH-User z. Zt. anstellen. */
  74. X/*     PARAMETER  keine                                                       */
  75. X/*     RUECKGABE  keine                                                       */
  76. X/***************************************************************************/
  77. X
  78. Xvoid port(arg)
  79. Xunsigned char arg[];
  80. X{
  81. X  FILE *fp;
  82. X  FILE *ff;
  83. X  FILE *pp;
  84. X  int fd;
  85. X  unsigned char s[STRING];
  86. X  unsigned char t[STRING];
  87. X  unsigned char ks[STRING];
  88. X  unsigned char ls[STRING];
  89. X  unsigned char tmp[STRING];
  90. X  unsigned char ex[255];
  91. X  unsigned char terms[MAX_TERMINALS][STRING];
  92. X  int termc = 0;
  93. X  int a, b, k, l;
  94. X  struct utmp US;
  95. X  struct tm *tmt;
  96. X  long ltime;
  97. X  
  98. X
  99. X  if(arg[0] != '-'){
  100. X    headline( POR01_MSG );
  101. X  }
  102. X  else printf("\n\n");
  103. X
  104. X  printf("%s\n", POR02_MSG);
  105. X  printf("===============================================================================\n");
  106. X
  107. X  printf("%s ", POR03_MSG);
  108. X
  109. X  maybe_locked(WHO, "r");
  110. X  fp = fopen(WHO, "r");
  111. X  if (fp == NULL) {
  112. X    nerror("portinfo.c", 56, "port", "Datei-Lesefehler", WHO);
  113. X  }
  114. X  while (fgets(s, 80, fp) != NULL) {
  115. X    printf(".");
  116. X    if(s[0] > 32){
  117. X        strcpy(t, (unsigned char *) strcopy(s, 9, 37));
  118. X        sprintf(terms[termc], "%s  ", t);
  119. X        strcpy(t, (unsigned char *) strcopy(s, 37, 80));
  120. X        strcat(terms[termc], t);
  121. X        strcat(terms[termc], "                 ");
  122. X        terms[termc][56] = '\0';
  123. X        sprintf(t, "%s", (unsigned char *) strcopy(s, 37, 49));
  124. X
  125. X        sprintf(s, "%s/etc/%s.", HOME, (unsigned char *) stripped(t));
  126. X        ff = fopen(s, "r");
  127. X        if (ff == NULL) {
  128. X            continue;
  129. X        }
  130. X        fgets(s, 80, ff);
  131. X        s[23] = '\0';
  132. X        fclose(ff);
  133. X        strcat(terms[termc], s);
  134. X        strcat(terms[termc], "\n");
  135. X        termc++;
  136. X    }
  137. X  }
  138. X  fclose(fp);
  139. X
  140. X  sprintf(tmp, "%s/%dps", TMP, getpid());
  141. X  sprintf(s, "ps -a > %s", tmp);
  142. X  system( s );
  143. X
  144. X#ifdef _SYS7
  145. X  maybe_locked(UTMP, "r");
  146. X  fd = open(UTMP, O_RDONLY);
  147. X#else
  148. X  maybe_locked(UTMP_FILE, "r");
  149. X  fd = open(UTMP_FILE, O_RDONLY);
  150. X#endif
  151. X
  152. X  if (fd == -1) {
  153. X
  154. X#ifdef _SYS7
  155. X    nerror("portinfo.c", 83, "port", "Datei-Lesefehler", UTMP);
  156. X#else
  157. X    nerror("portinfo.c", 83, "port", "Datei-Lesefehler", UTMP_FILE);
  158. X#endif
  159. X
  160. X  }
  161. X  while (read(fd, (unsigned char *) &US, sizeof(US)) == sizeof(US)) {
  162. X
  163. X    printf(".");
  164. X    t[0] = '\0';
  165. X    strcat(t, "[$] -\n");
  166. X
  167. X    if (US.ut_type == USER_PROCESS) {
  168. X        terms[termc][0] = '\0';
  169. X        sprintf(ex, "%.8s [SH-Account]                                                  ",
  170. X            US.ut_user);
  171. X        ex[33] = '\0';
  172. X        strcat(terms[termc], ex);
  173. X
  174. X        sprintf(ex, "%8.8s   ",
  175. X            US.ut_line);
  176. X        strcat(terms[termc], ex);
  177. X
  178. X        ltime = US.ut_time;
  179. X        tmt = localtime(<ime);
  180. X        sprintf(ex, "%02.2d:%02.2d   ",
  181. X            tmt->tm_hour, tmt->tm_min);
  182. X        strcat(terms[termc], ex);
  183. X
  184. X        l = atoi(strcopy(US.ut_line, 3, 6));
  185. X
  186. X        pp = fopen(tmp, "r");
  187. X        if (pp == NULL) {
  188. X            nerror("portinfo.c", 113, "port", tmp, "???");
  189. X        }
  190. X        while (fgets(s, 80, pp) != NULL) {
  191. X            k = atoi((unsigned char *) strcopy(s, 8, 10));
  192. X            if ((k == l) && (s[17] != '-')) {
  193. X                t[0] = '\0';
  194. X                strcat(t, "[$] ");
  195. X                strcat(t, (unsigned char *) strcopy(s, 17, 40));
  196. X                s[0] = '\0';
  197. X                strcat(s, t);
  198. X                t[0] = '\0';
  199. X                strcat(t, (unsigned char *) stripped(s));
  200. X                t[27] = '\0';
  201. X                strcat(t, "\n");
  202. X            }
  203. X        }
  204. X        fclose(pp);
  205. X
  206. X        strcat(terms[termc], t);
  207. X        termc++;
  208. X    }
  209. X  }
  210. X  close(fd);
  211. X
  212. X  unlink(tmp);
  213. X
  214. X  printf("%c", CR);
  215. X
  216. X  for (a = 0; a < termc; a++) {
  217. X    for (b = 0; b < termc; b++) {
  218. X        sprintf(ks, "%s", (unsigned char *) strcopy(terms[a], 34, 40));
  219. X        sprintf(ls, "%s", (unsigned char *) strcopy(terms[b], 34, 40));
  220. X        if((strcomp(ks, ls) == 0) && (a != b)){
  221. X            if (terms[a][53] == '$') terms[a][0] = '*';
  222. X            if (terms[b][53] == '$') terms[b][0] = '*';
  223. X        }
  224. X        sprintf(s, "%d", ks); k = atoi(s);
  225. X        sprintf(s, "%d", ls); l = atoi(s);
  226. X        if (k < l) {
  227. X            s[0] = '\0';
  228. X            strcat(s, terms[a]);
  229. X            terms[a][0] = '\0';
  230. X            strcat(terms[a], terms[b]);
  231. X            terms[b][0] = '\0';
  232. X            strcat(terms[b], s);
  233. X        }
  234. X    }
  235. X  }
  236. X
  237. X
  238. X  for (a = 0; a < termc; a++) {
  239. X    if (terms[a][0] != '*'){
  240. X        if(terms[a][53] != '$') ansi( "md" );
  241. X        printf("%s", terms[a]);
  242. X        if(terms[a][53] != '$') ansi( "me" );
  243. X    }
  244. X  }
  245. X
  246. X  printf("\n");
  247. X}
  248. X
  249. X
  250. X
  251. X
  252. X
  253. X/***************************************************************************/
  254. X/*      FUNKTION  show_level()                           */
  255. X/*  BESCHREIBUNG  Zuweisung der Userlevel anzeigen.               */
  256. X/*     PARAMETER  keine                                                       */
  257. X/*     RUECKGABE  keine                                                       */
  258. X/***************************************************************************/
  259. X
  260. Xvoid show_level()
  261. X{
  262. X  headline( POR04_MSG );
  263. X  printf("\n");
  264. X
  265. X  printf("%s\n", POR05_MSG);
  266. X  printf("-----------------------------------------\n");
  267. X  printf("%s (%d)\n", POR06_MSG, GUEST_LEV);
  268. X  printf("%s (%d)\n", POR07_MSG, WRITE_IN_LEV);
  269. X  printf("%s (%d)\n", POR08_MSG, MAILOUT_LEV);
  270. X  printf("%s (%d)\n", POR09_MSG, WRITE_EX_LEV);
  271. X  printf("%s (%d)\n", POR10_MSG, WRITE_INTERNAT);
  272. X  printf("%s (%d)\n", POR11_MSG, PD_D_LEV);
  273. X  printf("%s (%d)\n", POR12_MSG, PD_U_LEV);
  274. X  printf("%s (%d)\n", POR13_MSG, EXE_LEV);
  275. X  printf("%s (%d)\n", POR14_MSG, ADMIN_LEV);
  276. X
  277. X  printf("\n%s (%d), %s !\n\n", POR15_MSG, USER.level, USER.name);
  278. X
  279. X}
  280. X
  281. X
  282. X
  283. X/***************************************************************************/
  284. X/*      FUNKTION  userliste()                           */
  285. X/*  BESCHREIBUNG  Verschieden Formen der Userliste ausgeben.           */
  286. X/*     PARAMETER  arg  =  ''   =  nur Username und ID                      */
  287. X/*              '*'  =  Name, letzter Anruf etc.                 */
  288. X/*              '#'  =  Name, Up- / Downloads               */
  289. X/*              '$'  =  Gebuehren-Stand               */
  290. X/*              '%'  =  Level & Bretter               */
  291. X/*     RUECKGABE  keine                                                       */
  292. X/***************************************************************************/
  293. X
  294. Xvoid userliste(arg)
  295. Xunsigned char arg[];
  296. X{
  297. X  FILE *fp;
  298. X  int fd;
  299. X  struct userdaten LOOSER;
  300. X  unsigned char s[STRING];
  301. X  unsigned char u[(STRING*2)];
  302. X  unsigned char tmp[STRING];
  303. X  unsigned char t[STRING];
  304. X  int i = 0, l, z;
  305. X  int mode = 0;
  306. X  int totalusr = 0;
  307. X  int totalact = 0;
  308. X  int totalgas = 0;
  309. X
  310. X  unsigned char c;
  311. X
  312. X  if (arg[0] == '*') mode = 1;
  313. X  if ((arg[0] == '#') && (USER.level >= ADMIN_LEV)) mode = 2;
  314. X  if ((arg[0] == '$') && (USER.level >= ADMIN_LEV)) mode = 3;
  315. X  if (arg[0] == '%') mode = 4;
  316. X  if ((arg[0] > 47) && (mode == 0)){
  317. X    finger(arg);
  318. X    return;
  319. X  }
  320. X 
  321. X  headline( POR15aMSG );
  322. X
  323. X  show(UDBASE, 99, 99); /* RESET */
  324. X
  325. X  if (mode == 1) {
  326. X    printf("%s\n", POR16_MSG);    
  327. X    printf("===============================================================================\n");
  328. X    printf("%s", POR17_MSG);
  329. X  }
  330. X  if (mode == 2) {
  331. X    printf("%s\n", POR18_MSG);    
  332. X    printf("===============================================================================\n");
  333. X    printf("%s", POR17_MSG);
  334. X  }
  335. X  if (mode == 3) {
  336. X        printf("%s\n", POR18aMSG);    
  337. X    printf("===============================================================================\n");
  338. X    printf("%s", POR17_MSG);
  339. X  }
  340. X  if (mode == 4) {
  341. X        printf("%s\n", POR18bMSG);    
  342. X    printf("===============================================================================\n");
  343. X    printf("%s", POR17_MSG);
  344. X  }
  345. X
  346. X  sprintf(tmp, "%s/%d", TMP, getpid());
  347. X  fp = fopen(tmp, "w");
  348. X  if (fp == NULL) {
  349. X    nerror("portinfo.c", 231, "userliste", "Datei-Schreibfehler", tmp);
  350. X  }
  351. X  maybe_locked(UDBASE, "r");
  352. X  fd = open(UDBASE, O_RDONLY);
  353. X  if (fd == -1) {
  354. X    nerror("admin.c", 254, "userliste", "Datei-Lesefehler", UDBASE);
  355. X  }
  356. X  while (read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER)) {
  357. X    if (mode == 0) {
  358. X        sprintf(u, "%s", LOOSER.name);
  359. X        sprintf(s, " (%d) ", LOOSER.id);        
  360. X        u[26 - strlen(s)] = '\0';
  361. X        strcat(u, s); strcat(u, "                                ");    
  362. X         u[26] = '\0';
  363. X        fprintf(fp, "%s", u);
  364. X        i++;
  365. X        if (i == 3) {
  366. X            i = 0;
  367. X            fprintf(fp, "\n");
  368. X        }
  369. X    }
  370. X    if (mode == 1) {
  371. X        sprintf(s, "%s", LOOSER.name);
  372. X        s[24] = '\0';
  373. X        sprintf(u, "%s [%d]", s, LOOSER.id);
  374. X
  375. X        sprintf(s, "%s", "   ");
  376. X        if ((LOOSER.elapsed / 60) > 2) {
  377. X            if (LOOSER.wohnort[0] < 48) {
  378. X                if (strcomp(GUEST, LOOSER.name) != 0)
  379. X                    sprintf(s, "%s", "<?>");
  380. X            }
  381. X        }
  382. X        else {
  383. X            sprintf(s, "%s", "{-}");
  384. X        }
  385. X        if (LOOSER.seq == 1) {
  386. X            sprintf(s, "%s", "<!>");
  387. X        }
  388. X        fprintf(fp, "%-30.30s  %10s %s%6.d   %6.ld\"  %5.d%10.10s\n",
  389. X            u, LOOSER.lastlog, s, LOOSER.seq, (LOOSER.elapsed / 60), LOOSER.level, LOOSER.sh_name);
  390. X
  391. X    }
  392. X    if (mode == 2) {
  393. X        fprintf(fp, "%-30.30s  %8.d kB  %10.d kB %8.d\"\n",
  394. X            LOOSER.name, LOOSER.upratio, LOOSER.downratio, (LOOSER.elapsed / 60));
  395. X    }
  396. X        if (mode == 3) {
  397. X        if(LOOSER.level >= WRITE_INTERNAT){
  398. X            if(LOOSER.account[0] == '\0') strcpy(LOOSER.account, "00.00.0000");
  399. X            strcpy(s, LOOSER.account);
  400. X            s[10] = '\0';
  401. X            c = ' ';
  402. X            strcpy(t, (unsigned char *) strcopy(LOOSER.account, 11, 16));
  403. X            z = atoi(t);            
  404. X            fprintf(fp, "%-30.30s  %5.d   %c %s   [%3d.%02d DM]\n",  
  405. X                LOOSER.name, LOOSER.id, c, s, fix(z), flt(z));
  406. X        }
  407. X        }
  408. X        if (mode == 4) {
  409. X        fprintf(fp, "%-15.15s %5.d %4.d    %s\n",
  410. X            LOOSER.name, LOOSER.id, LOOSER.level, LOOSER.newsgrps);
  411. X    }       
  412. X    totalusr++;
  413. X    sprintf(s, "%s", (unsigned char *) mydate( 0 )); 
  414. X    if((strcomp(s, LOOSER.lastlog) < 3) && (LOOSER.seq > 10)) totalact++;
  415. X    if(strcomp(GUEST, LOOSER.name) == 0) totalgas = LOOSER.seq;
  416. X  }
  417. X  close(fd);
  418. X
  419. X  fclose(fp);
  420. X
  421. X  if (mode != 0) {
  422. X    printf("%c", CR);
  423. X    sprintf(s, "sort -d -o %s %s", tmp, tmp);
  424. X    system(s);
  425. X    show(tmp, 9999, USER.more + 100);
  426. X    if (mode == 1) {
  427. X        printf("\n%s\n%s", POR19_MSG, POR20_MSG);
  428. X    }
  429. X  }
  430. X  else{
  431. X    show(tmp, 9999, USER.more);
  432. X  }
  433. X  if(mode == 0){
  434. X    printf("\n\n%s %d %s %d %s", POR21_MSG, totalusr, POR22_MSG, totalact, POR23_MSG); 
  435. X    printf("\n%s %d %s", POR24_MSG, totalgas, POR25_MSG);
  436. X  }
  437. X  printf("\n");
  438. X  unlink(tmp);
  439. X}
  440. X
  441. X
  442. X
  443. X
  444. X/***************************************************************************/
  445. X/*      FUNKTION  finger()                           */
  446. X/*  BESCHREIBUNG  Informationen ueber einen Teilnehmer anzeigen.       */
  447. X/*     PARAMETER  arg  =  User-Name/User-Id des Teilnehmers                */
  448. X/*     RUECKGABE  keine                                                       */
  449. X/***************************************************************************/
  450. X
  451. Xvoid finger(arg)
  452. Xunsigned char arg[];
  453. X{
  454. X  int fd;
  455. X  struct userdaten DUMMY, LOOSER;
  456. X  unsigned char s[STRING];
  457. X  unsigned char t[STRING];
  458. X  long ll = -1L;
  459. X  size_t dummy = sizeof(DUMMY);
  460. X  unsigned char c;
  461. X  unsigned char ex[LONGSTRING];
  462. X  int i, ok, a, b;
  463. X  int uid = -1;
  464. X  unsigned char name[STRING];
  465. X  unsigned char domain[STRING];      
  466. X
  467. X
  468. X  FILE *fp;
  469. X
  470. X  
  471. X  if ((arg[0] > 47) && (arg[0] < 58)) {
  472. X    uid = atoi(arg);
  473. X  }
  474. X  else{
  475. X    a = 0; b = 0;
  476. X    i = 0;
  477. X    while(arg[i] != '\0'){    
  478. X        if(arg[i] == '!') a = i;
  479. X        if(arg[i] == '@') b = i;
  480. X        i++;
  481. X    }
  482. X    if((a != 0) && (b == 0)){
  483. X        if(a != 0){
  484. X            strcpy(name, (unsigned char *) strcopy(arg, (a+1), length(arg)));
  485. X            strcpy(domain, (unsigned char *) strcopy(arg, 0, (a-1)));
  486. X        }
  487. X        else{
  488. X            strcpy(name, (unsigned char *) strcopy(arg, 0, (b-1)));
  489. X            strcpy(domain, (unsigned char *) strcopy(arg, (b+1), length(arg)));
  490. X        }
  491. X        strcpy(t, USER.name);
  492. X        i = 0;
  493. X        while(t[i] != '\0'){
  494. X            if(t[i] == ' ') t[i] = '.';
  495. X            i++;
  496. X        }
  497. X        chdir( "/" );
  498. X        sprintf(s, "%s %s!%s!\"finger %s\" \\| mail %s@%s", UUX, SMARTHOST, domain, name, t, UUCPID);
  499. X        /*
  500. X        printf("\n\n%s\n\n", s);
  501. X        */
  502. X        system( s );
  503. X        chdir( HOME );
  504. X        printf("\n\n%s \"%s\",\n%s \"%s\" %s.", POR25aMSG, name, POR25bMSG, domain, POR25cMSG);
  505. X        ansi( "md" );
  506. X        printf("\n%s\n", POR26_MSG);
  507. X        ansi( "me" );
  508. X        return;
  509. X    }
  510. X    else{
  511. X        if(b != 0){
  512. X            ansi( "md" );
  513. X            printf(" <- %s\n\n", POR26aMSG);
  514. X            ansi( "me" );
  515. X            return;
  516. X        }
  517. X    }
  518. X  }
  519. X
  520. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  521. X  fd = open(UDBASE, O_RDONLY);
  522. X  if (fd == -1) {
  523. X    nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  524. X  }
  525. X  while (read(fd, (unsigned char *) &DUMMY, dummy) == dummy) {
  526. X    if (uid == DUMMY.id) {
  527. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  528. X    } 
  529. X    else{
  530. X        if ((strcomp(arg, DUMMY.name) == 0) ||
  531. X            (strcomp(arg, DUMMY.nick) == 0) ||
  532. X            (strcomp(arg, DUMMY.sh_name) == 0)) {
  533. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  534. X        }
  535. X    }
  536. X  }
  537. X  lseek(fd, ll, SEEK_SET);
  538. X  read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER));
  539. X  close(fd);
  540. X  mbunlock(UDBASE);
  541. X
  542. X  if (ll == -1L) {
  543. X    ansi( "md" );
  544. X    printf(" <- %s\n\n", POR27_MSG);
  545. X    ansi( "me" );
  546. X    return;
  547. X  }
  548. X
  549. X  sprintf(s, " %s: %s ", POR28_MSG, arg);
  550. X  headline( s );
  551. X
  552. X  ansi( "md" );
  553. X  printf("\n%s ", POR29_MSG);
  554. X  ansi( "me" );
  555. X  printf("%d\n", LOOSER.id);
  556. X
  557. X  ansi( "md" );
  558. X  printf("%s ", POR30_MSG);
  559. X  ansi( "me");
  560. X  printf("%s\n", LOOSER.name);
  561. X
  562. X  if(LOOSER.sh_name[0] != '\0'){
  563. X    ansi( "md" );
  564. X    printf("%s ", POR31_MSG);
  565. X    ansi( "me" );
  566. X    printf("%s\n", LOOSER.sh_name);
  567. X  }
  568. X
  569. X  if(LOOSER.nick[0] != '\0'){
  570. X    ansi( "md" );
  571. X      printf("%s ", POR32_MSG);
  572. X    ansi( "me" );
  573. X    printf("%s\n", LOOSER.nick);
  574. X  }
  575. X
  576. X  ansi( "md" );
  577. X  printf("%s ", POR33_MSG);
  578. X  ansi( "me" );
  579. X  strcpy(s, LOOSER.name);
  580. X  i = 0;
  581. X  while(s[i] != '\0'){
  582. X    if(s[i] == ' ') s[i] = '.';
  583. X    i++;
  584. X  }
  585. X  if(LOOSER.level >= WRITE_INTERNAT)
  586. X    printf("%s@%s\n", s, UUCPID2);
  587. X  else
  588. X    printf("%s@%s\n", s, UUCPID1);
  589. X
  590. X  printf("\n"); ok = 0;
  591. X
  592. X  if(USER.level >= WRITE_EX_LEV){
  593. X    if(LOOSER.wohnort[0] != '\0'){
  594. X        ok++;
  595. X        ansi( "md" );
  596. X        printf("%s ", POR34_MSG);
  597. X        ansi( "me" );
  598. X        printf("%s\n", LOOSER.wohnort);
  599. X    }
  600. X  }
  601. X
  602. X  if(USER.level >= ADMIN_LEV){
  603. X    if(LOOSER.strasse[0] != '\0'){
  604. X        ok++;
  605. X        ansi( "md" );
  606. X        printf("%s ", POR35_MSG);
  607. X        ansi( "me" );
  608. X        printf("%s\n", LOOSER.strasse);
  609. X    }
  610. X    if(LOOSER.telefon1[0] != '\0'){
  611. X        ok++;
  612. X        ansi( "md" ); 
  613. X        printf("%s ", POR36_MSG);
  614. X        ansi( "me" );
  615. X        printf("%s", LOOSER.telefon1);
  616. X
  617. X        if(LOOSER.telefon2[0] != '\0'){
  618. X            printf(" // %s\n", LOOSER.telefon2);
  619. X        }
  620. X        else{
  621. X            printf("\n");
  622. X        }
  623. X    }
  624. X
  625. X    if(ok != 0) printf("\n"); 
  626. X    ok = 0;
  627. X
  628. X    if(LOOSER.geburtsdatum[0] != '\0'){
  629. X        ok++;
  630. X        ansi( "md" );
  631. X        printf("%s ", POR37_MSG);
  632. X        ansi( "me" );
  633. X        printf("%s\n", LOOSER.geburtsdatum);
  634. X    }
  635. X  }
  636. X
  637. X  if(ok != 0) printf("\n");
  638. X
  639. X  if(USER.level >= WRITE_EX_LEV){
  640. X    ansi( "md" );
  641. X    printf("%s ", POR38_MSG);
  642. X    ansi( "me" );
  643. X    printf("%d\n", LOOSER.seq);
  644. X      ansi( "md" );
  645. X    printf("%s ", POR39_MSG);
  646. X    ansi( "me" );
  647. X    printf("%s // %s\n", LOOSER.lastlog, (unsigned char *) timereconv(LOOSER.lasttime));
  648. X  }
  649. X
  650. X  ansi( "md" );
  651. X  printf("%s ", POR45_MSG);
  652. X  ansi( "me" );
  653. X 
  654. X  b = 0;
  655. X  sprintf(s, "%s/usr/%d/INDEX", HOME, LOOSER.id);  
  656. X    
  657. X  fp = fopen(s, "r");
  658. X  if (fp == NULL) {
  659. X    nerror("intro.c", 291, "intro", "Datei-Lesefehler", s);
  660. X  }
  661. X  while (fgets(ex, 200, fp) != NULL){
  662. X    if(ex[0] < 65) b++;
  663. X  }
  664. X  fclose(fp);
  665. X  printf("%d\n", b-1);
  666. X
  667. X  if(USER.level >= ADMIN_LEV){
  668. X    ansi( "md" );
  669. X    printf("%s ", POR40_MSG);
  670. X    ansi( "me" );
  671. X    b = LOOSER.elapsed/(3600*24);
  672. X    printf("%d %s, ", b, POR41_MSG);
  673. X    a = (LOOSER.elapsed - (b*(3600*24)))/3600; 
  674. X    printf("%d %s, ", a, POR41aMSG);
  675. X        b = (LOOSER.elapsed - (b*(3600*24)) - (a*3600))/360;
  676. X       printf("%d %s\n", b, POR41bMSG);
  677. X        ansi( "md" );
  678. X        printf("%s ", POR41cMSG);
  679. X        ansi( "me" );
  680. X        printf("%s\n", LOOSER.account);
  681. X    ansi( "md" );
  682. X    printf("%s ", POR42_MSG);
  683. X    ansi( "me" );
  684. X    printf("%ld %s\n", LOOSER.upratio, POR43_MSG);
  685. X    ansi( "md" );
  686. X    printf("%s ", POR44_MSG);
  687. X    ansi( "me" );
  688. X    printf("%ld %s\n", LOOSER.downratio, POR43_MSG);
  689. X  }
  690. X
  691. X  printf("\n");
  692. X}
  693. X
  694. END_OF_FILE
  695.   if test 15712 -ne `wc -c <'src/portinfo.c'`; then
  696.     echo shar: \"'src/portinfo.c'\" unpacked with wrong size!
  697.   fi
  698.   # end of 'src/portinfo.c'
  699. fi
  700. if test -f 'src/proto.h' -a "${1}" != "-c" ; then 
  701.   echo shar: Will not clobber existing file \"'src/proto.h'\"
  702. else
  703.   echo shar: Extracting \"'src/proto.h'\" \(5444 characters\)
  704.   sed "s/^X//" >'src/proto.h' <<'END_OF_FILE'
  705. X
  706. X/***************************************************************************/
  707. X/*        PROGRAMM  ix/Mbox                           */
  708. X/*             DATEI  proto.h                           */
  709. X/*        FUNKTIONEN  Prototypen der Funktionen                   */
  710. X/*             AUTOR  Olaf's CPROTO                       */
  711. X/*  LETZTE AENDERUNG  28.05.1992                       */
  712. X/***************************************************************************/
  713. X
  714. X#if defined(__STDC__) || defined(__cplusplus)
  715. X# define P_(s) s
  716. X#else
  717. X# define P_(s) ()
  718. X#endif
  719. X
  720. X/* admin.c */
  721. Xvoid user_aendern P_((void));
  722. Xvoid user_anzeigen P_((void));
  723. Xvoid user_loeschen P_((void));
  724. Xint setup_get P_((int max));
  725. Xvoid wait_until_keypressed P_((void));
  726. Xvoid admin P_((void));
  727. Xvoid setup P_((void));
  728. X
  729. X/* befehl.c */
  730. Xint bef P_((unsigned char befehl[], unsigned char arg[]));
  731. X
  732. X/* baudrate.c */
  733. Xint baudrate P_((int try));
  734. X
  735. X/* control.c */
  736. Xvoid control P_((unsigned char text[], int mode));
  737. Xvoid whodo P_((unsigned char text[]));
  738. X
  739. X/* coreleft.c */
  740. Xint coreleft P_((void));
  741. X
  742. X/* ctrlx.c */
  743. Xvoid ctrlx P_((void));
  744. Xvoid noctrlx P_((void));
  745. X
  746. X/* derror.c */
  747. Xvoid nerror P_((unsigned char file[], int line, unsigned char function[], unsigned char descr[], unsigned char er[]));
  748. X
  749. X/* games.c */
  750. Xint games P_((void));
  751. X
  752. X/* getch.c */
  753. Xint getch P_((void));
  754. X
  755. X/* getline.c */
  756. Xunsigned char *getline P_((int len, int mode, int bsc, unsigned char deftext[]));
  757. Xint getint P_((void));
  758. Xint yesno P_((void));
  759. X
  760. X/* help.c */
  761. Xint help P_((unsigned char cmd[]));
  762. X
  763. X/* intro.c */
  764. Xvoid intro P_((void));
  765. Xvoid init_user P_((unsigned char info[]));
  766. X
  767. X/* lesen.c */
  768. Xunsigned char *getsite P_((unsigned char arg[]));
  769. Xint checkdomaintype P_((unsigned char arg[]));
  770. Xvoid ansage P_((void));
  771. Xvoid unterschrift P_((void));
  772. Xvoid lesen P_((unsigned char arg[]));
  773. X
  774. X/* lesen2.c */
  775. Xint anzeigen P_((int art, int von, int bis));
  776. Xvoid lesen2 P_((unsigned char arg[], int mode));
  777. Xvoid inhalt2 P_((unsigned char arg[], int mode));
  778. Xvoid loeschen2 P_((unsigned char arg[], int mode));
  779. X
  780. X/* loop.c */
  781. Xvoid sigcatch P_((int sig));
  782. Xunsigned char *cut_bef P_((unsigned char s[]));
  783. Xunsigned char *cut_arg P_((unsigned char s[]));
  784. Xunsigned char *rates P_((void));
  785. Xvoid loop P_((void));
  786. X
  787. X/* mail.c */
  788. Xunsigned char *fetch_reciepy P_((unsigned char REP[]));
  789. Xint brief P_((unsigned char arg[]));
  790. X
  791. X/* main.c */
  792. Xvoid logout P_((void));
  793. Xvoid init P_((void));
  794. Xvoid fixoutput P_((void));
  795. X/* int main P_((void)); */
  796. X
  797. X/* makro.c */
  798. Xunsigned char *makro P_((unsigned char s[]));
  799. Xvoid set_makros P_((void));
  800. Xvoid get_makros P_((void));
  801. Xvoid add_makro P_((unsigned char s[]));
  802. Xint makro_definition P_((unsigned char s[]));
  803. X
  804. X/* mb-daemon.c */
  805. Xint reflector P_((unsigned char arg[], unsigned char msg[]));
  806. Xint pdsize P_((unsigned char arg[]));
  807. Xunsigned char *scan P_((unsigned char arg[]));
  808. Xvoid mix P_((unsigned char s[], unsigned char t[]));
  809. Xint main P_((int argc, unsigned char *argv[]));
  810. X
  811. X/* mbrsh.c */
  812. Xint main P_((int argc, unsigned char *argv[]));
  813. X
  814. X/* misc.c */
  815. Xvoid scanner P_((int mode));
  816. Xvoid schreiben P_((unsigned char arg[]));
  817. Xint prf P_((unsigned char arg[]));
  818. Xint pruefe P_((unsigned char arg[]));
  819. X
  820. X/* misc2.c */
  821. Xint chk_newsgrp P_((unsigned char s[]));
  822. Xint subb P_((unsigned char s[]));
  823. Xvoid loeschen P_((unsigned char arg[]));
  824. Xint brett P_((unsigned char arg[]));
  825. X
  826. X/* nerror.c */
  827. Xvoid nerror P_((unsigned char file[], int line, unsigned char function[], unsigned char descr[], unsigned char er[]));
  828. X
  829. X/* outdial.c */
  830. Xvoid outdial P_((void));
  831. X
  832. X/* pd.c */
  833. Xvoid pd P_((unsigned char arg[], unsigned char keywds[]));
  834. Xvoid status P_((void));
  835. Xvoid mkix P_((unsigned char pfad[]));
  836. Xvoid statistik P_((void));
  837. Xvoid download P_((unsigned char arg[]));
  838. X
  839. X/* portinfo.c */
  840. Xvoid port P_((unsigned char arg[]));
  841. Xvoid show_level P_((void));
  842. Xvoid userliste P_((unsigned char arg[]));
  843. Xvoid finger P_((unsigned char arg[]));
  844. X
  845. X/* postfach.c */
  846. Xvoid postfach P_((unsigned char arg[]));
  847. X
  848. X/* show.c */
  849. Xint show P_((unsigned char fname[], int maxlines, int mode));
  850. Xint more P_((void));
  851. X
  852. X/* suchen.c */
  853. Xvoid suchen P_((unsigned char muster[]));
  854. X
  855. X/* tools.c */
  856. Xunsigned char *whoami P_((void));
  857. Xunsigned char *stripped P_((unsigned char st[]));
  858. Xunsigned char *upcased P_((unsigned char st[]));
  859. Xint length P_((unsigned char st[]));
  860. Xunsigned char *strcopy P_((unsigned char st[], int v, int b));
  861. Xunsigned char *bigcopy P_((unsigned char st[], int v, int b));
  862. Xint strcomp P_((unsigned char s[], unsigned char t[]));
  863. Xint ansi P_((unsigned char code[]));
  864. Xint ansi2 P_((unsigned char code[], int x, int y));
  865. X/* unsigned char *termansi P_((unsigned char code[])); */
  866. Xunsigned char *mydate P_((int mode));
  867. Xunsigned char *mytime P_((int mode));
  868. Xunsigned char *crypted P_((unsigned char s[]));
  869. Xlong dateconv P_((unsigned char d[]));
  870. Xunsigned char *datereconv P_((long l));
  871. Xint timeconv P_((unsigned char t[]));
  872. Xunsigned char *timereconv P_((int i));
  873. Xunsigned char *shortname P_((unsigned char longname[]));
  874. Xint maybe_locked P_((unsigned char name[], unsigned char mode[]));
  875. Xunsigned char *numstripped P_((unsigned char s[]));
  876. Xvoid headline P_((unsigned char line[]));
  877. Xvoid mblock P_((unsigned char path[]));
  878. Xvoid mbunlock P_((unsigned char path[]));
  879. Xint tty P_((void));
  880. Xunsigned char *ttyna P_((void));
  881. Xvoid clearline P_((void));
  882. Xint isin P_((unsigned char pattern[], int c)); 
  883. X
  884. X/* weiterl.c */
  885. Xvoid weiterleiten P_((unsigned char arg[]));
  886. Xvoid carboncopy P_((unsigned char cc[], unsigned char bcc[]));
  887. X
  888. X/* xmd.c */
  889. Xint brief P_((unsigned char arg[]));
  890. Xint mailing P_((void));
  891. Xint main P_((int argc, unsigned char *argv[]));
  892. X
  893. X#undef P_
  894. X
  895. X
  896. X
  897. END_OF_FILE
  898.   if test 5444 -ne `wc -c <'src/proto.h'`; then
  899.     echo shar: \"'src/proto.h'\" unpacked with wrong size!
  900.   fi
  901.   # end of 'src/proto.h'
  902. fi
  903. if test -f 'src/show.c' -a "${1}" != "-c" ; then 
  904.   echo shar: Will not clobber existing file \"'src/show.c'\"
  905. else
  906.   echo shar: Extracting \"'src/show.c'\" \(15144 characters\)
  907.   sed "s/^X//" >'src/show.c' <<'END_OF_FILE'
  908. X/***************************************************************************/
  909. X/*        PROGRAMM  ix/Mbox                           */
  910. X/*             DATEI  show.c                           */
  911. X/*        FUNKTIONEN  show(), more(), richtext(), quoted_printable(),        */
  912. X/*              iso_convert(), sio_line()                       */
  913. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  914. X/*  LETZTE AENDERUNG  17.11.1992                       */
  915. X/***************************************************************************/
  916. X
  917. X#include <stdio.h>
  918. X#include <string.h>
  919. X
  920. X#include "mbox.h"
  921. X
  922. X
  923. Xstatic int show_more;
  924. Xstatic FILE *page;
  925. Xstatic unsigned char show_tmp[STRING];
  926. Xstatic int seite;
  927. X
  928. X
  929. Xextern unsigned char headinfo[STRING];
  930. X
  931. Xstatic int morechen;
  932. X
  933. X
  934. X/* Globals fuer RTF (Richtext Format): */
  935. X
  936. Xstatic int RTFcomment; 
  937. Xstatic int RTFcenter;
  938. Xstatic int RTFrightflush;
  939. Xstatic int RTFheading;
  940. X
  941. Xstatic unsigned char ENCODING[STRING];
  942. X
  943. Xstatic int QPkeys;
  944. X
  945. Xunsigned char *richtext();
  946. Xunsigned char *quoted_printable();
  947. Xunsigned char *iso_convert();
  948. Xunsigned char *iso_line();
  949. X
  950. X/***************************************************************************/
  951. X/*      FUNKTION  show()                               */
  952. X/*  BESCHREIBUNG  Zeigt den Inhalt einer Datei an.                */
  953. X/*     PARAMETER  fname    = Dateiname                                     */
  954. X/*          maxlines = mehr Zeilen auf keinen Fall ausgeben          */
  955. X/*          mode     = '> 99'  Ueberschrift einrechnen               */
  956. X/*                   '= 99'  Reset (alle Parameter von "show")   */
  957. X/*                   '=  0'  Kontinuierlich ausgeben             */
  958. X/*     RUECKGABE  -1  =  Datei nicht gefunden                              */
  959. X/*          -9  =  Datei ueberspringen                       */
  960. X/***************************************************************************/
  961. X
  962. X#define LLL 80
  963. X
  964. Xint show(fname, maxlines, mode)
  965. Xunsigned char fname[];
  966. Xint maxlines;
  967. Xint mode;
  968. X{
  969. X  FILE *fp;
  970. X
  971. X  unsigned char s[LONGSTRING];
  972. X  unsigned char o[LONGSTRING];
  973. X  unsigned char t[STRING];
  974. X  unsigned char CONTENT[STRING];
  975. X  int c;
  976. X  int ml;
  977. X  int ret_status = 0;
  978. X  int maxi = MAX_SCR_LINES;
  979. X  int swing = 0;
  980. X  int sl, ok;
  981. X  int i, e;
  982. X 
  983. X  int HEADER_lines = 0;
  984. X  int HEADER_path = 0;
  985. X  int HEADER_double = 0;
  986. X
  987. X  int FACE = 0;
  988. X
  989. X
  990. X  if (mode > 99) {        /* HEADLINE */
  991. X    mode -= 100;
  992. X    maxi -= 2;
  993. X    swing = 2;
  994. X    morechen = 1;
  995. X    seite = 1;
  996. X  }
  997. X  if (mode == 99) {        /* RESET */
  998. X    show_more = 0;
  999. X    seite = 1;
  1000. X    return 0;
  1001. X  }
  1002. X  fp = fopen(fname, "r");
  1003. X  if (fp == NULL) {
  1004. X    return -1;
  1005. X  }
  1006. X  ml = 0;
  1007. X  morechen = 0;
  1008. X
  1009. X  CONTENT[0] = '\0';
  1010. X  ENCODING[0] = '\0';
  1011. X 
  1012. X  RTFcomment    = 0;
  1013. X  RTFcenter     = 0;
  1014. X  RTFrightflush = 0; 
  1015. X  RTFheading    = 0;
  1016. X
  1017. X  QPkeys     = 0;
  1018. X
  1019. X
  1020. X
  1021. X  /* Temporary checking Usage */
  1022. X
  1023. X  if((strcomp("PM", BRETT) != 0) && (USER.level < 10)){
  1024. X    page = fopen( "/local/mbox/etc/usage", "a" );
  1025. X    fprintf(page, "%s\n", NG); 
  1026. X    fclose(page);
  1027. X  }
  1028. X
  1029. X  sprintf(show_tmp, "%s/show%d", TMP, getpid());
  1030. X  page = fopen(show_tmp, "w");
  1031. X
  1032. X  if (mode != 2)
  1033. X    show_more = 0;
  1034. X  else
  1035. X    morechen = show_more;
  1036. X
  1037. X  if (show_more > maxi) show_more = 0;
  1038. X
  1039. X
  1040. X  if(DISKUSSION){
  1041. X    while((fgets(t, STRING, fp) != NULL) && (strcomp("Subject: ", t) != 0));
  1042. X
  1043. X    if(strcomp("Subject: ", t) != 0) return -9;
  1044. X
  1045. X    if(sgrep( t, DIS_subject ) != 0){
  1046. X        rewind(fp);
  1047. X    }        
  1048. X    else{
  1049. X        fclose(fp);
  1050. X        fclose(page);
  1051. X        return -9;
  1052. X    }
  1053. X  }
  1054. X
  1055. X
  1056. X  while ((ml < maxlines) && (fgets(s, LONGSTRING, fp) != NULL)) {
  1057. X
  1058. X    if(SHORT_HEADER){
  1059. X        if((strcomp("Path: ", s) == 0) || (strcomp("Newsgroups: ", s) == 0)){
  1060. X            HEADER_path++;
  1061. X            continue;
  1062. X        }
  1063. X
  1064. X        if((HEADER_path != 0) && (HEADER_lines == 0)){
  1065. X
  1066. X            if(strcomp("From: ", s) == 0){
  1067. X                printf("%s %s", GBL01_MSG, strcopy(s, 6, strlen(s)));
  1068. X                fprintf(fp, "%s %s", GBL01_MSG, strcopy(s, 6, strlen(s)));
  1069. X                morechen++;
  1070. X            }
  1071. X            if(strcomp("Subject: ", s) == 0){
  1072. X                printf("%s %s", GBL03_MSG, strcopy(s, 9, strlen(s)));
  1073. X                fprintf(fp, "%s %s", GBL03_MSG, strcopy(s, 9, strlen(s)));
  1074. X                morechen++;
  1075. X            }        
  1076. X            if(strcomp("Date: ", s) == 0){
  1077. X                printf("%s %s\n", GBL02_MSG, strcopy(s, 6, strlen(s)));
  1078. X                fprintf(fp, "%s %s\n", GBL02_MSG, strcopy(s, 6, strlen(s)));
  1079. X                morechen++;
  1080. X            }
  1081. X            if(strlen(s) < 3){
  1082. X                HEADER_lines++;
  1083. X                morechen++;
  1084. X            }
  1085. X            continue;
  1086. X         }    
  1087. X    }
  1088. X    else{
  1089. X        if(HEADER_lines == 0){
  1090. X            sprintf(t, "%s %s", GBL01_MSG, X_MAIL_DEMON);
  1091. X            if(strcomp(t, s) == 0){
  1092. X                do{
  1093. X                    fgets(s, 250, fp);
  1094. X                }while(strcomp("From", s) != 0);
  1095. X                HEADER_double++;
  1096. X                ansi("md");
  1097. X            }
  1098. X            if((strcomp("Path:", s) == 0) || (strcomp("Newsgroups:", s) == 0) || (strcomp(GBL01_MSG, s) == 0)){
  1099. X                ansi("md");
  1100. X                HEADER_double++;
  1101. X            }    
  1102. X            if(strlen(s) < 3){
  1103. X                HEADER_lines++;
  1104. X                HEADER_double = 0;
  1105. X                ansi("me");
  1106. X            }            
  1107. X        }
  1108. X    }
  1109. X
  1110. X    if(strcomp("Content-Type:", s) == 0){
  1111. X        strcpy(CONTENT, (unsigned char *) strcopy(s, 14, 80));
  1112. X        if(strcomp("text/richtext", CONTENT) != 0) /* RTF etc. */
  1113. X             CONTENT[0] = '\0';
  1114. X    }
  1115. X    if(strcomp("Content-Transfer-Encoding:", s) == 0){
  1116. X        strcpy(ENCODING, (unsigned char *) strcopy(s, 27, 80));
  1117. X                
  1118. X    }
  1119. X    if(strcomp("Content-", s) == 0){
  1120. X        if((HEADER_lines != 0) || (ml < 2)) continue; /* :-)) */
  1121. X    }
  1122. X        if(strcomp("X-Face:", s) == 0){
  1123. X        if(FACE == 0){
  1124. X            FACE++;
  1125. X        }
  1126. X    }
  1127. X
  1128. X#ifdef _MULTIMEDIA
  1129. X    if(strcomp("Quoted-Printable", ENCODING) == 0){
  1130. X        strcpy(s, (unsigned char *) quoted_printable(s));
  1131. X    }
  1132. X    if(CONTENT[0] != '\0'){
  1133. X        strcpy(s, (unsigned char *) richtext(s));
  1134. X    }
  1135. X#endif    
  1136. X    if(UMLAUT_MODUS != 4) strcpy(s, (unsigned char *) iso_line(s));
  1137. X
  1138. X    sl = length(s);
  1139. X    while(sl > LLL){
  1140. X        strcpy(o, (unsigned char *) s);
  1141. X        sl = LLL; ok = 0;
  1142. X        i = 0;
  1143. X        while((s[i] != '\0') && (i <= sl)){
  1144. X            if(s[i] == ESC){
  1145. X                i++;
  1146. X                while((s[i] < 65) || (s[i] == '[')){
  1147. X                    i++;
  1148. X                    sl++;
  1149. X                }
  1150. X                sl += 2;
  1151. X            }            
  1152. X            i++;
  1153. X        }
  1154. X
  1155. X        while((sl > 0) && (ok == 0)){
  1156. X            if(s[sl] < 48){
  1157. X                ok = sl;
  1158. X            }
  1159. X            sl--;
  1160. X        }
  1161. X        s[ok] = '\0';
  1162. X        morechen++;
  1163. X
  1164. X        if(sl < (strlen(o)-1)){
  1165. X            printf("%s\n",  s);
  1166. X            fprintf(page, "%s\n", s);
  1167. X        
  1168. X            strcpy(s, (unsigned char *)bigcopy(o, ok, length(o)));
  1169. X            sl = length(s);
  1170. X        }
  1171. X        else{
  1172. X            sl = 0;
  1173. X        }    
  1174. X
  1175. X        if(ok == 0){
  1176. X            sl = LLL;
  1177. X            printf("[SysBug \"show.c\"]");
  1178. X        }
  1179. X        if(s[0] == '\n') s[0] = '\0';
  1180. X    }
  1181. X    i = strlen(s) -1;
  1182. X    if(s[i] == '\n') s[i] = '\0'; 
  1183. X    printf("%s\n", s);
  1184. X    fputs(s, page);
  1185. X    ml++;
  1186. X    morechen++;
  1187. X    if ((morechen >= maxi) && (mode > 0)) {
  1188. X        morechen = 0;
  1189. X        maxi += swing;
  1190. X        swing = 0;
  1191. X        fclose(page);
  1192. X        ret_status = more();
  1193. X        if (ret_status != 0) {
  1194. X            ml = maxlines + 9999;
  1195. X        }
  1196. X        else {
  1197. X            page = fopen(show_tmp, "w");
  1198. X            if(HEADER_double != 0){
  1199. X                ansi( "md" );
  1200. X            }
  1201. X        }
  1202. X    }
  1203. X  }
  1204. X  fclose(fp);
  1205. X
  1206. X  show_more = morechen;
  1207. X
  1208. X  if (page != NULL) fclose(page);
  1209. X  unlink(show_tmp);
  1210. X
  1211. X  /*            Experimental Use only !
  1212. X  */
  1213. X  if(FACE != 0){
  1214. X    faces( fname );
  1215. X  }
  1216. X
  1217. X
  1218. X  return (int) ret_status;
  1219. X}
  1220. X
  1221. X
  1222. X
  1223. X/***************************************************************************/
  1224. X/*      FUNKTION  more()                           */
  1225. X/*  BESCHREIBUNG  Erfragen ob weitergelesen werden soll, oder nicht.       */
  1226. X/*     PARAMETER  keine                                                 */
  1227. X/*     RUECKGABE  0  =  weiterlesen                                        */
  1228. X/*         -1  =  abbrechen                           */
  1229. X/***************************************************************************/
  1230. X
  1231. Xint more()
  1232. X{
  1233. X  unsigned char s[LONGSTRING];
  1234. X  unsigned char c;
  1235. X  int ok = 0;
  1236. X
  1237. XFIRST_TRY:
  1238. X
  1239. X  ansi("mr");
  1240. X  printf("                                                                               ");
  1241. X  printf("%c[%s] (?) > ", CR, SHO04_MSG);
  1242. X  ansi("me");
  1243. X
  1244. XSECOND_TRY:
  1245. X
  1246. X  c = getint();
  1247. X
  1248. X  if (c == '?') {
  1249. X    ansi("mr");
  1250. X    clearline();
  1251. X    printf("%c%s > ", CR, SHO05_MSG);
  1252. X    ansi("me");
  1253. X    goto SECOND_TRY;
  1254. X  }
  1255. X  if (c > 96) c -= 32;
  1256. X
  1257. X  if ((c == DEL) ||
  1258. X      (c == CTRL_D) ||
  1259. X      (c == CTRL_X) ||
  1260. X      (c == SHO06_MSG) ||
  1261. X      (c == SHO07_MSG))
  1262. X    ok = -1;
  1263. X
  1264. X  if ((c == SHO08_MSG) || (c == SHO09_MSG)) ok = 1;
  1265. X
  1266. X  if (c == SHO10_MSG) {
  1267. X    ansi("cl");
  1268. X    ansi("mr");
  1269. X    printf("                                                                               ");
  1270. X    printf("%c%s\n", CR, SHO11_MSG);
  1271. X    ansi("me");    
  1272. X    page = fopen(show_tmp, "r");
  1273. X    if (page != NULL) {
  1274. X        while (fgets(s, 250, page) != NULL) {
  1275. X            printf("%s", s);
  1276. X        }
  1277. X        fclose(page);
  1278. X    }
  1279. X    goto FIRST_TRY;
  1280. X  }
  1281. X 
  1282. X  if(ok != 1){    
  1283. X      if (USER.more == 3) {
  1284. X        clearline();
  1285. X      }
  1286. X      else {
  1287. X        if(USER.more != 0){
  1288. X            ansi("cl");
  1289. X            seite++;
  1290. X            sprintf(s, "%s^-  [%s %d]", headinfo, SHO12_MSG, seite);
  1291. X            headline(s);
  1292. X        }
  1293. X        else printf("\n\n");
  1294. X      }
  1295. X  }
  1296. X  else{    
  1297. X    clearline();
  1298. X  }
  1299. X
  1300. X  return (int) ok;
  1301. X}
  1302. X
  1303. X
  1304. X
  1305. X/***************************************************************************/
  1306. X/*      FUNKTION  richtext()                           */
  1307. X/*  BESCHREIBUNG  RTF ... die Zukunft kommt bestimmt :-)))           */
  1308. X/*     PARAMETER  Zeile im RT-Format                                       */
  1309. X/*     RUECKGABE  Zeile im ANSI-Format                       */
  1310. X/***************************************************************************/
  1311. X
  1312. Xunsigned char *richtext( s )
  1313. Xunsigned char s[];
  1314. X{
  1315. X  unsigned char rt[LONGSTRING];
  1316. X  unsigned char line[LONGSTRING];
  1317. X  unsigned char space[LONGSTRING];
  1318. X  int i = 0, j;
  1319. X  int l = 0;
  1320. X  int not;
  1321. X  int keys = 0;
  1322. X
  1323. X  while(s[i] != '\0'){
  1324. X    if(s[i] != '<'){
  1325. X        if(RTFcomment == 0){
  1326. X            /* RTF-Konform:
  1327. X            if(s[i] == '\n')
  1328. X                line[l] = ' ';
  1329. X            else
  1330. X                line[l] = s[i];
  1331. X            NICHT RTF-Konform: */
  1332. X
  1333. X            line[l] = s[i];
  1334. X            l++;
  1335. X            keys++;
  1336. X        }
  1337. X    }
  1338. X    else{
  1339. X        line[l] = '\0';
  1340. X        not = 0;
  1341. X        i++;
  1342. X        j = i;
  1343. X        while((s[j] != '>') && (s[j] != '\0')){
  1344. X            if(s[j] == '/'){
  1345. X                i++;
  1346. X                not++;
  1347. X            }
  1348. X            j++;
  1349. X        }
  1350. X        strcpy(rt, (unsigned char *) strcopy(s, i, (j-1)));
  1351. X
  1352. X        if(not == 0){
  1353. X            if(strcomp("Bold",       rt) == 0) 
  1354. X                strcat( line, (unsigned char *) termansi( "md" ));
  1355. X            if(strcomp("Italic",     rt) == 0) 
  1356. X                strcat( line, (unsigned char *) termansi( "mr" ));
  1357. X            if(strcomp("Bigger",     rt) == 0) 
  1358. X                strcat( line, (unsigned char *) termansi( "mb" ));
  1359. X            if(strcomp("Underline",  rt) == 0) 
  1360. X                strcat( line, (unsigned char *) termansi( "us" ));
  1361. X            if(strcomp("Paragraph",  rt) == 0){
  1362. X                strcat( line, "\n\n");
  1363. X                morechen += 2;
  1364. X            }
  1365. X            if(strcomp("Comment",    rt) == 0)
  1366. X                RTFcomment++;
  1367. X            if(strcomp("Center",     rt) == 0)
  1368. X                RTFcenter++;
  1369. X            if(strcomp("FlushRight", rt) == 0)
  1370. X                RTFrightflush++;
  1371. X            if(strcomp("Heading",   rt) == 0){
  1372. X                RTFheading++;
  1373. X                strcat( line, (unsigned char *) termansi( "md" ));
  1374. X            }
  1375. X        }
  1376. X        else{
  1377. X            if(strcomp("Bold",       rt) == 0) 
  1378. X                strcat( line, (unsigned char *) termansi( "me" ));
  1379. X            if(strcomp("Italic",     rt) == 0) 
  1380. X                strcat( line, (unsigned char *) termansi( "me" ));
  1381. X            if(strcomp("Bigger",     rt) == 0) 
  1382. X                strcat( line, (unsigned char *) termansi( "me" ));
  1383. X            if(strcomp("Underline",  rt) == 0) 
  1384. X                strcat( line, (unsigned char *) termansi( "me" ));
  1385. X            if(strcomp("Paragraph",  rt) == 0){
  1386. X                strcat( line, "\n\n");
  1387. X                morechen += 2;
  1388. X            }
  1389. X            if(strcomp("Comment",    rt) == 0)
  1390. X                RTFcomment = 0;
  1391. X            if(strcomp("Center",     rt) == 0)
  1392. X                RTFcenter = 9999;
  1393. X            if(strcomp("FlushRight", rt) == 0)
  1394. X                RTFrightflush = 9999;
  1395. X            if(strcomp("Heading",   rt) == 0){
  1396. X                RTFheading = 9999;
  1397. X                strcat( line, (unsigned char *) termansi( "me" ));
  1398. X            }
  1399. X        }
  1400. X
  1401. X        if(strcomp("LT", rt) == 0) 
  1402. X            strcat( line, (unsigned char *) "<" );
  1403. X
  1404. X        /* NICHT RTF-Konform:
  1405. X        if(strcomp("NL", rt) == 0){ 
  1406. X            strcat( line, (unsigned char *)  "\n" );
  1407. X            morechen++;
  1408. X        }
  1409. X        */
  1410. X
  1411. X        if(strcomp("NP", rt) == 0) 
  1412. X            strcat( line, (unsigned char *) "\f" );
  1413. X        if(RTFcomment == 0){
  1414. X            l = strlen(line);
  1415. X        }
  1416. X        i = j;
  1417. X    }
  1418. X    i++;
  1419. X  }
  1420. X  line[l] = '\0';
  1421. X  strcpy(space, (unsigned char *) "                                                                              ");    
  1422. X
  1423. X  if((RTFcenter != 0) || (RTFheading != 0)){
  1424. X    i = (79 - keys) / 2; 
  1425. X    if(i <  0) i = 0;
  1426. X    if(i > 79) i = 0;
  1427. X    space[i] = '\0';
  1428. X    strcat(space, (unsigned char *) line);
  1429. X    strcpy(line, (unsigned char *) space);
  1430. X  }
  1431. X  if(RTFrightflush != 0){
  1432. X    i = 79 - keys;
  1433. X    space[i] = '\0';
  1434. X    strcat(space, (unsigned char *) line);
  1435. X    strcpy(line, (unsigned char *) space);
  1436. X  }
  1437. X  /*  
  1438. X  printf("%s", line);
  1439. X  */
  1440. X  if(RTFcenter     == 9999) RTFcenter = 0;
  1441. X  if(RTFrightflush == 9999) RTFrightflush = 0;
  1442. X  if(RTFheading    == 9999) RTFheading = 0;
  1443. X
  1444. X  return (unsigned char *) line;
  1445. X}
  1446. X
  1447. X
  1448. X
  1449. X
  1450. X/***************************************************************************/
  1451. X/*      FUNKTION  quoted_printable()                       */
  1452. X/*  BESCHREIBUNG  Transfer-Encoding: Regel #1 bis #5               */
  1453. X/*     PARAMETER  Zeile im RT-Format                                       */
  1454. X/*     RUECKGABE  Decodierte Zeile                       */
  1455. X/***************************************************************************/
  1456. X
  1457. Xunsigned char *quoted_printable( s )
  1458. Xunsigned char s[];
  1459. X{
  1460. X  unsigned char line[LONGSTRING];
  1461. X  unsigned char t[STRING];
  1462. X  int i = 0, l = 0, p = 0;
  1463. X
  1464. X  while(s[i] != '\0'){
  1465. X    if(s[i] == '='){
  1466. X        if(s[(i+1)] == '\n'){
  1467. X            i++;
  1468. X        }
  1469. X        else{
  1470. X            if(s[(i+1)] < 65)
  1471. X                p = 16 * (s[(i+1)] - 48);
  1472. X            else
  1473. X                p = 16 * (s[(i+1)] - 55);
  1474. X            if(s[(i+2)] < 65)
  1475. X                p = p  + (s[(i+2)] - 48); 
  1476. X            else
  1477. X                p = p  + (s[(i+2)] - 55); 
  1478. X            line[l] = p;
  1479. X            l++;
  1480. X            i += 2;
  1481. X        }
  1482. X    }
  1483. X    else{
  1484. X        line[l] = s[i];
  1485. X        l++;
  1486. X        QPkeys++;
  1487. X        if(s[i] == '\n') QPkeys = 0;
  1488. X    }
  1489. X
  1490. X    if(QPkeys >= 75){
  1491. X        p = l;
  1492. X        while((line[p] != ' ') && (p > 0)){
  1493. X            p--;
  1494. X        }
  1495. X        line[p] = '\n';
  1496. X        QPkeys = 0;
  1497. X    }
  1498. X    i++;
  1499. X  }
  1500. X  line[l] = '\0';
  1501. X
  1502. X  return (unsigned char *) line;
  1503. X}
  1504. X
  1505. X
  1506. X
  1507. X
  1508. X/***************************************************************************/
  1509. X/*      FUNKTION  iso_convert()                           */
  1510. X/*  BESCHREIBUNG  Konvertiert ISO 8859-1 / IBM                    */
  1511. X/*     PARAMETER  Char als ISO-Zeichen                                     */
  1512. X/*     RUECKGABE  String mit Ersatz-Zeichen                   */
  1513. X/***************************************************************************/
  1514. X
  1515. Xunsigned char *iso_convert( c )
  1516. Xint c;
  1517. X{
  1518. X  int i = 0;
  1519. X  int ok = 0;
  1520. X
  1521. X  unsigned char t[STRING];
  1522. X 
  1523. X  t[1] = '\0';
  1524. X
  1525. X  if(c > 127){
  1526. X
  1527. X    if(UMLAUT_MODUS == 1){
  1528. X        switch(c){
  1529. X            case 142 :
  1530. X            case 196 : t[0] = 196; 
  1531. X                   break;
  1532. X            case 153 :
  1533. X            case 214 : t[0] = 214; 
  1534. X                   break;
  1535. X            case 154 :
  1536. X            case 220 : t[0] = 220; 
  1537. X                   break;
  1538. X            case 225 : 
  1539. X            case 223 : t[0] = 223; 
  1540. X                   break;
  1541. X            case 132 :
  1542. X            case 228 : t[0] = 228; 
  1543. X                   break;
  1544. X            case 148 :
  1545. X            case 246 : t[0] = 246;
  1546. X                   break;
  1547. X            case 129 :
  1548. X            case 252 : t[0] = 252; 
  1549. X                   break;
  1550. X        }
  1551. X    }
  1552. X    if(UMLAUT_MODUS == 2){
  1553. X        switch(c){
  1554. X            case 142 :
  1555. X            case 196 : t[0] = 142; 
  1556. X                   break;
  1557. X            case 153 :
  1558. X            case 214 : t[0] = 153; 
  1559. X                   break;
  1560. X            case 154 :
  1561. X            case 220 : t[0] = 154; 
  1562. X                   break;
  1563. X            case 225 : 
  1564. X            case 223 : t[0] = 225; 
  1565. X                   break;
  1566. X            case 132 :
  1567. X            case 228 : t[0] = 132; 
  1568. X                   break;
  1569. X            case 148 :
  1570. X            case 246 : t[0] = 148;
  1571. X                   break;
  1572. X            case 129 :
  1573. X            case 252 : t[0] = 129; 
  1574. X                   break;
  1575. X        }
  1576. X    }
  1577. X    if(UMLAUT_MODUS == 3){
  1578. X        switch(c){
  1579. X            case 142 :
  1580. X            case 196 : t[0] = 'A'; ok++;
  1581. X                   break;
  1582. X            case 153 :
  1583. X            case 214 : t[0] = 'O'; ok++;
  1584. X                   break;
  1585. X            case 154 :
  1586. X            case 220 : t[0] = 'U'; ok++;
  1587. X                   break;
  1588. X            case 225 : 
  1589. X            case 223 : t[0] = 's'; 
  1590. X                   t[1] = 's';
  1591. X                   break;
  1592. X            case 132 :
  1593. X            case 228 : t[0] = 'a'; ok++;
  1594. X                   break;
  1595. X            case 148 :
  1596. X            case 246 : t[0] = 'o'; ok++;
  1597. X                   break;
  1598. X            case 129 :
  1599. X            case 252 : t[0] = 'u'; ok++;
  1600. X                   break;
  1601. X        }
  1602. X        if(ok != 0){
  1603. X            t[1] = 'e';
  1604. X        }
  1605. X        t[2] = '\0';
  1606. X    }
  1607. X  }
  1608. X  else{
  1609. X    t[0] = c;
  1610. X  }
  1611. X    
  1612. X  return (unsigned char *) t;
  1613. X}
  1614. X
  1615. X
  1616. Xunsigned char *iso_line( s )
  1617. Xunsigned char s[];
  1618. X{
  1619. X  unsigned char t[LONGSTRING];
  1620. X
  1621. X  int i = 0;
  1622. X
  1623. X  t[0] = '\0';
  1624. X  
  1625. X  while(s[i] != '\0'){
  1626. X    strcat(t, (unsigned char *) iso_convert( s[i] ));
  1627. X    i++;
  1628. X  }
  1629. X
  1630. X  return (unsigned char *) t;
  1631. X}
  1632. END_OF_FILE
  1633.   if test 15144 -ne `wc -c <'src/show.c'`; then
  1634.     echo shar: \"'src/show.c'\" unpacked with wrong size!
  1635.   fi
  1636.   # end of 'src/show.c'
  1637. fi
  1638. if test -f 'src/xmd.c' -a "${1}" != "-c" ; then 
  1639.   echo shar: Will not clobber existing file \"'src/xmd.c'\"
  1640. else
  1641.   echo shar: Extracting \"'src/xmd.c'\" \(13319 characters\)
  1642.   sed "s/^X//" >'src/xmd.c' <<'END_OF_FILE'
  1643. X/***************************************************************************/
  1644. X/*        PROGRAMM  ix/Mbox                           */
  1645. X/*             DATEI  xmd.c                           */
  1646. X/*        FUNKTIONEN  brief(), mailing(), main()               */
  1647. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1648. X/*  LETZTE AENDERUNG  04.09.1992                       */
  1649. X/***************************************************************************/
  1650. X
  1651. X#include <sys/types.h>
  1652. X#include <sys/stat.h>
  1653. X#include <unistd.h>
  1654. X#include <stdio.h>
  1655. X#include <fcntl.h>
  1656. X#include <time.h>
  1657. X
  1658. X#include "mbox.h"
  1659. X
  1660. X
  1661. Xunsigned char tmp[STRING];
  1662. Xunsigned char alias[MAX_XMD_ALIAS][2][STRING];
  1663. Xunsigned char x400[STRING];
  1664. Xint INTERACT;
  1665. X
  1666. X
  1667. X
  1668. X/***************************************************************************/
  1669. X/*      FUNKTION  brief()                           */
  1670. X/*  BESCHREIBUNG  Leitet einen Brief weiter an einen MBox-Account.       */
  1671. X/*          Auf diese Weise ist der Mbox-User auch unter der         */
  1672. X/*          Adresse 'Real.Name@UUCPID' erreichbar.           */
  1673. X/*     PARAMETER  arg  =  Mbox-User-Name                                   */
  1674. X/*     RUECKGABE  keine                                                    */
  1675. X/***************************************************************************/
  1676. X
  1677. Xbrief(arg)
  1678. Xunsigned char arg[];
  1679. X{
  1680. X  FILE *fp;
  1681. X  FILE *ff;
  1682. X  int fd;
  1683. X  int i, a, b;
  1684. X  int ok;
  1685. X  struct userdaten LOOSER;
  1686. X
  1687. X  struct tm *timeptr;
  1688. X  time_t timer;
  1689. X
  1690. X  int receiver;
  1691. X  static int mail_id;
  1692. X  int EX_PM   = 0;
  1693. X  int REPLY   = 0;
  1694. X  int lines   = 0;
  1695. X  int local   = 0;
  1696. X  int arrived = 1;
  1697. X
  1698. X
  1699. X  unsigned char s[STRING];
  1700. X  unsigned char t[STRING];
  1701. X  unsigned char top[STRING];
  1702. X  unsigned char subject[STRING];
  1703. X  unsigned char autor[STRING];
  1704. X  unsigned char rec_char[STRING];
  1705. X  unsigned char ex[255];
  1706. X  unsigned char user[STRING];
  1707. X  unsigned char c;
  1708. X  unsigned char protokoll;
  1709. X  unsigned char destination[STRING];
  1710. X  unsigned char receipt[STRING];
  1711. X
  1712. X  i = 0;
  1713. X  ok = 0;
  1714. X
  1715. X
  1716. X  strcpy(user, (unsigned char *) stripped(arg));
  1717. X  strcpy(subject, XMD01_MSG);
  1718. X
  1719. X  JUNK:    receiver = 0;
  1720. X
  1721. X  fd = open(UDBASE, O_RDONLY);
  1722. X  if (fd == -1) {
  1723. X    printf("\nSHIT!\n");
  1724. X    exit(-1);
  1725. X  }
  1726. X  lseek(fd, 0L, SEEK_SET);
  1727. X  while ((read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER)) && (receiver == 0)) {
  1728. X    if ((strcomp(user, LOOSER.name) == 0) ||
  1729. X        (strcomp(LOOSER.name, user) == 0) ||
  1730. X        (strcomp(user, LOOSER.nick) == 0) ||
  1731. X        (strcomp(user, LOOSER.sh_name) == 0)) {
  1732. X        receiver = LOOSER.id;
  1733. X        strcpy(rec_char, LOOSER.name);
  1734. X    }
  1735. X  }
  1736. X  close(fd);
  1737. X
  1738. X  if (receiver == 0) {
  1739. X    sprintf(subject, "[xmd:] '%s' ???   ", user);
  1740. X    strcpy(user, POSTMASTER);
  1741. X    arrived = 0;
  1742. X    goto JUNK;
  1743. X  }
  1744. X  sprintf(s, "%s/usr/%d/seq", HOME, receiver);
  1745. X  fp = fopen(s, "r");
  1746. X  fgets(s, 80, fp);
  1747. X  mail_id = atoi( s );
  1748. X  fclose(fp);
  1749. X
  1750. X  sprintf(destination, "%s/usr/%d/%d", HOME, receiver, mail_id);
  1751. X  fp = fopen(destination, "w");
  1752. X
  1753. X  sprintf(s, "%s %s (%s)\n", GBL01_MSG, X_MAIL_DEMON, "xmd");
  1754. X  fputs(s, fp);
  1755. X
  1756. X  time(&timer);
  1757. X  timeptr = localtime(&timer);
  1758. X  strcpy(t, (unsigned char *) asctime(timeptr));
  1759. X
  1760. X  sprintf(s, "%s %s", GBL02_MSG, t);
  1761. X  fputs(s, fp);
  1762. X
  1763. X  sprintf(s, "%s %s\n\n", GBL03_MSG, subject);
  1764. X  fputs(s, fp);
  1765. X
  1766. X  fprintf(fp, "%s\n\n", XMD02_MSG);
  1767. X
  1768. X  lines = 7;
  1769. X
  1770. X  autor[0] = '\0';
  1771. X  subject[0] = '\0';
  1772. X
  1773. X  ff = fopen(tmp, "r");
  1774. X  if (ff == NULL) {
  1775. X    return;
  1776. X  }
  1777. X  while (fgets(s, 80, ff) != NULL) {
  1778. X    i = 0;
  1779. X    /*
  1780. X    while(s[i] != '\0'){
  1781. X        if(s[i] > 127){
  1782. X            s[i] = '?';
  1783. X        }
  1784. X        i++;
  1785. X    }
  1786. X    */
  1787. X    if(strcomp("*From ", s) == 0){
  1788. X        strcpy(s, (unsigned char *) stripped(strcopy(s, 1, 80)));
  1789. X        strcat(s, "\n");
  1790. X    }
  1791. X    fputs(s, fp);
  1792. X    lines++;
  1793. X    if((strcomp("Subject: ", s) == 0) && (subject[0] == '\0')){
  1794. X        strcpy(subject, (unsigned char *) stripped(strcopy(s, 9, 80)));
  1795. X    }
  1796. X    if((strcomp("From: ", s) == 0) && ((autor[0] == '\0') || (local = 1))){
  1797. X        strcpy(autor, (unsigned char *) stripped(strcopy(s, 6, 80)));
  1798. X        local = 0;
  1799. X    }
  1800. X    if(strcomp("From ", s) == 0){
  1801. X        strcpy(autor, (unsigned char *) stripped(strcopy(s, 5, 80)));
  1802. X        local = 1;
  1803. X    }
  1804. X    if(strcomp("*From ", s) == 0){
  1805. X        strcpy(autor, (unsigned char *) stripped(strcopy(s, 6, 80)));
  1806. X        local = 1;
  1807. X    }
  1808. X    if(strcomp("Return-Receipt-To: ", s) == 0){
  1809. X        strcpy(receipt, (unsigned char *) stripped(strcopy(s, 19, 80)));
  1810. X    }
  1811. X  }
  1812. X  fclose(ff);
  1813. X  fclose(fp);
  1814. X
  1815. X  i = 0; 
  1816. X  while(autor[i] != '\0'){
  1817. X    if(autor[i] == '(') autor[(i-1)] = '\0';
  1818. X    i++;
  1819. X  }
  1820. X
  1821. X  if((local == 1) && (strcomp("postmaster", autor) == 0)){
  1822. X    fclose(fp);
  1823. X    unlink(destination);
  1824. X    if(INTERACT == 0) printf("[%s]\n", arg);
  1825. X    fp = fopen( XMDLOG, "a" );
  1826. X    fprintf(fp, "%-29.29s   %33.33s\n", (unsigned char *) stripped(arg), subject);
  1827. X    fclose(fp);
  1828. X    return;
  1829. X  }
  1830. X
  1831. X  sprintf(s, "%s/usr/%d/INDEX", HOME, receiver);
  1832. X  fp = fopen(s, "a");
  1833. X
  1834. X  sprintf(s, "%d              ", mail_id);
  1835. X  s[6] = '\0';
  1836. X  fputs(s, fp);
  1837. X
  1838. X  sprintf(ex, "%s                                  ", subject);
  1839. X  ex[26] = '\0';
  1840. X  fputs(ex, fp);
  1841. X
  1842. X  sprintf(ex, "  %s                                        ", autor);
  1843. X  ex[22] = '\0';
  1844. X  fputs(ex, fp);
  1845. X
  1846. X
  1847. X  strcpy(s, (unsigned char *) mydate(1));
  1848. X  strcpy(t, (unsigned char *) mytime(1));
  1849. X  sprintf(ex, "  %s  %s         ", s, t);
  1850. X  ex[19] = '\0';
  1851. X  fputs(ex, fp);
  1852. X
  1853. X  sprintf(s, "%-5.d\n", lines);
  1854. X  fputs(s, fp);
  1855. X
  1856. X  fclose(fp);
  1857. X
  1858. X  sprintf(s, "%s/usr/%d/seq", HOME, receiver);
  1859. X  fp = fopen(s, "w");
  1860. X  rewind(fp);
  1861. X  fprintf(fp, "%d\n", (int) (mail_id + 1));
  1862. X  fclose(fp);
  1863. X
  1864. X  if(INTERACT == 0) printf("%s\n", arg);
  1865. X
  1866. X  ff = fopen( XMDLOG, "a" );
  1867. X  fprintf(ff, "%5.5s  %5.5s   %-29.29s   %-31.31s\n", 
  1868. X      (unsigned char *) mydate( 1 ), (unsigned char *) mytime( 1 ),
  1869. X      (unsigned char *) stripped(arg), subject);
  1870. X  fclose(ff);
  1871. X
  1872. X  if(receipt[0] != '\0'){
  1873. X    i = 0; b = 0;
  1874. X    while(receipt[i] != '\0'){
  1875. X        if(receipt[i] == '!') b = i;
  1876. X        if(receipt[i] == '@') b = i;
  1877. X        i++;
  1878. X    }
  1879. X    if(b == 0) return;
  1880. X     i = b; a = 0;
  1881. X    while((i > 0) && (a == 0)){
  1882. X        if((receipt[i] == ' ') ||
  1883. X           (receipt[i] == '<') ||
  1884. X           (receipt[i] == '(')) a = i + 1;
  1885. X        i--;
  1886. X    }
  1887. X      i = b; b = 0;
  1888. X     while((receipt[i] != '\0') && (b == 0)){
  1889. X        if((receipt[i] == ' ') ||
  1890. X           (receipt[i] == '>') ||
  1891. X           (receipt[i] == ')')) b = i -1;
  1892. X        i++;
  1893. X    }
  1894. X    if(b == 0) b = i -1;
  1895. X     strcpy(receipt, (unsigned char *) strcopy(receipt, a, b));
  1896. X
  1897. X    sprintf(t, "%s/%d.REC", TMP, getpid());
  1898. X    ff = fopen( t, "w" );    
  1899. X
  1900. X    time(&timer);
  1901. X
  1902. X    fprintf(ff, "From: XMD@%s\n", UUCPID2); 
  1903. X    fprintf(ff, "Sender: postmaster@%s (Die Postmeisterei)\n", UUCPID2);
  1904. X    fprintf(ff, "Organization: %s\n", ORGANIZATION);
  1905. X    fprintf(ff, "To: %s\n", receipt);
  1906. X    fprintf(ff, "Subject: Delivering Report\n");
  1907. X    fprintf(ff, "X-Mailer: %s %s %s\n", VERSION, PATCHLEVEL, AUTOR);    
  1908. X    fprintf(ff, "Message-Id: <%x.xmd@%s>\n", timer, UUCPID2);
  1909. X    fputs("\n", ff);
  1910. X
  1911. X    fprintf(ff, "Wuppertal (FRG), %s at %s\n\n", mydate( 1 ), mytime( 1 ));
  1912. X
  1913. X    fprintf(ff, "Your mail \"%s\" ...\n", subject);
  1914. X    if(arrived == 1){
  1915. X        fprintf(ff, "reached %s.\n\nBye now!\n", (unsigned char *) stripped(arg));
  1916. X    }
  1917. X    else{
  1918. X        fprintf(ff, "couldn't be delivered to %s.\n\n", (unsigned char *) stripped(arg));
  1919. X        fprintf(ff, "The local postmaster got a copy of your mail! Maybe he is able to forward it\nto the correct receipient!\n\n");
  1920. X    }
  1921. X    fclose(ff);
  1922. X
  1923. X    sprintf(s, "/bin/sh ./etc/rmail.sh %s %s", t, receipt);
  1924. X    printf("%s\n", s);
  1925. X    system(s);
  1926. X    unlink( t );
  1927. X  }
  1928. X}
  1929. X
  1930. X
  1931. X
  1932. X
  1933. X/***************************************************************************/
  1934. X/*      FUNKTION  is_external()                           */
  1935. X/*  BESCHREIBUNG  Wenn die MBox auch ein Gateway betreibt ...           */
  1936. X/*     PARAMETER  s = "To: ...." Zeile                                     */
  1937. X/*     RUECKGABE  Position des "%" Zeichens                                */
  1938. X/***************************************************************************/
  1939. X
  1940. X
  1941. Xint is_external( s )
  1942. Xunsigned char s[];
  1943. X{
  1944. X  int i = 0, j = 0, p = 0;
  1945. X
  1946. X  if(strcomp("To: Empty Address", s) == 0) return (int) -1;
  1947. X
  1948. X  while(s[i] != '\0'){
  1949. X    if(s[i] == '%') j++;
  1950. X    if((s[i] == '@') && (j > 0)) p = i;
  1951. X    i++;
  1952. X  }
  1953. X  return (int) p;
  1954. X}
  1955. X
  1956. X
  1957. X
  1958. X/***************************************************************************/
  1959. X/*      FUNKTION  mailing()                           */
  1960. X/*  BESCHREIBUNG  Isoliert den Mbox-User-Namen aus der UUCP-Adresse und       */
  1961. X/*                ruft mit diesem Namen die Routine "brief()" auf.       */
  1962. X/*     PARAMETER  keine                                                       */
  1963. X/*     RUECKGABE  keine                                                    */
  1964. X/***************************************************************************/
  1965. X
  1966. Xmailing()
  1967. X{
  1968. X  FILE *fp;
  1969. X  FILE *ff;
  1970. X  unsigned char s[255];
  1971. X  unsigned char t[STRING];
  1972. X  int i, j;
  1973. X  int toggle = 0;
  1974. X
  1975. X  fp = fopen(tmp, "r");
  1976. X  if (fp == NULL) {
  1977. X    printf("\nPuhhh???\n");
  1978. X    exit(-1);
  1979. X  }
  1980. X  while (fgets(s, 80, fp) != NULL) {
  1981. X    if ((strcomp("X400-Recipients:", s) == 0) && (toggle == 0)){
  1982. X        i = 16;
  1983. X        j = 0;
  1984. X        while(s[i] != '\0'){
  1985. X            if(s[i] == '<') j = i+1;
  1986. X            if(s[i] == '@'){
  1987. X                strcpy(x400, (unsigned char *) strcopy(s, j, (i-1)));
  1988. X            }
  1989. X            i++;
  1990. X        }
  1991. X    }
  1992. X    if ((strcomp("To:", s) == 0) && (toggle == 0)){
  1993. X        i = 1;
  1994. X        toggle++;
  1995. X        while(strcomp("EOL", alias[i][1]) != 0){    
  1996. X            if(strcomp(alias[i][1], s) == 0) strcpy(s, alias[i][2]);
  1997. X            i++;
  1998. X        }
  1999. X
  2000. X        i = 0;
  2001. X        j = 0;
  2002. X        while ((s[i] != '\0') && (s[i] != '@')) {
  2003. X            if (s[i] == '!') j = i;
  2004. X            if (s[i] == '.') s[i] = ' ';
  2005. X            i++;
  2006. X        }
  2007. X        i--;
  2008. X        if (j == 0) {
  2009. X            strcpy(t, (unsigned char *) strcopy(s, 4, i));
  2010. X        } else {
  2011. X            strcpy(t, (unsigned char *) strcopy(s, (j + 1), length(s)));
  2012. X        }
  2013. X        if(is_external(s) == 0){
  2014. X            brief(t);
  2015. X        }
  2016. X        else{    
  2017. X            if(strcomp("Empty Address", t) == 0){
  2018. X                strcpy(t, (unsigned char *) x400);
  2019. X            }
  2020. X            sprintf(s, "rmail -v -d -i %s %s@amnet.UUCP", tmp, t);
  2021. X            if(INTERACT == 0) printf("%s\n", t);
  2022. X            system( s );
  2023. X            ff = fopen( XMDLOG, "a" );
  2024. X            fprintf(ff, "%5.5s  %5.5s > %-29.29s   [Gateway]\n", 
  2025. X                (unsigned char *) mydate( 1 ), (unsigned char *) mytime( 1 ),
  2026. X                    (unsigned char *) t);
  2027. X            fclose(ff);
  2028. X        }
  2029. X    }
  2030. X  }
  2031. X
  2032. X  fclose(fp);
  2033. X
  2034. X  /*
  2035. X  unlink(tmp);
  2036. X  */
  2037. X}
  2038. X
  2039. X
  2040. X
  2041. X
  2042. X/***************************************************************************/
  2043. X/*      FUNKTION  main() (xmd)                           */
  2044. X/*  BESCHREIBUNG  Der Briefkasten des ERRORUSERS (POSTMASTER) wird ge-       */
  2045. X/*          scannt. Alle Eintraege fuer Mbox-User, deren Adresse     */
  2046. X/*          im Format 'Real.Name@UUCPID' vorliegen, werden zuge-       */
  2047. X/*          stellt.                                                  */
  2048. X/*     PARAMETER  keine                                                       */
  2049. X/*     RUECKGABE  keine                                                    */
  2050. X/***************************************************************************/
  2051. X
  2052. Xmain(argc, argv)
  2053. Xint argc;
  2054. Xunsigned char *argv[];
  2055. X{
  2056. X  FILE *fp;
  2057. X  FILE *ff;
  2058. X  unsigned char s[255];
  2059. X  unsigned char t[255];
  2060. X  unsigned char u[255];
  2061. X  unsigned char dump[STRING];
  2062. X  unsigned char maildrop[STRING];
  2063. X  int toggle = 0;
  2064. X  int l;
  2065. X  int c;
  2066. X  int p;
  2067. X  int i;
  2068. X  int j;
  2069. X
  2070. X  setuid(0);
  2071. X  setgid(0);
  2072. X  umask(0000);
  2073. X
  2074. X  chdir(HOME);
  2075. X
  2076. X
  2077. X  if(argc < 2){
  2078. X    maybe_locked(ERRMBOX); mblock(ERRMBOX);
  2079. X    fp = fopen(ERRMBOX, "r");
  2080. X    INTERACT = 0;
  2081. X  }
  2082. X  else{
  2083. X    if(argv[2][0] == '-'){
  2084. X        sprintf(maildrop, "%s/%dPIP", TMP, getpid());
  2085. X        fp = fopen(maildrop, "w");
  2086. X        c = 0;
  2087. X        do{
  2088. X            c = fgetc(stdin);
  2089. X            if((c != EOF) && (c != 4)){
  2090. X                fputc(c, fp);
  2091. X                printf("%c", c);
  2092. X            }
  2093. X        }while((c != EOF) && (c != 4));
  2094. X        fclose(fp);
  2095. X        fp = fopen(maildrop, "r");
  2096. X        INTERACT = 1;    
  2097. X    }
  2098. X    else{
  2099. X        maybe_locked(maildrop); mblock(maildrop);
  2100. X        sprintf(maildrop, "%s/%s", MAILDROP, argv[1]);
  2101. X        fp = fopen(maildrop, "r");
  2102. X        INTERACT = 1;
  2103. X    }
  2104. X  }
  2105. X  if(INTERACT == 0) printf("\n");
  2106. X
  2107. X  if (fp == NULL) {
  2108. X    if(INTERACT == 0) printf("\nNo mail.\n");
  2109. X    return;
  2110. X  }
  2111. X
  2112. X  l = 1; 
  2113. X  ff = fopen( XMD_ALIAS, "r" );
  2114. X  if(ff != 0){
  2115. X    while(fgets(s, 80, ff) != 0){
  2116. X        if((s[0] > 64) && (l < MAX_XMD_ALIAS)){
  2117. X            strcpy(alias[l][1], (unsigned char *) stripped(s));
  2118. X            fgets(s, 80, ff);
  2119. X            strcpy(alias[l][2], (unsigned char *) stripped(s));
  2120. X            l++;
  2121. X        }
  2122. X    }
  2123. X    fclose(ff);
  2124. X  }
  2125. X  strcpy(alias[l][1], "EOL");
  2126. X
  2127. X  sprintf(dump, "%s/%d.DUMP", TMP, getpid());
  2128. X  ff = fopen(dump, "w");
  2129. X
  2130. X  toggle = 0;
  2131. X
  2132. X  while (fgets(s, 80, fp) != NULL) {
  2133. X    l = 2;
  2134. X    if (s[0] == '>') {
  2135. X        if(s[1] != ' ') l = 1;
  2136. X        strcpy(t, (unsigned char *) strcopy(s, l, length(s)));
  2137. X        strcpy(s, t);
  2138. X        if (strcomp("OOPS", s) != 0) {
  2139. X            fputs(s, ff);
  2140. X        }
  2141. X    }
  2142. X    else{
  2143. X        if(strcomp("From ", s) == 0){
  2144. X            fprintf(ff, "*%s", s);
  2145. X            if(strcomp(RETURNED_MAIL, s) == 0){
  2146. X                while(strcomp("> ", s) != 0){
  2147. X                    fgets(s, 80, fp);
  2148. X                }
  2149. X            }
  2150. X        }
  2151. X        else{
  2152. X            fputs(s, ff);
  2153. X        }
  2154. X    }
  2155. X
  2156. X  }
  2157. X  fclose(ff);
  2158. X  fclose(fp);
  2159. X
  2160. X  fp = fopen(dump, "r");
  2161. X
  2162. X  sprintf(tmp, "%s/%d.XMD", TMP, getpid());
  2163. X
  2164. X  ff = fopen(tmp, "w");
  2165. X
  2166. X  toggle = 0;
  2167. X
  2168. X  while (fgets(s, 80, fp) != NULL) {
  2169. X    if (strcomp("*From ", s) == 0){
  2170. X        if (toggle == 1) {
  2171. X            if (ff != 0) fclose(ff);
  2172. X            mailing();
  2173. X            ff = fopen(tmp, "w");
  2174. X        }
  2175. X        toggle = 1;
  2176. X    }
  2177. X    if ((toggle == 1) && (strcomp("*From ", s) != 0)){
  2178. X
  2179. X        if (strcomp("X400-Recipients:", s) == 0){
  2180. X            i = 16;
  2181. X            j = 0;
  2182. X            while(s[i] != '\0'){
  2183. X                if(s[i] == '<') j = i+1;
  2184. X                if(s[i] == '@'){
  2185. X                    strcpy(x400, (unsigned char *) strcopy(s, j, (i-1)));
  2186. X                }
  2187. X                i++;
  2188. X            }
  2189. X        }        
  2190. X        
  2191. X        if(strcomp("To: ", s) == 0){
  2192. X            p = is_external(s);
  2193. X
  2194. X            if(p > 0){
  2195. X                s[p] = '\0';
  2196. X                strcat(s, (unsigned char *) "@amnet.UUCP\n");
  2197. X            }
  2198. X            if(p == -1){
  2199. X                sprintf(s, "To: %s@amnet.UUCP\n", x400);
  2200. X            }
  2201. X        }
  2202. X        fputs(s, ff);
  2203. X    }
  2204. X  }
  2205. X  if (ff != 0) fclose(ff);
  2206. X  if (toggle == 1) mailing();
  2207. X  fclose(fp);
  2208. X
  2209. X  unlink(tmp);
  2210. X  unlink(dump);
  2211. X
  2212. X  if(INTERACT == 0){
  2213. X     sprintf(s, "> %s", ERRMBOX);
  2214. X    mbunlock(ERRMBOX);
  2215. X  }
  2216. X  else{
  2217. X    if(getgid() == GUEST_GID){
  2218. X         sprintf(s, "> %s", maildrop);
  2219. X        mbunlock(maildrop);
  2220. X    }
  2221. X  }
  2222. X  system(s);
  2223. X}
  2224. END_OF_FILE
  2225.   if test 13319 -ne `wc -c <'src/xmd.c'`; then
  2226.     echo shar: \"'src/xmd.c'\" unpacked with wrong size!
  2227.   fi
  2228.   # end of 'src/xmd.c'
  2229. fi
  2230. echo shar: End of archive 9 \(of 15\).
  2231. cp /dev/null ark9isdone
  2232. MISSING=""
  2233. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  2234.     if test ! -f ark${I}isdone ; then
  2235.     MISSING="${MISSING} ${I}"
  2236.     fi
  2237. done
  2238. if test "${MISSING}" = "" ; then
  2239.     echo You have unpacked all 15 archives.
  2240.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2241. else
  2242.     echo You still must unpack the following archives:
  2243.     echo "        " ${MISSING}
  2244. fi
  2245. exit 0
  2246. exit 0 # Just in case...
  2247.