home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume35 / mbox / part11 < prev    next >
Encoding:
Text File  |  1993-02-04  |  54.2 KB  |  1,970 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  3. Subject: v35i046:  mbox - ix/Mbox, A BBS for UNIX and MINIX v1.6 PL10j7, Part11/15
  4. Message-ID: <1993Feb5.185856.10639@sparky.imd.sterling.com>
  5. X-Md4-Signature: f38ad296a1b668ac13fbf0c49c1a8e17
  6. Date: Fri, 5 Feb 1993 18:58:56 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 46
  11. Archive-name: mbox/part11
  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:  Changelog etc/english.hilfe src/games.c src/lesen.c
  20. #   src/postfach.c wendy/getline.c
  21. # Wrapped by kent@sparky on Fri Feb  5 12:18:14 1993
  22. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  23. echo If this archive is complete, you will see the following message:
  24. echo '          "shar: End of archive 11 (of 15)."'
  25. if test -f 'Changelog' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'Changelog'\"
  27. else
  28.   echo shar: Extracting \"'Changelog'\" \(10716 characters\)
  29.   sed "s/^X//" >'Changelog' <<'END_OF_FILE'
  30. X
  31. XHeute, nach einem Telefonat mit Volker haben wir beschlossen die Versionen
  32. Xder ix/MBox mal auf einen Gleichstand zu bringen.
  33. X
  34. XDa inzwischen mehrere Leute an der Box programmieren, verliert man leicht
  35. Xden Ueberblick, wenn nicht von einem definierten Stand der Version ausge-
  36. Xgangen wird.
  37. X
  38. XDie Version 1.6.0 soll deshalb die Version sein, auf die sich alle nach-
  39. Xfolgenden Aenderungen beziehen!
  40. X
  41. XAlso wenn Aenderungen gemacht werden, diff's erzeugen und Volker schicken.
  42. XDabei sollte man die Angabe der Version (ab Version 1.6.0) und Patchlevel
  43. Xnicht vergessen, auf die sich das Diff bezieht!
  44. X
  45. XUm Aenderungen nachvollziehen zu koennen, waehre meine Bitte, an dieses
  46. XFile kurze Erlaeuterungen zu den Aenderungen anzuhaengen!
  47. X
  48. X---------------------------------------------------------------------------
  49. X
  50. XSat Nov 16 02:21:20 MEZ 1991, Hergo Pape <hergo@ivcmd.Boerde.DE>
  51. X
  52. Xix/MBox 1.6 PL1::
  53. X
  54. X-  File patchlevel.h eingefuert, hier sind die Version, der Autor und
  55. X   die aktuelle Patchlevel definiert. Das File wird in mbox.h eingelesen.
  56. X
  57. X-  Makefile geaendert, "bled" braucht nicht mehr extra uebersetzt werden.
  58. X   Die Variable MBOXHOME eingefuehrt, daher man kann jetzt die Sourcen
  59. X   irgendwo uebersetzen und installiert wird in MBOXHOME. Ist meiner Meinung
  60. X   nach guenstiger fuer die Versionskontrolle.
  61. X
  62. X-  In nerror() den Aufruf der Funktion loop() gegen longjmp() ausgetauscht.
  63. X   Zumindest unter ISC gibt es jetzt kein core mehr beim verlassen der Box.
  64. X
  65. X-  In mb-daemon.c gibt die Finktion scan() nur char zurueck! Geaendert auf
  66. X   char *scan(), da ein String zurueckgegeben wird.
  67. X
  68. X-  In bled.c, HILFE wird jetzt im Makefile definiert.
  69. X
  70. X-  File portinfo.c, bei ps musz leider anstatt "ps a", "ps -a" angegeben
  71. X   werden. Kann jetzt per #define in mbox.h definiert werden.
  72. X   Wenn ich <defunkt> Prozesse habe, geht das aber auch noch nicht richtig.
  73. X
  74. X-  If's auf File-Zeiger von 0 nach NULL geaendert. Ich hoffe ich habe alle
  75. X   gefunden.
  76. X
  77. X---------------------------------------------------------------------------
  78. X
  79. XSun Nov 17 09:02:12 CET 1991, Volker Schuermann <volkers@unnet.w.open.de>
  80. X
  81. Xix/MBox 1.6 PL1::
  82. X
  83. X-  Fataler Fehler im File xmd.c gefunden und behoben. 
  84. X   (Das Uebliche: "=" oder "==", dass ist hier die Frage ...)
  85. X
  86. X-  Ausgabe im Modus "Seitenweise ausgeben, Seitende markieren" komplett
  87. X   ueberarbeitet. Diese Aenderung bezieht sich auf show.c, portinfo.c,
  88. X   tools.c, misc2.c, misc.c und lesen2.c.
  89. X
  90. X-  Hergo's Makefile fast komplett uebernommen - leider ist MINIXens
  91. X   MAKE etwas umstaendlicher, desshalb musste 'ne kleinere Aenderung
  92. X   gemacht werden.
  93. X
  94. X-  Die Geschichte mit "ps -a" wird generell so gefahren, denn auch
  95. X   MINIX kennt diese Flagge. 
  96. X
  97. X---------------------------------------------------------------------------
  98. X
  99. XWed Nov 20 17:02:12 CET 1991, Volker Schuermann <volkers@unnet.w.open.de>
  100. X
  101. Xix/MBox 1.6 PL2::
  102. X
  103. X-  Im Makefile gab's noch ein paar Unstimmigkeiten .... jetzt gibt's
  104. X   ein paar weniger :-)
  105. X
  106. X-  Fuer den Fall das die Datei UDBASE (siehe mbox.h) nicht existiert,
  107. X   richtet die MBox automagisch eine Userdatenbank ein, die den 
  108. X   Definitionen in mbox.h angepasst wird.
  109. X
  110. X-  In admin.c war eine Forward Deklaration nicht zulaessig.
  111. X
  112. X-  Die SYSV-Version hatte den "nnpost" nicht im Griff. Dieses Problem
  113. X   ist jetzt behoben - allerdings werden Subject, Keywords und Summary
  114. X   mit "No xxxx." gefuellt wenn sie nicht definiert vom User definiert
  115. X   wurden.
  116. X
  117. X---------------------------------------------------------------------------
  118. X
  119. XSat Nov 23 16:22:24 MEZ 1991, Hergo Pape <hergo@ivcmd.Boerde.DE>
  120. X
  121. Xix/MBox 1.6 PL3::
  122. X
  123. X -  In coreleft.c noch ein "#include <malloc.h> eingefuegt, sonst kommt
  124. X    bei malloc() ein Warning.
  125. X -  Im Makefile ist weiterl.c angegeben! habe das File weiterleiten.c
  126. X    entsprechend umbenannt.
  127. X -  Unter ISC gibt es keine Funktion "chgrp()", das wird wie bei SYS7
  128. X    mit chown() gemacht. 
  129. X -  In bled.c wurde HILFE nochmal definiert! Habe #ifndef Klammer drum
  130. X    gesetzt.
  131. X -  In xmd.c fehlt in der Funktion main(), ganz hinten eine Klammer '}'!.
  132. X
  133. X---------------------------------------------------------------------------
  134. X
  135. XSun Nov 24 11:15:43 CET 1991, Volker Schuermann <volkers@unnet.w.open.de>
  136. X
  137. Xix/MBox 1.6 PL3::
  138. X
  139. X -  Die Flagge -D_ISC sorgt dafuer, dass auch unter Interactive UNIX
  140. X    der System Call "chown" statt "chown"&"chgrp" eingesetzt wird.
  141. X
  142. X -  Die Flagge -D_DATESTAMP gibt auf der Console (oder auf was immer
  143. X    gerade per REDIRECT umgeleitet wird) zusaetlich zu den alten MBox-
  144. X    Informatione auch Datum und Uhrzeit aus.
  145. X
  146. X---------------------------------------------------------------------------
  147. X
  148. XWed Dec 4 19:41:02 CET 1991, Volker Schuermann <volkers@unnet.w.open.de>
  149. X
  150. Xix/MBox 1.6 PL4::
  151. X
  152. X -  Die Flagge -D_SCO entspricht fast komplett -D_ISC. Allerdings wird
  153. X    die Definition der ENTER Taste bei -D_SCO zusaetzlich beeinflusst
  154. X    (ENTER = 13).
  155. X
  156. X -  Im Makefile fehlte bei PROGS die Angabe "xmd" ("mb-daemon" war doppelt
  157. X    aufgefuehrt.
  158. X
  159. X -  Die Umbenennung von "weiterleiten.c" auf "weiterl.c" bleibt auch
  160. X    weiterhin den Installateuren ueberlassen :-)
  161. X
  162. X
  163. X---------------------------------------------------------------------------
  164. X
  165. XSun Dec 8 19:41:02 CET 1991, Volker Schuermann <volkers@unnet.w.open.de>
  166. X
  167. Xix/MBox 1.6 PL4::
  168. X
  169. X -  Da die MBox ab sofort komplett auf RMAIL und INEWS aufsetzt, gibt's
  170. X    ein paar GROESSERE Aenderungen:
  171. X
  172. X    Die Modi SYS_ACCOUNT und HDB_UUCP wurden komplett deaktiviert.
  173. X
  174. X    Die Kommunikation mit RMAIL, INEWS und SMAIL (?) laeuft ueber drei
  175. X    Shell-Scripts: $MBOXHOME/etc/rmail.sh, ~/etc/inews.sh und ~/etc/alias.sh
  176. X
  177. X -  Bisher habe ich es nicht fertig gebracht auf SETUID "root" zu verzichten.    
  178. X    Auch nach der Umstellung auf RMAIL/INEWS laufen MB-DAEMON und MBOX
  179. X    nur mit "root"-Permissions fehlerfrei.
  180. X
  181. X---------------------------------------------------------------------------
  182. X
  183. XSat Dec 28 18:11:41 CET 1991, Volker Schuermann <volkers@unnet.w.open.de>
  184. X
  185. Xix/MBox 1.6e PL5::
  186. X    
  187. X -  Alle Text-Zeilen im Source-Code der ix/MBox wurden entfernt und durch
  188. X    #DEFINES ersetzt. Diese Defines koennen ueber das "Language-File"
  189. X    [mbox.msg] belegt werde.
  190. X
  191. X -  Die Dateien [help.befehle], [help.hilfe] und [help.shorthelp] liegen
  192. X    in englischen Versionen vor. Das gilt auch fuer die Dokumentation.
  193. X
  194. X -  Verschiedene Fehler in "lesen2.c" und "admin.c" wurden behoben. Ausserdem
  195. X    wird neue Post auch direkt beim Anmelden angekuendigt. 
  196. X
  197. X
  198. X---------------------------------------------------------------------------
  199. X
  200. XWed Jan 1 11:11:11 CET 1992, Volker Schuermann <volkers@unnet.w.open.de>
  201. X
  202. Xix/MBox 1.6 PL6::
  203. X
  204. X -  Probleme mit "ifdef XXX || XXX" in [defs.h] und [getline.c] geloest.
  205. X
  206. X -  Der XMD wertet nur noch das erste Auftreten von "From:" und "Subject:"
  207. X    aus. Bei "From" (aus dem Envelope) gibt's 'ne Sonderregelung. 
  208. X
  209. X---------------------------------------------------------------------------
  210. X
  211. XWed Jan 4 22:31:51 CET 1992, Volker Schuermann <volkers@unnet.w.open.de>
  212. X
  213. Xix/MBox 1.6 PL6::
  214. X
  215. X -  Befehl "Suchen" testweise implementiert. Er setzt auf GREP auf.
  216. X
  217. X -  Die Header von MAIL und NEWS koennen editiert werden. "Followup" und
  218. X    "Poster" werden erkannt und ausgewertet.
  219. X
  220. X---------------------------------------------------------------------------
  221. X
  222. XTue Feb 17 21:02:32 CET 1992, Volker Schuermann <volkers@unnet.w.open.DE>
  223. X
  224. Xix/MBox 1.6 PL8.7::
  225. X
  226. X -  Befehl "User" erweitert: Informationen ueber lokale User aus der
  227. X    Userdatenbank, oder per "uux" von anderen Sites.
  228. X
  229. X -  Sicherheitslecks in "postfach.c" und "admin.c" gefunden und entschaerft.
  230. X
  231. X -  Header werden generell <intensive> ausgegeben.
  232. X
  233. X -  Funktion "Download" bietet die Option mehrer Dateien mit einem
  234. X    Kommando zu uebertragen.
  235. X
  236. X -  Funktion "Statistik #" zeigt zusaetlich die Ausnutzung der Baudrate
  237. X    in Prozent an.
  238. X
  239. X -  Befehl "Statistik %" errechnet eine HITLISTE aus der Liste der
  240. X    Downloads.
  241. X
  242. X -  Erfassung in "postfach.c" und "admin.c" erlaubt keine Sonderzeichen
  243. X    in Name, Nick/Alias und Shell-Name.
  244. X
  245. X -  XMD verfuegt ueber eine XMD.ALIAS-Datei, in der Empfaenger-Adressen
  246. X    lokal umgeleitet werden koennen.
  247. X
  248. X -  Das Makefile wurde ERHEBLICH verbessert!
  249. X
  250. X -  Die INDEX-Files muessen nicht mehr global fuer alle Gruppen im
  251. X    voraus gebildet werden, sondern koennen auch online von der MBox
  252. X    gruppenweise erstellt werden.
  253. X
  254. X---------------------------------------------------------------------------
  255. X
  256. XFri May 28 19:53:21 CET 1992, Volker Schuermann <volkers@unnet.w.open.DE>
  257. X
  258. Xix/MBox 1.6 PL10::
  259. X
  260. X -  MB-DAEMON wurde erheblich verbessert, was zu einem Geschwindigkeits-
  261. X    vorteil von bis zu 200% fuehrt
  262. X
  263. X -  RTF (Richtext Format) und 'Quoted-Printable' sind jetzt fuer alle
  264. X    MBox-User lesbar
  265. X
  266. X -  Erste Schritte ich Richtung MultiMedia-Mail sind implementiert 
  267. X
  268. X -  Neue Befehle: EDIT, DOWNLOAD
  269. X
  270. X -  Es wurde ein Accouting-Mechanismus eingefuehrt, der levelabhaengig
  271. X    greift - dadurch laesst sich eine Trennung von zahlenden und nicht-
  272. X    zahlenden Usern herstellen
  273. X
  274. X---------------------------------------------------------------------------
  275. X
  276. XSat Jun 6 14:11:01 CET 1992, Volker Schuermann <volkers@unnet.w.open.DE>
  277. X
  278. Xix/MBox 1.6 PL10a::
  279. X
  280. X -  Der Befehl "BRETT !" wurde erweitert: Er zeigt jetzt neben dem
  281. X    Namen eines Brettes auch den entsprechenden Informationstext an
  282. X
  283. X -  Es gibt jetzt eine Moeglichkeit externe Kommandos direkt in die
  284. X    Befehls-Struktur der MBox einzubinden
  285. X
  286. X---------------------------------------------------------------------------
  287. X
  288. XWed Nov 25 24:00:00 CET 1992, Volker Schuermann <volkers@unnet.w.open.DE>
  289. X
  290. Xix/MBox 1.6 PL10j2::
  291. X
  292. X -  Umlaute werden nach ISO-8859-1 und IBM konvertiert. Natuerlich ist
  293. X    eine Umsetztung nach 'ae', 'oe', ... moeglich.
  294. X
  295. X -  RTF-Preview wurde entsfernt. Stattdessen gibt's einen neuen Fullscreen-
  296. X    Editor, der RTF-tauglich ist.
  297. X
  298. X -  Der Befehl "STATISTIK >" zeigt die Aktivitaeten von XMD an.
  299. X
  300. X -  Der Befehl "DISKUSSION" listet die Artikel/Gruppen, die ein User
  301. X    gesendet hat.
  302. X
  303. X -  XMD laesst sich als Gateway konfigurieren: "name%node@mailbox" ...
  304. X
  305. X -  Der Befehl "LOESCHEN >" entfernt alle 'Antworten', die sich im
  306. X    privaten Postfach befinden.
  307. X
  308. X---------------------------------------------------------------------------
  309. X
  310. XSun Jan 16 15:53:03 CET 1993, Volker Schuermann <volkers@unnet.w.open.DE>
  311. X
  312. Xix/MBox 1.6 PL10j7::
  313. X
  314. X -  Weiterer Terminaltyp COLOR-ANSI implementiert.
  315. X    
  316. X -  Der Befehl "USER" wurde um die Flagge "%" erweitert. Dieser Befehl
  317. X    zeigt die Userliste mit den NEWSGROUPS an.
  318. X
  319. X -  Die Headerzeile "Return-Receipt-To:" wird sowohl beim Senden als
  320. X    auch beim Empfangen von Mails unterstuetzt. 
  321. X
  322. X -  Wenn ein neues Postfach eingerichtet wird, geht automatisch eine
  323. X    Info-Mail an den Sysop.
  324. X
  325. X -  Die aktuelle Version wird am 17.01.1993 an "comp.sources.misc"
  326. X    verschickt.
  327. X
  328. X 
  329. END_OF_FILE
  330.   if test 10716 -ne `wc -c <'Changelog'`; then
  331.     echo shar: \"'Changelog'\" unpacked with wrong size!
  332.   fi
  333.   # end of 'Changelog'
  334. fi
  335. if test -f 'etc/english.hilfe' -a "${1}" != "-c" ; then 
  336.   echo shar: Will not clobber existing file \"'etc/english.hilfe'\"
  337. else
  338.   echo shar: Extracting \"'etc/english.hilfe'\" \(10356 characters\)
  339.   sed "s/^X//" >'etc/english.hilfe' <<'END_OF_FILE'
  340. X#?
  341. XCommand: "?"
  342. X
  343. XYou'll get a list of all commands, which you may use. The contents of this
  344. Xlist depends on your user-level. Type "? *", if you like to see ALL commands
  345. Xof this BBS.
  346. X
  347. X#0
  348. XCommand: "0" ("1-9")
  349. X
  350. XThere is a "dynamic command buffer", who captures every input you type at
  351. Xthe command-prompt. Type "0" to see which commands are in buffer, or any
  352. Xnumber between 1 and 9 to execute one of those commands. Of course, you may
  353. Xuse the cursor-keys to select any command, too.
  354. X
  355. X#+
  356. XCommand: "+"
  357. X
  358. XJump to the next board with new articles.
  359. X
  360. X#-
  361. XCommand: "-"
  362. XJump to the previous board with new articles.
  363. X
  364. X#ACCOUNT
  365. XCommand: "Account"
  366. X
  367. XYou need to registered to send and receive mails to/from all over the
  368. Xworld. The registration makes you a fully accepted user of this BBS.
  369. XYou're now reachable by mail from users on this host or on any host, this
  370. Xhost is connected to.
  371. X
  372. XPLEASE use your full name as username !
  373. X
  374. X#AREA
  375. XCommand: "Area"
  376. X
  377. XThis command makes it possible to jump between groups ('ar ++', 'ar --') or
  378. Xjust subgroups ('ar +', 'ar -').
  379. X
  380. X#BOARD
  381. XCommand: "Board"
  382. X
  383. XThere is a board for every single subject/theme with it's own index. So you
  384. Xhadn't to search long for special information on any item. To move from one
  385. Xboard to another, you use the command "board" with some options:
  386. X
  387. XBOARD                      list boards with new articles
  388. XBOARD *                    list all boards depending on userlevel
  389. XBOARD **                   list ALL boards
  390. XBOARD +                    go to the next board
  391. XBOARD -                    go to the previous board
  392. XBOARD !                    display the name of the current board
  393. XBOARD #                    list areas in board
  394. XBOARD ..           step from one area to the previous one
  395. XBOARD boardname            jump to board "boardname"
  396. X
  397. X#CHAT
  398. XCommand: "Chat"
  399. X
  400. X- systemdepending stuff -
  401. X
  402. X#DATE
  403. XCommand: "Date"
  404. X
  405. XShows the current date. (Not quite right ... it's shows the systems date :-)
  406. X
  407. X#DELETE
  408. XCommand: "Delete"
  409. X
  410. XDelete mails or articles. NOTE: Be careful! If you type "delete" in your
  411. XPM, every (!) mail will be scratched!
  412. X
  413. XDELETE               delete all your mail
  414. XDELETE article           delete article no. "article"
  415. XDELETE article-article       delete from "article" to "article"
  416. X
  417. X#DIR
  418. XCommand: "Dir"
  419. X
  420. XThis will give you a survey of what subjects are collect in the current
  421. Xboard. If you hadn't add a '*', you'll ony see the entries which are
  422. Xnew for you.
  423. X
  424. XDIR                        index new articles
  425. XDIR *                      index ALL articles (of a board)
  426. X
  427. X#DIRECTION
  428. XCommand: "Direction"
  429. X
  430. XIt's sounds pretty funny, but this commands decides whether you see
  431. Xanswers before questions or not :-)
  432. X
  433. X#DOWNLOAD
  434. XCommand: "Download"
  435. X
  436. XYou may use this to fetch a couple of articles. Just type in which
  437. Xarticles you want, and choose the prefered xfer-protocol.
  438. X
  439. X#EDIT
  440. XCommand: "Edit"
  441. X
  442. XFor the folks that are never quite satisfied with their work, the
  443. Xcommand "edit" offers the possibility to re-edit the text. Depending
  444. Xon the userlevel, changing other users articles is allowed, too ;-)
  445. X
  446. X#FINGER
  447. XCommand: "Finger"
  448. X
  449. XGetting informations about specified users is very easy. Use the command
  450. X"finger username" for local users, or "finger host!username" for users
  451. Xwho work on other sites.
  452. X
  453. X#FORWARD
  454. XCommand: "Forward"
  455. X
  456. XIf you like to send copies of mails/articles to other users, you may use
  457. Xthis command. The variable "user" (see below) stand for every kind of
  458. Xaddress (i.e. "Prename.Name", "host!name", "name@host.domain" etc.). So
  459. Xit is possible to forward articles to your own shell-account on this host,
  460. Xor to your account on any other host ... this may be useful sometimes.
  461. X
  462. XFORWARD                    list stored mails
  463. XFORWARD user               forward a stored mail to "user"
  464. XFORWARD mail user          forward "mail" to "user"
  465. XFORWARD article user       forward "article" to "user"
  466. X
  467. X#GAMES
  468. XCommand: "Games"
  469. X
  470. XThe list, that will be shown if you enter this command, includes some
  471. Xgames you may play. They all have own accounting procedures and different
  472. Xinstruction sets ... so don't blame the sysop for anything that will
  473. Xhappen to you :-)
  474. X
  475. X#GOODBYE
  476. XCommand: "Goodbye"
  477. X
  478. XNEVER use this command! (Exception: If you REALLY want to leave :-)
  479. X
  480. X#HELP
  481. XCommand: "Help"
  482. X
  483. XYou managed to get this information ... so why do you ask ???
  484. X
  485. XHELP                       this shorthelp
  486. XHELP *                     display some pages of helpful descriptions
  487. XHELP command               show information on "command"
  488. X
  489. X#MAIL
  490. XCommand: "Mail"
  491. X
  492. XOne of the most powerful commands on this BBS. If you are fitted out with
  493. Xthe right user-level, you're able to send mails to receivers all over the
  494. Xworld ... or just to another BBS-user.
  495. X
  496. XMAIL Prename.Name          (Prename.Name i.e. "Volker.Schuermann")
  497. XMAIL Alias                 (Alias i.e. "Sysop")
  498. XMAIL Shell-Account         (Shell-Account i.e. "volkers")
  499. X
  500. XThese three commands will deliver a mail to a user on this host. If this user
  501. Xhas his own BBS-account, the mail will be sent to his BBS-maildrop. 
  502. XOtherwise his/her shell-account-maildrop will be filled ... 
  503. X
  504. XMAIL Host!User             (Host!User i.e. "unnet!Volker.Schuermann")
  505. XMAIL User@Host.Domain      (User@Host.Domain i.e. "volker@unnet.w.open.de")
  506. X
  507. XBoth commands will send the mail to a user on another host (if "host" or
  508. X"host@domain" are the address of this host, the mail won't leave this host).
  509. X
  510. X#MACRO
  511. XCommand: "Macro"
  512. X
  513. XFor all lazy/intelligent users, here is a way to simplify work! Just create
  514. Xa new command to collect a group of commands:
  515. X
  516. Xnew = b comp.os.minix, d, key, b sub.os.minix, b
  517. X
  518. XThe new command "new" will jump to board "comp.os.minix" and show the index
  519. Xof new articels. If you hit (the) any key, it moves to "sub.os.minix" and 
  520. Xdoes the same.
  521. X
  522. XMacro = Command Sequence
  523. X===========================================================================
  524. Xandi  = mail andreas@xenox.ruhr.de
  525. Xwalt  = mail Walter, forward weller!walterb
  526. Xgrp   = mail volkers, forw xenox, forw stefans, forw joergg
  527. Xsts   = mail Stefan S, forw stefans@coduck.ruhr.sub.org, forw unnet!stefans
  528. Xin    = +, dir, KEY, in
  529. Xpp    = PORTINFO, SLEEP 5, pp
  530. X
  531. XThe entries "in" and "pp" are demonstrating how to build recursive commands.
  532. XUse CTRL-X to break the run of such a command sequence!
  533. X
  534. X#MESSAGE
  535. XCommand: "Message"
  536. X
  537. XYou may use this text to inform other users that you're offline for a
  538. Xfew days or that you never answers mail or what ever ...
  539. X
  540. XThis text is shown to everybody who wants to send a mail to you on this
  541. Xhost.
  542. X
  543. X#MINIX
  544. XCommand: "Minix"
  545. X
  546. XIf you'd have to leave the BBS everytime you like to do something on
  547. Xshell-level, it would be a nice swapping around on this system. But with
  548. Xthe command "minix", you can do everything (even start the BBS :-) without
  549. Xleaving ... 
  550. X
  551. X#PORTINFO
  552. XCommand: "Portinfo"
  553. X
  554. XHave a look on what the other users are doing. This includes BBS-users
  555. Xas well as shell-only-users (poor guys :-)
  556. X
  557. X#PROTOCOL
  558. XCommand: "Protocol"
  559. X
  560. XSee WHO called in WHEN from WHERE on WHICH line ... puhh, but that's exactly
  561. Xwhat this command is doing.
  562. X
  563. XIf you use the option "#" (means "protocol #"), the informations are shown
  564. Xas a diagram (for statistics purposes). 
  565. X
  566. X#PM
  567. XCommand: "PM"
  568. X
  569. XMove to the board with your BBS-maildrop. There you may check your incomming
  570. Xmails and answer (reply) them.
  571. X
  572. X#READ
  573. XCommand: "Read"
  574. X
  575. XThat's how to get the information hidden behind the subjects ... the options
  576. Xto this command a described in the following:
  577. X
  578. XREAD                       read NEW articles
  579. XREAD *                     real ALL articles (of a board)
  580. XREAD article               show article no. "article"
  581. XREAD article-article       display from "article" to "article"
  582. X
  583. XThe line "READ article" builds an exceptions ... if the listing of the
  584. Xspecified article is complete, the BBS shows a little menu to you. Type
  585. Xa "?" at the prompt to see what actions are available there!
  586. X
  587. XUsing this form of the command "read" is the most convenient way to consume
  588. Xarticles!!! 
  589. X
  590. X#SETUP
  591. XCommand: "Setup"
  592. X
  593. XTo make life easier (especially YOUR life), you may change lot's of the
  594. XBBS depending paramaters. The SETUP is fully controlled by menu, so you
  595. Xonly have to hit keys (more or less astonished because of the features 
  596. Xyou never noticed before) ...
  597. X
  598. X#SIGNATURE
  599. XCommand: "Signature"
  600. X
  601. XUse this command to create a text, that will be sent as a footnote of every
  602. Xmail/article you'll write on this BBS. Have a look on the ".signatures"
  603. Xof other ppl. to see which facts belong to such a text ...  
  604. X
  605. X#STATE
  606. XCommand: "State"
  607. X
  608. XGives a summary of all data, this BBS has stored in it's accouting database.
  609. XOf course,only that part of data is shown, that belongs to you!
  610. X
  611. X#STATISTICS
  612. XCommand: "Statistics"
  613. X
  614. XThe BBS collects some information for statistics purpose. If you are inter-
  615. Xested in those statistics, use one of the following options:
  616. X
  617. XSTATISTICS                 table containing NEWS-statistics
  618. XSTATISTICS *               table containing more NEWS-statistics
  619. XSTATISTICS $               UUCP-rates (only if UUCP supports this)
  620. XSTATISTICS #               download-statistics 
  621. X
  622. XThe option "$" depends on the systems UUCP-Support. Ask your Sysop whether
  623. Xthis system accounts UUCP-Rates or not.
  624. X
  625. X#TIME
  626. XCommand: "Time"
  627. X
  628. XShows the system time and the time you're online in seconds ... my goodness,
  629. Xfive hours, and still online ...
  630. X
  631. X#USERS
  632. XCommand: "Users"
  633. X
  634. XYep, you're not alone on this host. To see who's on too, type one of the
  635. Xfollowing commands:
  636. X
  637. XUSERS                      show users list
  638. XUSERS *                    show users list (more detailed)
  639. XUSERS #                    users up-/download ratio
  640. X
  641. XIf your level is to low, you won't be able to use the "#" option - don't
  642. Xbe angry, it's not as much interesting, as it seems to be (use "stati #"
  643. Xinstead :-)
  644. X
  645. X#VERSION
  646. XCommand: "Version"
  647. X
  648. XThis option was built in for other Sysops only - they may use it to spy out
  649. Xwhich BBS is the older one - nothing else.
  650. X
  651. XVERSION                    print version
  652. XVERSION *                  display compiling definitions
  653. XVERSION #                  the "Hall of Fame"
  654. X
  655. XThe option "#" gives a list of ppl., who were members of the "BBS gold crew"
  656. Xduring it's development :-)
  657. X
  658. X#WRITE
  659. XCommand: "Write"
  660. X
  661. XUse this command to create a new article for any board or newsgroup on this
  662. XBBS. Depending on your user-level this article will be sent with distribution
  663. X"world", "*group*" or "local". 
  664. X
  665. XDon't use this command to send mails to other users ... try it, if you don't
  666. Xtrust in documentations. 
  667. END_OF_FILE
  668.   if test 10356 -ne `wc -c <'etc/english.hilfe'`; then
  669.     echo shar: \"'etc/english.hilfe'\" unpacked with wrong size!
  670.   fi
  671.   # end of 'etc/english.hilfe'
  672. fi
  673. if test -f 'src/games.c' -a "${1}" != "-c" ; then 
  674.   echo shar: Will not clobber existing file \"'src/games.c'\"
  675. else
  676.   echo shar: Extracting \"'src/games.c'\" \(1173 characters\)
  677.   sed "s/^X//" >'src/games.c' <<'END_OF_FILE'
  678. X/***************************************************************************/
  679. X/*        PROGRAMM  ix/Mbox                           */
  680. X/*             DATEI  games.c                           */
  681. X/*        FUNKTIONEN  games()                           */
  682. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  683. X/*  LETZTE AENDERUNG  25.11.1991                       */
  684. X/***************************************************************************/
  685. X
  686. X#include <stdio.h>
  687. X#include "mbox.h"
  688. X
  689. X
  690. Xgames()
  691. X{
  692. X  FILE *fp;
  693. X  int i, c;
  694. X
  695. X  unsigned char s[STRING];
  696. X  unsigned char GAME[MAX_GAMES][STRING];
  697. X
  698. X
  699. X  headline( GA01_MSG );
  700. X  printf("\n");
  701. X
  702. X  fp = fopen(GAMES, "r");
  703. X  if (fp == NULL) {
  704. X    nerror("games.c", 19, "games", "Datei-Lesefehler", GAMES);
  705. X  }
  706. X  i = 0;
  707. X  while((fgets(s, 80, fp) != NULL) && (s[0] == '/'));
  708. X  while((i < MAX_GAMES) && (fscanf(fp, "%s %s", s, GAME[i]) > 0)){
  709. X    i++;
  710. X    printf("  %d - %s\n\n", i, s); 
  711. X  }
  712. X  fclose(fp);
  713. X
  714. X  ansi("md");
  715. X  printf("\n%s > ", GA02_MSG);
  716. X  ansi("me");
  717. X
  718. X  c = getint();
  719. X  if(c > 32) printf("%c", c);
  720. X  c -= 49;
  721. X
  722. X  if((c >= 0) && (c < i)){
  723. X    printf("\n\n");
  724. X    sprintf(s, "%s %s %d %d", RSH, GAME[c], OLDUID, OLDGID);
  725. X    system(s);    
  726. X  }
  727. X  else{
  728. X    ansi("md");
  729. X    printf(" %s\n", GA03_MSG);
  730. X    ansi("me");
  731. X  }
  732. X}
  733. X
  734. END_OF_FILE
  735.   if test 1173 -ne `wc -c <'src/games.c'`; then
  736.     echo shar: \"'src/games.c'\" unpacked with wrong size!
  737.   fi
  738.   # end of 'src/games.c'
  739. fi
  740. if test -f 'src/lesen.c' -a "${1}" != "-c" ; then 
  741.   echo shar: Will not clobber existing file \"'src/lesen.c'\"
  742. else
  743.   echo shar: Extracting \"'src/lesen.c'\" \(9853 characters\)
  744.   sed "s/^X//" >'src/lesen.c' <<'END_OF_FILE'
  745. X/***************************************************************************/
  746. X/*        PROGRAMM  ix/Mbox                           */
  747. X/*             DATEI  lesen.c                           */
  748. X/*        FUNKTIONEN  lesen(), ansage(), unterschrift()               */
  749. X/*              getsite(), checkdomaintype()               */
  750. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  751. X/*  LETZTE AENDERUNG  30.10.1992                       */
  752. X/***************************************************************************/
  753. X
  754. X#include <sys/types.h>
  755. X#include <sys/stat.h>
  756. X#include <unistd.h>
  757. X#include <fcntl.h>
  758. X#include <stdio.h>
  759. X#include <utmp.h>
  760. X#include <time.h>
  761. X
  762. X
  763. X#include "mbox.h"
  764. X
  765. X
  766. Xextern unsigned char headinfo[STRING];
  767. X
  768. X
  769. X/***************************************************************************/
  770. X/*      FUNKTION  lesen()                           */
  771. X/*  BESCHREIBUNG  Zeigt einen Artikel o. eine persoenliche Mail an. Bietet */
  772. X/*          dann versch. Optionen zum Weiterlesen o. Beantworten an. */
  773. X/*     PARAMETER  arg  =  Nummer des Artikels/der Mail                     */
  774. X/*     RUECKGABE  keine                                                       */
  775. X/***************************************************************************/
  776. X
  777. Xvoid lesen(arg)
  778. Xunsigned char arg[];
  779. X{
  780. X  FILE *fp;
  781. X  unsigned char s[LSTRING];
  782. X  unsigned char entry[STRING];
  783. X  unsigned char no[10];
  784. X  unsigned char c;
  785. X  int i;
  786. X  int ok;
  787. X  int MIN, MAX;
  788. X  int pr;
  789. X
  790. X  struct stat fst;
  791. X
  792. X  sprintf(no, "%s", arg);
  793. X
  794. X  maybe_locked(INHALT, "r");
  795. X  fp = fopen(INHALT, "r");
  796. X  if (fp == NULL) {
  797. X    nerror("misc.c", 558, "lesen", "Datei-Lesefehler", INHALT);
  798. X  }
  799. X  while ((fgets(s, LSTRING, fp) != NULL) && (s[2] != '='));
  800. X  fgets(s, LSTRING, fp);
  801. X  MIN = atoi(s);
  802. X  while (fgets(s, LSTRING, fp) != NULL) {
  803. X    MAX = atoi(s);
  804. X  }
  805. X  fclose(fp);
  806. X
  807. X  if (MAX < MIN) {
  808. X    i = MIN;
  809. X    MIN = MAX;
  810. X    MAX = i;
  811. X  }
  812. X
  813. X  NEXT_MSG:
  814. X
  815. X  if ((no[0] < '1') || (no[0] > '9')) {
  816. X    ansi("md");
  817. X    printf(" %s\n", MIS41_MSG);
  818. X    ansi("me");
  819. X    return;
  820. X  }
  821. X  if (pruefe(no) != 0) goto NEXT_NEXT;
  822. X
  823. X  printf("\n\n");
  824. X  ansi("cl");
  825. X
  826. X  if (strcomp(BRETT, "PM") != 0) {
  827. X        sprintf(entry, "%s/%s", BRETT, no); 
  828. X    if(USER.terminal == 4){
  829. X        ansi("md");
  830. X        printf("%s %s\n", MIS42_MSG, no);
  831. X        ansi("me");
  832. X    }
  833. X    else{
  834. X        sprintf(headinfo, " %s %s (%s) ", MIS43_MSG, no, NG);
  835. X        headline( headinfo );
  836. X    }
  837. X    ok = show(entry, 9999, USER.more);
  838. X  }
  839. X  else {
  840. X    sprintf(entry, "%s/usr/%d/%s", HOME, USER.id, no);
  841. X    if(USER.terminal == 4){
  842. X        ansi("md");
  843. X        printf("%s %s\n", MIS44_MSG, no);
  844. X        ansi("me");
  845. X    }
  846. X    else{
  847. X        sprintf(headinfo, " %s (%s) ", MIS45_MSG, no);
  848. X        headline( headinfo );
  849. X    }
  850. X    ok = show(entry, 9999, USER.more);
  851. X  }
  852. X
  853. X  if(ok == -1) return;
  854. X  if(ok == -9){
  855. X    if(USER.leserichtung == 1){
  856. X        c = MIS52_MSG;
  857. X    }
  858. X    else{
  859. X        c = MIS51_MSG;
  860. X     }
  861. X    goto NEXT_DIS;
  862. X  }
  863. X
  864. X  c = LF;
  865. X
  866. X  NEXT_NEXT:
  867. X
  868. X  printf("\n");
  869. X  ansi("mr");
  870. X  printf("[Mesg. %s] %s, ? > ", no, MIS46_MSG);
  871. X  ansi("me");
  872. X  printf("%c%c", MIS51_MSG, BS);
  873. X
  874. X  do {
  875. X    c = getint();
  876. X    if (strcomp(BRETT, "PM") == 0) {
  877. X        if (c == MIS50_MSG) c = '*';
  878. X    }
  879. X    if (c >= 97) c -= 32;
  880. X    if (c == ENTER) c = MIS51_MSG;
  881. X    if (c == '?') {
  882. X        clearline();
  883. X        ansi("mr");
  884. X        printf("%c%s > ", CR, MIS53_MSG);
  885. X        ansi("me");
  886. X    }
  887. X    if ((c != MIS47_MSG) && (c != MIS48_MSG) && (c != MIS49_MSG) && (c != MIS50_MSG) && (c != MIS51_MSG) && (c != MIS52_MSG) && (c != '*'))
  888. X        c = 0;
  889. X  } while (c == 0);
  890. X
  891. X  printf("%c", c);
  892. X
  893. X  NEXT_DIS:
  894. X
  895. X  if (c == MIS50_MSG) {        /* LOESCHEN */
  896. X    clearline();
  897. X    ansi("mr");
  898. X    printf("%s [%c, %c] > ", MIS54_MSG, GBL06_MSG, GBL07_MSG);
  899. X    ansi("me");
  900. X    if (yesno() == GBL06_MSG) {
  901. X        loeschen(no);
  902. X    }
  903. X    printf("\n");
  904. X    c = MIS51_MSG;
  905. X  }
  906. X  if (c == '*') {        /* LOESCHEN (sofort) */
  907. X    loeschen(no);
  908. X    printf("\n");
  909. X    c = MIS51_MSG;
  910. X  }
  911. X  if (c == MIS51_MSG) {        /* NAECHSTE */
  912. X    ok = 0;
  913. X    do {
  914. X        i = atoi(no);
  915. X        i++;
  916. X        sprintf(no, "%d", i);
  917. X        pr = pruefe(no);
  918. X        if (pr == 0) ok = 1;
  919. X        if (pr == 1) goto NEXT_NEXT;
  920. X        if (i > MAX) {
  921. X            printf("\n\n%s\n", MIS55_MSG);
  922. X            return;
  923. X        }
  924. X    } while (ok == 0);
  925. X    if (ok == 1) goto NEXT_MSG;
  926. X    goto NEXT_NEXT;
  927. X  }
  928. X  if (c == MIS52_MSG) {        /* VORHERIGE */
  929. X    ok = 0;
  930. X    do {
  931. X        i = atoi(no);
  932. X        i--;
  933. X        sprintf(no, "%d", i);
  934. X        pr = pruefe(no);
  935. X        if (pr == 0) ok = 1;
  936. X        if (pr == 1) goto NEXT_NEXT;
  937. X        if (i < MIN) {
  938. X            printf("\n\n%s\n", MIS56_MSG);
  939. X            return;
  940. X        }
  941. X    } while (ok == 0);
  942. X    if (ok == 1) goto NEXT_MSG;
  943. X    goto NEXT_NEXT;
  944. X  }
  945. X  if (c == MIS49_MSG) goto NEXT_MSG;    /* WIEDERHOLEN */
  946. X
  947. X
  948. X  if (c == MIS48_MSG) {            /* BEANTWORTEN */
  949. X    headline( MIS57_MSG );
  950. X    printf("\n%s", MIS58_MSG);
  951. X    sprintf(s, "cp %s %s/%dRep > /dev/null", entry, TMP, getpid());
  952. X    system(s);
  953. X
  954. X    if (strcomp(BRETT, "PM") == 0) {
  955. X        if(brief("~REPLY~") != -1){
  956. X            sprintf(s, "%s?", USER.name);
  957. X            brief(s);
  958. X            sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  959. X            stat(s, &fst);
  960. X            IDX_SIZE = (int) fst.st_size;
  961. X        }
  962. X    }
  963. X    else {
  964. X        printf("\n\n");
  965. X        ansi("mr");
  966. X        printf("%s, ? > ", MIS59_MSG);
  967. X        ansi("me");
  968. X
  969. X        do {
  970. X            c = getint();
  971. X            if (c >= 97) c -= 32;
  972. X            if (c == '?') {
  973. X                clearline();
  974. X                ansi("mr");
  975. X                printf("%c%s > ", CR, MIS60_MSG);
  976. X                ansi("me");
  977. X            }
  978. X            if ((c != MIS61_MSG) && (c != MIS62_MSG)) c = 0;
  979. X        } while (c == 0);
  980. X
  981. X        printf("%c", c);
  982. X
  983. X        if (c == MIS62_MSG) {
  984. X            schreiben("");
  985. X        }
  986. X        if (c == MIS61_MSG) {
  987. X            if((brief("~REPLY~") != -1) && (strcomp(GUEST, USER.name) != 0)){
  988. X                sprintf(s, "%s?", USER.name);
  989. X                brief(s);
  990. X                sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  991. X                stat(s, &fst);
  992. X                    IDX_SIZE = (long) fst.st_size;
  993. X            }
  994. X        }
  995. X    }
  996. X    goto NEXT_NEXT;
  997. X  }
  998. X  printf("\n");
  999. X  return;
  1000. X}
  1001. X
  1002. X
  1003. X
  1004. X/***************************************************************************/
  1005. X/*      FUNKTION  ansage()                           */
  1006. X/*  BESCHREIBUNG  Der Ansage-Text wird angezeigt und kann geandert werden. */
  1007. X/*     PARAMETER  keine                                                       */
  1008. X/*     RUECKGABE  keine                                                       */
  1009. X/***************************************************************************/
  1010. X
  1011. Xvoid ansage()
  1012. X{
  1013. X  FILE *ff;
  1014. X  unsigned char s[STRING];
  1015. X  unsigned char t[STRING];
  1016. X  unsigned char TEP[STRING];
  1017. X  unsigned char c;
  1018. X
  1019. X
  1020. X  printf("\n\n%s\n\n", MAL38_MSG);
  1021. X
  1022. X  sprintf(TEP, "%s/usr/%d/.hello", HOME, USER.id);
  1023. X  ff = fopen(TEP, "r");
  1024. X  if (ff != NULL) {
  1025. X    ansi("md");
  1026. X    while (fgets(s, 80, ff) != NULL) {
  1027. X        printf("%s", s);
  1028. X    }
  1029. X    fclose(ff);
  1030. X    ansi("me");
  1031. X    printf("\n\n");
  1032. X  }
  1033. X  ansi("mr");
  1034. X  printf("%c%s [%c, %c] > ", CR, MAL39_MSG, GBL06_MSG, GBL07_MSG);
  1035. X  ansi("me");
  1036. X
  1037. X  c = yesno();
  1038. X
  1039. X  if (c == GBL06_MSG) {
  1040. X    sprintf(t, "%s %s", EDDY, TEP);
  1041. X    system(t);
  1042. X  }
  1043. X  printf("\n");
  1044. X}
  1045. X
  1046. X
  1047. X
  1048. X
  1049. X/***************************************************************************/
  1050. X/*      FUNKTION  unterschrift                           */
  1051. X/*  BESCHREIBUNG  Die Unterschrift (.signature) wird angezeigt und kann    */
  1052. X/*          geandert werden.                                         */
  1053. X/*     PARAMETER  keine                                                       */
  1054. X/*     RUECKGABE  keine                                                       */
  1055. X/***************************************************************************/
  1056. X
  1057. Xvoid unterschrift()
  1058. X{
  1059. X  FILE *ff;
  1060. X  unsigned char s[STRING];
  1061. X  unsigned char t[STRING];
  1062. X  unsigned char TEP[STRING];
  1063. X  unsigned char c;
  1064. X
  1065. X
  1066. X  printf("\n\n%s\n\n", MAL40_MSG);
  1067. X
  1068. X  sprintf(TEP, "%s/usr/%d/.signature", HOME, USER.id);
  1069. X  ff = fopen(TEP, "r");
  1070. X  if (ff != NULL) {
  1071. X    ansi("md");
  1072. X    while (fgets(s, 80, ff) != NULL) {
  1073. X        printf("%s", s);
  1074. X    }
  1075. X    fclose(ff);
  1076. X    ansi("me");
  1077. X    printf("\n\n");
  1078. X  }
  1079. X  ansi("mr");
  1080. X  printf("%c%s [%c, %c] > ", CR, MAL41_MSG, GBL06_MSG, GBL07_MSG);
  1081. X  ansi("me");
  1082. X
  1083. X  c = yesno();
  1084. X
  1085. X  if (c == GBL06_MSG) {
  1086. X    sprintf(t, "%s %s", EDDY, TEP);
  1087. X    system(t);
  1088. X  }
  1089. X  printf("\n");
  1090. X}
  1091. X
  1092. X
  1093. X
  1094. X
  1095. X/***************************************************************************/
  1096. X/*      FUNKTION  getsite()                           */
  1097. X/*  BESCHREIBUNG  Findet den Empfaenger SITE in der Adresse           */
  1098. X/*     PARAMETER  Adresse                                                  */
  1099. X/*     RUECKGABE  Empfaenger SITE                                          */
  1100. X/***************************************************************************/
  1101. X
  1102. Xunsigned char *getsite(arg)
  1103. Xunsigned char arg[];
  1104. X{
  1105. X  int i = 0, a = 0, b = 0, c = 0;
  1106. X  unsigned char s[STRING];
  1107. X
  1108. X  while(arg[i] != '\0'){
  1109. X    if(arg[i] == '!') a = i - 1;
  1110. X    if(arg[i] == '@') b = i + 1;
  1111. X    if(arg[i] == '.'){
  1112. X        if((b != 0) && (c == 0)) c = i -1;
  1113. X    }
  1114. X    i++;
  1115. X  }
  1116. X
  1117. X  if((a == 0) && (b == 0)) strcat(s, UUCPSITE);
  1118. X  if(a != 0) strcpy(s, (unsigned char *) strcopy(arg, 0, a));
  1119. X  if(b != 0) strcpy(s, (unsigned char *) strcopy(arg, b, c));
  1120. X
  1121. X  return (unsigned char *) s;
  1122. X}
  1123. X
  1124. X
  1125. X
  1126. X
  1127. X/***************************************************************************/
  1128. X/*      FUNKTION  checkdomaintype()                       */
  1129. X/*  BESCHREIBUNG  Internationale MAIL ???                    */
  1130. X/*     PARAMETER  Adresse                                                  */
  1131. X/*     RUECKGABE   0 = ok                                                  */
  1132. X/*                -1 = Level zu gering                       */
  1133. X/***************************************************************************/
  1134. X
  1135. Xint checkdomaintype(arg)
  1136. Xunsigned char arg[];
  1137. X{
  1138. X  int i = 0, l, a, e = 0, f = 0, g = 0, international = 0;
  1139. X  unsigned char s[STRING];
  1140. X
  1141. X  if(USER.level >= WRITE_INTERNAT) return 0;
  1142. X
  1143. X  while(arg[i] != '\0'){
  1144. X    if(arg[i] == '!') e++;
  1145. X    if(arg[i] == '@') g++;
  1146. X    i++;
  1147. X  }
  1148. X  s[0] = '\0';
  1149. X
  1150. X  if((e == 0) && (g == 0)) return 0;
  1151. X
  1152. X  if(e > 1) international++;
  1153. X
  1154. X  if(e == 0){
  1155. X
  1156. X    l = strlen( (unsigned char *) arg);
  1157. X
  1158. X    a = strlen( (unsigned char *) NAT_DOMAIN1 );
  1159. X    strcpy(s, (unsigned char *) strcopy(arg, (l-a), l));
  1160. X    if(strcomp(s, NAT_DOMAIN1) == 0) f++;
  1161. X
  1162. X    a = strlen( (unsigned char *) NAT_DOMAIN2 );
  1163. X    strcpy(s, (unsigned char *) strcopy(arg, (l-a), l));
  1164. X    if(strcomp(s, NAT_DOMAIN2) == 0) f++;
  1165. X
  1166. X    a = strlen( (unsigned char *) NAT_DOMAIN3 );
  1167. X    strcpy(s, (unsigned char *) strcopy(arg, (l-a), l));
  1168. X    if(strcomp(s, NAT_DOMAIN3) == 0) f++;      
  1169. X
  1170. X    if(f == 0) international++;
  1171. X  }  
  1172. X
  1173. X  if(international != 0){
  1174. X    ansi("md");
  1175. X    printf("\n\n%s (%d) %s\n", MAL01_MSG, WRITE_INTERNAT, MAL02_MSG);
  1176. X    ansi("me");
  1177. X    return -1;    
  1178. X  }
  1179. X
  1180. X  return 0;
  1181. X}
  1182. X
  1183. X
  1184. X
  1185. X
  1186. END_OF_FILE
  1187.   if test 9853 -ne `wc -c <'src/lesen.c'`; then
  1188.     echo shar: \"'src/lesen.c'\" unpacked with wrong size!
  1189.   fi
  1190.   # end of 'src/lesen.c'
  1191. fi
  1192. if test -f 'src/postfach.c' -a "${1}" != "-c" ; then 
  1193.   echo shar: Will not clobber existing file \"'src/postfach.c'\"
  1194. else
  1195.   echo shar: Extracting \"'src/postfach.c'\" \(9214 characters\)
  1196.   sed "s/^X//" >'src/postfach.c' <<'END_OF_FILE'
  1197. X/***************************************************************************/
  1198. X/*        PROGRAMM  ix/Mbox                           */
  1199. X/*             DATEI  postfach.c                       */
  1200. X/*        FUNKTIONEN  postfach()                       */
  1201. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1202. X/*  LETZTE AENDERUNG  16.11.1992                       */
  1203. X/***************************************************************************/
  1204. X  
  1205. X#include <stdio.h>
  1206. X#include <sys/types.h>
  1207. X#include <fcntl.h>
  1208. X#include <unistd.h>
  1209. X#include <ctype.h>
  1210. X
  1211. X#include "mbox.h"
  1212. X
  1213. X
  1214. X
  1215. X/***************************************************************************/
  1216. X/*      FUNKTION  postfach()                           */
  1217. X/*  BESCHREIBUNG  Postfach und versch. Dateien fuer einen neuen Teil-      */
  1218. X/*          nehmer einrichten.                                       */
  1219. X/*     PARAMETER  arg  =  '*'  =  normaler Aufruf, wird geprueft       */
  1220. X/*                   =  Aufruf von ADMIN                         */
  1221. X/*               =  '#'  =  Neuinstallation der UDBASE           */
  1222. X/*     RUECKGABE  keine                                                       */
  1223. X/***************************************************************************/
  1224. X
  1225. Xvoid postfach(arg)
  1226. Xunsigned char arg[];
  1227. X{
  1228. X  int fd;
  1229. X  FILE *fp;
  1230. X  unsigned char s[STRING*2];
  1231. X  unsigned char t[STRING*2];
  1232. X  struct userdaten LOOSER;
  1233. X  struct userdaten POSTER;
  1234. X  int ok, i, j, c;
  1235. X  long ll;
  1236. X
  1237. X
  1238. X  if (arg[0] == '*') {
  1239. X    if ((strcomp(GUEST, USER.name) != 0) &&
  1240. X        (strcomp(POSTMASTER, USER.sh_name) != 0)) {
  1241. X        ansi("md");
  1242. X        printf(" %s\n", POS01_MSG);
  1243. X        ansi("me");
  1244. X        return;
  1245. X    }
  1246. X  }
  1247. X  
  1248. X  if (arg[0] == '#') {
  1249. X
  1250. X    if (arg[1] == '1') { /* ADMINISTRATION */
  1251. X
  1252. X        strcpy(USER.name, "Administration");
  1253. X        strcpy(USER.sh_name, POSTMASTER);
  1254. X        strcpy(USER.nick, "Sysop");
  1255. X
  1256. X        USER.id = 1;
  1257. X        USER.level = 10;
  1258. X
  1259. X        printf("%s - %s (%s)\n", POS04_MSG, USER.name, USER.sh_name);
  1260. X
  1261. X        fp = fopen(UDSEQ, "w");
  1262. X        if (fp == NULL) {
  1263. X            nerror("postfach.c", 63, "postfach", "Datei-Schreibfehler", UDSEQ);
  1264. X        }
  1265. X        fputs("1", fp);
  1266. X        fclose(fp);
  1267. X        
  1268. X        fp = fopen(UDBASE, "w");
  1269. X        fclose(fp);
  1270. X    }     
  1271. X    if (arg[1] == '2') { /* GUEST */
  1272. X    
  1273. X        strcpy(USER.name, GUEST);
  1274. X        strcpy(USER.sh_name, GBL10_MSG);
  1275. X        strcpy(USER.nick, POS03_MSG);
  1276. X
  1277. X        USER.id = 2;
  1278. X        USER.level = 0;
  1279. X    
  1280. X        printf("%s - %s (%s)\n", POS05_MSG, USER.name, USER.sh_name);
  1281. X    }
  1282. X
  1283. X    strcpy(USER.passwort, "*****");
  1284. X    strcpy(USER.wohnort, "");
  1285. X    strcpy(USER.strasse, "???");
  1286. X    strcpy(USER.telefon1, "???");
  1287. X    strcpy(USER.telefon2, "???");
  1288. X    strcpy(USER.geburtsdatum, "00.00.0000");
  1289. X    strcpy(USER.account, "00.00.0000 000.00");
  1290. X
  1291. X    goto INIT_UDBASE;
  1292. X  }
  1293. X
  1294. X  maybe_locked(UDBASE, "r"); 
  1295. X  fd = open(UDBASE, O_RDONLY);
  1296. X  if (fd == -1) {
  1297. X    nerror("postfach.c", 51, "postfach", "Datei-Lesefehler", UDBASE);
  1298. X  }
  1299. X  headline( POS06_MSG );
  1300. X  ansi("md");
  1301. X  printf("\n%s\n%s\n%s\n\n", POS07_MSG, POS08_MSG, POS09_MSG);
  1302. X  ansi("me");
  1303. X
  1304. X  RETRY_1:
  1305. X
  1306. X  printf("\n%s ", POS10_MSG);
  1307. X  strcpy(s, POSTER.name);
  1308. X  strcpy(POSTER.name, (unsigned char *) getline(30, 15, '.', ""));
  1309. X  if ((strcomp("<BREAK>", POSTER.name) == 0) || (POSTER.name[0] < 64) || (POSTER.name[1] < 64)) {
  1310. X    strcpy(POSTER.name, s);
  1311. X    printf("\n\n");
  1312. X    ansi("md");
  1313. X    printf("%s", POS11_MSG);
  1314. X    ansi("me");
  1315. X    printf("\n");
  1316. X    return;
  1317. X  }
  1318. X  ansi("md");
  1319. X  printf("\n%s", POS12_MSG);
  1320. X  ok = 0;
  1321. X  strcpy(POSTER.name, (unsigned char *) stripped(POSTER.name));
  1322. X  lseek(fd, 0L, SEEK_SET);
  1323. X  while ((read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER)) && (ok == 0)) {
  1324. X    if (strcomp(POSTER.name, LOOSER.name)    == 0) ok = 1;
  1325. X    if (strcomp(POSTER.name, LOOSER.nick)    == 0) ok = 1;
  1326. X    if (strcomp(POSTER.name, LOOSER.sh_name) == 0) ok = 1;
  1327. X  }
  1328. X
  1329. X  if (USER.level < ADMIN_LEV){
  1330. X      if ((strcomp("SYSOP", POSTER.name) == 0) ||
  1331. X          (strcomp("POST",  POSTER.name) == 0) ||
  1332. X          (strcomp("GAST",  POSTER.name) == 0) ||
  1333. X          (strcomp("ADMIN", POSTER.name) == 0) ||
  1334. X          (strcomp("COSYS", POSTER.name) == 0)) ok = 1;
  1335. X  }
  1336. X
  1337. X  if (ok == 1) {
  1338. X    printf(" %s\n", POS13_MSG);
  1339. X    ansi("me");
  1340. X    sprintf(POSTER.name, "%s", s);
  1341. X    goto RETRY_1;
  1342. X  }
  1343. X  ansi("me");
  1344. X
  1345. X  do {
  1346. X    printf("%c%s ", CR, POS14_MSG);
  1347. X    strcpy(s, (unsigned char *) getline(10, 11, '.', ""));
  1348. X    if (strcomp("<BREAK>", s) == 0) s[0] = '\0';
  1349. X    strcpy(POSTER.passwort, (unsigned char *) crypted(s));
  1350. X    if (length(POSTER.passwort) < 5) {
  1351. X        ansi("md");
  1352. X        printf("\n%s", POS15_MSG);        
  1353. X        ansi("me");
  1354. X    }
  1355. X  } while (length(POSTER.passwort) < 5);
  1356. X
  1357. XRETRY_2:
  1358. X
  1359. X  printf("\n%s ", POS16_MSG);
  1360. X  strcpy(s, getline(30, 15, '.', ""));
  1361. X  if (strcomp("<BREAK>", s) == 0) {
  1362. X    strcpy(s, "John Doe");
  1363. X  }
  1364. X  strcpy(POSTER.nick, (unsigned char *) stripped(s));
  1365. X
  1366. X  ansi("md");
  1367. X  printf("\n%s", POS12_MSG);
  1368. X  ok = 0;
  1369. X  lseek(fd, 0L, SEEK_SET);
  1370. X  while ((read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER)) && (ok == 0)) {
  1371. X    if (strcomp(POSTER.nick, LOOSER.nick)    == 0) ok = 1;
  1372. X    if (strcomp(POSTER.nick, LOOSER.name)    == 0) ok = 1;
  1373. X    if (strcomp(POSTER.nick, LOOSER.sh_name) == 0) ok = 1;
  1374. X  }
  1375. X
  1376. X  if (USER.level < ADMIN_LEV){
  1377. X      if ((strcomp("SYSOP", POSTER.nick) == 0) ||
  1378. X          (strcomp("POST",  POSTER.nick) == 0) ||
  1379. X          (strcomp("GAST",  POSTER.nick) == 0) ||
  1380. X          (strcomp("ADMIN", POSTER.nick) == 0) ||
  1381. X          (strcomp("COSYS", POSTER.nick) == 0)) ok = 1;
  1382. X  }
  1383. X
  1384. X  if (ok == 1) {
  1385. X    printf(" %s\n", POS13_MSG);
  1386. X    ansi("me");
  1387. X    goto RETRY_2;
  1388. X  }
  1389. X  ansi("me");
  1390. X
  1391. X
  1392. X  printf("%c%s ", CR, POS17_MSG);
  1393. X  strcpy(POSTER.wohnort, (unsigned char *) getline(30, 11, '.', ""));
  1394. X
  1395. X  printf("\n%s ", POS18_MSG);
  1396. X  strcpy(POSTER.strasse, (unsigned char *) getline(30, 11, '.', ""));
  1397. X
  1398. X  printf("\n%s ", POS19_MSG);
  1399. X  strcpy(POSTER.telefon1, (unsigned char *) getline(20, 11, '.', ""));
  1400. X
  1401. X  printf("\n%s ", POS20_MSG);
  1402. X  strcpy(POSTER.telefon2, (unsigned char *) getline(20, 11, '.', ""));
  1403. X
  1404. X  printf("\n%s ", POS21_MSG);
  1405. X  strcpy(POSTER.geburtsdatum, (unsigned char *) getline(10, 114, '?', ""));
  1406. X
  1407. X  close(fd);
  1408. X
  1409. X  ansi("md");
  1410. X  printf("\n\n%s\n%s\n\n", POS22_MSG, POS23_MSG);
  1411. X  ansi("me");
  1412. X
  1413. X  USER.level = 0;
  1414. X  if(USER.id == 1) USER.level = 10; /* POSTMASTER-Account */
  1415. X
  1416. X  if (arg[0] != '*') {
  1417. X    sprintf(s, "%s", arg);
  1418. X    s[14] = '\0';
  1419. X    strcpy(USER.sh_name, s);
  1420. X    USER.level = WRITE_EX_LEV;
  1421. X  }
  1422. X  else USER.sh_name[0] = '\0';
  1423. X
  1424. X  sprintf(USER.name, "%s", POSTER.name);
  1425. X  sprintf(USER.passwort, "%s", POSTER.passwort);
  1426. X  sprintf(USER.nick, "%s", POSTER.nick);
  1427. X  sprintf(USER.wohnort, "%s", POSTER.wohnort);
  1428. X  sprintf(USER.strasse, "%s", POSTER.strasse);
  1429. X  sprintf(USER.telefon1, "%s", POSTER.telefon1);
  1430. X  sprintf(USER.telefon2, "%s", POSTER.telefon2);
  1431. X  sprintf(USER.geburtsdatum, "%s", POSTER.geburtsdatum);   
  1432. X
  1433. X
  1434. X  INIT_UDBASE:
  1435. X
  1436. X  if(USER.terminal < 3)
  1437. X    USER.editor = 2;
  1438. X  else
  1439. X    USER.editor = 1;
  1440. X  USER.prompt = 2;
  1441. X  USER.bell = 0;
  1442. X  USER.more = 1;
  1443. X  USER.seq = 0;
  1444. X  USER.intro = 3;
  1445. X  LASTLOG = (long) dateconv( (unsigned char *) "01.01.1970");
  1446. X  strcpy(USER.lastlog, (unsigned char *) mydate( 0 ));
  1447. X  USER.lasttime = 0;
  1448. X  USER.lastmode = 2;
  1449. X  USER.leserichtung = 1;
  1450. X  USER.upratio = 0L;
  1451. X  USER.downratio = 0L;
  1452. X  USER.elapsed = 0L;
  1453. X  sprintf(USER.newsgrps, "%s", NEWS_MINIMUM);
  1454. X  strcpy(USER.account, "00.00.0000 000.00");
  1455. X
  1456. X  maybe_locked(UDSEQ, "r"); mblock(UDSEQ);
  1457. X  fp = fopen(UDSEQ, "r");
  1458. X  if (fp == NULL) {
  1459. X    nerror("postfach.c", 188, "postfach", "Datei-Lesefehler", UDSEQ);
  1460. X  }
  1461. X  fscanf(fp, "%d", &USER.id);
  1462. X  fclose(fp);
  1463. X  mbunlock(UDSEQ);
  1464. X
  1465. X  if(USER.id < 1) USER.id = 1;
  1466. X
  1467. X  maybe_locked(UDSEQ, "r"); mblock(UDSEQ);
  1468. X  fp = fopen(UDSEQ, "w");
  1469. X  if (fp == NULL) {
  1470. X    nerror("postfach.c", 196 , "postfach", "Datei-Schreibfehler", UDSEQ);
  1471. X  }
  1472. X  fprintf(fp, "%d\n", (USER.id + 1));
  1473. X  fclose(fp);
  1474. X  mbunlock(UDSEQ);
  1475. X
  1476. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  1477. X  fd = open(UDBASE, O_RDWR);
  1478. X  if (fd == -1) {
  1479. X    nerror("postfach.c", 204, "postfach", "Datei-Lesefehler", UDBASE);
  1480. X  }
  1481. X  ll = lseek(fd, 0L, SEEK_END);
  1482. X  write(fd, (unsigned char *) &USER, sizeof(USER));
  1483. X  close(fd);
  1484. X  mbunlock(UDBASE);
  1485. X
  1486. X  sprintf(s, "%s/usr/%d", HOME, USER.id);
  1487. X  if(mkdir(s, 0777) != 0){
  1488. X    printf("\n\n%s\n\n", POS24aMSG);    
  1489. X    nerror("postfach.c", 295, "postfach", "Datei-Erstellungsfehler", s);    
  1490. X  }  
  1491. X
  1492. X  sprintf(s, "%s/usr/%d/seq", HOME, USER.id);
  1493. X  fp = fopen(s, "w");
  1494. X  fputs("1\n", fp);
  1495. X  fclose(fp);
  1496. X
  1497. X  sprintf(s, "%s/usr/%d/.hello", HOME, USER.id);
  1498. X  fp = fopen(s, "w");
  1499. X  fputs("\n", fp);
  1500. X  fclose(fp);
  1501. X
  1502. X  sprintf(s, "%s/usr/%d/.signature", HOME, USER.id);
  1503. X  fp = fopen(s, "w");
  1504. X  fputs("\n", fp);
  1505. X  fclose(fp);
  1506. X
  1507. X  if (arg[0] != '*') {
  1508. X    sprintf(s, "cp /usr/%s/%s %s/usr/%d/.signature &", USER.sh_name, SIGNATURE,
  1509. X        HOME, USER.id);
  1510. X    system(s);
  1511. X  }
  1512. X  sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  1513. X  fp = fopen(s, "w");
  1514. X  fprintf(fp, "%s\n", GBL05_MSG);
  1515. X  fputs("===============================================================================\n", fp);
  1516. X  fclose(fp);
  1517. X
  1518. X  if (arg[0] == '#') {
  1519. X    return; /* UDBASE installiert */
  1520. X  }
  1521. X
  1522. X  i = 0;
  1523. X  strcpy(t, USER.name);
  1524. X  while(t[i] != '\0'){
  1525. X    if(t[i] == ' ') t[i] = '.';
  1526. X    i++;
  1527. X  }
  1528. X
  1529. X  sprintf(s, "/bin/sh ./etc/alias.sh \"%s\"", t);
  1530. X  system( s );
  1531. X
  1532. X
  1533. X  sprintf(s, "%s \"%s\" (%d)", POS24_MSG, USER.name, USER.id);
  1534. X  control(s, 3);
  1535. X
  1536. X  init_user( POS25_MSG );
  1537. X  printf("\n");
  1538. X
  1539. X  sprintf(s, "%s/usr/%d/.lastletter", HOME, USER.id);
  1540. X  fp = fopen(s, "w");
  1541. X  fputs("FYI ;-)", fp);
  1542. X  fclose(fp);
  1543. X
  1544. X  sprintf(s, "%s/usr/%d/.lastsubject", HOME, USER.id);
  1545. X  fp = fopen(s, "w");
  1546. X  fprintf(fp, ">--- %s (%d) --->>", POS26_MSG, USER.id);
  1547. X  fclose(fp);
  1548. X
  1549. X  sprintf(s, "%s?", POSTMASTER );
  1550. X  brief( s );
  1551. X  
  1552. X}
  1553. X
  1554. END_OF_FILE
  1555.   if test 9214 -ne `wc -c <'src/postfach.c'`; then
  1556.     echo shar: \"'src/postfach.c'\" unpacked with wrong size!
  1557.   fi
  1558.   # end of 'src/postfach.c'
  1559. fi
  1560. if test -f 'wendy/getline.c' -a "${1}" != "-c" ; then 
  1561.   echo shar: Will not clobber existing file \"'wendy/getline.c'\"
  1562. else
  1563.   echo shar: Extracting \"'wendy/getline.c'\" \(8445 characters\)
  1564.   sed "s/^X//" >'wendy/getline.c' <<'END_OF_FILE'
  1565. X/***************************************************************************/
  1566. X/*        PROGRAMM  ix/Mbox                           */
  1567. X/*             DATEI  getline.c                           */
  1568. X/*        FUNKTIONEN  getline(), getint(), yesno()               */
  1569. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1570. X/*  LETZTE AENDERUNG  17.11.1992                       */
  1571. X/***************************************************************************/
  1572. X
  1573. X#include <stdio.h>
  1574. X
  1575. X#ifdef _MBOX
  1576. X#include "mbox.h"
  1577. X#else
  1578. X#define BS        8
  1579. X#define CR        13
  1580. X#define LF        10
  1581. X#define CTRL_X        24
  1582. X#define CTRL_D        4
  1583. X#define BELL        7
  1584. X#define ESC        27
  1585. X#define DEL        127
  1586. X#define GBL06_MSG    'J'     
  1587. X#define GBL07_MSG    'N'    
  1588. X
  1589. Xint UMLAUT = 0;
  1590. X
  1591. X#ifdef _SYS7
  1592. X#define ENTER        13
  1593. X#else
  1594. X#define ENTER         10
  1595. X#endif
  1596. X#endif
  1597. X
  1598. X#ifndef STRING
  1599. X#define STRING 85
  1600. X#endif
  1601. X
  1602. X/***************************************************************************/
  1603. X/*      FUNKTION  getline()                           */
  1604. X/*  BESCHREIBUNG  Eine Zeile (STRING) einlesen. Beendet wird mit ENTER,       */
  1605. X/*          oder wenn die max. zulaessige Anzahl von Zeichen er-     */
  1606. X/*          reicht ist.                                               */
  1607. X/*     PARAMETER  siehe unten                                              */
  1608. X/*     RUECKGABE  Eingelesene Zeile (STRING)                   */
  1609. X/*  ---------------------------------------------------------------------  */
  1610. X/*  len     -> Anzahl der max. einzulesenden Zeichen                */
  1611. X/*                                       */
  1612. X/*  mode    ->      >0 = 7BIT                           */
  1613. X/*             0 = Kein Echo                       */
  1614. X/*                1 = Mit Echo                           */
  1615. X/*                2 = '*' als Echo                           */
  1616. X/*             3 = ':' als drittes & sechstes Zeichen (Uhrzeit)      */
  1617. X/*                 4 = '.' als drittes & sechstes Zeichen (Datum)        */
  1618. X/*              5 = Ausschliesslich BUCHSTABEN               */
  1619. X/*            10 = "bsc" vor der Eingabe "len"-mal ausgeben          */
  1620. X/*           100 = nur Zahlen (und '.', ':')                         */
  1621. X/*           1000 = String "deftext" + "bsc" ausgeben                 */
  1622. X/*         10000 = bei "0-9" als erstes Zeichen -> sofort zurueck    */
  1623. X/*                                           */
  1624. X/*  bsc     -> Mit diesem Zeichen wird geloescht               */
  1625. X/*                                           */
  1626. X/*  deftext -> Text-Vorgabe                                                */
  1627. X/*                                                               */
  1628. X/***************************************************************************/
  1629. X
  1630. Xstatic int endless;
  1631. X
  1632. Xunsigned char *getline(len, mode, bsc, deftext)
  1633. Xint len, mode;
  1634. Xint bsc;
  1635. Xunsigned char deftext[];
  1636. X{
  1637. X  static unsigned char gls[STRING];
  1638. X  int c;
  1639. X  int gli, gll;
  1640. X  int delim = '\0';
  1641. X  int matrix = 0;
  1642. X  int echo = 1, numerics = 0, defmode = 0, letters = 0;
  1643. X  int escape = 0;
  1644. X  int lenmem = len;
  1645. X  int lastwasblank = 0;
  1646. X  int siebenbit = 0;
  1647. X  
  1648. X  if (mode < 0) {
  1649. X    siebenbit++;
  1650. X    mode *= -1;
  1651. X  }
  1652. X  if (mode > 10000) {
  1653. X    escape++;
  1654. X    mode -= 10000;
  1655. X  }
  1656. X  if (mode > 1000) {
  1657. X    mode -= 1000;
  1658. X    defmode++;
  1659. X  }
  1660. X  if (mode > 100) {
  1661. X    mode -= 100;
  1662. X    numerics++;
  1663. X  }
  1664. X  if (mode > 10) {
  1665. X    mode -= 10;
  1666. X    matrix++;
  1667. X  }
  1668. X  if (mode > 2) {
  1669. X    switch(mode){
  1670. X        case 3    : delim = ':';
  1671. X              break;
  1672. X        case 4  : delim = '.';        
  1673. X              break;
  1674. X         case 5  : letters++;
  1675. X              break;
  1676. X    }
  1677. X    mode = 1;
  1678. X  }
  1679. X  echo = mode;
  1680. X
  1681. X  if (defmode != 0) {
  1682. X    if((deftext[0] < 32) || (deftext[0] > 126)) deftext[0] = '\0';
  1683. X    gll = length(deftext);
  1684. X    lenmem = len - gll;
  1685. X    if(deftext[0] != '\0'){
  1686. X        sprintf(gls, "%s", deftext);
  1687. X        printf("%s", deftext);
  1688. X    }
  1689. X    else gls[0] = '\0';
  1690. X  }
  1691. X  else {
  1692. X    gll = 0;
  1693. X    strcpy(gls, (unsigned char *) "OOPS");
  1694. X  }
  1695. X
  1696. X  if (matrix != 0) {
  1697. X    for (gli = 0; gli < lenmem; gli++) {
  1698. X        if (((gli == 2) || (gli == 5)) && (delim != '\0') && (gli != len)) {
  1699. X            printf("%c", delim);
  1700. X        }
  1701. X        else {
  1702. X            printf("%c", bsc);
  1703. X        }
  1704. X    }
  1705. X    for (gli = 0; gli < lenmem; gli++) printf("%c", BS);
  1706. X  }
  1707. X
  1708. X  do {
  1709. X
  1710. X    if (delim != '\0') {
  1711. X        if (((gll == 2) || (gll == 5)) && (gll < len)){
  1712. X            c = delim;
  1713. X        }
  1714. X        else {
  1715. X            c = getint();  
  1716. X        }
  1717. X    }
  1718. X    else {
  1719. X        c = getint();  
  1720. X    }        
  1721. X
  1722. X    if(siebenbit != 0){
  1723. X        if(c > 127) c = 0;
  1724. X    }
  1725. X
  1726. X    if (c == ESC) {
  1727. X        c = getint();  
  1728. X        c = getint();  
  1729. X        if ((c == 'A') || (c == 'B')) {
  1730. X            if (c == 'A') endless++;
  1731. X            if (c == 'B') endless--;
  1732. X            if (endless < 1) endless = 9;
  1733. X            if (endless > 9) endless = 1;
  1734. X            sprintf(gls, "%d", endless);
  1735. X            return (unsigned char *) gls;
  1736. X        }
  1737. X        if (c == 'D') c = BS;
  1738. X        if (c == 'C') c = ENTER;
  1739. X    }
  1740. X    if ((c == CTRL_X) || (c == CTRL_D) || (c == DEL)) {
  1741. X        return("<BREAK>");
  1742. X    }
  1743. X    if (c != ENTER) {
  1744. X        if ((c == BS) && (gll > 0)) {
  1745. X            if (((gll == 3) || (gll == 6)) && (delim != '\0')) {
  1746. X                gll -= 2;
  1747. X                printf("%c%c%c%c", BS, BS, bsc, BS);
  1748. X            } else {
  1749. X                gll--;
  1750. X                printf("%c%c%c", BS, bsc, BS);
  1751. X            }
  1752. X        }
  1753. X        if (numerics == 0) {
  1754. X            if (c >= 32) {
  1755. X                if(letters != 0){
  1756. X                    if((c < 'A') && (c != ' ')) c = 0;
  1757. X                    if(c > 'z') c = 0;
  1758. X                    if((c > 'Z') && (c < 'a')) c = 0;
  1759. X
  1760. X                    if(c == ' '){
  1761. X                        if(lastwasblank != 0) c = 0;
  1762. X                        lastwasblank++;
  1763. X                    }
  1764. X                    else{
  1765. X                        if(c != 0) lastwasblank = 0;
  1766. X                    }                
  1767. X
  1768. X                    /*
  1769. X                    if((c == 0) && (USER.bell == 1))
  1770. X                        printf("%c", BELL);
  1771. X                    */
  1772. X                    if(c == 0)
  1773. X                        printf("%c", BELL);
  1774. X                }
  1775. X                if(c != 0){
  1776. X                    gls[gll] = c;
  1777. X                    gll++;
  1778. X                }
  1779. X            }
  1780. X            else {
  1781. X                c = 0;
  1782. X            }
  1783. X        }
  1784. X        else {
  1785. X            if ((c == '.') || (c == ':') || ((c >= '0') && (c <= '9'))) {
  1786. X                if (((delim != '\0') && ((c == '.') || (c == ':'))) &&
  1787. X                    ((gll != 2) && (gll != 5))) {
  1788. X                    printf("%c", BELL);
  1789. X                    c = 0;
  1790. X                }
  1791. X                else {
  1792. X                    gls[gll] = c;
  1793. X                    gll++;
  1794. X                    gls[gll] = '\0';
  1795. X                }
  1796. X            }
  1797. X            else {
  1798. X                if (c != BS) printf("%c", BELL);
  1799. X                c = 0;
  1800. X            }
  1801. X        }
  1802. X        if (c != 0) {
  1803. X            if (echo == 1) printf("%c", c);
  1804. X            if (echo == 2) printf("*");
  1805. X        }
  1806. X    }
  1807. X    if (gll == 1) {
  1808. X        if ((escape != 0) && ((c > 47) && (c < 58))) {
  1809. X            gls[gll] = '\0';
  1810. X            return (unsigned char *) gls;
  1811. X        }
  1812. X    }
  1813. X
  1814. X  } while ((c != ENTER) && (gll < len));
  1815. X
  1816. X  gls[gll] = '\0';
  1817. X
  1818. X  return (unsigned char *) gls;
  1819. X}
  1820. X
  1821. X
  1822. X
  1823. X
  1824. X
  1825. X/***************************************************************************/
  1826. X/*      FUNKTION  getint()                            */
  1827. X/*  BESCHREIBUNG  Ein Zeichen wird mit Hilfe der "getch"-Funktion einge-   */
  1828. X/*          lesen. Es wird gewartet bis ein Zeichen erfasst ist.     */
  1829. X/*     PARAMETER  keine                                                    */
  1830. X/*     RUECKGABE  Eingelesenes Zeichen (INT)                   */
  1831. X/***************************************************************************/
  1832. X
  1833. X
  1834. Xint getint()
  1835. X{
  1836. X  int c;
  1837. X
  1838. X
  1839. X  if(UMLAUT != 0){
  1840. X    c = UMLAUT;
  1841. X    UMLAUT = 0;
  1842. X    return (int) c;
  1843. X  }
  1844. X
  1845. X  do{
  1846. X    c = (int) getch();
  1847. X
  1848. X#ifndef _UMLAUT
  1849. X
  1850. X    if(c > 127){
  1851. X
  1852. X        UMLAUT = 'e';
  1853. X
  1854. X        switch(c){
  1855. X            case 142 : c = 'A'; /* IBM 'Ae' */
  1856. X                   break;
  1857. X            case 153 : c = 'O'; /* IBM 'Oe' */
  1858. X                   break;
  1859. X            case 154 : c = 'U'; /* IBM 'Ue' */
  1860. X                   break;
  1861. X            case 132 : c = 'a'; /* IBM 'ae' */
  1862. X                   break;
  1863. X            case 148 : c = 'o'; /* IBM 'oe' */
  1864. X                   break;
  1865. X            case 129 : c = 'u'; /* IBM 'ue' */
  1866. X                   break;
  1867. X            case 225 : c = 's'; /* IBM 'ss' */
  1868. X                   UMLAUT = 's';
  1869. X                   break;
  1870. X
  1871. X            case 196 : c = 'A'; /* AMIGA 'Ae' */
  1872. X                   break;
  1873. X            case 214 : c = 'O'; /* AMIGA 'Oe' */
  1874. X                   break;
  1875. X            case 220 : c = 'U'; /* AMIGA 'Ue' */
  1876. X                   break;
  1877. X            case 228 : c = 'a'; /* AMIGA 'ae' */
  1878. X                   break;
  1879. X            case 246 : c = 'o'; /* AMIGA 'oe' */
  1880. X                   break;
  1881. X            case 252 : c = 'u'; /* AMIGA 'ue' */
  1882. X                   break;
  1883. X            case 223 : c = 's'; /* AMIGA 'ss' */
  1884. X                   UMLAUT = 's';
  1885. X                   break;
  1886. X
  1887. X#ifdef I_LIKE_CONFUSIONS
  1888. X                case 128 : c = 'A'; /* APPLE 'Ae' */
  1889. X                   break;
  1890. X            case 133 : c = 'O'; /* APPLE 'Oe' */
  1891. X                   break;
  1892. X            case 134 : c = 'U'; /* APPLE 'Ue' */
  1893. X                   break;
  1894. X            case 138 : c = 'a'; /* APPLE 'ae' */
  1895. X                   break;
  1896. X            case 154 : c = 'o'; /* APPLE 'oe' */
  1897. X                   break;
  1898. X            case 159 : c = 'u'; /* APPLE 'ue' */
  1899. X                   break;
  1900. X            case 167 : c = 's'; /* APPLE 'ss' */
  1901. X                   UMLAUT = 's';
  1902. X                   break;
  1903. X#endif /* _CONFUSION */
  1904. X            default  : UMLAUT = 0;
  1905. X        }        
  1906. X        }
  1907. X
  1908. X  }while((c == 0) || (c > 127));
  1909. X
  1910. X#else /* _UMLAUT */
  1911. X
  1912. X  }while(c == 0);
  1913. X
  1914. X#endif /* _UMLAUT */
  1915. X
  1916. X
  1917. X  return (int) c;
  1918. X}
  1919. X
  1920. X
  1921. X
  1922. X
  1923. X/***************************************************************************/
  1924. X/*      FUNKTION  yesno()                           */
  1925. X/*  BESCHREIBUNG  Die Zeichen "j", "J", "n" oder "N" werden ausschliess-   */
  1926. X/*          lich eingelesen und zurueckgegeben.                       */
  1927. X/*     PARAMETER  keine                                                       */
  1928. X/*     RUECKGABE  Eines der Zeichen (siehe oben) (INT)               */
  1929. X/***************************************************************************/
  1930. X
  1931. Xint yesno()
  1932. X{
  1933. X  int c;
  1934. X
  1935. X  do {
  1936. X    c = getint();
  1937. X    if (c >= 97) c -= 32;
  1938. X    if ((c != GBL06_MSG) && (c != GBL07_MSG)) c = 0;
  1939. X  } while (c == 0);
  1940. X
  1941. X  printf("%c", c);
  1942. X
  1943. X  return (int) c;
  1944. X}
  1945. X
  1946. X
  1947. END_OF_FILE
  1948.   if test 8445 -ne `wc -c <'wendy/getline.c'`; then
  1949.     echo shar: \"'wendy/getline.c'\" unpacked with wrong size!
  1950.   fi
  1951.   # end of 'wendy/getline.c'
  1952. fi
  1953. echo shar: End of archive 11 \(of 15\).
  1954. cp /dev/null ark11isdone
  1955. MISSING=""
  1956. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  1957.     if test ! -f ark${I}isdone ; then
  1958.     MISSING="${MISSING} ${I}"
  1959.     fi
  1960. done
  1961. if test "${MISSING}" = "" ; then
  1962.     echo You have unpacked all 15 archives.
  1963.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1964. else
  1965.     echo You still must unpack the following archives:
  1966.     echo "        " ${MISSING}
  1967. fi
  1968. exit 0
  1969. exit 0 # Just in case...
  1970.