home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume29 / mbox / part06 < prev    next >
Text File  |  1992-04-06  |  56KB  |  2,147 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de@unnet (Volker Schuermann)
  3. Subject:  v29i068:  mbox - A Bulletin Board System for UNIX and MINIX, Part06/10
  4. Message-ID: <1992Apr5.183536.29812@sparky.imd.sterling.com>
  5. X-Md4-Signature: ddf5005c58f3cb830bf57ca26d6c91a2
  6. Date: Sun, 5 Apr 1992 18:35:36 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 68
  11. Archive-name: mbox/part06
  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:  src/mbox.h src/misc2.c src/pd.c src/portinfo.c
  21. # Wrapped by kent@sparky on Sun Apr  5 11:57:43 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 6 (of 10)."'
  25. if test -f 'src/mbox.h' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'src/mbox.h'\"
  27. else
  28.   echo shar: Extracting \"'src/mbox.h'\" \(12398 characters\)
  29.   sed "s/^X//" >'src/mbox.h' <<'END_OF_FILE'
  30. X/***************************************************************************/
  31. X/*        PROGRAMM  ix/MBox                           */
  32. X/*             DATEI  mbox.h                           */
  33. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  34. X/*  LETZTE AENDERUNG  28.02.1992                       */
  35. X/***************************************************************************/
  36. X 
  37. X#include "mbox.msg"
  38. X#include "defs.h"
  39. X#include "patchlevel.h"
  40. X
  41. X
  42. X 
  43. X/***************************************************************************/
  44. X/* >ORGANIZATION  -  frei waehlbar (moeglichst identisch mit dem ent-      */
  45. X/*             sprechenden Eintrag fuer NEWS)               */
  46. X/* >SYSTEM        -  frei waehlbar (Name der Mailbox)                  */
  47. X/***************************************************************************/
  48. X
  49. X#define ORGANIZATION     "THE UNDERGROUND NETWORK"
  50. X#define SYSTEM           "The Time Traveling Agency"  
  51. X
  52. X
  53. X
  54. X/***************************************************************************/
  55. X/*  VERSION       -  wird vom Autor (und nur vom dem) geandert           */
  56. X/*                   Co-Autoren, Portierer etc. koennen sich gefaelligst   */
  57. X/*             ihren eigenen Eintrag basteln.                   */
  58. X/*  AUTOR         -  das bin ich - Hallo auch !                   */
  59. X/***************************************************************************/
  60. X
  61. X#define VERSION             "ix/MBox 1.6"
  62. X#define AUTOR            "by <volkers@unnet.w.open.DE>"
  63. X
  64. X
  65. X
  66. X
  67. X/***************************************************************************/
  68. X/* >UUCPSITE       - Systemname innerhalb der UUCP-Netze           */
  69. X/* >UUCPID2        - Adresse (Domain-) im Internet               */
  70. X/* >UUCPID1        - Adresse (Domain-) im lokalen UUCP-Netz            */
  71. X/* >UUCPBANG       - Adresse als BANG-Pfad                   */
  72. X/*  UUCPCOSTS      - Gebuehrenaufstellung                   */
  73. X/* >SMARTHOST       -                                */
  74. X/***************************************************************************/
  75. X
  76. X#define UUCPSITE         "unnet"
  77. X#define UUCPID2          "unnet.w.open.DE"        
  78. X#define UUCPID1             "unnet.ruhr.SUB.ORG"
  79. X#define UUCPBANG         "~!unido!horga!xenox!unnet!"
  80. X#define UUCPCOSTS        "/usr/spool/uucp/.costs"
  81. X#define SMARTHOST    "xenox"
  82. X
  83. X
  84. X
  85. X/***************************************************************************/
  86. X/*  X_MAIL_DEMON    - Name des X-Mail-Daemons (HAENDE WEG !!!)            */
  87. X/***************************************************************************/
  88. X
  89. X#define X_MAIL_DEMON     "X-Mail-Daemon"
  90. X
  91. X
  92. X
  93. X
  94. X/***************************************************************************/
  95. X/* >HOME             - HOME-Directory der ix/MBox                    */
  96. X/*  LIB             - Pfad zum MBox-Directory LIB               */
  97. X/*  TMP              - Directory fuer temporaere Dateien           */
  98. X/* >NEWS         - Pfad zum SPOOL-Directory fuer NEWS           */
  99. X/*  ERRMBOX          - Mailbox des Error-Users (POSTMASTER)           */
  100. X/*  MAILDROP         - Pfad zu den Maildrops der SH-User           */
  101. X/* >NGROUPS          - Pfad zur "active"-Datei von NEWS               */
  102. X/*  AGROUPS         - Pfad zur MBox-"active"-Datei               */
  103. X/***************************************************************************/
  104. X     
  105. X#define HOME             "/mbox"
  106. X#define LIB             "./lib"
  107. X#define TMP             "/tmp"
  108. X#define NEWS             "/usr/spool/news"
  109. X#define ERRMBOX          "/usr/spool/mail/postmaster"
  110. X#define MAILDROP         "/usr/spool/mail"
  111. X#define NGROUPS          "/usr/lib/news/active"
  112. X#define AGROUPS          "./etc/active"
  113. X
  114. X
  115. X
  116. X
  117. X
  118. X/***************************************************************************/
  119. X/* >CONSOLE          - Geraet/Datei fuer die Logbuch-Ausgaben           */
  120. X/*            Ist CONSOLE als "REDIRECT" definiert, wird aus der */
  121. X/*                      Datei CDIRECTFL der Name der Ausgabedatei gelesen  */
  122. X/*            gelesen                               */
  123. X/*  CDIRECTFL         - Geraet/Datei wohin CONSOLE-Info ausgeben wird       */
  124. X/*                Die Datei ENTHAELT DEN NAMEN der Ausgabedatei !!!  */
  125. X/* >CPRN              - Geraet/Datei fuer Fehler-Ausgaben           */
  126. X/* >POSTMASTER        - Name des SYSOPs (identisch mit dessen SH-Account)  */
  127. X/*  MAX_BPS           - Maximale Modem-Ubertragungsrate in BPS             */
  128. X/* >PMS_TTY           - Nummer des einzigen Terminals, auf dem sich "root" */
  129. X/*            anmelden darf                       */
  130. X/*  GUEST             - MBox-Account fuer Besucher               */
  131. X/*  UDBASE            - Pfad zur Teilnehmer-Datenbank               */
  132. X/*  UDSEQ             - Pfad zur Teilnehmer-SEQ-Datei               */
  133. X/***************************************************************************/
  134. X
  135. X#define CONSOLE             "REDIRECT"
  136. X#define CDIRECTFL        "/etc/mbox.out"
  137. X#define CPRN             "/tmp/errlog"
  138. X#define POSTMASTER       "volkers"
  139. X#define PMS_TTY          "/dev/tty4"
  140. X#define MAX_BPS          19200
  141. X#define GUEST            "GAST"
  142. X#define UDBASE           "./etc/users.data"
  143. X#define UDSEQ            "./etc/users.seq"
  144. X
  145. X
  146. X
  147. X
  148. X/***************************************************************************/
  149. X/*  BEFEHLE        - Pfad zur Befehls-Tabelle                   */
  150. X/*  HILFE          - Pfad zu den HELP-Texten                   */
  151. X/*  KURZHILFE       - Kurzuebersicht                       */
  152. X/*  INTRO          - Pfad zur INTRO-Meldung                   */
  153. X/*  LOGO           - Optionaler Text als Mailbox-LOGO                */
  154. X/***************************************************************************/
  155. X
  156. X#define BEFEHLE             "./etc/help.befehle"  
  157. X#define HILFE             "./etc/help.hilfe"
  158. X#define KURZHILFE        "./etc/help.shorthelp"
  159. X#define INTRO            "./etc/intro"
  160. X#define LOGO             "./etc/logo"
  161. X
  162. X
  163. X
  164. X
  165. X/***************************************************************************/
  166. X/*  SEQ             - Pfad zur MBox-SEQ-Datei (Anzahl der Anrufe)       */
  167. X/*  CALLS           - Pfad zur MBox-CALLS-Datei (Logfile)           */
  168. X/*  WHO             - Pfad zur MBox-WHO-Datei (gerade aktive User)       */
  169. X/***************************************************************************/
  170. X
  171. X#define SEQ              "./etc/mbox.seq"
  172. X#define CALLS            "./etc/mbox.calls"
  173. X#define WHO              "./etc/mbox.who"
  174. X
  175. X
  176. X
  177. X
  178. X/***************************************************************************/
  179. X/*  EDITORS          - Pfad zur Liste der verfuegbaren Eddies           */
  180. X/*  GAMES            - Pfad zur Liste der Online-Spiele               */
  181. X/*  MAX_GAMES          - Anzahl der max. angebotenen Spiele           */
  182. X/* >CHAT             - Pfad zum CHAT-Programm                   */
  183. X/*  RSH              - MBox-RSH; NICHT identisch mit RemoteSH/RestrictedSH */
  184. X/***************************************************************************/
  185. X
  186. X#define EDITORS          "./etc/mbox.editors"
  187. X#define GAMES             "./etc/mbox.games"
  188. X#define MAX_GAMES    10
  189. X#define CHAT             "/usr/bin/chat"
  190. X#define RSH              "./mbrsh"
  191. X
  192. X
  193. X
  194. X
  195. X
  196. X/***************************************************************************/
  197. X/*  ROOT_UID          - siehe "/etc/passwd"                   */
  198. X/*  ROOT_GID          - dito                           */
  199. X/*  GUEST_GID           - dito (unbedingt != GID fuer "normale" User)        */
  200. X/***************************************************************************/
  201. X
  202. X#define ROOT_UID          0
  203. X#define ROOT_GID          0
  204. X#define GUEST_GID         1
  205. X
  206. X
  207. X
  208. X
  209. X
  210. X/***************************************************************************/
  211. X/* >FIRST_EX_TTY       - Nummer des ersten seriellen Terminals           */
  212. X/*  MAX_TERMINALS      - Max. Anzahl der aktiven Terminals            */
  213. X/***************************************************************************/
  214. X
  215. X#define FIRST_EX_TTY    64
  216. X#define MAX_TERMINALS    20
  217. X
  218. X
  219. X
  220. X
  221. X/***************************************************************************/
  222. X/* >SIGNATURE          - Name des '.signature'-File im $HOME eins SH-Users */
  223. X/* >TSET               - Pfad zum TSET-Programm                   */
  224. X/* >EXPIRE             - Pfad zum EXPIRE-Programm               */
  225. X/*  MB-DAEMON          - Pfad zum MB-DAEMON-Programm               */
  226. X/*  MB_DLOG            - Pfad zum MB-DAEMON-Statistik-File           */
  227. X/*  XMDLOG           - Pfad zum XMD-Protokoll-File                   */
  228. X/*  XMD_ALIAS           - Pfad zur Alias-Datei des XMD               */
  229. X/***************************************************************************/
  230. X
  231. X#define SIGNATURE        ".wmailsign"
  232. X#define TSET             "./etc/tset"
  233. X#define EXPIRE           "/usr/lib/news/expire"
  234. X#define MB_DAEMON        "/usr/bin/mb-daemon"
  235. X#define MB_DLOG          "./etc/mbd.log"
  236. X#define XMDLOG             "/usr/adm/xmd.log"
  237. X#define XMD_ALIAS    "./etc/xmd.alias"
  238. X
  239. X
  240. X
  241. X
  242. X/***************************************************************************/
  243. X/* >COMPRESS        - Pfad zum Standard-COMPRESS               */
  244. X/* >GREP         - Pfad zum SUCH-Programm (GREP -L: Filename only !)*/
  245. X/* >SORTEDCUT           - Zaehlt die Downloads pro File               */
  246. X/* >SECONDCUT           - Zaehlt die Anrufe pro User               */
  247. X/* >UUX                 - Fuehrt Kommandos auf fremden Sites aus       */
  248. X/***************************************************************************/
  249. X
  250. X#define COMPRESS         "/usr/bin/compress"
  251. X#define GREP             "/usr/bin/grep -l"
  252. X#define SORTEDCUT       "cut -d' ' -i2 -f3 %s | sort - | uniq -c | sort -r - | sed '/ \\//s//   \\//g' > %s"
  253. X#define SECONDCUT    "cut -c6-35 %s | sed '/  /s//    /g' | sort - | uniq -c | sort -r - > %s"
  254. X#define UUX        "uux -r"
  255. X
  256. X
  257. X
  258. X
  259. X/***************************************************************************/
  260. X/*  PDNG         - Name der Freeware/Shareware/PD-NG           */
  261. X/*  PDLOG                - PD-Download-Protokoll               */
  262. X/*  PDSCRIPT         - Pfad zum Protokoll der UPLOADs           */
  263. X/* >NEWS_MINIMUM         - Mindestens verfuegbare NGs               */
  264. X/*  MAX_PER_NG           - Maximale Anzahl der Eintraege pro NG           */
  265. X/*  EXPIRE_DAYS          - Ab wann loeschen, wenn MAX_PER_NG erreicht ist  */
  266. X/*  MAX_XMD_ALIAS     - Wieviele Namen kann XMD "umleiten"              */
  267. X/*  NAT_DOMAIN1          - Nationale Domains (gebuehrenfrei)           */
  268. X/*  NAT_DOMAIN2          - (dito)                       */
  269. X/*  NAT_DOMAIN3          - (dito)                       */
  270. X/***************************************************************************/
  271. X
  272. X#define PDNG             "local.pd"
  273. X#define PDLOG             "./etc/pd.log"
  274. X#define PDSCRIPT         "./etc/pd.script"
  275. X#define NEWS_MINIMUM     "junk local xenox de"
  276. X#define MAX_PER_NG       700
  277. X#define EXPIRED_DAYS     32
  278. X#define MAX_XMD_ALIAS   20
  279. X#define NAT_DOMAIN1      ".de"
  280. X#define NAT_DOMAIN2      ".sub.org"
  281. X#define NAT_DOMAIN3      ".de" 
  282. X
  283. X
  284. X
  285. X
  286. X
  287. X/***************************************************************************/
  288. X/*  SZ            - ZModem Download                   */
  289. X/*  SX              - X-Modem                       */
  290. X/*  SB                  - Y-Modem                       */
  291. X/*  RZ              - ZModem Upload                   */
  292. X/*  RX                    - X-Modem                        */
  293. X/*  RB                    - Y-Modem                       */
  294. X/***************************************************************************/
  295. X
  296. X#define SZ               "/usr/bin/sz"
  297. X#define SX               "/usr/bin/sx"
  298. X#define SB              "/usr/bin/sb"
  299. X
  300. X#define RZ               "/usr/bin/rz"
  301. X#define RX             "/usr/bin/rx"
  302. X#define RB             "/usr/bin/rb"
  303. X
  304. X
  305. X
  306. X
  307. X
  308. X/***************************************************************************/
  309. X/*  TARIF                 - Pfennige pro Einheit (Telefongebuehren)       */
  310. X/*  NZNT                  - Sekunden pro Einheit Nahzone/Normal-Tarif       */
  311. X/*  NZBT                  -                      Nahzone/Billig-Tarif       */
  312. X/*  RZNT                  -                  Regionalzone/Normal-Tarif */
  313. X/*  RZBT          -             Regionalzone/Billig-Tarif */
  314. X/*  WZNT          -             Weitzone/Normal-Tarif     */
  315. X/*  WZBT          -             Weitzone/Billig-Tarif     */
  316. X/***************************************************************************/
  317. X
  318. X#define TARIF            23
  319. X#define NZNT             360
  320. X#define NZBT             720
  321. X#define RZNT              60
  322. X#define RZBT            120
  323. X#define WZNT             21
  324. X#define WZBT             42
  325. X
  326. X
  327. X
  328. X
  329. X/***************************************************************************/
  330. X/*  PRO_ENTRIES          - Maximal Eintraege in MBOX.CALLS             */
  331. X/*  MAX_TAGE          - Max. Eintraege im PRO-Diagramm           */
  332. X/***************************************************************************/
  333. X
  334. X#define PRO_ENTRIES      999
  335. X#define MAX_TAGE    16
  336. X
  337. X
  338. X
  339. X/***************************************************************************/
  340. X/*  MVERSION          - Version des MB-DAEMON               */
  341. X/*  REFLECT_NG          - Auf diese Gruppe wird "reflektiert"           */
  342. X/*  REFLECT_LOG          - LOG-File des Reflektors               */
  343. X/*  DIRLIST          - Wird gesendet bei DIRLIST-Request            */
  344. X/*  REFLECTUID          - UID des Reflektors (siehe /etc/passwd)         */
  345. X/*  TZS              - ?? Fehler in der Zeitberechnung ??           */
  346. X/***************************************************************************/
  347. X
  348. X#define MVERSION        "+++ Un.Net Reflecting Device - Version 1.6 / MB-DAEMON +++"
  349. X#define REFLECT_NG      "xenox.test"
  350. X#define REFLECT_LOG     "/mbox/etc/reflector.log"
  351. X#define DIRLIST         "/public/pd/DIRLIST"
  352. X#define REFLECTUID      22
  353. X#define TZS        1
  354. X
  355. X
  356. X
  357. X
  358. X
  359. X
  360. END_OF_FILE
  361.   if test 12398 -ne `wc -c <'src/mbox.h'`; then
  362.     echo shar: \"'src/mbox.h'\" unpacked with wrong size!
  363.   fi
  364.   # end of 'src/mbox.h'
  365. fi
  366. if test -f 'src/misc2.c' -a "${1}" != "-c" ; then 
  367.   echo shar: Will not clobber existing file \"'src/misc2.c'\"
  368. else
  369.   echo shar: Extracting \"'src/misc2.c'\" \(8307 characters\)
  370.   sed "s/^X//" >'src/misc2.c' <<'END_OF_FILE'
  371. X/***************************************************************************/
  372. X/*        PROGRAMM  ix/Mbox                           */
  373. X/*             DATEI  misc2.c                           */
  374. X/*        FUNKTIONEN  chk_newsgrp(), subb(), loeschen(), brett()        */
  375. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  376. X/*  LETZTE AENDERUNG  23.01.1992                       */
  377. X/***************************************************************************/
  378. X
  379. X#include <stdio.h>
  380. X
  381. X#include "mbox.h"
  382. X
  383. X
  384. X
  385. X
  386. X
  387. X/***************************************************************************/
  388. X/*      FUNKTION  chk_newsgrp()                           */
  389. X/*  BESCHREIBUNG  Stellt fest, ob ein Benutzer die angefragt NG betreten   */
  390. X/*          darf.                                                       */
  391. X/*     PARAMETER  s  =  Name der fraglichen NG                   */
  392. X/*     RUECKGABE  -1 =  Kein Zugang/Zugriff :-(                            */
  393. X/*                 1 =  Zugang erlaubt :-)                    */
  394. X/***************************************************************************/
  395. X
  396. Xint chk_newsgrp( s )
  397. Xchar s[];
  398. X{
  399. X  int i = 1, ok = -1;
  400. X
  401. X  while ((i < MAX_NEWSGRPS) && (newsgrp[i][0] != '\0') && (ok == -1)) {
  402. X    if (strcomp(newsgrp[i], s) == 0) ok = 0;
  403. X    if (strcomp(newsgrp[i], "all") == 0) ok = 0;
  404. X    i++;
  405. X  }
  406. X
  407. X  return ok;
  408. X}
  409. X
  410. X
  411. X
  412. X
  413. X/***************************************************************************/
  414. X/*      FUNKTION  subb()                           */
  415. X/*  BESCHREIBUNG  Ist die angefragte NG eine Unter-NG, oder ein kompletter */
  416. X/*          Pfad ??                                                  */
  417. X/*     PARAMETER  s  =  Name der NG                         |              */
  418. X/*     RUECKGABE  0  =  Unter-NG (z.B. minix)               v              */
  419. X/*          n  =  Erste Obergruppe endet bei 'n' (comp.os.minix)     */
  420. X/***************************************************************************/
  421. X
  422. Xint subb(s)
  423. Xchar s[];
  424. X{
  425. X  int a = 0, i = 0;
  426. X
  427. X  while (s[i] != '\0') {
  428. X    if ((s[i] == '.') && (a == 0)) a = i;
  429. X    i++;
  430. X  }
  431. X  return a;
  432. X}
  433. X
  434. X
  435. X
  436. X
  437. X/***************************************************************************/
  438. X/*      FUNKTION  loeschen()                           */
  439. X/*  BESCHREIBUNG  Gezielt einen persoenliche Mail loeschen.           */
  440. X/*     PARAMETER  arg  =  Nummer der Mail                                  */
  441. X/*     RUECKGABE  keine                                                       */
  442. X/***************************************************************************/
  443. X
  444. Xvoid loeschen(arg)
  445. Xchar arg[];
  446. X{
  447. X  FILE *fp;
  448. X  FILE *ff;
  449. X  char s[STRING];
  450. X  char entry[STRING];
  451. X  char index[STRING];
  452. X  char t[STRING];
  453. X  char ex[255];
  454. X  char c;
  455. X  int i, a = atoi(arg);
  456. X  int ok;
  457. X
  458. X
  459. X  if ((arg[0] < '1') || (arg[0] > '9')) {
  460. X    ansi("md");
  461. X    printf(" %s\n", MI201_MSG);
  462. X    ansi("me");
  463. X    return;
  464. X  }
  465. X  if (strcomp(BRETT, "PM") != 0) {
  466. X    if(arg[0] < 33) return;
  467. X    if(USER.level < ADMIN_LEV){
  468. X        ansi("md");
  469. X        printf(" %s %d ...\n", MI202_MSG, USER.level);
  470. X        ansi("me");
  471. X    }
  472. X    else{
  473. X        sprintf(entry, "%s/%s", BRETT, arg);
  474. X        unlink(entry);
  475. X        printf("\n\n%s\n", MI203_MSG);        
  476. X        sprintf(entry, "mb-daemon %s -X", NG);
  477. X        system(entry);
  478. X    }
  479. X    return;
  480. X  }
  481. X
  482. X  if(USER.level == GUEST_LEV){
  483. X    return;
  484. X  }
  485. X
  486. X  sprintf(entry, "%s/usr/%d/%s", HOME, USER.id, arg);
  487. X  sprintf(index, "%s/usr/%d/INDEX", HOME, USER.id);
  488. X
  489. X  sprintf(s, "%s/loe%d", TMP, getpid());
  490. X  ff = fopen(s, "w");
  491. X
  492. X  fp = fopen(index, "r");
  493. X  if (fp == NULL) {
  494. X    nerror("misc2.c", 109, "loeschen", "Datei-Lesefehler", index);
  495. X  }
  496. X  ok = 0;
  497. X
  498. X  while (fgets(ex, 250, fp) != NULL) {
  499. X    if (atoi(ex) != a)
  500. X        fputs(ex, ff);
  501. X    else
  502. X        ok = 1;
  503. X  }
  504. X  fclose(fp);
  505. X  fclose(ff);
  506. X
  507. X  sprintf(t, "cp %s %s", s, index);
  508. X  system(t);
  509. X  unlink(s);
  510. X  unlink(entry);
  511. X}
  512. X
  513. X
  514. X
  515. X/***************************************************************************/
  516. X/*      FUNKTION  brett()                           */
  517. X/*  BESCHREIBUNG  Wechselt das Brett, zeigt Bretter an etc. pp.        */
  518. X/*     PARAMETER  arg  =  '?'     =  Brettername ausgeben           */
  519. X/*          arg  =  ''      =  aktuelle Bretter ausgeben           */
  520. X/*          arg  =  '*'     =  alle Bretter ausgeben               */
  521. X/*          arg  =  '#'     =  Gruppen ausgeben                      */
  522. X/*          arg  =  '..'    =  eine Gruppe zurueck           */
  523. X/*          arg  = 'Brett'  =  ins Brett 'Brett' wechseln           */
  524. X/*     RUECKGABE  keine                                                       */
  525. X/***************************************************************************/
  526. X
  527. X/*
  528. Xvoid brett(arg)  Compiler Bug ???? 
  529. X*/
  530. Xbrett(arg)
  531. Xchar arg[];
  532. X{
  533. X  FILE *fp;
  534. X  FILE *ff;
  535. X  char s[STRING];
  536. X  char o[STRING];
  537. X  int a, b, h;
  538. X  char t[STRING];
  539. X  char org[STRING];
  540. X  char maybe[STRING];
  541. X  int this;
  542. X  int i, j;
  543. X  int subboard = 0;
  544. X  char c;
  545. X  int plus = 0;
  546. X  int zeile = 0;
  547. X  int swing = 1;  
  548. X  int fpid;
  549. X
  550. X  if (arg[0] == '!') {
  551. X    printf("\n\n");
  552. X    ansi( "md" );
  553. X    printf("%s ", MI204_MSG);
  554. X    ansi( "me" );
  555. X    printf("%s\n", NG);
  556. X    return;
  557. X  }
  558. X  if ((arg[0] == '+') || (arg[0] == '-')) {
  559. X    scanner(arg[0] + 255);
  560. X    return;
  561. X  }
  562. X  if (arg[0] == '\0') {
  563. X    maybe_locked(UGROUPS, "r");
  564. X    fp = fopen(UGROUPS, "r");
  565. X    if (fp == NULL) {
  566. X        nerror("misc.c", 908, "brett", "Datei-Lesefehler", UGROUPS);
  567. X    }
  568. X    arg[0] = '*';
  569. X  }
  570. X  else {
  571. X    maybe_locked(NGROUPS, "r");
  572. X    fp = fopen(NGROUPS, "r");
  573. X    if (fp == NULL) {
  574. X        nerror("misc.c", 916, "brett", "Datei-Lesefehler", NGROUPS);
  575. X    }
  576. X  }
  577. X
  578. X
  579. X  org[0] = '\0';
  580. X  strcat(org, arg);
  581. X
  582. X  if (arg[0] == '.') {
  583. X    i = 0;
  584. X    j = 0;
  585. X    strcpy(org, NG);
  586. X    while (org[i] != '\0') {
  587. X        if (org[i] == '.') j = i;
  588. X        i++;
  589. X    }
  590. X    if (j == 0) return;
  591. X    org[j] = '\0';
  592. X  }
  593. X  if (arg[0] == '#') subboard++;
  594. X
  595. X  zeile = 0;
  596. X
  597. X  show(NGROUPS, 99, 99); /* RESET */
  598. X
  599. X  if ((arg[0] == '*') || (arg[0] == '+') || (arg[0] == '#') || (arg[0] == '~')) {
  600. X    sprintf(s, "%s %d) ", MI205_MSG, USER.level);
  601. X    headline(s);
  602. X    i = 0;
  603. X    strcpy(o, (char *) "OOPS");
  604. X
  605. X    while (fscanf(fp, "%s %d %d %s", s, &a, &h, t) > 0) {
  606. X        if (arg[0] == '~') {
  607. X            if (strcomp(NG, s) != 0) continue;
  608. X        }
  609. X        if ((strcomp(o, s) != 0) || (subboard == 0)) {
  610. X            if (subboard != 0) {
  611. X                j = subb(s);
  612. X                if (j != 0) s[j] = '\0';
  613. X                o[0] = '\0'; strcat(o, s);
  614. X            }
  615. X            if (chk_newsgrp(s) == 0) {
  616. X                /*
  617. X                s[18] = '\0';
  618. X                */
  619. X                s[((80/USER.schluessel[1]) -2)] = '\0';
  620. X                strcat(s, "                                   ");
  621. X                /*
  622. X                s[19] = '\0';
  623. X                */
  624. X                s[((80/USER.schluessel[1]) -1)] = '\0';
  625. X                printf("%s", s);
  626. X                i++;
  627. X                plus++;
  628. X                if (i == USER.schluessel[1]) {
  629. X                    printf("\n");
  630. X                    i = 0;                
  631. X                    zeile++;
  632. X                    if (zeile >= MAX_SCR_LINES) {
  633. X                        zeile = 0;
  634. X                        if(USER.more != 0){
  635. X                            if (more() != 0) return (int) 1;
  636. X                        }
  637. X                    }
  638. X                }
  639. X            }
  640. X        }
  641. X    }
  642. X    if (plus == 0) {
  643. X        printf("%s", MI206_MSG);
  644. X    }
  645. X    printf("\n");
  646. X  }
  647. X  else {
  648. X    if (org[0] != '\0') {
  649. X
  650. X        SO_WHAT:
  651. X
  652. X        strcpy(o, (char *) org);
  653. X
  654. X        i = 0;
  655. X        while (org[i] != '\0') {
  656. X            t[i] = org[i];
  657. X            if (t[i] == '.') t[i] = '/';
  658. X            i++;
  659. X        }
  660. X        t[i] = '\0';
  661. X
  662. X        sprintf(s, "%s/%s", NEWS, t);
  663. X
  664. X        if (chdir(s) != 0) {
  665. X            sprintf(o, "%s.%s", NG, org);
  666. X            i = 0;
  667. X            while (o[i] != '\0') {
  668. X                t[i] = o[i];
  669. X                if (t[i] == '.') t[i] = '/';
  670. X                i++;
  671. X            }
  672. X            t[i] = '\0';
  673. X            sprintf(s, "%s/%s", NEWS, t);
  674. X        }
  675. X        if (chdir(s) != 0) {
  676. X            this = 9999;
  677. X            maybe_locked(NGROUPS, "r");
  678. X            ff = fopen(NGROUPS, "r");
  679. X            if (ff == NULL) {
  680. X                nerror("misc.c", 1001, "brett", "Datei-Lesefehler", NGROUPS);
  681. X            }
  682. X            while (fscanf(ff, "%s %d %d %s", s, &i, &i, t) > 0) {
  683. X                i = strcomp(org, s);
  684. X                if (i < this) {
  685. X                    this = i;
  686. X                    strcpy(maybe, s);
  687. X                }
  688. X            }
  689. X            fclose(ff);
  690. X            
  691. X            strcpy(org, maybe);
  692. X            printf("\n\n");
  693. X            ansi("mr");
  694. X            printf("%s \"%s\" [%c, %c] >", MI207_MSG, maybe, GBL06_MSG, GBL07_MSG);
  695. X            ansi("me");
  696. X
  697. X            c = yesno();
  698. X            
  699. X            if (c != GBL07_MSG) goto SO_WHAT;
  700. X
  701. X            printf("\n");
  702. X        }
  703. X        else {
  704. X
  705. X            if (chk_newsgrp(o) == 0) {
  706. X                strcpy(BRETT, s);
  707. X                printf("\n");
  708. X                sprintf(NG, "%s", o);
  709. X                if(length(o) > 14){
  710. X                    strcpy(s, o);
  711. X                    strcpy(o, shortname(s));
  712. X                }
  713. X#ifdef _NOINDEX
  714. X                printf("\n%s ..", MI211_MSG);
  715. X                switch( (fpid = fork()) ){
  716. X                    case -1 :
  717. X                        break;
  718. X                    case  0 :    while(1){
  719. X                                printf(".");
  720. X                                sleep(1);
  721. X                            }    
  722. X                        break;
  723. X                }
  724. X                sprintf(s, "%s %s -x", MB_DAEMON, NG);
  725. X                system( s );
  726. X                sprintf(s, "mv %s/%s/%s %s/inhalt.%d", HOME, LIB, o, TMP, getpid());
  727. X                system( s );
  728. X                sprintf(INHALT, "%s/inhalt.%d", TMP, getpid());
  729. X                kill( fpid, 9 );
  730. X                wait( fpid );
  731. X                printf("\n");                
  732. X#else                
  733. X                sprintf(INHALT, "%s/%s", LIB, o);
  734. X#endif
  735. X            } else {
  736. X                ansi("md");
  737. X                printf(" %s\n", MI210_MSG);
  738. X                ansi("me");
  739. X            }
  740. X        }
  741. X        chdir(HOME);
  742. X    }
  743. X  }
  744. X  fclose(fp);
  745. X  return;
  746. X}
  747. X
  748. END_OF_FILE
  749.   if test 8307 -ne `wc -c <'src/misc2.c'`; then
  750.     echo shar: \"'src/misc2.c'\" unpacked with wrong size!
  751.   fi
  752.   # end of 'src/misc2.c'
  753. fi
  754. if test -f 'src/pd.c' -a "${1}" != "-c" ; then 
  755.   echo shar: Will not clobber existing file \"'src/pd.c'\"
  756. else
  757.   echo shar: Extracting \"'src/pd.c'\" \(15299 characters\)
  758.   sed "s/^X//" >'src/pd.c' <<'END_OF_FILE'
  759. X/***************************************************************************/
  760. X/*        PROGRAMM  ix/Mbox                           */
  761. X/*             DATEI  pd.c                           */
  762. X/*        FUNKTIONEN  pd(), download(), status(), mkix(), statistik()       */
  763. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  764. X/*  LETZTE AENDERUNG  18.03.1992                       */
  765. X/***************************************************************************/
  766. X  
  767. X#include <stdio.h>
  768. X#include <sys/types.h>
  769. X#include <signal.h>
  770. X#include <sys/stat.h>
  771. X#include <time.h>
  772. X
  773. X#include "mbox.h"
  774. X
  775. X
  776. X/***************************************************************************/
  777. X/*      FUNKTION  pd()                               */
  778. X/*  BESCHREIBUNG  Eine Datei wird mit o. ohne Protokoll uebertragen.       */
  779. X/*          Diese Funktion wird von "lesen()" oder "pruefe()"        */
  780. X/*          aufgerufen, wenn die zu bearbeitende Datei den Kenn-     */
  781. X/*          zeichner "BINFILE" enthaelt.                             */
  782. X/*     PARAMETER  arg = Dateiname                                          */
  783. X/*     RUECKGABE  keine                               */
  784. X/***************************************************************************/
  785. X
  786. Xvoid pd(arg, keywds)
  787. Xchar arg[], keywds[];
  788. X{
  789. X  FILE *fp;
  790. X  FILE *ff;
  791. X
  792. X  char s[STRING];
  793. X  char tmp[STRING];
  794. X  char c;
  795. X  char protokoll;
  796. X  char cd[STRING];
  797. X  struct stat fst;
  798. X  long ts, tn;
  799. X
  800. X  int cps, bps, eff;
  801. X  int ok, i;
  802. X
  803. X  strcpy(cd, stripped(arg));
  804. X
  805. X  printf("\n\n");
  806. X  ansi("md");
  807. X  printf("%s\n\n", PD01_MSG);
  808. X  
  809. X  if(keywds[0] != '\0'){
  810. X    printf("%s ", PD02_MSG); 
  811. X    ansi("me");
  812. X    printf("%s\n\n", keywds);
  813. X  }
  814. X  else{
  815. X     ansi("me");
  816. X  }
  817. X
  818. X  ansi("mr");
  819. X  printf("%c%s [%c, %c, (%c)] >  ", CR, PD03_MSG, GBL06_MSG, GBL07_MSG, PD06_MSG);
  820. X  ansi("me");
  821. X
  822. X  do {
  823. X    c = getint();
  824. X    if (c >= 97) c -= 32;
  825. X    if ((c != GBL06_MSG) && (c != GBL07_MSG) && (c != PD06_MSG)) c = 0;
  826. X  } while (c == 0);
  827. X
  828. X  printf("%c", c);
  829. X
  830. X  if (c == PD06_MSG) {    /*  X  */
  831. X    printf("\n");
  832. X    sigcatch(SIGINT);    
  833. X  }
  834. X
  835. X  if (c != GBL06_MSG) {    /*  J  */
  836. X    printf("\n");
  837. X    return;
  838. X  }
  839. X  ansi("mr");
  840. X  printf("%c[%s] %c, %c, %c, %c ? > ", CR, PD07_MSG, PD08_MSG, PD09_MSG, PD10_MSG, PD11_MSG);
  841. X  ansi("me");
  842. X
  843. X
  844. X  do {
  845. X    protokoll = getint();
  846. X    if (protokoll >= 97) protokoll -= 32;
  847. X    if (protokoll == '?') {
  848. X        clearline();
  849. X        ansi("mr");
  850. X        printf("%c%s > ", CR, PD12_MSG);
  851. X        ansi("me");
  852. X    }
  853. X    if ((protokoll != PD08_MSG) && (protokoll != PD09_MSG) &&
  854. X        (protokoll != PD10_MSG) && (protokoll != PD11_MSG))
  855. X        protokoll = 0;
  856. X  } while (protokoll == 0);
  857. X
  858. X
  859. X  printf("%c", protokoll);
  860. X
  861. X  signal(SIGINT,  SIG_IGN);
  862. X  signal(SIGHUP,  SIG_IGN);
  863. X  signal(SIGQUIT, SIG_IGN);
  864. X  signal(SIGABRT, SIG_IGN);
  865. X  signal(SIGTERM, SIG_IGN);
  866. X
  867. X  printf("\n\n");
  868. X  ansi("md");
  869. X  printf("%s\n\n", PD13_MSG);
  870. X  ansi("me");
  871. X
  872. X  time(&ts);
  873. X
  874. X  switch (protokoll) {
  875. X      case PD08_MSG:
  876. X        sprintf(s, "exec cat %s", cd);
  877. X        break;
  878. X      case PD09_MSG:
  879. X        sprintf(s, "exec %s -b %s 2> /dev/null", SX, cd);
  880. X        break;
  881. X      case PD10_MSG:
  882. X        sprintf(s, "exec %s %s 2> /dev/null", SB, cd);
  883. X        break;
  884. X      case PD11_MSG:
  885. X        sprintf(s, "exec %s %s 2> /dev/null", SZ, cd);
  886. X        break;
  887. X  }
  888. X  system( s );
  889. X
  890. X  time(&tn); tn = tn - ts; 
  891. X
  892. X  stat(cd, &fst);
  893. X  USER.downratio += ((long) fst.st_size / 1024);
  894. X
  895. X  ansi( "md" );
  896. X 
  897. X  if(tn < 1) tn = 1;
  898. X  cps = fst.st_size / tn;
  899. X  bps = cps * 11;
  900. X
  901. X  BAUDRATE = baudrate( bps );
  902. X
  903. X  eff = ((100000 / BAUDRATE) * bps) / 1000;  
  904. X
  905. X  if(bps > BAUDRATE){
  906. X    printf("\n\n%s\n", PD14_MSG);
  907. X    ok = -1;
  908. X  }
  909. X  else{    
  910. X    printf("\n\n%ld %s.\n", fst.st_size, PD15_MSG);
  911. X    ok = 0;
  912. X  }
  913. X
  914. X  ansi( "me" );
  915. X  printf("%s %d cps (ca. %d bps).", PD16_MSG, cps, bps);
  916. X  sprintf(tmp, "%s/%d.pd", TMP, getpid());
  917. X  ff = fopen( tmp, "w" );
  918. X
  919. X
  920. X  if(ok == 0){
  921. X    fprintf(ff, "%s  %c  %-40.40s", mydate( 1 ), protokoll, cd); 
  922. X    if(bps < BAUDRATE){
  923. X        fprintf(ff, "  %6.d  %6.d  %2.d%% OK\n", cps, bps, eff);
  924. X    }
  925. X    else{
  926. X        fprintf(ff, "  %6.d  %6.d  %2.d%% BRK\n", cps, bps, eff);
  927. X    }
  928. X  }
  929. X  else{
  930. X    /*
  931. X    fprintf(ff, "%s  %c  %-40.40s", mydate( 1 ), protokoll, cd); 
  932. X    fprintf(ff, "  %6.6d  %6.6d  %s\n", cps, bps, PD17_MSG);
  933. X    */
  934. X  }
  935. X
  936. X  i = 0;
  937. X
  938. X  fp = fopen( PDLOG, "r" );
  939. X  if(fp != NULL){
  940. X    while((fgets(s, 80, fp) != NULL) && (i < PRO_ENTRIES)){
  941. X        fputs(s, ff);
  942. X        i++;
  943. X    }
  944. X    fclose(fp);
  945. X  }
  946. X
  947. X  fclose(ff);
  948. X
  949. X  sprintf(cd, "mv %s %s", tmp, PDLOG);
  950. X  system( cd );
  951. X
  952. X  printf("\n");
  953. X}
  954. X
  955. X
  956. X
  957. X
  958. X/***************************************************************************/
  959. X/*      FUNKTION  status                           */
  960. X/*  BESCHREIBUNG  Verschiedene (eigentlich fast alle) Eintraege aus den    */
  961. X/*          Teilnehmerdaten werden angezeigt.                        */
  962. X/*     PARAMETER  keine                                                       */
  963. X/*     RUECKGABE  keine                                 */
  964. X/***************************************************************************/
  965. X
  966. Xvoid status()
  967. X{
  968. X  char s[STRING];
  969. X  char t[STRING];
  970. X  char ex[255];
  971. X  int a, b;
  972. X  int i;
  973. X
  974. X
  975. X  sprintf(s, " %s %d ) %s ", PD18_MSG, USER.id, USER.name);
  976. X  headline(s);
  977. X  printf("\n");
  978. X
  979. X  ansi("md");
  980. X  printf("%s", PD19_MSG);
  981. X  ansi("me");
  982. X
  983. X  printf("\n");
  984. X
  985. X  sprintf(ex, "%s                                        ", USER.name);
  986. X  ex[27] = '\0';
  987. X  strcat(ex, USER.nick);
  988. X  strcat(ex, "                            ");
  989. X  ex[45] = '\0';
  990. X  strcat(ex, USER.geburtsdatum);
  991. X  strcat(ex, "                            ");
  992. X  ex[62] = '\0';
  993. X  strcat(ex, USER.telefon1);
  994. X  printf("%s\n", ex);
  995. X
  996. X  sprintf(ex, "%s                                        ", USER.strasse);
  997. X  ex[27] = '\0';
  998. X  strcat(ex, USER.sh_name);
  999. X  strcat(ex, "                            ");
  1000. X  ex[45] = '\0';
  1001. X  strcat(ex, "                            ");
  1002. X  ex[62] = '\0';
  1003. X  strcat(ex, USER.telefon2);
  1004. X  printf("%s\n", ex);
  1005. X
  1006. X  printf("%s\n\n", USER.wohnort);
  1007. X  ansi("md");
  1008. X  printf("%s", PD20_MSG);  
  1009. X  ansi("me");
  1010. X  printf("\n");
  1011. X
  1012. X  s[0] = '\0'; strcat(s, datereconv( LASTLOG ));
  1013. X  strcat(s, "-"); strcat(s, timereconv( LASTTIME ));
  1014. X  s[16] = '\0';
  1015. X
  1016. X  sprintf(ex, "       %1d       %1d  %5d     %1d       %1d     %1d      %1d  %6d  %s",
  1017. X    USER.terminal, USER.editor, USER.level, USER.bell, USER.prompt, USER.more, USER.intro, USER.seq, s);
  1018. X  printf("%s\n\n", ex);
  1019. X
  1020. X  ansi("md");
  1021. X  printf("%s", PD21_MSG);  
  1022. X  ansi("me");
  1023. X  sprintf(ex, "\n%06.6d                      %06.6d                    %06.6d",
  1024. X    (USER.elapsed / 60), USER.upratio, USER.downratio);
  1025. X  printf("%s\n\n", ex);
  1026. X
  1027. X  ansi("md");
  1028. X  printf("%s", PD22_MSG);
  1029. X  ansi("me");
  1030. X
  1031. X  i = 0;
  1032. X  strcpy(s, (char *) USER.name);
  1033. X  while (s[i] != '\0') {
  1034. X    if (s[i] == ' ') s[i] = '.';
  1035. X    i++;
  1036. X  }
  1037. X
  1038. X  sprintf(t,  "%s: %s@%s", PD23_MSG, s, UUCPID);
  1039. X  strcpy(s, USER.account); s[10] = '\0';
  1040. X  sprintf(ex, "%-54.54s%s\n%s: %s%s", t, s, PD24_MSG, UUCPBANG, USER.nick);
  1041. X  printf("\n%s\n", ex);
  1042. X  if (USER.sh_name[0] != '\0')
  1043. X    printf("%s: %s!%s\n", PD25_MSG, UUCPSITE, USER.sh_name);
  1044. X
  1045. X  printf("\n");
  1046. X
  1047. X  ansi("md");
  1048. X  printf("%s\n", PD26_MSG);
  1049. X
  1050. X  ansi("me");
  1051. X
  1052. X  i = 1;
  1053. X  while(newsgrp[i][0] != '\0'){
  1054. X    if(i != 1) printf(", ");
  1055. X    printf("%s", newsgrp[i]);
  1056. X    i++;
  1057. X  }
  1058. X
  1059. X  printf("\n\n");  
  1060. X}
  1061. X
  1062. X
  1063. X
  1064. X/***************************************************************************/
  1065. X/*      FUNKTION  mkix()                           */
  1066. X/*  BESCHREIBUNG  Wandelt eine Datei ins UNIX-Format (CRs werden entfernt) */
  1067. X/*     PARAMETER  s  =  Dateiname                                          */
  1068. X/*     RUECKGABE  keine                                                    */
  1069. X/***************************************************************************/
  1070. X
  1071. Xvoid mkix( pfad )
  1072. Xchar pfad[];
  1073. X{
  1074. X  FILE *fp; 
  1075. X  FILE *ff;
  1076. X
  1077. X  char s[255];
  1078. X  char p[255];
  1079. X
  1080. X  int i, ok = 0;
  1081. X
  1082. X  
  1083. X  sprintf(p, "%sabc", pfad);
  1084. X
  1085. X  fp = fopen( pfad, "r" );
  1086. X  if(fp == NULL){
  1087. X    return;
  1088. X  }      
  1089. X
  1090. X  ff = fopen( p, "w" );
  1091. X  if(ff == NULL){
  1092. X    nerror("pd.c", 243, "mkix", "Datei-Erstellungsfehler", p);    
  1093. X  }
  1094. X
  1095. X  while((ok == 0) && (fgets(s, 254, fp) != NULL)){
  1096. X    i = 0;
  1097. X    while(s[i] != '\0'){
  1098. X        if(s[i] == CTRL_Z){
  1099. X            ok++;
  1100. X            break;
  1101. X        }
  1102. X        i++;
  1103. X    }
  1104. X    if(ok == 0){
  1105. X        i = strlen(s) -2;
  1106. X        if(s[i] == CR){
  1107. X            s[i]    = LF;
  1108. X            s[i +1] = '\0';
  1109. X        }
  1110. X        fputs(s, ff);
  1111. X    }
  1112. X  }
  1113. X  fclose(fp);
  1114. X  fclose(ff);
  1115. X
  1116. X  unlink(pfad);
  1117. X  rename(p, pfad);
  1118. X}
  1119. X
  1120. X
  1121. X
  1122. X/***************************************************************************/
  1123. X/*      FUNKTION  statitik()                           */
  1124. X/*  BESCHREIBUNG  Anrufer-Protokoll auswerten                    */
  1125. X/*     PARAMETER  keine                                                       */
  1126. X/*     RUECKGABE  keine                                                    */
  1127. X/***************************************************************************/
  1128. X
  1129. Xvoid statistik()
  1130. X{
  1131. X  FILE *fp;
  1132. X
  1133. X  struct tm *tp;
  1134. X  time_t tt;
  1135. X
  1136. X  char s[STRING];
  1137. X  char od[MAX_TAGE][STRING];
  1138. X  char t[STRING];
  1139. X  char r[STRING];
  1140. X
  1141. X  int v18u[MAX_TAGE];
  1142. X  int n18u[MAX_TAGE];
  1143. X  int v18g = 0;
  1144. X  int n18g = 0;
  1145. X
  1146. X  int zeit = 0;
  1147. X  int tage = 0;
  1148. X  int max  = 0;
  1149. X
  1150. X  int i, a;
  1151. X  int toggle = 0;
  1152. X  int sun;
  1153. X
  1154. X  fp = fopen( CALLS, "r" );
  1155. X  if(fp == NULL){
  1156. X    nerror("pd.c", 288, "statistik", "Datei-Lesefehler", CALLS);        
  1157. X  }
  1158. X
  1159. X  od[0][0] = '\0';
  1160. X
  1161. X  headline( PD27_MSG );
  1162. X  printf("%s\n", PD28_MSG);
  1163. X  printf("===============================================================================\n");
  1164. X
  1165. X  while((fgets(s, (STRING *2), fp) != NULL) && (tage < (MAX_SCR_LINES -7))){
  1166. X    strcpy(t, (char *) strcopy(s, 64, 71));
  1167. X
  1168. X    if(strcomp(t, od[tage]) != 0){
  1169. X        if(tage != 0){
  1170. X            if((v18u[tage] + n18u[tage]) > max){
  1171. X                max = v18u[tage] + n18u[tage];
  1172. X            }
  1173. X            v18g += v18u[tage];
  1174. X            n18g += n18u[tage];
  1175. X        }
  1176. X        tage++;
  1177. X        od[tage][0] = '\0'; strcat(od[tage], t);
  1178. X        v18u[tage] = 0;
  1179. X        n18u[tage] = 0;
  1180. X        }
  1181. X    zeit = atoi(strcopy(s, 74, 75));
  1182. X    if((zeit >   6) && (zeit < 18)) v18u[tage]++;
  1183. X    if((zeit >= 18) || (zeit <= 6)) n18u[tage]++;
  1184. X  }
  1185. X
  1186. X  sprintf(s, "%s", "ooooooooooooooooooooooooooooooooooooooooooooooooooooo");
  1187. X
  1188. X  time(&tt);
  1189. X  tp = localtime(&tt);
  1190. X  sun = tp->tm_wday;
  1191. X
  1192. X  for(i = 1; i < tage; i++){
  1193. X    sprintf(t, "%s", s);
  1194. X    a = (290 / max * (v18u[i] + n18u[i])) / 10;
  1195. X    t[a] = '\0';    
  1196. X    strcpy(r, "    ");    
  1197. X    if(sun == 0){
  1198. X        strcpy(r, PD29_MSG);
  1199. X        toggle++;    
  1200. X        ansi( "md" );
  1201. X    }
  1202. X    if(sun == 6) 
  1203. X        strcpy(r, PD30_MSG);
  1204. X    sun--;
  1205. X    if(sun == -1) sun = 6;
  1206. X
  1207. X    printf("%s %s %4.d        %5.d         %5.d      %s\n",
  1208. X                od[i], r, v18u[i], n18u[i], v18u[i]+n18u[i], t);
  1209. X    if(toggle != 0) ansi( "me" );
  1210. X    toggle = 0;
  1211. X  }
  1212. X
  1213. X  printf("-------------------------------------------------------------------------------\n");
  1214. X  printf("%s %5.d        %5.d         %5.d      %s\n",
  1215. X      PD31_MSG, v18g, n18g, v18g+n18g, PD32_MSG);
  1216. X  printf("===============================================================================\n");
  1217. X
  1218. X  printf("\n%s %d %s.\n", PD33_MSG, (tage -1), PD34_MSG);   
  1219. X
  1220. X  fclose(fp);
  1221. X}
  1222. X
  1223. X
  1224. X
  1225. X
  1226. X/***************************************************************************/
  1227. X/*      FUNKTION  download()                           */
  1228. X/*  BESCHREIBUNG  Text- und Binaerartikel uebertragen               */
  1229. X/*     PARAMETER  arg = artikel[-artikel]                                  */
  1230. X/*     RUECKGABE  keine                                                    */
  1231. X/***************************************************************************/
  1232. X
  1233. X#define MAX_DL_FILES 20
  1234. X
  1235. Xvoid download( arg )
  1236. Xchar arg[];
  1237. X{
  1238. X  int i, k, l, m;
  1239. X  int von, bis;
  1240. X  int ALLE;
  1241. X  int protokoll, ok;
  1242. X  int cps, bps, eff;
  1243. X
  1244. X  long ts, tn;
  1245. X  long bytes_total = 0L;
  1246. X
  1247. X  struct stat fst;
  1248. X
  1249. X  char s[STRING];
  1250. X  char cd[LONGSTRING];
  1251. X  char t[(LONGSTRING+STRING)];
  1252. X  char tmp[STRING];
  1253. X
  1254. X  char files[MAX_DL_FILES][STRING];
  1255. X  int mdlp = 1;
  1256. X
  1257. X  int art[MAX_PER_NG];
  1258. X  int artp = 0;
  1259. X
  1260. X
  1261. X  FILE *fp, *ff;
  1262. X
  1263. X  
  1264. X  tmp[0] = '\0';
  1265. X
  1266. X  i = 0;
  1267. X  k = -1;
  1268. X  l = -1;
  1269. X  m = -1;
  1270. X
  1271. X  while (arg[i] != '\0') {
  1272. X    if (arg[i] == '-') k = i;
  1273. X    if (arg[i] == '*') l = i;
  1274. X    if ((arg[i] > 48) && (arg[i] < 58) && (m == -1)) m = i;
  1275. X    i++;
  1276. X  }
  1277. X
  1278. X  von = 1;
  1279. X  bis = 32000;
  1280. X
  1281. X  if ((m == -1) && (l == -1) && (k == -1)) {
  1282. X    return;
  1283. X  }
  1284. X
  1285. X  if ((m != -1) && (l == -1) && (k == -1)) {
  1286. X    strcpy(s, (char *) strcopy(arg, m, length(arg)));
  1287. X    von = atoi(s);
  1288. X    bis = von;
  1289. X  }
  1290. X  if (k != -1) {
  1291. X    strcpy(s, (char *) strcopy(arg, 0, (k - 1)));
  1292. X    von = atoi(s);
  1293. X    strcpy(s, (char *) strcopy(arg, (k + 1), length(arg)));
  1294. X    bis = atoi(s);
  1295. X
  1296. X    if (von == 0) von = 1;
  1297. X    if (bis == 0) bis = 32000;
  1298. X  }
  1299. X  
  1300. X  if(von > bis){
  1301. X    i = bis;
  1302. X    bis = von;
  1303. X    von = i;
  1304. X  }
  1305. X
  1306. X  maybe_locked(INHALT, "r");
  1307. X  fp = fopen(INHALT, "r");
  1308. X  if (fp == NULL) {
  1309. X    nerror("pd.c", 504, "download", "Datei-Lesefehler", INHALT);
  1310. X  }
  1311. X  while (fgets(cd, 250, fp) != NULL){
  1312. X    i = atoi(cd);
  1313. X    if((i >= von) && (i <= bis)){
  1314. X        art[artp] = i;
  1315. X        artp++;
  1316. X        if(artp > MAX_PER_NG){
  1317. X            printf("SHIT!!!");
  1318. X            exit(0);
  1319. X        }        
  1320. X    }
  1321. X  }
  1322. X  fclose(fp);
  1323. X
  1324. X
  1325. X  printf("\n\n");
  1326. X
  1327. X  ansi("mr");
  1328. X  printf("%c[%s] %c, %c, %c, %c ? > ", CR, PD07_MSG, PD08_MSG, PD09_MSG, PD10_MSG, PD11_MSG);
  1329. X  ansi("me");
  1330. X
  1331. X
  1332. X  do {
  1333. X    protokoll = getint();
  1334. X    if (protokoll >= 97) protokoll -= 32;
  1335. X    if (protokoll == '?') {
  1336. X        clearline();
  1337. X        ansi("mr");
  1338. X        printf("%c%s > ", CR, PD12_MSG);
  1339. X        ansi("me");
  1340. X    }
  1341. X    if ((protokoll != PD08_MSG) && (protokoll != PD09_MSG) &&
  1342. X        (protokoll != PD10_MSG) && (protokoll != PD11_MSG))
  1343. X        protokoll = 0;
  1344. X  } while (protokoll == 0);
  1345. X
  1346. X
  1347. X  printf("%c", protokoll);
  1348. X
  1349. X  if (strcomp(BRETT, "PM") != 0) {
  1350. X           sprintf(s, "%s", BRETT); 
  1351. X  }
  1352. X  else {
  1353. X    sprintf(s, "%s/usr/%d", HOME, USER.id);
  1354. X  }
  1355. X  chdir( s );
  1356. X
  1357. X  cd[0] = '\0';
  1358. X  printf("\n\n%s .", PD36_MSG);
  1359. X  
  1360. X  for( i = 0; i < artp; i++){  
  1361. X
  1362. X    sprintf(s, "%d", art[i]); 
  1363. X    
  1364. X    fp = fopen(s, "r");
  1365. X    if(fp != 0){
  1366. X        printf(".");
  1367. X
  1368. X        while ((fgets(t, 250, fp) != NULL) && (t[0] > 32));
  1369. X        while ((fgets(t, 250, fp) != NULL) && (t[0] < 32));
  1370. X
  1371. X        ok = 0;
  1372. X
  1373. X        if (strcomp("BINFILE", t) == 0) {
  1374. X            fgets(t, 80, fp);
  1375. X            strcpy(s, (char *) stripped(t));
  1376. X            ok++;
  1377. X        }
  1378. X        if(((strlen(s) + strlen(cd)) < LONGSTRING) && (mdlp < MAX_DL_FILES)){
  1379. X            stat(s, &fst);
  1380. X            bytes_total += (long) fst.st_size;
  1381. X
  1382. X            if(ok != 0){
  1383. X                strcpy(files[mdlp], s);
  1384. X                mdlp++;                
  1385. X                USER.downratio += ((long) fst.st_size / 1024);
  1386. X            }
  1387. X
  1388. X            strcat(cd, s); 
  1389. X            strcat(cd, " ");
  1390. X            fclose(fp);
  1391. X        }
  1392. X    }
  1393. X  }
  1394. X
  1395. X  if(cd[0] == '\0'){
  1396. X    ansi("md");
  1397. X    printf("%c%s\n", CR, PD35_MSG);
  1398. X    ansi("me");
  1399. X    chdir( HOME );
  1400. X    return;
  1401. X  }
  1402. X
  1403. X  signal(SIGINT, SIG_IGN);
  1404. X  signal(SIGHUP, SIG_IGN);
  1405. X  signal(SIGQUIT, SIG_IGN);
  1406. X  signal(SIGABRT, SIG_IGN);
  1407. X  signal(SIGTERM, SIG_IGN);
  1408. X
  1409. X  printf("\n\n");
  1410. X  ansi("md");
  1411. X  printf("%s\n\n", PD13_MSG);
  1412. X  ansi("me");
  1413. X
  1414. X  time(&ts);
  1415. X 
  1416. X  switch (protokoll) {
  1417. X      case PD08_MSG:
  1418. X        sprintf(t, "exec cat %s", cd);
  1419. X        break;
  1420. X      case PD09_MSG:
  1421. X        sprintf(t, "exec %s -b %s 2> /dev/null", SX, cd);
  1422. X        break;
  1423. X      case PD10_MSG:
  1424. X        sprintf(t, "exec %s %s 2> /dev/null", SB, cd);
  1425. X        break;
  1426. X      case PD11_MSG:
  1427. X        sprintf(t, "exec %s %s 2> /dev/null", SZ, cd);
  1428. X        break;
  1429. X  }    
  1430. X  system( t );
  1431. X
  1432. X  time(&tn); tn = tn - ts; 
  1433. X
  1434. X  chdir( HOME );
  1435. X
  1436. X  ansi( "md" );
  1437. X 
  1438. X  if(tn < 1) tn = 1;
  1439. X  cps = bytes_total / tn;
  1440. X  bps = cps * 11;
  1441. X
  1442. X  BAUDRATE = baudrate( bps );
  1443. X
  1444. X  eff = ((100000 / BAUDRATE) * bps) / 1000;
  1445. X
  1446. X  if(bps > BAUDRATE){
  1447. X    printf("\n\n%s\n", PD14_MSG);
  1448. X    ok = -1;
  1449. X  }
  1450. X  else{    
  1451. X    printf("\n\n%ld %s.\n", fst.st_size, PD15_MSG);
  1452. X    ok = 0;
  1453. X  }
  1454. X
  1455. X  ansi( "me" );
  1456. X  printf("%s %d cps (ca. %d bps).", PD16_MSG, cps, bps);  
  1457. X
  1458. X  
  1459. X  if(ok != -1){
  1460. X      
  1461. X    sprintf(tmp, "%s/%d.pd", TMP, getpid());
  1462. X    ff = fopen( tmp, "w" );
  1463. X
  1464. X    for(i = 1; i < mdlp; i++){
  1465. X        fprintf(ff, "%s  %c  %-40.40s", mydate( 1 ), protokoll, files[i]); 
  1466. X        fprintf(ff, "  %6.d  %6.d  %2.d%% DNL\n", cps, bps, eff);        
  1467. X    }  
  1468. X
  1469. X    i = 0;
  1470. X
  1471. X    fp = fopen( PDLOG, "r" );
  1472. X    if(fp != NULL){
  1473. X        while((fgets(s, 80, fp) != NULL) && (i < PRO_ENTRIES)){
  1474. X            fputs(s, ff);
  1475. X            i++;
  1476. X        }
  1477. X        fclose(fp);
  1478. X    }
  1479. X
  1480. X    fclose(ff);
  1481. X
  1482. X    sprintf(cd, "mv %s %s", tmp, PDLOG);
  1483. X    system( cd );
  1484. X  }
  1485. X  else{
  1486. X    if(ff != 0) fclose(ff);
  1487. X    if(tmp[0] != '\0') unlink(tmp);
  1488. X  }
  1489. X
  1490. X  printf("\n\n");
  1491. X}
  1492. X
  1493. X
  1494. END_OF_FILE
  1495.   if test 15299 -ne `wc -c <'src/pd.c'`; then
  1496.     echo shar: \"'src/pd.c'\" unpacked with wrong size!
  1497.   fi
  1498.   # end of 'src/pd.c'
  1499. fi
  1500. if test -f 'src/portinfo.c' -a "${1}" != "-c" ; then 
  1501.   echo shar: Will not clobber existing file \"'src/portinfo.c'\"
  1502. else
  1503.   echo shar: Extracting \"'src/portinfo.c'\" \(14509 characters\)
  1504.   sed "s/^X//" >'src/portinfo.c' <<'END_OF_FILE'
  1505. X/***************************************************************************/
  1506. X/*        PROGRAMM  ix/Mbox                           */
  1507. X/*             DATEI  portinfo.c                       */
  1508. X/*        FUNKTIONEN  port(), show_level(), userliste(), finger()       */
  1509. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1510. X/*  LETZTE AENDERUNG  28.03.1992                       */
  1511. X/***************************************************************************/
  1512. X
  1513. X#include <sys/types.h>
  1514. X#include <sys/stat.h>
  1515. X#include <fcntl.h>
  1516. X#include <unistd.h>
  1517. X#include <stdio.h>
  1518. X#include <utmp.h>
  1519. X#include <time.h>
  1520. X
  1521. X#include <string.h>
  1522. X
  1523. X#include "mbox.h"
  1524. X
  1525. X
  1526. X
  1527. X
  1528. X/***************************************************************************/
  1529. X/*      FUNKTION  port()                           */
  1530. X/*  BESCHREIBUNG  Anzeigen was die Mbox- und die SH-User z. Zt. anstellen. */
  1531. X/*     PARAMETER  keine                                                       */
  1532. X/*     RUECKGABE  keine                                                       */
  1533. X/***************************************************************************/
  1534. X
  1535. Xvoid port(arg)
  1536. Xchar arg[];
  1537. X{
  1538. X  FILE *fp;
  1539. X  FILE *ff;
  1540. X  FILE *pp;
  1541. X  int fd;
  1542. X  char s[STRING];
  1543. X  char t[STRING];
  1544. X  char ks[STRING];
  1545. X  char ls[STRING];
  1546. X  char tmp[STRING];
  1547. X  char ex[255];
  1548. X  char terms[MAX_TERMINALS][STRING];
  1549. X  int termc = 0;
  1550. X  int a, b, k, l;
  1551. X  struct utmp US;
  1552. X  struct tm *tmt;
  1553. X  long ltime;
  1554. X  
  1555. X
  1556. X  if(arg[0] != '-'){
  1557. X    headline( POR01_MSG );
  1558. X  }
  1559. X  else printf("\n\n");
  1560. X
  1561. X  printf("%s\n", POR02_MSG);
  1562. X  printf("===============================================================================\n");
  1563. X
  1564. X  printf("%s ", POR03_MSG);
  1565. X
  1566. X  maybe_locked(WHO, "r");
  1567. X  fp = fopen(WHO, "r");
  1568. X  if (fp == NULL) {
  1569. X    nerror("portinfo.c", 56, "port", "Datei-Lesefehler", WHO);
  1570. X  }
  1571. X  while (fgets(s, 80, fp) != NULL) {
  1572. X    printf(".");
  1573. X    if(s[0] > 32){
  1574. X        strcpy(t, (char *) strcopy(s, 6, 80));
  1575. X        sprintf(terms[termc], "%s", t);
  1576. X        strcat(terms[termc], "          ");
  1577. X        terms[termc][56] = '\0';
  1578. X        sprintf(t, "%s", (char *) strcopy(s, 40, 49));
  1579. X        sprintf(s, "%s/etc/%s.", HOME, (char *) stripped(t));
  1580. X        ff = fopen(s, "r");
  1581. X        if (ff == NULL) {
  1582. X            continue;
  1583. X        }
  1584. X        fgets(s, 80, ff);
  1585. X        s[23] = '\0';
  1586. X        fclose(ff);
  1587. X        strcat(terms[termc], s);
  1588. X        strcat(terms[termc], "\n");
  1589. X        termc++;
  1590. X    }
  1591. X  }
  1592. X  fclose(fp);
  1593. X
  1594. X  sprintf(tmp, "%s/%dps", TMP, getpid());
  1595. X  sprintf(s, "ps -a > %s", tmp);
  1596. X  system( s );
  1597. X
  1598. X#ifdef _SYS7
  1599. X  maybe_locked(UTMP, "r");
  1600. X  fd = open(UTMP, O_RDONLY);
  1601. X#else
  1602. X  maybe_locked(UTMP_FILE, "r");
  1603. X  fd = open(UTMP_FILE, O_RDONLY);
  1604. X#endif
  1605. X
  1606. X  if (fd == -1) {
  1607. X
  1608. X#ifdef _SYS7
  1609. X    nerror("portinfo.c", 83, "port", "Datei-Lesefehler", UTMP);
  1610. X#else
  1611. X    nerror("portinfo.c", 83, "port", "Datei-Lesefehler", UTMP_FILE);
  1612. X#endif
  1613. X
  1614. X  }
  1615. X  while (read(fd, &US, sizeof(US)) == sizeof(US)) {
  1616. X
  1617. X    printf(".");
  1618. X    t[0] = '\0';
  1619. X    strcat(t, "[$] -\n");
  1620. X
  1621. X    if (US.ut_type == USER_PROCESS) {
  1622. X        terms[termc][0] = '\0';
  1623. X        sprintf(ex, "%.8s [SH-Account]                                                  ",
  1624. X            US.ut_user);
  1625. X        ex[33] = '\0';
  1626. X        strcat(terms[termc], ex);
  1627. X
  1628. X        sprintf(ex, " %s                ",
  1629. X            US.ut_line);
  1630. X        ex[11] = '\0';
  1631. X        strcat(terms[termc], ex);
  1632. X
  1633. X        ltime = US.ut_time;
  1634. X        tmt = localtime(<ime);
  1635. X        sprintf(ex, "%02.2d:%02.2d   ",
  1636. X            tmt->tm_hour, tmt->tm_min);
  1637. X        strcat(terms[termc], ex);
  1638. X
  1639. X        l = atoi(strcopy(US.ut_line, 3, 6));
  1640. X
  1641. X        pp = fopen(tmp, "r");
  1642. X        if (pp == NULL) {
  1643. X            nerror("portinfo.c", 113, "port", tmp, "???");
  1644. X        }
  1645. X        while (fgets(s, 80, pp) != NULL) {
  1646. X            k = atoi((char *) strcopy(s, 8, 10));
  1647. X            if ((k == l) && (s[17] != '-')) {
  1648. X                t[0] = '\0';
  1649. X                strcat(t, "[$] ");
  1650. X                strcat(t, (char *) strcopy(s, 17, 40));
  1651. X                s[0] = '\0';
  1652. X                strcat(s, t);
  1653. X                t[0] = '\0';
  1654. X                strcat(t, (char *) stripped(s));
  1655. X                t[27] = '\0';
  1656. X                strcat(t, "\n");
  1657. X            }
  1658. X        }
  1659. X        fclose(pp);
  1660. X
  1661. X        strcat(terms[termc], t);
  1662. X        termc++;
  1663. X    }
  1664. X  }
  1665. X  close(fd);
  1666. X
  1667. X  unlink(tmp);
  1668. X
  1669. X  printf("%c", CR);
  1670. X
  1671. X  for (a = 0; a < termc; a++) {
  1672. X    for (b = 0; b < termc; b++) {
  1673. X        sprintf(ks, "%s", (char *) strcopy(terms[a], 34, 40));
  1674. X        sprintf(ls, "%s", (char *) strcopy(terms[b], 34, 40));
  1675. X        if((strcomp(ks, ls) == 0) && (a != b)){
  1676. X            if (terms[a][53] == '$') terms[a][0] = '*';
  1677. X            if (terms[b][53] == '$') terms[b][0] = '*';
  1678. X        }
  1679. X        sprintf(s, "%d", ks); k = atoi(s);
  1680. X        sprintf(s, "%d", ls); l = atoi(s);
  1681. X        if (k < l) {
  1682. X            s[0] = '\0';
  1683. X            strcat(s, terms[a]);
  1684. X            terms[a][0] = '\0';
  1685. X            strcat(terms[a], terms[b]);
  1686. X            terms[b][0] = '\0';
  1687. X            strcat(terms[b], s);
  1688. X        }
  1689. X    }
  1690. X  }
  1691. X
  1692. X
  1693. X  for (a = 0; a < termc; a++) {
  1694. X    if (terms[a][0] != '*'){
  1695. X        if(terms[a][53] != '$') ansi( "md" );
  1696. X        printf("%s", terms[a]);
  1697. X        if(terms[a][53] != '$') ansi( "me" );
  1698. X    }
  1699. X  }
  1700. X
  1701. X  printf("\n");
  1702. X}
  1703. X
  1704. X
  1705. X
  1706. X
  1707. X
  1708. X/***************************************************************************/
  1709. X/*      FUNKTION  show_level()                           */
  1710. X/*  BESCHREIBUNG  Zuweisung der Userlevel anzeigen.               */
  1711. X/*     PARAMETER  keine                                                       */
  1712. X/*     RUECKGABE  keine                                                       */
  1713. X/***************************************************************************/
  1714. X
  1715. Xvoid show_level()
  1716. X{
  1717. X  headline( POR04_MSG );
  1718. X  printf("\n");
  1719. X
  1720. X  printf("%s\n", POR05_MSG);
  1721. X  printf("-----------------------------------------\n");
  1722. X  printf("%s (%d)\n", POR06_MSG, GUEST_LEV);
  1723. X  printf("%s (%d)\n", POR07_MSG, WRITE_IN_LEV);
  1724. X  printf("%s (%d)\n", POR08_MSG, MAILOUT_LEV);
  1725. X  printf("%s (%d)\n", POR09_MSG, WRITE_EX_LEV);
  1726. X  printf("%s (%d)\n", POR10_MSG, WRITE_INTERNAT);
  1727. X  printf("%s (%d)\n", POR11_MSG, PD_D_LEV);
  1728. X  printf("%s (%d)\n", POR12_MSG, PD_U_LEV);
  1729. X  printf("%s (%d)\n", POR13_MSG, EXE_LEV);
  1730. X  printf("%s (%d)\n", POR14_MSG, ADMIN_LEV);
  1731. X
  1732. X  printf("\n%s (%d), %s !\n\n", POR15_MSG, USER.level, USER.name);
  1733. X
  1734. X}
  1735. X
  1736. X
  1737. X
  1738. X/***************************************************************************/
  1739. X/*      FUNKTION  userliste()                           */
  1740. X/*  BESCHREIBUNG  Verschieden Formen der Userliste ausgeben.           */
  1741. X/*     PARAMETER  arg  =  ''   =  nur Username und ID                      */
  1742. X/*              '*'  =  Name, letzter Anruf etc.                 */
  1743. X/*              '#'  =  Name, Up- / Downloads               */
  1744. X/*              '%'  =  Gebuehren-Stand               */
  1745. X/*     RUECKGABE  keine                                                       */
  1746. X/***************************************************************************/
  1747. X
  1748. Xvoid userliste(arg)
  1749. Xchar arg[];
  1750. X{
  1751. X  FILE *fp;
  1752. X  int fd;
  1753. X  struct userdaten LOOSER;
  1754. X  char s[STRING];
  1755. X  char u[(STRING*2)];
  1756. X  char tmp[STRING];
  1757. X  int i = 0, l;
  1758. X  int mode = 0;
  1759. X  int totalusr = 0;
  1760. X  int totalact = 0;
  1761. X  int totalgas = 0;
  1762. X
  1763. X  char c;
  1764. X
  1765. X  if (arg[0] == '*') mode = 1;
  1766. X  if ((arg[0] == '#') && (USER.level >= ADMIN_LEV)) mode = 2;
  1767. X  if ((arg[0] == '%') && (USER.level >= ADMIN_LEV)) mode = 3;
  1768. X  if ((arg[0] > 47) && (mode == 0)){
  1769. X    finger(arg);
  1770. X    return;
  1771. X  }
  1772. X 
  1773. X  headline( POR15aMSG );
  1774. X
  1775. X  show(UDBASE, 99, 99); /* RESET */
  1776. X
  1777. X  if (mode == 1) {
  1778. X    printf("%s\n", POR16_MSG);    
  1779. X    printf("===============================================================================\n");
  1780. X    printf("%s", POR17_MSG);
  1781. X  }
  1782. X  if (mode == 2) {
  1783. X    printf("%s\n", POR18_MSG);    
  1784. X    printf("===============================================================================\n");
  1785. X    printf("%s", POR17_MSG);
  1786. X  }
  1787. X  if (mode == 3) {
  1788. X        printf("%s\n", POR18aMSG);    
  1789. X    printf("===============================================================================\n");
  1790. X    printf("%s", POR17_MSG);
  1791. X  }
  1792. X
  1793. X  sprintf(tmp, "%s/%d", TMP, getpid());
  1794. X  fp = fopen(tmp, "w");
  1795. X  if (fp == NULL) {
  1796. X    nerror("portinfo.c", 231, "userliste", "Datei-Schreibfehler", tmp);
  1797. X  }
  1798. X  maybe_locked(UDBASE, "r");
  1799. X  fd = open(UDBASE, O_RDONLY);
  1800. X  if (fd == -1) {
  1801. X    nerror("admin.c", 254, "userliste", "Datei-Lesefehler", UDBASE);
  1802. X  }
  1803. X  while (read(fd, &LOOSER, sizeof(LOOSER)) == sizeof(LOOSER)) {
  1804. X    if (mode == 0) {
  1805. X        sprintf(u, "%s", LOOSER.name);
  1806. X        sprintf(s, " (%d) ", LOOSER.id);        
  1807. X        u[26 - strlen(s)] = '\0';
  1808. X        strcat(u, s); strcat(u, "                                ");    
  1809. X         u[26] = '\0';
  1810. X        fprintf(fp, "%s", u);
  1811. X        i++;
  1812. X        if (i == 3) {
  1813. X            i = 0;
  1814. X            fprintf(fp, "\n");
  1815. X        }
  1816. X    }
  1817. X    if (mode == 1) {
  1818. X        sprintf(s, "%s", "   ");
  1819. X        if ((LOOSER.elapsed / 60) > 2) {
  1820. X            if (LOOSER.wohnort[0] < 48) {
  1821. X                if (strcomp(GUEST, LOOSER.name) != 0)
  1822. X                    sprintf(s, "%s", "<?>");
  1823. X            }
  1824. X        }
  1825. X        else {
  1826. X            sprintf(s, "%s", "{-}");
  1827. X        }
  1828. X        fprintf(fp, "%-30.30s  %10s %s%6.6d   %6.6ld\"  %5.5d%10.10s\n",
  1829. X            LOOSER.name, LOOSER.lastlog, s, LOOSER.seq, (LOOSER.elapsed / 60), LOOSER.level, LOOSER.sh_name);
  1830. X
  1831. X    }
  1832. X    if (mode == 2) {
  1833. X        fprintf(fp, "%-30.30s  %8.8d kB  %10.10d kB %8.8d\"\n",
  1834. X            LOOSER.name, LOOSER.upratio, LOOSER.downratio, (LOOSER.elapsed / 60));
  1835. X    }
  1836. X        if (mode == 3) {
  1837. X        if(LOOSER.level >= WRITE_INTERNAT){
  1838. X            if(LOOSER.account[0] == '\0') strcpy(LOOSER.account, "00.00.0000");
  1839. X            strcpy(s, LOOSER.account);
  1840. X            s[10] = '\0';
  1841. X            c = ' ';
  1842. X            fprintf(fp, "%-30.30s  %5.5d   %c %s\n", 
  1843. X                LOOSER.name, LOOSER.id, c, s);
  1844. X        }
  1845. X        }
  1846. X    totalusr++;
  1847. X    sprintf(s, "%s", (char *) mydate( 0 )); 
  1848. X    if((strcomp(s, LOOSER.lastlog) < 3) && (LOOSER.seq > 10)) totalact++;
  1849. X    if(strcomp(GUEST, LOOSER.name) == 0) totalgas = LOOSER.seq;
  1850. X  }
  1851. X  close(fd);
  1852. X
  1853. X  fclose(fp);
  1854. X
  1855. X  if (mode != 0) {
  1856. X    printf("%c", CR);
  1857. X    sprintf(s, "sort -d -o %s %s", tmp, tmp);
  1858. X    system(s);
  1859. X    show(tmp, 9999, USER.more + 100);
  1860. X    if (mode == 1) {
  1861. X        printf("\n%s\n%s", POR19_MSG, POR20_MSG);
  1862. X    }
  1863. X  }
  1864. X  else{
  1865. X    show(tmp, 9999, USER.more);
  1866. X  }
  1867. X  if(mode == 0){
  1868. X    printf("\n\n%s %d %s %d %s", POR21_MSG, totalusr, POR22_MSG, totalact, POR23_MSG); 
  1869. X    printf("\n%s %d %s", POR24_MSG, totalgas, POR25_MSG);
  1870. X  }
  1871. X  printf("\n");
  1872. X  unlink(tmp);
  1873. X}
  1874. X
  1875. X
  1876. X
  1877. X
  1878. X/***************************************************************************/
  1879. X/*      FUNKTION  finger()                           */
  1880. X/*  BESCHREIBUNG  Informationen ueber einen Teilnehmer anzeigen.       */
  1881. X/*     PARAMETER  arg  =  User-Name/User-Id des Teilnehmers                */
  1882. X/*     RUECKGABE  keine                                                       */
  1883. X/***************************************************************************/
  1884. X
  1885. Xvoid finger(arg)
  1886. Xchar arg[];
  1887. X{
  1888. X  int fd;
  1889. X  struct userdaten DUMMY, LOOSER;
  1890. X  char s[STRING];
  1891. X  char t[STRING];
  1892. X  long ll = -1L;
  1893. X  size_t dummy = sizeof(DUMMY);
  1894. X  char c;
  1895. X  char ex[LONGSTRING];
  1896. X  int i, ok, a, b;
  1897. X  int uid = -1;
  1898. X  char name[STRING];
  1899. X  char domain[STRING];      
  1900. X
  1901. X
  1902. X  FILE *fp;
  1903. X
  1904. X  
  1905. X  if ((arg[0] > 47) && (arg[0] < 58)) {
  1906. X    uid = atoi(arg);
  1907. X  }
  1908. X  else{
  1909. X    a = 0; b = 0;
  1910. X    i = 0;
  1911. X    while(arg[i] != '\0'){    
  1912. X        if(arg[i] == '!') a = i;
  1913. X        if(arg[i] == '@') b = i;
  1914. X        i++;
  1915. X    }
  1916. X    if((a != 0) && (b == 0)){
  1917. X        if(a != 0){
  1918. X            strcpy(name, (char *) strcopy(arg, (a+1), length(arg)));
  1919. X            strcpy(domain, (char *) strcopy(arg, 0, (a-1)));
  1920. X        }
  1921. X        else{
  1922. X            strcpy(name, (char *) strcopy(arg, 0, (b-1)));
  1923. X            strcpy(domain, (char *) strcopy(arg, (b+1), length(arg)));
  1924. X        }
  1925. X        strcpy(t, USER.name);
  1926. X        i = 0;
  1927. X        while(t[i] != '\0'){
  1928. X            if(t[i] == ' ') t[i] = '.';
  1929. X            i++;
  1930. X        }
  1931. X        chdir( "/" );
  1932. X        sprintf(s, "%s %s!%s!\"finger %s\" \\| mail %s@%s", UUX, SMARTHOST, domain, name, t, UUCPID);
  1933. X        /*
  1934. X        printf("\n\n%s\n\n", s);
  1935. X        */
  1936. X        system( s );
  1937. X        chdir( HOME );
  1938. X        printf("\n\n%s \"%s\",\n%s \"%s\" %s.", POR25aMSG, name, POR25bMSG, domain, POR25cMSG);
  1939. X        ansi( "md" );
  1940. X        printf("\n%s\n", POR26_MSG);
  1941. X        ansi( "me" );
  1942. X        return;
  1943. X    }
  1944. X    else{
  1945. X        if(b != 0){
  1946. X            ansi( "md" );
  1947. X            printf(" <- Unzulaessige DOMAIN-Adresse!\n\n");
  1948. X            ansi( "me" );
  1949. X            return;
  1950. X        }
  1951. X    }
  1952. X  }
  1953. X
  1954. X  maybe_locked(UDBASE, "r"); lockf(UDBASE);
  1955. X  fd = open(UDBASE, O_RDONLY);
  1956. X  if (fd == -1) {
  1957. X    nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  1958. X  }
  1959. X  while (read(fd, &DUMMY, dummy) == dummy) {
  1960. X    if (uid == DUMMY.id) {
  1961. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  1962. X    } 
  1963. X    else{
  1964. X        if ((strcomp(arg, DUMMY.name) == 0) ||
  1965. X            (strcomp(arg, DUMMY.nick) == 0) ||
  1966. X            (strcomp(arg, DUMMY.sh_name) == 0)) {
  1967. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  1968. X        }
  1969. X    }
  1970. X  }
  1971. X  lseek(fd, ll, SEEK_SET);
  1972. X  read(fd, &LOOSER, sizeof(LOOSER));
  1973. X  close(fd);
  1974. X  unlockf(UDBASE);
  1975. X
  1976. X  if (ll == -1L) {
  1977. X    ansi( "md" );
  1978. X    printf(" <- %s\n\n", POR27_MSG);
  1979. X    ansi( "me" );
  1980. X    return;
  1981. X  }
  1982. X
  1983. X  sprintf(s, " %s: %s ", POR28_MSG, arg);
  1984. X  headline( s );
  1985. X
  1986. X  ansi( "md" );
  1987. X  printf("\n%s ", POR29_MSG);
  1988. X  ansi( "me" );
  1989. X  printf("%d\n", LOOSER.id);
  1990. X
  1991. X  ansi( "md" );
  1992. X  printf("%s ", POR30_MSG);
  1993. X  ansi( "me");
  1994. X  printf("%s\n", LOOSER.name);
  1995. X
  1996. X  if(LOOSER.sh_name[0] != '\0'){
  1997. X    ansi( "md" );
  1998. X    printf("%s ", POR31_MSG);
  1999. X    ansi( "me" );
  2000. X    printf("%s\n", LOOSER.sh_name);
  2001. X  }
  2002. X
  2003. X  if(LOOSER.nick[0] != '\0'){
  2004. X    ansi( "md" );
  2005. X      printf("%s ", POR32_MSG);
  2006. X    ansi( "me" );
  2007. X    printf("%s\n", LOOSER.nick);
  2008. X  }
  2009. X
  2010. X  ansi( "md" );
  2011. X  printf("%s ", POR33_MSG);
  2012. X  ansi( "me" );
  2013. X  strcpy(s, LOOSER.name);
  2014. X  i = 0;
  2015. X  while(s[i] != '\0'){
  2016. X    if(s[i] == ' ') s[i] = '.';
  2017. X    i++;
  2018. X  }
  2019. X  if(LOOSER.level >= WRITE_INTERNAT)
  2020. X    printf("%s@%s\n", s, UUCPID2);
  2021. X  else
  2022. X    printf("%s@%s\n", s, UUCPID1);
  2023. X
  2024. X  printf("\n"); ok = 0;
  2025. X
  2026. X  if(USER.level >= WRITE_EX_LEV){
  2027. X    if(LOOSER.wohnort[0] != '\0'){
  2028. X        ok++;
  2029. X        ansi( "md" );
  2030. X        printf("%s ", POR34_MSG);
  2031. X        ansi( "me" );
  2032. X        printf("%s\n", LOOSER.wohnort);
  2033. X    }
  2034. X  }
  2035. X
  2036. X  if(USER.level >= ADMIN_LEV){
  2037. X    if(LOOSER.strasse[0] != '\0'){
  2038. X        ok++;
  2039. X        ansi( "md" );
  2040. X        printf("%s ", POR35_MSG);
  2041. X        ansi( "me" );
  2042. X        printf("%s\n", LOOSER.strasse);
  2043. X    }
  2044. X    if(LOOSER.telefon1[0] != '\0'){
  2045. X        ok++;
  2046. X        ansi( "md" ); 
  2047. X        printf("%s ", POR36_MSG);
  2048. X        ansi( "me" );
  2049. X        printf("%s", LOOSER.telefon1);
  2050. X
  2051. X        if(LOOSER.telefon2[0] != '\0'){
  2052. X            printf(" // %s\n", LOOSER.telefon2);
  2053. X        }
  2054. X        else{
  2055. X            printf("\n");
  2056. X        }
  2057. X    }
  2058. X
  2059. X    if(ok != 0) printf("\n"); 
  2060. X    ok = 0;
  2061. X
  2062. X    if(LOOSER.geburtsdatum[0] != '\0'){
  2063. X        ok++;
  2064. X        ansi( "md" );
  2065. X        printf("%s ", POR37_MSG);
  2066. X        ansi( "me" );
  2067. X        printf("%s\n", LOOSER.geburtsdatum);
  2068. X    }
  2069. X  }
  2070. X
  2071. X  if(ok != 0) printf("\n");
  2072. X
  2073. X  if(USER.level >= WRITE_EX_LEV){
  2074. X    ansi( "md" );
  2075. X    printf("%s ", POR38_MSG);
  2076. X    ansi( "me" );
  2077. X    printf("%d\n", LOOSER.seq);
  2078. X      ansi( "md" );
  2079. X    printf("%s ", POR39_MSG);
  2080. X    ansi( "me" );
  2081. X    printf("%s // %s\n", LOOSER.lastlog, (char *) timereconv(LOOSER.lasttime));
  2082. X  }
  2083. X
  2084. X  ansi( "md" );
  2085. X  printf("%s ", POR45_MSG);
  2086. X  ansi( "me" );
  2087. X 
  2088. X  b = 0;
  2089. X  sprintf(s, "%s/usr/%d/INDEX", HOME, LOOSER.id);  
  2090. X    
  2091. X  fp = fopen(s, "r");
  2092. X  if (fp == NULL) {
  2093. X    nerror("intro.c", 291, "intro", "Datei-Lesefehler", s);
  2094. X  }
  2095. X  while (fgets(ex, 200, fp) != NULL){
  2096. X    if(ex[0] < 65) b++;
  2097. X  }
  2098. X  fclose(fp);
  2099. X  printf("%d\n", b-1);
  2100. X
  2101. X  if(USER.level >= ADMIN_LEV){
  2102. X    ansi( "md" );
  2103. X    printf("%s ", POR40_MSG);
  2104. X    ansi( "me" );
  2105. X    printf("%d:%02.2d", (LOOSER.elapsed/3600), (LOOSER.elapsed - (LOOSER.elapsed/3600 * 3600))/360);
  2106. X    printf(" %s\n", POR41_MSG);
  2107. X        ansi( "md" );
  2108. X        printf("%s ", POR41aMSG);
  2109. X        ansi( "me" );
  2110. X        printf("%s\n", LOOSER.account);
  2111. X    ansi( "md" );
  2112. X    printf("%s ", POR42_MSG);
  2113. X    ansi( "me" );
  2114. X    printf("%ld %s\n", LOOSER.upratio, POR43_MSG);
  2115. X    ansi( "md" );
  2116. X    printf("%s ", POR44_MSG);
  2117. X    ansi( "me" );
  2118. X    printf("%ld %s\n", LOOSER.downratio, POR43_MSG);
  2119. X  }
  2120. X
  2121. X  printf("\n");
  2122. X}
  2123. X
  2124. END_OF_FILE
  2125.   if test 14509 -ne `wc -c <'src/portinfo.c'`; then
  2126.     echo shar: \"'src/portinfo.c'\" unpacked with wrong size!
  2127.   fi
  2128.   # end of 'src/portinfo.c'
  2129. fi
  2130. echo shar: End of archive 6 \(of 10\).
  2131. cp /dev/null ark6isdone
  2132. MISSING=""
  2133. for I in 1 2 3 4 5 6 7 8 9 10 ; do
  2134.     if test ! -f ark${I}isdone ; then
  2135.     MISSING="${MISSING} ${I}"
  2136.     fi
  2137. done
  2138. if test "${MISSING}" = "" ; then
  2139.     echo You have unpacked all 10 archives.
  2140.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2141. else
  2142.     echo You still must unpack the following archives:
  2143.     echo "        " ${MISSING}
  2144. fi
  2145. exit 0
  2146. exit 0 # Just in case...
  2147.