home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume35 / mbox / part08 < prev    next >
Text File  |  1993-02-05  |  55KB  |  2,342 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  3. Subject: v35i043:  mbox - ix/Mbox, A BBS for UNIX and MINIX v1.6 PL10j7, Part08/15
  4. Message-ID: <1993Feb5.185757.10404@sparky.imd.sterling.com>
  5. X-Md4-Signature: 885adf7a06236cec7ead855067199abc
  6. Date: Fri, 5 Feb 1993 18:57:57 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 43
  11. Archive-name: mbox/part08
  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/misc2.c src/pd.c wendy/ctrl.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 8 (of 15)."'
  24. if test -f 'src/misc2.c' -a "${1}" != "-c" ; then 
  25.   echo shar: Will not clobber existing file \"'src/misc2.c'\"
  26. else
  27.   echo shar: Extracting \"'src/misc2.c'\" \(11618 characters\)
  28.   sed "s/^X//" >'src/misc2.c' <<'END_OF_FILE'
  29. X/***************************************************************************/
  30. X/*        PROGRAMM  ix/Mbox                           */
  31. X/*             DATEI  misc2.c                           */
  32. X/*        FUNKTIONEN  chk_newsgrp(), subb(), loeschen(), brett()        */
  33. X/*              fetch_reciepy()                       */
  34. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  35. X/*  LETZTE AENDERUNG  11.06.1992                       */
  36. X/***************************************************************************/
  37. X
  38. X#include <stdio.h>
  39. X
  40. X#include "mbox.h"
  41. X
  42. X
  43. X
  44. X
  45. X
  46. X/***************************************************************************/
  47. X/*      FUNKTION  chk_newsgrp()                           */
  48. X/*  BESCHREIBUNG  Stellt fest, ob ein Benutzer die angefragt NG betreten   */
  49. X/*          darf.                                                       */
  50. X/*     PARAMETER  s  =  Name der fraglichen NG                   */
  51. X/*     RUECKGABE  -1 =  Kein Zugang/Zugriff :-(                            */
  52. X/*                 1 =  Zugang erlaubt :-)                    */
  53. X/***************************************************************************/
  54. X
  55. Xint chk_newsgrp( s )
  56. Xunsigned char s[];
  57. X{
  58. X  int i = 1, ok = -1;
  59. X
  60. X  while ((i < MAX_NEWSGRPS) && (newsgrp[i][0] != '\0') && (ok == -1)) {
  61. X    if (strcomp(newsgrp[i], s) == 0) ok = 0;
  62. X    if (strcomp(newsgrp[i], "all") == 0) ok = 0;
  63. X    i++;
  64. X  }
  65. X
  66. X  return ok;
  67. X}
  68. X
  69. X
  70. X
  71. X
  72. X/***************************************************************************/
  73. X/*      FUNKTION  subb()                           */
  74. X/*  BESCHREIBUNG  Ist die angefragte NG eine Unter-NG, oder ein kompletter */
  75. X/*          Pfad ??                                                  */
  76. X/*     PARAMETER  s  =  Name der NG                         |              */
  77. X/*     RUECKGABE  0  =  Unter-NG (z.B. minix)               v              */
  78. X/*          n  =  Erste Obergruppe endet bei 'n' (comp.os.minix)     */
  79. X/***************************************************************************/
  80. X
  81. Xint subb(s)
  82. Xunsigned char s[];
  83. X{
  84. X  int a = 0, i = 0;
  85. X
  86. X  while (s[i] != '\0') {
  87. X    if ((s[i] == '.') && (a == 0)) a = i;
  88. X    i++;
  89. X  }
  90. X  return a;
  91. X}
  92. X
  93. X
  94. X
  95. X
  96. X/***************************************************************************/
  97. X/*      FUNKTION  loeschen()                           */
  98. X/*  BESCHREIBUNG  Gezielt einen persoenliche Mail loeschen.           */
  99. X/*     PARAMETER  arg  =  Nummer der Mail                                  */
  100. X/*     RUECKGABE  keine                                                       */
  101. X/***************************************************************************/
  102. X
  103. Xvoid loeschen(arg)
  104. Xunsigned char arg[];
  105. X{
  106. X  FILE *fp;
  107. X  FILE *ff;
  108. X  unsigned char s[STRING];
  109. X  unsigned char entry[STRING];
  110. X  unsigned char index[STRING];
  111. X  unsigned char t[STRING];
  112. X  unsigned char ex[255];
  113. X  unsigned char c;
  114. X  int i, a = atoi(arg);
  115. X  int ok;
  116. X
  117. X
  118. X  if ((arg[0] < '1') || (arg[0] > '9')) {
  119. X    ansi("md");
  120. X    printf(" %s\n", MI201_MSG);
  121. X    ansi("me");
  122. X    return;
  123. X  }
  124. X  if (strcomp(BRETT, "PM") != 0) {
  125. X    if(arg[0] < 33) return;
  126. X    if(USER.level < ADMIN_LEV){
  127. X        ansi("md");
  128. X        printf(" %s %d ...\n", MI202_MSG, USER.level);
  129. X        ansi("me");
  130. X    }
  131. X    else{
  132. X        sprintf(entry, "%s/%s", BRETT, arg);
  133. X        unlink(entry);
  134. X        printf("\n\n%s\n", MI203_MSG);        
  135. X        sprintf(entry, "%s %s -X", MB_DAEMON, NG);
  136. X        system(entry);
  137. X    }
  138. X    return;
  139. X  }
  140. X
  141. X  if(USER.level == GUEST_LEV){
  142. X    return;
  143. X  }
  144. X
  145. X  sprintf(entry, "%s/usr/%d/%s", HOME, USER.id, arg);
  146. X  sprintf(index, "%s/usr/%d/INDEX", HOME, USER.id);
  147. X
  148. X  sprintf(s, "%s/loe%d", TMP, getpid());
  149. X  ff = fopen(s, "w");
  150. X
  151. X  fp = fopen(index, "r");
  152. X  if (fp == NULL) {
  153. X    nerror("misc2.c", 109, "loeschen", "Datei-Lesefehler", index);
  154. X  }
  155. X  ok = 0;
  156. X
  157. X  while (fgets(ex, 250, fp) != NULL) {
  158. X    if (atoi(ex) != a)
  159. X        fputs(ex, ff);
  160. X    else
  161. X        ok = 1;
  162. X  }
  163. X  fclose(fp);
  164. X  fclose(ff);
  165. X
  166. X  sprintf(t, "cp %s %s", s, index);
  167. X  system(t);
  168. X  unlink(s);
  169. X  unlink(entry);
  170. X}
  171. X
  172. X
  173. X
  174. X/***************************************************************************/
  175. X/*      FUNKTION  brett()                           */
  176. X/*  BESCHREIBUNG  Wechselt das Brett, zeigt Bretter an etc. pp.        */
  177. X/*     PARAMETER  arg  =  '!'     =  Brettername ausgeben           */
  178. X/*          arg  =  ''      =  aktuelle Bretter ausgeben           */
  179. X/*          arg  =  '*'     =  alle Bretter ausgeben               */
  180. X/*          arg  =  '#'     =  Gruppen ausgeben                      */
  181. X/*          arg  =  '..'    =  eine Gruppe zurueck           */
  182. X/*          arg  =  '^'     =  ALLE (!) Bretter ausgeben           */
  183. X/*          arg  = 'Brett'  =  ins Brett 'Brett' wechseln           */
  184. X/*     RUECKGABE  keine                                                       */
  185. X/***************************************************************************/
  186. X
  187. X/*
  188. Xvoid brett(arg)  Compiler Bug ???? 
  189. X*/
  190. Xbrett(arg)
  191. Xunsigned char arg[];
  192. X{
  193. X  FILE *fp;
  194. X  FILE *ff;
  195. X  unsigned char s[STRING];
  196. X  unsigned char o[STRING];
  197. X  int a, b, h;
  198. X  unsigned char t[STRING];
  199. X  unsigned char org[STRING];
  200. X  unsigned char maybe[STRING];
  201. X  int this;
  202. X  int i, j;
  203. X  int subboard = 0;
  204. X  unsigned char c;
  205. X  int plus = 0;
  206. X  int zeile = 0;
  207. X  int swing = 1;  
  208. X  int fpid;
  209. X
  210. X  if (arg[0] == '!') {
  211. X    printf("\n\n");
  212. X    ansi( "md" );
  213. X    printf("%s", MI204_MSG);
  214. X    ansi( "me" );
  215. X    printf(" %s\n", NG);
  216. X    ansi( "md" );
  217. X    printf("%s", MI204aMSG);
  218. X    ansi( "me" );
  219. X    printf(" ");    
  220. X
  221. X    if(strcomp(BRETT, "PM") == 0){
  222. X        printf("%s", MI204bMSG);
  223. X    }
  224. X    else{
  225. X        fp = fopen( NEWSGROUPS, "r" );
  226. X        if(fp == NULL){
  227. X            nerror("misc2.c", 190, "brett", "Datei-Lesefehler", NEWSGROUPS);
  228. X        }
  229. X        h = 0;
  230. X        while((h == 0) && (fgets(s, 80, fp) != NULL)){
  231. X            if(strcomp(NG, s) == 0){
  232. X                a = 0; 
  233. X                while(s[a] > 32) a++;
  234. X                while(s[a] < 32) a++;
  235. X                strcpy(t, (unsigned char *) strcopy(s, a, 80)); 
  236. X                printf("%s", (unsigned char *) stripped(t));
  237. X                h++;
  238. X            }
  239. X        }
  240. X        fclose(fp);
  241. X    }
  242. X    printf("\n");
  243. X    return;
  244. X  }
  245. X  if ((arg[0] == '+') || (arg[0] == '-')) {
  246. X    scanner(arg[0] + 255);
  247. X    return;
  248. X  }
  249. X  if (arg[0] == '\0') {
  250. X    maybe_locked(UGROUPS, "r");
  251. X    fp = fopen(UGROUPS, "r");
  252. X    if (fp == NULL) {
  253. X        nerror("misc2.c", 908, "brett", "Datei-Lesefehler", UGROUPS);
  254. X    }
  255. X    arg[0] = '*';
  256. X  }
  257. X  else {
  258. X    maybe_locked(NGROUPS, "r");
  259. X    fp = fopen(NGROUPS, "r");
  260. X    if (fp == NULL) {
  261. X        nerror("misc2.c", 916, "brett", "Datei-Lesefehler", NGROUPS);
  262. X    }
  263. X  }
  264. X
  265. X
  266. X  org[0] = '\0';
  267. X  strcat(org, arg);
  268. X
  269. X  if (arg[0] == '.') {
  270. X    i = 0;
  271. X    j = 0;
  272. X    strcpy(org, NG);
  273. X    while (org[i] != '\0') {
  274. X        if (org[i] == '.') j = i;
  275. X        i++;
  276. X    }
  277. X    if (j == 0) return;
  278. X    org[j] = '\0';
  279. X  }
  280. X  if (arg[0] == '#') subboard++;
  281. X
  282. X  zeile = 0;
  283. X
  284. X  show(NGROUPS, 99, 99); /* RESET */
  285. X
  286. X  if ((arg[0] == '*') || (arg[0] == '+') || (arg[0] == '#') || (arg[0] == '~') || (arg[0] == '^')) {
  287. X
  288. X    if(arg[0] != '^'){
  289. X        sprintf(s, "%s %d) ", MI205_MSG, USER.level);
  290. X    }
  291. X    else{
  292. X        sprintf(s, "%s 10) ", MI205_MSG);
  293. X    }
  294. X    headline(s);
  295. X    i = 0;
  296. X    strcpy(o, (unsigned char *) "OOPS");
  297. X
  298. X    while (fscanf(fp, "%s %d %d %s", s, &a, &h, t) > 0) {
  299. X#ifdef _CNEWS
  300. X        if(t[0] == '=')     
  301. X            continue; 
  302. X#endif
  303. X        if (arg[0] == '~') {
  304. X            if (strcomp(NG, s) != 0) continue;
  305. X        }
  306. X        if ((strcomp(o, s) != 0) || (subboard == 0)) {
  307. X            if (subboard != 0) {
  308. X                j = subb(s);
  309. X                if (j != 0) s[j] = '\0';
  310. X                o[0] = '\0'; strcat(o, s);
  311. X            }
  312. X            if ((chk_newsgrp(s) == 0) || (arg[0] == '^')){
  313. X                s[((80/USER.schluessel[1]) -2)] = '\0';
  314. X                strcat(s, "                                   ");
  315. X                s[((80/USER.schluessel[1]) -1)] = '\0';
  316. X                printf("%s", s);
  317. X                i++;
  318. X                plus++;
  319. X                if (i == USER.schluessel[1]) {
  320. X                    printf("\n");
  321. X                    i = 0;                
  322. X                    zeile++;
  323. X                    if (zeile >= MAX_SCR_LINES) {
  324. X                        zeile = 0;
  325. X                        if(USER.more != 0){
  326. X                            if (more() != 0) return (int) 1;
  327. X                        }
  328. X                    }
  329. X                }
  330. X            }
  331. X        }
  332. X    }
  333. X    if (plus == 0) {
  334. X        printf("%s", MI206_MSG);
  335. X    }
  336. X    printf("\n");
  337. X  }
  338. X  else {
  339. X    if (org[0] != '\0') {
  340. X
  341. X        SO_WHAT:
  342. X
  343. X        strcpy(o, (unsigned char *) org);
  344. X
  345. X        i = 0;
  346. X        while (org[i] != '\0') {
  347. X            t[i] = org[i];
  348. X            if (t[i] == '.') t[i] = '/';
  349. X            i++;
  350. X        }
  351. X        t[i] = '\0';
  352. X
  353. X        sprintf(s, "%s/%s", NEWS, t);
  354. X
  355. X        if (chdir(s) != 0) {
  356. X            sprintf(o, "%s.%s", NG, org);
  357. X            i = 0;
  358. X            while (o[i] != '\0') {
  359. X                t[i] = o[i];
  360. X                if (t[i] == '.') t[i] = '/';
  361. X                i++;
  362. X            }
  363. X            t[i] = '\0';
  364. X            sprintf(s, "%s/%s", NEWS, t);
  365. X        }
  366. X        if (chdir(s) != 0) {
  367. X            this = 9999;
  368. X            maybe_locked(NGROUPS, "r");
  369. X            ff = fopen(NGROUPS, "r");
  370. X            if (ff == NULL) {
  371. X                nerror("misc2.c", 1001, "brett", "Datei-Lesefehler", NGROUPS);
  372. X            }
  373. X            while (fscanf(ff, "%s %d %d %s", s, &i, &i, t) > 0) {
  374. X                i = strcomp(org, s);
  375. X                if (i < this) {
  376. X                    this = i;
  377. X                    strcpy(maybe, s);
  378. X                }
  379. X            }
  380. X            fclose(ff);
  381. X            
  382. X            strcpy(org, maybe);
  383. X            printf("\n\n");
  384. X            ansi("mr");
  385. X            printf("%s \"%s\" [%c, %c] >", MI207_MSG, maybe, GBL06_MSG, GBL07_MSG);
  386. X            ansi("me");
  387. X
  388. X            c = yesno();
  389. X            
  390. X            if (c != GBL07_MSG) goto SO_WHAT;
  391. X
  392. X            printf("\n");
  393. X        }
  394. X        else {
  395. X
  396. X            if (chk_newsgrp(o) == 0) {
  397. X                strcpy(BRETT, s);
  398. X                printf("\n");
  399. X                sprintf(NG, "%s", o);
  400. X                if(length(o) > 14){
  401. X#ifndef _LONGNAMES
  402. X                    strcpy(o, (unsigned char *) shortname(o));
  403. X#endif
  404. X                }
  405. X#ifdef _NOINDEX
  406. X                printf("\n%s ..", MI211_MSG);
  407. X                switch( (fpid = fork()) ){
  408. X                    case -1 :
  409. X                        break;
  410. X                    case  0 :    while(1){
  411. X                                printf(".");
  412. X                                sleep(1);
  413. X                            }    
  414. X                        break;
  415. X                }
  416. X                sprintf(s, "%s %s -x", MB_DAEMON, NG);
  417. X                system( s );
  418. X                sprintf(s, "mv %s/%s/%s %s/inhalt.%d", HOME, LIB, o, TMP, getpid());
  419. X                system( s );
  420. X                sprintf(INHALT, "%s/inhalt.%d", TMP, getpid());
  421. X                kill( fpid, SIGKILL );
  422. X                (void) wait( &fpid );
  423. X                printf("\n");                
  424. X#else                
  425. X                sprintf(INHALT, "%s/%s", LIB, o);
  426. X#endif
  427. X            } else {
  428. X                ansi("md");
  429. X                printf(" %s\n", MI210_MSG);
  430. X                ansi("me");
  431. X            }
  432. X        }
  433. X        chdir(HOME);
  434. X    }
  435. X  }
  436. X  fclose(fp);
  437. X  return;
  438. X}
  439. X
  440. X
  441. X/***************************************************************************/
  442. X/*      FUNKTION  fetch_receipy()                       */
  443. X/*  BESCHREIBUNG  Im REPLY-Modus wird die Adresse des Empfaengers aus      */
  444. X/*              dessen Mail gefiltert.                                   */
  445. X/*     PARAMETER  REP  =  Datei mit der Mail des zukuenftigen Empfaengers  */
  446. X/*     RUECKGABE  Adresse des Empfaengers                                  */
  447. X/***************************************************************************/
  448. X
  449. Xunsigned char *fetch_reciepy(REP)
  450. Xunsigned char REP[];
  451. X{
  452. X  FILE *fp;
  453. X  unsigned char s[STRING];
  454. X  unsigned char t[STRING];
  455. X  unsigned char f[STRING];
  456. X  int ok = 0, i;
  457. X  int beg = 0;
  458. X  int bang = 0, at = 0, strange = 0, stranger = 0, gate = 0;
  459. X
  460. X  fetch_local = 0;
  461. X  fetch_subj[0] = '\0';
  462. X
  463. X  fp = fopen(REP, "r");
  464. X  if (fp == NULL) {
  465. X    nerror("mail.c", 31, "fetch_reciepy", "Datei_Lesefehler", REP);
  466. X  }
  467. X  while (fgets(f, 80, fp) != NULL) {
  468. X    if (strcomp("From: ", f) == 0) {
  469. X        beg = 6;
  470. X        ok = 1;
  471. X        strcpy(s, f);
  472. X    }
  473. X    if (strcomp("From ", f) == 0) { /* local mail */
  474. X        beg = 5; 
  475. X        ok = 1;
  476. X        strcpy(s, f);
  477. X    }
  478. X    if (strcomp("Reply-To: ", f) == 0) {
  479. X        beg = 10;
  480. X        ok = 1;
  481. X        strcpy(s, f);
  482. X    }
  483. X    if (strcomp("Subject: ", s) == 0) {
  484. X        strcpy(fetch_subj, (unsigned char *) strcopy(s, 9, 79));
  485. X    }
  486. X  }
  487. X  fclose(fp);
  488. X
  489. X  if (ok == 0) {
  490. X    return (unsigned char *) "OOPS";
  491. X  }
  492. X  i = beg;
  493. X  ok = 0;
  494. X
  495. X  while (s[i] != '\0') {
  496. X    if (s[i] == '(') ok = i - 2;
  497. X    if (s[i] == '<') strange = i + 1;
  498. X    if (s[i] == '>') stranger = i - 1;
  499. X    i++;
  500. X  }
  501. X  if (ok == 0) ok = i;
  502. X  strcpy(t, (unsigned char *) strcopy(s, beg, ok));
  503. X
  504. X  if ((strange != 0) && (stranger != 0)) {
  505. X    strcpy(t, (unsigned char *) strcopy(s, strange, stranger));
  506. X    return (unsigned char *) t;
  507. X  }
  508. X  i = 0;
  509. X  while (t[i] != '\0') {
  510. X    if (t[i] == '@') at = i;
  511. X    if (t[i] == '!') bang = i;
  512. X    if (t[i] == '%') gate = i;
  513. X    i++;
  514. X  }
  515. X
  516. X  if ((at != 0) && (gate == 0)) {
  517. X    strcpy(s, (unsigned char *) strcopy(t, (at + 1), length(t)));
  518. X    if (strcomp(UUCPSITE, s) == 0) {    /* local user */
  519. X        fetch_local = 1;
  520. X        strcpy(s, (unsigned char *) strcopy(t, 0, (at - 1)));
  521. X        i = 0;
  522. X        while (s[i] != '\0') {
  523. X            if (s[i] == '.') s[i] = ' ';
  524. X            i++;
  525. X        }
  526. X        return (unsigned char *) s;
  527. X    }
  528. X  }
  529. X
  530. X  if (beg == 5) {  /* local mail */
  531. X    i = 0;
  532. X    while((t[i] != '\0') && (t[i] != ' ')) i++;
  533. X    t[i] = '\0';
  534. X  }
  535. X
  536. X  return (unsigned char *) t;
  537. X}
  538. X
  539. END_OF_FILE
  540.   if test 11618 -ne `wc -c <'src/misc2.c'`; then
  541.     echo shar: \"'src/misc2.c'\" unpacked with wrong size!
  542.   fi
  543.   # end of 'src/misc2.c'
  544. fi
  545. if test -f 'src/pd.c' -a "${1}" != "-c" ; then 
  546.   echo shar: Will not clobber existing file \"'src/pd.c'\"
  547. else
  548.   echo shar: Extracting \"'src/pd.c'\" \(18843 characters\)
  549.   sed "s/^X//" >'src/pd.c' <<'END_OF_FILE'
  550. X/***************************************************************************/
  551. X/*        PROGRAMM  ix/Mbox                           */
  552. X/*             DATEI  pd.c                           */
  553. X/*        FUNKTIONEN  pd(), download(), status(), mkix(), statistik()       */
  554. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  555. X/*  LETZTE AENDERUNG  27.06.1992                       */
  556. X/***************************************************************************/
  557. X  
  558. X#include <stdio.h>
  559. X#include <sys/types.h>
  560. X#include <signal.h>
  561. X#include <sys/stat.h>
  562. X#include <time.h>
  563. X
  564. X#include "mbox.h"
  565. X
  566. X
  567. X/***************************************************************************/
  568. X/*      FUNKTION  pd()                               */
  569. X/*  BESCHREIBUNG  Eine Datei wird mit o. ohne Protokoll uebertragen.       */
  570. X/*          Diese Funktion wird von "lesen()" oder "pruefe()"        */
  571. X/*          aufgerufen, wenn die zu bearbeitende Datei den Kenn-     */
  572. X/*          zeichner "BINFILE" enthaelt.                             */
  573. X/*     PARAMETER  arg = Dateiname                                          */
  574. X/*     RUECKGABE  keine                               */
  575. X/***************************************************************************/
  576. X
  577. Xvoid pd(arg, keywds)
  578. Xunsigned char arg[], keywds[];
  579. X{
  580. X  FILE *fp;
  581. X  FILE *ff;
  582. X
  583. X  unsigned char s[STRING];
  584. X  unsigned char tmp[STRING];
  585. X  unsigned char c;
  586. X  unsigned char protokoll;
  587. X  unsigned char cd[STRING];
  588. X  struct stat fst;
  589. X  long ts, tn;
  590. X
  591. X  int cps, bps, eff;
  592. X  int ok, i;
  593. X
  594. X  strcpy(cd, stripped(arg));
  595. X
  596. X  printf("\n\n");
  597. X  ansi("md");
  598. X  printf("%s\n\n", PD01_MSG);
  599. X  
  600. X  if(keywds[0] != '\0'){
  601. X    printf("%s ", PD02_MSG); 
  602. X    ansi("me");
  603. X    printf("%s\n\n", keywds);
  604. X  }
  605. X  else{
  606. X     ansi("me");
  607. X  }
  608. X
  609. X  ansi("mr");
  610. X  printf("%c%s [%c, %c, (%c)] >  ", CR, PD03_MSG, GBL06_MSG, GBL07_MSG, PD06_MSG);
  611. X  ansi("me");
  612. X
  613. X  do {
  614. X    c = getint();
  615. X    if (c >= 97) c -= 32;
  616. X    if ((c != GBL06_MSG) && (c != GBL07_MSG) && (c != PD06_MSG)) c = 0;
  617. X  } while (c == 0);
  618. X
  619. X  printf("%c", c);
  620. X
  621. X  if (c == PD06_MSG) {    /*  X  */
  622. X    printf("\n");
  623. X    sigcatch(SIGINT);    
  624. X  }
  625. X
  626. X  if (c != GBL06_MSG) {    /*  J  */
  627. X    printf("\n");
  628. X    return;
  629. X  }
  630. X  ansi("mr");
  631. X  printf("%c[%s] %c, %c, %c, %c ? > ", CR, PD07_MSG, PD08_MSG, PD09_MSG, PD10_MSG, PD11_MSG);
  632. X  ansi("me");
  633. X
  634. X
  635. X  do {
  636. X    protokoll = getint();
  637. X    if (protokoll >= 97) protokoll -= 32;
  638. X    if (protokoll == '?') {
  639. X        clearline();
  640. X        ansi("mr");
  641. X        printf("%c%s > ", CR, PD12_MSG);
  642. X        ansi("me");
  643. X    }
  644. X    if ((protokoll != PD08_MSG) && (protokoll != PD09_MSG) &&
  645. X        (protokoll != PD10_MSG) && (protokoll != PD11_MSG))
  646. X        protokoll = 0;
  647. X  } while (protokoll == 0);
  648. X
  649. X
  650. X  printf("%c", protokoll);
  651. X
  652. X  signal(SIGINT,  SIG_IGN);
  653. X  signal(SIGHUP,  SIG_IGN);
  654. X  signal(SIGQUIT, SIG_IGN);
  655. X  signal(SIGABRT, SIG_IGN);
  656. X  signal(SIGTERM, SIG_IGN);
  657. X
  658. X  printf("\n\n");
  659. X  ansi("md");
  660. X  printf("%s\n\n", PD13_MSG);
  661. X  ansi("me");
  662. X
  663. X  time(&ts);
  664. X
  665. X  switch (protokoll) {
  666. X      case PD08_MSG:
  667. X        sprintf(s, "exec cat %s", cd);
  668. X        break;
  669. X      case PD09_MSG:
  670. X        sprintf(s, "exec %s -b %s 2> /dev/null", SX, cd);
  671. X        break;
  672. X      case PD10_MSG:
  673. X        sprintf(s, "exec %s %s 2> /dev/null", SB, cd);
  674. X        break;
  675. X      case PD11_MSG:
  676. X        sprintf(s, "exec %s %s 2> /dev/null", SZ, cd);
  677. X        break;
  678. X  }
  679. X  system( s );
  680. X
  681. X  time(&tn); tn = tn - ts; 
  682. X
  683. X  stat(cd, &fst);
  684. X  USER.downratio += ((long) fst.st_size / 1024);
  685. X
  686. X  ansi( "md" );
  687. X 
  688. X  if(tn < 1) tn = 1;
  689. X  cps = fst.st_size / tn;
  690. X  bps = cps * 11;
  691. X
  692. X  BAUDRATE = baudrate( bps );
  693. X
  694. X  eff = ((100000 / BAUDRATE) * bps) / 1000;  
  695. X
  696. X  if(bps > BAUDRATE){
  697. X    printf("\n\n%s\n", PD14_MSG);
  698. X    ok = -1;
  699. X  }
  700. X  else{    
  701. X    printf("\n\n%ld %s.\n", fst.st_size, PD15_MSG);
  702. X    ok = 0;
  703. X  }
  704. X
  705. X  ansi( "me" );
  706. X  printf("%s %d cps (ca. %d bps).", PD16_MSG, cps, bps);
  707. X  sprintf(tmp, "%s/%d.pd", TMP, getpid());
  708. X  ff = fopen( tmp, "w" );
  709. X
  710. X
  711. X  if(ok == 0){
  712. X    fprintf(ff, "%s  %c  %-40.40s", mydate( 1 ), protokoll, cd); 
  713. X    if(bps < BAUDRATE){
  714. X        fprintf(ff, "  %6.d  %6.d  %2.d%% OK\n", cps, bps, eff);
  715. X    }
  716. X    else{
  717. X        fprintf(ff, "  %6.d  %6.d  %2.d%% BRK\n", cps, bps, eff);
  718. X    }
  719. X  }
  720. X  else{
  721. X    /*
  722. X    fprintf(ff, "%s  %c  %-40.40s", mydate( 1 ), protokoll, cd); 
  723. X    fprintf(ff, "  %6.6d  %6.6d  %s\n", cps, bps, PD17_MSG);
  724. X    */
  725. X  }
  726. X
  727. X  i = 0;
  728. X
  729. X  fp = fopen( PDLOG, "r" );
  730. X  if(fp != NULL){
  731. X    while((fgets(s, 80, fp) != NULL) && (i < PRO_ENTRIES)){
  732. X        fputs(s, ff);
  733. X        i++;
  734. X    }
  735. X    fclose(fp);
  736. X  }
  737. X
  738. X  fclose(ff);
  739. X
  740. X  sprintf(cd, "mv %s %s", tmp, PDLOG);
  741. X  system( cd );
  742. X
  743. X  printf("\n");
  744. X}
  745. X
  746. X
  747. X
  748. X
  749. X/***************************************************************************/
  750. X/*      FUNKTION  status                           */
  751. X/*  BESCHREIBUNG  Verschiedene (eigentlich fast alle) Eintraege aus den    */
  752. X/*          Teilnehmerdaten werden angezeigt.                        */
  753. X/*     PARAMETER  keine                                                       */
  754. X/*     RUECKGABE  keine                                 */
  755. X/***************************************************************************/
  756. X
  757. Xvoid status()
  758. X{
  759. X  unsigned char s[STRING];
  760. X  unsigned char t[STRING];
  761. X  unsigned char d[STRING];
  762. X  unsigned char ex[255];
  763. X  int a, b;
  764. X  int i;
  765. X
  766. X
  767. X  sprintf(s, " %s %d) %s ", PD18_MSG, USER.id, USER.name);
  768. X  headline(s);
  769. X  printf("\n");
  770. X
  771. X  ansi("md");
  772. X  printf("%s", PD19_MSG);
  773. X  ansi("me");
  774. X
  775. X  printf("\n");
  776. X
  777. X  sprintf(ex, "%s                                        ", USER.name);
  778. X  ex[27] = '\0';
  779. X  strcat(ex, USER.nick);
  780. X  strcat(ex, "                            ");
  781. X  ex[45] = '\0';
  782. X  strcat(ex, USER.geburtsdatum);
  783. X  strcat(ex, "                            ");
  784. X  ex[62] = '\0';
  785. X  strcat(ex, USER.telefon1);
  786. X  printf("%s\n", ex);
  787. X
  788. X  sprintf(ex, "%s                                        ", USER.strasse);
  789. X  ex[27] = '\0';
  790. X  strcat(ex, USER.sh_name);
  791. X  strcat(ex, "                            ");
  792. X  ex[45] = '\0';
  793. X  strcat(ex, "                            ");
  794. X  ex[62] = '\0';
  795. X  strcat(ex, USER.telefon2);
  796. X  printf("%s\n", ex);
  797. X
  798. X  printf("%s\n\n", USER.wohnort);
  799. X  ansi("md");
  800. X  printf("%s", PD20_MSG);  
  801. X  ansi("me");
  802. X  printf("\n");
  803. X
  804. X  s[0] = '\0'; strcat(s, datereconv( LASTLOG ));
  805. X  strcat(s, "-"); strcat(s, timereconv( LASTTIME ));
  806. X  s[16] = '\0';
  807. X
  808. X  sprintf(ex, "       %1d       %1d  %5d     %1d       %1d     %1d      %1d  %6d  %s",
  809. X    USER.terminal, USER.editor, USER.level, USER.bell, USER.prompt, USER.more, USER.intro, USER.seq, s);
  810. X  printf("%s\n\n", ex);
  811. X
  812. X  ansi("md");
  813. X  printf("%s", PD21_MSG);  
  814. X  ansi("me");
  815. X  sprintf(ex, "\n%06.6d                      %06.6d                    %06.6d",
  816. X    (USER.elapsed / 60), USER.upratio, USER.downratio);
  817. X  printf("%s\n\n", ex);
  818. X
  819. X  ansi("md");
  820. X  printf("%s", PD22_MSG);
  821. X  ansi("me");
  822. X
  823. X  i = 0;
  824. X  strcpy(s, (unsigned char *) USER.name);
  825. X  while (s[i] != '\0') {
  826. X    if (s[i] == ' ') s[i] = '.';
  827. X    i++;
  828. X  }
  829. X
  830. X  sprintf(t,  "%s: %s@%s", PD23_MSG, s, UUCPID);
  831. X  strcpy(d, USER.account); d[10] = '\0';
  832. X  strcpy(s, (unsigned char *) strcopy(USER.account, 11, 16));
  833. X  i = atoi(s); 
  834. X  sprintf(s, "%s  %3d.%02d", d, fix(i), flt(i));
  835. X  sprintf(ex, "%-54.54s%s DM\n%s: %s%s", t, s, PD24_MSG, UUCPBANG, USER.nick);
  836. X  printf("\n%s\n", ex);
  837. X  if (USER.sh_name[0] != '\0')
  838. X    printf("%s: %s!%s\n", PD25_MSG, UUCPSITE, USER.sh_name);
  839. X
  840. X  printf("\n");
  841. X
  842. X  ansi("md");
  843. X  printf("%s\n", PD26_MSG);
  844. X
  845. X  ansi("me");
  846. X
  847. X  i = 1;
  848. X  while(newsgrp[i][0] != '\0'){
  849. X    if(i != 1) printf(", ");
  850. X    printf("%s", newsgrp[i]);
  851. X    i++;
  852. X  }
  853. X
  854. X  printf("\n\n");  
  855. X}
  856. X
  857. X
  858. X
  859. X/***************************************************************************/
  860. X/*      FUNKTION  mkix()                           */
  861. X/*  BESCHREIBUNG  Wandelt eine Datei ins UNIX-Format (CRs werden entfernt) */
  862. X/*     PARAMETER  s  =  Dateiname                                          */
  863. X/*     RUECKGABE  keine                                                    */
  864. X/***************************************************************************/
  865. X
  866. Xvoid mkix( pfad )
  867. Xunsigned char pfad[];
  868. X{
  869. X  FILE *fp; 
  870. X  FILE *ff;
  871. X
  872. X  unsigned char s[255];
  873. X  unsigned char p[255];
  874. X
  875. X  int i, ok = 0;
  876. X
  877. X  
  878. X  sprintf(p, "%sabc", pfad);
  879. X
  880. X  fp = fopen( pfad, "r" );
  881. X  if(fp == NULL){
  882. X    return;
  883. X  }      
  884. X
  885. X  ff = fopen( p, "w" );
  886. X  if(ff == NULL){
  887. X    nerror("pd.c", 243, "mkix", "Datei-Erstellungsfehler", p);    
  888. X  }
  889. X
  890. X  while((ok == 0) && (fgets(s, 254, fp) != NULL)){
  891. X    i = 0;
  892. X    while(s[i] != '\0'){
  893. X        if(s[i] == CTRL_Z){
  894. X            ok++;
  895. X            break;
  896. X        }
  897. X        i++;
  898. X    }
  899. X    if(ok == 0){
  900. X        i = strlen(s) -2;
  901. X        if(s[i] == CR){
  902. X            s[i]    = LF;
  903. X            s[i +1] = '\0';
  904. X        }
  905. X        fputs(s, ff);
  906. X    }
  907. X  }
  908. X  fclose(fp);
  909. X  fclose(ff);
  910. X
  911. X  unlink(pfad);
  912. X  rename(p, pfad);
  913. X}
  914. X
  915. X
  916. X
  917. X/***************************************************************************/
  918. X/*      FUNKTION  statitik()                           */
  919. X/*  BESCHREIBUNG  Anrufer-Protokoll auswerten                    */
  920. X/*     PARAMETER  keine                                                       */
  921. X/*     RUECKGABE  keine                                                    */
  922. X/***************************************************************************/
  923. X
  924. Xvoid statistik()
  925. X{
  926. X  FILE *fp;
  927. X
  928. X  struct tm *tp;
  929. X  time_t tt;
  930. X
  931. X  unsigned char s[STRING];
  932. X  unsigned char od[MAX_TAGE][STRING];
  933. X  unsigned char t[STRING];
  934. X  unsigned char r[STRING];
  935. X
  936. X  int v18u[MAX_TAGE];
  937. X  int n18u[MAX_TAGE];
  938. X  int v18g = 0;
  939. X  int n18g = 0;
  940. X
  941. X  int zeit = 0;
  942. X  int tage = 0;
  943. X  int max  = 0;
  944. X
  945. X  int i, a;
  946. X  int toggle = 0;
  947. X  int sun;
  948. X
  949. X  fp = fopen( CALLS, "r" );
  950. X  if(fp == NULL){
  951. X    nerror("pd.c", 288, "statistik", "Datei-Lesefehler", CALLS);        
  952. X  }
  953. X
  954. X  od[0][0] = '\0';
  955. X
  956. X  headline( PD27_MSG );
  957. X  printf("%s\n", PD28_MSG);
  958. X  printf("===============================================================================\n");
  959. X
  960. X  while((fgets(s, (STRING *2), fp) != NULL) && (tage < (MAX_SCR_LINES -7))){
  961. X    strcpy(t, (unsigned char *) strcopy(s, 64, 71));
  962. X
  963. X    if(strcomp(t, od[tage]) != 0){
  964. X        if(tage != 0){
  965. X            if((v18u[tage] + n18u[tage]) > max){
  966. X                max = v18u[tage] + n18u[tage];
  967. X            }
  968. X            v18g += v18u[tage];
  969. X            n18g += n18u[tage];
  970. X        }
  971. X        tage++;
  972. X        od[tage][0] = '\0'; strcat(od[tage], t);
  973. X        v18u[tage] = 0;
  974. X        n18u[tage] = 0;
  975. X        }
  976. X    zeit = atoi(strcopy(s, 74, 75));
  977. X    if((zeit >   6) && (zeit < 18)) v18u[tage]++;
  978. X    if((zeit >= 18) || (zeit <= 6)) n18u[tage]++;
  979. X  }
  980. X
  981. X  sprintf(s, "%s", "ooooooooooooooooooooooooooooooooooooooooooooooooooooo");
  982. X
  983. X  time(&tt);
  984. X  tp = localtime(&tt);
  985. X  sun = tp->tm_wday;
  986. X
  987. X  for(i = 1; i < tage; i++){
  988. X    sprintf(t, "%s", s);
  989. X    a = (290 / max * (v18u[i] + n18u[i])) / 10;
  990. X    t[a] = '\0';    
  991. X    strcpy(r, "    ");    
  992. X    if(sun == 0){
  993. X        strcpy(r, PD29_MSG);
  994. X        toggle++;    
  995. X        ansi( "md" );
  996. X    }
  997. X    if(sun == 6) 
  998. X        strcpy(r, PD30_MSG);
  999. X    sun--;
  1000. X    if(sun == -1) sun = 6;
  1001. X
  1002. X    printf("%s %s %4.d        %5.d         %5.d      %s\n",
  1003. X                od[i], r, v18u[i], n18u[i], v18u[i]+n18u[i], t);
  1004. X    if(toggle != 0) ansi( "me" );
  1005. X    toggle = 0;
  1006. X  }
  1007. X
  1008. X  printf("-------------------------------------------------------------------------------\n");
  1009. X  printf("%s %5.d        %5.d         %5.d      %s\n",
  1010. X      PD31_MSG, v18g, n18g, v18g+n18g, PD32_MSG);
  1011. X  printf("===============================================================================\n");
  1012. X
  1013. X  printf("\n%s %d %s.\n", PD33_MSG, (tage -1), PD34_MSG);   
  1014. X
  1015. X  fclose(fp);
  1016. X}
  1017. X
  1018. X
  1019. X
  1020. X
  1021. X
  1022. X/***************************************************************************/
  1023. X/*      FUNKTION  archivieren()                           */
  1024. X/*  BESCHREIBUNG  Archivierer auswaehlen und Dateien packen           */
  1025. X/*     PARAMETER  arg = artikel-liste                       */
  1026. X/*     RUECKGABE  Names des Archivs                       */
  1027. X/***************************************************************************/
  1028. X
  1029. Xunsigned char *archivieren( arg )
  1030. Xunsigned char arg[];
  1031. X{
  1032. X  FILE *fp;
  1033. X  int i, c;
  1034. X
  1035. X  struct stat fstat;
  1036. X
  1037. X  unsigned char s[LONGSTRING+STRING];
  1038. X  unsigned char t[STRING];
  1039. X  unsigned char packers[10][STRING];
  1040. X  unsigned char adds[10][STRING];
  1041. X  unsigned char tar[10][STRING];
  1042. X  unsigned char en[10][STRING];
  1043. X  unsigned char cd[LONGSTRING];
  1044. X
  1045. X  int fpid;
  1046. X
  1047. X
  1048. X  headline( PD37_MSG );
  1049. X  printf("\n");
  1050. X
  1051. X  sprintf(s, "%s/%s", HOME, PACKERS);
  1052. X  fp = fopen(s, "r");
  1053. X  if (fp == NULL) {
  1054. X    nerror("pd.c", 495, "archivieren", "Datei-Lesefehler", s);
  1055. X  }
  1056. X
  1057. X  printf("  1 - Text/ASCII\n\n");
  1058. X  strcpy(packers[1], (unsigned char *) "cat");
  1059. X  strcpy(adds[1], (unsigned char *) "?");
  1060. X  strcpy(tar[1], (unsigned char *) "-");
  1061. X  en[1][0] = '\0';
  1062. X 
  1063. X  i = 1;
  1064. X  while((fgets(s, 80, fp) != NULL) && (s[0] == '/'));
  1065. X  while((i < 10) && (fscanf(fp, "%s %s %s %s %s", s, packers[i], adds[i], tar[i], en[i]) > 0)){
  1066. X    i++;
  1067. X    printf("  %d - %s\n\n", i, s); 
  1068. X  }
  1069. X  fclose(fp);
  1070. X
  1071. X  ansi("md");
  1072. X  printf("\n%s > ", PD38_MSG);
  1073. X  ansi("me");
  1074. X
  1075. X  c = getint();
  1076. X  if(c > 32) printf("%c", c);
  1077. X  c -= 49;
  1078. X
  1079. X  if((c > i) || (c < 0)) return (unsigned char *) "Noe!";
  1080. X
  1081. X  
  1082. X  printf("\n\n%s .", PD39_MSG);
  1083. X
  1084. X  switch( (fpid = fork()) ){
  1085. X    case -1 :
  1086. X        break;
  1087. X    case  0 : 
  1088. X        while(1){
  1089. X            printf(".");
  1090. X            sleep(2);
  1091. X        }    
  1092. X        break;
  1093. X  }
  1094. X
  1095. X  strcpy(cd, (unsigned char *) arg);
  1096. X
  1097. X
  1098. X  if(c != 0){
  1099. X
  1100. X    if(tar[c][0] != '-'){
  1101. X        sprintf(t, "DNL%s.tar", mytime(1));
  1102. X        t[5] = 'Z';
  1103. X        sprintf(s, "exec %s %s %s > /dev/null 2>&1", TAR, t, cd);
  1104. X        system( s );
  1105. X        strcpy(cd, (unsigned char *) t);
  1106. X    }    
  1107. X    else{
  1108. X        sprintf(t, "DNL%s", mytime(1));
  1109. X        t[5] = 'Z';
  1110. X    }
  1111. X
  1112. X    if(adds[c][0] == '?')
  1113. X        sprintf(s, "exec %s %s > /dev/null 2>&1", packers[c], cd);
  1114. X    else
  1115. X        sprintf(s, "exec %s %s %s %s > /dev/null 2>&1", packers[c], adds[c], t, cd);
  1116. X    
  1117. X    system( s );
  1118. X
  1119. X    unlink( t );
  1120. X
  1121. X    strcat(t, (unsigned char *) en[c]);
  1122. X
  1123. X  }
  1124. X  else{        /* Text/ASCII */
  1125. X    
  1126. X    sprintf(t, "DNL%s", mytime(1));
  1127. X    t[5] = 'Z';    
  1128. X
  1129. X    sprintf(s, "exec %s %s > %s", packers[c], cd, t);
  1130. X
  1131. X    system( s );
  1132. X  }
  1133. X
  1134. X  kill( fpid, SIGKILL );
  1135. X  (void) wait( &fpid );
  1136. X
  1137. X  clearline();
  1138. X
  1139. X  if(tar[c][0] != '-'){
  1140. X    ansi( "md" );
  1141. X    printf( PD40_MSG );
  1142. X    ansi( "me" );
  1143. X    printf("%s\n", PD41_MSG);
  1144. X  }  
  1145. X
  1146. X  stat(t, &fstat);
  1147. X  printf("%s \"%s\" %s %ld %s.", PD42_MSG, t, PD43_MSG, fstat.st_size, PD44_MSG);
  1148. X
  1149. X
  1150. X  return (unsigned char *) t;
  1151. X}
  1152. X
  1153. X
  1154. X
  1155. X/***************************************************************************/
  1156. X/*      FUNKTION  download()                           */
  1157. X/*  BESCHREIBUNG  Text- und Binaerartikel uebertragen               */
  1158. X/*     PARAMETER  arg = artikel[-artikel]                                  */
  1159. X/*     RUECKGABE  keine                                                    */
  1160. X/***************************************************************************/
  1161. X
  1162. X#define MAX_DL_FILES 20
  1163. X
  1164. Xvoid download( arg )
  1165. Xunsigned char arg[];
  1166. X{
  1167. X  int i, k, l, m;
  1168. X  int von, bis;
  1169. X  int ALLE;
  1170. X  int protokoll, ok;
  1171. X  int cps, bps, eff;
  1172. X
  1173. X  long ts, tn;
  1174. X  long bytes_total = 0L;
  1175. X
  1176. X  struct stat fst;
  1177. X
  1178. X  unsigned char s[STRING];
  1179. X  unsigned char cd[LONGSTRING];
  1180. X  unsigned char t[(LONGSTRING+STRING)];
  1181. X  unsigned char tmp[STRING];
  1182. X
  1183. X  unsigned char files[MAX_DL_FILES][STRING];
  1184. X  int mdlp = 1;
  1185. X
  1186. X  int art[MAX_PER_NG];
  1187. X  int artp = 0;
  1188. X  int lastart;
  1189. X
  1190. X  int havetokill = 0;
  1191. X
  1192. X
  1193. X  FILE *fp, *ff;
  1194. X
  1195. X  
  1196. X  tmp[0] = '\0';
  1197. X
  1198. X  i = 0;
  1199. X  k = -1;
  1200. X  l = -1;
  1201. X  m = -1;
  1202. X
  1203. X  while (arg[i] != '\0') {
  1204. X    if (arg[i] == '-') k = i;
  1205. X    if (arg[i] == '*') l = i;
  1206. X    if ((arg[i] > 48) && (arg[i] < 58) && (m == -1)) m = i;
  1207. X    i++;
  1208. X  }
  1209. X
  1210. X  von = 1;
  1211. X  bis = 32000;
  1212. X
  1213. X  if ((m == -1) && (l == -1) && (k == -1)) {
  1214. X    return;
  1215. X  }
  1216. X
  1217. X  if ((m != -1) && (l == -1) && (k == -1)) {
  1218. X    strcpy(s, (unsigned char *) strcopy(arg, m, length(arg)));
  1219. X    von = atoi(s);
  1220. X    bis = von;
  1221. X  }
  1222. X  if (k != -1) {
  1223. X    strcpy(s, (unsigned char *) strcopy(arg, 0, (k - 1)));
  1224. X    von = atoi(s);
  1225. X    strcpy(s, (unsigned char *) strcopy(arg, (k + 1), length(arg)));
  1226. X    bis = atoi(s);
  1227. X
  1228. X    if (von == 0) von = 1;
  1229. X    if (bis == 0) bis = 32000;
  1230. X  }
  1231. X  
  1232. X  if(von > bis){
  1233. X    i = bis;
  1234. X    bis = von;
  1235. X    von = i;
  1236. X  }
  1237. X
  1238. X  maybe_locked(INHALT, "r");
  1239. X  fp = fopen(INHALT, "r");
  1240. X  if (fp == NULL) {
  1241. X    nerror("pd.c", 504, "download", "Datei-Lesefehler", INHALT);
  1242. X  }
  1243. X  while (fgets(cd, 250, fp) != NULL){
  1244. X    i = atoi(cd);
  1245. X    if((i >= von) && (i <= bis)){
  1246. X        art[artp] = i;
  1247. X        artp++;
  1248. X        if(artp > MAX_PER_NG){
  1249. X            printf("This is a known bug ;-)");
  1250. X            exit(0);
  1251. X        }        
  1252. X    }
  1253. X  }
  1254. X  fclose(fp);
  1255. X
  1256. X
  1257. X  printf("\n\n");
  1258. X
  1259. X  ansi("mr");
  1260. X  printf("%c[%s] %c, %c, %c, %c ? > ", CR, PD07_MSG, PD08_MSG, PD09_MSG, PD10_MSG, PD11_MSG);
  1261. X  ansi("me");
  1262. X
  1263. X
  1264. X  do {
  1265. X    protokoll = getint();
  1266. X    if (protokoll >= 97) protokoll -= 32;
  1267. X    if (protokoll == '?') {
  1268. X        clearline();
  1269. X        ansi("mr");
  1270. X        printf("%c%s > ", CR, PD12_MSG);
  1271. X        ansi("me");
  1272. X    }
  1273. X    if ((protokoll != PD08_MSG) && (protokoll != PD09_MSG) &&
  1274. X        (protokoll != PD10_MSG) && (protokoll != PD11_MSG))
  1275. X        protokoll = 0;
  1276. X  } while (protokoll == 0);
  1277. X
  1278. X
  1279. X  printf("%c", protokoll);
  1280. X
  1281. X  if (strcomp(BRETT, "PM") != 0) {
  1282. X           sprintf(s, "%s", BRETT); 
  1283. X  }
  1284. X  else {
  1285. X    sprintf(s, "%s/usr/%d", HOME, USER.id);
  1286. X  }
  1287. X  chdir( s );
  1288. X
  1289. X  cd[0] = '\0';
  1290. X  printf("\n\n%s .", PD36_MSG);
  1291. X
  1292. X  lastart = artp;
  1293. X
  1294. X  for( i = 0; i < artp; i++){  
  1295. X
  1296. X    sprintf(s, "%d", art[i]); 
  1297. X    
  1298. X    fp = fopen(s, "r");
  1299. X    if(fp != 0){
  1300. X        printf(".");
  1301. X
  1302. X        while ((fgets(t, 250, fp) != NULL) && (t[0] > 32));
  1303. X        while ((fgets(t, 250, fp) != NULL) && (t[0] < 32));
  1304. X
  1305. X        ok = 0;
  1306. X
  1307. X        if (strcomp("BINFILE", t) == 0) {
  1308. X            fgets(t, 80, fp);
  1309. X            strcpy(s, (unsigned char *) stripped(t));
  1310. X            ok++;
  1311. X        }
  1312. X        if(((2 + strlen(s) + strlen(cd)) < LONGSTRING) && (mdlp < MAX_DL_FILES)){
  1313. X            stat(s, &fst);
  1314. X            bytes_total += (long) fst.st_size;
  1315. X
  1316. X            if(ok != 0){
  1317. X                strcpy(files[mdlp], s);
  1318. X                mdlp++;                
  1319. X                USER.downratio += ((long) fst.st_size / 1024);
  1320. X            }
  1321. X
  1322. X            strcat(cd, s); 
  1323. X            strcat(cd, " ");
  1324. X            lastart = i;
  1325. X        }
  1326. X        fclose(fp);
  1327. X    }
  1328. X  }
  1329. X
  1330. X  if(cd[0] == '\0'){
  1331. X    ansi("md");
  1332. X    printf("%c%s\n", CR, PD35_MSG);
  1333. X    ansi("me");
  1334. X    chdir( HOME );
  1335. X    return;
  1336. X  }
  1337. X
  1338. X  if((protokoll != PD08_MSG) && (strcomp(PDNG, NG) != 0)){
  1339. X    strcpy(s, (unsigned char *) archivieren( cd ));
  1340. X    if(strcomp("Noe!", s) != 0){
  1341. X        strcpy(cd, (unsigned char *) s);
  1342. X        havetokill++;
  1343. X    }
  1344. X  }
  1345. X
  1346. X  signal(SIGINT, SIG_IGN);
  1347. X  signal(SIGHUP, SIG_IGN);
  1348. X  signal(SIGQUIT, SIG_IGN);
  1349. X  signal(SIGABRT, SIG_IGN);
  1350. X  signal(SIGTERM, SIG_IGN);
  1351. X
  1352. X  printf("\n\n");
  1353. X  ansi("md");
  1354. X  printf("%s\n\n", PD13_MSG);
  1355. X  ansi("me");
  1356. X
  1357. X  time(&ts);
  1358. X
  1359. X  switch (protokoll) {
  1360. X      case PD08_MSG:
  1361. X        sprintf(t, "exec cat %s", cd);
  1362. X        break;
  1363. X      case PD09_MSG:
  1364. X        sprintf(t, "exec %s -b %s 2> /dev/null", SX, cd);
  1365. X        break;
  1366. X      case PD10_MSG:
  1367. X        sprintf(t, "exec %s %s 2> /dev/null", SB, cd);
  1368. X        break;
  1369. X      case PD11_MSG:
  1370. X        sprintf(t, "exec %s %s 2> /dev/null", SZ, cd);
  1371. X        break;
  1372. X  }    
  1373. X  system( t );
  1374. X
  1375. X  if(havetokill != 0) unlink( cd );
  1376. X
  1377. X  time(&tn); tn = tn - ts; 
  1378. X
  1379. X  chdir( HOME );
  1380. X
  1381. X  ansi( "md" );
  1382. X 
  1383. X  if(tn < 1) tn = 1;
  1384. X  cps = bytes_total / tn;
  1385. X  bps = cps * 11;
  1386. X
  1387. X  BAUDRATE = baudrate( bps );
  1388. X
  1389. X  eff = ((100000 / BAUDRATE) * bps) / 1000;
  1390. X
  1391. X  if(bps > BAUDRATE){
  1392. X    printf("\n\n%s\n", PD14_MSG);
  1393. X    ok = -1;
  1394. X  }
  1395. X  else{    
  1396. X    printf("\n\n%ld %s.\n", fst.st_size, PD15_MSG);
  1397. X    ok = 0;
  1398. X  }
  1399. X
  1400. X  ansi( "me" );
  1401. X  printf("%s %d cps (ca. %d bps).", PD16_MSG, cps, bps);  
  1402. X
  1403. X  
  1404. X  if(ok != -1){
  1405. X      
  1406. X    sprintf(tmp, "%s/%d.pd", TMP, getpid());
  1407. X    ff = fopen( tmp, "w" );
  1408. X
  1409. X    for(i = 1; i < mdlp; i++){
  1410. X        fprintf(ff, "%s  %c  %-40.40s", mydate( 1 ), protokoll, files[i]); 
  1411. X        fprintf(ff, "  %6.d  %6.d  %2.d%% DNL\n", cps, bps, eff);        
  1412. X    }  
  1413. X
  1414. X    i = 0;
  1415. X
  1416. X    fp = fopen( PDLOG, "r" );
  1417. X    if(fp != NULL){
  1418. X        while((fgets(s, 80, fp) != NULL) && (i < PRO_ENTRIES)){
  1419. X            fputs(s, ff);
  1420. X            i++;
  1421. X        }
  1422. X        fclose(fp);
  1423. X    }
  1424. X
  1425. X    fclose(ff);
  1426. X
  1427. X    sprintf(cd, "mv %s %s", tmp, PDLOG);
  1428. X    system( cd );
  1429. X  }
  1430. X  else{
  1431. X    if(ff != 0) fclose(ff);
  1432. X    if(tmp[0] != '\0') unlink(tmp);
  1433. X  }
  1434. X
  1435. X  if(lastart != (artp-1)){
  1436. X    ansi( "md" );
  1437. X    printf("\n%s", PD40_MSG);
  1438. X    ansi( "me" );
  1439. X    printf("%s %d %s %d %s!", PD45_MSG, art[0], PD46_MSG, art[lastart], PD47_MSG);
  1440. X  }
  1441. X
  1442. X  printf("\n\n");
  1443. X}
  1444. X
  1445. X
  1446. END_OF_FILE
  1447.   if test 18843 -ne `wc -c <'src/pd.c'`; then
  1448.     echo shar: \"'src/pd.c'\" unpacked with wrong size!
  1449.   fi
  1450.   # end of 'src/pd.c'
  1451. fi
  1452. if test -f 'wendy/ctrl.c' -a "${1}" != "-c" ; then 
  1453.   echo shar: Will not clobber existing file \"'wendy/ctrl.c'\"
  1454. else
  1455.   echo shar: Extracting \"'wendy/ctrl.c'\" \(20033 characters\)
  1456.   sed "s/^X//" >'wendy/ctrl.c' <<'END_OF_FILE'
  1457. X#include "wendy.h"
  1458. X 
  1459. X 
  1460. X
  1461. X 
  1462. X/*      Statusmeldung ausgeben  */
  1463. X 
  1464. Xctrlg( f )
  1465. Xunsigned char f[];
  1466. X{
  1467. X  unsigned char s[STRING];
  1468. X  unsigned char t[STRING];
  1469. X 
  1470. X  t[0] = '\0';
  1471. X
  1472. X#ifdef _LOCAL 
  1473. X  if(INS_mode != 0)
  1474. X    strcpy(t, (unsigned char *) " - Einfuege-Modus");
  1475. X 
  1476. X  sprintf(s, " %s - Spalte %d, Zeile %d (%d) %s", f, x, (ypos + y -1), lastline, t);
  1477. X#else
  1478. X  if(INS_mode != 0)
  1479. X    strcpy(t, (unsigned char *) " - Insert-Mode");
  1480. X 
  1481. X  sprintf(s, " %s - Column %d, Line %d (%d) %s", f, x, (ypos + y -1), lastline, t);
  1482. X#endif
  1483. X  show_status( s );
  1484. X  activate( RTF_attrib );
  1485. X  ansi2( "cm", x, y );
  1486. X}
  1487. X 
  1488. X 
  1489. X 
  1490. X/*      BACKSPACE       */
  1491. X 
  1492. Xctrlh()
  1493. X{
  1494. X  unsigned char s[LONGSTRING];
  1495. X  unsigned char a[LONGSTRING];
  1496. X  unsigned char q[LONGSTRING];
  1497. X  int i, j;
  1498. X 
  1499. X  if(x == 1){
  1500. X    if(y == START) return;
  1501. X    strcpy(s, (unsigned char *) SCREEN[y-1]);
  1502. X    i = strlen((unsigned char *) right_stripped(s));
  1503. X    strcpy(s, (unsigned char *) SCREEN[y]);
  1504. X    j = strlen((unsigned char *) right_stripped(s));
  1505. X 
  1506. X    SCREEN[(y-1)][i] = '\0';
  1507. X    ATTRIB[(y-1)][i] = '\0';
  1508. X 
  1509. X    strcpy(s, (unsigned char *) SCREEN[(y-1)]); strcat(s, (unsigned char *) SCREEN[y]);
  1510. X    strcat(s, (unsigned char *) "                           ");
  1511. X    strcpy(a, (unsigned char *) ATTRIB[(y-1)]); strcat(a, (unsigned char *) ATTRIB[y]);
  1512. X    strcat(a, (unsigned char *) "0000000000000000000000000000000000000000000000000000000000000000000000000000000");
  1513. X 
  1514. X    strcpy(SCREEN[y], (unsigned char *) strcopy(s, MAXX, MAXX+MAXX));
  1515. X    strcpy(ATTRIB[y], (unsigned char *) strcopy(a, MAXX, MAXX+MAXX));
  1516. X 
  1517. X    s[MAXX] = '\0'; strcpy(SCREEN[(y-1)], (unsigned char *) s);
  1518. X    a[MAXX] = '\0'; strcpy(ATTRIB[(y-1)], (unsigned char *) a);
  1519. X
  1520. X    strcpy(q, (unsigned char *) right_stripped(SCREEN[y]));
  1521. X
  1522. X    if(strlen((unsigned char *) right_stripped(q)) < 1)
  1523. X        ctrly();
  1524. X    else
  1525. X        show_line( SCREEN[y], ATTRIB[y], 1 );
  1526. X
  1527. X    y--; x = i + 1;
  1528. X    show_line( SCREEN[y], ATTRIB[y], x );
  1529. X    ansi2( "cm", x, y );
  1530. X
  1531. X    return;
  1532. X  }
  1533. X 
  1534. X  strcpy(s, (unsigned char *) SCREEN[y]);
  1535. X  s[(x-2)] = '\0';
  1536. X  strcat(s, (unsigned char *) strcopy(SCREEN[y], (x-1), strlen(SCREEN[y])));
  1537. X  strcat(s, "            ");
  1538. X  s[MAXX] = '\0';
  1539. X  strcpy(SCREEN[y], (unsigned char *) s);
  1540. X 
  1541. X  strcpy(s, (unsigned char *) ATTRIB[y]);
  1542. X  s[(x-2)] = '\0';
  1543. X  strcat(s, (unsigned char *) strcopy(ATTRIB[y], (x-1), strlen(ATTRIB[y])));
  1544. X  strcat(s, "0000000000000000000000000000000000000000000000000000000000000000000000000000000");
  1545. X  s[MAXX] = '\0';
  1546. X  strcpy(ATTRIB[y], (unsigned char *) s);
  1547. X 
  1548. X  x--;
  1549. X  ansi2( "cm", x, y );
  1550. X 
  1551. X  if(ansi( "dc" ) != 0){
  1552. X        show_line( SCREEN[y], ATTRIB[y], x );
  1553. X    ansi2( "cm", x, y );
  1554. X  }
  1555. X}
  1556. X 
  1557. X 
  1558. X 
  1559. X/*      INSERT-Modus an/aus     */
  1560. X 
  1561. Xctrlv()
  1562. X{
  1563. X  if(INS_mode == 0){
  1564. X        INS_mode = 1;
  1565. X#ifdef _LOCAL
  1566. X        show_status( " WENDY: Einfuegemodus aktiviert. " );
  1567. X#else
  1568. X    show_status( " WENDY: Insert mode activated. " );
  1569. X#endif
  1570. X  }
  1571. X  else{
  1572. X        INS_mode = 0;
  1573. X#ifdef _LOCAL
  1574. X        show_status( " WENDY: Einfuegemodus aus. " );
  1575. X#else
  1576. X    show_status( " WENDY: Insert mode deactivated. " );
  1577. X#endif
  1578. X  }
  1579. X  ansi2( "cm", x, y );
  1580. X}
  1581. X 
  1582. X 
  1583. X 
  1584. X/*      DOWN    */
  1585. X 
  1586. Xctrlj()
  1587. X{
  1588. X  int ymem = y;
  1589. X
  1590. X  if((y < MAXY) && (y < lastline)){
  1591. X    ansi( "do" );
  1592. X        y++;
  1593. X    return;
  1594. X  }
  1595. X
  1596. X  if(ypos < (lastline - MAXY)){
  1597. X        restore_screen( ypos );
  1598. X        ypos++;
  1599. X        prep_screen( ypos );
  1600. X
  1601. X
  1602. X    ansi2( "cm", 1, START );
  1603. X
  1604. X
  1605. X    if(ansi( "dl" ) != 0){
  1606. X        show_screen( START );
  1607. X    }
  1608. X    else{
  1609. X        y = MAXY;
  1610. X        show_line( SCREEN[MAXY], ATTRIB[MAXY], 1 );
  1611. X        y = ymem;
  1612. X    }
  1613. X    ansi2( "cm", x, y );
  1614. X  }
  1615. X}
  1616. X 
  1617. X 
  1618. X 
  1619. X/*      UP      */
  1620. X 
  1621. Xctrlk()
  1622. X{
  1623. X  if(y > START){
  1624. X    ansi( "up" );
  1625. X        y--;
  1626. X    return;
  1627. X  }
  1628. X
  1629. X  if(ypos > 1){            /* 1(!), nicht START (!) */
  1630. X        restore_screen( ypos );
  1631. X        ypos--;
  1632. X        prep_screen( ypos );
  1633. X
  1634. X
  1635. X    ansi2( "cm", 1, MAXY );
  1636. X    ansi( "ce" );
  1637. X    ansi2( "cm", x, y );
  1638. X
  1639. X
  1640. X    if(ansi( "al" ) != 0){
  1641. X        show_screen( START );
  1642. X    }
  1643. X    else{
  1644. X        show_line( SCREEN[y], ATTRIB[y], 1);
  1645. X        ansi2( "cm", x, y );
  1646. X    }
  1647. X  }
  1648. X}
  1649. X 
  1650. X 
  1651. X 
  1652. X/*      CONTENT-Zeile einfuegen         */
  1653. X 
  1654. Xctrln()
  1655. X{
  1656. X  if(RTF_toggle == 0){
  1657. X    FLAG[(ypos + y - 1)] &= ~is_plain;
  1658. X    FLAG[(ypos + y - 1)] |=  is_richtext;
  1659. X#ifdef _LOCAL
  1660. X    show_status( "Der folgende Text wird klassifiziert als 'text/richtext'." );
  1661. X#else
  1662. X    show_status( "The following text is classified as 'text/richtext'." );
  1663. X#endif
  1664. X        RTF_toggle++;
  1665. X  }
  1666. X  else{
  1667. X    FLAG[(ypos + y - 1)] &= ~is_richtext;
  1668. X    FLAG[(ypos + y - 1)] |=  is_plain;
  1669. X#ifdef _LOCAL
  1670. X    show_status( "Der folgende Text wird klassifiziert als 'text/plain'." );
  1671. X#else
  1672. X    show_status( "The following text is classified as 'text/plain'." );
  1673. X#endif
  1674. X        RTF_toggle = 0;
  1675. X  }
  1676. X  activate( RTF_attrib );
  1677. X  ansi2( "cm", x, y );
  1678. X}
  1679. X
  1680. X 
  1681. X 
  1682. X/*      RTF-Attribut waehlen    */
  1683. X
  1684. X
  1685. Xctrlu_output()
  1686. X{
  1687. X  ansi( "me"); ansi( "us" );
  1688. X
  1689. X  if(RTF_attrib == 'b'){
  1690. X    ansi2( "cm", 8,  1 ); printf("B");    
  1691. X  }
  1692. X  if(FORMATTER == 'c'){
  1693. X    ansi2( "cm", 16, 1 ); printf("C");    
  1694. X  }
  1695. X  if(RTF_attrib == 'f'){
  1696. X    ansi2( "cm", 26, 1 ); printf("F");    
  1697. X  }
  1698. X  if(RTF_attrib == 'i'){
  1699. X    ansi2( "cm", 35, 1 ); printf("I");    
  1700. X  }
  1701. X  if(RTF_attrib == '0'){
  1702. X    ansi2( "cm", 45, 1 ); printf("N");    
  1703. X  }
  1704. X  if(FORMATTER == 'b'){
  1705. X    ansi2( "cm", 57, 1 ); printf("o");    
  1706. X  }
  1707. X  if(RTF_attrib == 'u'){
  1708. X    ansi2( "cm", 67, 1 ); printf("U");    
  1709. X  }  
  1710. X
  1711. X  ansi( "mr" );
  1712. X  if(RTF_attrib != 'b'){
  1713. X    ansi2( "cm", 8,  1 ); printf("B");    
  1714. X  }
  1715. X  if(FORMATTER != 'c'){
  1716. X    ansi2( "cm", 16, 1 ); printf("C");    
  1717. X  }
  1718. X  if(RTF_attrib != 'f'){
  1719. X    ansi2( "cm", 26, 1 ); printf("F");    
  1720. X  }
  1721. X  if(RTF_attrib != 'i'){
  1722. X    ansi2( "cm", 35, 1 ); printf("I");    
  1723. X  }
  1724. X  if(RTF_attrib != '0'){
  1725. X    ansi2( "cm", 45, 1 ); printf("N");    
  1726. X  }
  1727. X  if(FORMATTER != 'b'){
  1728. X    ansi2( "cm", 57, 1 ); printf("o");    
  1729. X  }
  1730. X  if(RTF_attrib != 'u'){
  1731. X    ansi2( "cm", 67, 1 ); printf("U");    
  1732. X  }  
  1733. X
  1734. X}
  1735. X 
  1736. X
  1737. Xctrlu()
  1738. X{
  1739. X  int c;
  1740. X 
  1741. X  show_status( " RTF: <B>old  <C>enter  <F>lash  <I>talic  <N>ormal  Bl<o>ckset  <U>nderline " );
  1742. X
  1743. X  do{
  1744. X    ctrlu_output();
  1745. X      ansi2( "cm", 45, 1 );
  1746. X    c = getch();
  1747. X    if(c == ESC){
  1748. X        do{
  1749. X            c = getch();
  1750. X        }while(c < 65);
  1751. X        c = getch();
  1752. X#ifdef _LOCAL
  1753. X        show_status( " WENDY: Noe, Auswahl per Cursortaste ist noch nicht implementiert ;-) ");
  1754. X#else
  1755. X        show_status( " WENDY: Nope! Selection by cursor keys' not implemented yet!" );
  1756. X#endif
  1757. X        activate( RTF_attrib );
  1758. X        ansi2( "cm", x, y );
  1759. X        return;
  1760. X     }
  1761. X
  1762. X    switch(c){
  1763. X        case 'b' :
  1764. X        case 'B' :     if(RTF_attrib == 'b') 
  1765. X                    RTF_attrib = '0';
  1766. X                else
  1767. X                    RTF_attrib = 'b';
  1768. X                break;
  1769. X        case 'c' :
  1770. X        case 'C' :    if(FORMATTER == 'c')
  1771. X                    FORMATTER = 0;
  1772. X                else
  1773. X                    FORMATTER = 'c';
  1774. X                break;
  1775. X        case 'f' :
  1776. X        case 'F' :    if(RTF_attrib == 'f')
  1777. X                    RTF_attrib = '0';
  1778. X                else
  1779. X                    RTF_attrib = 'f';
  1780. X                break;
  1781. X        case 'i' :
  1782. X        case 'I' :    if(RTF_attrib == 'i')
  1783. X                    RTF_attrib = '0';
  1784. X                else
  1785. X                    RTF_attrib = 'i';
  1786. X                break;
  1787. X        case 'n' :
  1788. X        case 'N' :    FORMATTER = 0;
  1789. X                RTF_attrib = '0';
  1790. X                break;
  1791. X        case 'o' :
  1792. X        case 'O' :    if(FORMATTER == 'o')
  1793. X                    FORMATTER = 0;
  1794. X                else
  1795. X                    FORMATTER = 'b';
  1796. X                break;
  1797. X        case 'u' :
  1798. X        case 'U' :    if(RTF_attrib == 'u')
  1799. X                    RTF_attrib = '0';
  1800. X                else
  1801. X                    RTF_attrib = 'u';
  1802. X                break;
  1803. X        
  1804. X    }    
  1805. X  }while(isin("bBcCfFiIoOuU") != 0);
  1806. X
  1807. X  ctrlu_output();
  1808. X
  1809. X  if(BLOCK.status == BLOCKMODE) block_ctrlu();
  1810. X
  1811. X  activate( RTF_attrib );
  1812. X  ansi2( "cm", x, y );
  1813. X}
  1814. X 
  1815. X 
  1816. X 
  1817. X/*      SETUP   */
  1818. X
  1819. X
  1820. Xctrls_output()
  1821. X{
  1822. X  if(MAXX <  10) MAXX =  10;
  1823. X  if(MAXX > 136) MAXX = 136;
  1824. X  if(MAXY <   4) MAXY =   4;
  1825. X  if(MAXY >  24) MAXY =  24;
  1826. X
  1827. X  ansi( "me" );
  1828. X#ifdef _LOCAL
  1829. X  ansi2( "cm", 25,  5); printf("%d  ", MAXX);
  1830. X  ansi2( "cm", 25,  7); printf("%d  ", MAXY);
  1831. X
  1832. X  ansi2( "cm", 67,  5); printf("%s           ", terminal);
  1833. X  ansi2( "cm", 67,  7); printf("%s           ", umlaut);
  1834. X#else
  1835. X  ansi2( "cm", 27,  5); printf("%d  ", MAXX);
  1836. X  ansi2( "cm", 27,  7); printf("%d  ", MAXY);
  1837. X
  1838. X  ansi2( "cm", 66,  5); printf("%s           ", terminal);
  1839. X  ansi2( "cm", 66,  7); printf("%s           ", umlaut);
  1840. X#endif
  1841. X}
  1842. X 
  1843. Xctrls()
  1844. X{
  1845. X  FILE *fp;
  1846. X  unsigned char s[STRING];
  1847. X  unsigned char *home;
  1848. X  int c, d;
  1849. X
  1850. X
  1851. X  restore_screen( ypos );
  1852. X  ansi( "cl" );
  1853. X
  1854. X#ifdef _LOCAL
  1855. X
  1856. X  show_status( " WENDY: Parameter aendern ... " );
  1857. X  
  1858. X  ansi2( "cm",  1,  3 ); printf("Aktive Parameter:");
  1859. X
  1860. X  ansi( "mr" );
  1861. X  ansi2( "cm",  1,  5 ); printf(" 1 ");
  1862. X  ansi2( "cm",  5,  5 ); printf(" Zeichen pro Zeile " );
  1863. X  ansi2( "cm",  1,  7 ); printf(" 2 ");
  1864. X  ansi2( "cm",  5,  7 ); printf(" Anzahl der Zeilen " );
  1865. X
  1866. X  ansi2( "cm", 40,  5 ); printf(" 3 ");
  1867. X  ansi2( "cm", 44,  5 ); printf(" Terminal-Emulation   " );
  1868. X  ansi2( "cm", 40,  7 ); printf(" 4 " );
  1869. X  ansi2( "cm", 44,  7 ); printf(" Umlaut-Konvertierung " );
  1870. X
  1871. X  ansi( "me" );
  1872. X  ansi2( "cm",  1, 10); printf("Vordefinierte Konfigurationen:");
  1873. X  
  1874. X  ansi( "mr" );
  1875. X  ansi2( "cm",  1, 12); printf(" 5 ");
  1876. X  ansi2( "cm",  5, 12); printf(" UNIX (Console)          ");
  1877. X  ansi2( "cm",  1, 14); printf(" 6 ");
  1878. X  ansi2( "cm",  5, 14); printf(" MINIX (Console)         ");
  1879. X  ansi2( "cm",  1, 16); printf(" 7 ");
  1880. X  ansi2( "cm",  5, 16); printf(" DOS (ProComm ab 2.4.1)  ");
  1881. X  
  1882. X  ansi2( "cm", 40, 12); printf(" 8 ");
  1883. X  ansi2( "cm", 44, 12); printf(" DOS (TELIX ab 3.11)      ");
  1884. X  ansi2( "cm", 40, 14); printf(" 9 ");
  1885. X  ansi2( "cm", 44, 14); printf(" DOS (Telemate ab 2.11)   ");
  1886. X
  1887. X  ctrls_output();
  1888. X 
  1889. X  do{
  1890. X        ansi2( "cm", 1, 19); printf("Nun, was soll's denn sein?      ");
  1891. X    ansi2( "cm", 28, 19 );
  1892. X    c = getch();
  1893. X    ansi2( "cm", 1, 19 );
  1894. X    switch(c){
  1895. X        case '1' :    ansi( "ce" );
  1896. X                printf("Zeichen pro Zeile (10-136): ");
  1897. X                sprintf(s, "%d", MAXX);
  1898. X                strcpy(s, (unsigned char *) getline( 3, 1101, '.', s));
  1899. X                MAXX = atoi(s);
  1900. X                break;
  1901. X        case '2' :    ansi( "ce" );
  1902. X                printf("Bildschirmzeilen (4-24): ");
  1903. X                sprintf(s, "%d", MAXY);
  1904. X                strcpy(s, (unsigned char *) getline( 2, 1101, '.', s));
  1905. X                MAXY = atoi(s);
  1906. X                break;
  1907. X        case '3' :    ansi( "mr" );
  1908. X                ansi2( "cm",  1, 21); printf(" A ");
  1909. X                ansi2( "cm",  5, 21); printf(" ANSI (X3.64)  ");
  1910. X                ansi2( "cm", 30, 21); printf(" B ");
  1911. X                ansi2( "cm", 34, 21); printf(" DEC VT100     "); 
  1912. X                ansi2( "cm", 60, 21); printf(" C ");
  1913. X                ansi2( "cm", 64, 21); printf(" MINIX CONSOLE ");
  1914. X                ansi( "me" );
  1915. X
  1916. X                ansi2( "cm", 1, 19 ); ansi( "ce" );
  1917. X                printf("Terminal-Emulation (A-C): ");
  1918. X
  1919. X                do{
  1920. X                    d = getch();
  1921. X                }while(isin("abcABC", d) == 0);
  1922. X    
  1923. X                switch(d){
  1924. X                    case 'a' :
  1925. X                    case 'A' :    strcpy(terminal, (unsigned char *) "ansi");
  1926. X                            break;
  1927. X                    case 'b' :
  1928. X                    case 'B' :    strcpy(terminal, (unsigned char *) "vt100");
  1929. X                            break;
  1930. X                    case 'c' :
  1931. X                    case 'C' :    strcpy(terminal, (unsigned char *) "minix");
  1932. X                            break;
  1933. X                }        
  1934. X                ansi2( "cm",  1, 21); ansi( "ce" );    
  1935. X                break;
  1936. X        case '4' :    ansi( "mr" );
  1937. X                ansi2( "cm",  1, 21); printf(" A ");
  1938. X                ansi2( "cm",  5, 21); printf(" ISO-8859-1  ");
  1939. X                ansi2( "cm", 30, 21); printf(" B ");
  1940. X                ansi2( "cm", 34, 21); printf(" IBM-Umlaute "); 
  1941. X                ansi( "me" );
  1942. X
  1943. X                ansi2( "cm", 1, 19 ); ansi( "ce" );
  1944. X                printf("Umlaut-Konvertierung (A-B): ");
  1945. X
  1946. X                do{
  1947. X                    d = getch();
  1948. X                }while(isin("abAB", d) == 0);
  1949. X    
  1950. X                switch(d){
  1951. X                    case 'a' :
  1952. X                    case 'A' :    strcpy(umlaut, (unsigned char *) "iso-8859-1");
  1953. X                            break;
  1954. X                    case 'b' :
  1955. X                    case 'B' :    strcpy(umlaut, (unsigned char *) "ibm");
  1956. X                            break;
  1957. X                }        
  1958. X                ansi2( "cm",  1, 21); ansi( "ce" );    
  1959. X                break;
  1960. X        case '5' :    MAXX = 80;
  1961. X                MAXY = 24;
  1962. X                strcpy(terminal, (unsigned char *) "vt100");
  1963. X                strcpy(umlaut, (unsigned char *) "iso-8859-1");    
  1964. X                break;
  1965. X        case '6' :    MAXX = 80;
  1966. X                MAXY = 24;
  1967. X                strcpy(terminal, (unsigned char *) "minix");
  1968. X                strcpy(umlaut, (unsigned char *) "ibm");    
  1969. X                break;
  1970. X        case '7' :    MAXX = 79;
  1971. X                MAXY = 24;
  1972. X                strcpy(terminal, (unsigned char *) "ansi");
  1973. X                strcpy(umlaut, (unsigned char *) "ibm");    
  1974. X                break;
  1975. X        case '8' :    MAXX = 80;
  1976. X                MAXY = 24;
  1977. X                strcpy(terminal, (unsigned char *) "ansi");
  1978. X                strcpy(umlaut, (unsigned char *) "ibm");    
  1979. X                break;
  1980. X        case '9' :    MAXX = 80;
  1981. X                MAXY = 23;
  1982. X                strcpy(terminal, (unsigned char *) "ansi");
  1983. X                strcpy(umlaut, (unsigned char *) "ibm");    
  1984. X                break;
  1985. X    }
  1986. X    ctrls_output();
  1987. X  }while(isin("123456789", c) != 0);
  1988. X
  1989. X  home = (unsigned char *) getenv( "HOME" );
  1990. X  sprintf(s, "%s/.wendy", home);
  1991. X  fp = fopen( s, "w" );
  1992. X  if(fp != 0){
  1993. X    fprintf(fp, "%d%c%c%c# Anzahl der Zeilen (4-24)\n", MAXY, TAB, TAB, TAB);
  1994. X    fprintf(fp, "%d%c%c%c# Anzahl der Zeichen pro Zeile (10-136)\n", MAXX, TAB, TAB, TAB);
  1995. X    fprintf(fp, "%s%c%c%c# Terminal-Emulation (ANSI, VT100, MINIX)\n", terminal, TAB, TAB, TAB);
  1996. X     fprintf(fp, "%s%c%c%c# Umlaut-Konvertierung (IBM, ISO-8859-1)\n", umlaut, TAB, TAB, TAB);
  1997. X    fclose(fp);
  1998. X  }  
  1999. X
  2000. X#else
  2001. X
  2002. X  show_status( " WENDY: Changing settings ... " );
  2003. X  
  2004. X  ansi2( "cm",  1,  3 ); printf("Active Settings:");
  2005. X
  2006. X  ansi( "mr" );
  2007. X  ansi2( "cm",  1,  5 ); printf(" 1 ");
  2008. X  ansi2( "cm",  5,  5 ); printf(" Characters per Line " );
  2009. X  ansi2( "cm",  1,  7 ); printf(" 2 ");
  2010. X  ansi2( "cm",  5,  7 ); printf(" Number of Lines     " );
  2011. X
  2012. X  ansi2( "cm", 40,  5 ); printf(" 3 ");
  2013. X  ansi2( "cm", 44,  5 ); printf(" Terminal-Emulation  " );
  2014. X  ansi2( "cm", 40,  7 ); printf(" 4 " );
  2015. X  ansi2( "cm", 44,  7 ); printf(" 'Umlaut'-Conversion " );
  2016. X
  2017. X  ansi( "me" );
  2018. X  ansi2( "cm",  1, 10); printf("Predefined Settings:");
  2019. X  
  2020. X  ansi( "mr" );
  2021. X  ansi2( "cm",  1, 12); printf(" 5 ");
  2022. X  ansi2( "cm",  5, 12); printf(" UNIX (Console)          ");
  2023. X  ansi2( "cm",  1, 14); printf(" 6 ");
  2024. X  ansi2( "cm",  5, 14); printf(" MINIX (Console)         ");
  2025. X  ansi2( "cm",  1, 16); printf(" 7 ");
  2026. X  ansi2( "cm",  5, 16); printf(" DOS (ProComm 2.4.1)     ");
  2027. X  
  2028. X  ansi2( "cm", 40, 12); printf(" 8 ");
  2029. X  ansi2( "cm", 44, 12); printf(" DOS (TELIX  3.11)       ");
  2030. X  ansi2( "cm", 40, 14); printf(" 9 ");
  2031. X  ansi2( "cm", 44, 14); printf(" DOS (Telemate 2.11)     ");
  2032. X
  2033. X  ctrls_output();
  2034. X 
  2035. X  do{                                                            
  2036. X        ansi2( "cm", 1, 19); printf("Now, which one do you want ?    ");
  2037. X    ansi2( "cm", 30, 19 );
  2038. X    c = getch();
  2039. X    ansi2( "cm", 1, 19 );
  2040. X    switch(c){
  2041. X        case '1' :    ansi( "ce" );
  2042. X                printf("Characters per line (10-136): ");
  2043. X                sprintf(s, "%d", MAXX);
  2044. X                strcpy(s, (unsigned char *) getline( 3, 1101, '.', s));
  2045. X                MAXX = atoi(s);
  2046. X                break;
  2047. X        case '2' :    ansi( "ce" );
  2048. X                printf("Screenlines (4-24): ");
  2049. X                sprintf(s, "%d", MAXY);
  2050. X                strcpy(s, (unsigned char *) getline( 2, 1101, '.', s));
  2051. X                MAXY = atoi(s);
  2052. X                break;
  2053. X        case '3' :    ansi( "mr" );
  2054. X                ansi2( "cm",  1, 21); printf(" A ");
  2055. X                ansi2( "cm",  5, 21); printf(" ANSI (X3.64)  ");
  2056. X                ansi2( "cm", 30, 21); printf(" B ");
  2057. X                ansi2( "cm", 34, 21); printf(" DEC VT100     "); 
  2058. X                ansi2( "cm", 60, 21); printf(" C ");
  2059. X                ansi2( "cm", 64, 21); printf(" MINIX CONSOLE ");
  2060. X                ansi( "me" );
  2061. X
  2062. X                ansi2( "cm", 1, 19 ); ansi( "ce" );
  2063. X                printf("Terminal-Emulation (A-C): ");
  2064. X
  2065. X                do{
  2066. X                    d = getch();
  2067. X                }while(isin("abcABC", d) == 0);
  2068. X    
  2069. X                switch(d){
  2070. X                    case 'a' :
  2071. X                    case 'A' :    strcpy(terminal, (unsigned char *) "ansi");
  2072. X                            break;
  2073. X                    case 'b' :
  2074. X                    case 'B' :    strcpy(terminal, (unsigned char *) "vt100");
  2075. X                            break;
  2076. X                    case 'c' :
  2077. X                    case 'C' :    strcpy(terminal, (unsigned char *) "minix");
  2078. X                            break;
  2079. X                }        
  2080. X                ansi2( "cm",  1, 21); ansi( "ce" );    
  2081. X                break;
  2082. X        case '4' :    ansi( "mr" );
  2083. X                ansi2( "cm",  1, 21); printf(" A ");
  2084. X                ansi2( "cm",  5, 21); printf(" ISO-8859-1  ");
  2085. X                ansi2( "cm", 30, 21); printf(" B ");
  2086. X                ansi2( "cm", 34, 21); printf(" IBM-Conversion "); 
  2087. X                ansi( "me" );
  2088. X
  2089. X                ansi2( "cm", 1, 19 ); ansi( "ce" );
  2090. X                printf("'Umlaut'-Conversions (A-B): ");
  2091. X
  2092. X                do{
  2093. X                    d = getch();
  2094. X                }while(isin("abAB", d) == 0);
  2095. X    
  2096. X                switch(d){
  2097. X                    case 'a' :
  2098. X                    case 'A' :    strcpy(umlaut, (unsigned char *) "iso-8859-1");
  2099. X                            break;
  2100. X                    case 'b' :
  2101. X                    case 'B' :    strcpy(umlaut, (unsigned char *) "ibm");
  2102. X                            break;
  2103. X                }        
  2104. X                ansi2( "cm",  1, 21); ansi( "ce" );    
  2105. X                break;
  2106. X        case '5' :    MAXX = 80;
  2107. X                MAXY = 24;
  2108. X                strcpy(terminal, (unsigned char *) "vt100");
  2109. X                strcpy(umlaut, (unsigned char *) "iso-8859-1");    
  2110. X                break;
  2111. X        case '6' :    MAXX = 80;
  2112. X                MAXY = 24;
  2113. X                strcpy(terminal, (unsigned char *) "minix");
  2114. X                strcpy(umlaut, (unsigned char *) "ibm");    
  2115. X                break;
  2116. X        case '7' :    MAXX = 79;
  2117. X                MAXY = 24;
  2118. X                strcpy(terminal, (unsigned char *) "ansi");
  2119. X                strcpy(umlaut, (unsigned char *) "ibm");    
  2120. X                break;
  2121. X        case '8' :    MAXX = 80;
  2122. X                MAXY = 24;
  2123. X                strcpy(terminal, (unsigned char *) "ansi");
  2124. X                strcpy(umlaut, (unsigned char *) "ibm");    
  2125. X                break;
  2126. X        case '9' :    MAXX = 80;
  2127. X                MAXY = 23;
  2128. X                strcpy(terminal, (unsigned char *) "ansi");
  2129. X                strcpy(umlaut, (unsigned char *) "ibm");    
  2130. X                break;
  2131. X    }
  2132. X    ctrls_output();
  2133. X  }while(isin("123456789", c) != 0);
  2134. X
  2135. X  home = (unsigned char *) getenv( "HOME" );
  2136. X  sprintf(s, "%s/.wendy", home);
  2137. X  fp = fopen( s, "w" );
  2138. X  if(fp != 0){
  2139. X    fprintf(fp, "%d%c%c%c# Number of lines (4-24)\n", MAXY, TAB, TAB, TAB);
  2140. X    fprintf(fp, "%d%c%c%c# Characters per line (10-136)\n", MAXX, TAB, TAB, TAB);
  2141. X    fprintf(fp, "%s%c%c%c# Terminal-Emulation (ANSI, VT100, MINIX)\n", terminal, TAB, TAB, TAB);
  2142. X     fprintf(fp, "%s%c%c%c# 'Umlaut'-Conversion (IBM, ISO-8859-1)\n", umlaut, TAB, TAB, TAB);
  2143. X    fclose(fp);
  2144. X  }  
  2145. X
  2146. X#endif
  2147. X
  2148. X  ansi( terminal, -1, -1 );
  2149. X
  2150. X  ansi( "cl" );
  2151. X  show_status( version );
  2152. X  prep_screen( ypos );
  2153. X  show_screen( START );
  2154. X  x = 1; y = START;
  2155. X  ansi2( "cm", x, y );
  2156. X}
  2157. X 
  2158. X 
  2159. X 
  2160. X/*      Zeile loeschen ab Cursorposition        */
  2161. X 
  2162. Xctrlt()
  2163. X{
  2164. X  unsigned char s[LONGSTRING];
  2165. X 
  2166. X  strcpy(s, (unsigned char *) SCREEN[y]);
  2167. X  s[(x-1)] = '\0';
  2168. X  strcat(s, "            ");
  2169. X  s[MAXX] = '\0';
  2170. X  strcpy(SCREEN[y], (unsigned char *) s);
  2171. X 
  2172. X  strcpy(s, (unsigned char *) ATTRIB[y]);
  2173. X  s[x] = '\0';
  2174. X  strcat(s, "0000000000000000000000000000000000000000000000000000000000000000000000000000000");
  2175. X  s[MAXX] = '\0';
  2176. X  strcpy(ATTRIB[y], (unsigned char *) s);
  2177. X 
  2178. X  show_line( SCREEN[y], ATTRIB[y], 1 ); /* 1 !!! */
  2179. X  ansi2( "cm", x, y );
  2180. X}
  2181. X 
  2182. X 
  2183. X 
  2184. X/*      Sichern         */
  2185. X 
  2186. Xctrlw( f )
  2187. Xunsigned char f[];
  2188. X{
  2189. X  FILE *fp;
  2190. X  int i;
  2191. X  int rtf = 0;
  2192. X  unsigned char s[STRING];
  2193. X  unsigned char q[LONGSTRING]; 
  2194. X
  2195. X  restore_screen( ypos );
  2196. X
  2197. X  if(BLOCK.status == BLOCKMODE){
  2198. X    block_ctrlw();
  2199. X    return;
  2200. X  }
  2201. X 
  2202. X  strcpy(q, (unsigned char *) TEXT[lastline]);
  2203. X  while((strlen((unsigned char *) right_stripped(q)) < 2) && (TEXT[lastline][0] < 33)){
  2204. X        lastline--;
  2205. X    strcpy(q, (unsigned char *) TEXT[lastline]);
  2206. X  }
  2207. X 
  2208. X  fp = fopen( f, "w" );
  2209. X 
  2210. X  if(REALLY == 0) NEU = 0;
  2211. X 
  2212. X  if(NEU != 0){
  2213. X        fprintf(fp, "Content-Type: text/richtext;\n");
  2214. X        rtf++;
  2215. X  }
  2216. X 
  2217. X  for( i = START; i <= lastline; i++){
  2218. X        if(TEXT[i][0] == '~'){
  2219. X                strcpy(TEXT[i], (unsigned char *) strcopy(TEXT[i], 1, strlen(TEXT[i])));
  2220. X        }
  2221. X 
  2222. X    if((FLAG[i] & is_richtext) == is_richtext){
  2223. X        fprintf(fp, "Content-Type: text/richtext; charset=iso-8859-1\n");
  2224. X        rtf++;
  2225. X    }
  2226. X    if((FLAG[i] & is_plain) == is_plain){
  2227. X        fprintf(fp, "Content-Type: text/plain; charset=iso-8859-1\n");
  2228. X        rtf = 0;
  2229. X    }
  2230. X
  2231. X    if((FLAG[i] & is_centered) == is_centered){
  2232. X        fprintf(fp, "<center>%s</center>", (unsigned char *) stripped(TEXT[i]));
  2233. X    }
  2234. X    else{
  2235. X        strcpy(q, (unsigned char *) TEXT[i]);
  2236. X        strcpy(s, (unsigned char *) right_stripped(q));
  2237. X        fputs(s, fp);
  2238. X    }
  2239. X 
  2240. X        if(TEXT[(i+1)][0] != '~'){
  2241. X                if(rtf == 0)
  2242. X                        fprintf(fp, "\n");
  2243. X                else
  2244. X                        fprintf(fp, "<nl>\n");
  2245. X        }
  2246. X  }
  2247. X  if(NEU != 0) fprintf(fp, "Content-Type: text/plain;\n");
  2248. X  fclose(fp);
  2249. X 
  2250. X  CHANGED = 0;
  2251. X
  2252. X#ifdef 
  2253. X  sprintf(s, " WENDY: Datei <%s> mit %d Zeilen gesichert. ", f, lastline);
  2254. X#else
  2255. X  sprintf(s, " WENDY: File <%s> with %d lines saved. ", f, lastline);
  2256. X#endif
  2257. X  show_status( s );
  2258. X  activate( RTF_attrib );
  2259. X  ansi2( "cm", x, y );
  2260. X}
  2261. X 
  2262. X 
  2263. X 
  2264. X/*      Abbrechen/Beenden       */
  2265. X 
  2266. Xctrlx( f )
  2267. X{
  2268. X  int c;
  2269. X 
  2270. X  if(CHANGED != 0){
  2271. X        printf("%c", 7);
  2272. X#ifdef _LOCAL
  2273. X        show_status( " WENDY: Datei noch nicht gesichert! Sichern? (J/N) " );
  2274. X#else
  2275. X    show_status( " WENDY: File not saved yet! Save? (Y/N) " );
  2276. X#endif
  2277. X        ansi( "mr" );
  2278. X        c = yesno();
  2279. X        ansi( "me" );
  2280. X        if((c == 'J') || (c == 'Y')) ctrlw( f );
  2281. X  }
  2282. X  show_status( " WENDY: Bye, bye ... " );
  2283. X}
  2284. X 
  2285. X 
  2286. X 
  2287. X/*      Zeile loeschen          */
  2288. X 
  2289. Xctrly()
  2290. X{
  2291. X  int i, j, ymem = y;
  2292. X
  2293. X  if(BLOCK.status == BLOCKMODE){
  2294. X    block_ctrly();
  2295. X    return;
  2296. X  }
  2297. X 
  2298. X  restore_screen( ypos );
  2299. X  j = ypos + y - 1;
  2300. X  for(i = j; i < lastline; i++){
  2301. X        strcpy(TEXT[i], (unsigned char *) TEXT[i+1]);
  2302. X    FLAG[i] = FLAG[i+1];
  2303. X  }
  2304. X  lastline--;
  2305. X 
  2306. X  prep_screen( ypos );
  2307. X
  2308. X  if(ansi( "dl" ) != 0){
  2309. X    show_screen( y );
  2310. X  }
  2311. X  else{
  2312. X    y = MAXY;
  2313. X    show_line( SCREEN[MAXY], ATTRIB[MAXY], 1 );
  2314. X    y = ymem;
  2315. X    ansi2( "cm", x, y );
  2316. X  }
  2317. X}
  2318. X
  2319. END_OF_FILE
  2320.   if test 20033 -ne `wc -c <'wendy/ctrl.c'`; then
  2321.     echo shar: \"'wendy/ctrl.c'\" unpacked with wrong size!
  2322.   fi
  2323.   # end of 'wendy/ctrl.c'
  2324. fi
  2325. echo shar: End of archive 8 \(of 15\).
  2326. cp /dev/null ark8isdone
  2327. MISSING=""
  2328. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  2329.     if test ! -f ark${I}isdone ; then
  2330.     MISSING="${MISSING} ${I}"
  2331.     fi
  2332. done
  2333. if test "${MISSING}" = "" ; then
  2334.     echo You have unpacked all 15 archives.
  2335.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2336. else
  2337.     echo You still must unpack the following archives:
  2338.     echo "        " ${MISSING}
  2339. fi
  2340. exit 0
  2341. exit 0 # Just in case...
  2342.