home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume35 / mbox / part14 < prev    next >
Encoding:
Text File  |  1993-02-04  |  54.0 KB  |  1,840 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  3. Subject: v35i049:  mbox - ix/Mbox, A BBS for UNIX and MINIX v1.6 PL10j7, Part14/15
  4. Message-ID: <1993Feb5.190001.10879@sparky.imd.sterling.com>
  5. X-Md4-Signature: 369faef603273dbbf1023fb86ccb8df7
  6. Date: Fri, 5 Feb 1993 19:00:01 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  10. Posting-number: Volume 35, Issue 49
  11. Archive-name: mbox/part14
  12. Environment: MINIX, ISC, ESIX, SVR3
  13. Supersedes: mbox: Volume 31, Issue 16-27
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then feed it
  17. # into a shell via "sh file" or similar.  To overwrite existing files,
  18. # type "sh file -c".
  19. # Contents:  FAQ etc/alias.sh etc/english.befehl etc/help.befehle
  20. #   etc/mbox.packers etc/rmail.sh etc/sysinfo.U etc/xmd.alias rz.cdiff
  21. #   src/CROSSREF src/HISTORY src/baudrate.c src/befehl.c src/bled.doc
  22. #   src/derror.c src/dis.c src/getch.c src/help.c src/nerror.c
  23. #   src/outdial.c wendy/echo.c wendy/english.hlp wendy/getch.c
  24. #   wendy/wendy.h
  25. # Wrapped by kent@sparky on Fri Feb  5 12:18:19 1993
  26. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  27. echo If this archive is complete, you will see the following message:
  28. echo '          "shar: End of archive 14 (of 15)."'
  29. if test -f 'FAQ' -a "${1}" != "-c" ; then 
  30.   echo shar: Will not clobber existing file \"'FAQ'\"
  31. else
  32.   echo shar: Extracting \"'FAQ'\" \(2491 characters\)
  33.   sed "s/^X//" >'FAQ' <<'END_OF_FILE'
  34. XFAQs // ix/MBox BBS 1.6 PL10j7 // 25.01.1993
  35. X
  36. X
  37. XQ: Why does the BBS 'core', when I try to start it the FIRST time?
  38. XA: Maybe you've forgotten to 'make world' first?
  39. X
  40. XQ: Why does the BBS speak german?
  41. XA: You have to 'make english' to get the english version.
  42. X
  43. XQ: Why doesn't the BBS report any boards with OLD articles?
  44. XA: Type in 'mb-daemon all -x' and be patient ... (you have to be ROOT !)
  45. X   Check your 'Boards'-Entry with the 'admin' command!
  46. X
  47. XQ: Why doesn't the BBS report any boards with NEW articles?
  48. XA: Check your scanner-date. Use 'setup'!
  49. X
  50. XQ: Why do I always get problems if I try to mail or write something?
  51. XA: It sounds like you've forgotten to use SETUID root.root for [mbox].
  52. X
  53. XQ: Why does the BBS terminate everytime I try to get in as ROOT?
  54. XA: You've defined the ONE AND ONLY terminal, which ROOT may use, in
  55. X   [mbox.h], do you remember??
  56. X
  57. XQ: Why do I never see new NEWS in the boards of BBS?
  58. XA: Maybe you never start MB-DAEMON by cron!?
  59. X
  60. XQ: Why do I only get a few newsgroups instead of all?
  61. XA: Use the command "admin" and choose "change user" option. There you'll
  62. X   find a "newsgroups" entry. Delete the list of groups and just type "all"!
  63. X
  64. XQ: Why do I have trillions of mails in postmasters maildrop?
  65. XA: You should start XMD by cron hourly!
  66. X
  67. XQ: Why does XMD crash instead of delivering mails?
  68. XA: It has to be owned by 'root.root'!
  69. X
  70. XQ: Why seems MB-DAEMON to be sooooo slow?
  71. XA: Spend a TMP-directory on the same FS as HOME|MBOXHOME!
  72. X
  73. XQ: Why do I get addresses like this in UUCP-Spoolfiles:
  74. X   From: unnet!Volker.Schuermann@unnet.w.open.DE
  75. XA: It's a problem with RMAIL. Have a look at README.addrpatch to fix it!
  76. X
  77. XQ: How can I include ELM etc. to the BBS command set?
  78. XA: Check README, Section: User defined Commands!
  79. X
  80. XQ: Why does the BBS blow up, when I use C-NEWS?
  81. XA: Maybe I haven't implemented the aliasing mechanism correct - please
  82. X   tell me, how it works!
  83. X
  84. XQ: Is there any risk to loose one of my system-files?
  85. XA: Yes, If you play around with MB-DAEMON, you may destroy [~/news/active]!
  86. X   Be clever: Copy first, destroy later ;-)
  87. X
  88. XQ: Why does my SMAIL create a second Message-ID & Received-Field ?
  89. XA: Just set the SMAIL-Flag "-received_field". To make live easier, append
  90. X   the flag "error_copy_postmaster", too! 
  91. X
  92. XQ: It it possible to port the BBS to system XYZ?
  93. XA: Just try it :-) If you've done so, send the DIFFs to me!
  94. X
  95. XQ: Are there any plans to develope further versions of this BBS?
  96. XA: Surely! Join our Mailing-List to stay put - see README how to do that!
  97. X
  98. X
  99. END_OF_FILE
  100.   if test 2491 -ne `wc -c <'FAQ'`; then
  101.     echo shar: \"'FAQ'\" unpacked with wrong size!
  102.   fi
  103.   # end of 'FAQ'
  104. fi
  105. if test -f 'etc/alias.sh' -a "${1}" != "-c" ; then 
  106.   echo shar: Will not clobber existing file \"'etc/alias.sh'\"
  107. else
  108.   echo shar: Extracting \"'etc/alias.sh'\" \(908 characters\)
  109.   sed "s/^X//" >'etc/alias.sh' <<'END_OF_FILE'
  110. X#---------------------------------------------------------------------------
  111. X#
  112. X#                       ix/MBox  A L I A S . S H
  113. X#          Mailbox-Programm fuer UNIX(-Derivate)
  114. X#            
  115. X#               Volker Schuermann
  116. X#              Wuppertal, FRG, 08.12.1991
  117. X#
  118. X#---------------------------------------------------------------------------
  119. X# Dieses Script fuegt einen Eintrag fuer jeden neuen User der ix/MBox an die
  120. X# Alias-Datei von SMAIL (etc.) an und erzeugt einen neue Alias-Datenbank. 
  121. X#
  122. X# Wird UMAIL statt SMAIL verwendet, sollten alle Zeilen dieses Scripts' aus-
  123. X# kommentiert werden.
  124. X#---------------------------------------------------------------------------
  125. X# Parameter:
  126. X#
  127. X# $1  ->  Name des neuen Users im Format "Vorname.Nachname"
  128. X# 
  129. X# Beispiel:
  130. X#
  131. X# echo $1 "        " \"\|/usr/bin/xmd $1 -\" >> /usr/lib/smail/aliases
  132. X# /usr/bin/mkaliases
  133. X
  134. Xecho $1 "        " \"\|/usr/bin/xmd $1 -\" >> /usr/lib/smail/aliases
  135. X#/usr/bin/mkaliases
  136. END_OF_FILE
  137.   if test 908 -ne `wc -c <'etc/alias.sh'`; then
  138.     echo shar: \"'etc/alias.sh'\" unpacked with wrong size!
  139.   fi
  140.   # end of 'etc/alias.sh'
  141. fi
  142. if test -f 'etc/english.befehl' -a "${1}" != "-c" ; then 
  143.   echo shar: Will not clobber existing file \"'etc/english.befehl'\"
  144. else
  145.   echo shar: Extracting \"'etc/english.befehl'\" \(2169 characters\)
  146.   sed "s/^X//" >'etc/english.befehl' <<'END_OF_FILE'
  147. X/***************************************************************************/
  148. X/* Please make changes to this file VERY wisely! Remember that you have to */
  149. X/* list D(ir) before DA(te) and M(ail) before MA(cro) to stay conform with */
  150. X/* GEONET etc. ...                               */
  151. X/*                                           */
  152. X/*                 Description                           */
  153. X/* ======================================================================= */
  154. X/* ID            - Number of command (see 'loop.c')               */
  155. X/* Intern        - Need Userlevel X to execute the command           */
  156. X/* Extern        - Oldfashioned diff between int. & ext. access           */
  157. X/* Prototyp      - If this value is '1', the command is shown in helpfile  */
  158. X/* Befehl        - That's the name of the command               */
  159. X/*                                       */
  160. X/*                                       */
  161. X/* NOTE: Leave ONE blank line between this comment-box and the ID-Line!    */
  162. X/***************************************************************************/
  163. X
  164. XID    Intern  Extern  Prototyp  Befehl 
  165. X===============================================
  166. X110    0    0    1    +
  167. X120    0    0    1    -
  168. X260    0    0    1    Account
  169. X125    9    9    0    Admin
  170. X460    0    0    1    Area
  171. X150    0    0    1    Board
  172. X170    0    0    1    Chat
  173. X200    0    0    1    Dir
  174. X370    0    0    1    Date
  175. X220    1    1    1    Delete
  176. X440    0    0    1    Download
  177. X150    0    0    0    Cd
  178. X490      0    0    1    Discussion
  179. X400     0       0       1       Direction
  180. X180    0    0    0    End
  181. X480      1    1    1    Edit
  182. X300    1    1    1    Finger
  183. X340    1    1    1    Forward
  184. X390     0    0    1    Games
  185. X180    0    0    1    Goodbye
  186. X180    0    0    0    Quit
  187. X180    0    0    0    Bye
  188. X190    0    0    1    Help
  189. X160    0    2    1    Mail
  190. X330     0       0       1       Macro
  191. X140    0    0    1    Message
  192. X240    6    6    1    Minix
  193. X510    9    9    1    Monitor
  194. X240    6    6    0    Execute
  195. X450     7    7    0    Outdial
  196. X270    0    0    1    Portinfo
  197. X130    0    0    1    Protocol
  198. X250    0    0    1    PM
  199. X210    0    0    1    Read
  200. X280    0    0    1    Setup
  201. X470    0    0    1    Sysinfo
  202. X280    0    0    0    Password
  203. X280    0    0    0    Ansi
  204. X280    0    0    0    Bell
  205. X280    0    0    0    Address
  206. X310    1    0    1    Signature
  207. X290    0    0    1    State
  208. X410     0       0       1       Statistics
  209. X430     1       1       1       Search
  210. X380    0    0    1    Time
  211. X300    0    0    1    Users
  212. X320    0    0    1    Version        
  213. X230    0    5    1    Write
  214. X270    0    0    0    Who
  215. X420    0    0    0    RING
  216. X195    0    1    0    ~PD
  217. X215    0    0    0    Level
  218. X275    9    9    0    Relogin
  219. X350     0       0       0       Sleep
  220. X360     0       0       0       Keypressed
  221. X230     0       5       1       Upload
  222. X180     0       0       0       RING
  223. X998    2    2    0    ~MAIL_DUMMY
  224. END_OF_FILE
  225.   if test 2169 -ne `wc -c <'etc/english.befehl'`; then
  226.     echo shar: \"'etc/english.befehl'\" unpacked with wrong size!
  227.   fi
  228.   # end of 'etc/english.befehl'
  229. fi
  230. if test -f 'etc/help.befehle' -a "${1}" != "-c" ; then 
  231.   echo shar: Will not clobber existing file \"'etc/help.befehle'\"
  232. else
  233.   echo shar: Extracting \"'etc/help.befehle'\" \(2904 characters\)
  234.   sed "s/^X//" >'etc/help.befehle' <<'END_OF_FILE'
  235. X/***************************************************************************/
  236. X/* Wer diese Datei aendert sollte GENAU wissen was er tut. Die Reihen-     */
  237. X/* folge der Befehle ist NICHT willkuerlich festgelegt worden, sondern     */
  238. X/* entspricht der Vorgabe fuer GEOnet-Befehle und deren Abkuerzungen.      */
  239. X/*                                       */
  240. X/* S(chreiben) kommt vor SE(tup) und L(esen) vor LOE(schen) etc. ... wer   */
  241. X/* sich nicht voellig sicher ist, sollte die Datei einfach im Urzustand    */
  242. X/* belassen.                                   */
  243. X/*                                           */
  244. X/*                 Die Bedeutung der versch. Spalten                */
  245. X/* ======================================================================= */
  246. X/* ID            - Nummer des Befehls (siehe "loop()")               */
  247. X/* Intern        - Benoetigtes Userlevel                   */
  248. X/* Extern        - Bei einigen Befehle wird unterscheiden zwischen intern  */
  249. X/*           und extern. Z.B. beim Befehl "schreiben" wird diese     */
  250. X/*           Regelung angewendet, damit User zwar an die lokalen     */
  251. X/*           Bretter senden duerfen, nicht aber an die externen.     */
  252. X/* Prototyp      - Enthaelt diese Spalte eine '1', wird der Befehl bei der */
  253. X/*           Befehlsuebersicht angezeigt.                   */
  254. X/* Befehl        - Unter diesem Namen wird der Befehl aufgerufen           */
  255. X/*                                       */
  256. X/*                                       */
  257. X/* ACHTUNG: Zwischen Kommentar und Ueberschrift EINE Leerzeile einfuegen ! */
  258. X/***************************************************************************/
  259. X
  260. XID    Intern  Extern  Prototyp  Befehl 
  261. X===============================================
  262. X110    0    0    1    +
  263. X120    0    0    1    -
  264. X130    0    0    1    Anrufer
  265. X140    1    0    1    Ansage
  266. X150    0    0    1    Brett
  267. X160    0    2    1    Brief
  268. X170    0    0    1    Chat
  269. X490    0    0    1    Diskussion
  270. X170    0    0    0    Dialog
  271. X370    0    0    0    Datum
  272. X170    0    0    0    Co
  273. X999    0    0    1    Demo
  274. X440     0       0       1       Download
  275. X210    0    0    1    Lesen
  276. X480    1    1    1    Edit
  277. X180    0    0    1    Ende
  278. X180    0    0    0    Quit
  279. X180    0    0    0    Log
  280. X460    0    0    0    Area
  281. X460    0    0    1    Gruppe
  282. X180    0    0    0    Goodbye
  283. X190    0    0    1    Hilfe
  284. X195    0    1    0    ~PD
  285. X200    0    0    1    Inhalt
  286. X200    0    0    0    Dir
  287. X205    0    0    0    Id
  288. X215    0    0    0    Level
  289. X220    1    1    1    Loeschen
  290. X330     0       0       1       Makro
  291. X240    8    8    1    Minix
  292. X510    9    9    1    Monitor
  293. X240    8    8    0    Execute
  294. X450    1    1    1    Outdial
  295. X450    1    1    0    Od
  296. X270    0    0    1    Portinfo
  297. X270    0    0    0    Who
  298. X270    0    0    0    Wer
  299. X260    0    0    1    Postfach
  300. X260    0    0    0    Antrag
  301. X275    9    9    0    Relogin
  302. X400     0       0       1       Richtung
  303. X230    0    5    1    Schreiben
  304. X280    0    0    1    Setup
  305. X390     0    0    1    Spiele
  306. X430    1    1    1    Suchen
  307. X470    0    0    1    Sysinfo
  308. X280    0    0    0    Passwort
  309. X280    0    0    0    Ansi
  310. X280    0    0    0    Bell
  311. X280    0    0    0    Anschrift
  312. X290    0    0    1    Status
  313. X410     0       0       1       Statistik
  314. X300    0    0    1    User
  315. X310    1    0    1    Unterschrift
  316. X230     0       5       1       Upload
  317. X500    0    0    1    Umlaut
  318. X320    0    0    1    Version        
  319. X340    1    1    1    Weiterleiten
  320. X380    0    0    0    Zeit
  321. X125    9    9    0    Admin
  322. X130    0    0    0    Protokoll
  323. X250    0    0    1    PM
  324. X150    0    0    0    Cd
  325. X300    0    0    0    Finger
  326. X160    0    2    0    Mail
  327. X180    0    0    0    Quit
  328. X180    0    0    0    Exit
  329. X180    0    0    0    Logout
  330. X420    0    0    0    RING
  331. X350     0       0       0       Sleep
  332. X360     0       0       0       Keypressed
  333. X998    7    7    0    ~MAIL_DUMMY
  334. END_OF_FILE
  335.   if test 2904 -ne `wc -c <'etc/help.befehle'`; then
  336.     echo shar: \"'etc/help.befehle'\" unpacked with wrong size!
  337.   fi
  338.   # end of 'etc/help.befehle'
  339. fi
  340. if test -f 'etc/mbox.packers' -a "${1}" != "-c" ; then 
  341.   echo shar: Will not clobber existing file \"'etc/mbox.packers'\"
  342. else
  343.   echo shar: Extracting \"'etc/mbox.packers'\" \(798 characters\)
  344.   sed "s/^X//" >'etc/mbox.packers' <<'END_OF_FILE'
  345. X/***************************************************************************/
  346. X/* In dieser Datei befindet sich eine Liste von Komprimieren und Archi-    */
  347. X/* vierern ueber die Artikel im Download-Modus gepackt werden koennen.       */
  348. X/*                                       */
  349. X/* Packer    Kommando         Befehl TAR-Archiv     Endung           */
  350. X/* ======================================================================= */
  351. X/* Compress4.3    /usr/bin/compress    ?    +      .Z           */
  352. X/* Lharc1.02    /usr/bin/lharc a    -a    -      .lzh              */
  353. X/*                                       */
  354. X/* ACHTUNG: Zwischen Kommentar und Liste EINE Leerzeile einfuegen !       */
  355. X/***************************************************************************/
  356. X
  357. XCompress4.3    /usr/bin/compress    ?    +    .Z
  358. XLharc1.02    /usr/bin/lharc        a    -    .lzh
  359. XZoo2.1        /usr/bin/zoo        -add    -    .zoo
  360. XFreeze1.1    /usr/bin/freeze        ?    +    .F
  361. X
  362. X
  363. END_OF_FILE
  364.   if test 798 -ne `wc -c <'etc/mbox.packers'`; then
  365.     echo shar: \"'etc/mbox.packers'\" unpacked with wrong size!
  366.   fi
  367.   # end of 'etc/mbox.packers'
  368. fi
  369. if test -f 'etc/rmail.sh' -a "${1}" != "-c" ; then 
  370.   echo shar: Will not clobber existing file \"'etc/rmail.sh'\"
  371. else
  372.   echo shar: Extracting \"'etc/rmail.sh'\" \(993 characters\)
  373.   sed "s/^X//" >'etc/rmail.sh' <<'END_OF_FILE'
  374. X#---------------------------------------------------------------------------
  375. X#
  376. X#                       ix/MBox  R M A I L . S H
  377. X#          Mailbox-Programm fuer UNIX(-Derivate)
  378. X#            
  379. X#               Volker Schuermann
  380. X#              Wuppertal, FRG, 08.12.1991
  381. X#
  382. X#---------------------------------------------------------------------------
  383. X# Dieses Script uebergibt eine "persoenliche Mail" und eine Empfaenger-
  384. X# Adresse an das Programm RMAIL. Die "persoenliche Mail" enthaelt bereits
  385. X# einen (fast) kompletten Header !
  386. X#
  387. X# Bei Verwendung von SMAIL sollte "config.mbox" speziell fuer die Unter-
  388. X# drueckung der SMAIL-Message-ID etc. konfiguriert werden.
  389. X#---------------------------------------------------------------------------
  390. X# Parameter:
  391. X#
  392. X# $1  ->  Name der Datei ("persoenliche Mail" s.o.)
  393. X# $2  ->  Empfaenger der Mail
  394. X# 
  395. X# Beispiel:
  396. X#
  397. X# rmail -d -i $1 $2
  398. X#
  399. X# Oder:
  400. X# 
  401. X# smail -i -C /usr/local/lib/smail/config.mbox $2 < $1
  402. X#
  403. X# config.mbox ->
  404. X# -recieved_field
  405. X# copy_error_postmaster   
  406. X
  407. Xrmail -d -i $1 $2
  408. END_OF_FILE
  409.   if test 993 -ne `wc -c <'etc/rmail.sh'`; then
  410.     echo shar: \"'etc/rmail.sh'\" unpacked with wrong size!
  411.   fi
  412.   # end of 'etc/rmail.sh'
  413. fi
  414. if test -f 'etc/sysinfo.U' -a "${1}" != "-c" ; then 
  415.   echo shar: Will not clobber existing file \"'etc/sysinfo.U'\"
  416. else
  417.   echo shar: Extracting \"'etc/sysinfo.U'\" \(2646 characters\)
  418.   sed "s/^X//" >'etc/sysinfo.U' <<'END_OF_FILE'
  419. Xbegin 644 etc/sysinfo
  420. XM0V]N=&5N="U4>7!E.B!T97AT+W)I8VAT97AT.R *1&EE<V4@36%I;&)O>"!L
  421. XMA'5F="!A=68@96EN96T@,C @34AZ(#,X-F5R(&E.5$5,+5)E8VAN97(@;6ET
  422. XM(&-A+B R-# @34(\;FP^"E!L871T96YK87!A>FETA'0@=6YD(#@@34(@2&%U
  423. XM<'1S<&5I8VAE<BX\;FP^"CQN;#X*16EN9V5S971Z="!W:7)D(&1A<R!"971R
  424. XM:65B<W-Y<W1E;2!-24Y)6"!I;B!D97(@,S@V97(@5F5R<VEO;BX@1&%S($UA
  425. XM:6PM/&YL/@IB;WAP<F]G<F%M;2!I<W0@:7@O34)O>"P@96EN92!0<F]D=6MT
  426. XM(&%U<R!D97(@4'5B;&EC($1O;6%I;BX\;FP^"CQN;#X*17,@=V5R9&5N('IW
  427. XM96D@36]D96TM4&]R=',@86YG96)O=&5N.CQN;#X*/&YL/@I0;W)T,3H@55-2
  428. XM;V)O=&EC<R!#;W5R:65R($A35" S,# M,3DN,FL@(" @,#(P,B @-#8R,3$T
  429. XM/&YL/@I0;W)T,CH@1&EC;W9E<GD@,C0P,$,@(" @(" @(" S,# M,C0P," @
  430. XM(" @,#(P,B @-#8V,#(S-#QN;#X*/&YL/@H\0V5N=&5R/CQ";VQD/BTM+2TM
  431. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM/"]";VQD/CPO0V5N=&5R/CQN;#X*/&YL
  432. XM/@I/8G=O:&P@9&EE<V4@36%I;&)O>"!N:6-H="!K;VUM97)Z:65L;"!B971R
  433. XM:65B96X@=VER9"P@<VEN9"!E:6YI9V4@9&5R/&YL/@IA;F=E8F]T96YE;B!$
  434. XM:65N<W1E(&=E8H%H<F5N<&9L:6-H=&EG+CQN;#X*/&YL/@H)/$)O;&0^1T5"
  435. XMFDA214Y&4D5)/"]";VQD/B!I<W0Z/&YL/@H\;FP^"@EO("!D:64@0F5N=71Z
  436. XM='5N9R!D97(@36%I;&)O>#QN;#X*"6\@(&1A<R!P<FEV871E(%!O<W1F86-H
  437. XM/&YL/@H);R @9&EE($YU='IU;F<@9&5R('9E<G-C:&EE;F1E;B!01"U!<F-H
  438. XM:79E/&YL/B *"6\@(&1I92!P<FEV871E(%!O<W0@86X@5&5I;&YE:&UE<B!I
  439. XM;FYE<FAA;&(@9&5S(%-50FYE=#QN;#X*"6\@(&1I92!496EL;F%H;64@86X@
  440. XM9&5N($Y%5U,M1W)U<'!E;B B9&4N*B(\;FP^"CQN;#X*"3Q";VQD/D=%0II(
  441. XM4D5.4$9,24-(5$E'/"]";VQD/B!I<W0Z/&YL/@H\;FP^"@EO("!D97(@/$)O
  442. XM;&0^3U541$E!3#PO0F]L9#XM4V5R=FEC92 M(%9E<F)I;F1U;F<@>G4@36%I
  443. XM;&)O>&5N/&YL/@H)(" @=6YD($1A=&5N8F%N:V5N(&EM($EN+2!U;F0@075S
  444. XM;&%N9#QN;#X*"6\@(&1I92!P<FEV871E(%!O<W0@86X@5&5I;&YE:&UE<B!A
  445. XM=7-S97)H86QB(&1E<R!354)N970\;FP^"@EO("!D:64@5&5I;&YA:&UE(&%N
  446. XM(&1E;B!I;G1E<FYA=&EO;F%L96X@3D574RU'<G5P<&5N/&YL/B @( H\;FP^
  447. XM(" @( I'96YA=65R92!);F9O<FUA=&EO;F5N('5N9"!A:W1U96QL92".;F1E
  448. XM<G5N9V5N('=E<F1E;B!R96=E;&V$<W-I9R!I;3QN;#X*0G)E='0@)VQO8V%L
  449. XM+G1A;&LG(&)E:V%N;G1G96=E8F5N+CQN;#X*/&YL/@H\0V5N=&5R/CQ";VQD
  450. XM/BTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM/"]";VQD/CPO0V5N=&5R/CQN
  451. XM;#X*/&YL/@I$:64@1V5B@6AR96X@9G5E<B!D96X@:6YT97)N871I;VYA;&5N
  452. XM($U!24PM('5N9"!.15=3+5IU9W)I9F8@8F5T<F%G96X\;FP^"G!R;R!1=6%R
  453. XM=&%L+U5S97(@,3DN-3 @1$TN(%-I92!S:6YD(&%U9B!U;G1E;G-T96AE;F1E
  454. XM<R!+;VYT;R!Z=2"!8F5R+3QN;#X*=V5I<V5N+CQN;#X*/&YL/@H)5F]L:V5R
  455. XM(%-C:(%R;6%N;CQN;#X*"4MT;RX@-#$S,3,V,SQN;#X*"4)L>BX@,S,P(#4P
  456. XM," P," O(%-T861T<W!A<FMA<W-E(%=U<'!E<G1A;#QN;#X*"3Q";VQD/E-4
  457. XM24-(5T]25#PO0F]L9#X@(D%C8W0N(%5S97)N86UE(CQN;#X@(" @(" @"CQN
  458. XM;#X*0FET=&4@9&%S(#Q";VQD/E-424-(5T]25#PO0F]L9#X@=6YB961I;F=T
  459. XM(&%N9V5B96XL(&1A(&1I92!"=6-H=6YG('-O;G-T(&5V=&PN(&%L<SQN;#X*
  460. XM4W!E;F1E(&=E=V5R=&5T('=I<F0A/&YL/@H\;FP^"CQ#96YT97(^/$)O;&0^
  461. XM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2T\+T)O;&0^/"]#96YT97(^/&YL
  462. X(/@H\;FP^"@HM
  463. X 
  464. Xend
  465. END_OF_FILE
  466.   if test 2646 -ne `wc -c <'etc/sysinfo.U'`; then
  467.     echo shar: \"'etc/sysinfo.U'\" unpacked with wrong size!
  468.   else
  469.     echo shar: Uudecoding \"'etc/sysinfo'\" \(1898 characters\)
  470.     cat etc/sysinfo.U | uudecode
  471.     if test 1898 -ne `wc -c <'etc/sysinfo'`; then
  472.       echo shar: \"'etc/sysinfo'\" uudecoded with wrong size!
  473.     else
  474.       rm etc/sysinfo.U
  475.     fi
  476.   fi
  477.   # end of 'etc/sysinfo.U'
  478. fi
  479. if test -f 'etc/xmd.alias' -a "${1}" != "-c" ; then 
  480.   echo shar: Will not clobber existing file \"'etc/xmd.alias'\"
  481. else
  482.   echo shar: Extracting \"'etc/xmd.alias'\" \(1057 characters\)
  483.   sed "s/^X//" >'etc/xmd.alias' <<'END_OF_FILE'
  484. X#---------------------------------------------------------------------------
  485. X#
  486. X#                       ix/MBox  X M D . A L I A S
  487. X#          Mailbox-Programm fuer UNIX(-Derivate)
  488. X#            
  489. X#               Volker Schuermann
  490. X#              Wuppertal, FRG, 15.02.1992
  491. X#
  492. X#---------------------------------------------------------------------------
  493. X# In dieser Datei werden Empfaenger-Adressen und deren Alias gespeichert.
  494. X#
  495. X# Das Format der Eintraege ist folgendes:
  496. X#
  497. X# To: (1) Adresse, die per RMAIL uebertragen wurde
  498. X# To: (2) Adresse, die innerhalb der ix/MBox verwendet werden soll
  499. X# <LEERZEILE>
  500. X# To: (1) etc.
  501. X# To: (2) etc.
  502. X# <LEERZEILE>
  503. X#
  504. X#---------------------------------------------------------------------------
  505. X# Parameter: -keine-
  506. X
  507. XTo: Multiple recipients of <TEX-D-L@dearn.bitnet>
  508. XTo: Christian.Boehm@unnet.w.open.DE
  509. X
  510. XTo: Multiple recipients of <TEX-D-L@DEARN.uucp>
  511. XTo: Christian.Boehm@unnet.w.open.DE
  512. X
  513. XTo: Postmaster@unnet.w.open.DE
  514. XTo: Volker.Schuermann@unnet.w.open.DE
  515. X
  516. XTo: Multiple recipients of list <386bsd-list@compuram.bbt.se>
  517. XTo: Christian.Boehm@unnet.w.open.DE
  518. X
  519. X
  520. END_OF_FILE
  521.   if test 1057 -ne `wc -c <'etc/xmd.alias'`; then
  522.     echo shar: \"'etc/xmd.alias'\" unpacked with wrong size!
  523.   fi
  524.   # end of 'etc/xmd.alias'
  525. fi
  526. if test -f 'rz.cdiff' -a "${1}" != "-c" ; then 
  527.   echo shar: Will not clobber existing file \"'rz.cdiff'\"
  528. else
  529.   echo shar: Extracting \"'rz.cdiff'\" \(1562 characters\)
  530.   sed "s/^X//" >'rz.cdiff' <<'END_OF_FILE'
  531. X*** rz.c~    Sat Aug 10 13:39:34 1991
  532. X--- rz.c    Sat Aug 10 13:13:54 1991
  533. X***************
  534. X*** 1,6 ****
  535. X--- 1,8 ----
  536. X  #define VERSION "2.03 05-17-88"
  537. X  #define PUBDIR "/usr/spool/uucppublic"
  538. X  
  539. X+ /* Unnet == Modified for ix/MBox-Use !!! */
  540. X+ 
  541. X  /*% cc -compat -M2 -Ox -K -i -DMD -DOMEN % -o rz; size rz;
  542. X  <-xtx-*> cc386 -Ox -DMD -DOMEN -DSEGMENTS=8 rz.c -o $B/rz;  size $B/rz
  543. X   *
  544. X***************
  545. X*** 390,395 ****
  546. X--- 392,399 ----
  547. X  {
  548. X      register c;
  549. X  
  550. X+     strcpy(Pathname, *argp); checkpath(Pathname);  /* Unnet */
  551. X+ 
  552. X      if (Batch || argc==0) {
  553. X          Crcflg=1;
  554. X          if ( !Quiet)
  555. X***************
  556. X*** 432,439 ****
  557. X          pclose(fout);  return ERROR;
  558. X      }
  559. X  #endif
  560. X!     if (fout)
  561. X!         fclose(fout);
  562. X  #ifndef vax11c
  563. X      if (Restricted) {
  564. X          unlink(Pathname);
  565. X--- 436,445 ----
  566. X          pclose(fout);  return ERROR;
  567. X      }
  568. X  #endif
  569. X!     if (fout){
  570. X!         fflush(fout); /* Unnet */
  571. X!         fclose(fout);
  572. X!     }
  573. X  #ifndef vax11c
  574. X      if (Restricted) {
  575. X          unlink(Pathname);
  576. X***************
  577. X*** 915,922 ****
  578. X  register n;
  579. X  {
  580. X      register char *p;
  581. X!     if (n == 0)
  582. X!         return OK;
  583. X  
  584. X      if (Thisbinary) {
  585. X          for (p=buf; --n>=0; )     
  586. X--- 921,931 ----
  587. X  register n;
  588. X  {
  589. X      register char *p;
  590. X!                                                       
  591. X!     if (n == 0)
  592. X!         return OK;
  593. X!        
  594. X!     if (fout == 0) fout = fopen( Pathname, "a" );     /* Unnet */
  595. X  
  596. X      if (Thisbinary) {
  597. X          for (p=buf; --n>=0; )     
  598. X***************
  599. X*** 1436,1441 ****
  600. X--- 1445,1451 ----
  601. X          return OK;
  602. X      }
  603. X  #endif
  604. X+     fflush(fout);  /* Unnet */
  605. X      if (fclose(fout)==ERROR) {
  606. X          fprintf(stderr, "file close ERROR\n");
  607. X          return ERROR;
  608. END_OF_FILE
  609.   if test 1562 -ne `wc -c <'rz.cdiff'`; then
  610.     echo shar: \"'rz.cdiff'\" unpacked with wrong size!
  611.   fi
  612.   # end of 'rz.cdiff'
  613. fi
  614. if test -f 'src/CROSSREF' -a "${1}" != "-c" ; then 
  615.   echo shar: Will not clobber existing file \"'src/CROSSREF'\"
  616. else
  617.   echo shar: Extracting \"'src/CROSSREF'\" \(2465 characters\)
  618.   sed "s/^X//" >'src/CROSSREF' <<'END_OF_FILE'
  619. X/***************************************************************************/
  620. X/*        PROGRAMM  ix/Mbox                           */
  621. X/*             DATEI  CROSSREF                           */
  622. X/*        FUNKTIONEN  Cross-Referenz-Liste der Funktionen           */
  623. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  624. X/*  LETZTE AENDERUNG  28.05.1992                       */
  625. X/***************************************************************************/
  626. X
  627. Xadmin()                admin.c
  628. Xansage()            lesen.c
  629. Xansi()                 tools.c
  630. Xanzeigen()            lesen2.c
  631. Xbaudrate()            baudrate.c
  632. Xbef()                befehl.c
  633. Xbrett()                misc2.c
  634. Xbrief()                mail.c
  635. Xbigcopy()            tools.c
  636. Xcarboncopy()            weiterl.c
  637. Xcheckdomaintype()        lesen.c
  638. Xchk_newsgrp()            misc2.c
  639. Xclearline()            tools.c
  640. Xcontrol()            control.c
  641. Xcrypted()            tools.c
  642. Xctrlx()                ctrlx.c
  643. Xcut_arg()            loop.c
  644. Xcut_bef()            loop.c
  645. Xdateconv()            tools.c
  646. Xdatereconv()            tools.c
  647. Xdownload()            pd.c
  648. Xedit()                suchen.c
  649. Xfaces()                faces.c
  650. Xfetch_receipy()            misc2.c
  651. Xfinger()            portinfo.c
  652. Xfixoutput()            main.c
  653. Xgames()                games.c
  654. Xgetch()                getch.c
  655. Xgetint()            getline.c
  656. Xgetline()            getline.c
  657. Xgetsite()            lesen.c
  658. Xheadline()            tools.c
  659. Xhelp()                help.c
  660. Xinhalt2()            lesen2.c
  661. Xinit()                main.c
  662. Xinit_user()            intro.c
  663. Xintro()                intro.c
  664. Xisin()                tools.c
  665. Xiso_convert()            show.c
  666. Xiso_line()            show.c
  667. Xlength()            tools.c
  668. Xlesen()                lesen.c
  669. Xlesen2()            lesen2.c
  670. Xloeschen()            misc2.c
  671. Xloeschen2()            lesen2.c
  672. Xlogout()            main.c
  673. Xloop()                loop.c
  674. Xmain()                main.c
  675. Xmaybe_locked()            tools.c
  676. Xmblock()            tools.c
  677. Xmbunlock()            tools.c
  678. Xmore()                more.c
  679. Xmkix()                pd.c
  680. Xmydate()            tools.c
  681. Xmytime()            tools.c
  682. Xnerror()            nerror.c & derror.c
  683. Xnoctrlx()            ctrlx.c
  684. Xnum_stripped()            tools.c
  685. Xoutdial()            outdial.c
  686. Xpd()                pd.c
  687. Xperms()                tools.c
  688. Xport()                portinfo.c
  689. Xpostfach()            postfach.c
  690. Xprf()                misc.c
  691. Xpruefe()            misc.c
  692. Xquoted_printable()        show.c
  693. Xrates()                loop.c
  694. Xrename()            tools.c
  695. Xrichtext()            show.c
  696. Xscanner()            misc.c
  697. Xschreiben()            misc.c
  698. Xsetup()                  admin.c
  699. Xsetup_get()            admin.c
  700. Xshortname()            tools.c
  701. Xshow()                show.c
  702. Xshow_level()            portinfo.c
  703. Xsigcatch()            loop.c
  704. Xstatus()            pd.c
  705. Xstatistik()            pd.c
  706. Xstrcomp()            tools.c
  707. Xstrcopy()            tools.c
  708. Xstripped()            tools.c
  709. Xsubb()                misc2.c
  710. Xsuchen()            suchen.c
  711. Xtimeconv()            tools.c
  712. Xtimereconv()            tools.c
  713. Xtty()                 tools.c
  714. Xttyna()                tools.c
  715. Xunterschrift()            lesen.c
  716. Xupcased()            tools.c
  717. Xuser_aendern()            admin.c
  718. Xuser_anzeigen()            admin.c
  719. Xuser_loeschen()            admin.c
  720. Xuserliste()            portinfo.c
  721. Xwait_until_keypressed()        admin.c
  722. Xweiterleiten()            weiterl.c
  723. Xwhoami()            tools.c
  724. Xwhodo()                control.c
  725. Xyesno()                getline.c
  726. END_OF_FILE
  727.   if test 2465 -ne `wc -c <'src/CROSSREF'`; then
  728.     echo shar: \"'src/CROSSREF'\" unpacked with wrong size!
  729.   fi
  730.   # end of 'src/CROSSREF'
  731. fi
  732. if test -f 'src/HISTORY' -a "${1}" != "-c" ; then 
  733.   echo shar: Will not clobber existing file \"'src/HISTORY'\"
  734. else
  735.   echo shar: Extracting \"'src/HISTORY'\" \(2280 characters\)
  736.   sed "s/^X//" >'src/HISTORY' <<'END_OF_FILE'
  737. X/***************************************************************************/
  738. X/*        PROGRAMM  ix/Mbox                           */
  739. X/*             DATEI  HISTORY                           */
  740. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  741. X/*  LETZTE AENDERUNG  09.09.1993                       */
  742. X/***************************************************************************/
  743. X
  744. X20.04.1991  ->  Erste Versuche einen NEWS-Reader im Stil der alten "PC-Boxen"
  745. X        zu basteln (sind positiv verlaufen)
  746. X
  747. X21.04.1991  ->  Schreiben an NGs via PNEWS                 
  748. X
  749. X22.04.1991  ->  REPLY via PNEWS
  750. X
  751. X23.04.1991  ->  SH-unabhaengiges Accounting
  752. X
  753. X26.04.1991  ->  Persoenliche Mail lesen, schreiben, beantworten
  754. X
  755. X11.05.1991  ->  Inhalt/Datum, Status
  756. X
  757. X01.06.1991  ->  Vorbereitung fuer die Portierung
  758. X
  759. X02.06.1991  ->  Erste BETA-Test Version an die Portierer/Tester verschickt
  760. X
  761. X18.06.1991  ->  Makro-Befehle implementiert
  762. X
  763. X15.08.1991  ->  SVR3 einigermassen angepasst, LOCK-Mechanismus eingebaut,
  764. X        NNPOST und RMAIL ermoeglicht, versuchweise _SYS_ACCOUNT
  765. X        integriert
  766. X
  767. X21.09.1991  ->  Scanner-Datum beim LOGOUT aktuallisieren, nicht mehr bei
  768. X        init_user()
  769. X
  770. X21.10.1991  ->  Option fuer Online-Spiele implementiert
  771. X
  772. X26.10.1991  ->  Endlich ein "anstaendiges" Makefile:-)
  773. X
  774. X12.11.1991  ->  Die Anspassung an SVR3 laeuft auf Hochtouren
  775. X
  776. X16.11.1991  ->  Referenzversion 1.6.0 ueber "sub.os.minix" gepostet
  777. X
  778. X17.11.1991  ->  Patchlevel PL1 fertiggestellt
  779. X           
  780. X27.11.1991  ->  Patchlevel PL3 mit schnellerem MB-DAEMON ausgeliefert
  781. X
  782. X06.12.1991  ->  Umgestellt auf RMAIL & INEWS (Header mit Refs. etc.)
  783. X
  784. X28.12.1991  ->  Internationale Version (DEFINES, README, etc.) ausgeliefert
  785. X
  786. X04.01.1992  ->  MAIL- & NEWS-Header editierbar (Followup etc.)
  787. X
  788. X20.02.1992  ->  Eigener DOWNLOAD-Befehl. MB-DAEMON erstellt LIB online (opt.)
  789. X
  790. X09.05.1992  ->  RTF (Richtext Format) implementiert
  791. X
  792. X24.05.1992  ->  Strict-Accounting eingebaut / SVR4-Port funxt (!) / 1.6 PL9f
  793. X
  794. X06.06.1992  ->  Version 1.6 PL10 ausgeliefert
  795. X
  796. X04.07.1992  ->  Version 1.6 PL10e ausgeliefert
  797. X
  798. X10.08.1992  ->  Version 1.6 PL10a ist ueber FTP verfuegbar: <nic.funet.fi>
  799. X
  800. X10.11.1992  ->  Umlautkonvertierung eingebaut (Patchlevel 1.6 PL10j2)
  801. X
  802. X09.01.1993  ->  RTF-Editor WENDY, NEWUSER-Mail an Root (Version 1.6 PL10j7)
  803. X
  804. X17.01.1993  ->  Version 1.6 PL10j7 an "comp.sources.misc" ausgeliefert
  805. X
  806. END_OF_FILE
  807.   if test 2280 -ne `wc -c <'src/HISTORY'`; then
  808.     echo shar: \"'src/HISTORY'\" unpacked with wrong size!
  809.   fi
  810.   # end of 'src/HISTORY'
  811. fi
  812. if test -f 'src/baudrate.c' -a "${1}" != "-c" ; then 
  813.   echo shar: Will not clobber existing file \"'src/baudrate.c'\"
  814. else
  815.   echo shar: Extracting \"'src/baudrate.c'\" \(1758 characters\)
  816.   sed "s/^X//" >'src/baudrate.c' <<'END_OF_FILE'
  817. X/***************************************************************************/
  818. X/*        PROGRAMM  ix/Mbox                           */
  819. X/*             DATEI  baudrate.c                       */
  820. X/*        FUNKTIONEN  baudrate()                       */
  821. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  822. X/*  LETZTE AENDERUNG  16.03.1992                       */
  823. X/***************************************************************************/
  824. X
  825. X#include <stdio.h>
  826. X#include <time.h>
  827. X
  828. X#include "mbox.h"
  829. X
  830. X
  831. X#ifdef _SYS7    /* UNIX System 7  (MINIX, COHERENT, ...) */
  832. X
  833. X#include  <sgtty.h>
  834. Xstatic struct sgttyb told;
  835. X
  836. X#else        /* UNIX System V  (UNIX, XENIX, ESIX, ...) */
  837. X
  838. X#ifdef _LINUX
  839. X#include  <termio.h>
  840. X#else
  841. X#include  <sys/termio.h> 
  842. X#endif
  843. Xstatic struct termio told;
  844. X
  845. X#endif
  846. X
  847. X
  848. X#define BYTE    0377    /* Don't ask me, ask Andy !! */
  849. X
  850. X
  851. Xint baudrate( try )
  852. Xint try;
  853. X{
  854. X  int i, j = 0;
  855. X  int guess = -1;
  856. X  long ts, tn;
  857. X
  858. X
  859. X  if(BAUDRATE != 0) return BAUDRATE;
  860. X
  861. X#ifdef _SYS7
  862. X  
  863. X  ioctl( 0, TIOCGETP, &told );
  864. X  guess = (int) (100 * (told.sg_ospeed & BYTE));
  865. X
  866. X#else
  867. X
  868. X  ioctl( 0, TCGETA, &told );
  869. X
  870. X  if(told.c_cflag &=    B300) guess = (int)   300;
  871. X  if(told.c_cflag &=   B1200) guess = (int)  1200;
  872. X  if(told.c_cflag &=   B2400) guess = (int)  2400;
  873. X  if(told.c_cflag &=   B4800) guess = (int)  4800;
  874. X  if(told.c_cflag &=   B9600) guess = (int)  9600;
  875. X  /*
  876. X  if(told.c_cflag &=  B14400) guess = (int) 14400;
  877. X  */
  878. X  if(told.c_cflag &=  B19200) guess = (int) 19200;
  879. X  if(told.c_cflag &=  B38400) guess = (int) 38400;
  880. X
  881. X#endif
  882. X
  883. X#ifdef _BAUDRATE      /* HST mit 'fixed baudrate 19.2k' */
  884. X    
  885. X  if((guess == MAX_BPS) || (guess == 0)){
  886. X
  887. X    guess = 300;
  888. X
  889. X    if(try >   300) guess =  1200;
  890. X    if(try >  1200) guess =  2400;
  891. X    if(try >  2400) guess =  9600;
  892. X    if(try >  9600) guess = 14400;
  893. X    if(try > 14400) guess = 19200;
  894. X  }
  895. X
  896. X#endif
  897. X
  898. X  return guess;
  899. X
  900. X}
  901. END_OF_FILE
  902.   if test 1758 -ne `wc -c <'src/baudrate.c'`; then
  903.     echo shar: \"'src/baudrate.c'\" unpacked with wrong size!
  904.   fi
  905.   # end of 'src/baudrate.c'
  906. fi
  907. if test -f 'src/befehl.c' -a "${1}" != "-c" ; then 
  908.   echo shar: Will not clobber existing file \"'src/befehl.c'\"
  909. else
  910.   echo shar: Extracting \"'src/befehl.c'\" \(2087 characters\)
  911.   sed "s/^X//" >'src/befehl.c' <<'END_OF_FILE'
  912. X/***************************************************************************/
  913. X/*        PROGRAMM  ix/Mbox                           */
  914. X/*             DATEI  befehl.c                           */
  915. X/*        FUNKTIONEN  bef()                           */
  916. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  917. X/*  LETZTE AENDERUNG  06.06.1992                       */
  918. X/***************************************************************************/
  919. X
  920. X#include <stdio.h>
  921. X
  922. X#include "mbox.h"
  923. X
  924. X
  925. X/***************************************************************************/
  926. X/*      FUNKTION  bef()                               */
  927. X/*  BESCHREIBUNG  Sucht entweder die Befehlsnummer zu einem bekannten      */
  928. X/*          Befehl, oder zeigt die Befehle als Uebersicht an.        */
  929. X/*          Dabei wird das Userlevel beruecksichtigt.                */
  930. X/*     PARAMETER  befehl  =  Befehl  =  Befehl, der gesucht werden soll    */
  931. X/*                 '?'     =  Befehle anzeigen (levelabhaengig)  */
  932. X/*          arg     =  '*'     =  ALLE Befehle anzeigen                */
  933. X/*     RUECKGABE  -1  =  Userlevel reicht nicht aus               */
  934. X/*               -9  =  Befehl nicht gefunden                   */
  935. X/*           n  =  Befehlsnummer (siehe Datei BEFEHLE und loop.c)       */
  936. X/***************************************************************************/
  937. X
  938. Xint bef(befehl, arg)
  939. Xunsigned char befehl[];
  940. Xunsigned char arg[];
  941. X{
  942. X  unsigned char s[STRING];
  943. X  int b = 0, i = 0, l;
  944. X
  945. X  l = USER.level;
  946. X
  947. X  if (befehl[0] == '?') {
  948. X
  949. X    if (arg[0] == '*') l = 9999;
  950. X
  951. X    while (BEF[b].id != -1) {
  952. X        if ((BEF[b].prototyp == 1) && (BEF[b].in <= l)) {
  953. X            printf("%-14.14s ", BEF[b].befehl);
  954. X            i++;
  955. X            if (i == 5) {
  956. X                printf("\n");
  957. X                i = 0;
  958. X            }
  959. X        }
  960. X        b++;
  961. X    }
  962. X    printf("\n\n");
  963. X    return 0;
  964. X  }
  965. X  else {
  966. X    while (BEF[b].id != -1) {
  967. X        if (strcomp(befehl, BEF[b].befehl) == 0) {
  968. X            if (BEF[b].in <= USER.level){
  969. X                if(BEF[b].id == 1000){
  970. X                    printf("\n\n");
  971. X                    if(arg[0] == '\0')
  972. X                        sprintf(s, "exec %s %s %d %d", RSH, BEF[b].pfad, OLDUID, OLDGID);
  973. X                    else
  974. X                        sprintf(s, "exec %s %s \"%s\" %d %d", RSH, BEF[b].pfad, arg, OLDUID, OLDGID);            
  975. X                    system(s);
  976. X                }
  977. X                return BEF[b].id;
  978. X            }
  979. X            else{
  980. X                return -1;
  981. X            }
  982. X        }
  983. X        b++;
  984. X    }
  985. X    return -9;
  986. X  }
  987. X}
  988. END_OF_FILE
  989.   if test 2087 -ne `wc -c <'src/befehl.c'`; then
  990.     echo shar: \"'src/befehl.c'\" unpacked with wrong size!
  991.   fi
  992.   # end of 'src/befehl.c'
  993. fi
  994. if test -f 'src/bled.doc' -a "${1}" != "-c" ; then 
  995.   echo shar: Will not clobber existing file \"'src/bled.doc'\"
  996. else
  997.   echo shar: Extracting \"'src/bled.doc'\" \(1399 characters\)
  998.   sed "s/^X//" >'src/bled.doc' <<'END_OF_FILE'
  999. X(B)LED ist ein zeilenorientierer Editor (Text-Erfassungssystem), der Texte
  1000. Xbeliebiger Groesse verarbeiten kann.
  1001. X
  1002. XEr verwendet verschiedene Eingabemodi, die jeweils am Prefix vor der
  1003. XZeilennummer zu identifizieren sind:
  1004. X
  1005. XL0000 Text-Zeile ...                  # Lese-Modus (".l" und ".L")
  1006. XA0000 Text-Zeile ...                  # Anhaenge-Modus (".a")
  1007. XI0000 Text-Zeile ...                  # Einfuge-Modus (".i")
  1008. XK0000 Text-Zeile ...                  # Korrektur-Modus (".k");
  1009. X
  1010. XWird ein neuer Text erfasst, ist der Anhaenge-Modus aktiv. Mit dem
  1011. XBefehl ".l" (bzw. ".L") kann man sich den bereits eingegeben Text
  1012. Xanzeigen lassen.
  1013. X
  1014. XMuss eine Zeile korrigiert werden, wird mit dem Befehl ".k ZEILE" die
  1015. Xentsprechende Zeile (ZEILE) nochmals angezeigt und kann ueberarbeitet
  1016. Xwerden.
  1017. X
  1018. XSoll zwischen den bereits erfassten Zeilen neuer Text eingegeben werden,
  1019. Xmuss mit ".i ZEILE" in den Einfuege-Modus gewechselt werden. Von nun 
  1020. Xan werden die Eingaben zwischen "ZEILE -1" und "ZEILE" eingefuegt. Die
  1021. XNummerierung der auf "ZEILE" folgenden Zeilen wird automatisch angepasst.
  1022. XDer Einfuege-Modus wird mit ".a" beendet. Danach ist der Anhaenge-Modus
  1023. Xaktiv, und alle Eingaben werden ans Ende des Textes angehaengt.
  1024. X
  1025. XSollen Zeilen komplett entfernt werden, kommt der Befehl ".d" zum Einsatz.
  1026. XWerden keine Zeilennummern angegeben, wird der gesamte Text geloescht !!!
  1027. X
  1028. XBeendet und gesichert wird die Eingabe mit "." !
  1029. END_OF_FILE
  1030.   if test 1399 -ne `wc -c <'src/bled.doc'`; then
  1031.     echo shar: \"'src/bled.doc'\" unpacked with wrong size!
  1032.   fi
  1033.   # end of 'src/bled.doc'
  1034. fi
  1035. if test -f 'src/derror.c' -a "${1}" != "-c" ; then 
  1036.   echo shar: Will not clobber existing file \"'src/derror.c'\"
  1037. else
  1038.   echo shar: Extracting \"'src/derror.c'\" \(1767 characters\)
  1039.   sed "s/^X//" >'src/derror.c' <<'END_OF_FILE'
  1040. X/***************************************************************************/
  1041. X/*        PROGRAMM  ix/Mbox                           */
  1042. X/*             DATEI  dummy_nerror.c                       */
  1043. X/*        FUNKTIONEN  nerror                           */
  1044. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1045. X/*  LETZTE AENDERUNG  16.11.1991                       */
  1046. X/***************************************************************************/
  1047. X
  1048. X#include <stdio.h>
  1049. X
  1050. X#include "defs.h"
  1051. X#include "mbox.msg"
  1052. X
  1053. X/***************************************************************************/
  1054. X/*      FUNKTION  nerror()                           */
  1055. X/*  BESCHREIBUNG  Zeigt Systemfehler (Dateien koennen nicht gefunden o.    */
  1056. X/*          geoeffnet werden, etc.) an. Anschliessend wie die        */
  1057. X/*          Befehlseingabe aufgerufen.                               */
  1058. X/*                                                               */
  1059. X/*          ACHTUNG: Nach "nerror()" laeuft die MBox zwar weiter,    */
  1060. X/*          aber beim Terminieren wird ein "core" ausgegeben.        */
  1061. X/*     PARAMETER  file     = Datei in der der Fehler aufgetreten ist       */
  1062. X/*          line     = Zeile in der Datei                            */
  1063. X/*          function = Funktion in der Datei                         */
  1064. X/*          descr    = Fehlerbeschreibung                               */
  1065. X/*          er       = Datei/Variable                                */
  1066. X/*     RUECKGABE  keine                            */
  1067. X/***************************************************************************/
  1068. X
  1069. Xvoid nerror(file, line, function, descr, er)
  1070. Xunsigned char file[];
  1071. Xint line;
  1072. Xunsigned char function[], descr[], er[];
  1073. X{
  1074. X  unsigned char s[80];
  1075. X
  1076. X  printf("%c%s %s (%s) - %s \"%s\"\n", CR, DER01_MSG, function, file, descr, er);
  1077. X
  1078. X  sprintf(s, "[%s] %s, %d\n***** %s, %s, %s ... %s !!!",
  1079. X    DER02_MSG, file, line, function, descr, er, DER03_MSG);
  1080. X  
  1081. X}
  1082. X
  1083. X
  1084. END_OF_FILE
  1085.   if test 1767 -ne `wc -c <'src/derror.c'`; then
  1086.     echo shar: \"'src/derror.c'\" unpacked with wrong size!
  1087.   fi
  1088.   # end of 'src/derror.c'
  1089. fi
  1090. if test -f 'src/dis.c' -a "${1}" != "-c" ; then 
  1091.   echo shar: Will not clobber existing file \"'src/dis.c'\"
  1092. else
  1093.   echo shar: Extracting \"'src/dis.c'\" \(1370 characters\)
  1094.   sed "s/^X//" >'src/dis.c' <<'END_OF_FILE'
  1095. X/***************************************************************************/
  1096. X/*          PROGRAMM  ix/Mbox                                              */
  1097. X/*             DATEI  dis.c                                                */
  1098. X/*        FUNKTIONEN  dis()                                                */
  1099. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)                 */
  1100. X/*  LETZTE AENDERUNG  16.11.1992                                           */
  1101. X/***************************************************************************/
  1102. X
  1103. X#include <stdio.h>
  1104. X
  1105. X#include "mbox.h"
  1106. X
  1107. Xvoid dis( argument )
  1108. Xunsigned char argument[];
  1109. X{
  1110. X  unsigned char s[STRING];
  1111. X
  1112. X  if(argument[0] == '*'){
  1113. X    headline( DIS01_MSG );
  1114. X    printf("%s\n", DIS02_MSG);
  1115. X    printf("===============================================================================\n");
  1116. X
  1117. X    sprintf(s, "%s/usr/%d/.dis", HOME, USER.id);
  1118. X    if (show(s, 9999, USER.more + 100) == -1) {
  1119. X            ansi( "md" );
  1120. X            printf("%s.\n", DIS03_MSG);
  1121. X            ansi( "me" );
  1122. X            printf("%s\n", DIS04_MSG);
  1123. X    }
  1124. X  }
  1125. X  else{
  1126. X    DISKUSSION = 1;
  1127. X
  1128. X    printf("\n\n");
  1129. X    ansi( "md" );
  1130. X    printf("%s: ", DIS05_MSG);
  1131. X    ansi( "me" );
  1132. X    strcpy(s, (unsigned char *) getline(15, 1, 32, ""));
  1133. X    ansi( "md" );
  1134. X    printf("\n%s: ", DIS06_MSG);
  1135. X    ansi( "me" );
  1136. X    strcpy(DIS_subject, (unsigned char *) getline(60, 1, 32, ""));
  1137. X
  1138. X    lesen( s );
  1139. X
  1140. X    DISKUSSION = 0;
  1141. X  }
  1142. X}
  1143. END_OF_FILE
  1144.   if test 1370 -ne `wc -c <'src/dis.c'`; then
  1145.     echo shar: \"'src/dis.c'\" unpacked with wrong size!
  1146.   fi
  1147.   # end of 'src/dis.c'
  1148. fi
  1149. if test -f 'src/getch.c' -a "${1}" != "-c" ; then 
  1150.   echo shar: Will not clobber existing file \"'src/getch.c'\"
  1151. else
  1152.   echo shar: Extracting \"'src/getch.c'\" \(1978 characters\)
  1153.   sed "s/^X//" >'src/getch.c' <<'END_OF_FILE'
  1154. X/*
  1155. X *    %Z% %M%    %I% %D% %Q%
  1156. X *
  1157. X *    Copyright (C) 1990 by Christian Schlichtherle
  1158. X *                  (chriss@attron.ruhr.sub.org)
  1159. X *
  1160. X *    %M% - C module for getch(S).
  1161. X *
  1162. X *    "getch" is a DOS and curses(S) like function which reads
  1163. X *    a unsigned character and returns immediately without waiting for
  1164. X *    newline.
  1165. X *
  1166. X *     getch() - Gets a unsigned character.
  1167. X *     This function gets one unsigned character and immediately returns
  1168. X *     without waiting for newline. The unsigned character is not echoed.
  1169. X *     This function can be used best when you want to input only one
  1170. X *     unsigned character within canonical input or if you need this function
  1171. X *     only very rarely.
  1172. X *     EOF is returned on errors or if an ignored signal occured.
  1173. X *    
  1174. X *    Modificated by andreas@xenox.w.open.de 06/20/92 Xenox
  1175. X */
  1176. X
  1177. X#include "defs.h"
  1178. X#include <sys/types.h>
  1179. X#include <stdio.h>    
  1180. X#include <errno.h>
  1181. X#ifndef _SYS7
  1182. X#include <sys/ioctl.h>
  1183. X#include <termio.h>
  1184. X#else
  1185. X#include <sgtty.h>
  1186. X#endif 
  1187. X
  1188. X#ifndef _SYS7
  1189. Xstatic struct termio    told, tnew;
  1190. X
  1191. X#define    get_oldmode()    ioctl(0,TCGETA, &told)
  1192. X#define    set_oldmode()    ioctl(0,TCSETA, &told)
  1193. X#define    set_newmode()    (tnew.c_cc[VMIN] = 1,tnew.c_cc[VTIME] = 0,\
  1194. X             tnew.c_lflag &= ~(ICANON | ECHO),\
  1195. X             ioctl(0, TCSETA, &tnew))
  1196. X
  1197. X#else
  1198. Xstatic struct sgttyb    told, tnew;
  1199. X
  1200. X#define    get_oldmode()    ioctl(0,TIOCGETP, &told)
  1201. X#define    set_oldmode()    ioctl(0,TIOCSETP, &told)
  1202. X#define    set_newmode()    (tnew.sg_flags |= RAW,tnew.sg_flags &= ~ECHO,\
  1203. X             ioctl(0, TIOCSETP, &tnew))
  1204. X
  1205. X#endif
  1206. X
  1207. Xstatic int    set = 0;
  1208. X
  1209. Xint    getch()
  1210. X{
  1211. X    int    rstat;
  1212. X    int    c;
  1213. X
  1214. X    if (!set) {
  1215. X            /* Get old terminal mode. */
  1216. X        if (get_oldmode() == -1)
  1217. X            return (EOF);
  1218. X
  1219. X        tnew = told;
  1220. X            /* Don't execute this part anymore. */
  1221. X        set = 1;
  1222. X    }
  1223. X
  1224. X        /* Set new terminal mode. */
  1225. X    if (set_newmode() == -1)
  1226. X        return (EOF);
  1227. X
  1228. X        /* 
  1229. X         * Read one character. The orginal function used 
  1230. X         * read(0, &c, 1) but getchar is a macro 
  1231. X         * and faster. Xenox Fri Jun 19 20:44:46 DST 1992
  1232. X         */
  1233. X    c = getchar();
  1234. X
  1235. X        set_oldmode();
  1236. X
  1237. X    return ((int)c);
  1238. X}
  1239. X
  1240. END_OF_FILE
  1241.   if test 1978 -ne `wc -c <'src/getch.c'`; then
  1242.     echo shar: \"'src/getch.c'\" unpacked with wrong size!
  1243.   fi
  1244.   # end of 'src/getch.c'
  1245. fi
  1246. if test -f 'src/help.c' -a "${1}" != "-c" ; then 
  1247.   echo shar: Will not clobber existing file \"'src/help.c'\"
  1248. else
  1249.   echo shar: Extracting \"'src/help.c'\" \(2419 characters\)
  1250.   sed "s/^X//" >'src/help.c' <<'END_OF_FILE'
  1251. X/***************************************************************************/
  1252. X/*        PROGRAMM  ix/Mbox                           */
  1253. X/*             DATEI  help.c                           */
  1254. X/*        FUNKTIONEN  help()                           */
  1255. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1256. X/*  LETZTE AENDERUNG  16.11.1991                       */
  1257. X/***************************************************************************/
  1258. X
  1259. X#include <stdio.h>
  1260. X
  1261. X#include "mbox.h"
  1262. X
  1263. X
  1264. X/***************************************************************************/
  1265. X/*      FUNKTION  help()                            */
  1266. X/*  BESCHREIBUNG  Der Inhalt der Datei HILFE wird entweder komplett ange-  */
  1267. X/*          zeigt, oder aber in Abhaengigkeit von 'cmd' in Auszuegen */
  1268. X/*          ausgegeben.                                              */
  1269. X/*     PARAMETER  cmd  =  '*'      =  HILFE wird komplett ausgegeben       */
  1270. X/*                        '='      =  SHORTHELP                            */
  1271. X/*          #Befehl         =  HILFE zu "Befehl" wird ausgegeben    */
  1272. X/*     RUECKGABE  0  =  Keinen Eintrag gefunden                            */
  1273. X/*                n  =  Anzahl der Eintraege                   */
  1274. X/***************************************************************************/
  1275. X
  1276. Xint help(cmd)
  1277. Xunsigned char cmd[];
  1278. X{
  1279. X  FILE *fp;
  1280. X  unsigned char s[255];
  1281. X  int ende = 0, ok = 0, found = 0, toggle = 0, lines = 0;
  1282. X
  1283. X  show(KURZHILFE, 99, 99); /* RESET */
  1284. X  
  1285. X  if(cmd[0] == '='){
  1286. X    headline( HLP01_MSG );
  1287. X    show(KURZHILFE, 9999, USER.more);    
  1288. X    return 9999;
  1289. X  }
  1290. X
  1291. X  maybe_locked(HILFE, "r");
  1292. X  fp = fopen(HILFE, "r");
  1293. X  if (fp == NULL) {
  1294. X    nerror("help.c", 14, "help", "Datei-Lesefehler", HILFE);
  1295. X  }
  1296. X  if (cmd[0] != '#') {
  1297. X    ok = 2;
  1298. X    found++;
  1299. X  }
  1300. X  headline( HLP01_MSG );
  1301. X  lines = 0;
  1302. X
  1303. X  while ((fgets(s, 85, fp) != NULL) && !ende) {
  1304. X
  1305. X    if (USER.more > 0) {
  1306. X        if (lines >= MAX_SCR_LINES) {
  1307. X            lines = 0;
  1308. X            if (more() != 0) return 1;
  1309. X        }
  1310. X    }
  1311. X    if (ok == 2) {
  1312. X        if (s[0] != '#') {
  1313. X            printf("%s", s);
  1314. X            lines++;
  1315. X            if (toggle > 0) {
  1316. X                ansi("me");
  1317. X                toggle = 0;
  1318. X            }
  1319. X        }
  1320. X        else {
  1321. X            printf("\n");
  1322. X            lines++;
  1323. X            ansi("md");
  1324. X            toggle++;
  1325. X        }
  1326. X    }
  1327. X    else {
  1328. X        if ((ok == 1) && (s[0] == '#')) {
  1329. X            ok = 0;
  1330. X            printf("\n");
  1331. X            lines++;
  1332. X        }
  1333. X        if ((ok == 1) && (s[0] != '#')) {
  1334. X            printf("%s", s);
  1335. X            lines++;
  1336. X            if (toggle > 0) {
  1337. X                ansi("me");
  1338. X                toggle == 0;
  1339. X            }
  1340. X        }
  1341. X        if ((ok == 0) && (s[0] == '#')) {
  1342. X            if (strcomp(cmd, s) == 0) {
  1343. X                ok = 1;
  1344. X                found++;
  1345. X                ansi("md");
  1346. X                toggle++;
  1347. X            }
  1348. X        }
  1349. X    }
  1350. X  }
  1351. X  fclose(fp);
  1352. X
  1353. X  return found;
  1354. X}
  1355. END_OF_FILE
  1356.   if test 2419 -ne `wc -c <'src/help.c'`; then
  1357.     echo shar: \"'src/help.c'\" unpacked with wrong size!
  1358.   fi
  1359.   # end of 'src/help.c'
  1360. fi
  1361. if test -f 'src/nerror.c' -a "${1}" != "-c" ; then 
  1362.   echo shar: Will not clobber existing file \"'src/nerror.c'\"
  1363. else
  1364.   echo shar: Extracting \"'src/nerror.c'\" \(1886 characters\)
  1365.   sed "s/^X//" >'src/nerror.c' <<'END_OF_FILE'
  1366. X/***************************************************************************/
  1367. X/*        PROGRAMM  ix/Mbox                           */
  1368. X/*             DATEI  nerror.c                           */
  1369. X/*        FUNKTIONEN  nerror                           */
  1370. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1371. X/*  LETZTE AENDERUNG  16.11.1991                       */
  1372. X/***************************************************************************/
  1373. X
  1374. X#include <stdio.h>
  1375. X#include <setjmp.h>
  1376. X
  1377. X#include "mbox.h"
  1378. X
  1379. X
  1380. Xextern jmp_buf jmpenv;
  1381. X
  1382. X
  1383. X/***************************************************************************/
  1384. X/*      FUNKTION  nerror()                           */
  1385. X/*  BESCHREIBUNG  Zeigt Systemfehler (Dateien koennen nicht gefunden o.    */
  1386. X/*          geoeffnet werden, etc.) an. Anschliessend wird die       */
  1387. X/*          Befehlseingabe aufgerufen.                               */
  1388. X/*                                                               */
  1389. X/*          ACHTUNG: Nach "nerror()" laeuft die MBox zwar weiter,    */
  1390. X/*          aber beim Terminieren wird ein "core" ausgegeben.        */
  1391. X/*     PARAMETER  file     = Datei in der der Fehler aufgetreten ist       */
  1392. X/*          line     = Zeile in der Datei                            */
  1393. X/*          function = Funktion in der Datei                         */
  1394. X/*          descr    = Fehlerbeschreibung                               */
  1395. X/*          er       = Datei/Variable                                */
  1396. X/*     RUECKGABE  keine                            */
  1397. X/***************************************************************************/
  1398. X
  1399. Xvoid nerror(file, line, function, descr, er)
  1400. Xunsigned char file[];
  1401. Xint line;
  1402. Xunsigned char function[], descr[], er[];
  1403. X{
  1404. X  unsigned char s[80];
  1405. X
  1406. X  ansi("md");
  1407. X  printf("%c%s ", CR, NER01_MSG);
  1408. X  ansi("me");
  1409. X
  1410. X  printf("%s (%s) - %s \"%s\"\n", function, file, descr, er);
  1411. X
  1412. X  sprintf(s, "[%s] %s, %d\n***** %s, %s, %s ... %s !!!",
  1413. X    NER02_MSG, file, line, function, descr, er, NER03_MSG);
  1414. X
  1415. X  control(s, 99);
  1416. X  control(s, 3);
  1417. X
  1418. X  longjmp(jmpenv, 1);
  1419. X}
  1420. X
  1421. END_OF_FILE
  1422.   if test 1886 -ne `wc -c <'src/nerror.c'`; then
  1423.     echo shar: \"'src/nerror.c'\" unpacked with wrong size!
  1424.   fi
  1425.   # end of 'src/nerror.c'
  1426. fi
  1427. if test -f 'src/outdial.c' -a "${1}" != "-c" ; then 
  1428.   echo shar: Will not clobber existing file \"'src/outdial.c'\"
  1429. else
  1430.   echo shar: Extracting \"'src/outdial.c'\" \(1018 characters\)
  1431.   sed "s/^X//" >'src/outdial.c' <<'END_OF_FILE'
  1432. X/***************************************************************************/
  1433. X/*        PROGRAMM  ix/Mbox                           */
  1434. X/*             DATEI  outdial.c                           */
  1435. X/*        FUNKTIONEN  outdial()                           */
  1436. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1437. X/*  LETZTE AENDERUNG  02.04.1992                       */
  1438. X/***************************************************************************/
  1439. X
  1440. X#include <stdio.h>
  1441. X
  1442. X#include "mbox.h"
  1443. X
  1444. X
  1445. Xvoid outdial()
  1446. X{
  1447. X  FILE *fp;
  1448. X  
  1449. X  unsigned char s[STRING];
  1450. X  unsigned char t[STRING];
  1451. X  int a, b;
  1452. X
  1453. X  
  1454. X  fp = fopen( "/tmp/door", "w" );
  1455. X  fprintf(fp, "%s\n%s\n%d\n%d\n", 
  1456. X      USER.name, USER.account, USER.id, USER.terminal);
  1457. X  fclose(fp);
  1458. X
  1459. X  printf("\n\n");
  1460. X
  1461. X  system( "outdial" );
  1462. X
  1463. X  fp = fopen( "/tmp/acct", "r" );
  1464. X  if(fp != NULL){
  1465. X     fgets(s, 80, fp);    
  1466. X     fclose(fp);
  1467. X     unlink( "/tmp/acct" );
  1468. X  }
  1469. X  strcpy(t, (unsigned char *) strcopy(USER.account, 11, 16));
  1470. X  a = atoi(t);
  1471. X  b = atoi(s);
  1472. X  a -= b;
  1473. X
  1474. X  USER.account[11] = '\0';
  1475. X  sprintf(s, "%d", a);
  1476. X  strcat(USER.account, s);
  1477. X}
  1478. X
  1479. END_OF_FILE
  1480.   if test 1018 -ne `wc -c <'src/outdial.c'`; then
  1481.     echo shar: \"'src/outdial.c'\" unpacked with wrong size!
  1482.   fi
  1483.   # end of 'src/outdial.c'
  1484. fi
  1485. if test -f 'wendy/echo.c' -a "${1}" != "-c" ; then 
  1486.   echo shar: Will not clobber existing file \"'wendy/echo.c'\"
  1487. else
  1488.   echo shar: Extracting \"'wendy/echo.c'\" \(1659 characters\)
  1489.   sed "s/^X//" >'wendy/echo.c' <<'END_OF_FILE'
  1490. X/*
  1491. X *    %Z% %M%    %I% %D% %Q%
  1492. X *
  1493. X *    Copyright (C) 1990 by Christian Schlichtherle
  1494. X *                  (chriss@attron.ruhr.sub.org)
  1495. X *
  1496. X *    %M% - C module for getch(S).
  1497. X *
  1498. X *    "getch" is a DOS and curses(S) like function which reads
  1499. X *    a unsigned character and returns immediately without waiting for
  1500. X *    newline.
  1501. X *
  1502. X *     getch() - Gets a unsigned character.
  1503. X *     This function gets one unsigned character and immediately returns
  1504. X *     without waiting for newline. The unsigned character is not echoed.
  1505. X *     This function can be used best when you want to input only one
  1506. X *     unsigned character within canonical input or if you need this function
  1507. X *     only very rarely.
  1508. X *     EOF is returned on errors or if an ignored signal occured.
  1509. X *    
  1510. X *    Modificated by andreas@xenox.w.open.de 06/20/92 Xenox
  1511. X */
  1512. X
  1513. X
  1514. X#include <sys/types.h>
  1515. X#include <stdio.h>    
  1516. X#include <errno.h>
  1517. X#ifndef _SYS7
  1518. X#include <sys/ioctl.h>
  1519. X#include <termio.h>
  1520. X#else
  1521. X#include <sgtty.h>
  1522. X#endif 
  1523. X
  1524. X#ifndef _SYS7
  1525. Xstatic struct termio    told, tnew;
  1526. X
  1527. X#define    get_oldmode()    ioctl(0,TCGETA, &told)
  1528. X#define    set_oldmode()    ioctl(0,TCSETA, &told)
  1529. X#define    set_newmode()    (tnew.c_cc[VMIN] = 1,tnew.c_cc[VTIME] = 0,\
  1530. X             tnew.c_lflag &= ~(ICANON | ECHO),\
  1531. X             ioctl(0, TCSETA, &tnew))
  1532. X
  1533. X#else
  1534. Xstatic struct sgttyb    told, tnew;
  1535. X
  1536. X#define    get_oldmode()    ioctl(0,TIOCGETP, &told)
  1537. X#define    set_oldmode()    ioctl(0,TIOCSETP, &told)
  1538. X#define    set_newmode()    (tnew.sg_flags |= RAW,tnew.sg_flags &= ~ECHO,\
  1539. X             ioctl(0, TIOCSETP, &tnew))
  1540. X
  1541. X#endif
  1542. X
  1543. Xstatic int    set = 0;
  1544. X
  1545. Xvoid    echo( mode )
  1546. Xint     mode;
  1547. X{
  1548. X    int    rstat;
  1549. X
  1550. X    if(mode == 0){
  1551. X        if (!set) {
  1552. X            get_oldmode();
  1553. X            tnew = told;
  1554. X            set = 1;
  1555. X        }
  1556. X        set_newmode();
  1557. X    }    
  1558. X    if(mode == 1){
  1559. X            set_oldmode();
  1560. X    }
  1561. X}
  1562. X
  1563. END_OF_FILE
  1564.   if test 1659 -ne `wc -c <'wendy/echo.c'`; then
  1565.     echo shar: \"'wendy/echo.c'\" unpacked with wrong size!
  1566.   fi
  1567.   # end of 'wendy/echo.c'
  1568. fi
  1569. if test -f 'wendy/english.hlp' -a "${1}" != "-c" ; then 
  1570.   echo shar: Will not clobber existing file \"'wendy/english.hlp'\"
  1571. else
  1572.   echo shar: Extracting \"'wendy/english.hlp'\" \(752 characters\)
  1573.   sed "s/^X//" >'wendy/english.hlp' <<'END_OF_FILE'
  1574. XCursor up ............... CTRL-K,UP    Cursor to start of line . CTRL-A,HOME
  1575. XCursor down ..... ....... CTRL-J,DOWN  Cursor to end of line ... CTRL-Z,END
  1576. X
  1577. XDelete line ............. CTRL-Y       Backwards a page ........ CTRL-B,PAGEUP
  1578. XDelete to end of line ... CTRL-T       Forward a page .......... CTRL-F,PAGEDN
  1579. X
  1580. XRebuild screen .......... CTRL-R       Insertmode on/off ....... CTRL-V,INSERT
  1581. XRebuild line ............ CTRL-L       Setup (!!!) ............. CTRL-S
  1582. X
  1583. XSave file ............... CTRL-W       State ................... CTRL-G
  1584. XExit .................... CTRL-X       Ruler ................... CTRL-P
  1585. X
  1586. XMark block .............. CTRL-Q       Choose RTF-features ..... CTRL-U
  1587. XRTF on/off .............. CTRL-N       VI-Commandmode .......... ESC:
  1588. END_OF_FILE
  1589.   if test 752 -ne `wc -c <'wendy/english.hlp'`; then
  1590.     echo shar: \"'wendy/english.hlp'\" unpacked with wrong size!
  1591.   fi
  1592.   # end of 'wendy/english.hlp'
  1593. fi
  1594. if test -f 'wendy/getch.c' -a "${1}" != "-c" ; then 
  1595.   echo shar: Will not clobber existing file \"'wendy/getch.c'\"
  1596. else
  1597.   echo shar: Extracting \"'wendy/getch.c'\" \(1978 characters\)
  1598.   sed "s/^X//" >'wendy/getch.c' <<'END_OF_FILE'
  1599. X/*
  1600. X *    %Z% %M%    %I% %D% %Q%
  1601. X *
  1602. X *    Copyright (C) 1990 by Christian Schlichtherle
  1603. X *                  (chriss@attron.ruhr.sub.org)
  1604. X *
  1605. X *    %M% - C module for getch(S).
  1606. X *
  1607. X *    "getch" is a DOS and curses(S) like function which reads
  1608. X *    a unsigned character and returns immediately without waiting for
  1609. X *    newline.
  1610. X *
  1611. X *     getch() - Gets a unsigned character.
  1612. X *     This function gets one unsigned character and immediately returns
  1613. X *     without waiting for newline. The unsigned character is not echoed.
  1614. X *     This function can be used best when you want to input only one
  1615. X *     unsigned character within canonical input or if you need this function
  1616. X *     only very rarely.
  1617. X *     EOF is returned on errors or if an ignored signal occured.
  1618. X *    
  1619. X *    Modificated by andreas@xenox.w.open.de 06/20/92 Xenox
  1620. X */
  1621. X
  1622. X#include "defs.h"
  1623. X#include <sys/types.h>
  1624. X#include <stdio.h>    
  1625. X#include <errno.h>
  1626. X#ifndef _SYS7
  1627. X#include <sys/ioctl.h>
  1628. X#include <termio.h>
  1629. X#else
  1630. X#include <sgtty.h>
  1631. X#endif 
  1632. X
  1633. X#ifndef _SYS7
  1634. Xstatic struct termio    told, tnew;
  1635. X
  1636. X#define    get_oldmode()    ioctl(0,TCGETA, &told)
  1637. X#define    set_oldmode()    ioctl(0,TCSETA, &told)
  1638. X#define    set_newmode()    (tnew.c_cc[VMIN] = 1,tnew.c_cc[VTIME] = 0,\
  1639. X             tnew.c_lflag &= ~(ICANON | ECHO),\
  1640. X             ioctl(0, TCSETA, &tnew))
  1641. X
  1642. X#else
  1643. Xstatic struct sgttyb    told, tnew;
  1644. X
  1645. X#define    get_oldmode()    ioctl(0,TIOCGETP, &told)
  1646. X#define    set_oldmode()    ioctl(0,TIOCSETP, &told)
  1647. X#define    set_newmode()    (tnew.sg_flags |= RAW,tnew.sg_flags &= ~ECHO,\
  1648. X             ioctl(0, TIOCSETP, &tnew))
  1649. X
  1650. X#endif
  1651. X
  1652. Xstatic int    set = 0;
  1653. X
  1654. Xint    getch()
  1655. X{
  1656. X    int    rstat;
  1657. X    int    c;
  1658. X
  1659. X    if (!set) {
  1660. X            /* Get old terminal mode. */
  1661. X        if (get_oldmode() == -1)
  1662. X            return (EOF);
  1663. X
  1664. X        tnew = told;
  1665. X            /* Don't execute this part anymore. */
  1666. X        set = 1;
  1667. X    }
  1668. X
  1669. X        /* Set new terminal mode. */
  1670. X    if (set_newmode() == -1)
  1671. X        return (EOF);
  1672. X
  1673. X        /* 
  1674. X         * Read one character. The orginal function used 
  1675. X         * read(0, &c, 1) but getchar is a macro 
  1676. X         * and faster. Xenox Fri Jun 19 20:44:46 DST 1992
  1677. X         */
  1678. X    c = getchar();
  1679. X
  1680. X        set_oldmode();
  1681. X
  1682. X    return ((int)c);
  1683. X}
  1684. X
  1685. END_OF_FILE
  1686.   if test 1978 -ne `wc -c <'wendy/getch.c'`; then
  1687.     echo shar: \"'wendy/getch.c'\" unpacked with wrong size!
  1688.   fi
  1689.   # end of 'wendy/getch.c'
  1690. fi
  1691. if test -f 'wendy/wendy.h' -a "${1}" != "-c" ; then 
  1692.   echo shar: Will not clobber existing file \"'wendy/wendy.h'\"
  1693. else
  1694.   echo shar: Extracting \"'wendy/wendy.h'\" \(2114 characters\)
  1695.   sed "s/^X//" >'wendy/wendy.h' <<'END_OF_FILE'
  1696. X#include <stdio.h>
  1697. X#include <signal.h>
  1698. X
  1699. X#ifndef EXTERN
  1700. X#define EXTERN extern
  1701. X#endif
  1702. X
  1703. X#ifdef _LOCAL
  1704. X#    define HILFE          "/local/mbox/wendy/wendy.hlp"
  1705. X#    define VERSION       " WENDY 1.1e  -  Simple (MIME) RichTextFormat Editor  -  HILFE: CTRL-O "
  1706. X#else
  1707. X#    define HILFE        "/local/mbox/wendy/english.hlp"
  1708. X#    define VERSION       " WENDY 1.1e  -  Simple (MIME) RichTextFormat Editor  -  HELP: CTRL-O "
  1709. X#endif
  1710. X
  1711. X#define RULERLINE     "1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80"
  1712. X
  1713. X#define CR        13
  1714. X#define LF        10
  1715. X#define BS        8
  1716. X#define TAB        9
  1717. X#define ESC        27
  1718. X
  1719. X#define ENTER       13
  1720. X
  1721. X#define CTRL_A        1
  1722. X#define CTRL_B      2
  1723. X#define CTRL_C        3
  1724. X#define CTRL_D      4
  1725. X#define CTRL_E        5
  1726. X#define CTRL_F      6
  1727. X#define CTRL_G      7
  1728. X#define CTRL_H      8
  1729. X
  1730. X#define CTRL_J      10  
  1731. X#define CTRL_K        11
  1732. X#define CTRL_L        12
  1733. X
  1734. X#define CTRL_N        14
  1735. X#define CTRL_O        15
  1736. X#define CTRL_P        16
  1737. X#define CTRL_Q        17
  1738. X#define CTRL_R        18
  1739. X#define CTRL_S        19
  1740. X#define CTRL_T      20
  1741. X#define CTRL_U        21
  1742. X#define CTRL_V      22
  1743. X#define CTRL_W      23
  1744. X#define CTRL_X      24
  1745. X#define CTRL_Y        25
  1746. X#define CTRL_Z      26
  1747. X
  1748. X#define UP        9165
  1749. X#define DOWN        9166
  1750. X#define LEFT        9168
  1751. X#define RIGHT        9167
  1752. X
  1753. X#define PGUP        9186
  1754. X#define PGDN        9185
  1755. X
  1756. X#define END         9189
  1757. X#define HOME        9172    
  1758. X
  1759. X#define DEL        9152
  1760. X#define INS        9151
  1761. X
  1762. X#define NUM5        9171
  1763. X
  1764. X
  1765. X#define TLX_END        9175    /* TELIX 3.11  &  PROCOMM 2.4.1 */
  1766. X#define TLX_DEL        127
  1767. X#define TLX_INS        0
  1768. X
  1769. X#define TEM_INS     22    /* TELEMATE 2.11 */
  1770. X#define TEM_DEL     7
  1771. X
  1772. X#define    BLANK        127
  1773. X
  1774. X#define STRING         140
  1775. X#define LONGSTRING    255
  1776. X
  1777. X#define MAXLINES     2000
  1778. X
  1779. X#define LINELENGTH    180
  1780. X
  1781. X#define is_centered    1
  1782. X#define is_richtext    2
  1783. X#define is_plain    4
  1784. X
  1785. X#define BLOCKMODE    2
  1786. X
  1787. XFILE *ROLLBACK;
  1788. X
  1789. Xunsigned char SCREEN[27][STRING];
  1790. Xunsigned char ATTRIB[27][STRING];
  1791. X
  1792. Xunsigned char TEXT[MAXLINES][LINELENGTH];
  1793. Xint  FLAG[MAXLINES];
  1794. X
  1795. Xunsigned char version[STRING];
  1796. X
  1797. Xunsigned char umlaut[STRING], terminal[STRING];
  1798. X
  1799. Xint x, y, ypos, lastline, xruler;
  1800. X
  1801. Xint NEU, CHANGED, REALLY, MARK, RULER, STATUSM, FORMATTER;
  1802. Xint MAXX, MAXY, START;
  1803. X
  1804. Xint RTF_attrib;
  1805. Xint RTF_toggle;
  1806. Xint INS_mode;
  1807. X
  1808. Xstruct block{
  1809. X    int status;
  1810. X    int x1;
  1811. X    int y1;
  1812. X    int x2;
  1813. X    int y2;
  1814. X    int y;
  1815. X    int ypos;
  1816. X} BLOCK;
  1817. END_OF_FILE
  1818.   if test 2114 -ne `wc -c <'wendy/wendy.h'`; then
  1819.     echo shar: \"'wendy/wendy.h'\" unpacked with wrong size!
  1820.   fi
  1821.   # end of 'wendy/wendy.h'
  1822. fi
  1823. echo shar: End of archive 14 \(of 15\).
  1824. cp /dev/null ark14isdone
  1825. MISSING=""
  1826. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  1827.     if test ! -f ark${I}isdone ; then
  1828.     MISSING="${MISSING} ${I}"
  1829.     fi
  1830. done
  1831. if test "${MISSING}" = "" ; then
  1832.     echo You have unpacked all 15 archives.
  1833.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1834. else
  1835.     echo You still must unpack the following archives:
  1836.     echo "        " ${MISSING}
  1837. fi
  1838. exit 0
  1839. exit 0 # Just in case...
  1840.