home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume42 / mbox / part09 < prev    next >
Internet Message Format  |  1994-03-29  |  93KB
  1. From: Volker.Schuermann@unnet.wupper.de (Volker Schuermann)
  2. Newsgroups: comp.sources.misc
  3. Subject: v42i032:  mbox - ix/MBox BBS, v2.1, Part09/12
  4. Date: 29 Mar 1994 21:08:19 -0600
  5. Organization: THE UNDERGROUND NETWORK
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <2naqf3$isc@sparky.sterling.com>
  9. Reply-To: Volker Schuermann <Volker.Schuermann@unnet.wupper.de>
  10. X-Md4-Signature: 97bda153f85fc5f16e2ebdd338724ec7
  11.  
  12. Submitted-by: Volker.Schuermann@unnet.wupper.de (Volker Schuermann)
  13. Posting-number: Volume 42, Issue 32
  14. Archive-name: mbox/part09
  15. Environment: MINIX, ISC, ESIX, SVR3, LINUX, SVR4
  16. Supersedes: mbox: Volume 35, Issue 36-50
  17.  
  18. #! /bin/sh
  19. # This is a shell archive.  Remove anything before this line, then feed it
  20. # into a shell via "sh file" or similar.  To overwrite existing files,
  21. # type "sh file -c".
  22. # Contents:  mbox/MANIFEST mbox/cdrom/744476744
  23. #   mbox/contrib/wendy/getline.c mbox/contrib/wendy/misc.c
  24. #   mbox/contrib/wendy/rtf.c mbox/contrib/wendy/wendy.c
  25. #   mbox/src/cdrom.c mbox/src/getline.c mbox/src/languages/english.shh
  26. #   mbox/src/lesen.c mbox/src/suchen.c
  27. # Wrapped by kent@sparky on Thu Mar 24 21:48:36 1994
  28. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
  29. echo If this archive is complete, you will see the following message:
  30. echo '          "shar: End of archive 9 (of 12)."'
  31. if test -f 'mbox/MANIFEST' -a "${1}" != "-c" ; then 
  32.   echo shar: Will not clobber existing file \"'mbox/MANIFEST'\"
  33. else
  34.   echo shar: Extracting \"'mbox/MANIFEST'\" \(8725 characters\)
  35.   sed "s/^X//" >'mbox/MANIFEST' <<'END_OF_FILE'
  36. X#---------------------------------------------------------------------------
  37. X#
  38. X#                      ix/MBox  M A N I F E S T
  39. X#             Bulletin Board System for UNIX(-Derivations)
  40. X#
  41. X#                          Volker Schuermann
  42. X#                     Wuppertal, FRG, 11.02.1994
  43. X#
  44. X#---------------------------------------------------------------------------
  45. X
  46. X~/mbox/MANIFEST                 You're looking at it, dude!
  47. X~/mbox/FAQ                      Frequently asked questions - might be helpful!
  48. X~/mbox/INSTALL                  A few installation hints - maybe vital!
  49. X~/mbox/Press.Kit                Information package (share it with friends ;-)
  50. X~/mbox/README                   So called "documentation"
  51. X~/mbox/VERY.IMPORTANT           A new users database and so on - have a look!!
  52. X~/mbox/cdrom                    DIRECTORY (see below)
  53. X~/mbox/contrib                  Contributed useful shell scripts (see below)
  54. X~/mbox/etc                      DIRECTROY (see below) 
  55. X~/mbox/lib                      DIRECTORY build up by MB-DAEMON
  56. X~/mbox/src                      DIRECTORY (see below)
  57. X~/mbox/stock                    DIRECTORY (see below)
  58. X~/mbox/tmp                      DIRECTORY for BBS temporaerly storage
  59. X~/mbox/usr                      DIRECTORY including users personal data
  60. X
  61. X~/mbox/cdrom/cdrom.mnt          List of directories mounted on CDROM drives
  62. X~/mbox/cdrom/?????????          A description for every CDROMs contents
  63. X
  64. X~/mbox/contrib/README.addrpat   Informations how to fix a mailers problem
  65. X~/mbox/contrib/README.instpd    Description how to get PD into the BBS world
  66. X~/mbox/contrib/addrpatch        Shell-Script to fix a mailers problem
  67. X~/mbox/contrib/instpd           Shell-Script to get Public Domain into the BBS
  68. X~/mbox/contrib/instpd.linux     Shell-Script especially for LINUX (see above)
  69. X~/mbox/contrib/instpd.perl      Perl-Script to get PD inside the BBS
  70. X~/mbox/contrib/termcap.color    New termcap entry - COLOR-ANSI codes
  71. X~/mbox/contrib/wendy            DIRECTORY (see below)
  72. X
  73. X~/mbox/cont*/*.perl/README      As it says ;-)
  74. X~/mbox/cont*/*.perl/descript.*  The same ...
  75. X~/mbox/cont*/*.perl/instpd.pl   Perl-Script to get PD into the BBS
  76. X
  77. X~/mbox/cont*/wendy/README       How to build up the RTF editor WENDY
  78. X~/mbox/cont*/wendy/Makefile     Adapt this to your system
  79. X~/mbox/cont*/wendy/block.c      C-Source
  80. X~/mbox/cont*/wendy/ctrl.c       C-Source
  81. X~/mbox/cont*/wendy/defs.h       Header file
  82. X~/mbox/cont*/wendy/echo.c       C-Source
  83. X~/mbox/cont*/wendy/english.hlp  WENDY helpfile, english
  84. X~/mbox/cont*/wendy/getch.c      C-Source        
  85. X~/mbox/cont*/wendy/getline.c    C-Source
  86. X~/mbox/cont*/wendy/misc.c       C-Source
  87. X~/mbox/cont*/wendy/rtf.c        C-Source
  88. X~/mbox/cont*/wendy/screen.c     C-Source
  89. X~/mbox/cont*/wendy/tools.c      C-Source
  90. X~/mbox/cont*/wendy/wendy.c      C-Source
  91. X~/mbox/cont*/wendy/wendy.dok    WENDY RTF test file
  92. X~/mbox/cont*/wendy/wendy.h      Header file
  93. X~/mbox/cont*/wendy/wendy.hlp    WENDY helpfile, german/deutsch
  94. X
  95. X~/mbox/etc/active               MB-DAEMONs internal NEWS active file
  96. X~/mbox/etc/alias.sh             If you use SMAIL, you should have a look!
  97. X~/mbox/etc/ansi.commands        ANSI headline for IBM-PC users
  98. X~/mbox/etc/ansi.help            ANSI headline for IBM-PC users
  99. X~/mbox/etc/ansi.portinfo        ANSI headline for IBM-PC users
  100. X~/mbox/etc/ansi.sysinfo         ANSI headline for IBM-PC users
  101. X~/mbox/etc/ansi.intro           ANSI headline for IBM-PC users
  102. X~/mbox/etc/ansi.users           ANSI headline for IBM-PC users
  103. X~/mbox/etc/guests.intro         BBS intro file for guests
  104. X~/mbox/etc/inews.sh             BBS learns here how to handle NEWS - look!
  105. X~/mbox/etc/intro                BBS intro file for users
  106. X~/mbox/etc/logo                 BBS logo (pre intro ;-)
  107. X~/mbox/etc/list.editors         List of editors - you have to change it!
  108. X~/mbox/etc/list.games           List of games - you have to have them ;-)
  109. X~/mbox/etc/list.packers         Archivers/Packers are declared here
  110. X~/mbox/etc/list.udc             User (i.e. Sysop!) defined commands
  111. X~/mbox/etc/list.terminals       Additional terminals - adjust the list!
  112. X~/mbox/etc/log.alltime          File containing a list of all-calls-ever
  113. X~/mbox/etc/log.calls            Calls are recorded in this file
  114. X~/mbox/etc/log.mbd              MB-DAEMON stores NEWS statistics here
  115. X~/mbox/etc/log.pd               Download statistics
  116. X~/mbox/etc/log.reflector        Logfile of the inbuild NEWS reflector   
  117. X~/mbox/etc/mbox.cmd             BBS commands - language dependend!
  118. X~/mbox/etc/mbox.hlp             Helpfile (long) - language dependend!
  119. X~/mbox/etc/mbox.seq             Number of calls - hands off!
  120. X~/mbox/etc/mbox.shh             Helpfile (short) - language dependend!
  121. X~/mbox/etc/mbox.who             Who's doing what? - might be empty!
  122. X~/mbox/etc/mbrsh                BBS-Shell - handles permissions correct
  123. X~/mbox/etc/pd.script            Upload shell script - maybe useful ...
  124. X~/mbox/etc/rmail.sh             BBS learns how to use your mailer - look!
  125. X~/mbox/etc/sysinfo              Informations about your BBS
  126. X~/mbox/etc/timezones            XMD uses this to calculate delivering time 
  127. X~/mbox/etc/tset                 How to change the shell TERM variable
  128. X~/mbox/etc/users.data           Users data base - backup pretty often!!!
  129. X~/mbox/etc/users.seq            Number of latest account - backup often!!!
  130. X~/mbox/etc/xmd.alias            XMD learns about users aliases here
  131. X
  132. X~/mbox/src/CROSSREF             Where to find functions?
  133. X~/mbox/src/HISTORY              My special changelog file - hands off!
  134. X~/mbox/src/Makefile             Have a very close look at this file!!!
  135. X~/mbox/src/admin.c              C-Source
  136. X~/mbox/src/baudrate.c           C-Source
  137. X~/mbox/src/befehl.c             C-Source
  138. X~/mbox/src/bled.c               C-Source
  139. X~/mbox/src/bled.doc             Helpfile of BLED (line editor)
  140. X~/mbox/src/chat.c               C-Source
  141. X~/mbox/src/control.c            C-Source
  142. X~/mbox/src/coreleft.c           C-Source
  143. X~/mbox/src/ctrlx.c              C-Source
  144. X~/mbox/src/defs.h               Header file
  145. X~/mbox/src/derror.c             C-Source
  146. X~/mbox/src/dis.c                C-Source
  147. X~/mbox/src/dstock.c             C-Source
  148. X~/mbox/src/faces.c              C-Source
  149. X~/mbox/src/games.c              C-Source
  150. X~/mbox/src/getch.c              C-Source
  151. X~/mbox/src/getline.c            C-Source
  152. X~/mbox/src/help.c               C-Source
  153. X~/mbox/src/intro.c              C-Source
  154. X~/mbox/src/know.better          SMALLTALK knowledge base, german/deutsch
  155. X~/mbox/src/languages            DIRECTORY (see below)
  156. X~/mbox/src/lesen.c              C-Source
  157. X~/mbox/src/lesen2.c             C-Source
  158. X~/mbox/src/loop.c               C-Source
  159. X~/mbox/src/mail.c               C-Source
  160. X~/mbox/src/main.c               C-Source
  161. X~/mbox/src/makro.c              C-Source
  162. X~/mbox/src/mb-daemon.c          C-Source
  163. X~/mbox/src/mbox.h               Header file
  164. X~/mbox/src/mbox.msg             Defines for text outputs - language dependend!
  165. X~/mbox/src/mbrsh.c              C-Source
  166. X~/mbox/src/misc.c               C-Source
  167. X~/mbox/src/misc2.c              C-Source
  168. X~/mbox/src/nerror.c             C-Source
  169. X~/mbox/src/patchlevel.h         Header file
  170. X~/mbox/src/pd.c                 C-Source
  171. X~/mbox/src/portinfo.c           C-Source
  172. X~/mbox/src/postfach.c           C-Source
  173. X~/mbox/src/proto.h              Prototypes - fairly incomplete!
  174. X~/mbox/src/show.c               C-Source
  175. X~/mbox/src/smalltalk.c          C-Source
  176. X~/mbox/src/smalltext.c          C-Source
  177. X~/mbox/src/subscribe.c          C-Source
  178. X~/mbox/src/suchen.c             C-Source
  179. X~/mbox/src/tools.c              C-Source
  180. X~/mbox/src/undef.c              C-Source
  181. X~/mbox/src/uptodate.c           C-Source
  182. X~/mbox/src/uudecode.c           C-Source
  183. X~/mbox/src/weiterl.c            C-Source
  184. X~/mbox/src/xmd.c                C-Source
  185. X
  186. X~/mbox/src/lang*/deutsch.cmd    Commands, german/deutsch        
  187. X~/mbox/src/lang*/deutsch.hlp    Helpfile, german/deutsch
  188. X~/mbox/src/lang*/deutsch.msg    Text outputs, german/deutsch
  189. X~/mbox/src/lang*/deutsch.shh    Shorthelp, german/deutsch
  190. X~/mbox/src/lang*/english.cmd    Commands, english
  191. X~/mbox/src/lang*/english.hlp    Helpfile, english
  192. X~/mbox/src/lang*/english.msg    Text, outputs english
  193. X~/mbox/src/lang*/english.shh    Shorthelp, english
  194. X~/mbox/src/lang*/francais.hlp   Helpfile, french/francais
  195. X~/mbox/src/lang*/francais.msg   Text outputs, french/francais
  196. X~/mbox/src/lang*/francais.shh   Shorthelp, french/francais
  197. X
  198. X~/mbox/stock/23.11.93.dax       Stock Exchange (de.etc.finanz) DAX Shares
  199. X~/mbox/stock/23.11.93.dj        Stock Exchange Dow Jones N.Y. Shares
  200. X~/mbox/stock/dax.wpkn           DAX WPKN
  201. X~/mbox/stock/dj.wpkn            Dow Jones WPKN
  202. X~/mbox/stock/index              List of indexes - you have to enter them!
  203. X
  204. END_OF_FILE
  205.   if test 8725 -ne `wc -c <'mbox/MANIFEST'`; then
  206.     echo shar: \"'mbox/MANIFEST'\" unpacked with wrong size!
  207.   fi
  208.   # end of 'mbox/MANIFEST'
  209. fi
  210. if test -f 'mbox/cdrom/744476744' -a "${1}" != "-c" ; then 
  211.   echo shar: Will not clobber existing file \"'mbox/cdrom/744476744'\"
  212. else
  213.   echo shar: Extracting \"'mbox/cdrom/744476744'\" \(357 characters\)
  214.   sed "s/^X//" >'mbox/cdrom/744476744' <<'END_OF_FILE'
  215. XGUUG *NIX Highlights (Augsut 1993)
  216. X
  217. X- Linux SLS V1.03 (Kernel 0.99.11)
  218. X- Utilities f. Linux
  219. X- 386BSD V0.1 Patchkit 0.2.4
  220. X- NetBSD V0.8
  221. X- Utilities f. 386BSD und NetBSD
  222. X- Berkeley Second Networking Distribution
  223. X- GNU gcc 2.4.5, emacs 19.17, make 3.68
  224. X- TeX 3.13
  225. X- RFCs (!!)
  226. X- X11R5 bis Patch 25
  227. X- X11 Programme, Tools, Utilities
  228. X- News-, Mail-, BBS-Software
  229. END_OF_FILE
  230.   if test 357 -ne `wc -c <'mbox/cdrom/744476744'`; then
  231.     echo shar: \"'mbox/cdrom/744476744'\" unpacked with wrong size!
  232.   fi
  233.   # end of 'mbox/cdrom/744476744'
  234. fi
  235. if test -f 'mbox/contrib/wendy/getline.c' -a "${1}" != "-c" ; then 
  236.   echo shar: Will not clobber existing file \"'mbox/contrib/wendy/getline.c'\"
  237. else
  238.   echo shar: Extracting \"'mbox/contrib/wendy/getline.c'\" \(7130 characters\)
  239.   sed "s/^X//" >'mbox/contrib/wendy/getline.c' <<'END_OF_FILE'
  240. X/* ix/MBox (getline.c) by Volker Schuermann, 04.12.1993
  241. X
  242. X   This C source code contains the following functions:
  243. X 
  244. X   #GL getline()         read a line, mind various parameters
  245. X   #GI getint()          read an integer
  246. X   #YN yesno()           yes or no?
  247. X   
  248. X   Contact <volkers@unnet.wupper.de> for help! */
  249. X
  250. X
  251. X
  252. X
  253. X
  254. X
  255. X
  256. X
  257. X#include <stdio.h>
  258. X
  259. X#ifdef _MBOX
  260. X#include "mbox.h"
  261. X#else
  262. X#define BS        8
  263. X#define CR        13
  264. X#define LF        10
  265. X#define FF        12
  266. X#define CTRL_X        24
  267. X#define CTRL_D        4
  268. X#define BELL        7
  269. X#define ESC        27
  270. X#define DEL        127
  271. X#define GBL06_MSG    'J'     
  272. X#define GBL07_MSG    'N'    
  273. X
  274. Xint UMLAUT = 0;
  275. X
  276. X#ifdef _SYS7
  277. X#define ENTER        13
  278. X#else
  279. X#define ENTER         10
  280. X#endif
  281. X
  282. X#ifndef _MINIX
  283. X#define UNSIGNED unsigned
  284. X#else
  285. X#define UNSIGNED
  286. X#endif
  287. X
  288. X#endif
  289. X
  290. X#ifndef STRING
  291. X#define STRING 85
  292. X#endif
  293. X
  294. X
  295. X
  296. X/* GL - Read a line.
  297. X
  298. X   [len]      ->  How many characters
  299. X   [mode]     ->     <0  =  7 Bit
  300. X                      0  =  Don't echo input (i.e. nothing is shown)
  301. X                      1  =  Echo input 
  302. X                      2  =  Show '*' instead of receiver characters
  303. X                      3  =  Show ':' as third and sixth character (time input)
  304. X                      4  =  Show '.' as third and sixth character (date input)
  305. X                      5  =  Only accept alphanumerical input
  306. X                     10  =  Show [bsc] [len] times before accepting any input
  307. X                    100  =  Only numeric input, '.' and ':' allowed
  308. X                   1000  =  Show [deftext] and [bsc] first
  309. X                  10000  =  If a number is the first input, return immediately
  310. X   [bsc]      ->  Print this to delete
  311. X   [deftext]  ->  To be displayed if [mode] >= 1000 */
  312. X
  313. Xstatic int endless;
  314. X
  315. XUNSIGNED char *getline(len, mode, bsc, deftext)
  316. Xint len, mode;
  317. Xint bsc;
  318. XUNSIGNED char deftext[];
  319. X{
  320. X  static UNSIGNED char gls[STRING];
  321. X  int c;
  322. X  int gli, gll;
  323. X  int delim = '\0';
  324. X  int matrix = 0;
  325. X  int echo = 1, numerics = 0, defmode = 0, letters = 0;
  326. X  int escape = 0;
  327. X  int lenmem = len;
  328. X  int lastwasblank = 0;
  329. X  int siebenbit = 0;
  330. X  
  331. X  if (mode < 0) {
  332. X    siebenbit++;
  333. X    mode *= -1;
  334. X  }
  335. X  if (mode > 10000) {
  336. X    escape++;
  337. X    mode -= 10000;
  338. X  }
  339. X  if (mode > 1000) {
  340. X    mode -= 1000;
  341. X    defmode++;
  342. X  }
  343. X  if (mode > 100) {
  344. X    mode -= 100;
  345. X    numerics++;
  346. X  }
  347. X  if (mode > 10) {
  348. X    mode -= 10;
  349. X    matrix++;
  350. X  }
  351. X  if (mode > 2) {
  352. X    switch(mode){
  353. X        case 3    : delim = ':';
  354. X              break;
  355. X        case 4  : delim = '.';        
  356. X              break;
  357. X         case 5  : letters++;
  358. X              break;
  359. X    }
  360. X    mode = 1;
  361. X  }
  362. X  echo = mode;
  363. X
  364. X  if (defmode != 0) {
  365. X    if((deftext[0] < 32) || (deftext[0] > 126)) deftext[0] = '\0';
  366. X    gll = strlen(deftext);
  367. X    lenmem = len - gll;
  368. X    if(deftext[0] != '\0'){
  369. X        sprintf(gls, "%s", deftext);
  370. X        printf("%s", deftext);
  371. X    }
  372. X    else gls[0] = '\0';
  373. X  }
  374. X  else {
  375. X    gll = 0;
  376. X    strcpy(gls, (UNSIGNED char *) "OOPS");
  377. X  }
  378. X
  379. X  if (matrix != 0) {
  380. X    for (gli = 0; gli < lenmem; gli++) {
  381. X        if (((gli == 2) || (gli == 5)) && (delim != '\0') && (gli != len)) {
  382. X            printf("%c", delim);
  383. X        }
  384. X        else {
  385. X            printf("%c", bsc);
  386. X        }
  387. X    }
  388. X    for (gli = 0; gli < lenmem; gli++) printf("%c", BS);
  389. X  }
  390. X
  391. X  do {
  392. X
  393. X    if (delim != '\0') {
  394. X        if (((gll == 2) || (gll == 5)) && (gll < len)){
  395. X            c = delim;
  396. X        }
  397. X        else {
  398. X            c = getint();  
  399. X        }
  400. X    }
  401. X    else {
  402. X        c = getint();  
  403. X    }        
  404. X
  405. X    if(siebenbit != 0){
  406. X        if(c > 127) c = 0;
  407. X    }
  408. X
  409. X    /*  LINUX' very strange keymaps ;-(                      */
  410. X    /*  DEL (= 127) will NOT work any longer! Never mind ... */
  411. X
  412. X     if (c == 127) c = BS;
  413. X
  414. X
  415. X
  416. X    if (c == ESC) {
  417. X        c = getint();  
  418. X        c = getint();  
  419. X        if ((c == 'A') || (c == 'B')) {
  420. X            if (c == 'A') endless++;
  421. X            if (c == 'B') endless--;
  422. X            if (endless < 1) endless = 9;
  423. X            if (endless > 9) endless = 1;
  424. X            sprintf(gls, "%d", endless);
  425. X            return (UNSIGNED char *) gls;
  426. X        }
  427. X        if (c == 'D') c = BS;
  428. X        if (c == 'C') c = ENTER;
  429. X    }
  430. X    if ((c == CTRL_X) || (c == CTRL_D) || (c == DEL)) {
  431. X        return (UNSIGNED char *) "<BREAK>";
  432. X    }
  433. X    if (c == FF) {
  434. X        printf("\\\n");
  435. X        c = 0;
  436. X    }
  437. X    if (c != ENTER) { 
  438. X        if ((c == BS) && (gll > 0)) {
  439. X            if (((gll == 3) || (gll == 6)) && (delim != '\0')) {
  440. X                gll -= 2;
  441. X                printf("%c%c%c%c", BS, BS, bsc, BS);
  442. X            } else {
  443. X                gll--;
  444. X                printf("%c%c%c", BS, bsc, BS);
  445. X            }
  446. X        }
  447. X        if (numerics == 0) {
  448. X            if (c >= 32) {
  449. X                if(letters != 0){
  450. X                    if((c < 'A') && (c != ' ')) c = 0;
  451. X                    if(c > 'z') c = 0;
  452. X                    if((c > 'Z') && (c < 'a')) c = 0;
  453. X
  454. X                    if(c == ' '){
  455. X                        if(lastwasblank != 0) c = 0;
  456. X                        lastwasblank++;
  457. X                    }
  458. X                    else{
  459. X                        if(c != 0) lastwasblank = 0;
  460. X                    }                
  461. X
  462. X                    if(c == 0)
  463. X                        printf("%c", BELL);
  464. X                }
  465. X                if(c != 0){
  466. X                    gls[gll] = c;
  467. X                    gll++;
  468. X                }
  469. X            }
  470. X            else {
  471. X                c = 0;
  472. X            }
  473. X        }
  474. X        else {
  475. X            if ((c == '.') || (c == ':') || ((c >= '0') && (c <= '9'))) {
  476. X                if (((delim != '\0') && ((c == '.') || (c == ':'))) &&
  477. X                    ((gll != 2) && (gll != 5))) {
  478. X                    printf("%c", BELL);
  479. X                    c = 0;
  480. X                }
  481. X                else {
  482. X                    gls[gll] = c;
  483. X                    gll++;
  484. X                    gls[gll] = '\0';
  485. X                }
  486. X            }
  487. X            else {
  488. X                if (c != BS) printf("%c", BELL);
  489. X                c = 0; 
  490. X            }
  491. X        }
  492. X        if (c != 0) {
  493. X            if (echo == 1) printf("%c", c);
  494. X            if (echo == 2) printf("*");
  495. X        }
  496. X    }
  497. X    if (gll == 1) {
  498. X        if (escape != 0) {
  499. X            if (((c > 47) && (c < 58)) ||
  500. X                 (c == '-') || (c == '+') ) {
  501. X                    gls[gll] = '\0';
  502. X                    return (UNSIGNED char *) gls;
  503. X            }
  504. X        }
  505. X    }
  506. X
  507. X  } while ((c != ENTER) && (gll < len));
  508. X
  509. X  gls[gll] = '\0';
  510. X
  511. X  return (UNSIGNED char *) gls;
  512. X}
  513. X
  514. X
  515. X
  516. X
  517. X
  518. X
  519. X
  520. X/* #GI - Read an integer. */
  521. X
  522. Xint getint()
  523. X{
  524. X  int c;
  525. X
  526. X
  527. X  if(UMLAUT != 0){
  528. X    c = UMLAUT;
  529. X    UMLAUT = 0;
  530. X    return (int) c;
  531. X  }
  532. X
  533. X  do{
  534. X    c = (int) getch();
  535. X
  536. X#ifndef _UMLAUT
  537. X
  538. X    if(c > 127){
  539. X
  540. X        UMLAUT = 'e';
  541. X
  542. X        switch(c){
  543. X            case 142 : c = 'A'; /* IBM 'Ae' */
  544. X                   break;
  545. X            case 153 : c = 'O'; /* IBM 'Oe' */
  546. X                   break;
  547. X            case 154 : c = 'U'; /* IBM 'Ue' */
  548. X                   break;
  549. X            case 132 : c = 'a'; /* IBM 'ae' */
  550. X                   break;
  551. X            case 148 : c = 'o'; /* IBM 'oe' */
  552. X                   break;
  553. X            case 129 : c = 'u'; /* IBM 'ue' */
  554. X                   break;
  555. X            case 225 : c = 's'; /* IBM 'ss' */
  556. X                   UMLAUT = 's';
  557. X                   break;
  558. X
  559. X            case 196 : c = 'A'; /* AMIGA 'Ae' */
  560. X                   break;
  561. X            case 214 : c = 'O'; /* AMIGA 'Oe' */
  562. X                   break;
  563. X            case 220 : c = 'U'; /* AMIGA 'Ue' */
  564. X                   break;
  565. X            case 228 : c = 'a'; /* AMIGA 'ae' */
  566. X                   break;
  567. X            case 246 : c = 'o'; /* AMIGA 'oe' */
  568. X                   break;
  569. X            case 252 : c = 'u'; /* AMIGA 'ue' */
  570. X                   break;
  571. X            case 223 : c = 's'; /* AMIGA 'ss' */
  572. X                   UMLAUT = 's';
  573. X                   break;
  574. X
  575. X#ifdef I_LIKE_CONFUSIONS
  576. X                case 128 : c = 'A'; /* APPLE 'Ae' */
  577. X                   break;
  578. X            case 133 : c = 'O'; /* APPLE 'Oe' */
  579. X                   break;
  580. X            case 134 : c = 'U'; /* APPLE 'Ue' */
  581. X                   break;
  582. X            case 138 : c = 'a'; /* APPLE 'ae' */
  583. X                   break;
  584. X            case 154 : c = 'o'; /* APPLE 'oe' */
  585. X                   break;
  586. X            case 159 : c = 'u'; /* APPLE 'ue' */
  587. X                   break;
  588. X            case 167 : c = 's'; /* APPLE 'ss' */
  589. X                   UMLAUT = 's';
  590. X                   break;
  591. X#endif /* _CONFUSION */
  592. X            default  : UMLAUT = 0;
  593. X        }        
  594. X        }
  595. X
  596. X  }while((c == 0) || (c > 127));
  597. X
  598. X#else /* _UMLAUT */
  599. X
  600. X  }while(c == 0);
  601. X
  602. X#endif /* _UMLAUT */
  603. X
  604. X
  605. X  return (int) c;
  606. X}
  607. X
  608. X
  609. X
  610. X
  611. X
  612. X/* #YN - Get a char, but only accept GBL06_MSG (Yes, Ja, Qui) and
  613. X   GBL07_MSG (No, Nein, Non). */
  614. X
  615. Xint yesno()
  616. X{
  617. X  int c;
  618. X
  619. X  do {
  620. X    c = getint();
  621. X    if (c >= 97) c -= 32;
  622. X    if ((c != GBL06_MSG) && (c != GBL07_MSG)) c = 0;
  623. X  } while (c == 0);
  624. X
  625. X  printf("%c", c);
  626. X
  627. X  return (int) c;
  628. X}
  629. X
  630. X 
  631. END_OF_FILE
  632.   if test 7130 -ne `wc -c <'mbox/contrib/wendy/getline.c'`; then
  633.     echo shar: \"'mbox/contrib/wendy/getline.c'\" unpacked with wrong size!
  634.   fi
  635.   # end of 'mbox/contrib/wendy/getline.c'
  636. fi
  637. if test -f 'mbox/contrib/wendy/misc.c' -a "${1}" != "-c" ; then 
  638.   echo shar: Will not clobber existing file \"'mbox/contrib/wendy/misc.c'\"
  639. else
  640.   echo shar: Extracting \"'mbox/contrib/wendy/misc.c'\" \(9463 characters\)
  641.   sed "s/^X//" >'mbox/contrib/wendy/misc.c' <<'END_OF_FILE'
  642. X/* ix/MBox/WENDY (misc.c) by Volker Schuermann, 04.12.1993
  643. X
  644. X   This C source code contains the following functions:
  645. X 
  646. X   #BS blockset()              reformat text        
  647. X   #IS insert_file()           insert a file into the text
  648. X   #RS right_stipped()         strip of junk trailing text lines
  649. X   #HP help()                  display help text
  650. X   #IN insert()                insert char/block/line
  651. X   #EN enter()                 process <ENTER> key
  652. X   #VI vi()                    fake "VI" commands
  653. X   #PU pgup()                  one page backwards
  654. X   #PD pgdn()                  one page forwards
  655. X   #CE center()                reformat text
  656. X   #LE lines_end()             process <END> key
  657. X   #WW wordwarp()              handle text running over at eoln
  658. X
  659. X   Contact <volkers@unnet.wupper.de> for help! */
  660. X
  661. X
  662. X
  663. X
  664. X
  665. X
  666. X
  667. X
  668. X
  669. X
  670. X
  671. X
  672. X#include "wendy.h"
  673. X
  674. X
  675. Xunsigned char *right_stripped();
  676. X
  677. X
  678. X
  679. X/* #BS - reformat text line */
  680. X
  681. Xblockset()
  682. X{
  683. X  FILE *fp;
  684. X
  685. X  unsigned char s[STRING];
  686. X  unsigned char a[STRING];
  687. X  unsigned char q[LONGSTRING];
  688. X
  689. X  int i, j = 0, l;
  690. X  int WIDE = MAXX;
  691. X  int whitespace = 1;
  692. X
  693. X  
  694. X  strcpy(s, (unsigned char *) SCREEN[y]); l = strlen((unsigned char *) right_stripped(s));
  695. X
  696. X  if(l < ((WIDE / 10) * 8)) return;
  697. X
  698. X  while(l < WIDE){
  699. X    i = 0; whitespace = 1;
  700. X
  701. X    while((l < WIDE) && (i < WIDE)){
  702. X        if(SCREEN[y][i] != BLANK) whitespace = 0;
  703. X        if(whitespace == 1){
  704. X            i++;
  705. X            continue;
  706. X        }
  707. X        strcpy(s, (unsigned char *) SCREEN[y]);
  708. X        strcpy(a, (unsigned char *) ATTRIB[y]);
  709. X
  710. X        if(isin(".!?,;:", SCREEN[y][i]) != 0){
  711. X            if((WIDE - l - 3) > 0){
  712. X                i++;
  713. X                SCREEN[y][i] = '\0';
  714. X                strcat(SCREEN[y], (unsigned char *) "   ");
  715. X                strcat(SCREEN[y], (unsigned char *) strcopy(s, i, l));
  716. X                ATTRIB[y][i]   = ATTRIB[y][i-1];
  717. X                ATTRIB[y][i+1] = ATTRIB[y][i-1];
  718. X                ATTRIB[y][i+2] = ATTRIB[y][i-1];
  719. X                ATTRIB[y][i+3] = '\0';
  720. X                strcat(ATTRIB[y], (unsigned char *) strcopy(a, i, l));                
  721. X                i += 2;
  722. X            }
  723. X        }
  724. X        if(SCREEN[y][i] == BLANK){
  725. X            i++;
  726. X            SCREEN[y][i] = '\0';
  727. X            strcat(SCREEN[y], (unsigned char *) " ");
  728. X            strcat(SCREEN[y], (unsigned char *) strcopy(s, i, l));
  729. X            ATTRIB[y][i] = ATTRIB[y][i-1];
  730. X            ATTRIB[y][i+1] = '\0';
  731. X            strcat(ATTRIB[y], (unsigned char *) strcopy(a, i, l));                
  732. X        }
  733. X        i++;
  734. X        strcpy(q, (unsigned char *) SCREEN[y]);
  735. X        l = strlen((unsigned char *) right_stripped(q));
  736. X    }
  737. X  }
  738. X}
  739. X
  740. X
  741. X
  742. X/* #IS - Insert a file into the text */
  743. X
  744. Xinsert_file( t )
  745. Xunsigned char t[];
  746. X{
  747. X  unsigned char s[STRING];
  748. X  unsigned char path[STRING];
  749. X  unsigned char tmp[STRING];
  750. X  int i = 0, ynow;
  751. X
  752. X  FILE *fp, *ff;  
  753. X
  754. X  while((t[i] != ' ') && (t[i] != '\0')) i++;
  755. X  strcpy(path, (unsigned char *) strcopy(t, (i+1), strlen(t)));
  756. X
  757. X  fp = fopen( path, "r" );
  758. X  if(fp == 0){
  759. X#ifdef _LOCAL
  760. X    sprintf(t, " Datei <%s> nicht gefunden oder Zugriff verweigert. ", path);
  761. X#else
  762. X    sprintf(t, " File <%s> not found or no access rights. ", path);
  763. X#endif
  764. X    show_status( t );
  765. X        return;
  766. X  }
  767. X
  768. X  sprintf(tmp, "/tmp/wendy.%d", getpid());
  769. X
  770. X  ynow = ypos + y;
  771. X
  772. X  restore_screen( ypos );
  773. X
  774. X  ff = fopen( tmp, "w" );
  775. X  for(i = ynow; i <= lastline; i++){
  776. X    fprintf(ff, "%s\n", TEXT[i]);
  777. X  }
  778. X  fclose(ff);
  779. X
  780. X  lastline = ynow;
  781. X
  782. X  while(fgets(TEXT[lastline], LINELENGTH, fp) != 0) lastline++;
  783. X  fclose(fp);   
  784. X
  785. X  fp = fopen( tmp, "r" );
  786. X  while(fgets(TEXT[lastline], LINELENGTH, fp) != 0) lastline++;
  787. X  fclose(fp);
  788. X
  789. X  unlink( tmp );
  790. X 
  791. X  prep_screen( ypos );
  792. X  show_screen( START );
  793. X}
  794. X
  795. X
  796. X
  797. X/* #RS - Strip of junk from the end of a text line */
  798. X
  799. Xunsigned char *right_stripped( s )
  800. Xunsigned char s[];
  801. X{
  802. X  int i;
  803. X  
  804. X  i = strlen( (unsigned char *) s);
  805. X
  806. X  while(((s[i] < 33) || (s[i] == BLANK)) && (i > -1)) i--;
  807. X  i++;
  808. X  s[i] = '\0';
  809. X
  810. X  return (unsigned char *) s;
  811. X}
  812. X
  813. X
  814. X
  815. X/* #HP - Help! */
  816. X
  817. Xhelp()
  818. X{
  819. X  FILE *fp;
  820. X  unsigned char s[STRING];
  821. X  int c, i;
  822. X
  823. X  restore_screen( ypos );
  824. X
  825. X  ansi( "cl" );
  826. X  c = MAXY;
  827. X  MAXY = 0;
  828. X  show_status( VERSION ); /* !! */
  829. X  MAXY = c;
  830. X
  831. X  i = START;
  832. X
  833. X  fp = fopen( HILFE, "r" );
  834. X  if(fp == NULL){
  835. X#ifdef _LOCAL
  836. X    printf("\n\nDatei <%s> nicht gefunden!\n\n", HILFE);
  837. X#else
  838. X    printf("\n\nFile <%s> not found!\n\n", HILFE);
  839. X#endif
  840. X  }
  841. X  else{
  842. X    while(fgets(s, STRING, fp) != 0){
  843. X        ansi2( "cm", 1, i );
  844. X        printf("%s\n", right_stripped(s));    
  845. X        i++;
  846. X    }
  847. X    fclose(fp);
  848. X  }
  849. X
  850. X  c = getch();
  851. X
  852. X  ansi( "cl" );
  853. X
  854. X  show_status( version );
  855. X  prep_screen( ypos );
  856. X  show_screen( START );
  857. X}
  858. X
  859. X
  860. X
  861. X
  862. X
  863. X/* #IN - Insert a char/line/block */
  864. X
  865. Xinsert( c )
  866. Xunsigned char c;
  867. X{
  868. X  unsigned char s[STRING];
  869. X  unsigned char q[LONGSTRING];
  870. X
  871. X  strcpy(q, (unsigned char *) SCREEN[y]);
  872. X
  873. X  if(strlen((unsigned char *) right_stripped(q)) >= MAXX){
  874. X    printf("%c", 7);
  875. X    if(x >= MAXX) x = MAXX;
  876. X    ansi2( "cm", x, y );
  877. X    return;
  878. X  }
  879. X
  880. X  if(c == ' ') c = BLANK;
  881. X
  882. X  strcpy(s, (unsigned char *) SCREEN[y]);
  883. X  s[x] = '\0'; 
  884. X  s[(x-1)] = c; 
  885. X  strcpy(q, (unsigned char *) SCREEN[y]);
  886. X  strcat(s, (unsigned char *) right_stripped(strcopy(q, (x-1), strlen(q))));
  887. X  strcat(s, " ");
  888. X  s[MAXX] = '\0';    
  889. X  strcpy(SCREEN[y], (unsigned char *) s);
  890. X
  891. X  strcpy(s, (unsigned char *) ATTRIB[y]);
  892. X  s[x] = '\0';
  893. X  s[(x-1)] = RTF_attrib;
  894. X  strcpy(q, (unsigned char *) ATTRIB[y]);
  895. X  strcat(s, (unsigned char *) right_stripped(strcopy(q, (x-1), strlen(q))));
  896. X  strcat(s, "0");
  897. X  s[MAXX] = '\0';    
  898. X  strcpy(ATTRIB[y], (unsigned char *) s);
  899. X
  900. X  if(ansi( "ic") != 0){
  901. X    show_line( SCREEN[y], ATTRIB[y], x );
  902. X  }
  903. X  else{
  904. X    if(c == BLANK)
  905. X        printf(" ");
  906. X    else
  907. X        printf("%c", c);        
  908. X  }
  909. X  x++;
  910. X  ansi2( "cm", x, y );
  911. X}
  912. X
  913. X
  914. X
  915. X/* #EN - Process the <ENTER> key */
  916. X
  917. Xenter()
  918. X{
  919. X  int i, j;
  920. X  int memo;
  921. X  int ymem = y;
  922. X  
  923. X      
  924. X  if(FORMATTER == 'b'){
  925. X    blockset();
  926. X    ansi( "me" );
  927. X    show_line( SCREEN[y], ATTRIB[y], 1 );  
  928. X    activate( RTF_attrib );
  929. X  }
  930. X 
  931. X  if(INS_mode != 0){
  932. X    memo = SCREEN[y][x]; 
  933. X    SCREEN[y][x] = (126);
  934. X    restore_screen( ypos );
  935. X    j = ypos + y - 2;
  936. X        for(i = lastline; i > j; i--){
  937. X        strcpy(TEXT[i+1], (unsigned char *) TEXT[i]);
  938. X        FLAG[i+1] = FLAG[i];
  939. X    } 
  940. X    lastline++;
  941. X
  942. X    i = 0; j++;
  943. X    while((TEXT[j][i] != (126)) && (TEXT[j][i] != '\0')) i++;
  944. X    TEXT[j][i] = memo;
  945. X
  946. X    strcpy(TEXT[(j+1)], (unsigned char *) strcopy(TEXT[j], (i-1), strlen(TEXT[j])));
  947. X    TEXT[j][(i-1)] = '\0'; strcat(TEXT[j], (unsigned char *) "<nl>\n");
  948. X
  949. X    prep_screen( ypos );
  950. X    ansi2( "cm", 1, MAXY );
  951. X    ansi( "ce" );
  952. X    ansi2( "cm", x, y );
  953. X
  954. X    if(ansi( "al" ) != 0){
  955. X        show_screen( (y-1) );    
  956. X    }
  957. X    else{
  958. X        show_line( SCREEN[y], ATTRIB[y], 1);
  959. X        y++;
  960. X        show_line( SCREEN[y], ATTRIB[y], 1);
  961. X        y--;
  962. X    }
  963. X  }
  964. X  if(y < MAXY){
  965. X    lastline++;
  966. X    ansi( "do" );
  967. X    y++; 
  968. X  }
  969. X  else{
  970. X    ctrlj();
  971. X  }
  972. X  x = 1;
  973. X  ansi2( "cm", x, y );
  974. X}
  975. X
  976. X
  977. X
  978. X/* #VI - Fake a few "VI" commands */ 
  979. X
  980. Xint vi( f )
  981. Xunsigned char f[];
  982. X{
  983. X  unsigned char s[STRING];
  984. X  int mode = 0;
  985. X  int newp = 0;
  986. X
  987. X  show_status( ":" );
  988. X  ansi( "mr" );
  989. X  strcpy(s, (unsigned char *) stripped( (unsigned char *) getline( 70, 1, 32, "" )));
  990. X
  991. X
  992. X  newp = atoi(s);
  993. X  if(newp > 0){
  994. X    restore_screen( ypos );    
  995. X
  996. X    if(newp > (lastline - MAXY))
  997. X        ypos = (lastline - MAXY);
  998. X    else
  999. X        ypos = newp;
  1000. X
  1001. X    y = START;
  1002. X
  1003. X    prep_screen( ypos );
  1004. X    show_screen( START );     
  1005. X  }
  1006. X
  1007. X  ansi( "me" );
  1008. X
  1009. X  if((strcomp(s, "w")    == 0) || (strcomp(s, "w!") == 0)) ctrlw( f );
  1010. X  if(strcomp(s, "wq")    == 0) {
  1011. X    ctrlw( f );
  1012. X    mode = CTRL_X;
  1013. X  }
  1014. X  if(strcomp("set", s)   == 0) ctrls();
  1015. X  if((strcomp(s, "q")    == 0) || (strcomp(s, "q!") == 0)){
  1016. X    ctrlx( f );
  1017. X    mode = CTRL_X;
  1018. X  }
  1019. X  if(strcomp(s, "i")    == 0) ctrlv();
  1020. X  if(strcomp("r ", s)    == 0) insert_file( s );
  1021. X
  1022. X  activate( RTF_attrib );
  1023. X  ansi2( "cm", x, y );
  1024. X
  1025. X  return mode;
  1026. X}
  1027. X
  1028. X
  1029. X
  1030. X/* #PU - Move one page backwards */
  1031. X
  1032. Xpgup()
  1033. X{
  1034. X  int oldypos = ypos;
  1035. X  
  1036. X
  1037. X  if((ypos - (MAXY -1)) > 1) 
  1038. X    ypos -= (MAXY -1);
  1039. X  else
  1040. X    ypos = 1;
  1041. X
  1042. X  if(ypos == oldypos) return;
  1043. X
  1044. X  restore_screen( oldypos );
  1045. X  prep_screen( ypos );
  1046. X  show_screen( START );
  1047. X}
  1048. X
  1049. X
  1050. X
  1051. X/* #PD - Move one page forwards */
  1052. X
  1053. Xpgdn()
  1054. X{
  1055. X  int oldypos = ypos;
  1056. X
  1057. X  if((ypos + (MAXY -1)) < (lastline - (MAXY -1))) 
  1058. X    ypos += (MAXY -1);
  1059. X  else
  1060. X    ypos = lastline - MAXY;
  1061. X  if(ypos < 1) ypos = 1;
  1062. X
  1063. X  if(ypos == oldypos) return;
  1064. X
  1065. X  restore_screen( oldypos );
  1066. X  prep_screen( ypos );
  1067. X  show_screen( START );
  1068. X}
  1069. X
  1070. X
  1071. X
  1072. X
  1073. X/* #CE - Reformat text line */
  1074. X
  1075. Xcenter()
  1076. X{
  1077. X  int i, j = strlen((unsigned char *) stripped(SCREEN[y]));
  1078. X
  1079. X  unsigned char s[LONGSTRING];
  1080. X  unsigned char t[STRING];
  1081. X 
  1082. X
  1083. X  i = (MAXX - j) / 2;
  1084. X 
  1085. X  strcpy(s, (unsigned char *) "                                                    ");
  1086. X  s[i] = '\0'; strcat(s, (unsigned char *) stripped(SCREEN[y]));
  1087. X  strcat(s, (unsigned char *) "                                                    ");
  1088. X  s[MAXX] = '\0';
  1089. X  strcpy(SCREEN[y], (unsigned char *) s);
  1090. X 
  1091. X  strcpy(ATTRIB[y], (unsigned char *) "00000000000000000000000000000000000000000000000000000000000000000000000000000000");
  1092. X 
  1093. X  show_line( SCREEN[y], ATTRIB[y], 1 );
  1094. X  strcpy(s, (unsigned char *) SCREEN[y]);
  1095. X  x = strlen( (unsigned char *) right_stripped(s)) + 1;
  1096. X  FLAG[(ypos + y - 1)] |= is_centered;
  1097. X  ansi2( "cm", x, y );
  1098. X}
  1099. X 
  1100. X
  1101. X
  1102. X/* #LE - Move cursor to end of line */
  1103. X
  1104. Xlines_end()
  1105. X{
  1106. X  unsigned char s[STRING];
  1107. X
  1108. X  strcpy(s, (unsigned char *) SCREEN[y]);
  1109. X  x = strlen((unsigned char *) right_stripped(s)) + 1;
  1110. X  if(x > MAXX) x = MAXX;
  1111. X  ansi2( "cm", x, y );
  1112. X}
  1113. X
  1114. X
  1115. X
  1116. X/* #WW - Handle overrunning text a the end of a line */    
  1117. X
  1118. Xint wordwrap()
  1119. X{
  1120. X  unsigned char s[STRING];
  1121. X  int i = MAXX -1, j = 0;
  1122. X  int a = y;
  1123. X  int b = y + 1;
  1124. X
  1125. X  while((i > 1) && (j == 0)){
  1126. X     if((SCREEN[a][i] == BLANK) || (SCREEN[a][i] < 33)) j = i;
  1127. X    i--;
  1128. X  }
  1129. X
  1130. X  if(j == 0) return 1;
  1131. X
  1132. X  j++; x = 0;
  1133. X
  1134. X  for(i = j; i <= MAXX; i++){
  1135. X    SCREEN[b][x] = SCREEN[a][i];
  1136. X    SCREEN[a][i] = BLANK;
  1137. X
  1138. X    ATTRIB[b][x] = ATTRIB[a][i];
  1139. X    ATTRIB[a][i] = '0';
  1140. X
  1141. X    x++; 
  1142. X  } 
  1143. X  show_line( SCREEN[a], ATTRIB[a], 1 );
  1144. X  y++;
  1145. X  show_line( SCREEN[b], ATTRIB[b], 1 );  
  1146. X  y = a;
  1147. X
  1148. X  return x;
  1149. X}
  1150. END_OF_FILE
  1151.   if test 9463 -ne `wc -c <'mbox/contrib/wendy/misc.c'`; then
  1152.     echo shar: \"'mbox/contrib/wendy/misc.c'\" unpacked with wrong size!
  1153.   fi
  1154.   # end of 'mbox/contrib/wendy/misc.c'
  1155. fi
  1156. if test -f 'mbox/contrib/wendy/rtf.c' -a "${1}" != "-c" ; then 
  1157.   echo shar: Will not clobber existing file \"'mbox/contrib/wendy/rtf.c'\"
  1158. else
  1159.   echo shar: Extracting \"'mbox/contrib/wendy/rtf.c'\" \(6855 characters\)
  1160.   sed "s/^X//" >'mbox/contrib/wendy/rtf.c' <<'END_OF_FILE'
  1161. X/* ix/MBox/WENDY (rtf.c) by Volker Schuermann, 04.12.1993
  1162. X
  1163. X   This C source code contains the following functions:
  1164. X
  1165. X   #MR make_rtf()         convert screen line to RTF
  1166. X   #RC rtf_convert()      convert RTF line to screen line
  1167. X
  1168. X   Contact <volkers@unnet.wupper.de> for help! */
  1169. X
  1170. X
  1171. X
  1172. X
  1173. X
  1174. X
  1175. X
  1176. X
  1177. X
  1178. X#include "wendy.h"
  1179. X
  1180. X
  1181. X
  1182. X/* #MR - Convert a screen line to RFF */
  1183. X
  1184. Xunsigned char *make_rtf( t, a )
  1185. Xunsigned char t[], a[];
  1186. X{
  1187. X  unsigned char s[LONGSTRING];
  1188. X  unsigned char q[LONGSTRING];
  1189. X  int olda = '0';
  1190. X  int i = 0;
  1191. X  int l = 0;
  1192. X
  1193. X  unsigned char line[1024];
  1194. X
  1195. X
  1196. X
  1197. X  strcpy(q, (unsigned char *) t);  strcpy(s, (unsigned char *) right_stripped(q));
  1198. X
  1199. X  if((strlen(q) > LONGSTRING) || (strlen(s) > LONGSTRING)){
  1200. X    printf("\nMemory fault - Shit!\n");
  1201. X  }  
  1202. X
  1203. X  strcat(s, (unsigned char *) "`");
  1204. X  strcat(a, (unsigned char *) "0");
  1205. X
  1206. X  if(s[0] == '~'){
  1207. X    line[0] = '~';
  1208. X    l++;
  1209. X    i++;
  1210. X  }
  1211. X
  1212. X  if(strcomp("        ", s) == 0){     /* TAB for Makefiles ;-) */
  1213. X    line[l] = TAB;
  1214. X    l++;
  1215. X    i += 8;
  1216. X  }
  1217. X
  1218. X  while((s[i] != '\0') && (l < LINELENGTH)){
  1219. X    if(s[i] == BLANK) s[i] = ' ';
  1220. X    if(a[i] != olda){
  1221. X        line[l] = '\0';
  1222. X        if(olda == '0'){
  1223. X            switch(a[i]){
  1224. X                case 'b' : strcat(line, (unsigned char *) "<Bold>");
  1225. X                       break;    
  1226. X                case 'i' : strcat(line, (unsigned char *) "<Italic>");
  1227. X                       break;
  1228. X                case 'f' : strcat(line, (unsigned char *) "<Flash>");
  1229. X                       break;
  1230. X                case 'u' : strcat(line, (unsigned char *) "<Underline>");
  1231. X                       break;
  1232. X            }
  1233. X        }
  1234. X        else{
  1235. X            switch(olda){
  1236. X                case 'b' : strcat(line, (unsigned char *) "</Bold>");
  1237. X                       break;    
  1238. X                case 'i' : strcat(line, (unsigned char *) "</Italic>");
  1239. X                       break;
  1240. X                                case 'f' : strcat(line, (unsigned char *) "</Flash>");
  1241. X                       break;
  1242. X                case 'u' : strcat(line, (unsigned char *) "</Underline>");
  1243. X                       break;
  1244. X            }
  1245. X        }
  1246. X        olda = a[i];
  1247. X        l = strlen(line);
  1248. X    }
  1249. X    if(s[i] != '`'){
  1250. X        line[l] = s[i];
  1251. X        l++;        
  1252. X    }
  1253. X    i++;
  1254. X  }
  1255. X
  1256. X  line[l] = ' '; line[l+1] = '\0'; /* !!!? */
  1257. X
  1258. X
  1259. X  return (unsigned char *) line;
  1260. X}
  1261. X
  1262. X
  1263. X
  1264. X/* #RC - Convert RTF line to screen line */
  1265. X
  1266. Xrtf_convert( line, scrpos, tpos )
  1267. Xunsigned char line[];
  1268. Xint scrpos;
  1269. Xint tpos;
  1270. X{
  1271. X  unsigned char s[LINELENGTH];
  1272. X
  1273. X  unsigned char screen[1024];
  1274. X  unsigned char attrib[1024];
  1275. X  unsigned char scr2[1024];
  1276. X  unsigned char att2[1024];
  1277. X
  1278. X  int i = 0;
  1279. X  int l = 0;
  1280. X  int j = 0;
  1281. X  int c = 0;
  1282. X
  1283. X  int rtf = 0;
  1284. X  int RTF_local = '0';
  1285. X
  1286. X
  1287. X  screen[0] = '\0';
  1288. X  attrib[0] = '\0';
  1289. X
  1290. X  while(line[i] != '\0'){
  1291. X    rtf = 0;
  1292. X    if(line[i] > 127){
  1293. X        if(strcomp("iso", umlaut) == 0){
  1294. X            switch(line[i]){
  1295. X                case 142 : line[i] = 196; 
  1296. X                       break;
  1297. X                case 153 : line[i] = 214; 
  1298. X                       break;
  1299. X                case 154 : line[i] = 220; 
  1300. X                       break;
  1301. X                case 225 : line[i] = 223; 
  1302. X                       break;
  1303. X                case 132 : line[i] = 228; 
  1304. X                       break;
  1305. X                case 148 : line[i] = 246;
  1306. X                       break;
  1307. X                case 129 : line[i] = 252; 
  1308. X                       break;
  1309. X            }
  1310. X        }
  1311. X        if(strcomp("ibm", umlaut) == 0){
  1312. X            switch(line[i]){
  1313. X                case 196 : line[i] = 142; 
  1314. X                       break;
  1315. X                case 214 : line[i] = 153; 
  1316. X                       break;
  1317. X                case 220 : line[i] = 154; 
  1318. X                       break;
  1319. X                case 223 : line[i] = 225; 
  1320. X                       break;
  1321. X                case 228 : line[i] = 132; 
  1322. X                       break;
  1323. X                case 246 : line[i] = 148;
  1324. X                       break;
  1325. X                case 252 : line[i] = 129; 
  1326. X                       break;
  1327. X            }
  1328. X        }
  1329. X    }
  1330. X    if(line[i] == ' ') line[i] = BLANK;
  1331. X    if(line[i] == '<'){
  1332. X        if(line[(i+1)] == '/'){
  1333. X            rtf++;
  1334. X        }
  1335. X        else{
  1336. X            strcpy(s, (unsigned char *) bigcopy(line, (i+1), strlen(line)));
  1337. X            if((strcomp("Bold",        s) == 0) ||
  1338. X               (strcomp("Italic",      s) == 0) ||
  1339. X               (strcomp("Fixed",       s) == 0) ||
  1340. X               (strcomp("Flash",       s) == 0) || /* Un.Net ;-) */
  1341. X               (strcomp("Smaller",     s) == 0) ||
  1342. X               (strcomp("Bigger",      s) == 0) ||
  1343. X               (strcomp("Underline",   s) == 0) ||
  1344. X               (strcomp("Center",      s) == 0) ||
  1345. X               (strcomp("Flush",       s) == 0) ||
  1346. X               (strcomp("Indent",      s) == 0) ||
  1347. X                (strcomp("Outdent",     s) == 0) ||
  1348. X               (strcomp("Samepage",    s) == 0) ||
  1349. X                   (strcomp("Subscript",   s) == 0) ||
  1350. X               (strcomp("Superscript", s) == 0) ||
  1351. X               (strcomp("Heading",     s) == 0) ||
  1352. X               (strcomp("Footing",     s) == 0) ||
  1353. X               (strcomp("ISO-8859-",   s) == 0) ||
  1354. X               (strcomp("US-ASCII",    s) == 0) ||
  1355. X               (strcomp("Excerpt",     s) == 0) ||
  1356. X               (strcomp("Paragraph",   s) == 0) ||
  1357. X               (strcomp("Signature",   s) == 0) ||
  1358. X                   (strcomp("Comment",     s) == 0) ||
  1359. X               (strcomp("nl",          s) == 0) ||
  1360. X               (strcomp("np",          s) == 0) ||
  1361. X               (strcomp("lt",          s) == 0) ||
  1362. X               (strcomp("No-op",       s) == 0)) rtf++;
  1363. X        }
  1364. X        }
  1365. X
  1366. X    if(rtf == 0){
  1367. X        if(line[i] == TAB){
  1368. X            j = (((int)(l+8)/8) * 8) - l;
  1369. X            strcpy(s, "            "); s[j] = '\0';                        
  1370. X            screen[l] = '\0'; strcat(screen, (unsigned char *) s);
  1371. X            strcpy(s, "000000000000"); s[j] = '\0';
  1372. X            attrib[l] = '\0'; strcat(attrib, (unsigned char *) s);
  1373. X            l += (j -1);
  1374. X        }
  1375. X        else{
  1376. X            if(line[i] > 31){
  1377. X                screen[l] = line[i];
  1378. X                attrib[l] = RTF_local;
  1379. X            }
  1380. X        }
  1381. X        l++;
  1382. X    }        
  1383. X    else{
  1384. X        j = i + 1;
  1385. X        while((line[i] != '>') && (line[i] != '\0')){
  1386. X            i++;
  1387. X        }
  1388. X
  1389. X        strcpy(s, (unsigned char *) bigcopy(line, j, (i-1)));
  1390. X
  1391. X        if(s[0] == '/'){
  1392. X            RTF_local = '0';
  1393. X        }        
  1394. X        else{
  1395. X            if(strcomp("nl", s) != 0){
  1396. X                c = s[0]; if(c < 97) c += 32;
  1397. X                if((c == 'b') || (c == 'i') || (c == 'f') || (c == 'u')){
  1398. X                    RTF_local = c;
  1399. X                }
  1400. X                if(c == 'c'){
  1401. X                    FLAG[(ypos + scrpos -1)] |= is_centered;
  1402. X                }
  1403. X                if(strcomp("lt", s) == 0){
  1404. X                    screen[l] = '<';
  1405. X                    attrib[l] = RTF_local;
  1406. X                    l++;
  1407. X                }
  1408. X            }
  1409. X        }
  1410. X    }
  1411. X    i++;
  1412. X  }
  1413. X  l--;
  1414. X
  1415. X  while(l < MAXX){
  1416. X    screen[l] = ' ';
  1417. X    attrib[l] = '0';
  1418. X    l++;
  1419. X  }
  1420. X  screen[l] = '\0';
  1421. X  attrib[l] = '\0';
  1422. X 
  1423. X  sprintf(SCREEN[scrpos], "%-*.*s", MAXX, MAXX, (unsigned char *) screen);
  1424. X  sprintf(ATTRIB[scrpos], "%-*.*s", MAXX, MAXX, (unsigned char *) attrib);
  1425. X
  1426. X  if(l > MAXX){
  1427. X    strcpy(screen, (unsigned char *) strcopy(screen, (MAXX-1), l));
  1428. X    strcpy(attrib, (unsigned char *) strcopy(attrib, (MAXX-1), l));
  1429. X    
  1430. X    screen[0] = '~';
  1431. X    attrib[0] = '0';
  1432. X
  1433. X    for(i = lastline; i > tpos; i--){
  1434. X        strcpy(TEXT[(i+1)], (unsigned char *) TEXT[i]);
  1435. X        FLAG[(i+1)] = FLAG[i];
  1436. X    }
  1437. X    lastline++;    
  1438. X    tpos++;
  1439. X    strcpy(TEXT[tpos], (unsigned char *) make_rtf( screen, attrib ));
  1440. X  }  
  1441. X
  1442. X  if(((FLAG[tpos] & is_centered) == is_centered) && (SCREEN[scrpos][0] != ' ')){
  1443. X    strcpy(screen, (unsigned char *) SCREEN[scrpos]);
  1444. X    strcpy(attrib, (unsigned char *) ATTRIB[scrpos]);
  1445. X    strcpy(s, (unsigned char *) SCREEN[scrpos]); i = strlen((unsigned char *) right_stripped(s));
  1446. X    j = (MAXX - i) / 2;
  1447. X    strcpy(SCREEN[scrpos], (unsigned char *) "                                                                              ");                   
  1448. X    strcpy(ATTRIB[scrpos], (unsigned char *) "000000000000000000000000000000000000000000000000000000000000000000000000000000");
  1449. X    SCREEN[scrpos][j] = '\0';
  1450. X    ATTRIB[scrpos][j] = '\0';
  1451. X        screen[i] = '\0';
  1452. X    strcat(SCREEN[scrpos], (unsigned char *) screen);
  1453. X    attrib[i] = '\0';
  1454. X    strcat(ATTRIB[scrpos], (unsigned char *) attrib);
  1455. X  }
  1456. X
  1457. X}
  1458. END_OF_FILE
  1459.   if test 6855 -ne `wc -c <'mbox/contrib/wendy/rtf.c'`; then
  1460.     echo shar: \"'mbox/contrib/wendy/rtf.c'\" unpacked with wrong size!
  1461.   fi
  1462.   # end of 'mbox/contrib/wendy/rtf.c'
  1463. fi
  1464. if test -f 'mbox/contrib/wendy/wendy.c' -a "${1}" != "-c" ; then 
  1465.   echo shar: Will not clobber existing file \"'mbox/contrib/wendy/wendy.c'\"
  1466. else
  1467.   echo shar: Extracting \"'mbox/contrib/wendy/wendy.c'\" \(9151 characters\)
  1468.   sed "s/^X//" >'mbox/contrib/wendy/wendy.c' <<'END_OF_FILE'
  1469. X/* ix/MBox/WENDY (wendy.c) by Volker Schuermann, 04.12.1993
  1470. X
  1471. X   This C source code contains the following functions:
  1472. X
  1473. X   #LP loop()             main loop
  1474. X   #MA main()             main function
  1475. X
  1476. X   Contact <volkers@unnet.wupper.de> for help! */
  1477. X
  1478. X
  1479. X
  1480. X
  1481. X
  1482. X
  1483. X
  1484. X
  1485. X
  1486. X#include "wendy.h"
  1487. X
  1488. X
  1489. X 
  1490. X/* #LP - Read in a char and process it */
  1491. X 
  1492. Xloop( f )
  1493. Xunsigned char f[];
  1494. X{
  1495. X  unsigned char s[STRING];
  1496. X  int c, d;
  1497. X  int oldy = -1;
  1498. X 
  1499. X  ansi2( "cm", x, y );
  1500. X 
  1501. X  do{
  1502. X    c = getch();
  1503. X 
  1504. X    if(c == ESC){
  1505. X        c = getch();
  1506. X        if(c == ':'){
  1507. X                c = vi( f );
  1508. X                goto ENDLOOP;
  1509. X        }
  1510. X    if((c == 'C') || (c == 'D')){
  1511. X        d = c;
  1512. X        c = 100 * '[';
  1513. X    }
  1514. X    else{
  1515. X        if(c == 'O') c = '[';
  1516. X
  1517. X        c *= 100;
  1518. X
  1519. X            d = getch();
  1520. X
  1521. X        if(d == '1') d = getch();
  1522. X    }
  1523. X
  1524. X    c += d;
  1525. X    }
  1526. X   
  1527. X    /*
  1528. X    ansi2( "cm", 73, 1 );
  1529. X    ansi( "mr" );
  1530. X    if(c != 126) printf("<%d> ", c);
  1531. X    ansi2( "cm", x, y );
  1532. X    activate( RTF_attrib );
  1533. X    */
  1534. X
  1535. X    if(c ==  wBS) c = BS;
  1536. X    if(c == wDEL) c = DELD;
  1537. X    if(c == wINS) c = INS;
  1538. X    if(c == wEND) c = END;
  1539. X  
  1540. X    switch(c){
  1541. X        case ENTER      :       enter();
  1542. X                                break;
  1543. X        case CTRL_K     :
  1544. X        case UP         :       ctrlk();
  1545. X                                break;
  1546. X#ifdef _SYS7
  1547. X        case CTRL_J     :
  1548. X#endif
  1549. X        case DOWN       :       ctrlj();
  1550. X                                break;
  1551. X        case LEFT       :       if(x > 1){
  1552. X                                        ansi( "kl" );
  1553. X                                        x--;
  1554. X                                }
  1555. X                else{
  1556. X                    ctrlk();
  1557. X                    lines_end();
  1558. X                }
  1559. X                                break;
  1560. X        case RIGHT      :       if(x < MAXX){
  1561. X                                        ansi( "kr" );
  1562. X                                        x++;
  1563. X                                }
  1564. X                else{
  1565. X                    ctrlj();
  1566. X                    x = 1;
  1567. X                    ansi2( "cm", x, y );
  1568. X                }
  1569. X                                break;
  1570. X        case CTRL_B     :
  1571. X    case PGUP_LI    :
  1572. X        case PGUP       :       pgup();
  1573. X                                break;
  1574. X        case CTRL_F     :
  1575. X    case PGDN_LI    :
  1576. X        case PGDN       :       pgdn();
  1577. X                                break;
  1578. X        case CTRL_A     :
  1579. X    case HOME_LI    :
  1580. X        case HOME       :       x = 1;
  1581. X                ansi2( "cm", x, y );
  1582. X                                break;
  1583. X    case CTRL_E    :
  1584. X    case TLX_END    :
  1585. X        case CTRL_Z     :
  1586. X        case END        :       lines_end();
  1587. X                                break;
  1588. X        case BS         :       ctrlh();
  1589. X                                CHANGED++;
  1590. X                                break;
  1591. X    case TLX_DEL    :
  1592. X        case DELD       :       x++;
  1593. X                                CHANGED++;
  1594. X                                ctrlh();
  1595. X                                break;
  1596. X    case TAB    :     x = (int)((x+8)/8*8) + 1;
  1597. X                if(x > MAXX) x = MAXX; 
  1598. X                ansi2( "cm", x, y ); 
  1599. X                break;
  1600. X        case CTRL_O     :       help();
  1601. X                                break;
  1602. X        case CTRL_P     :       if(RULER == 0){
  1603. X                    strcpy(version, (unsigned char *) RULERLINE);
  1604. X                    RULER++;
  1605. X                    xruler = -1;
  1606. X                }
  1607. X                else{
  1608. X                    RULER = 0;
  1609. X                    strcpy(version, (unsigned char *) VERSION);
  1610. X                }
  1611. X                show_status( version );
  1612. X                STATUSM = 0;
  1613. X                ansi2( "cm", x, y );
  1614. X                break;
  1615. X        case CTRL_L     :       ansi( "me" );
  1616. X                ansi2( "cm", 1, y );
  1617. X                                show_line( SCREEN[y], ATTRIB[y], 1 );
  1618. X                activate( RTF_attrib );
  1619. X                ansi2( "cm", x, y );
  1620. X                                break;
  1621. X        case CTRL_R     :       show_status( version );
  1622. X                                show_screen( START );
  1623. X                                break;
  1624. X    case CTRL_X    :    ctrlx( f );
  1625. X                break;
  1626. X    case CTRL_W    :    ctrlw( f );
  1627. X                break;
  1628. X    case CTRL_N    :    ctrln();
  1629. X                break;
  1630. X    case CTRL_U    :    ctrlu();
  1631. X                break;
  1632. X    case CTRL_T    :    ctrlt();
  1633. X                break;
  1634. X    case CTRL_S    :    ctrls();
  1635. X                break;
  1636. X    case CTRL_Y    :    ctrly();
  1637. X                break;
  1638. X    case CTRL_Q    :    block_set();
  1639. X                break;
  1640. X    case TLX_INS    :    
  1641. X    case INS    :
  1642. X    case CTRL_V    :    ctrlv();
  1643. X                break;
  1644. X    case NUM5    :
  1645. X    case CTRL_G    :    ctrlg( f );
  1646. X                break;
  1647. X    default        :       if(c > 9100){
  1648. X#ifdef _LOCAL
  1649. X                    show_status( " WENDY: Unbekannte Taste " );
  1650. X#else
  1651. X                    show_status( " WENDY: Unknown key " );    
  1652. X#endif
  1653. X                    ansi( "mr" );
  1654. X                    printf("<%d>. ", c);
  1655. X                    ansi( "me" );
  1656. X                    ansi2( "cm", x, y );
  1657. X
  1658. X                    c = 0;
  1659. X                }
  1660. X                if(c == '~') c = 0;  
  1661. X
  1662. X                if((c > 31) && (c < 9100)){
  1663. X                    CHANGED++;
  1664. X                    if(INS_mode == 0){
  1665. X                        printf("%c", c);    
  1666. X                        if(c == ' ') c = BLANK;    
  1667. X                        SCREEN[y][(x-1)] = c;
  1668. X                        ATTRIB[y][(x-1)] = RTF_attrib;
  1669. X                        x++;
  1670. X                        if(x > MAXX){
  1671. X                            if(FORMATTER != 'b')
  1672. X                                x = wordwrap();
  1673. X                            if((y < MAXY) && (y < lastline))
  1674. X                                y++;
  1675. X                            else
  1676. X                                ctrlj();
  1677. X                            ansi2( "cm", x, y );
  1678. X                        }
  1679. X                    }
  1680. X                    else{
  1681. X                        insert( c );
  1682. X                    }
  1683. X                    if(FORMATTER == 'c'){
  1684. X                        center();
  1685. X                    }
  1686. X                    if((ypos + y) > lastline)
  1687. X                    lastline = ypos + y;
  1688. X                }
  1689. X    }
  1690. X
  1691. X
  1692. X
  1693. X
  1694. X    ENDLOOP:
  1695. X
  1696. X    if(oldy != y){
  1697. X    if((FLAG[(ypos + y - 1)] & is_richtext) == is_richtext){
  1698. X#ifdef _LOCAL
  1699. X        show_status( "Der folgende Text ist klassifiziert als 'text/richtext'." );
  1700. X#else
  1701. X        show_status( "The following text is classified as 'text/richtext'.");
  1702. X#endif
  1703. X    }
  1704. X    if((FLAG[(ypos + y - 1)] & is_plain) == is_plain){
  1705. X#ifdef _LOCAL
  1706. X        show_status( "Der folgende Text ist klassifiziert als 'text/plain'." );
  1707. X#else
  1708. X        show_status( "The following text is classified as 'text/plain'.");
  1709. X#endif
  1710. X    }
  1711. X    ansi2( "cm", x, y );
  1712. X        /*
  1713. X    if(CHANGED != 0){
  1714. X        fprintf(ROLLBACK, "%05.5d %s\n", oldy, (unsigned char *) make_rtf( SCREEN[oldy], ATTRIB[oldy] ));
  1715. X    }
  1716. X    */
  1717. X    }
  1718. X    oldy = y;
  1719. X
  1720. X    if(RULER){
  1721. X    if(x != xruler){
  1722. X        if(STATUSM != 0) show_status( version );
  1723. X        if(xruler != -1){
  1724. X            ansi( "mr" );
  1725. X            ansi2( "cm", xruler, 1 );
  1726. X            printf("%c", version[(xruler - 1)]);
  1727. X        }
  1728. X        ansi( "me" );
  1729. X        xruler = x;
  1730. X        ansi2( "cm", xruler, 1 );
  1731. X        printf("%c", version[(xruler - 1)]);
  1732. X        ansi2( "cm", x, y );
  1733. X        STATUSM = 0;
  1734. X        activate( RTF_attrib );
  1735. X    }
  1736. X    }
  1737. X
  1738. X  }while(c != CTRL_X);
  1739. X}
  1740. X
  1741. X
  1742. X
  1743. X/* #MA - Wendy main function */
  1744. X
  1745. Xmain(argc, argv)
  1746. Xint argc;
  1747. Xunsigned char *argv[];
  1748. X{
  1749. X  FILE *fp;
  1750. X
  1751. X  unsigned char s[LONGSTRING];
  1752. X  unsigned char *term;
  1753. X  unsigned char *home;
  1754. X  int i, j;
  1755. X  int RTF = 0;
  1756. X
  1757. X#if defined(_ESTDIO) || !defined(_SYS7)
  1758. X  setbuf(stdout, NULL);
  1759. X#endif
  1760. X
  1761. X  RTF_attrib = '0';
  1762. X
  1763. X  MAXX = 79;    /* Default Parameter */
  1764. X  MAXY = 24;
  1765. X
  1766. X  term = (unsigned char *) getenv("TERM");
  1767. X  strcpy(terminal, (unsigned char *) term);
  1768. X  strcpy(umlaut, (unsigned char *) "ibm" );
  1769. X
  1770. X  wBS  = 8;
  1771. X  wDEL = 9152; 
  1772. X  wINS = 9151;
  1773. X  wEND = 9189; 
  1774. X 
  1775. X  home = (unsigned char *) getenv( "HOME" );
  1776. X  sprintf(s, "%s/.wendy", home);
  1777. X
  1778. X  fp = fopen( s, "r" );
  1779. X  if(fp != NULL){
  1780. X    fgets(s, 80, fp); MAXY = atoi(s);
  1781. X    fgets(s, 80, fp); MAXX = atoi(s);
  1782. X    fgets(s, 80, fp); sscanf(s, "%s", &terminal);
  1783. X    fgets(s, 80, fp); sscanf(s, "%s", ¨aut);    
  1784. X    fgets(s, 80, fp); wBS = atoi(s);
  1785. X    fgets(s, 80, fp); wDEL = atoi(s);
  1786. X    fgets(s, 80, fp); wINS = atoi(s);
  1787. X    fgets(s, 80, fp); wEND = atoi(s);
  1788. X    fclose(fp);
  1789. X  }
  1790. X  if(MAXY > 24) MAXY = 24;
  1791. X  if(MAXY <  4) MAXY =  4;
  1792. X  
  1793. X  if(MAXX < 10) MAXX = 80;
  1794. X
  1795. X
  1796. X  ansi2( terminal, -1, -1 );
  1797. X  i = ansi2( "cm" );
  1798. X  ansi( "cl" );
  1799. X#ifdef _LOCAL
  1800. X  printf("\n\nMein Name ist "); 
  1801. X#else
  1802. X  printf("\n\nMy name is ");
  1803. X#endif
  1804. X  ansi( "md" ); printf("Wendy");
  1805. X  ansi( "me" ); printf("!\n\n");
  1806. X
  1807. X
  1808. X  if((i == 1) || (i == -1)){
  1809. X#ifdef _LOCAL
  1810. X    printf("Und ich kann Dein Terminal nicht bedienen!\n\n");
  1811. X#else
  1812. X    printf("And I can't handle your terminal!\n\n");
  1813. X#endif
  1814. X    return;
  1815. X  }
  1816. X 
  1817. X  if(argc < 2){
  1818. X#ifdef _LOCAL
  1819. X    printf("Und Du hast vergessen einen Dateinamen anzugeben!\n\n");
  1820. X#else
  1821. X    printf("And you've forgotten to mention a filename!\n\n");
  1822. X#endif
  1823. X    return;
  1824. X  }
  1825. X  /*
  1826. X  sprintf(s, "/usr/tmp/WENDY.%d", getpid());
  1827. X  ROLLBACK = fopen( s, "w" );
  1828. X  if(ROLLBACK == NULL){
  1829. X    printf("Rollback ???");
  1830. X  }
  1831. X  fprintf(ROLLBACK, "00000 %s, %s [%s] on %s\n\n", mydate( 0 ), mytime( 0 ), whoami(), ttyna());
  1832. X  */
  1833. X  lastline = 2;
  1834. X  NEU = 0;
  1835. X  RTF_toggle = 0;
  1836. X
  1837. X  i = LINELENGTH -2;
  1838. X
  1839. X  fp = fopen( argv[1], "r" );
  1840. X  if(fp != NULL){
  1841. X    FLAG[lastline] = 0;
  1842. X    while(fgets(TEXT[lastline], i, fp) != 0){
  1843. X        FLAG[lastline+1] = 0;
  1844. X        if(strcomp("Content-Type: text/richtext", TEXT[lastline]) == 0){
  1845. X            FLAG[lastline] |= is_richtext;
  1846. X            lastline--;
  1847. X        }
  1848. X        if(strcomp("Content-Type: text/plain", TEXT[lastline]) == 0){
  1849. X            FLAG[lastline] |= is_plain;
  1850. X            lastline--;
  1851. X        }
  1852. X        lastline++;
  1853. X        if(lastline > MAXLINES){
  1854. X#ifdef _LOCAL
  1855. X            printf("Und die Datei <%s> ist zu gross fuer mich!\n\n", argv[1]);
  1856. X#else
  1857. X            printf("And the file <%s> is much to big for me!\n\n", argv[1]);
  1858. X#endif
  1859. X            fclose(fp);
  1860. X            return;
  1861. X        }
  1862. X    }
  1863. X      fclose(fp);
  1864. X  }
  1865. X  else{
  1866. X    NEU++;
  1867. X    RTF_toggle++;
  1868. X    for(i = 0; i < 25; i++){
  1869. X        strcpy(TEXT[i], (unsigned char *) "\n");
  1870. X        FLAG[i] = 0;
  1871. X    }
  1872. X    lastline += 25;
  1873. X  }
  1874. X  strcpy(TEXT[lastline], (unsigned char *) "\n");
  1875. X  strcpy(version, (unsigned char *) VERSION);
  1876. X  show_status( version );
  1877. X 
  1878. X  INS_mode     = 0;
  1879. X  CHANGED      = 0;
  1880. X  REALLY       = 0;
  1881. X  MARK           = 0;
  1882. X  START           = 2;
  1883. X  RULER           = 0;
  1884. X  STATUSM      = 0;
  1885. X  FORMATTER    = 0;
  1886. X  BLOCK.status = 0;
  1887. X
  1888. X  x = 1; y = START; ypos = 1;
  1889. X  
  1890. X  prep_screen( ypos );
  1891. X  show_screen( START );
  1892. X 
  1893. X  echo( 0 );
  1894. X  loop( argv[1] );
  1895. X  echo( 1 );
  1896. X  /*
  1897. X  fclose( ROLLBACK );
  1898. X  */
  1899. X  ansi( "me" );
  1900. X  ansi2( "cm", 1, MAXY );
  1901. X  ansi( "ce" );
  1902. X}
  1903. END_OF_FILE
  1904.   if test 9151 -ne `wc -c <'mbox/contrib/wendy/wendy.c'`; then
  1905.     echo shar: \"'mbox/contrib/wendy/wendy.c'\" unpacked with wrong size!
  1906.   fi
  1907.   # end of 'mbox/contrib/wendy/wendy.c'
  1908. fi
  1909. if test -f 'mbox/src/cdrom.c' -a "${1}" != "-c" ; then 
  1910.   echo shar: Will not clobber existing file \"'mbox/src/cdrom.c'\"
  1911. else
  1912.   echo shar: Extracting \"'mbox/src/cdrom.c'\" \(8718 characters\)
  1913.   sed "s/^X//" >'mbox/src/cdrom.c' <<'END_OF_FILE'
  1914. X
  1915. X/* ix/MBox (cdrom.c) by Volker Schuermann, 25.02.1994
  1916. X
  1917. X   This C source code contains the following functions:
  1918. X
  1919. X   #DD cd_download()      Download files from CDROM
  1920. X   #CD cdrom()            Support command 'cdrom'
  1921. X   #CB cdromB()           Treat CDROM as a normal newsgroup
  1922. X
  1923. X   Contact <volkers@unnet.wupper.de> for help! */
  1924. X
  1925. X
  1926. X
  1927. X
  1928. X
  1929. X
  1930. X
  1931. X
  1932. X
  1933. X
  1934. X
  1935. X#ifndef _ESTDIO
  1936. X#include <stdio.h>
  1937. X#else
  1938. X#include <estdio.h>
  1939. X#endif
  1940. X#include <sys/types.h>
  1941. X#include <sys/stat.h>
  1942. X#include <time.h>
  1943. X#include <dirent.h>
  1944. X#include <signal.h>
  1945. X
  1946. X#include <errno.h>
  1947. X
  1948. X#include "mbox.h"
  1949. X
  1950. X
  1951. X#define MAX_CDDRIVES    10
  1952. X
  1953. X
  1954. X
  1955. X
  1956. X/* #DD - Download files from a CDROM device */
  1957. X
  1958. Xcd_download( f )
  1959. XUNSIGNED char f[];
  1960. X{
  1961. X  pd( f, f );
  1962. X  printf("\n");
  1963. X  ansi2( "mr", 0, 0 );
  1964. X  printf(" Taste! ");
  1965. X  ansi2( "me", 0, 0 );
  1966. X  
  1967. X  (void) getch();
  1968. X}
  1969. X
  1970. X
  1971. X/* #CD - The command "cdrom" ... */
  1972. X
  1973. Xvoid cdrom( arg ) 
  1974. XUNSIGNED char arg[];
  1975. X{
  1976. X  UNSIGNED char s[STRING];
  1977. X  UNSIGNED char t[STRING];
  1978. X  UNSIGNED char f[STRING];
  1979. X  UNSIGNED char r[MAX_CDDRIVES][STRING];
  1980. X
  1981. X  FILE *fp;
  1982. X
  1983. X  DIR *dp;
  1984. X  struct dirent *actdir;
  1985. X
  1986. X  int x, a, i;
  1987. X  int intro = 0;
  1988. X  int status = 0;
  1989. X  int y = 0;
  1990. X  int ENDE = 0;
  1991. X  int HAVE_DIR = 0;
  1992. X  int IS_MOUNTED = 0;
  1993. X  
  1994. X  struct stat fst;
  1995. X
  1996. X
  1997. X  headline( CDR01_MSG );
  1998. X  printf("\n");
  1999. X
  2000. X  sprintf(s, "%s/cdrom/cdrom.mnt", HOME );
  2001. X  fp = fopen( s, "r" );
  2002. X  if(fp == NULL){
  2003. X    nerror("cdrom.c", 58, "cdrom", "Can't read", s);
  2004. X    return; 
  2005. X  }
  2006. X  a = 1;
  2007. X  while((fgets(s, STRING, fp) != 0) && (a < MAX_CDDRIVES)){
  2008. X    if(s[0] >= '/'){
  2009. X        strcpy(r[a], (UNSIGNED char *) stripped(s));
  2010. X        a++;
  2011. X    }
  2012. X  }
  2013. X  fclose(fp); 
  2014. X
  2015. X  if(a < 3){
  2016. X    strcpy(t, r[1]);   
  2017. X  }
  2018. X  else{
  2019. X    x = 0;
  2020. X
  2021. X    for(i = 1; i < a; i++){
  2022. X
  2023. X        ansi2( "md", 0, 0 );
  2024. X        sprintf(s, "<%s>", r[i]);    
  2025. X          printf("%-15s", s);
  2026. X        ansi2( "me", 0, 0 );
  2027. X
  2028. X        x++;
  2029. X        if(x == 5){ 
  2030. X            printf("\n");
  2031. X            x = 0;
  2032. X        }
  2033. X    }
  2034. X
  2035. X           if(x != 0) printf("\n");
  2036. X
  2037. X    do{
  2038. X        printf("\n");
  2039. X
  2040. X        ansi2( "mr", 0, 0 );
  2041. X        printf("[CDROM] %s", CDR02_MSG);
  2042. X        ansi2( "me", 0, 0 );
  2043. X        printf(" ");
  2044. X
  2045. X        strcpy(s, (UNSIGNED char *) getline( 70, 1, ' ', "") );
  2046. X
  2047. X        if(s[0] == '\0'){
  2048. X            printf("\n");
  2049. X            return;
  2050. X        }
  2051. X        if(s[0] != '/'){
  2052. X            sprintf(t, "/%s", s);
  2053. X            strcpy(s, (UNSIGNED char *) t);
  2054. X        }
  2055. X
  2056. X        status = chdir( s );
  2057. X
  2058. X        if(status != 0){
  2059. X            printf("\n\n%s <%s> %s\n", CDR03_MSG, s, CDR04_MSG);
  2060. X        }
  2061. X
  2062. X    }while(status != 0);
  2063. X
  2064. X    chdir( HOME );    
  2065. X
  2066. X    strcpy(t, (UNSIGNED char *) stripped(s));
  2067. X  }
  2068. X
  2069. X
  2070. X  headline( CDR01_MSG );
  2071. X  printf("\n"); 
  2072. X
  2073. X  do{
  2074. X    RESHOW:
  2075. X    
  2076. X        x = 0; y = 0; ENDE = 0; HAVE_DIR = 0; IS_MOUNTED = 0;
  2077. X
  2078. X    dp = opendir( t );
  2079. X     if(dp == NULL){
  2080. X        printf("%s\n", CDR05_MSG);    
  2081. X        chdir( HOME );    
  2082. X        return;
  2083. X    }
  2084. X    readdir(dp);
  2085. X    readdir(dp);
  2086. X    while(((actdir = readdir(dp)) != NULL) && (!ENDE)){
  2087. X        sprintf(s, "%s/%s", t, actdir->d_name);
  2088. X        stat(s, &fst);
  2089. X
  2090. X        IS_MOUNTED++;
  2091. X
  2092. X        if(intro == 0){
  2093. X            intro++;
  2094. X            sprintf(f, "%s/cdrom/%ld", HOME, fst.st_atime);
  2095. X            if((arg[0] == '$') && (USER.level >= ADMIN_LEV)){
  2096. X                security_ed( f );
  2097. X                closedir(dp);    
  2098. X                return;
  2099. X            }
  2100. X            fp = fopen( f, "r" );
  2101. X            if(fp != NULL){
  2102. X                ansi2( "us", 0, 0 );
  2103. X                show_raw( f, 0 );
  2104. X                ansi2( "me", 0, 0 );
  2105. X                printf("\n");
  2106. X            }
  2107. X            else{
  2108. X                fp = fopen( f, "w" );
  2109. X                fprintf(fp, "Tell your sysop to do an update here!");
  2110. X            }    
  2111. X            fclose(fp);
  2112. X        }
  2113. X
  2114. X        if(fst.st_mode & S_IFDIR){
  2115. X            ansi2( "md", 0, 0 );
  2116. X            sprintf(s, "<%s>", actdir->d_name);    
  2117. X              printf("%-15s", s);
  2118. X            ansi2( "me", 0, 0 );
  2119. X            HAVE_DIR++;
  2120. X        }
  2121. X        else printf("%-15s", actdir->d_name);
  2122. X        x++;
  2123. X        if(x == 5){ 
  2124. X            printf("\n");
  2125. X            x = 0;
  2126. X            y++;
  2127. X            if(y >= MAX_SCR_LINES){
  2128. X                if(more() == -1) ENDE++;
  2129. X                y = 2;                    
  2130. X            }
  2131. X        }    
  2132. X    }
  2133. X    closedir(dp);
  2134. X
  2135. X    if(IS_MOUNTED == 0){
  2136. X        printf("%s %s\n", CDR03_MSG, CDR04_MSG);
  2137. X        chdir( HOME );    
  2138. X        return;
  2139. X     }
  2140. X    
  2141. X    printf("\n");
  2142. X        if(x != 0) printf("\n");
  2143. X
  2144. X
  2145. X     do{
  2146. X        
  2147. X        ansi2( "mr", 0, 0 );
  2148. X        if(HAVE_DIR == 0)
  2149. X            printf("[CDROM] %s", CDR01aMSG);
  2150. X        else
  2151. X            printf("[CDROM] %s", CDR02_MSG);
  2152. X        ansi2( "me", 0, 0 );
  2153. X        printf(" ");
  2154. X
  2155. X        strcpy(s, (UNSIGNED char *) getline( 70, 1, ' ', "") );
  2156. X        if(s[0] == '?'){
  2157. X            help( "#CDROM" );
  2158. X              headline( CDR01_MSG );
  2159. X              printf("\n"); 
  2160. X            goto RESHOW;
  2161. X        }    
  2162. X
  2163. X        strcpy(s, (UNSIGNED char *) stripped( s ));
  2164. X        if(sgrep( s, " " ) != 0){
  2165. X            ansi2( "md", 0, 0 );
  2166. X            printf(" <- %s\n", CDR02aMSG);
  2167. X            ansi2( "me", 0, 0 );
  2168. X            strcpy(s, "?");    
  2169. X        }
  2170. X
  2171. X        if((sgrep( s, "..") != 0) || (sgrep( s, "/") != 0)){
  2172. X            ansi2( "md", 0, 0 );
  2173. X            printf(" <- %s\n", CDR02bMSG);
  2174. X            ansi2( "me", 0, 0 );
  2175. X            s[0] = '?';    
  2176. X        }
  2177. X
  2178. X    }while(s[0] == '?');
  2179. X
  2180. X        if(s[0] != '\0'){
  2181. X
  2182. X        sprintf(f, "[CDROM:] %s (%s)", s, t);
  2183. X        control( f, 3 );
  2184. X
  2185. X        sprintf(f, "%s/%s", t, s );
  2186. X        a = stat(f, &fst);
  2187. X        if((fst.st_mode & S_IFDIR) && (a == 0)){     /* SUBDIRECTORY */
  2188. X            strcpy(t, (UNSIGNED char *) f); 
  2189. X        }                    
  2190. X        else{                    /* FILE FOR DOWNLOAD */
  2191. X            cd_download( f );                            
  2192. X        }
  2193. X        sprintf(f, " CDROM - [%s] - %s ", t, CDR07_MSG ); 
  2194. X          headline( f );
  2195. X        printf("\n");
  2196. X    }
  2197. X
  2198. X  }while(s[0] != '\0');        
  2199. X
  2200. X  chdir( HOME );
  2201. X
  2202. X  printf("\n"); 
  2203. X}
  2204. X
  2205. X
  2206. X
  2207. Xint buzz;
  2208. X
  2209. Xvoid busy()
  2210. X{
  2211. X  UNSIGNED char s[6];
  2212. X
  2213. X  strcpy(s, "*|/-\\");
  2214. X
  2215. X  if(buzz < 1) buzz = 1;
  2216. X  if(buzz > 4) buzz = 1;
  2217. X
  2218. X  printf("%c%c%c)", BS, BS, s[buzz]);
  2219. X
  2220. X  buzz++;
  2221. X}
  2222. X
  2223. X
  2224. X/* #CB - Treat a CDROM device like a normal newsgroup */
  2225. X
  2226. Xvoid cdromB( group, mode )
  2227. XUNSIGNED char group[];
  2228. Xchar mode;
  2229. X{
  2230. X  UNSIGNED char s[STRING];
  2231. X  UNSIGNED char t[STRING];
  2232. X  UNSIGNED char f[STRING];
  2233. X  UNSIGNED char n[STRING];
  2234. X  UNSIGNED char d[STRING];
  2235. X  UNSIGNED char g[STRING];
  2236. X
  2237. X  FILE *ff;
  2238. X  FILE *fp;
  2239. X  FILE *bbs;
  2240. X
  2241. X  DIR *dp;
  2242. X  struct dirent *actdir;
  2243. X 
  2244. X  struct stat fst;
  2245. X
  2246. X  int i, a;
  2247. X  int von, bis;
  2248. X  int OK = 0;
  2249. X  int IS_DIR = 0;
  2250. X
  2251. X  int fpid;
  2252. X
  2253. X
  2254. X  if(mode == 'I'){
  2255. X    
  2256. X#ifndef _NOCDINDEX
  2257. X
  2258. X    strcpy(t, (UNSIGNED char *) shortname( NG ));
  2259. X    sprintf(s, "%s/cdrom/%s", HOME, t);
  2260. X    fp = fopen( s, "r" );
  2261. X    if(fp != NULL){
  2262. X        fclose(fp);
  2263. X        OK = 0; IS_DIR = 0;
  2264. X        strcpy(INHALT, (UNSIGNED char *) s);
  2265. X        printf("\n");
  2266. X        goto QUICKIE;
  2267. X    }
  2268. X
  2269. X#endif    /* _NOCDINDEX */
  2270. X
  2271. X
  2272. X    sprintf(d, "%s/%s/CDDIR.%d", HOME, TMP, getpid());
  2273. X    fp = fopen(d, "w" );
  2274. X    if(fp == NULL){
  2275. X        nerror("cdrom.c", 299, "cdromB", "Can't write to", d);
  2276. X    }
  2277. X
  2278. X    sprintf(g, "%s/%s/CDJNK.%d", HOME, TMP, getpid());
  2279. X    ff = fopen(g, "w" );
  2280. X    if(ff == NULL){
  2281. X        nerror("cdrom.c", 305, "cdromB", "Can't write to", g);
  2282. X    }
  2283. X    fprintf(ff, "INDEX CDROM (JUNK)\n==================\n");
  2284. X
  2285. X      sprintf(t, "%s", group);
  2286. X    dp = opendir( t );
  2287. X     if(dp == NULL){
  2288. X        printf("%s\n", CDR05_MSG);    
  2289. X        chdir( HOME );    
  2290. X        return;
  2291. X    }
  2292. X
  2293. X    printf("\n%s ", CDR09_MSG);
  2294. X    ansi2( "md", 0, 0 );
  2295. X    printf("(*)");
  2296. X 
  2297. X    a = 1000;
  2298. X    readdir(dp);
  2299. X    readdir(dp);
  2300. X    while((actdir = readdir(dp)) != NULL){
  2301. X        sprintf(s, "%s/%s", group, actdir->d_name);
  2302. X
  2303. X        busy();
  2304. X
  2305. X        stat(s, &fst);
  2306. X
  2307. X        if(fst.st_mode & S_IFDIR){
  2308. X            sprintf(s, "%s.%s", group, actdir->d_name);
  2309. X            i = 0;
  2310. X            while(s[i] != '\0'){
  2311. X                s[i] = s[i+1];
  2312. X                if(s[i] == '/') s[i] = '.';
  2313. X                i++;
  2314. X            }
  2315. X            fprintf(fp, "%s  30001200  221 y\n", s);
  2316. X            IS_DIR++;    
  2317. X        }
  2318. X        else{
  2319. X            strcpy(n, (UNSIGNED char *) actdir->d_name);
  2320. X            t[0] = '\0';
  2321. X            fprintf(ff, "%-5d %-20.20s  %-43.43s  %ld\n", a, n, t, (int) (fst.st_size / 1024));
  2322. X            a++;    
  2323. X        }
  2324. X    }    
  2325. X    closedir(dp);
  2326. X    fclose(fp);
  2327. X    fclose(ff);
  2328. X
  2329. X    ansi2( "me", 0, 0 );
  2330. X
  2331. X    if(IS_DIR) goto DIR_EXIT;
  2332. X
  2333. X    QUICKY:
  2334. X
  2335. X    printf("%c%s ", CR, CDR10_MSG);
  2336. X    ansi2( "md", 0, 0 );
  2337. X    printf("(*)");
  2338. X
  2339. X    sprintf(f, "%s/%s/CDIDX.%d", HOME, TMP, getpid());
  2340. X    fp = fopen(f, "w" );
  2341. X    if(fp == NULL){
  2342. X        nerror("cdrom.c", 367, "cdromB", "Can't write to", f);
  2343. X    }
  2344. X    fprintf(fp, "CDROM INDEX\n===========\n");
  2345. X
  2346. X    sprintf(s, "%s/files.bbs", group);
  2347. X    bbs = fopen(s, "r" );
  2348. X    if(bbs == NULL){
  2349. X        sprintf(s, "%s/00_index.txt", group);
  2350. X        bbs = fopen(s, "r" );
  2351. X    }
  2352. X    if(bbs != NULL){
  2353. X        a = 1000;
  2354. X        while(fgets(s, STRING, bbs) != NULL){
  2355. X
  2356. X            busy();
  2357. X
  2358. X            if(s[0] > ' '){
  2359. X                i = 0;
  2360. X                while((s[i] != ' ') && (s[i] != TAB) && (s[i] != '\0')){
  2361. X                    if((s[i] >= 'A') && (s[i] <= 'Z')) s[i] += 32;
  2362. X                    i++;
  2363. X                }
  2364. X                strcpy(n, (UNSIGNED char *) s);
  2365. X                n[i] = '\0';
  2366. X
  2367. X                sprintf(t, "%s/%s", group, n);
  2368. X                stat(t, &fst);
  2369. X
  2370. X                strcpy(t, (UNSIGNED char *) stripped(strcopy(s, i, strlen(s))));     
  2371. X    
  2372. X                fprintf(fp, "%-5d %-20.20s  %-43.43s  %ld\n", a, n, t, (int) (fst.st_size / 1024));
  2373. X                a++;
  2374. X            }
  2375. X        }
  2376. X        fclose(bbs);
  2377. X        OK++;
  2378. X    }
  2379. X    fclose(fp);
  2380. X    
  2381. X    ansi2( "me", 0, 0 );
  2382. X
  2383. X
  2384. X    DIR_EXIT:
  2385. X
  2386. X    if(OK != 0){
  2387. X        strcpy(INHALT, (UNSIGNED char *) f);
  2388. X    }
  2389. X    else{
  2390. X        if(IS_DIR != 0)
  2391. X            INHALT[0] = '\0';
  2392. X        else
  2393. X            strcpy(INHALT, (UNSIGNED char *) g);
  2394. X    }
  2395. X
  2396. X    strcpy(t, (UNSIGNED char *) shortname( NG ));
  2397. X    sprintf(s, "%s/cdrom/%s", HOME, t);
  2398. X
  2399. X
  2400. X#ifndef _NOCDINDEX
  2401. X
  2402. X    if(IS_DIR == 0){
  2403. X        fp = fopen( INHALT, "r" );
  2404. X        ff = fopen( s, "w" );
  2405. X        if(ff == NULL){
  2406. X            nerror("cdrom.c", 497, "cdromB", "Can't write to", s);
  2407. X        }
  2408. X        while(fgets(s, STRING, fp) != 0){
  2409. X            fputs(s, ff);
  2410. X        }
  2411. X        fclose(ff);
  2412. X        fclose(fp);
  2413. X    }
  2414. X
  2415. X#endif    /* _NOCDINDEX */
  2416. X
  2417. X    QUICKIE:
  2418. X
  2419. X    clearline();
  2420. X    ansi2( "up", 0, 0 );    
  2421. X  }            /* End of INDEX Building */
  2422. X
  2423. X
  2424. X  if(mode == 'L'){    /* Download CDROM Files */
  2425. X
  2426. X        download( group );
  2427. X  }
  2428. X
  2429. X  chdir( HOME ); 
  2430. X}
  2431. END_OF_FILE
  2432.   if test 8718 -ne `wc -c <'mbox/src/cdrom.c'`; then
  2433.     echo shar: \"'mbox/src/cdrom.c'\" unpacked with wrong size!
  2434.   fi
  2435.   # end of 'mbox/src/cdrom.c'
  2436. fi
  2437. if test -f 'mbox/src/getline.c' -a "${1}" != "-c" ; then 
  2438.   echo shar: Will not clobber existing file \"'mbox/src/getline.c'\"
  2439. else
  2440.   echo shar: Extracting \"'mbox/src/getline.c'\" \(7130 characters\)
  2441.   sed "s/^X//" >'mbox/src/getline.c' <<'END_OF_FILE'
  2442. X/* ix/MBox (getline.c) by Volker Schuermann, 04.12.1993
  2443. X
  2444. X   This C source code contains the following functions:
  2445. X 
  2446. X   #GL getline()         read a line, mind various parameters
  2447. X   #GI getint()          read an integer
  2448. X   #YN yesno()           yes or no?
  2449. X   
  2450. X   Contact <volkers@unnet.wupper.de> for help! */
  2451. X
  2452. X
  2453. X
  2454. X
  2455. X
  2456. X
  2457. X
  2458. X
  2459. X#include <stdio.h>
  2460. X
  2461. X#ifdef _MBOX
  2462. X#include "mbox.h"
  2463. X#else
  2464. X#define BS        8
  2465. X#define CR        13
  2466. X#define LF        10
  2467. X#define FF        12
  2468. X#define CTRL_X        24
  2469. X#define CTRL_D        4
  2470. X#define BELL        7
  2471. X#define ESC        27
  2472. X#define DEL        127
  2473. X#define GBL06_MSG    'J'     
  2474. X#define GBL07_MSG    'N'    
  2475. X
  2476. Xint UMLAUT = 0;
  2477. X
  2478. X#ifdef _SYS7
  2479. X#define ENTER        13
  2480. X#else
  2481. X#define ENTER         10
  2482. X#endif
  2483. X
  2484. X#ifndef _MINIX
  2485. X#define UNSIGNED unsigned
  2486. X#else
  2487. X#define UNSIGNED
  2488. X#endif
  2489. X
  2490. X#endif
  2491. X
  2492. X#ifndef STRING
  2493. X#define STRING 85
  2494. X#endif
  2495. X
  2496. X
  2497. X
  2498. X/* GL - Read a line.
  2499. X
  2500. X   [len]      ->  How many characters
  2501. X   [mode]     ->     <0  =  7 Bit
  2502. X                      0  =  Don't echo input (i.e. nothing is shown)
  2503. X                      1  =  Echo input 
  2504. X                      2  =  Show '*' instead of receiver characters
  2505. X                      3  =  Show ':' as third and sixth character (time input)
  2506. X                      4  =  Show '.' as third and sixth character (date input)
  2507. X                      5  =  Only accept alphanumerical input
  2508. X                     10  =  Show [bsc] [len] times before accepting any input
  2509. X                    100  =  Only numeric input, '.' and ':' allowed
  2510. X                   1000  =  Show [deftext] and [bsc] first
  2511. X                  10000  =  If a number is the first input, return immediately
  2512. X   [bsc]      ->  Print this to delete
  2513. X   [deftext]  ->  To be displayed if [mode] >= 1000 */
  2514. X
  2515. Xstatic int endless;
  2516. X
  2517. XUNSIGNED char *getline(len, mode, bsc, deftext)
  2518. Xint len, mode;
  2519. Xint bsc;
  2520. XUNSIGNED char deftext[];
  2521. X{
  2522. X  static UNSIGNED char gls[STRING];
  2523. X  int c;
  2524. X  int gli, gll;
  2525. X  int delim = '\0';
  2526. X  int matrix = 0;
  2527. X  int echo = 1, numerics = 0, defmode = 0, letters = 0;
  2528. X  int escape = 0;
  2529. X  int lenmem = len;
  2530. X  int lastwasblank = 0;
  2531. X  int siebenbit = 0;
  2532. X  
  2533. X  if (mode < 0) {
  2534. X    siebenbit++;
  2535. X    mode *= -1;
  2536. X  }
  2537. X  if (mode > 10000) {
  2538. X    escape++;
  2539. X    mode -= 10000;
  2540. X  }
  2541. X  if (mode > 1000) {
  2542. X    mode -= 1000;
  2543. X    defmode++;
  2544. X  }
  2545. X  if (mode > 100) {
  2546. X    mode -= 100;
  2547. X    numerics++;
  2548. X  }
  2549. X  if (mode > 10) {
  2550. X    mode -= 10;
  2551. X    matrix++;
  2552. X  }
  2553. X  if (mode > 2) {
  2554. X    switch(mode){
  2555. X        case 3    : delim = ':';
  2556. X              break;
  2557. X        case 4  : delim = '.';        
  2558. X              break;
  2559. X         case 5  : letters++;
  2560. X              break;
  2561. X    }
  2562. X    mode = 1;
  2563. X  }
  2564. X  echo = mode;
  2565. X
  2566. X  if (defmode != 0) {
  2567. X    if((deftext[0] < 32) || (deftext[0] > 126)) deftext[0] = '\0';
  2568. X    gll = strlen(deftext);
  2569. X    lenmem = len - gll;
  2570. X    if(deftext[0] != '\0'){
  2571. X        sprintf(gls, "%s", deftext);
  2572. X        printf("%s", deftext);
  2573. X    }
  2574. X    else gls[0] = '\0';
  2575. X  }
  2576. X  else {
  2577. X    gll = 0;
  2578. X    strcpy(gls, (UNSIGNED char *) "OOPS");
  2579. X  }
  2580. X
  2581. X  if (matrix != 0) {
  2582. X    for (gli = 0; gli < lenmem; gli++) {
  2583. X        if (((gli == 2) || (gli == 5)) && (delim != '\0') && (gli != len)) {
  2584. X            printf("%c", delim);
  2585. X        }
  2586. X        else {
  2587. X            printf("%c", bsc);
  2588. X        }
  2589. X    }
  2590. X    for (gli = 0; gli < lenmem; gli++) printf("%c", BS);
  2591. X  }
  2592. X
  2593. X  do {
  2594. X
  2595. X    if (delim != '\0') {
  2596. X        if (((gll == 2) || (gll == 5)) && (gll < len)){
  2597. X            c = delim;
  2598. X        }
  2599. X        else {
  2600. X            c = getint();  
  2601. X        }
  2602. X    }
  2603. X    else {
  2604. X        c = getint();  
  2605. X    }        
  2606. X
  2607. X    if(siebenbit != 0){
  2608. X        if(c > 127) c = 0;
  2609. X    }
  2610. X
  2611. X    /*  LINUX' very strange keymaps ;-(                      */
  2612. X    /*  DEL (= 127) will NOT work any longer! Never mind ... */
  2613. X
  2614. X     if (c == 127) c = BS;
  2615. X
  2616. X
  2617. X
  2618. X    if (c == ESC) {
  2619. X        c = getint();  
  2620. X        c = getint();  
  2621. X        if ((c == 'A') || (c == 'B')) {
  2622. X            if (c == 'A') endless++;
  2623. X            if (c == 'B') endless--;
  2624. X            if (endless < 1) endless = 9;
  2625. X            if (endless > 9) endless = 1;
  2626. X            sprintf(gls, "%d", endless);
  2627. X            return (UNSIGNED char *) gls;
  2628. X        }
  2629. X        if (c == 'D') c = BS;
  2630. X        if (c == 'C') c = ENTER;
  2631. X    }
  2632. X    if ((c == CTRL_X) || (c == CTRL_D) || (c == DEL)) {
  2633. X        return (UNSIGNED char *) "<BREAK>";
  2634. X    }
  2635. X    if (c == FF) {
  2636. X        printf("\\\n");
  2637. X        c = 0;
  2638. X    }
  2639. X    if (c != ENTER) { 
  2640. X        if ((c == BS) && (gll > 0)) {
  2641. X            if (((gll == 3) || (gll == 6)) && (delim != '\0')) {
  2642. X                gll -= 2;
  2643. X                printf("%c%c%c%c", BS, BS, bsc, BS);
  2644. X            } else {
  2645. X                gll--;
  2646. X                printf("%c%c%c", BS, bsc, BS);
  2647. X            }
  2648. X        }
  2649. X        if (numerics == 0) {
  2650. X            if (c >= 32) {
  2651. X                if(letters != 0){
  2652. X                    if((c < 'A') && (c != ' ')) c = 0;
  2653. X                    if(c > 'z') c = 0;
  2654. X                    if((c > 'Z') && (c < 'a')) c = 0;
  2655. X
  2656. X                    if(c == ' '){
  2657. X                        if(lastwasblank != 0) c = 0;
  2658. X                        lastwasblank++;
  2659. X                    }
  2660. X                    else{
  2661. X                        if(c != 0) lastwasblank = 0;
  2662. X                    }                
  2663. X
  2664. X                    if(c == 0)
  2665. X                        printf("%c", BELL);
  2666. X                }
  2667. X                if(c != 0){
  2668. X                    gls[gll] = c;
  2669. X                    gll++;
  2670. X                }
  2671. X            }
  2672. X            else {
  2673. X                c = 0;
  2674. X            }
  2675. X        }
  2676. X        else {
  2677. X            if ((c == '.') || (c == ':') || ((c >= '0') && (c <= '9'))) {
  2678. X                if (((delim != '\0') && ((c == '.') || (c == ':'))) &&
  2679. X                    ((gll != 2) && (gll != 5))) {
  2680. X                    printf("%c", BELL);
  2681. X                    c = 0;
  2682. X                }
  2683. X                else {
  2684. X                    gls[gll] = c;
  2685. X                    gll++;
  2686. X                    gls[gll] = '\0';
  2687. X                }
  2688. X            }
  2689. X            else {
  2690. X                if (c != BS) printf("%c", BELL);
  2691. X                c = 0; 
  2692. X            }
  2693. X        }
  2694. X        if (c != 0) {
  2695. X            if (echo == 1) printf("%c", c);
  2696. X            if (echo == 2) printf("*");
  2697. X        }
  2698. X    }
  2699. X    if (gll == 1) {
  2700. X        if (escape != 0) {
  2701. X            if (((c > 47) && (c < 58)) ||
  2702. X                 (c == '-') || (c == '+') ) {
  2703. X                    gls[gll] = '\0';
  2704. X                    return (UNSIGNED char *) gls;
  2705. X            }
  2706. X        }
  2707. X    }
  2708. X
  2709. X  } while ((c != ENTER) && (gll < len));
  2710. X
  2711. X  gls[gll] = '\0';
  2712. X
  2713. X  return (UNSIGNED char *) gls;
  2714. X}
  2715. X
  2716. X
  2717. X
  2718. X
  2719. X
  2720. X
  2721. X
  2722. X/* #GI - Read an integer. */
  2723. X
  2724. Xint getint()
  2725. X{
  2726. X  int c;
  2727. X
  2728. X
  2729. X  if(UMLAUT != 0){
  2730. X    c = UMLAUT;
  2731. X    UMLAUT = 0;
  2732. X    return (int) c;
  2733. X  }
  2734. X
  2735. X  do{
  2736. X    c = (int) getch();
  2737. X
  2738. X#ifndef _UMLAUT
  2739. X
  2740. X    if(c > 127){
  2741. X
  2742. X        UMLAUT = 'e';
  2743. X
  2744. X        switch(c){
  2745. X            case 142 : c = 'A'; /* IBM 'Ae' */
  2746. X                   break;
  2747. X            case 153 : c = 'O'; /* IBM 'Oe' */
  2748. X                   break;
  2749. X            case 154 : c = 'U'; /* IBM 'Ue' */
  2750. X                   break;
  2751. X            case 132 : c = 'a'; /* IBM 'ae' */
  2752. X                   break;
  2753. X            case 148 : c = 'o'; /* IBM 'oe' */
  2754. X                   break;
  2755. X            case 129 : c = 'u'; /* IBM 'ue' */
  2756. X                   break;
  2757. X            case 225 : c = 's'; /* IBM 'ss' */
  2758. X                   UMLAUT = 's';
  2759. X                   break;
  2760. X
  2761. X            case 196 : c = 'A'; /* AMIGA 'Ae' */
  2762. X                   break;
  2763. X            case 214 : c = 'O'; /* AMIGA 'Oe' */
  2764. X                   break;
  2765. X            case 220 : c = 'U'; /* AMIGA 'Ue' */
  2766. X                   break;
  2767. X            case 228 : c = 'a'; /* AMIGA 'ae' */
  2768. X                   break;
  2769. X            case 246 : c = 'o'; /* AMIGA 'oe' */
  2770. X                   break;
  2771. X            case 252 : c = 'u'; /* AMIGA 'ue' */
  2772. X                   break;
  2773. X            case 223 : c = 's'; /* AMIGA 'ss' */
  2774. X                   UMLAUT = 's';
  2775. X                   break;
  2776. X
  2777. X#ifdef I_LIKE_CONFUSIONS
  2778. X                case 128 : c = 'A'; /* APPLE 'Ae' */
  2779. X                   break;
  2780. X            case 133 : c = 'O'; /* APPLE 'Oe' */
  2781. X                   break;
  2782. X            case 134 : c = 'U'; /* APPLE 'Ue' */
  2783. X                   break;
  2784. X            case 138 : c = 'a'; /* APPLE 'ae' */
  2785. X                   break;
  2786. X            case 154 : c = 'o'; /* APPLE 'oe' */
  2787. X                   break;
  2788. X            case 159 : c = 'u'; /* APPLE 'ue' */
  2789. X                   break;
  2790. X            case 167 : c = 's'; /* APPLE 'ss' */
  2791. X                   UMLAUT = 's';
  2792. X                   break;
  2793. X#endif /* _CONFUSION */
  2794. X            default  : UMLAUT = 0;
  2795. X        }        
  2796. X        }
  2797. X
  2798. X  }while((c == 0) || (c > 127));
  2799. X
  2800. X#else /* _UMLAUT */
  2801. X
  2802. X  }while(c == 0);
  2803. X
  2804. X#endif /* _UMLAUT */
  2805. X
  2806. X
  2807. X  return (int) c;
  2808. X}
  2809. X
  2810. X
  2811. X
  2812. X
  2813. X
  2814. X/* #YN - Get a char, but only accept GBL06_MSG (Yes, Ja, Qui) and
  2815. X   GBL07_MSG (No, Nein, Non). */
  2816. X
  2817. Xint yesno()
  2818. X{
  2819. X  int c;
  2820. X
  2821. X  do {
  2822. X    c = getint();
  2823. X    if (c >= 97) c -= 32;
  2824. X    if ((c != GBL06_MSG) && (c != GBL07_MSG)) c = 0;
  2825. X  } while (c == 0);
  2826. X
  2827. X  printf("%c", c);
  2828. X
  2829. X  return (int) c;
  2830. X}
  2831. X
  2832. X 
  2833. END_OF_FILE
  2834.   if test 7130 -ne `wc -c <'mbox/src/getline.c'`; then
  2835.     echo shar: \"'mbox/src/getline.c'\" unpacked with wrong size!
  2836.   fi
  2837.   # end of 'mbox/src/getline.c'
  2838. fi
  2839. if test -f 'mbox/src/languages/english.shh' -a "${1}" != "-c" ; then 
  2840.   echo shar: Will not clobber existing file \"'mbox/src/languages/english.shh'\"
  2841. else
  2842.   echo shar: Extracting \"'mbox/src/languages/english.shh'\" \(8947 characters\)
  2843.   sed "s/^X//" >'mbox/src/languages/english.shh' <<'END_OF_FILE'
  2844. XContent-Type: text/richtext;
  2845. X<Bold>?</Bold>                          reachable commands are shown<nl>
  2846. X<Bold>?</Bold> <Underline>* </Underline>                       all commands are shown<nl>
  2847. X<Underline>command</Underline> <Bold>?</Bold>                  help on "<Underline>command</Underline>"<nl>
  2848. X<nl>
  2849. X<Bold>0</Bold>                          list command-buffers contents<nl>
  2850. X<Bold>1</Bold>-<Bold>9</Bold>                        execute one of nine buffered commands<nl>
  2851. X<nl>
  2852. X<Bold>+</Bold>                          go to the next board/group with NEW articles<nl>
  2853. X<nl>
  2854. X<Bold>-</Bold>                          go to the previous board/group with NEW articles<nl>
  2855. X<nl>
  2856. X<Bold>ACCOUNT</Bold>                    establish an account & a maildrop for a new user<nl>
  2857. X<nl>
  2858. X<Bold>AREA</Bold> <Underline>+</Underline>                     go to the next group of a subgroup<nl>
  2859. X<Bold>AREA</Bold> <Underline>++</Underline>                    go to the next group<nl>
  2860. X<Bold>AREA</Bold> <Underline>-</Underline>                     go to a previous group of a subgroup<nl>
  2861. X<Bold>AREA</Bold> <Underline>--</Underline>                    go to a previous group<nl>
  2862. X<nl>
  2863. X<Bold>ARCHIVES</Bold> <Underline>article</Underline>    <Underline> </Underline>      store "<Underline>article</Underline>" in mailbox (can't be deleted then)<nl>
  2864. X<nl>
  2865. X<Bold>BAUDRATE</Bold>                   check effective baudrate/performance<nl>
  2866. X<nl>
  2867. X<Bold>BOARD</Bold>                      list boards with new articles<nl>
  2868. X<Bold>BOARD</Bold> <Underline>* </Underline>                   list all boards depending on userlevel<nl>
  2869. X<Bold>BOARD</Bold> <Underline>**</Underline>                   list ALL boards<nl>
  2870. X<Bold>BOARD</Bold> <Underline>+</Underline>                    go to the next board<nl>
  2871. X<Bold>BOARD</Bold> <Underline>-</Underline>                    go to the previous board<nl>
  2872. X<Bold>BOARD</Bold> <Underline>!</Underline>                    display the name of the current board<nl>
  2873. X<Bold>BOARD</Bold> <Underline>#</Underline>                    list areas in board<nl>
  2874. X<Bold>BOARD</Bold> <Underline>..</Underline>                   step from one area to the previous one<nl>
  2875. X<Bold>BOARD</Bold> <Underline>boardname</Underline> <Underline> </Underline>          jump to board "<Underline>boardname</Underline>"<nl>
  2876. X<nl>
  2877. X<Bold>CHAT</Bold>                       multiport chatsystem<nl>
  2878. X<nl>
  2879. X<Bold>COMBINE</Bold> <Underline>article article</Underline>    merge personal mails<nl>
  2880. X<nl>
  2881. X<Bold>DATE</Bold>                       display current date<nl>
  2882. X<nl>
  2883. X<Bold>DELETE</Bold> <Underline>article</Underline>             delete article no. "<Underline>article</Underline>"<nl>
  2884. X<Bold>DELETE</Bold> <Underline>article</Underline>-<Underline>article</Underline>     delete from "article" to "<Underline>article</Underline>"<nl>
  2885. X<Bold>DELETE</Bold> <Underline>></Underline>                   delete copies of your own mail in your PM<nl>
  2886. X<nl>
  2887. X<Bold>DIR</Bold>                        index new articles<nl>
  2888. X<Bold>DIR</Bold> <Underline>*</Underline>                      index ALL articles (of a board)<nl>
  2889. X<nl>
  2890. X<Bold>DIRECTION</Bold>                  reading direction OLD <> NEW ?<nl>
  2891. X<nl>
  2892. X<Bold>DOWNLOAD</Bold>                   receive a couple of articles under X-, Y-, Z-<nl>
  2893. X                           or NONE-protocol<nl>
  2894. X<nl>
  2895. X<Bold>EDIT</Bold> <Underline>article</Underline>               re-edit article no. "<Underline>article</Underline>"<nl>
  2896. X<nl>
  2897. X<Bold>EXECUTE</Bold> <Underline>os-command</Underline>         Execute an OS (Operating System/Shell) commands<nl>
  2898. X<nl>
  2899. X<Bold>FINGER</Bold> <Underline>name </Underline>               list infos about user "<Underline>name</Underline>"<nl>
  2900. X<nl>
  2901. X<Bold>FORWARD</Bold>                    list stored mails<nl>
  2902. X<Bold>FORWARD</Bold> <Underline>user</Underline>               forward a stored mail to "<Underline>user</Underline>"<nl>
  2903. X<Bold>FORWARD</Bold> <Underline>article</Underline> <Underline>user</Underline>       forward "<Underline>article</Underline>" to "<Underline>user</Underline>"<nl>
  2904. X<nl>
  2905. X<Bold>GAMES</Bold>                      offer a (list of) game(s)<nl>
  2906. X<nl>
  2907. X<Bold>GOODBYE</Bold>                    leave the BBS<nl>
  2908. X<nl>
  2909. X<Bold>GRAPHICS</Bold>                   de-/activte IBM-ANSI headlines<nl>
  2910. X<nl>
  2911. X<Bold>HELP</Bold>                       this shorthelp<nl>
  2912. X<Bold>HELP</Bold> <Underline>*</Underline>                     display some pages of helpful descriptions<nl>
  2913. X<Bold>HELP</Bold> <Underline>command </Underline>              show information on "<Underline>command</Underline>"<nl>
  2914. X<nl>
  2915. X<Bold>MAIL</Bold> <Underline>user</Underline>                  send mail to "<Underline>user</Underline>"<nl>
  2916. X<Bold>MAIL</Bold> <Underline>host!user</Underline>             send mail to "<Underline>user</Underline>" on system "<Underline>host</Underline>"<nl>
  2917. X<Bold>MAIL</Bold> <Underline>user@host.domain</Underline>      send mail to "<Underline>user</Underline>" on system "<Underline>host.domain</Underline>"<nl>
  2918. X<nl>
  2919. X<Bold>MACRO</Bold>                      display/declare macros<nl>
  2920. X<nl>
  2921. X<Bold>MESSAGE</Bold>                    show/change "hello" message<nl>
  2922. X<nl>
  2923. X<Bold>MONITOR</Bold> <Underline>0</Underline>                  screen saver<nl>
  2924. X<Bold>MONITOR</Bold> <Underline>secs</Underline>               display system information with a pause of<nl>
  2925. X                           "secs" seconds<nl>
  2926. X<nl>
  2927. X<Bold>PLAN</Bold>                       change information text<nl>
  2928. X<nl>
  2929. X<Bold>PORTINFO</Bold>                   list all terminals, users, activities<nl>
  2930. X<nl>
  2931. X<Bold>PROTOCOL</Bold>                   protocol of all call(s/ers)<nl>
  2932. X<Bold>PROTOCOL</Bold> <Underline>*</Underline>                 protocol (complete)<nl>
  2933. X<Bold>PROTOCOL</Bold> <Underline>#</Underline>                 statistics of these calls<nl>
  2934. X<Bold>PROTOCOL</Bold> <Underline>%</Underline>                 callers statistics (hitlist)<nl>
  2935. X<Bold>PROTOCOL</Bold> <Underline>$</Underline>                 systems workload/usage<nl>
  2936. X<nl>
  2937. X<Bold>PM</Bold>                         move to your maildrop<nl>
  2938. X<nl>
  2939. X<Bold>READ</Bold>                       read NEW articles<nl>
  2940. X<Bold>READ</Bold> <Underline>*</Underline>                     real ALL articles (of a board)<nl>
  2941. X<Bold>READ</Bold> <Underline>article</Underline>               show article no. "<Underline>article</Underline>"<nl>
  2942. X<Bold>READ</Bold> <Underline>article</Underline>-<Underline>article</Underline>       display from "article" to "<Underline>article</Underline>"<nl>
  2943. X<nl>
  2944. X<Bold>ROT13</Bold>                      decoding rot13-articles<nl>
  2945. X<nl>
  2946. X<Bold>SEARCH</Bold> <Underline>pattern</Underline>             search for "<Underline>pattern</Underline>" in all articles of a group<nl>
  2947. X<nl>
  2948. X<Bold>SETUP</Bold>                      configure the BBS to your favor<nl>
  2949. X<nl>
  2950. X<Bold>SIGNATURE</Bold>                  show/change your signature<nl>
  2951. X<nl>
  2952. X<Bold>STATE</Bold>                      list your BBS-configuration<nl>
  2953. X<nl>
  2954. X<Bold>STATISTICS</Bold>                 table containing NEWS-statistics<nl>
  2955. X<Bold>STATISTICS</Bold> <Underline>*</Underline>               table containing more NEWS-statistics<nl>
  2956. X<Bold>STATISTICS</Bold> <Underline>$</Underline>               UUCP-rates (only if UUCP supports this)<nl>
  2957. X<Bold>STATISTICS</Bold> <Underline>#</Underline>               download-statistics<nl>
  2958. X<Bold>STATISTICS</Bold> <Underline>%</Underline>               download-statistics (hitlist)<nl>
  2959. X<Bold>STATISTICS</Bold> <Underline>></Underline>               mailing-statistics (xmd)<nl>
  2960. X<nl>
  2961. X<Bold>SUBSCRIBE</Bold>                  (un-)subscribe to newsgroups<nl>
  2962. X<nl>
  2963. X<Bold>THREAD </Bold>                    show the thread of articles and replies<nl>
  2964. X<Bold>THREAD</Bold> <Underline>article</Underline>             follow a thread thru an entire newsgroup<nl>
  2965. X<nl>
  2966. X<Bold>TIME</Bold>                       local time and your online-time in seconds<nl>
  2967. X<nl>
  2968. X<Bold>USERS</Bold>                      show users list<nl>
  2969. X<Bold>USERS</Bold> <Underline>*</Underline>                    show users list (more detailed)<nl>
  2970. X<Bold>USERS</Bold> <Underline>#</Underline>                    users up-/download ratio<nl>
  2971. X<Bold>USERS</Bold> <Underline>%</Underline>                    list users with their newsgroups<nl>
  2972. X<Bold>USERS</Bold> <Underline>$</Underline>                    accounting information (payload ;-)<nl>
  2973. X<Bold>USERS</Bold> <Underline>name</Underline>                 list infos about user "<Underline>name</Underline>"<nl>
  2974. X<nl>
  2975. X<Bold>UUDECODE</Bold> <Underline>article</Underline> <Underline>article</Underline>   Decoding <Underline>article</Underline>(<Underline>s</Underline>) using UUD/UUDECODE<nl>
  2976. X<nl>
  2977. X<Bold>VERSION</Bold>                    print version<nl>
  2978. X<Bold>VERSION</Bold> <Underline>*</Underline>                  display compiling definitions<nl>
  2979. X<Bold>VERSION</Bold> <Underline>#</Underline>                  the "Hall of Fame"<nl>
  2980. X<nl>
  2981. X<Bold>WRITE</Bold>                      create a new article and post it<nl>
  2982. XContent-Type: text/plain;
  2983. END_OF_FILE
  2984.   if test 8947 -ne `wc -c <'mbox/src/languages/english.shh'`; then
  2985.     echo shar: \"'mbox/src/languages/english.shh'\" unpacked with wrong size!
  2986.   fi
  2987.   # end of 'mbox/src/languages/english.shh'
  2988. fi
  2989. if test -f 'mbox/src/lesen.c' -a "${1}" != "-c" ; then 
  2990.   echo shar: Will not clobber existing file \"'mbox/src/lesen.c'\"
  2991. else
  2992.   echo shar: Extracting \"'mbox/src/lesen.c'\" \(9453 characters\)
  2993.   sed "s/^X//" >'mbox/src/lesen.c' <<'END_OF_FILE'
  2994. X/* ix/MBox (lesen.c) by Volker Schuermann, 04.12.1993
  2995. X
  2996. X   This C source code contains the following functions:
  2997. X
  2998. X   #LE lesen()             read mails and articles
  2999. X   #AS ansage()            message editing
  3000. X   #US unterschrift()      signature editing
  3001. X   #PL plan()              sort of UNIX (R) "plan" file
  3002. X   #GS getsite()           find the name of a site in a path
  3003. X   #CD checkdomaintype()   is user trying to send international mails?
  3004. X
  3005. X   Contact <volkers@unnet.wupper.de> for help! */
  3006. X
  3007. X
  3008. X
  3009. X
  3010. X
  3011. X#include <sys/types.h>
  3012. X#include <sys/stat.h>
  3013. X#include <unistd.h>
  3014. X#include <fcntl.h>
  3015. X#include <stdio.h>
  3016. X#include <utmp.h>
  3017. X#include <time.h>
  3018. X
  3019. X
  3020. X#include "mbox.h"
  3021. X
  3022. X
  3023. Xextern UNSIGNED char headinfo[STRING];
  3024. X
  3025. X
  3026. X
  3027. X/* #LE - Read mails or news articles.
  3028. X 
  3029. X   [arg] contains the number of a mail or an article. */
  3030. X
  3031. Xvoid lesen(arg)
  3032. XUNSIGNED char arg[];
  3033. X{
  3034. X  FILE *fp;
  3035. X  UNSIGNED char s[LSTRING];
  3036. X  UNSIGNED char entry[STRING];
  3037. X  UNSIGNED char no[10];
  3038. X  UNSIGNED char c;
  3039. X  int i;
  3040. X  int ok;
  3041. X  int MIN, MAX;
  3042. X  int pr;
  3043. X
  3044. X  struct stat fst;
  3045. X
  3046. X
  3047. X  if(strcomp(CDROMNG, NG) == 0){
  3048. X    cdromB( arg, 'L' );
  3049. X    return; 
  3050. X  }
  3051. X
  3052. X  sprintf(no, "%s", arg);
  3053. X
  3054. X  maybe_locked(INHALT, "r");
  3055. X  fp = fopen(INHALT, "r");
  3056. X  if (fp == NULL) {
  3057. X    nerror("misc.c", 558, "lesen", "Can't read", INHALT);
  3058. X  }
  3059. X  while ((fgets(s, LSTRING, fp) != NULL) && (s[2] != '='));
  3060. X  fgets(s, LSTRING, fp);
  3061. X  MIN = atoi(s);
  3062. X  MAX = atoi(s);         /* If it's only one mail/article! */
  3063. X  while (fgets(s, LSTRING, fp) != NULL) {
  3064. X    MAX = atoi(s);
  3065. X  }
  3066. X  fclose(fp);
  3067. X
  3068. X  if (MAX < MIN) {
  3069. X    i = MIN;
  3070. X    MIN = MAX;
  3071. X    MAX = i;
  3072. X  }
  3073. X
  3074. X
  3075. X  NEXT_MSG:
  3076. X
  3077. X  if ((no[0] < '1') || (no[0] > '9')) {
  3078. X    ansi2("md", 0, 0);
  3079. X    printf(" %s\n", MIS41_MSG);
  3080. X    ansi2("me", 0, 0);
  3081. X    return;
  3082. X  }
  3083. X  if (pruefe(no) != 0) goto NEXT_NEXT;
  3084. X
  3085. X  if (strcomp(BRETT, "PM") != 0) {
  3086. X        sprintf(entry, "%s/%s", BRETT, no); 
  3087. X    sprintf(headinfo, " %s %s (%s) ", MIS43_MSG, no, NG);
  3088. X    if(!DISKUSSION) headline( headinfo );    
  3089. X    ok = show(entry, 9999, USER.more);
  3090. X  }
  3091. X  else {
  3092. X    sprintf(entry, "%s/usr/%c/%d/%s", HOME, USER.name[0], USER.id, no);
  3093. X    sprintf(headinfo, " %s (%s) ", MIS45_MSG, no);
  3094. X    if(!DISKUSSION) headline( headinfo );
  3095. X    ok = show(entry, 9999, USER.more);
  3096. X    mail_status( (int) atoi(no), 'L' ); 
  3097. X  }
  3098. X
  3099. X  if(ok == -1) return;
  3100. X  if(ok == -9){
  3101. X    if(USER.leserichtung == 1){
  3102. X        c = MIS52_MSG;
  3103. X    }
  3104. X    else{
  3105. X        c = MIS51_MSG;
  3106. X     }
  3107. X    goto NEXT_DIS;
  3108. X  }
  3109. X
  3110. X  c = LF;
  3111. X
  3112. X  NEXT_NEXT:
  3113. X
  3114. X  printf("\n");
  3115. X  ansi2("mr", 0, 0);
  3116. X  printf("[Mesg. %s] %s, ? >", no, MIS46_MSG);
  3117. X  ansi2("me", 0, 0);
  3118. X  printf(" %c%c", MIS51_MSG, BS);
  3119. X
  3120. X  do {
  3121. X    c = getint();
  3122. X    if (strcomp(BRETT, "PM") == 0) {
  3123. X        if (c == MIS50_MSG) c = '*';
  3124. X    }
  3125. X    if (c >= 97) c -= 32;
  3126. X    if (c == ENTER) c = MIS51_MSG;
  3127. X    if (c == '?') {
  3128. X        clearline();
  3129. X        ansi2("mr", 0, 0);
  3130. X        printf("%c%s >", CR, MIS53_MSG);
  3131. X        ansi2("me", 0 ,0);
  3132. X        printf(" ");
  3133. X    }
  3134. X    if (    (c != MIS47_MSG) && (c != MIS48_MSG) && (c != MIS49_MSG) && 
  3135. X        (c != MIS50_MSG) && (c != MIS50aMSG) && (c != MIS50bMSG) &&
  3136. X        (c != MIS51_MSG) && (c != MIS52_MSG) && (c != '*')) {
  3137. X
  3138. X                c = 0;
  3139. X    }
  3140. X
  3141. X  } while (c == 0);
  3142. X
  3143. X  printf("%c", c);
  3144. X
  3145. X  NEXT_DIS:
  3146. X
  3147. X  if (c == MIS50_MSG) {        /* DELETE / LOESCHEN */
  3148. X    clearline();
  3149. X    ansi2("mr", 0, 0);
  3150. X    printf("%s [%c, %c] >", MIS54_MSG, GBL06_MSG, GBL07_MSG);
  3151. X    ansi2("me", 0, 0);
  3152. X    printf(" ");
  3153. X    if (yesno() == GBL06_MSG) {
  3154. X        loeschen(no);
  3155. X    }
  3156. X    printf("\n");
  3157. X    c = MIS51_MSG;
  3158. X  }
  3159. X  if (c == '*') {        /* DELETE (don't ask) / LOESCHEN (sofort) */
  3160. X    loeschen(no);
  3161. X    printf("\n");
  3162. X    c = MIS51_MSG;
  3163. X  }
  3164. X  if (c == MIS50aMSG) {     /* (undocumented) UUDECODE */
  3165. X    uudecode( no );
  3166. X    c = MIS51_MSG;
  3167. X  }
  3168. X  if (c == MIS50bMSG) {        /* (undocumented) PRINT */
  3169. X    drucken( no );
  3170. X    c = MIS49_MSG;
  3171. X  }
  3172. X  if (c == MIS51_MSG) {        /* NEXT / NAECHSTE */
  3173. X    ok = 0;
  3174. X    do {
  3175. X        i = atoi(no);
  3176. X        i++;
  3177. X        sprintf(no, "%d", i);
  3178. X        pr = pruefe(no);
  3179. X        if (pr == 0) ok = 1;
  3180. X        if (pr == 1) goto NEXT_NEXT;
  3181. X        if (i > MAX) {
  3182. X            if(!DISKUSSION)
  3183. X                printf("\n\n%s\n", MIS55_MSG);
  3184. X            else
  3185. X                printf("\n\n%s\n", MIS55aMSG);
  3186. X            return;
  3187. X        }
  3188. X    } while (ok == 0);
  3189. X    if (ok == 1) goto NEXT_MSG;
  3190. X    goto NEXT_NEXT;
  3191. X  }
  3192. X  if (c == MIS52_MSG) {        /* PREVIOUS / VORHERIGE */
  3193. X    ok = 0;
  3194. X    do {
  3195. X        i = atoi(no);
  3196. X        i--;
  3197. X        sprintf(no, "%d", i);
  3198. X        pr = pruefe(no);
  3199. X        if (pr == 0) ok = 1;
  3200. X        if (pr == 1) goto NEXT_NEXT;
  3201. X        if (i < MIN) {
  3202. X            printf("\n\n%s\n", MIS56_MSG);
  3203. X            return;
  3204. X        }
  3205. X    } while (ok == 0);
  3206. X    if (ok == 1) goto NEXT_MSG;
  3207. X    goto NEXT_NEXT;
  3208. X  }
  3209. X  if (c == MIS49_MSG) goto NEXT_MSG;    /* REPEAT / WIEDERHOLEN */
  3210. X
  3211. X
  3212. X  if (c == MIS48_MSG) {            /* REPLY / BEANTWORTEN */
  3213. X    headline( MIS57_MSG );
  3214. X    sprintf(s, "cp %s %s/%dRep > /dev/null", entry, TMP, getpid());
  3215. X    system(s);
  3216. X
  3217. X    if (strcomp(BRETT, "PM") == 0) {
  3218. X        printf("\n%s", MIS58_MSG);
  3219. X        if(brief("~REPLY~") != -1){
  3220. X            sprintf(s, "%s?", USER.name);
  3221. X            brief(s);
  3222. X            sprintf(s, "%s/usr/%c/%d/INDEX", HOME, USER.name[0], USER.id);
  3223. X            mail_status( (int) atoi(no), 'B');
  3224. X        }
  3225. X    }
  3226. X    else {
  3227. X        printf("\n");
  3228. X        ansi2("mr", 0, 0);
  3229. X        printf("%s, ? >", MIS59_MSG);
  3230. X        ansi2("me", 0, 0);
  3231. X        printf(" ");
  3232. X
  3233. X        do {
  3234. X            c = getint();
  3235. X            if (c >= 97) c -= 32;
  3236. X            if (c == '?') {
  3237. X                clearline();
  3238. X                ansi2("mr", 0, 0);
  3239. X                printf("%c%s >", CR, MIS60_MSG);
  3240. X                ansi2("me", 0, 0);
  3241. X                printf(" ");
  3242. X            }
  3243. X            if ((c != MIS61_MSG) && (c != MIS62_MSG)) c = 0;
  3244. X        } while (c == 0);
  3245. X
  3246. X        printf("%c", c);
  3247. X
  3248. X        printf("\n\n%s", MIS58_MSG);
  3249. X
  3250. X        if (c == MIS62_MSG) {
  3251. X            schreiben("");
  3252. X        }
  3253. X        if (c == MIS61_MSG) {
  3254. X            if((brief("~REPLY~") != -1) && (strcomp(GUEST, USER.name) != 0)){
  3255. X                sprintf(s, "%s?", USER.name);
  3256. X                brief(s);
  3257. X                sprintf(s, "%s/usr/%c/%d/INDEX", HOME, USER.name[0], USER.id);
  3258. X                stat(s, &fst);
  3259. X                    IDX_SIZE = (long) fst.st_size;
  3260. X            }
  3261. X        }
  3262. X    }
  3263. X    goto NEXT_NEXT;
  3264. X  }
  3265. X  printf("\n");
  3266. X  return;
  3267. X}
  3268. X
  3269. X
  3270. X
  3271. X
  3272. X/* #AS - If a user mails you, he is shown a messages which may be
  3273. X   edited here. */
  3274. X
  3275. Xvoid ansage()
  3276. X{
  3277. X  FILE *ff;
  3278. X  UNSIGNED char s[STRING];
  3279. X  UNSIGNED char t[STRING];
  3280. X  UNSIGNED char TEP[STRING];
  3281. X  UNSIGNED char c;
  3282. X
  3283. X
  3284. X  printf("\n\n%s\n\n", MAL38_MSG);
  3285. X
  3286. X  sprintf(TEP, "%s/usr/%c/%d/.hello", HOME, USER.name[0], USER.id);
  3287. X  ff = fopen(TEP, "r");
  3288. X  if (ff != NULL) {
  3289. X    ansi2("md", 0, 0);
  3290. X    while (fgets(s, STRING, ff) != NULL) {
  3291. X        printf("%s", s);
  3292. X    }
  3293. X    fclose(ff);
  3294. X    ansi2("me", 0, 0);
  3295. X    printf("\n\n");
  3296. X  }
  3297. X  ansi2("mr", 0, 0);
  3298. X  printf("%c%s [%c, %c] > ", CR, MAL39_MSG, GBL06_MSG, GBL07_MSG);
  3299. X  ansi2("me", 0, 0);
  3300. X
  3301. X  c = yesno();
  3302. X
  3303. X  if (c == GBL06_MSG) {
  3304. X    security_ed( TEP );
  3305. X  }
  3306. X  printf("\n");
  3307. X}
  3308. X
  3309. X
  3310. X
  3311. X
  3312. X/* #US - Sort of signature. You may edit it here. */
  3313. X
  3314. Xvoid unterschrift()
  3315. X{
  3316. X  FILE *ff;
  3317. X  UNSIGNED char s[STRING];
  3318. X  UNSIGNED char t[STRING];
  3319. X  UNSIGNED char TEP[STRING];
  3320. X  UNSIGNED char c;
  3321. X
  3322. X
  3323. X  printf("\n\n%s\n\n", MAL40_MSG);
  3324. X
  3325. X  sprintf(TEP, "%s/usr/%c/%d/.signature", HOME, USER.name[0], USER.id);
  3326. X  ff = fopen(TEP, "r");
  3327. X  if (ff != NULL) {
  3328. X    ansi2("md", 0, 0);
  3329. X    while (fgets(s, STRING, ff) != NULL) {
  3330. X        printf("%s", s);
  3331. X    }
  3332. X    fclose(ff);
  3333. X    ansi2("me", 0, 0);
  3334. X    printf("\n\n");
  3335. X  }
  3336. X  ansi2("mr", 0, 0);
  3337. X  printf("%c%s [%c, %c] > ", CR, MAL41_MSG, GBL06_MSG, GBL07_MSG);
  3338. X  ansi2("me", 0, 0);
  3339. X
  3340. X  c = yesno();
  3341. X
  3342. X  if (c == GBL06_MSG) {
  3343. X    security_ed( TEP );
  3344. X  }
  3345. X  printf("\n");
  3346. X}
  3347. X
  3348. X
  3349. X
  3350. X
  3351. X/* #PL - Kind of plan. Change your own entry here. */
  3352. X
  3353. Xvoid plan(arg)
  3354. XUNSIGNED char arg[];
  3355. X{
  3356. X  FILE *ff;
  3357. X  UNSIGNED char s[STRING];
  3358. X  UNSIGNED char t[STRING];
  3359. X  UNSIGNED char TEP[STRING];
  3360. X  UNSIGNED char c;
  3361. X
  3362. X  if(arg[0] != '\0'){
  3363. X    finger( arg );
  3364. X    return;
  3365. X  }
  3366. X
  3367. X  printf("\n\n%s\n\n", MAL42_MSG);
  3368. X
  3369. X  sprintf(TEP, "%s/usr/%c/%d/.plan", HOME, USER.name[0], USER.id);
  3370. X  ff = fopen(TEP, "r");
  3371. X  if (ff != NULL) {
  3372. X    ansi2("md", 0, 0);
  3373. X    while (fgets(s, STRING, ff) != NULL) {
  3374. X        printf("%s", s);
  3375. X    }
  3376. X    fclose(ff);
  3377. X    ansi2("me", 0, 0);
  3378. X    printf("\n\n");
  3379. X  }
  3380. X  ansi2("mr", 0, 0);
  3381. X  printf("%c%s [%c, %c] > ", CR, MAL43_MSG, GBL06_MSG, GBL07_MSG);
  3382. X  ansi2("me", 0, 0);
  3383. X
  3384. X  c = yesno();
  3385. X
  3386. X  if (c == GBL06_MSG) {
  3387. X    security_ed( TEP );
  3388. X  }
  3389. X  printf("\n");
  3390. X}
  3391. X
  3392. X
  3393. X
  3394. X
  3395. X
  3396. X/* #GS - Locate the name of a site in a path [arg] and return it. */
  3397. X
  3398. XUNSIGNED char *getsite(arg)
  3399. XUNSIGNED char arg[];
  3400. X{
  3401. X  int i = 0, a = 0, b = 0, c = 0;
  3402. X  UNSIGNED char s[STRING];
  3403. X
  3404. X  while(arg[i] != '\0'){
  3405. X    if(arg[i] == '!') a = i - 1;
  3406. X    if(arg[i] == '@') b = i + 1;
  3407. X    if(arg[i] == '.'){
  3408. X        if((b != 0) && (c == 0)) c = i -1;
  3409. X    }
  3410. X    i++;
  3411. X  }
  3412. X
  3413. X  if((a == 0) && (b == 0)) strcat(s, UUCPSITE);
  3414. X  if(a != 0) strcpy(s, (UNSIGNED char *) strcopy(arg, 0, a));
  3415. X  if(b != 0) strcpy(s, (UNSIGNED char *) strcopy(arg, b, c));
  3416. X
  3417. X  return (UNSIGNED char *) s;
  3418. X}
  3419. X
  3420. X
  3421. X
  3422. X
  3423. X
  3424. X/* #CD - Check whether a user is allowed to mail to the specified
  3425. X   receiver [arg], or not.
  3426. X
  3427. X   This function returns 0 is everything is ok, and -1 if the user
  3428. X   level isn't high enough. */
  3429. X
  3430. Xint checkdomaintype(arg)
  3431. XUNSIGNED char arg[];
  3432. X{
  3433. X  int i = 0, l, a, e = 0, f = 0, g = 0, international = 0;
  3434. X  UNSIGNED char s[STRING];
  3435. X
  3436. X  if(USER.level >= WRITE_INTERNAT) return (int) 0;
  3437. X
  3438. X  while(arg[i] != '\0'){
  3439. X    if(arg[i] == '!') e++;
  3440. X    if(arg[i] == '@') g++;
  3441. X    i++;
  3442. X  }
  3443. X  s[0] = '\0';
  3444. X
  3445. X  if((e == 0) && (g == 0)) return (int) 0;
  3446. X
  3447. X  if(e > 1) international++;
  3448. X
  3449. X  if(e == 0){
  3450. X
  3451. X    l = strlen( (UNSIGNED char *) arg);
  3452. X
  3453. X    a = strlen( (UNSIGNED char *) NAT_DOMAIN1 );
  3454. X    strcpy(s, (UNSIGNED char *) strcopy(arg, (l-a), l));
  3455. X    if(strcomp(s, NAT_DOMAIN1) == 0) f++;
  3456. X
  3457. X    a = strlen( (UNSIGNED char *) NAT_DOMAIN2 );
  3458. X    strcpy(s, (UNSIGNED char *) strcopy(arg, (l-a), l));
  3459. X    if(strcomp(s, NAT_DOMAIN2) == 0) f++;
  3460. X
  3461. X    a = strlen( (UNSIGNED char *) NAT_DOMAIN3 );
  3462. X    strcpy(s, (UNSIGNED char *) strcopy(arg, (l-a), l));
  3463. X    if(strcomp(s, NAT_DOMAIN3) == 0) f++;      
  3464. X
  3465. X    if(f == 0) international++;
  3466. X  }  
  3467. X
  3468. X  if(international != 0){
  3469. X    ansi2("md", 0, 0);
  3470. X    printf("\n\n%s (%d) %s\n", MAL01_MSG, WRITE_INTERNAT, MAL02_MSG);
  3471. X    ansi2("me", 0 ,0);
  3472. X    return (int) -1;    
  3473. X  }
  3474. X
  3475. X  return (int) 0;
  3476. X}
  3477. X
  3478. X
  3479. X
  3480. X
  3481. END_OF_FILE
  3482.   if test 9453 -ne `wc -c <'mbox/src/lesen.c'`; then
  3483.     echo shar: \"'mbox/src/lesen.c'\" unpacked with wrong size!
  3484.   fi
  3485.   # end of 'mbox/src/lesen.c'
  3486. fi
  3487. if test -f 'mbox/src/suchen.c' -a "${1}" != "-c" ; then 
  3488.   echo shar: Will not clobber existing file \"'mbox/src/suchen.c'\"
  3489. else
  3490.   echo shar: Extracting \"'mbox/src/suchen.c'\" \(6852 characters\)
  3491.   sed "s/^X//" >'mbox/src/suchen.c' <<'END_OF_FILE'
  3492. X/* ix/MBox (suchen.c) by Volker Schuermann, 04.12.1993
  3493. X
  3494. X   This C source code contains the following functions:
  3495. X
  3496. X   #SU suchen()           search & find patterns in newsgroups
  3497. X   #ED edit()             edit articles
  3498. X   #KB kombinieren()      combine a couple of mails
  3499. X   #SE security_ed()      close a serious security gap with external editors
  3500. X
  3501. X   Contact <volkers@unnet.wupper.de> for help! */
  3502. X
  3503. X
  3504. X
  3505. X
  3506. X
  3507. X
  3508. X
  3509. X
  3510. X#include <stdio.h>
  3511. X#include <signal.h>
  3512. X#include <sys/types.h>
  3513. X#include <sys/stat.h>
  3514. X
  3515. X#include "mbox.h"
  3516. X
  3517. X
  3518. X
  3519. X
  3520. X
  3521. X/* #SU - Find the pattern [muster] in the current newsgroup. */
  3522. X
  3523. Xvoid suchen( muster )
  3524. XUNSIGNED char muster[];
  3525. X{
  3526. X  FILE *fp;
  3527. X  FILE *ff;
  3528. X
  3529. X  UNSIGNED char s[STRING];
  3530. X  UNSIGNED char t[STRING];
  3531. X  UNSIGNED char tmp[STRING];
  3532. X  UNSIGNED char hl[STRING];
  3533. X  UNSIGNED char ex[LONGSTRING];
  3534. X  UNSIGNED char fx[LONGSTRING];
  3535. X
  3536. X  int fpid;
  3537. X  int found = 0;
  3538. X  int ok = 0;
  3539. X  int i, j;
  3540. X  
  3541. X
  3542. X  if(muster[0] == '\0'){
  3543. X    ansi2( "md", 0, 0 );
  3544. X    printf("\n\n%s ", SUC01_MSG);
  3545. X    ansi2( "me", 0, 0 );
  3546. X    strcpy(muster, (UNSIGNED char *) getline(60, 1, 32, ""));
  3547. X    if(muster[0] == '\0'){
  3548. X        printf(" <- %s\n", SUC02_MSG);
  3549. X        return;
  3550. X    }
  3551. X  }
  3552. X
  3553. X  i = 0;
  3554. X  while(muster[i] != '\0'){
  3555. X    if(muster[i] == '"') muster[i] = ' ';
  3556. X    i++;
  3557. X  }
  3558. X
  3559. X  sprintf(hl, " %s \"%s\" %s [%s] ", SUC03_MSG, (UNSIGNED char *) stripped(muster), SUC04_MSG, NG);
  3560. X  headline( hl );
  3561. X
  3562. X  printf("%s .", SUC05_MSG);
  3563. X
  3564. X  sprintf(tmp, "%s/such.%d", GLOBAL_TMP, getpid());
  3565. X
  3566. X  if(strcomp("PM", BRETT) == 0){
  3567. X    sprintf(t, "%s/usr/%c/%d", HOME, USER.name[0], USER.id);
  3568. X    chdir( t );
  3569. X  }
  3570. X  else{
  3571. X    chdir( BRETT );
  3572. X  }
  3573. X
  3574. X  switch( (fpid = fork()) ){
  3575. X        case -1 :
  3576. X                break;
  3577. X        case  0 :    while(1){
  3578. X                    printf(".");
  3579. X                    sleep(3);
  3580. X                }    
  3581. X                break;
  3582. X  }
  3583. X
  3584. X  sprintf(s, "%s \"%s\" * > %s 2> %s", GREP, (UNSIGNED char *) stripped(muster), tmp, CPRN);
  3585. X  system( s );
  3586. X
  3587. X  kill( fpid, SIGKILL );
  3588. X  (void) wait( &fpid );
  3589. X
  3590. X  printf("%c", CR);
  3591. X
  3592. X  sprintf(t, "%s/sres.%d", GLOBAL_TMP, getpid());  
  3593. X 
  3594. X  ff = fopen( t, "w" );
  3595. X  if(ff == NULL){
  3596. X  }
  3597. X
  3598. X  fp = fopen( tmp, "r" );
  3599. X  if(fp == NULL){
  3600. X    
  3601. X  }
  3602. X  while((fgets(ex, LONGSTRING, fp) != NULL) && (ok == 0)){
  3603. X    if(atoi(ex) != 0){    
  3604. X        i = 0;            
  3605. X        while((ex[i] != '\0') && (ex[i] != ':')) i++;
  3606. X        j = i + 1;
  3607. X        strcpy(fx, (UNSIGNED char *) bigcopy(ex, 0, (i - 1)));
  3608. X        fprintf(ff, "%-8s", fx);
  3609. X        i++;
  3610. X        
  3611. X        while((ex[i] != '\0') && (ex[i] != ':')) i++;
  3612. X        strcpy(fx, (UNSIGNED char *) bigcopy(ex, j, (i - 1)));
  3613. X        fprintf(ff, "%6s    ", fx);        
  3614. X        j = i + 1;
  3615. X
  3616. X        strcpy(fx, (UNSIGNED char *) bigcopy(ex, j, (strlen(ex))));
  3617. X    
  3618. X        fx[61] = '\0';
  3619. X    
  3620. X        fprintf(ff, "%s\n", stripped(fx));
  3621. X
  3622. X        found++;
  3623. X    }
  3624. X  }
  3625. X  fclose(fp);
  3626. X  fclose(ff);
  3627. X
  3628. X  chdir( HOME );
  3629. X
  3630. X  if(found == 0){
  3631. X    printf("%s \"%s\" %s\n", SUC06_MSG, (UNSIGNED char *) stripped(muster), SUC07_MSG);
  3632. X  }
  3633. X  else{
  3634. X    headblock( hl, SUC06aMSG );
  3635. X    show(t, 9999, USER.more + 100);
  3636. X  }
  3637. X
  3638. X  unlink( tmp );
  3639. X  unlink( t );
  3640. X}
  3641. X
  3642. X
  3643. X/* #ED - Reedit a file [arg] (number, not path!). */
  3644. X
  3645. Xvoid edit( arg )
  3646. XUNSIGNED char arg[];
  3647. X{
  3648. X  FILE *fp;
  3649. X  FILE *ff;
  3650. X
  3651. X  UNSIGNED char s[STRING];
  3652. X  UNSIGNED char t[STRING];
  3653. X  UNSIGNED char d[STRING];
  3654. X  UNSIGNED char p1[STRING];
  3655. X  UNSIGNED char p2[STRING];
  3656. X
  3657. X  int ok = 0;
  3658. X  int yet = 0;
  3659. X
  3660. X  if (arg[0] == '\0') {
  3661. X    ansi2( "md", 0, 0 );
  3662. X    printf(" <- %s\n", SUC07aMSG);
  3663. X    ansi2( "me", 0, 0 ); 
  3664. X    return;
  3665. X  }
  3666. X
  3667. X  if (strcomp(BRETT, "PM") != 0) {
  3668. X        sprintf(t, "%s/%s", BRETT, arg); 
  3669. X  }
  3670. X  else {
  3671. X    sprintf(t, "%s/usr/%c/%d/%s", HOME, USER.name[0], USER.id, arg);
  3672. X  }
  3673. X  
  3674. X  if((USER.level < ADMIN_LEV) && (USER.level >= EXE_LEV)){
  3675. X     fp = fopen( t, "r" );
  3676. X    if(fp == NULL){
  3677. X        ansi2( "md", 0, 0 );
  3678. X        printf(" <- %s\n", SUC10_MSG);
  3679. X        ansi2( "me", 0, 0 ); 
  3680. X        return;
  3681. X    }
  3682. X    while((fgets(s, STRING, fp) != 0) && (ok == 0)){
  3683. X        if(strcomp("From: ", s) == 0){
  3684. X            strcpy(d, (UNSIGNED char *) strcopy(s, 6, STRING));
  3685. X            if(strcomp(USER.name, d) == 0) ok++;
  3686. X        }
  3687. X    }
  3688. X    fclose(fp);
  3689. X    if(ok == 0){
  3690. X        ansi2( "md", 0, 0 );
  3691. X        printf(" <- %s\n", SUC09_MSG);
  3692. X        ansi2( "me", 0, 0 ); 
  3693. X        return;
  3694. X    }
  3695. X  }
  3696. X
  3697. X  if(USER.level >= EXE_LEV){
  3698. X
  3699. X    noctrlx();
  3700. X    security_ed( t );
  3701. X    ctrlx();
  3702. X  }
  3703. X  else{
  3704. X    sprintf(p1, "%s/%dED1", TMP, getpid());
  3705. X    sprintf(p2, "%s/%dED2", TMP, getpid());
  3706. X
  3707. X    fp = fopen( t, "r" );
  3708. X    if(fp == NULL){
  3709. X        ansi2( "md", 0, 0 );
  3710. X        printf(" <- %s\n", SUC08_MSG);
  3711. X        ansi2( "me", 0, 0 ); 
  3712. X        return;
  3713. X    }
  3714. X     ff = fopen( p1, "w" );
  3715. X    while(fgets(s, STRING, fp) != NULL){
  3716. X        fputs(s, ff);
  3717. X        if(strcomp("From: ", s) == 0){
  3718. X            strcpy(d, (UNSIGNED char *) strcopy(s, 6, STRING));
  3719. X            if(strcomp(USER.name, d) == 0) ok++;
  3720. X        }
  3721. X        if((strlen(s) < 3) && (yet == 0)){
  3722. X            fclose(ff);
  3723. X            ff = fopen( p2, "w" );
  3724. X            yet++;
  3725. X        }
  3726. X    }
  3727. X    fclose(fp);
  3728. X    fclose(ff);
  3729. X
  3730. X    if(ok == 0){
  3731. X        ansi2( "md", 0, 0 );
  3732. X        printf(" <- %s\n", SUC09_MSG);
  3733. X        ansi2( "me", 0, 0 ); 
  3734. X        unlink( p1 );
  3735. X        unlink( p2 );
  3736. X        return;
  3737. X    }
  3738. X
  3739. X    noctrlx();
  3740. X    security_ed( p2 );
  3741. X    ctrlx();
  3742. X
  3743. X    sprintf(s, "cat %s > %s", p1, t);
  3744. X    system( s );
  3745. X    sprintf(s, "cat %s >> %s", p2, t);
  3746. X    system( s );
  3747. X
  3748. X    unlink( p1 );
  3749. X    unlink( p2 );
  3750. X  }
  3751. X}
  3752. X
  3753. X
  3754. X
  3755. X
  3756. X
  3757. X/* #KB - Combine a couple of mails [arg]. */
  3758. X
  3759. Xvoid kombinieren( arg )
  3760. XUNSIGNED char arg[];
  3761. X{
  3762. X  FILE *fp;
  3763. X  FILE *ff;
  3764. X
  3765. X  UNSIGNED char s[STRING];
  3766. X  UNSIGNED char t[STRING];
  3767. X
  3768. X  int i = 0, a = 0, n;
  3769. X  int runde = 0;
  3770. X
  3771. X  strcat(arg, " ");
  3772. X
  3773. X  while(arg[i] != '\0'){
  3774. X    if(arg[i] == ' '){
  3775. X        runde++;
  3776. X        strcpy(t, (UNSIGNED char *) strcopy(arg, a, (i-1)));
  3777. X        a = i + 1;
  3778. X        if(atoi(t) != 0){
  3779. X            if(runde == 1){
  3780. X                sprintf(s, "%s/usr/%c/%d/%d", HOME, USER.name[0], USER.id, atoi(t));
  3781. X                fp = fopen( s, "r" );
  3782. X                if(fp == NULL){
  3783. X                    printf(" <- %s\n", SUC11_MSG);
  3784. X                    return;
  3785. X                }
  3786. X                fclose(fp);
  3787. X                fp = fopen( s, "a" );
  3788. X            }
  3789. X            else{
  3790. X                fprintf(fp, "\n+ + +  S T O P  + + +\n");
  3791. X            
  3792. X                sprintf(s, "%s/usr/%c/%d/%d", HOME, USER.name[0], USER.id, atoi(t));
  3793. X                ff = fopen( s, "r" );
  3794. X                if(ff != NULL){
  3795. X                    while(fgets(s, STRING, ff) != NULL){
  3796. X                        fputs(s, fp);        
  3797. X                    }
  3798. X                    fclose(ff);
  3799. X
  3800. X                    loeschen( t );
  3801. X                }
  3802. X            }
  3803. X        }
  3804. X    }
  3805. X    i++;
  3806. X  }
  3807. X  fclose(fp);
  3808. X}
  3809. X
  3810. X
  3811. X
  3812. X/* #SE - Edit the file [path] with any editor */
  3813. X
  3814. Xsecurity_ed( path )
  3815. XUNSIGNED char path[];
  3816. X{
  3817. X  UNSIGNED char s[STRING];
  3818. X  UNSIGNED char t[STRING];
  3819. X
  3820. X  UNSIGNED char *home;
  3821. X
  3822. X  struct stat fst;
  3823. X 
  3824. X  mode_t mode;
  3825. X  uid_t uid;
  3826. X  short int gid;
  3827. X
  3828. X  int is_new = 0;
  3829. X
  3830. X  stat(path, &fst);
  3831. X  mode = fst.st_mode;
  3832. X  uid  = fst.st_uid;
  3833. X  gid  = fst.st_gid;
  3834. X
  3835. X  sprintf(t, "%s/%d.ED", GLOBAL_TMP, getpid());
  3836. X  if(mbrename( path, t ) != 0){
  3837. X
  3838. X    /*    
  3839. X    printf("\nCan't rename %s -> %s\n", path, t);
  3840. X    It might be a NEW file, so it doesn't matter!
  3841. X    */    
  3842. X
  3843. X    is_new ++;
  3844. X  }
  3845. X
  3846. X  chmod( t, 0777 );
  3847. X
  3848. X  home = (UNSIGNED char *) getenv( "HOME" );
  3849. X
  3850. X  chdir( home );
  3851. X
  3852. X  noctrlx();
  3853. X  sprintf(s, "exec %s/%s %s %s %d %d", HOME, RSH, EDDY, t, OLDUID, OLDGID);
  3854. X  system(s);
  3855. X  ctrlx();
  3856. X
  3857. X  chdir( HOME );
  3858. X
  3859. X  if(mbrename( t, path ) != 0){
  3860. X    printf("\nCan't rename %s -> %s\n", t, path);
  3861. X  }
  3862. X
  3863. X  if(is_new) return;
  3864. X
  3865. X  chmod( path, mode );
  3866. X
  3867. X#ifdef _SYS7  
  3868. X  chown( path, uid, gid );
  3869. X#else
  3870. X  chown( path, uid, gid );
  3871. X
  3872. X  /* SVR3, SVR4 maybe this way ???
  3873. X
  3874. X  chown( path, uid );
  3875. X  chgrp( path, gid );
  3876. X
  3877. X  */
  3878. X#endif
  3879. X}
  3880. X
  3881. END_OF_FILE
  3882.   if test 6852 -ne `wc -c <'mbox/src/suchen.c'`; then
  3883.     echo shar: \"'mbox/src/suchen.c'\" unpacked with wrong size!
  3884.   fi
  3885.   # end of 'mbox/src/suchen.c'
  3886. fi
  3887. echo shar: End of archive 9 \(of 12\).
  3888. cp /dev/null ark9isdone
  3889. MISSING=""
  3890. for I in 1 2 3 4 5 6 7 8 9 10 11 12 ; do
  3891.     if test ! -f ark${I}isdone ; then
  3892.     MISSING="${MISSING} ${I}"
  3893.     fi
  3894. done
  3895. if test "${MISSING}" = "" ; then
  3896.     echo You have unpacked all 12 archives.
  3897.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  3898. else
  3899.     echo You still must unpack the following archives:
  3900.     echo "        " ${MISSING}
  3901. fi
  3902. exit 0
  3903. exit 0 # Just in case...
  3904.