home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume29 / mbox / part05 < prev    next >
Encoding:
Text File  |  1992-04-05  |  54.5 KB  |  2,120 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de@unnet (Volker Schuermann)
  3. Subject:  v29i067:  mbox - A Bulletin Board System for UNIX and MINIX, Part05/10
  4. Message-ID: <1992Apr5.183510.29739@sparky.imd.sterling.com>
  5. X-Md4-Signature: a03efcf75524fc438a4c31a62cd716ea
  6. Date: Sun, 5 Apr 1992 18:35:10 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Volker.Schuermann@unnet.w.open.de@unnet (Volker Schuermann)
  10. Posting-number: Volume 29, Issue 67
  11. Archive-name: mbox/part05
  12. Environment: MINIX, ISC, ESIX, SVR3
  13.  
  14. #! /bin/sh
  15. # This is a shell archive.  Remove anything before this line, then feed it
  16. # into a shell via "sh file" or similar.  To overwrite existing files,
  17. # type "sh file -c".
  18. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  19. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  20. # Contents:  etc/help.hilfe etc/logo~ src/intro.c src/loop.c
  21. # Wrapped by kent@sparky on Sun Apr  5 11:57:42 1992
  22. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  23. echo If this archive is complete, you will see the following message:
  24. echo '          "shar: End of archive 5 (of 10)."'
  25. if test -f 'etc/help.hilfe' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'etc/help.hilfe'\"
  27. else
  28.   echo shar: Extracting \"'etc/help.hilfe'\" \(17291 characters\)
  29.   sed "s/^X//" >'etc/help.hilfe' <<'END_OF_FILE'
  30. X#?
  31. XBefehl "?"
  32. X
  33. XDie beim aktuellen Level verfuegbaren Befehle werden angezeigt. Um auch die
  34. Xuebrigen Befehle anzeigen zu lassen, muss als Argument ein "*" angegeben
  35. Xwerden.
  36. X
  37. X#0
  38. XBefehl "0" ("1 - 9")
  39. X
  40. XUeber die Ziffern 0-9 wird der dynamische Befehlspuffer aufgerufen. Die Ziffer
  41. X0 zeigt die aktuelle Belegung dieser "Hot-Keys" an, 1-9 rufen denn gespreicherten
  42. XBefehl ab. Ausserdem kann man diese Befehle auch mit Hilfe der Cursortasten
  43. XUP und DOWN durchblaettern.
  44. X
  45. X#+
  46. XBefehl "+"
  47. X
  48. XDas naechste Brett mit neuen Nachrichten wird aufgerufen. Innerhalb des Brettes
  49. Xkann mit den ueblichen Befehlen (Inhalt, Lesen) gearbeitet werden.
  50. X
  51. X#-
  52. XBefehl "-"
  53. X
  54. XDas vorherige Brett mit neuen Nachrichten wird aufgerufen. Innerhalb des
  55. XBrettes kann mit den ueblichen Befehlen (Inhalt, Lesen) gearbeitet werden.
  56. X
  57. X#ANRUFER
  58. XBefehl "Anrufer" ("Protokoll")
  59. X
  60. XEine Liste der Anrufer wird angezeigt. Wird "*" als Parameter angegeben,
  61. Xzeigt das System ALLE Eintaege des Protokolls an, sonst nur die letzten 21.
  62. X
  63. XDie Option "#" (also "Anrufer #") erstellt eine Statistik aus den Daten
  64. Xder Anrufer-Liste.
  65. X
  66. X#ANSAGE
  67. XBefehl "Ansage"
  68. X
  69. XWenn ein anderer Teilnehmer Ihnen eine persoenliche Nachricht senden will,
  70. Xwird ihm der "Ansage"-Text angezeigt. Sollten sie z.B. fuer laenger Zeit
  71. Xverreisen und desshalb nicht sofort antworten koennen, teilen sie das im
  72. X"Ansage"-Text mit.
  73. X
  74. X#BRETT
  75. XBefehl "Brett" ("cd")
  76. X
  77. XDie Nachrichten dieser MBox sind nach Themen geordnet in verschiedenen
  78. XBrettern zusammengefasst. Der Ausdruck "Brett" ist in diesem Zusammenhang
  79. Xgleichbedeutend mit dem Begriff "Newsgroup" der UUCP-Terminologie.
  80. X
  81. X
  82. XDie verschiedenen Einsatzmoeglichkeiten des Befehls:
  83. X
  84. X"Brett"             Alle Bretter mit neuen Artikeln werden angezeigt.
  85. X 
  86. X"Brett *"           Alle Bretter des Systems werden angezeigt.
  87. X
  88. X"Brett +"           Es wird in's naechst hoehere Brett gewechselt.
  89. X
  90. X"Brett -"           Es wird in's naechst niedrigere Brett gewechselt. 
  91. X
  92. X"Brett !"           Der Name des aktuellen Brettes wird ausgegeben.
  93. X
  94. X"Brett BRETT"       Es wird in Brett "BRETT" gewechselt. Alle INHALT- und LESE-
  95. X                    Befehle beziehen sich jetzt auf "BRETT". 
  96. X
  97. X
  98. XDa verschienden Bretter allerdings nach dem Schema "Oberbrett.Unterbrett" auf-
  99. Xgebaut sind, gibt es noch einige spezielle Parameter:
  100. X
  101. X"Brett #"           Die sogenannten Oberbretter werden angezeigt. 
  102. X
  103. X"Brett OBERBRETT"   Wechselt ins Oberbrett OBERBRETT. Der Befehl INHALT
  104. X                    zeigt nun die Unterbretter dieses Oberbrettes an !!!
  105. X
  106. X"Brett UNTERBRETT"  Es wird ins Brett OBERBRETT.UNTERBRETT gewechselt.
  107. X
  108. X"Brett .."          Von OBERBRETT.UNTERBRETT gelangt man so wieder auf die
  109. X                    Ebene OBERBRETT.
  110. X
  111. X#BRIEF
  112. XBefehl "Brief" ("Mail");
  113. X
  114. XPersoenliche Post wird an Teilnehmer dieser MBox oder aber auch an User auf
  115. Xeinem fremden Rechner verschickt. 
  116. X
  117. XUm einen "internen" Teilnehmer anzuschreiben wird Folgendes eingegeben:
  118. X
  119. X"Brief USERNAME", "Brief ALIAS" oder "Brief SH-ACCOUNT"
  120. X
  121. XZ.B.: "Brief Volker Schuermann", "Brief volkers"
  122. X
  123. XDie MBox erkennt anhand dieser Angaben den Empfaenger und ruft zur Eingabe
  124. Xden Editor auf. Nun kann eine Nachricht geschrieben werden. Die persoenliche
  125. XUNTERSCHRIFT (siehe dort) wird der Nachricht angehaengt und mit verschickt.
  126. X
  127. X
  128. XBei einem Brief an "externe" Teilnehmer sieht die Anschrift etwas anderes
  129. Xaus:
  130. X
  131. X"Brief HOST!USER", "Brief USER@HOST.DOMAIN"
  132. X
  133. XZ.B.: "Brief unnet!volkers", "brief volkers@unnet.ruhr.sub.org"
  134. X
  135. XAnsonsten verhaelt sich der Vorgang genauso wie bei einer "internen" Nachricht.
  136. X
  137. XACHTUNG: Als eingetragener Teilnehmer duerfen Sie auch Post von "externen"
  138. XUsern empfangen. Folgende Adressierungs-Methode ist dabei verbindlich:
  139. X
  140. X"mail unnet!VORNAME.NAME"
  141. X
  142. XDie Adresse "unnet!VORNAME.NAME" entspricht "VORNAME.NAME@unnet.ruhr.sub.org"
  143. Xoder auch "..!unido!uka!smurf!horga!xenox!unnet!VORNAME.NAME" ... je nach 
  144. XDomain des Brief-Autoren.
  145. X
  146. X"VORNAME.NAME" steht in diesem Fall fuer Ihren (User-) Namen, kann aber auch
  147. Xkomplett durch Ihr Alias ersetzt werden (AUSNAHME !) ...
  148. X
  149. XZ.B.: "mail Volker.Schuermann@unnet.ruhr.sub.org"
  150. X
  151. X
  152. X#CHAT
  153. XBefehl "Chat" ("Dialog")
  154. X
  155. XSie betreten den Konferenzbereich. Dort koennen Sie sich mit anderen Teil-
  156. Xnehmern unterhalten. Dabei spielt es keine Rolle, ob Ihre Gespraechspartner
  157. Xebenfalls die MBox benutzen, oder auf Betriebssystem-Ebene arbeiten.
  158. X
  159. X#DOWNLOAD
  160. XBefehl "Download"
  161. X
  162. XDieser Befehl uebertraegt Artikel mit Hilfe eines Protokolls. Angeboten
  163. Xwerden ASCII (einfaches Auflisten der Textdatei) und SX/SZ/SB. Moegliche
  164. XParameter sind:
  165. X
  166. X"Download NUMMER"       Uebertraegt den Artikel No. "NUMMER".
  167. X
  168. X"Download NUM1-NUM2"    Uebertraegt die Artikel von No. "NUM1" bis "NUM2".
  169. X
  170. X"Download NUM-"         Alle Artikel von "NUM" bis 32000 werden uebertragen.
  171. X
  172. X"Download -NUM"         Alle Artikel von 1 bis "NUM" werden uebertragen.
  173. X
  174. XACHTUNG: "Download ??-??" uebertraegt alle angeforderten Artikel OHNE
  175. XUnterbrechung. Die UNIX-Befehle "RX/RZ/RB" unterstuetzen diesen Modus.
  176. X
  177. X#ENDE
  178. XBefehl "Ende" ("Quit")
  179. X
  180. XDas Programm wird beendet. Teilnehmer ohne SH-Account loesen mit diesem
  181. XBefehl auch die Verbindung ... also VORSICHT !
  182. X
  183. XNormalerweise wird nach der Eingabe des Befehls "Ende" das Scanner-Datum und
  184. Xdie Scanner-Zeit aktualisiert. Gibt man als Parameter ein "*" an, wird
  185. Xdiese Aktion unterbunden.
  186. X
  187. X#HILFE
  188. XBefehl "Hilfe"
  189. X
  190. XZu allen Befehlen dieses Systems gibt es mit "HILFE" eine kurze Information.
  191. X
  192. X"Hilfe"           eine Zusammenfassung der Befehle wird angezeigt.
  193. X"Hilfe *"         die gesamte Hilfsdatei wird ausgegeben.
  194. X"Hilfe BEFEHL"    zeigt nur den Eintrag zum Befehl "BEFEHL".
  195. X
  196. X#INHALT
  197. XBefehl "Inhalt" ("dir")
  198. X
  199. XWird als Parameter ein "*" angegeben, zeigt die MBox ein Inhaltsverzeichnis
  200. Xmit allen Eintraegen im aktuellen Brett an, sonst nur Neuzugaenge.
  201. X
  202. XIst das aktuelle Brett ein OBERBRETT, wird statt des Inhaltsverzeichnisses
  203. Xdie Liste der UNTERBRETTER ausgegeben.
  204. X
  205. X#LESEN
  206. XBefehl "Lesen" 
  207. X
  208. XDie per Parameter angeforderten Nachrichten werden angezeigt. Die Reihenfolge
  209. Xinnerhalb der einzelnen Artikel haengt von der Positionierung der Artikel-
  210. XNummern ab.
  211. X
  212. X"Lesen NUMMER"       Zeigt den Artikel No. "NUMMER" an.
  213. X
  214. X"Lesen NUM1-NUM2"    Zeigt die Artikel von No. "NUM1" bis "NUM2" an
  215. X                     Ist "NUM2" groesser als "NUM1" wird die Reihenfolge
  216. X                     bei der Ausgabe umgekehrt.
  217. X
  218. X"Lesen NUM-"         Alle Artikel von "NUM" bis 32000 werden angezeigt
  219. X
  220. X"Lesen -NUM"         Alle Artikel von 1 bis "NUM" werden angezeigt
  221. X
  222. X"Lesen"              Es werden alle neuen Artikel gezeigt (siehe INHALT)
  223. X
  224. X"Lesen *"            Saemtliche Eintraege eines Brettes werden ausgegeben
  225. X
  226. X
  227. XBei seitenweiser Ausgabe (siehe SETUP) kann mit der LEERTASTE weiterge-
  228. Xblaettert werden. Die Tasten "q" o. "Q" beenden die Anzeige.
  229. X
  230. XDie Ausgabe laesst sich mit "x", "X", "DEL", "CTRL-X" und "CTRL-D" komplett
  231. Xabbrechen (z.B. bei "Lesen *").
  232. X
  233. XIst der Artikel beendet, erscheint eine Eingabeaufforderung. Dort kann man
  234. Xentscheiden zwischen ABBRECHEN, BEANTWORTEN, NAECHSTE, VORHERIGE und
  235. XWIEDERHOLEN ... mit Hilfe dieser Auswahl kann man durch die einzelnen
  236. XNachrichten eines Brettes blaettern.
  237. X
  238. X#LOESCHEN
  239. XBefehl "Loeschen"
  240. X
  241. XDie per Parameter benannten Nachrichten werden geloescht. Wird keinerlei
  242. XAngabe gemacht, loescht das System ALLE Eintraege !
  243. X
  244. X"Loeschen NUMMER"     Loescht den Artikel No. "NUMMER"
  245. X
  246. X"Loeschen NUM1-NUM2"  Loescht die Artikel von No. "NUM1" bis "NUM2"
  247. X
  248. X"Loeschen NUM-"       Alle Artikel von "NUM" bis 32000 werden geloescht
  249. X
  250. X"Loeschen -NUM"       Alle Artikel von 1 bis "NUM" werden entfernt
  251. X
  252. X"Loeschen"            Es werden alle (!) persoenlichen Mails geloescht
  253. X
  254. XACHTUNG: Der Befehl ist NICHT rueckgaengig zu machen ! Da wir hier unter
  255. X         UNIX arbeiten, halten wird uns an die Devise: "Der User weiss was
  256. X         er tut, also KEINE Rueckfragen - wenn er loeschen will, will er
  257. X         loeschen ..."     
  258. X
  259. X#MAKRO
  260. XBefehl "Makro"
  261. X
  262. XUm haeufig wiederkehrende Befehlsfolgen nicht jedesmal komplett eingeben
  263. Xzu muessen, kann man Makros mit diesen Kommandos vereinbaren. Nach der
  264. XVereinbarung genuegt die Angabe des Makro-Names, um die Befehle aufzurufen.
  265. X
  266. XMakro = Befehlsfolge
  267. X===========================================================================
  268. Xandi  = BRIEF andreas@xenox.ruhr.de
  269. Xwalt  = BRIEF Walter, WEITERLEITEN weller!walterb
  270. Xgrp   = BRIEF volkers, WEITER xenox, WEITER stefans, WEITER joergg
  271. Xsts   = BRI Stefan S, WEI stefans@coduck.ruhr.sub.org, WEI unnet!stefans
  272. Xin    = +, INHALT, KEY, in
  273. Xpp    = PORTINFO, SLEEP 5, pp
  274. X
  275. XDie letzen beiden Beispiele demonstrieren "rekursive" Makros. Dabei werden
  276. Xdie Befehle "KEYPRESSED" (wartet auf einen Tastendruck - "CTRL-X", "x" und
  277. X"q" beenden den Vorgang) und "SLEEP nnn" (wartet "nnn" Sekunden) verwendet.
  278. X
  279. XMakros lassen sich auch in der Kommandozeile definieren. Es genuegt eine
  280. Xgueltige Vereinbarung inzugeben (siehe oben) - sie wird automagisch in
  281. Xdie Makro-Sammlung aufgenommen.
  282. X
  283. X#MINIX
  284. XBefehl "Minix" ("execute")
  285. X
  286. XMit entsprechendem LEVEL kann man mit dem Befehl "Minix OS-BEFEHL" ein
  287. XKommando auf Betriebssystem-Ebene ausfuehren.
  288. X
  289. XZ.B. "Minix date", "Minix whodo", "Minix ps -lax"
  290. X
  291. X#PM
  292. XBefehl "PM"
  293. X
  294. XDie oeffentlichen Bretter werden verlassen und das persoenliche Postfach
  295. Xgeoeffnet. Die Befehle INHALT, LESEN, LOESCHEN beziehen sich nun auf das
  296. XPostfach.
  297. X
  298. X#PORTINFO
  299. XBefehl "Portinfo" ("Wer")
  300. X
  301. XDas System holt sich Informationen ueber die Taetigkeit aller Teilnehmer und
  302. Xzeigt sie zusammen mit Name, Terminal-Port und Login-Zeit an. Ist der 
  303. XTeilnehmer in der MBox aktiv, wird ausserdem sein letzter Befehl angezeigt,
  304. Xbei SH-Usern wird der aktuellste Prozess angezeigt.
  305. X
  306. X#POSTFACH
  307. XBefehl "Postfach"
  308. X
  309. XUm persoenliche Post erhalten zu koennen, und um an die externen Bretter
  310. Xsenden zu duerfen, muss das System einen "Account" einrichten. Sie werden
  311. Xgebeten Ihren Namen und einige pers. Daten anzugeben. Wenn Sie nur inner-
  312. Xhalb der Box Post u. Nachrichten versenden wollen, genuegt der Name. Falls
  313. XSie aber auch an die extrenen Bretter senden wollen, und PMs an User auf
  314. Xanderen Rechnern verschicken wollen, MUSS auch die Anschrift stimmig ange-
  315. Xgeben werden ...
  316. X
  317. X#RICHTUNG
  318. XBefehl "Richtung"
  319. X
  320. XMit diesem Befehl kann die Leserichtung beeinflusst werden. D.h. ob zuerst
  321. Xdie aeltern, oder die neuer Artikel angezeigt werden sollen. Diese Einstellung
  322. Xgilt sowohl fuer den Befehl "Lesen" als auch fuer den Befehl "Inhalt".
  323. XMit dem Befehl "Setup" kann (im Untermenue "Textausgabe") die Leserichtung
  324. Xgespeichert werden. 
  325. X
  326. XACHTUNG: der Befehl "Richtung" setzt die im SETUP gespeicherte Vorgabe zwar
  327. X         fuer die Dauer der Session ausser Kraft, beim naechsten Login aber,
  328. X         wird der Vorgabewerte wieder aktiviert.
  329. X
  330. X#SCHREIBEN
  331. XBefehl "Schreiben"
  332. X
  333. XEin neuer Artikel kann mit diesem Befehl an eines der Bretter gesendet werden.
  334. XVor der eigentlichen Eingabe werden noch "Subject" (das Thema des Artikels)
  335. Xund "Keywords" (falls mal nach bestimmten Schluesselworten gesucht werden
  336. Xsollte) abgefragt. Anschliessend wird der Editor zur Erfassung gestartet.
  337. X
  338. XJe nach Brett und Userlevel wird der Artikel nach Beendigung der Eingabe
  339. Xentweder nur lokal verbreitet, oder aber an eines der UUCP-Netze verschickt.
  340. X
  341. X#SETUP
  342. XBefehl "Setup" ("Anschrift", "Ansi", "Bell", "More", "Terminal", "Passwort")
  343. X
  344. XIhre persoenlichen Daten und System-Parameter koennen mit diesem Befehl
  345. Xbearbeitet werden. 
  346. X
  347. XTerminal:  Sie haben die Wahl zwischen drei Terminal-Emulation und einer
  348. X           reinen Dump-Ausgabe. Vorzuziehen ist die "ANSI"-Einstellung, weil
  349. X           sie von allen gaengigen Terminal-Programmen unterstuetzt wird.
  350. X
  351. XEditor:    Es werden einige Editoren angeboten, deren Einsatz vom gewaehlten
  352. X           Terminaltyp abhaengig ist. GAESTE und User ohne SH-Account arbeiten
  353. X           generell mit einen zeilenorientierten Editor (LED).
  354. X
  355. XPrompt:    Der Prompt (die Eingabeaufforderung) kann verschiedene Informationen        
  356. X           ausgeben. Entweder das aktuelle Brett, die Uhrzeit oder die ver-
  357. X           brauchten Telefongebuehren (ACHTUNG: Feiertage werden NICHT berueck-
  358. X           sichtigt, Wechseln zwischen Norm- und Billigtarif waehrend der
  359. X           Verbindung wird NICHT registriert ... es gilt immer der Tarif zur
  360. X           Anzeigezeit).
  361. X
  362. XAusgabe:   Texte koennen entweder bildschirmweise, oder kontinuierlich ausge-
  363. X           geben werden. Bei der ersten Methode wird mit der LEERTASTE weiter-
  364. X           geblaettert, die Tasten "q" o. "Q"  beenden die Ausgabe. Die konti-
  365. X           nuierliche Ausgabe wird mit CTRL-S gestoppt und mit CTRL-Q  
  366. X           wieder aufgenommen. Mit CTRL-X (oder DEL) kann die Ausgabe abge-
  367. X           brochen werden.
  368. X    
  369. X           Ausserdem kann an dieser Stelle die Leserichtung vorgegegben werden.       
  370. X       D.h. es wird entschieden, ob zuerst die aelteren, oder zuerst die
  371. X           neueren Artikel angezeigt werden sollen.
  372. X
  373. XAnschrift: Persoenliche Daten wie (User-)Name, Anschrift etc. koennen mit
  374. X           dieser Option geandert werden. Je detailierter die Angaben, desto
  375. X           ehr wird eine Schreibberechtigung fuer extrene Bretter vergeben.
  376. X
  377. XPasswort:  Das Passwort sollte regelmaessig geandert werden, um die persoenl.
  378. X           Daten und die Post zu schuetzten.
  379. X
  380. XIntro:     Nach dem Anmelden im System kann man sich eine Statusmeldung und
  381. X           eine aktuelle Information anzeigen lassen. Beide Anzeigen koennen
  382. X           getrennt unterbunden werden.
  383. X
  384. XScanner:   Hier kann das Datum geaendert werden, das bei der Bestimmung
  385. X           aktueller Eintraege zugrunde gelegt wird. Je weiter zurueckdatiert
  386. X           wird, desto mehr Eintraege werden angezeigt. Ausserdem kann man
  387. X           zusaetzlich die Uhrzeit als Vergleichswert einsetzen.
  388. X
  389. X#SPIELE
  390. XBefehl "Spiele"
  391. X
  392. XEine Liste der ONLINE-Spiele wird angezeigt. Die Spiele verwenden z.T. 
  393. XTerminal-Emulationen - also ACHTUNG! Fast alle Spiele lassen sich mit
  394. X"Q" oder "q" beenden.
  395. X
  396. X#STATUS
  397. XBefehl "Status"
  398. X
  399. XIhre persoenlichen Daten und Einstellungen werden angezeigt. Dazu zaehlen
  400. Xauch Angaben ueber Up- und Downloads, Onlinezeit und die UUCP-Adressen.
  401. X
  402. X#STATISTIK
  403. XBefehl "Statistik"
  404. X
  405. XEin Statistik der versch. Bretter (NGs) und deren aktueller Inhalt wird
  406. Xangezeigt. Mit der Option "*" wird die komplette Ausgabe der Statistik
  407. Xbefohlen, und mit "$" kann eine Uebersicht der (Transfer-)Telefongebuehren
  408. Xabgefragt werden. Ausserdem laesst sich mit "#" ein Protokoll der Down-
  409. Xloads aus den versch. PD-Brettern abrufen. Wird stattdessen ein "%" angegeben,
  410. Xerfolgt eine Auswertung der Downloads. Das Ergebnis wird als "Hitliste"
  411. Xausgegeben.
  412. X
  413. X#SUCHEN
  414. XBefehl "Suchen"
  415. X
  416. XAlle (!) Artikel eine Brettes werden nach dem optional anzugebenden Such-
  417. Xmuster durchsucht. Die Artikel, die das Suchmuster enthalten, werden 
  418. Xangezeigt.
  419. X
  420. X#UPLOAD
  421. XBefehl "Upload"
  422. XDiesen Befehl gibt es NICHT. Der Befehl "Schreiben" bietet als Option
  423. Xden Upload an. Programm-Daten werden automatisch erkannt und entsprechend
  424. Xverarbeitet.
  425. X
  426. X#UNTERSCHRIFT
  427. XBefehl "Unterschrift"
  428. X
  429. XAlle Texte, die sie in dieser MBox schreiben, werden mit der "Unterschrift"
  430. Xbeendet. Sie koennen hier z.B. Ihre Anschrift, Ihre E-Mail Adresse oder
  431. Xeinen Spruch (Disclaimer) eingeben. Fuer UNIX-Kenner: der Befehl entspricht
  432. Xder ".signature". Ein Beispiel:
  433. X
  434. X-----------------------------------------------------------------------------
  435. XDAS MENSCHLICHE AN COMPUTERN   Volker Schuermann,D-5600 Wpt.21,Monhofsfeld 70
  436. XIST IHRE GEWISSENLOSIGKEIT !   DATA   +49 202 4660234    DATA  +49 202 462114
  437. X-----------------------------------------------------------------------------
  438. X
  439. X#USER
  440. XBefehl: "User" ("Teilnehmer")
  441. X
  442. XSie erhalten eine Liste der Teilnehmer in diesem MBox-System. Der Wert, der
  443. Xdem Namen folgt (z.B. "J. Random Looser (24)"), zeigt die UserID. Je niedriger
  444. Xdie Nummer, desto laenger ist der User eingtragen - jede Nummer wird nur
  445. Xeinmal vergeben.
  446. X
  447. XWird als Argument ein "*" angehaengt, gibt die MBox eine detailierte Liste aus,
  448. Xdie z.B. den letzen Anruf der jeweiligen User, das Userlevel etc. enthaelt.
  449. X
  450. XDetailierte Informationen ueber einzelnen User erhaelt man, wenn man als 
  451. XOption den Namen ("Vorname Name", "Alias", "Shell-Account") angibt.
  452. X
  453. X#VERSION
  454. XBefehl: "Version"
  455. X
  456. XDie aktulle Versionnummer wird angezeigt. Sollten Sie einmal einen Fehler
  457. Xim Programm finden, geben Sie diese Nummer bei Ihrer Fehlerbeschreibung 
  458. Xbitte an.
  459. X
  460. Xix/Mbox 0.8.2 by <volkers@unnet.ruhr.sub.org>    
  461. X        =====
  462. X
  463. XDie Fehlerberschreibung sende Sie per E-Mail an die Anschrift "<volkers@...>".
  464. X
  465. XMit der "Version #"-Option wird die MBox angwiesen eine Liste begabter Leute
  466. Xauszugeben, die massgeblich an der Entwicklung dieses Programms beteiligt
  467. Xwaren.
  468. X
  469. X#WEITERLEITEN
  470. XBefehl: "Weiterleiten"
  471. X
  472. XBriefe und Artikel koennen an andere Teilnehmer weitergeleitet werden. Dabei
  473. Xgilt folgende Schreibweise:
  474. X
  475. X"Weiterleiten"            Der Betreff der zuletzt geschriebenen PM (!) wird
  476. X                          angezeigt. Diese PM kann weitergeleitet werden.
  477. X
  478. X"Weiterleiten USER"       Die zuletztgeschrieben PM wird an den Teilnehmer
  479. X                          USER geschickt. 
  480. X
  481. X"Weiterleiten NNN USER"   Der Artikel/Brief NNN wird an den Teilnehmer USER
  482. X                          gesendet. 
  483. X
  484. XDie Briefe/Artikel koennen vor dem Versand ueberarbeitet werden. Die Syntax
  485. Xist VERBINDLICH, es darf immer nur EIN Empfaenger angegeben werden.
  486. X
  487. XUSER kann ein lokaler Teilnehmer, ein User auf einem anderen Rechner, oder
  488. Xaber der eigene SH-Account sein:
  489. X
  490. X"Weiterleiten Volker"            
  491. X"Weiterleiten volkers@xenox.ruhr.de", 
  492. X"Weiterleiten unnet!volkers"
  493. X
  494. X
  495. END_OF_FILE
  496.   if test 17291 -ne `wc -c <'etc/help.hilfe'`; then
  497.     echo shar: \"'etc/help.hilfe'\" unpacked with wrong size!
  498.   fi
  499.   # end of 'etc/help.hilfe'
  500. fi
  501. if test -f 'etc/logo~' -a "${1}" != "-c" ; then 
  502.   echo shar: Will not clobber existing file \"'etc/logo~'\"
  503. else
  504.   echo shar: Extracting \"'etc/logo~'\" \(243 characters\)
  505.   sed "s/^X//" >'etc/logo~' <<'END_OF_FILE'
  506. X
  507. X
  508. X
  509. Xooo o o ooo   ooo o ooo ooo   ooo oo   o  o o ooo o      o  oo  ooo ooo ooo o o
  510. X o  ooo oo     o  o ooo oo     o  ooo ooo o o oo  o     ooo o o oo  ooo o    o
  511. X o  o o ooo    o  o o o ooo    o  o o o o  o  ooo ooo   o o ooo ooo ooo ooo  o
  512. X
  513. X
  514. END_OF_FILE
  515.   if test 243 -ne `wc -c <'etc/logo~'`; then
  516.     echo shar: \"'etc/logo~'\" unpacked with wrong size!
  517.   fi
  518.   # end of 'etc/logo~'
  519. fi
  520. if test -f 'src/intro.c' -a "${1}" != "-c" ; then 
  521.   echo shar: Will not clobber existing file \"'src/intro.c'\"
  522. else
  523.   echo shar: Extracting \"'src/intro.c'\" \(13541 characters\)
  524.   sed "s/^X//" >'src/intro.c' <<'END_OF_FILE'
  525. X/***************************************************************************/
  526. X/*        PROGRAMM  ix/Mbox                           */
  527. X/*             DATEI  intro.c                           */
  528. X/*        FUNKTIONEN  intro(), init_user()                   */
  529. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  530. X/*  LETZTE AENDERUNG  18.03.1992                       */
  531. X/***************************************************************************/
  532. X
  533. X#include <sys/types.h>
  534. X#include <sys/stat.h>
  535. X#include <unistd.h>
  536. X#include <fcntl.h>
  537. X#include <stdio.h>
  538. X#include <time.h>
  539. X
  540. X#include "mbox.h"
  541. X
  542. Xtime_t time_start, time_now;
  543. X
  544. X
  545. Xvoid init_user();
  546. X
  547. X/***************************************************************************/
  548. X/*      FUNKTION  intro()                           */
  549. X/*  BESCHREIBUNG  Teilnehmer melden sich an. Beim Aufruf von SHELL, wird   */
  550. X/*          die Prozedur automagisch abgewickelt. Gaeste koennen     */
  551. X/*          ausserdem in dieser Funktion ein Terminal auswaehlen.    */
  552. X/*     PARAMETER  keine                                                    */
  553. X/*     RUECKGABE  keine                                                       */
  554. X/***************************************************************************/
  555. X
  556. Xvoid intro()
  557. X{
  558. X  FILE *fp;
  559. X  FILE *ff;
  560. X  int fd;
  561. X  char s[LSTRING];
  562. X  char t[STRING];
  563. X  char f[STRING];
  564. X  char tmp[STRING];
  565. X  char crypt_pw[STRING];
  566. X  char ex[255];
  567. X  char tmpuser[STRING];
  568. X  char moreLASTLOG[STRING];
  569. X  int i, calls;
  570. X  char c;
  571. X  int ok;
  572. X  int a, b;
  573. X  long lalo;
  574. X  struct userdaten LOOSER;
  575. X
  576. X  struct tm *timeptr;
  577. X  time_t timer;
  578. X 
  579. X  struct stat fst;
  580. X
  581. X  umask(0007);
  582. X
  583. X  sprintf(TERMINAL, "ansi");
  584. X  ansi("INIT");
  585. X
  586. X  time(&time_start);
  587. X
  588. X  fp = fopen( LOGO, "r" );
  589. X  if(fp != NULL){
  590. X    fclose(fp);
  591. X    printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
  592. X    ansi("cl");
  593. X    ansi("md");
  594. X        show( LOGO, 24, 0 );
  595. X    ansi("me");
  596. X    c = getint();    
  597. X  }
  598. X
  599. X  printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
  600. X  ansi("cl");
  601. X
  602. X  ansi("md");
  603. X  printf("\n%s ", INT01_MSG);
  604. X  ansi("me");
  605. X  printf("%s", ORGANIZATION);
  606. X    
  607. X  ansi("md");
  608. X  printf("\n%s ", INT02_MSG);
  609. X  ansi("me");
  610. X  printf("%s %s %s", VERSION, PATCHLEVEL, AUTOR);
  611. X
  612. X  ansi("md");
  613. X  printf("\n%s ", INT03_MSG);
  614. X  ansi("me");
  615. X  printf("%s", SYSTEM);
  616. X
  617. X  BAUDRATE = (int) 0;
  618. X
  619. X  if (OLDGID == GUEST_GID) {    /* GAESTE */
  620. X
  621. X        TRY_AGAIN:
  622. X
  623. X    printf("\n\n%s ", GBL04_MSG);
  624. X    strcpy(LOOSER.name, (char *) getline(30, 11, '.', ""));
  625. X    if (LOOSER.name[0] == '\0') goto TRY_AGAIN;
  626. X
  627. X    strcpy(s, (char *) upcased(LOOSER.name));
  628. X
  629. X    if (strcomp(GUEST, s) != 0) {
  630. X
  631. X        printf("\n%s ", GBL09_MSG);
  632. X        strcpy(LOOSER.passwort, (char *) getline(10, 12, '.', ""));
  633. X        strcpy(crypt_pw, (char *) crypted(LOOSER.passwort));
  634. X
  635. X        maybe_locked(UDBASE, "r"); lockf(UDBASE);
  636. X        fd = open(UDBASE, O_RDONLY);
  637. X        if (fd == -1) {
  638. X            nerror("intro.c", 78, "intro", "Datei-Lesefehler", UDBASE);
  639. X        }
  640. X        ok = 0;
  641. X        while ((ok == 0) && (read(fd, &USER, sizeof(USER)) == sizeof(USER))) {
  642. X            if (((strcomp(LOOSER.name, USER.name) == 0) ||
  643. X              (strcomp(LOOSER.name, USER.nick) == 0)) &&
  644. X             ((strcomp(USER.passwort, (char *) crypt_pw) == 0) ||
  645. X              (strcomp(USER.passwort, LOOSER.passwort) == 0)))
  646. X                ok = 1;
  647. X        }
  648. X        close(fd);
  649. X        unlockf(UDBASE);
  650. X
  651. X        if (ok == 1) goto WELL_DONE;
  652. X        goto TRY_AGAIN;
  653. X    }
  654. X    strcpy(LOOSER.name, (char *) upcased(s));
  655. X
  656. X    maybe_locked(UDBASE, "r"); lockf(UDBASE);
  657. X    fd = open(UDBASE, O_RDONLY);
  658. X    if (fd == -1) {
  659. X        nerror("intro.c", 98, "intro", "Datei-Lesefehler", UDBASE);
  660. X    }
  661. X    ok = 0;
  662. X    while ((ok == 0) && (read(fd, &USER, sizeof(USER)) == sizeof(USER))) {
  663. X        if (strcomp(LOOSER.name, USER.name) == 0) ok = 1;
  664. X    }
  665. X    close(fd);
  666. X    unlockf(UDBASE);
  667. X
  668. X    ansi("md");
  669. X    printf("\n\n%s\n\n", INT04_MSG);
  670. X    ansi("me");
  671. X    printf("%s\n", INT05_MSG);
  672. X    ansi("md");
  673. X    printf("\n%s > ", INT06_MSG);
  674. X    ansi("me");
  675. X
  676. X    do {
  677. X        c = getint();
  678. X    } while ((c < '1') || (c > '4'));
  679. X    printf("%c", c);
  680. X    USER.terminal = c - 48;
  681. X
  682. X    strcpy(USER.name, (char *) GUEST);
  683. X    sprintf(USER.passwort, "%s", "*****");
  684. X
  685. X    USER.level       =  0;
  686. X    USER.prompt        =  2;
  687. X    USER.bell          =  0;
  688. X    USER.intro         =  1;
  689. X    USER.more          =  1;
  690. X    USER.editor        =  1;
  691. X    USER.lastmode      =  2;
  692. X    USER.leserichtung  =  2;
  693. X    USER.tlines        = 23;
  694. X    USER.schluessel[0] =  1;
  695. X
  696. X    sprintf(USER.newsgrps, "%s", NEWS_MINIMUM);
  697. X
  698. X    LASTLOG = (long) 19700101;
  699. X    LASTTIME = 0;
  700. X    sprintf(moreLASTLOG, "%s", "01.01.1970");
  701. X  }
  702. X  else {            /* USER */
  703. X
  704. X    printf("\n\n%s ....................", GBL04_MSG);
  705. X    for (i = 0; i < 20; i++) printf("%c", BS);
  706. X
  707. X    strcpy(tmpuser, (char *) whoami());
  708. X    printf("%s", tmpuser);
  709. X
  710. X    printf("\n%s ..........", GBL09_MSG);
  711. X
  712. X    for (i = 0; i < 10; i++) printf("%c", BS);
  713. X    for (i = 0; i < 10; i++) printf("*");
  714. X
  715. X    if (strcomp(tmpuser, "root") == 0) {
  716. X        strcpy(tmpuser, (char *) POSTMASTER);
  717. X
  718. X        s[0] = '\0'; strcat(s, (char *) ttyname(0));
  719. X        if(strcomp(PMS_TTY, s) != 0){
  720. X            printf("\n\n");
  721. X            ansi("mr");
  722. X            printf("%s", INT07_MSG);
  723. X            ansi("me");
  724. X            printf("\n\n");
  725. X            exit(-1);
  726. X        }
  727. X        else {
  728. X            USER.level = 10;
  729. X        }
  730. X    }
  731. X    maybe_locked(UDBASE, "r"); lockf(UDBASE);
  732. X    fd = open(UDBASE, O_RDONLY);
  733. X    if (fd == -1) {
  734. X        nerror("intro.c", 156, "intro", "Datei-Lesefehler", UDBASE);
  735. X    }
  736. X    ok = 0;
  737. X    while ((ok == 0) && (read(fd, &USER, sizeof(USER)) == sizeof(USER))) {
  738. X        if ((strcomp(tmpuser, USER.sh_name) == 0)) ok = 1;
  739. X    }
  740. X    close(fd);
  741. X    unlockf(UDBASE);
  742. X
  743. X    if (ok == 0) postfach(tmpuser);
  744. X
  745. X  }
  746. X
  747. X  WELL_DONE:
  748. X
  749. X  setuid( ROOT_UID );
  750. X  setgid( ROOT_GID ); 
  751. X
  752. X  if (strcomp(GUEST, USER.name) != 0) {
  753. X    LASTLOG = (long) dateconv(USER.lastlog);
  754. X    LASTTIME = USER.lasttime;
  755. X    sprintf(moreLASTLOG, "%s", USER.lastlog);
  756. X  }
  757. X  if (USER.lastmode == 2) LASTTIME = 0;
  758. X
  759. X  sprintf(UGROUPS, "%s/usr/%d/.active", HOME, USER.id);
  760. X
  761. X  maybe_locked( AGROUPS, "r" );
  762. X  fp = fopen(AGROUPS, "r");
  763. X  if (fp == NULL) {
  764. X    nerror("intro.c", 182, "intro", "Datei-Lesefehler", AGROUPS);
  765. X  }
  766. X  ff = fopen(UGROUPS, "w");
  767. X  if (ff == NULL) {
  768. X    nerror("intro.c", 195, "intro", "Datei-Schreibfehler", UGROUPS);
  769. X  }
  770. X  while (fscanf(fp, "%s %ld", s, &lalo) > 0) {
  771. X    if (LASTLOG < lalo) {
  772. X        sprintf(t, "%s 00000 00000 y\n", s);
  773. X        fputs(t, ff);
  774. X    }
  775. X    if (LASTLOG == lalo) {
  776. X    }
  777. X  }
  778. X  fclose(ff);
  779. X  fclose(fp);
  780. X
  781. X  sprintf(s, "%s \"%s\" (%d) %s", INT08_MSG, USER.name, USER.id, INT09_MSG);
  782. X  control(s, 3);
  783. X  whodo( INT10_MSG );
  784. X
  785. X  printf("\n\n");
  786. X
  787. X  if ((USER.level < 10) && (strcomp(MYNAME, USER.name) != 0)) {
  788. X
  789. X    maybe_locked(SEQ, "r"); lockf(SEQ);
  790. X    fp = fopen(SEQ, "r");
  791. X    if (fp == NULL) {
  792. X        nerror("intro.c", 223, "intro", "Datei-Lesefehler", SEQ);
  793. X    }
  794. X    fscanf(fp, "%d", &calls);
  795. X    fclose(fp);
  796. X    calls++;
  797. X
  798. X    fp = fopen(SEQ, "w");
  799. X    if (fp == NULL) {
  800. X        nerror("intro.c", 227, "intro", "Datei-Schreibfehler", SEQ);
  801. X    }
  802. X    fprintf(fp, "%d\n", calls);
  803. X    fclose(fp);
  804. X    unlockf(SEQ);
  805. X
  806. X    sprintf(tmp, "%s/%dT", TMP, getpid());
  807. X
  808. X    fp = fopen(tmp, "w");
  809. X    if (fp == NULL) {
  810. X        nerror("intro.c", 236, "intro", "Datei-Schreibfehler", tmp);
  811. X    }
  812. X    maybe_locked(CALLS, "r"); lockf(CALLS);
  813. X    ff = fopen(CALLS, "r");
  814. X    if (ff == NULL) {
  815. X        nerror("intro.c", 239, "intro", "Datei-Lesefehler", CALLS);
  816. X    }
  817. X    sprintf(s, "%s (%s)", USER.name, USER.nick);
  818. X    sprintf(t, "%s", numstripped(USER.wohnort));
  819. X    if (t[0] == '\0') sprintf(t, "%s", "   ");
  820. X
  821. X    sprintf(f, "%s", (char *) ttyna());
  822. X
  823. X    if (OLDGID == GUEST_GID){
  824. X        fprintf(fp, "%5.d  %-28.28s  %-17.17s %6.6s   %s  %s\n",
  825. X            calls, s, stripped(t), f, (char *) mydate(1), (char *) mytime(1));
  826. X    }
  827. X    else{
  828. X        fprintf(fp, "%5.d  %-28.28s  %-17.17s %6.6s   %s  %s\n",
  829. X            calls, s, stripped(t), f, (char *) mydate(1), (char *) mytime(1));
  830. X    }
  831. X
  832. X    if(PRO_ENTRIES < 10){
  833. X        nerror("intro.c", 291, "intro", "PRO_ENTRIES zu klein dimensioniert", "mbox.h");            
  834. X    }
  835. X
  836. X    i = 1;
  837. X    while ((fgets(s, 84, ff) != NULL) && (i <= PRO_ENTRIES)) {
  838. X        fputs(s, fp);
  839. X        i++;
  840. X    }
  841. X
  842. X    fclose(ff);
  843. X    fclose(fp);
  844. X
  845. X    sprintf(s, "cp %s %s > /dev/null", tmp, CALLS);
  846. X    system(s);
  847. X
  848. X    unlink(tmp);
  849. X    unlockf(CALLS);
  850. X  }
  851. X
  852. X  sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);  
  853. X  if(atol(USER.abused) == 0L){
  854. X      stat(s, &fst);
  855. X      IDX_SIZE = (long) fst.st_size;
  856. X  }
  857. X  else IDX_SIZE = atol(USER.abused);
  858. X
  859. X  init_user( INT11_MSG );
  860. X
  861. X  if (USER.intro < 3) {
  862. X
  863. X    a = 0;
  864. X    fp = fopen(UGROUPS, "r");
  865. X    if (fp == NULL) {
  866. X        nerror("intro.c", 283, "intro", "Datei-Lesefehler", AGROUPS);
  867. X    }
  868. X    while (fgets(ex, 200, fp) != NULL) a++;
  869. X    fclose(fp);
  870. X
  871. X    b = 0;
  872. X    sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);  
  873. X    
  874. X    fp = fopen(s, "r");
  875. X    if (fp == NULL) {
  876. X        nerror("intro.c", 291, "intro", "Datei-Lesefehler", s);
  877. X    }
  878. X    while (fgets(ex, 200, fp) != NULL){
  879. X        if(ex[0] < 65) b++;
  880. X    }
  881. X    fclose(fp);
  882. X    b -= 1;
  883. X
  884. X    ansi("md");
  885. X    printf("%s %d. %s %s %s.\n", 
  886. X        INT12_MSG, USER.seq, INT13_MSG, moreLASTLOG, INT14_MSG);
  887. X    printf("%s %d %s %d %s.\n", 
  888. X        INT15_MSG, a, INT16_MSG, b, INT17_MSG);
  889. X    ansi("me");
  890. X    printf("\n");
  891. X  }
  892. X  if ((USER.intro != 2) && (USER.intro != 4)) show(INTRO, 9999, 1);
  893. X
  894. X
  895. X
  896. X  
  897. X  fp = fopen(WHO, "a");
  898. X  if (fp == NULL) {
  899. X    nerror("intro.c", 309, "intro", "Datei-Lesefehler", WHO);
  900. X  }
  901. X  strcpy(s, (char *) USER.sh_name);
  902. X  if (s[0] == '\0') strcat(s, GBL10_MSG);
  903. X  sprintf(ex, "%-5.5s %s (%s)                                               ",
  904. X    (char *) ttyna(), USER.name, s);
  905. X
  906. X  ex[38] = '\0';
  907. X  fputs(ex, fp);
  908. X
  909. X  sprintf(ex, "  %s              ", (char *) ttyna());
  910. X  ex[11] = '\0';
  911. X  fputs(ex, fp);
  912. X
  913. X  strcpy(s, (char *) mytime(1));
  914. X  if (USER.level < 10)
  915. X    sprintf(ex, " %s   [%d] MBox: %s\n", s, USER.level, INT10_MSG);
  916. X  else
  917. X    sprintf(ex, " %s   [%d] MBox: %s\n", s, ADMIN_LEV, INT10_MSG);
  918. X
  919. X  fputs(ex, fp);
  920. X  fclose(fp);
  921. X  
  922. X
  923. X
  924. X  sprintf(MYNAME, "%s", USER.name);
  925. X
  926. X  sprintf(s, "%s", (char *) mydate(0));
  927. X  s[5] = '\0';
  928. X  if (strcomp(s, USER.geburtsdatum) == 0) {
  929. X    ansi("md");
  930. X    printf("\n\n%s\n", INT18_MSG);
  931. X    printf("%s\n\n", INT19_MSG);
  932. X    ansi("me");
  933. X  }
  934. X  if (strcomp("24.12.", s) == 0) {
  935. X    ansi("md");
  936. X    printf("\n\n%s\n", INT20_MSG);
  937. X    printf("%s\n\n", INT21_MSG);
  938. X    ansi("me");
  939. X  }
  940. X  if (strcomp("06.12.", s) == 0) {
  941. X    ansi("md");
  942. X    printf("\n\n%s\n", INT22_MSG);
  943. X    printf("\n%s\n\n", INT23_MSG);
  944. X    ansi("me");
  945. X  }
  946. X  if (strcomp("01.01.", s) == 0) {
  947. X    ansi("md");
  948. X    printf("\n\n%s\n", INT24_MSG);
  949. X    printf("%s\n\n", INT25_MSG);
  950. X    ansi("me");
  951. X  }
  952. X  if ((calls == 1000) || (calls == 10000) || (calls == 100000)) {
  953. X    ansi("md");
  954. X    printf("\n\n%s %d%s\n\n", INT26_MSG, calls, INT27_MSG);
  955. X    ansi("me");
  956. X  }
  957. X}
  958. X
  959. X
  960. X
  961. X/***************************************************************************/
  962. X/*      FUNKTION  init_user()                           */
  963. X/*  BESCHREIBUNG  Teilnehmer-Parameter werden zugewiesen, Rechte verteilt  */
  964. X/*          und die Daten aktualisiert.                              */
  965. X/*     PARAMETER  info  =  Ansage-Text                                     */
  966. X/*     RUECKGABE  keine                                                       */
  967. X/***************************************************************************/
  968. X
  969. Xvoid init_user(info)
  970. Xchar info[];
  971. X{
  972. X  FILE *fp;
  973. X  FILE *ff;
  974. X  int fd;
  975. X  char s[STRING];
  976. X  char t[STRING];
  977. X  int i;
  978. X  struct userdaten DUMMY;
  979. X  int dummy = sizeof(DUMMY);
  980. X  long ll, lalo;
  981. X  int lati;
  982. X  int ok;
  983. X
  984. X  printf("%s ..", info);
  985. X
  986. X  switch (USER.terminal) {
  987. X      case 1:
  988. X        sprintf(s, "eval '%s ansi' ", TSET);
  989. X        sprintf(TERMINAL, "ansi");
  990. X        break;
  991. X      case 2:
  992. X        sprintf(s, "eval '%s vt100' ", TSET);
  993. X        sprintf(TERMINAL, "vt100");
  994. X        break;
  995. X      case 3:
  996. X        sprintf(s, "eval '%s vt52' ", TSET);
  997. X        sprintf(TERMINAL, "vt52");
  998. X        break;
  999. X      case 4:
  1000. X        sprintf(s, "eval '%s vt52' ", TSET);
  1001. X        sprintf(TERMINAL, "vt52");
  1002. X        break;
  1003. X  }
  1004. X  printf(".");
  1005. X
  1006. X  ansi("INIT");
  1007. X
  1008. X  fp = fopen(EDITORS, "r");
  1009. X  if (fp == NULL) {
  1010. X    nerror("intro.c", 487, "intro", "Datei-Lesefehler", EDITORS);
  1011. X  }
  1012. X  i = 0;
  1013. X  while((fgets(s, 80, fp) != NULL) && (s[0] == '/'));
  1014. X  while ((i != USER.editor) && (fscanf(fp, "%s %s", s, EDDY) > 0)) i++;
  1015. X  fclose(fp);
  1016. X
  1017. X  printf(".");
  1018. X
  1019. X  if (USER.leserichtung == 0) USER.leserichtung = 2;
  1020. X
  1021. X  USER.seq++;
  1022. X
  1023. X  maybe_locked(UDBASE, "r"); lockf(UDBASE);
  1024. X  fd = open(UDBASE, O_RDWR);
  1025. X  if (fd == -1) {
  1026. X    nerror("intro.c", 395, "init_user", "Datei-Schreib/-Lesefehler", UDBASE);
  1027. X  }
  1028. X  while (read(fd, &DUMMY, dummy) == dummy) {
  1029. X    if (USER.id == DUMMY.id) {
  1030. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  1031. X    }
  1032. X  }
  1033. X  lseek(fd, ll, SEEK_SET);
  1034. X  write(fd, &USER, sizeof(USER));
  1035. X  close(fd);
  1036. X  unlockf(UDBASE);
  1037. X
  1038. X  printf(".");
  1039. X
  1040. X  sprintf(UGROUPS, "%s/usr/%d/.active", HOME, USER.id);
  1041. X  sprintf(MAKRO, "%s/usr/%d/.makro", HOME, USER.id);
  1042. X
  1043. X  maybe_locked( AGROUPS, "r" );
  1044. X  fp = fopen(AGROUPS, "r");
  1045. X  if (fp == NULL) {
  1046. X    nerror("intro.c", 412, "intro", "Datei-Lesefehler", AGROUPS);
  1047. X  }
  1048. X  ff = fopen(UGROUPS, "w");
  1049. X  if (ff == NULL) {
  1050. X    nerror("intro.c", 442, "intro", "Datei-Schreibfehler", UGROUPS);
  1051. X  }
  1052. X  while (fscanf(fp, "%s %ld %d", s, &lalo, &lati) > 0) {
  1053. X    if (LASTLOG < lalo) {
  1054. X        sprintf(t, "%s 00000 00000 y\n", s);
  1055. X        fputs(t, ff);
  1056. X    }
  1057. X    if (LASTLOG == lalo) {
  1058. X        if (LASTTIME <= lati) {
  1059. X            sprintf(t, "%s 00000 00000 y\n", s);
  1060. X            fputs(t, ff);
  1061. X        }
  1062. X    }
  1063. X  }
  1064. X  fclose(ff);
  1065. X  fclose(fp);
  1066. X
  1067. X  printf(".");
  1068. X
  1069. X  strcpy(BRETT, "PM");
  1070. X  sprintf(NG, "%s.PM", USER.name);
  1071. X  sprintf(INHALT, "%s/usr/%d/INDEX", HOME, USER.id);
  1072. X
  1073. X  printf(".");
  1074. X
  1075. X  if (USER.newsgrps[0] == '\0') sprintf(USER.newsgrps, "%s", NEWS_MINIMUM);
  1076. X
  1077. X  sscanf(USER.newsgrps, "%s %s %s %s %s %s %s %s %s %s %s %s %s %s %s",
  1078. X    newsgrp[1], newsgrp[2], newsgrp[3], newsgrp[4], newsgrp[5],
  1079. X    newsgrp[6], newsgrp[7], newsgrp[8], newsgrp[9], newsgrp[10],
  1080. X    newsgrp[11], newsgrp[12], newsgrp[13], newsgrp[14], newsgrp[15]);
  1081. X 
  1082. X
  1083. X  if((USER.tlines < 22) || (USER.tlines > 23)){
  1084. X    MAX_SCR_LINES = DEF_MAX_SCR_LINES;
  1085. X    USER.tlines = DEF_MAX_SCR_LINES;
  1086. X  }
  1087. X  else 
  1088. X    MAX_SCR_LINES = USER.tlines;
  1089. X
  1090. X
  1091. X  if(USER.schluessel[0] == 32)
  1092. X    SHORT_HEADER = 1;
  1093. X  else
  1094. X    SHORT_HEADER = 0;
  1095. X
  1096. X  if(USER.schluessel[1] == 0)
  1097. X    USER.schluessel[1] = 4;
  1098. X
  1099. X  if(USER.level >= WRITE_INTERNAT){
  1100. X    strcpy(UUCPID, UUCPID2);
  1101. X  }
  1102. X  else{
  1103. X    strcpy(UUCPID, UUCPID1);
  1104. X  }
  1105. X
  1106. X  if(USER.account[0] == '\0') strcpy(USER.account, "01.01.2001 000.00");
  1107. X
  1108. X  printf("%c", CR);
  1109. X}
  1110. END_OF_FILE
  1111.   if test 13541 -ne `wc -c <'src/intro.c'`; then
  1112.     echo shar: \"'src/intro.c'\" unpacked with wrong size!
  1113.   fi
  1114.   # end of 'src/intro.c'
  1115. fi
  1116. if test -f 'src/loop.c' -a "${1}" != "-c" ; then 
  1117.   echo shar: Will not clobber existing file \"'src/loop.c'\"
  1118. else
  1119.   echo shar: Extracting \"'src/loop.c'\" \(19593 characters\)
  1120.   sed "s/^X//" >'src/loop.c' <<'END_OF_FILE'
  1121. X/***************************************************************************/
  1122. X/*        PROGRAMM  ix/Mbox                           */
  1123. X/*             DATEI  loop.c                           */
  1124. X/*        FUNKTIONEN  sigcatch(), cut_bef(), cut_arg(), rates(), loop()       */
  1125. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1126. X/*  LETZTE AENDERUNG  29.02.1992                       */
  1127. X/***************************************************************************/
  1128. X   
  1129. X#include <stdio.h>
  1130. X#include <sys/types.h>
  1131. X#include <sys/wait.h>
  1132. X#include <time.h>
  1133. X#include <setjmp.h>
  1134. X#include <signal.h>
  1135. X#include <sys/stat.h>
  1136. X
  1137. X#include "mbox.h"
  1138. X
  1139. X
  1140. X
  1141. Xextern time_t time_start, time_now;
  1142. X
  1143. Xjmp_buf jmpenv;
  1144. X
  1145. X
  1146. X
  1147. X/***************************************************************************/
  1148. X/*      FUNKTION  sigcatch()                           */
  1149. X/*  BESCHREIBUNG  Wird aufgerufen, wenn eines der abgefangen Signale       */
  1150. X/*          eintrifft. Je nach Signal wird entweder ein CTRL-X       */
  1151. X/*          simuliert, oder das Programm ordnungsgemaesst beendet.   */
  1152. X/*     PARAMETER  sig  =  Nummer des ausloesenden Signals                  */
  1153. X/*     RUECKGABE  keine                                                    */
  1154. X/***************************************************************************/
  1155. X
  1156. Xvoid sigcatch(sig)
  1157. Xint sig;
  1158. X{
  1159. X  char tmp[80];  
  1160. X
  1161. X  signal(SIGINT,   SIG_IGN);
  1162. X  signal(SIGQUIT,  SIG_IGN);
  1163. X  signal(SIGHUP,   SIG_IGN);
  1164. X  signal(SIGABRT,  SIG_IGN);
  1165. X  signal(SIGTERM,  SIG_IGN);
  1166. X
  1167. X  chdir( HOME );
  1168. X 
  1169. X  switch (sig) {
  1170. X    case SIGINT:
  1171. X    case SIGQUIT:
  1172. X        sprintf(tmp, "%s/I.%d", TMP, getpid());
  1173. X        unlink(tmp);
  1174. X        sprintf(tmp, "%s/show%d", TMP, getpid());
  1175. X        unlink(tmp);
  1176. X        unlockf( UDBASE );
  1177. X        printf("\n");
  1178. X        ansi("mr");
  1179. X        printf("%s", LOP01_MSG);
  1180. X        ansi("me");
  1181. X        printf("\n\n");
  1182. X        longjmp(jmpenv, 1);
  1183. X        break;
  1184. X      case SIGHUP:
  1185. X      case SIGABRT:
  1186. X      case SIGTERM:
  1187. X        printf("\n\n");
  1188. X        ansi("mr");
  1189. X        printf("%s", LOP02_MSG);
  1190. X        ansi("me");
  1191. X        printf("");
  1192. X        logout();
  1193. X        exit(-1);
  1194. X        break;
  1195. X  }
  1196. X}
  1197. X
  1198. X
  1199. X
  1200. X
  1201. X/***************************************************************************/
  1202. X/*      FUNKTION  cut_bef()                           */
  1203. X/*  BESCHREIBUNG  Filtert den Befehl aus der Eingabe eines Users.          */
  1204. X/*     PARAMETER  Eingabezeile                                             */
  1205. X/*     RUECKGABE  Der isolierte Befehl                                     */
  1206. X/***************************************************************************/
  1207. X
  1208. Xchar *cut_bef(s)
  1209. Xchar s[];
  1210. X{
  1211. X  static char bef[STRING];
  1212. X  int i = 0;
  1213. X
  1214. X  while (s[i] > 32) {
  1215. X    bef[i] = s[i];
  1216. X    i++;
  1217. X  }
  1218. X  bef[i] = '\0';
  1219. X  return (char *) bef;
  1220. X}
  1221. X
  1222. X
  1223. X
  1224. X/***************************************************************************/
  1225. X/*      FUNKTION  cut_arg()                           */
  1226. X/*  BESCHREIBUNG  Filtert das Argument aus der Eingabe des Users.          */
  1227. X/*     PARAMETER  Eingabezeile                                                */
  1228. X/*     RUECKGABE  Das isolierte Argument                                   */
  1229. X/***************************************************************************/
  1230. X
  1231. Xchar *cut_arg(s)
  1232. Xchar s[];
  1233. X{
  1234. X  static char arg[STRING];
  1235. X  int i = 0, a = 0;
  1236. X
  1237. X  while (s[i] > 32) i++;
  1238. X  if (s[i] == '\0') return (char *) "";
  1239. X
  1240. X  while (s[i] == 32) i++;
  1241. X
  1242. X  while (s[i] != '\0') {
  1243. X    arg[a] = s[i];
  1244. X    i++;
  1245. X    a++;
  1246. X  }
  1247. X  arg[a] = '\0';
  1248. X
  1249. X  while((arg[(a-1)] < 33) && (a > 1)){
  1250. X    a--;
  1251. X    arg[a] = '\0';
  1252. X  }
  1253. X
  1254. X  return (char *) arg;
  1255. X}
  1256. X
  1257. X
  1258. X
  1259. X
  1260. X/***************************************************************************/
  1261. X/*      FUNKTION  rates()                           */
  1262. X/*  BESCHREIBUNG  Ermittelt die Telefongebuehren des laufenden Anrufs und  */
  1263. X/*          bereitet sie als PROMPT auf.                             */
  1264. X/*     PARAMETER  keine                                                       */
  1265. X/*     RUECKGABE  PROMPT-Zeile fuer Gebuehren                              */
  1266. X/***************************************************************************/
  1267. X
  1268. Xchar *rates()
  1269. X{
  1270. X  static char s[STRING];
  1271. X  char t[STRING];
  1272. X  int nz, rz, wz;
  1273. X  int dif;
  1274. X  int n1, n2, r1, r2, w1, w2;
  1275. X  struct tm *timeptr;
  1276. X
  1277. X  time(&time_now);
  1278. X  dif = time_now - time_start;
  1279. X
  1280. X  n1 = dif / NZNT;
  1281. X  n1++;
  1282. X  n1 *= TARIF;
  1283. X  n2 = dif / NZBT;
  1284. X  n2++;
  1285. X  n2 *= TARIF;
  1286. X  r1 = dif / RZNT;
  1287. X  r1++;
  1288. X  r1 *= TARIF;
  1289. X  r2 = dif / RZBT;
  1290. X  r2++;
  1291. X  r2 *= TARIF;
  1292. X  w1 = dif / WZNT;
  1293. X  w1++;
  1294. X  w1 *= TARIF;
  1295. X  w2 = dif / WZBT;
  1296. X  w2++;
  1297. X  w2 *= TARIF;
  1298. X
  1299. X  timeptr = localtime(&time_now);
  1300. X  sprintf(t, "%s", asctime(timeptr));
  1301. X
  1302. X  if ((t[0] == 'S') || (timeptr->tm_hour > 18) || (timeptr->tm_hour < 8)) {
  1303. X    sprintf(s, "(%ds) NZ %d.%02.2d, RZ %d.%02.2d, WZ %d.%02.2d",
  1304. X     dif, fix(n2), flt(n2), fix(r2), flt(r2), fix(w2), flt(w2));
  1305. X  }
  1306. X  else {
  1307. X    sprintf(s, "(%ds) NZ %d.%02.2d, RZ %d.%02.2d, WZ %d.%02.2d",
  1308. X     dif, fix(n1), flt(n1), fix(r1), flt(r1), fix(w1), flt(w1));
  1309. X  }
  1310. X
  1311. X  return (char *) s;
  1312. X}
  1313. X
  1314. X
  1315. X
  1316. X
  1317. X/***************************************************************************/
  1318. X/*      FUNKTION  loop.c                           */
  1319. X/*  BESCHREIBUNG  Die Eingaben des Users werden entgegengenommen und die   */
  1320. X/*          entsprechenden Routinen aufgerufen und ausgefuehrt.      */
  1321. X/*     PARAMETER  keine                                                       */
  1322. X/*     RUECKGABE  keine                                                    */
  1323. X/***************************************************************************/
  1324. X
  1325. Xvoid loop()
  1326. X{
  1327. X  char s[STRING];
  1328. X  char t[STRING];
  1329. X  char l[LONGSTRING];
  1330. X  char befehl[STRING];
  1331. X  char argument[STRING];
  1332. X  char prompt[STRING];
  1333. X
  1334. X  char prev_befehl[10][STRING];
  1335. X  int wasok;
  1336. X
  1337. X  char c;
  1338. X
  1339. X  char bef_buff[(STRING * 2)];
  1340. X  int bef_rec;
  1341. X
  1342. X  int ende = 0, ok, dummy, i;
  1343. X  int pp;
  1344. X  int to_del;
  1345. X  int fpid;
  1346. X
  1347. X  struct stat fst;
  1348. X
  1349. X
  1350. X  sprintf(prev_befehl[1], "%s ", BEF[BB1].befehl);
  1351. X  sprintf(prev_befehl[2], "%s ", BEF[BB2].befehl); 
  1352. X  sprintf(prev_befehl[3], "%s ", BEF[BB3].befehl);
  1353. X  sprintf(prev_befehl[4], "%s ", BEF[BB4].befehl);
  1354. X  sprintf(prev_befehl[5], "%s ", BEF[BB5].befehl);
  1355. X  sprintf(prev_befehl[6], "%s ", BEF[BB6].befehl);
  1356. X  sprintf(prev_befehl[7], "%s ", BEF[BB7].befehl);
  1357. X  sprintf(prev_befehl[8], "%s ", BEF[BB8].befehl);
  1358. X  sprintf(prev_befehl[9], "%s ", BEF[BB9].befehl);
  1359. X
  1360. X  wasok = 1;
  1361. X
  1362. X  bef_buff[0] = '\0';
  1363. X
  1364. X  do {
  1365. X
  1366. X    if(setjmp(jmpenv) == 1){
  1367. X        bef_buff[0] = '\0';
  1368. X    }
  1369. X
  1370. X    FASTER:
  1371. X    
  1372. X    signal(SIGINT,  sigcatch);
  1373. X    signal(SIGQUIT, sigcatch);
  1374. X
  1375. X    signal(SIGHUP,  sigcatch);
  1376. X    signal(SIGABRT, sigcatch);
  1377. X    signal(SIGTERM, sigcatch);
  1378. X
  1379. X
  1380. X    sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  1381. X    stat(s, &fst);
  1382. X    if(fst.st_size > IDX_SIZE){
  1383. X        printf("%c\n\n%s\n", BELL, LOP03_MSG); 
  1384. X    }
  1385. X        IDX_SIZE = (long) fst.st_size;
  1386. X
  1387. X    if(bef_buff[0] != '\0'){
  1388. X        sprintf(s, "%s", bef_buff);        
  1389. X        IS_BUFFERED = 1;
  1390. X        bef_rec++;
  1391. X        goto BUFFERING;
  1392. X    }
  1393. X        else 
  1394. X        IS_BUFFERED = 0;
  1395. X
  1396. X
  1397. X    bef_rec = 0;
  1398. X
  1399. X    ansi("md");
  1400. X    prompt[0] = '\0';
  1401. X
  1402. X    switch (USER.prompt) {
  1403. X        case 1:
  1404. X            strcat(prompt, (char *) mytime(0));
  1405. X            break;
  1406. X        case 2:    
  1407. X            strcat(prompt, NG);
  1408. X            break;
  1409. X        case 3:    
  1410. X            strcat(prompt, (char *) rates());
  1411. X            break;
  1412. X    }
  1413. X    printf("\n[%s] %s > ", prompt, LOP06_MSG);
  1414. X    ansi("me");
  1415. X    if (USER.bell == 1) printf("%c", BELL);
  1416. X
  1417. X    befehl[0] = '\0';
  1418. X
  1419. X#ifdef _CORELEFT
  1420. X    if(coreleft() < _CORELEFT){
  1421. X        sprintf(s, "%d", _CORELEFT);
  1422. X        nerror( "loop.c", 288, "loop", "Speicherplatz kleiner ", s );
  1423. X    }
  1424. X#endif
  1425. X
  1426. X
  1427. X    do {
  1428. X        strcpy(s, (char *) getline(60, 11001, 32, befehl));
  1429. X        to_del = length(befehl);
  1430. X
  1431. X        if (s[0] == 48) {
  1432. X            headline( LOP05_MSG );
  1433. X            printf("\n");
  1434. X            for (i = 9; i > 0; i--) {
  1435. X                printf(" %d: %s\n", i, prev_befehl[i]);
  1436. X            }
  1437. X            goto FASTER;
  1438. X        }
  1439. X        if ((s[0] > 48) && (s[0] < 58)) {
  1440. X            sprintf(befehl, "%s", prev_befehl[(s[0] - 48)]);
  1441. X            printf("%c", CR);
  1442. X            if (ansi("ce") == 1) {
  1443. X                printf("                                                               ");
  1444. X            }
  1445. X            ansi("md");
  1446. X            printf("%c[%s] %s > ", CR, prompt, LOP06_MSG);
  1447. X            ansi("me");
  1448. X        }
  1449. X    } while ((s[0] > 47) && (s[0] < 58));
  1450. X
  1451. X    
  1452. X        if(makro_definition(s) != 0) goto FASTER;
  1453. X
  1454. X
  1455. X    BUFFERING:
  1456. X
  1457. X    if((bef_rec > MAKRO_MAX_REK) && (USER.level < (ADMIN_LEV+1))){
  1458. X        bef_buff[0] = '\0';
  1459. X        goto FASTER;
  1460. X    }
  1461. X
  1462. X        
  1463. X    strcpy(t, (char *) makro(s));
  1464. X    strcpy(s, t); 
  1465. X        
  1466. X    while ((s[0] == 32) || (s[0] == '.')) {
  1467. X        sprintf(befehl, "%s", (char *) strcopy(s, 1, length(s)));
  1468. X        sprintf(s, "%s", befehl);
  1469. X    }
  1470. X
  1471. X    i = 0; ok = 0;
  1472. X    while((ok == 0) && (s[i] != '\0')){
  1473. X        if(s[i] == ','){ 
  1474. X            strcpy(bef_buff, (char *) strcopy(s, (i+1), length(s)));
  1475. X            s[i] = '\0';
  1476. X            ok++;
  1477. X        }            
  1478. X        i++;
  1479. X    }
  1480. X    if(ok == 0) bef_buff[0] = '\0';
  1481. X    
  1482. X    strcpy(befehl, (char *) cut_bef(s));
  1483. X    strcpy(argument, (char *) cut_arg(s));
  1484. X    strcpy(s, (char *) upcased(befehl));
  1485. X    strcpy(befehl, s);
  1486. X
  1487. X    sprintf(s, "%s %s", befehl, argument);
  1488. X
  1489. X    if (wasok == 1) {
  1490. X        ok = 0;
  1491. X        for (i = 9; i > 0; i--) {
  1492. X            if ((strcomp(s, prev_befehl[i]) == 0) && (strcomp(prev_befehl[i], s) == 0))
  1493. X                ok++;
  1494. X        }
  1495. X        if ((ok == 0) && (befehl[0] > 32)) {
  1496. X            for (i = 9; i > 1; i--) {
  1497. X                sprintf(prev_befehl[i], "%s", prev_befehl[(i - 1)]);
  1498. X            }
  1499. X            sprintf(prev_befehl[1], "%s %s", befehl, argument);
  1500. X        }
  1501. X    }
  1502. X    else {
  1503. X        sprintf(prev_befehl[1], "%s %s", befehl, argument);
  1504. X    }
  1505. X
  1506. X    sprintf(s, "[%s] %s %s", LOP04_MSG, befehl, argument);
  1507. X    control(s, 3);
  1508. X
  1509. X    sprintf(s, "%s %s", befehl, argument);
  1510. X    whodo(s);
  1511. X
  1512. X
  1513. X    wasok = 0;
  1514. X
  1515. X    if (befehl[0] == '"') {
  1516. X        ansi("md");
  1517. X        /*
  1518. X        printf(" <- Nein, so daemlich kann kein User sein !\n");
  1519. X        */
  1520. X        printf(" %s\n", LOP07_MSG);
  1521. X        ansi("me");
  1522. X        goto FASTER;
  1523. X    }
  1524. X    if (befehl[0] == '\0') goto FASTER;
  1525. X
  1526. X
  1527. X    if(argument[0] == '?') {
  1528. X        strcpy(argument, befehl);
  1529. X        strcpy(befehl, BEF[BB7].befehl);
  1530. X     }
  1531. X
  1532. X/*  ?  */
  1533. X
  1534. X    if (befehl[0] == '?') {
  1535. X        if (argument[0] != '*') {
  1536. X            sprintf(s, " %s %d) ", LOP08_MSG, USER.level);
  1537. X        } else {
  1538. X            sprintf(s, " %s ", LOP09_MSG, USER.level);
  1539. X        }
  1540. X        headline(s);
  1541. X        printf("\n");
  1542. X        bef("?", argument);
  1543. X        goto FASTER;
  1544. X    }
  1545. X
  1546. X/* <BREAK> */
  1547. X
  1548. X    if (strcomp(befehl, "<BREAK>") == 0) {
  1549. X        printf("!@#?");
  1550. X        ansi("md");
  1551. X        printf(" %s", LOP10_MSG);
  1552. X        ansi("me");
  1553. X        printf("\n");
  1554. X        goto FASTER;
  1555. X    }
  1556. X    wasok = 1;
  1557. X
  1558. X
  1559. X    switch (bef(befehl, argument)) {
  1560. X
  1561. X        case 275:        /* RELOGIN */
  1562. X
  1563. X        logout();
  1564. X        intro();
  1565. X        break;
  1566. X
  1567. X
  1568. X        case 240:        /* MINIX */
  1569. X
  1570. X        if (argument[0] == '\0') {
  1571. X            ansi("md");
  1572. X            printf(" %s\n", LOP11_MSG);
  1573. X            ansi("me");
  1574. X        }
  1575. X        else {
  1576. X            printf("\n\n");
  1577. X            sprintf(s, "exec %s %s %d %d", RSH, argument, OLDUID, OLDGID);
  1578. X            system(s);
  1579. X        }
  1580. X        break;
  1581. X
  1582. X
  1583. X        case 110:
  1584. X        case 120:        /* + -  */
  1585. X
  1586. X        scanner(befehl[0]);
  1587. X        break;
  1588. X
  1589. X
  1590. X        case 190:        /* HILFE */
  1591. X
  1592. X        printf("\n\n");
  1593. X        if (argument[0] < 33)
  1594. X            help("=");
  1595. X        else {
  1596. X            if(argument[0] == '*'){    
  1597. X                help("*");
  1598. X            }
  1599. X            else{
  1600. X                strcpy(s, "#");
  1601. X                strcat(s, upcased(argument));
  1602. X                if (help(s) < 1) {
  1603. X                    ansi("md");
  1604. X                    printf("%s \"%s\" %s\n", LOP12_MSG, argument, LOP13_MSG);
  1605. X                    ansi("me");
  1606. X                }
  1607. X            }
  1608. X        }
  1609. X        break;
  1610. X
  1611. X
  1612. X        case 150:        /* BRETT */
  1613. X
  1614. X        brett(argument);
  1615. X        break;
  1616. X
  1617. X
  1618. X        case 130:        /* ANRUFER */
  1619. X
  1620. X        if(argument[0] == '#'){
  1621. X            statistik();
  1622. X            break;
  1623. X        }
  1624. X
  1625. X        if(argument[0] == '%'){
  1626. X            headline( LOP34_MSG );
  1627. X            printf("%s\n", LOP35_MSG);
  1628. X            printf("===============================================================================\n");
  1629. X            printf("%s ..", LOP29_MSG);
  1630. X    
  1631. X            switch( (fpid = fork()) ){
  1632. X                case -1 :
  1633. X                    break;
  1634. X                case  0 : 
  1635. X                    while(1){
  1636. X                        printf(".");
  1637. X                        sleep(2);
  1638. X                    }    
  1639. X                    break;
  1640. X            }
  1641. X            sprintf(t, "%s/%d.srt", TMP, getpid());
  1642. X            sprintf(l, SECONDCUT, CALLS, t);
  1643. X            system(l);             
  1644. X            kill( fpid, 9 );
  1645. X            (void) wait( fpid );
  1646. X            printf("%c", CR);
  1647. X            show(t, 9999, USER.more + 100);
  1648. X            unlink(t);
  1649. X            break;
  1650. X        }
  1651. X
  1652. X        headline( LOP14_MSG );
  1653. X        printf("%s\n", LOP15_MSG);
  1654. X        printf("===============================================================================\n");
  1655. X
  1656. X        if (argument[0] != '*') {
  1657. X            show(CALLS, 19, USER.more);
  1658. X        }
  1659. X        else {
  1660. X            show(CALLS, 9999, USER.more + 100);
  1661. X        }
  1662. X        break;
  1663. X
  1664. X
  1665. X        case 200:        /* INHALT */
  1666. X
  1667. X        inhalt2(argument, 'I');
  1668. X        break;
  1669. X
  1670. X
  1671. X        case 210:        /* LESEN */
  1672. X
  1673. X        dummy = (pruefe(argument));
  1674. X        if (dummy == 0) lesen(argument);
  1675. X        if (dummy == -1) lesen2(argument, 'L');
  1676. X        break;
  1677. X
  1678. X
  1679. X
  1680. X        case 230:        /* SCHREIBEN */
  1681. X
  1682. X        if (USER.level < WRITE_IN_LEV) {
  1683. X            ansi("md");
  1684. X            printf(" %s\n", LOP16_MSG);
  1685. X            ansi("me");
  1686. X        }
  1687. X        else
  1688. X            schreiben(argument);
  1689. X        break;
  1690. X
  1691. X
  1692. X        case 220:        /* LOESCHEN */
  1693. X
  1694. X        dummy = (pruefe(argument));
  1695. X        if (dummy == 0) loeschen(argument);
  1696. X        if (dummy == -1) loeschen2(argument, 'D');
  1697. X        break;
  1698. X
  1699. X
  1700. X        case 160:        /* BRIEF */
  1701. X
  1702. X        if (USER.level < WRITE_IN_LEV) {
  1703. X            ansi("md");
  1704. X            printf(" %s\n", LOP16_MSG);
  1705. X            ansi("me");
  1706. X        }
  1707. X        else
  1708. X            if((brief(argument) == 0) && (strcomp(GUEST, USER.name) != 0)){
  1709. X                sprintf(s, "%s?", USER.name);
  1710. X                brief(s);
  1711. X                sprintf(s, "%s/usr/%d/INDEX", HOME, USER.id);
  1712. X                stat(s, &fst);
  1713. X                    IDX_SIZE = (int) fst.st_size;
  1714. X            }
  1715. X            else bef_buff[0] = '\0';
  1716. X        break;
  1717. X
  1718. X
  1719. X        case 170:        /* CHAT */
  1720. X
  1721. X        sprintf(s, "exec %s %s \"%s\" %d %d", RSH, CHAT, USER.nick, OLDUID, OLDGID);
  1722. X        system(s);
  1723. X        break;
  1724. X
  1725. X
  1726. X        case 250:        /* PM */
  1727. X
  1728. X        strcpy(BRETT, "PM");
  1729. X        printf("\n");
  1730. X        sprintf(NG, "%s.PM", USER.name);
  1731. X        sprintf(INHALT, "%s/usr/%d/INDEX", HOME, USER.id);
  1732. X        break;
  1733. X
  1734. X
  1735. X        case 260:        /* POSTFACH */
  1736. X
  1737. X        postfach("*");
  1738. X        break;
  1739. X
  1740. X
  1741. X        case 300:        /* USER */
  1742. X
  1743. X        userliste(argument);
  1744. X        break;
  1745. X
  1746. X
  1747. X        case 140:        /* ANSAGE */
  1748. X
  1749. X        ansage();
  1750. X        break;
  1751. X
  1752. X
  1753. X        case 310:        /* UNTERSCHRIFT */
  1754. X
  1755. X        unterschrift();
  1756. X        break;
  1757. X
  1758. X
  1759. X        case 320:        /* VERSION */
  1760. X
  1761. X        printf("\n\n");
  1762. X        ansi("md");
  1763. X        printf("Version: ");
  1764. X        ansi("me");
  1765. X        printf("%s %s %s\n", VERSION, PATCHLEVEL, AUTOR);
  1766. X
  1767. X        if(argument[0] == '#'){
  1768. X            ansi("md");
  1769. X            printf("\nMein spezieller Dank gilt folgenden Mitarbeitern, Beta-Testern und Ratgebern: \n\n");
  1770. X            ansi("me");
  1771. X            
  1772. X            printf("andreas@xenox.ruhr.de       - fuer den \"NewsFeed\" und seine Geduld\n");
  1773. X            printf("                              bei unseren \"Sonderwuenschen\"\n\n");
  1774. X
  1775. X            printf("az@unnet.w.open.de          - fuer seinen Einsatz beim \"Einrichten\"\n");
  1776. X            printf("                              der Mailbox und der PD-Portierung\n\n");
  1777. X
  1778. X            printf("joergg@unnet.ruhr.sub.org   - fuer seine Ideen, Tips, konstruktive\n");
  1779. X            printf("                              Kritik und gruendliche Tests\n\n");        
  1780. X
  1781. X            printf("klausr@skylink.ruhr.sub.org - fuer viele Vorschlaege, und vor allem\n");            
  1782. X            printf("                              fuer seine praesizen Fehlerbeschreibungen\n\n");            
  1783. X
  1784. X            printf("stefans@coduck.ruhr.sub.org - fuer seine Hilfe bei der Installation\n");
  1785. X            printf("                              der 386er Patches und der PD-Beschaffung\n\n");
  1786. X
  1787. X            printf("walterb@weller.ruhr.sub.org - fuer seine Unterstuetzung bei der Portierung auf\n");
  1788. X            printf("                              UNIX SVR3 und bei der Installation\n\n");
  1789. X
  1790. X            printf("hergo@ivcmd.boerde.de       - fuer seine Hilfe bei der Bildung einer Referenz-\n");
  1791. X            printf("                              Version zur Verwendung von CDIFFs\n\n");
  1792. X            
  1793. X        }
  1794. X        
  1795. X        if(argument[0] == '*'){
  1796. X            ansi("md");
  1797. X            printf("\n%s ", LOP17_MSG);
  1798. X            ansi("me");
  1799. X#ifdef _SYS7
  1800. X            printf("-D_SYS7 ");
  1801. X#endif
  1802. X#ifdef _MBOX
  1803. X            printf("-D_MBOX ");
  1804. X#endif
  1805. X#ifdef _MINIX
  1806. X            printf("-D_MINIX ");
  1807. X#endif
  1808. X#ifdef _ESTDIO
  1809. X            printf("-D_ESTDIO ");
  1810. X#endif
  1811. X#ifdef _CORELEFT
  1812. X            printf("-D_CORELEFT ");
  1813. X#endif
  1814. X#ifdef _DATESTAMP
  1815. X            printf("-D_DATESTAMP ");
  1816. X#endif
  1817. X#ifdef _BAUDRATE
  1818. X            printf("-D_BAUDRATE ");
  1819. X#endif
  1820. X
  1821. X            printf("\n");
  1822. X        }
  1823. X
  1824. X        break;
  1825. X
  1826. X
  1827. X        case 270:        /* PORTINFO */
  1828. X
  1829. X        port( argument );
  1830. X        break;
  1831. X
  1832. X
  1833. X        case 280:        /* SETUP */
  1834. X
  1835. X        sprintf(s, "%s", NG);
  1836. X        sprintf(t, "%s", BRETT);
  1837. X        setup();
  1838. X        if (strcomp("PM", t) != 0) brett(s);
  1839. X        break;
  1840. X
  1841. X
  1842. X        case 125:        /* ADMIN */
  1843. X
  1844. X        sprintf(s, "%s", NG);
  1845. X        sprintf(t, "%s", BRETT);
  1846. X        admin();
  1847. X        if (strcomp("PM", t) != 0) brett(s);
  1848. X        break;
  1849. X
  1850. X
  1851. X        case 205:        /* ID */
  1852. X
  1853. X        if(strcomp("-c", argument) == 0){ /* Memory fault - core dumped */
  1854. X            printf("\n\nDebug-Modus: ");
  1855. X            fclose(0);   
  1856. X            break;
  1857. X        }
  1858. X
  1859. X        if(strcomp("*", argument) == 0){
  1860. X            BAUDRATE = baudrate( MAX_BPS );
  1861. X            printf("\n\n>>> Baudrate %d\n", BAUDRATE);
  1862. X            break;
  1863. X        }
  1864. X
  1865. X        if(strcomp("#", argument) == 0){
  1866. X            printf("\n\n>>> Coreleft %d\n", coreleft());
  1867. X            break;
  1868. X        }
  1869. X
  1870. X        printf("\n\n>>> %s (UID %d|%d|%d) (GID %d|%d|%d)\n", MYNAME,
  1871. X               getuid(), geteuid(), OLDUID,
  1872. X               getgid(), getegid(), OLDGID);
  1873. X        break;
  1874. X
  1875. X
  1876. X        case 215:        /* LEVEL */
  1877. X
  1878. X        show_level();
  1879. X        break;
  1880. X
  1881. X
  1882. X        case 290:        /* STATUS */
  1883. X
  1884. X        status();
  1885. X        break;
  1886. X
  1887. X
  1888. X        case 330:         /* MAKRO */
  1889. X
  1890. X        set_makros();
  1891. X        break;
  1892. X
  1893. X
  1894. X        case 340:        /* WEITERLEITEN */
  1895. X
  1896. X        weiterleiten( argument );
  1897. X        break;
  1898. X
  1899. X
  1900. X        case 350:           /* SLEEP */
  1901. X
  1902. X        dummy = atoi( argument );
  1903. X        if(dummy < 1) dummy = 1;
  1904. X        printf("\n");
  1905. X        ansi( "mr" );
  1906. X        printf(" %s ... ", LOP29_MSG);
  1907. X        ansi( "me" );    
  1908. X        sleep( dummy );
  1909. X        break;        
  1910. X
  1911. X
  1912. X        case 360:        /* KEYPRESSED */
  1913. X
  1914. X        printf("\n");
  1915. X        ansi("mr");
  1916. X        printf(" Taste ! ");
  1917. X        ansi("me");
  1918. X        dummy = getint();
  1919. X        if((dummy == CTRL_X) || (dummy == 'x') || (dummy == 'q')){
  1920. X            bef_buff[0] = '\0';
  1921. X            printf("\n");
  1922. X        }
  1923. X        break;
  1924. X
  1925. X
  1926. X        case 370:        /* DATUM */
  1927. X        
  1928. X        ansi("md");
  1929. X        printf("\n\n%s ", LOP18_MSG);
  1930. X        ansi("me"); 
  1931. X        printf("%s, ", (char *) mydate( 2 ));
  1932. X        printf("%s\n",  (char *) mydate( 0 ));
  1933. X        break;
  1934. X    
  1935. X
  1936. X        case 380:        /* ZEIT */
  1937. X
  1938. X        ansi("md");
  1939. X        printf("\n\n%s ", LOP19_MSG);
  1940. X        ansi("me");
  1941. X        printf("%s\n", (char *) mytime( 0 ));
  1942. X        ansi("md");
  1943. X        printf("Online: ");
  1944. X        ansi("me");
  1945. X        time(&time_now);
  1946. X        printf("%d %s\n",  (int) time_now - time_start, LOP20_MSG);
  1947. X        break;
  1948. X
  1949. X
  1950. X       case 390:        /* SPIELE */
  1951. X
  1952. X        games();
  1953. X        break;
  1954. X    
  1955. X
  1956. X        case 400:        /* RICHTUNG */
  1957. X
  1958. X        ansi("md");
  1959. X        printf("\n\n%s ", LOP21_MSG);
  1960. X        ansi("me");
  1961. X
  1962. X        if (USER.leserichtung == 1) {
  1963. X            USER.leserichtung = 2;
  1964. X            printf("%s\n", LOP22_MSG);
  1965. X        }
  1966. X        else {
  1967. X            USER.leserichtung = 1;
  1968. X            printf("%s\n", LOP22aMSG);
  1969. X        }
  1970. X        break;
  1971. X
  1972. X
  1973. X        case 410:           /* STATISTIK */
  1974. X
  1975. X        if ((argument[0] != '#') && (argument[0] != '$') && (argument[0] != '%')) {
  1976. X            headline( LOP23_MSG );
  1977. X            printf("%s\n", LOP24_MSG);
  1978. X            printf("===============================================================================\n");
  1979. X
  1980. X            if (argument[0] != '*') {
  1981. X                show(MB_DLOG, 19, USER.more);
  1982. X            }
  1983. X            else {
  1984. X                show(MB_DLOG, 9999, USER.more + 100);
  1985. X            }
  1986. X        }
  1987. X        if(argument[0] == '$') {
  1988. X            headline( LOP25_MSG );
  1989. X            show(UUCPCOSTS, 9999, USER.more);
  1990. X        }
  1991. X           if(argument[0] == '#') {
  1992. X            headline( LOP26_MSG );
  1993. X            printf("%s\n", LOP27_MSG);
  1994. X            printf("===============================================================================\n");
  1995. X
  1996. X            show(PDLOG, 9999, USER.more + 100);
  1997. X        }
  1998. X        if(argument[0] == '%') {
  1999. X            headline( LOP32_MSG );
  2000. X            printf("%s\n", LOP33_MSG);
  2001. X            printf("===============================================================================\n");
  2002. X            printf("%s ..", LOP29_MSG);
  2003. X    
  2004. X            switch( (fpid = fork()) ){
  2005. X                case -1 :
  2006. X                    break;
  2007. X                case  0 : 
  2008. X                    while(1){
  2009. X                        printf(".");
  2010. X                        sleep(2);
  2011. X                    }    
  2012. X                    break;
  2013. X            }
  2014. X            sprintf(t, "%s/%d.srt", TMP, getpid());
  2015. X            sprintf(l, SORTEDCUT, PDLOG, t);
  2016. X            system(l);             
  2017. X            kill( fpid, 9 );
  2018. X            (void) wait( fpid );
  2019. X            printf("%c", CR);
  2020. X            show(t, 9999, USER.more + 100);
  2021. X            unlink(t);
  2022. X        }
  2023. X
  2024. X        break;
  2025. X 
  2026. X
  2027. X        case 430:        /* SUCHEN */
  2028. X
  2029. X        suchen( argument );
  2030. X        break;    
  2031. X
  2032. X                    
  2033. X        case 420:        /* RING */
  2034. X
  2035. X        ende = 1;
  2036. X        break;
  2037. X
  2038. X
  2039. X      case 440:        /* DOWNLOAD */
  2040. X
  2041. X        download( argument );
  2042. X        break;
  2043. X               
  2044. X
  2045. X        case 180:        /* ENDE */
  2046. X
  2047. X#ifdef _MINIX
  2048. X        if (tty() >= FIRST_EX_TTY) {
  2049. X            printf("\n\n");
  2050. X            ansi("mr");
  2051. X            printf("%c%s [%c, %c] > ", CR, LOP28_MSG, GBL06_MSG, GBL07_MSG);
  2052. X            ansi("me");
  2053. X            
  2054. X            c = yesno();
  2055. X        } else
  2056. X#endif
  2057. X            c = GBL06_MSG;
  2058. X
  2059. X
  2060. X        if (c == GBL06_MSG)
  2061. X            ende = 1;
  2062. X        else
  2063. X            printf("\n");
  2064. X
  2065. X        if(argument[0] == '*'){
  2066. X            USER.lasttime = LASTTIME;
  2067. X            strcpy(USER.lastlog, (char *) datereconv( LASTLOG ));
  2068. X        }
  2069. X        else{
  2070. X            strcpy(s, (char *) mydate(0));
  2071. X            s[10] = '\0';
  2072. X            strcpy(USER.lastlog, s);
  2073. X            strcpy(s, (char *) mytime(1));
  2074. X            USER.lasttime = timeconv(s);
  2075. X        }
  2076. X
  2077. X        break;
  2078. X
  2079. X        case -1:        /* LEVEL ??? */
  2080. X
  2081. X        wasok = 0;
  2082. X        ansi("md");
  2083. X        printf(" %s %d ...\n", LOP30_MSG, USER.level);
  2084. X        ansi("me");
  2085. X        break;
  2086. X
  2087. X        default:
  2088. X
  2089. X        wasok = 0;
  2090. X        ansi("md");
  2091. X        printf(" %s\n", LOP31_MSG);
  2092. X        ansi("me");
  2093. X    }
  2094. X
  2095. X  } while (ende == 0);
  2096. X}
  2097. END_OF_FILE
  2098.   if test 19593 -ne `wc -c <'src/loop.c'`; then
  2099.     echo shar: \"'src/loop.c'\" unpacked with wrong size!
  2100.   fi
  2101.   # end of 'src/loop.c'
  2102. fi
  2103. echo shar: End of archive 5 \(of 10\).
  2104. cp /dev/null ark5isdone
  2105. MISSING=""
  2106. for I in 1 2 3 4 5 6 7 8 9 10 ; do
  2107.     if test ! -f ark${I}isdone ; then
  2108.     MISSING="${MISSING} ${I}"
  2109.     fi
  2110. done
  2111. if test "${MISSING}" = "" ; then
  2112.     echo You have unpacked all 10 archives.
  2113.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2114. else
  2115.     echo You still must unpack the following archives:
  2116.     echo "        " ${MISSING}
  2117. fi
  2118. exit 0
  2119. exit 0 # Just in case...
  2120.