home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume35 / mbox / part04 < prev    next >
Encoding:
Text File  |  1993-02-04  |  53.9 KB  |  2,052 lines
  1. Newsgroups: comp.sources.misc
  2. From: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  3. Subject: v35i039:  mbox - ix/Mbox, A BBS for UNIX and MINIX v1.6 PL10j7, Part04/15
  4. Message-ID: <1993Feb5.185618.10071@sparky.imd.sterling.com>
  5. X-Md4-Signature: 28f57e5bf6d17e354be10958482268e8
  6. Date: Fri, 5 Feb 1993 18:56:18 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Volker.Schuermann@unnet.w.open.de (Volker Schuermann)
  10. Posting-number: Volume 35, Issue 39
  11. Archive-name: mbox/part04
  12. Environment: MINIX, ISC, ESIX, SVR3
  13. Supersedes: mbox: Volume 31, Issue 16-27
  14.  
  15. #! /bin/sh
  16. # This is a shell archive.  Remove anything before this line, then feed it
  17. # into a shell via "sh file" or similar.  To overwrite existing files,
  18. # type "sh file -c".
  19. # Contents:  src/admin.c wendy/tools.c
  20. # Wrapped by kent@sparky on Fri Feb  5 12:18:05 1993
  21. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  22. echo If this archive is complete, you will see the following message:
  23. echo '          "shar: End of archive 4 (of 15)."'
  24. if test -f 'src/admin.c' -a "${1}" != "-c" ; then 
  25.   echo shar: Will not clobber existing file \"'src/admin.c'\"
  26. else
  27.   echo shar: Extracting \"'src/admin.c'\" \(26246 characters\)
  28.   sed "s/^X//" >'src/admin.c' <<'END_OF_FILE'
  29. X/***************************************************************************/
  30. X/*        PROGRAMM  ix/Mbox                           */
  31. X/*             DATEI  admin.c                           */
  32. X/*        FUNKTIONEN  user_aendern(), user_anzeigen(), user_loeschen(),    */
  33. X/*              setup_get(), wait_until_keypressed(), admin(),       */
  34. X/*              setup()                               */
  35. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  36. X/*  LETZTE AENDERUNG  29.08.1992                       */
  37. X/***************************************************************************/
  38. X
  39. X#include <sys/types.h>
  40. X#include <sys/stat.h>
  41. X#include <unistd.h>
  42. X#include <stdio.h>
  43. X#include <fcntl.h>
  44. X
  45. X#include "mbox.h"
  46. X
  47. Xvoid wait_until_keypressed();
  48. X
  49. X/***************************************************************************/
  50. X/*      FUNKTION  user_aendern                           */
  51. X/*  BESCHREIBUNG  Aendern ALLER Teilnehmerparameter (von ADMIN aus)        */
  52. X/*     PARAMETER  keine                                                       */
  53. X/*     RUECKGABE  keine                                                       */
  54. X/***************************************************************************/
  55. X
  56. Xvoid user_aendern()
  57. X{
  58. X  int fd;
  59. X  struct userdaten DUMMY, LOOSER;
  60. X  unsigned char s[STRING];
  61. X  unsigned char t[STRING];
  62. X  long ll = -1L;
  63. X  size_t dummy = sizeof(DUMMY);
  64. X  unsigned char c;
  65. X  int i;
  66. X  int uid = -1;
  67. X
  68. X  headline( ADM01_MSG );
  69. X
  70. X  printf("%s ", ADM02_MSG);
  71. X  strcpy(s, (unsigned char *) getline(30, 11, '.', ""));
  72. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  73. X
  74. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  75. X  fd = open(UDBASE, O_RDONLY);
  76. X  if(fd == -1){
  77. X    nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  78. X  }
  79. X  while(read(fd, (unsigned char *) &DUMMY, dummy) == dummy){
  80. X    if(uid == DUMMY.id){
  81. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  82. X    }
  83. X    else{
  84. X        if((strcomp(s, DUMMY.name) == 0) ||
  85. X           (strcomp(s, DUMMY.nick) == 0) ||
  86. X           (strcomp(s, DUMMY.sh_name) == 0)){
  87. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  88. X        }
  89. X    }
  90. X  }
  91. X  lseek(fd, ll, SEEK_SET);
  92. X  read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER));
  93. X  close(fd);
  94. X  mbunlock(UDBASE);
  95. X
  96. X  if(ll == -1L) return;
  97. X
  98. X  printf("%c%s %d                                               ", CR, ADM03_MSG, LOOSER.id);
  99. X
  100. X  printf("\n%s ", ADM04_MSG);
  101. X  strcpy(s, (unsigned char *) getline(30, 1011, '.', LOOSER.name));
  102. X  if (s[0] > 32) sprintf(LOOSER.name, s);
  103. X  if (s[0] == 32) LOOSER.name[0] = '\0';
  104. X
  105. X  printf("\n%s ", ADM05_MSG);
  106. X  strcpy(s, (unsigned char *) getline(10, 1011, '.', LOOSER.passwort));
  107. X  if (s[0] > 32) sprintf(LOOSER.passwort, s);
  108. X  if (s[0] == 32) LOOSER.passwort[0] = '\0';
  109. X
  110. X  printf("\n%s ", ADM06_MSG);
  111. X  strcpy(s, (unsigned char *) getline(14, 1011, '.', LOOSER.sh_name));
  112. X  if (s[0] > 32) sprintf(LOOSER.sh_name, s);
  113. X  if (s[0] == 32) LOOSER.sh_name[0] = '\0';
  114. X
  115. X  printf("\n%s ", ADM07_MSG);
  116. X  strcpy(s, (unsigned char *) getline(30, 1011, '.', LOOSER.nick));
  117. X  if (s[0] > 32) sprintf(LOOSER.nick, s);
  118. X  if (s[0] == 32) LOOSER.nick[0] = '\0';
  119. X
  120. X  printf("\n%s ", ADM08_MSG);
  121. X  strcpy(s, (unsigned char *) getline(30, 1011, '.', LOOSER.wohnort));
  122. X  if (s[0] > 31) sprintf(LOOSER.wohnort, s);
  123. X
  124. X  printf("\n%s ", ADM09_MSG);
  125. X  strcpy(s, (unsigned char *) getline(30, 1011, '.', LOOSER.strasse));
  126. X  if (s[0] > 31) sprintf(LOOSER.strasse, s);
  127. X
  128. X  printf("\n%s ", ADM10_MSG);
  129. X  strcpy(s, (unsigned char *) getline(20, 1011, '.', LOOSER.telefon1));
  130. X  if (s[0] > 31) sprintf(LOOSER.telefon1, s);
  131. X
  132. X  printf("\n%s ", ADM11_MSG);
  133. X  strcpy(s, (unsigned char *) getline(20, 1011, '.', LOOSER.telefon2));
  134. X  if (s[0] > 31) sprintf(LOOSER.telefon2, s);
  135. X
  136. X  printf("\n%s ", ADM12_MSG);
  137. X  strcpy(s, (unsigned char *) getline(10, 1114, '?', LOOSER.geburtsdatum));
  138. X  if (s[0] > 31) sprintf(LOOSER.geburtsdatum, s);
  139. X
  140. X  printf("\n%s ", ADM13_MSG);
  141. X  sprintf(t, "%d", LOOSER.terminal);
  142. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  143. X  if (s[0] > 31) LOOSER.terminal = atoi(s);
  144. X  if ((LOOSER.terminal < 1) || (LOOSER.terminal > 4)) LOOSER.terminal = 1;
  145. X
  146. X  printf("\n%s ", ADM14_MSG);
  147. X  sprintf(t, "%d", LOOSER.editor);
  148. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  149. X  if (s[0] > 31) LOOSER.editor = atoi(s);
  150. X  if ((LOOSER.editor < 1) || (LOOSER.editor > OFFERED_EDITORS)) LOOSER.editor = 1;
  151. X
  152. X  printf("\n%s ", ADM15_MSG);
  153. X  sprintf(t, "%d", LOOSER.level);
  154. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  155. X  if (s[0] > 31) LOOSER.level = atoi(s);
  156. X
  157. X  printf("\n%s ", ADM16_MSG);
  158. X  sprintf(t, "%d", LOOSER.more);
  159. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  160. X  if (s[0] > 31) LOOSER.more = atoi(s);
  161. X  if ((LOOSER.more < 0) || (LOOSER.more > 3)) LOOSER.more = 1;
  162. X
  163. X  printf("\n%s ", ADM17_MSG);
  164. X  sprintf(t, "%d", LOOSER.bell);
  165. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  166. X  if (s[0] > 31) LOOSER.bell = atoi(s);
  167. X  if ((LOOSER.bell < -1) || (LOOSER.bell > 1)) LOOSER.bell = 0;
  168. X
  169. X  printf("\n%s ", ADM18_MSG);
  170. X  sprintf(t, "%d", LOOSER.prompt);
  171. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  172. X  if (s[0] > 31) LOOSER.prompt = atoi(s);
  173. X  if ((LOOSER.prompt < 1) || (LOOSER.prompt > 3)) LOOSER.prompt = 2;
  174. X
  175. X  printf("\n%s ", ADM19_MSG);
  176. X  LOOSER.tlines += 2;
  177. X  sprintf(t, "%d", LOOSER.tlines);
  178. X  strcpy(s, (unsigned char *) getline(5, 1111, '.', t));
  179. X  if (s[0] > 31) LOOSER.tlines = atoi(s);
  180. X  LOOSER.tlines -= 2;
  181. X  if ((LOOSER.tlines < 22) || (LOOSER.tlines > 23)) LOOSER.tlines = DEF_MAX_SCR_LINES;
  182. X  
  183. X  printf("\n%s ", ADM20_MSG);
  184. X  strcpy(s, (unsigned char *) getline(10, 1114, '?', LOOSER.lastlog));
  185. X  if (s[0] > 31) sprintf(LOOSER.lastlog, s);
  186. X
  187. X  printf("\n%s ", ADM21_MSG);
  188. X  strcpy(t, (unsigned char *) timereconv((long) LOOSER.lasttime));
  189. X  t[5] = '\0';
  190. X  strcpy(s, (unsigned char *) getline(5, 1113, '?', t));
  191. X  LOOSER.lasttime = timeconv(s);
  192. X
  193. X  printf("\n%s ", ADM21aMSG);
  194. X  strcpy(s, (unsigned char *) ttyname(0));
  195. X  if(strcomp(PMS_TTY, s) == 0){
  196. X    strcpy(s, (unsigned char *) getline(17, 1011, '.', LOOSER.account));
  197. X    if (s[0] > 31) sprintf(LOOSER.account, s);
  198. X  }
  199. X  else{
  200. X    printf("%s", LOOSER.account);
  201. X  }
  202. X
  203. X  printf("\n%s ", ADM22_MSG);
  204. X  strcpy(s, (unsigned char *) getline(58, 1011, '.', LOOSER.newsgrps));
  205. X  if (s[0] > 31) sprintf(LOOSER.newsgrps, s);
  206. X
  207. X  printf("\n%s ", ADM23_MSG);
  208. X  sprintf(t, "%d", LOOSER.seq);
  209. X  strcpy(s, (unsigned char *) getline(10, 1111, '.', t));
  210. X  if (s[0] > 31) LOOSER.seq = atoi(s);
  211. X
  212. X  wait_until_keypressed();
  213. X
  214. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  215. X  fd = open(UDBASE, O_WRONLY);
  216. X  if (fd == -1) {
  217. X    nerror("admin.c", 428, "aendern", "Datei-Schreibfehler", UDBASE);
  218. X  }
  219. X  if (lseek(fd, ll, SEEK_SET) == -1) {
  220. X    nerror("admin.c", 431, "aendern", "Positionierungsfehler", UDBASE);
  221. X  }
  222. X  write(fd, (unsigned char *) &LOOSER, sizeof(LOOSER));
  223. X  close(fd);
  224. X  mbunlock(UDBASE);
  225. X
  226. X  if (LOOSER.id == USER.id) {    /* Ich bin's !!! */
  227. X
  228. X    maybe_locked(UDBASE, "r");
  229. X    mblock(UDBASE);
  230. X    fd = open(UDBASE, O_RDONLY);
  231. X    if (fd == -1) {
  232. X        nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  233. X    }
  234. X    lseek(fd, ll, SEEK_SET);
  235. X    read(fd, (unsigned char *) &USER, sizeof(USER));
  236. X    close(fd);
  237. X    mbunlock(UDBASE);
  238. X  }
  239. X}
  240. X
  241. X
  242. X
  243. X/***************************************************************************/
  244. X/*      FUNKTION  user_anzeigen()                       */
  245. X/*  BESCHREIBUNG  ALLE Teilnehmerdaten anzeigen (von ADMIN aus)           */
  246. X/*     PARAMETER  keine                                                       */
  247. X/*     RUECKGABE  keine                                                       */
  248. X/***************************************************************************/
  249. X
  250. Xvoid user_anzeigen()
  251. X{
  252. X  int fd;
  253. X  struct userdaten DUMMY, LOOSER;
  254. X  unsigned char s[STRING];
  255. X  unsigned char t[STRING];
  256. X  long ll = -1L;
  257. X  size_t dummy = sizeof(DUMMY);
  258. X  unsigned char c;
  259. X  int i;
  260. X  int uid = -1;
  261. X
  262. X
  263. X  headline( ADM01_MSG );
  264. X
  265. X  printf("%s ", ADM02_MSG);
  266. X  strcpy(s, (unsigned char *) getline(30, 11, '.', ""));
  267. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  268. X
  269. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  270. X  fd = open(UDBASE, O_RDONLY);
  271. X  if (fd == -1) {
  272. X    nerror("admin.c", 324, "aendern", "Datei-Lesefehler", UDBASE);
  273. X  }
  274. X  while (read(fd, (unsigned char *) &DUMMY, dummy) == dummy) {
  275. X    if (uid == DUMMY.id) {
  276. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  277. X    } 
  278. X    else{
  279. X        if ((strcomp(s, DUMMY.name) == 0) ||
  280. X            (strcomp(s, DUMMY.nick) == 0) ||
  281. X            (strcomp(s, DUMMY.sh_name) == 0)) {
  282. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  283. X        }
  284. X    }
  285. X  }
  286. X  lseek(fd, ll, SEEK_SET);
  287. X  read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER));
  288. X  close(fd);
  289. X  mbunlock(UDBASE);
  290. X
  291. X  if (ll == -1L) return;
  292. X
  293. X  printf("%c  %s %d                                               ", CR, ADM03_MSG, LOOSER.id);
  294. X  printf("\n  %s %s",   ADM04_MSG, LOOSER.name);
  295. X  printf("\n  %s %s",   ADM05_MSG, LOOSER.passwort);
  296. X  printf("\n  %s %s",   ADM06_MSG, LOOSER.sh_name);
  297. X  printf("\n  %s %s",   ADM07_MSG, LOOSER.nick);
  298. X  printf("\n  %s %s",   ADM08_MSG, LOOSER.wohnort);
  299. X  printf("\n  %s %s",   ADM09_MSG, LOOSER.strasse);
  300. X  printf("\n  %s %s",   ADM10_MSG, LOOSER.telefon1);
  301. X  printf("\n  %s %s",   ADM11_MSG, LOOSER.telefon2);
  302. X  printf("\n  %s %s",   ADM12_MSG, LOOSER.geburtsdatum);
  303. X  printf("\n  %s %d",   ADM13_MSG, LOOSER.terminal);
  304. X  printf("\n  %s %d",   ADM14_MSG, LOOSER.editor);
  305. X  printf("\n  %s %d",   ADM15_MSG, LOOSER.level);
  306. X  printf("\n  %s %d",   ADM16_MSG, LOOSER.more);
  307. X  printf("\n  %s %d",   ADM17_MSG, LOOSER.bell);
  308. X  printf("\n  %s %d",   ADM18_MSG, LOOSER.prompt);
  309. X  printf("\n  %s %d",   ADM19_MSG, LOOSER.tlines += 2);
  310. X  printf("\n  %s %s",   ADM20_MSG, LOOSER.lastlog);
  311. X  printf("\n  %s %.5s", ADM21_MSG, (unsigned char *) timereconv((long) LOOSER.lasttime));
  312. X  printf("\n  %s %s",   ADM21aMSG, LOOSER.account);
  313. X  printf("\n  %s %s",   ADM22_MSG, LOOSER.newsgrps);
  314. X  printf("\n  %s %d",   ADM23_MSG, LOOSER.seq);
  315. X
  316. X  wait_until_keypressed();
  317. X}
  318. X
  319. X
  320. X
  321. X/***************************************************************************/
  322. X/*      FUNKTION  user_loeschen()                       */
  323. X/*  BESCHREIBUNG  Einen Teilnehmer einsch. persoenlicher Post etc. aus       */
  324. X/*          dem System entfernen.                                    */
  325. X/*     PARAMETER  keine                                                       */
  326. X/*     RUECKGABE  keine                                                       */
  327. X/***************************************************************************/
  328. X
  329. Xvoid user_loeschen()
  330. X{
  331. X  int fd;
  332. X  int gd;
  333. X  struct userdaten DUMMY, LOOSER;
  334. X  unsigned char s[STRING];
  335. X  unsigned char t[STRING];
  336. X  long ll = -1L;
  337. X  size_t dummy = sizeof(DUMMY);
  338. X  unsigned char c;
  339. X  int i;
  340. X  int uid = -1;
  341. X
  342. X
  343. X  headline( ADM25_MSG );
  344. X    
  345. X  printf("\n%s ", ADM02_MSG);
  346. X  strcpy(s, (unsigned char *) getline(30, 11, '.', ""));
  347. X  if ((s[0] > 47) && (s[0] < 58)) uid = atoi(s);
  348. X
  349. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  350. X  fd = open(UDBASE, O_RDONLY);
  351. X  if (fd == -1) {
  352. X    nerror("admin.c", 459, "loeschen", "Datei-Lesefehler", UDBASE);
  353. X  }
  354. X  while (read(fd, (unsigned char *) &DUMMY, dummy) == dummy) {
  355. X    if (uid == DUMMY.id) {
  356. X        ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  357. X    }
  358. X    else{
  359. X        if ((strcomp(s, DUMMY.name) == 0) ||
  360. X            (strcomp(s, DUMMY.nick) == 0) ||
  361. X            (strcomp(s, DUMMY.sh_name) == 0)) {
  362. X            ll = lseek(fd, 0L, SEEK_CUR) - dummy;
  363. X        }
  364. X    }
  365. X  }
  366. X  lseek(fd, ll, SEEK_SET);
  367. X  read(fd, (unsigned char *) &LOOSER, sizeof(LOOSER));
  368. X  close(fd);
  369. X  mbunlock(UDBASE);
  370. X
  371. X  if (ll == -1L) return;
  372. X
  373. X  printf("%c%s (%d)                                     ", CR, ADM26_MSG, LOOSER.id);
  374. X  printf("\n%s (%s) ", ADM27_MSG, LOOSER.name);
  375. X
  376. X  ansi("md");
  377. X  printf("\n\n%s [%c, %c] ? > ", ADM28_MSG, GBL06_MSG, GBL07_MSG);
  378. X  ansi("me");
  379. X
  380. X  c = yesno();
  381. X
  382. X  if (c != GBL06_MSG) return;
  383. X
  384. X  maybe_locked(UDBASE, "r"); mblock(UDBASE);
  385. X  fd = open(UDBASE, O_RDONLY);
  386. X  if (fd == -1) {
  387. X    nerror("admin.c", 490, "loeschen", "Datei-Lesefehler", UDBASE);
  388. X  }
  389. X  sprintf(s, "%s/%dbase", TMP, getpid());
  390. X
  391. X  gd = open(s, O_WRONLY | O_CREAT);
  392. X  if (gd == -1) {
  393. X    nerror("admin.c", 497, "loeschen", "Datei-Erstellungsfehler", s);
  394. X  }
  395. X  while (read(fd, (unsigned char *) &DUMMY, dummy) == dummy) {
  396. X    if (DUMMY.id != LOOSER.id) {
  397. X        write(gd, (unsigned char *) &DUMMY, dummy);
  398. X    }
  399. X  }
  400. X  close(gd);
  401. X  close(fd);
  402. X  mbunlock(UDBASE);
  403. X
  404. X  sprintf(t, "cp %s %s", s, UDBASE);
  405. X  system(t);
  406. X
  407. X  unlink(s);
  408. X
  409. X  sprintf(s, "rm -r %s/usr/%d", HOME, LOOSER.id);
  410. X  system(s);
  411. X}
  412. X
  413. X
  414. X
  415. X
  416. X/***************************************************************************/
  417. X/*      FUNKTION  setup_get()                           */
  418. X/*  BESCHREIBUNG  Die Ziffern 1-max einlesen und zurueckgeben.           */
  419. X/*     PARAMETER  max  =  groesste, zulaessige Ziffer                   */
  420. X/*     RUECKGABE  erfasste Ziffer (CHAR !!!)                   */
  421. X/***************************************************************************/
  422. X
  423. Xint setup_get(max)
  424. Xunsigned char max;
  425. X{
  426. X  unsigned char c;
  427. X
  428. X  ansi("md");
  429. X  printf("\n[1-%c] %s > ", max, ADM29_MSG);
  430. X  ansi("me");
  431. X
  432. X  do {
  433. X    c = getint();
  434. X    if ((c < '0') || (c > max)) c = 0;
  435. X  } while (c == 0);
  436. X  printf("%c", c);
  437. X
  438. X  return c;
  439. X}
  440. X
  441. X
  442. X
  443. X
  444. X/***************************************************************************/
  445. X/*      FUNKTION  wait_until_keypressed                       */
  446. X/*  BESCHREIBUNG  siehe FUNKTION                       */
  447. X/*     PARAMETER  keine                                                       */
  448. X/*     RUECKGABE  keine                                                       */
  449. X/***************************************************************************/
  450. X
  451. Xvoid wait_until_keypressed()
  452. X{
  453. X  unsigned char c;
  454. X
  455. X  ansi("md");
  456. X  printf("\n\n%s > ", ADM30_MSG);
  457. X  ansi("me");
  458. X 
  459. X  c = getint();
  460. X}
  461. X
  462. X
  463. X
  464. X
  465. X/***************************************************************************/
  466. X/*      FUNKTION  admin()                           */
  467. X/*  BESCHREIBUNG  Teilnehmerverwaltung fuer den Administrator/Sysop.       */
  468. X/*     PARAMETER  keine                                                       */
  469. X/*     RUECKGABE  keine                                                       */
  470. X/***************************************************************************/
  471. X
  472. Xvoid admin()
  473. X{
  474. X  unsigned char c;
  475. X
  476. XAGAIN:
  477. X
  478. X  headline( ADM31_MSG );
  479. X
  480. X  printf(  "\n  1 - %s", ADM32_MSG);
  481. X  printf("\n\n  2 - %s", ADM33_MSG);
  482. X  printf("\n\n  3 - %s", ADM34_MSG);
  483. X  printf("\n\n  4 - %s", ADM35_MSG);
  484. X  printf("\n\n  5 - %s", ADM36_MSG);
  485. X
  486. X  printf("\n");
  487. X  printf("\n\n  8 - %s", ADM37_MSG);
  488. X
  489. X  MEDIUM: printf("\n");
  490. X
  491. X  c = setup_get('8');
  492. X
  493. X  switch (c) {
  494. X      case '1':    
  495. X        postfach("*");
  496. X        logout();
  497. X        intro();
  498. X        break;
  499. X
  500. X      case '2':    
  501. X        user_aendern();
  502. X        break;
  503. X
  504. X      case '3':    
  505. X        user_loeschen();
  506. X        break;
  507. X
  508. X      case '4':    
  509. X        user_anzeigen();
  510. X        break;
  511. X
  512. X      case '5':
  513. X        userliste("");
  514. X        wait_until_keypressed();
  515. X        break;
  516. X
  517. X       default:
  518. X        printf("\n");
  519. X        return;
  520. X  }
  521. X  goto AGAIN;
  522. X
  523. X}
  524. X
  525. X
  526. X
  527. X
  528. X/***************************************************************************/
  529. X/*      FUNKTION  setup()                           */
  530. X/*  BESCHREIBUNG  Teilnehmerdaten/Parameter aendern (fuer die User)        */
  531. X/*     PARAMETER  keine                                                       */
  532. X/*     RUECKGABE  keine                                                       */
  533. X/***************************************************************************/
  534. X
  535. Xvoid setup()
  536. X{
  537. X  FILE *fp;
  538. X  int fd;
  539. X  unsigned char s[STRING];
  540. X  unsigned char t[STRING];
  541. X  unsigned char c;
  542. X  int i;
  543. X  int ok = 0;
  544. X  long ll;
  545. X  struct userdaten DUMMY;
  546. X  int dummy = sizeof(DUMMY);
  547. X  unsigned char *BLANKS = "                                               ";
  548. X
  549. X
  550. X  AGAIN:
  551. X
  552. X  headline( ADM38_MSG );
  553. X  printf("\n");
  554. X
  555. X  printf("  1 - %s\n\n", ADM39_MSG);
  556. X  printf("  2 - %s\n\n", ADM40_MSG);
  557. X  printf("  3 - %s\n\n", ADM41_MSG);
  558. X  printf("  4 - %s\n\n", ADM42_MSG);
  559. X  printf("  5 - %s\n\n", ADM43_MSG);
  560. X  printf("  6 - %s\n\n", ADM44_MSG);
  561. X  printf("  7 - %s\n\n", ADM45_MSG);
  562. X  printf("  8 - %s\n\n", ADM46_MSG);
  563. X  printf("\n");
  564. X  printf("  9 - %s\n\n", ADM47_MSG);
  565. X
  566. X  c = setup_get('9');
  567. X
  568. X  switch (c) {
  569. X      case '1':
  570. X        headline( ADM48_MSG );
  571. X        printf("\n");
  572. X        if (USER.terminal == 1)
  573. X            printf("*");
  574. X        else
  575. X            printf(" ");
  576. X        printf(" 1 - ANSI (X3.64 ... PC-BBS-ANSI)\n\n");
  577. X        if (USER.terminal == 2)
  578. X            printf("*");
  579. X        else
  580. X            printf(" ");
  581. X        printf(" 2 - VT100\n\n");
  582. X        if (USER.terminal == 3)
  583. X            printf("*");
  584. X        else
  585. X            printf(" ");
  586. X        printf(" 3 - VT52\n\n");
  587. X        if (USER.terminal == 4)
  588. X            printf("*");
  589. X        else
  590. X            printf(" ");
  591. X        printf(" 4 - Dump (%s)\n\n", ADM49_MSG);
  592. X        if (USER.terminal == 5)
  593. X            printf("*");
  594. X        else
  595. X            printf(" ");
  596. X        printf(" 5 - COLOR-ANSI (X3.64 & ISO 6429)\n\n");
  597. X        USER.terminal = setup_get('5') - 48;
  598. X        
  599. X        break;
  600. X
  601. X      case '2':
  602. X        headline( ADM50_MSG );
  603. X        printf("\n");
  604. X        fp = fopen(EDITORS, "r");
  605. X        if (fp == NULL) {
  606. X            nerror("admin.c", 563, "setup", "Datei-Lesefehler", EDITORS);
  607. X        }
  608. X        i = 0;
  609. X        while((fgets(s, 80, fp) != NULL) && (s[0] == '/'));
  610. X        while (fscanf(fp, "%s %s", s, t) > 0) {
  611. X            i++;
  612. X            if (USER.editor == i)
  613. X                printf("*");
  614. X            else
  615. X                printf(" ");
  616. X            printf(" %d - %s\n\n", i, s);
  617. X        }
  618. X        fclose(fp);
  619. X        USER.editor = setup_get((i + 48)) - 48;
  620. X    
  621. X        if ((USER.level < WRITE_INTERNAT) && (USER.editor > 2)) 
  622. X            USER.editor = 2;
  623. X        break;
  624. X
  625. X      case '3':
  626. X        headline( ADM51_MSG );
  627. X        printf("\n");
  628. X        strcpy(s, (unsigned char *) mytime(0));
  629. X        if ((USER.prompt == 1) && (USER.bell == 1))
  630. X            printf("*");
  631. X        else
  632. X            printf(" ");
  633. X        printf(" 1 - %s->     \"[%s] %s > \"\n\n", ADM52_MSG, s, LOP06_MSG);
  634. X        if ((USER.prompt == 1) && (USER.bell == 0))
  635. X            printf("*");             
  636. X        else
  637. X            printf(" ");
  638. X        printf(" 2 - %s->     \"[%s] %s > \"\n\n", ADM53_MSG, s, LOP06_MSG);
  639. X        if ((USER.prompt == 2) && (USER.bell == 1))
  640. X            printf("*");
  641. X        else
  642. X            printf(" ");
  643. X        printf(" 3 - %s->     \"[%s] %s > \"\n\n", ADM54_MSG, NG, LOP06_MSG);
  644. X        if ((USER.prompt == 2) && (USER.bell == 0))
  645. X            printf("*");
  646. X        else
  647. X            printf(" ");
  648. X        printf(" 4 - %s->     \"[%s] %s > \"\n\n", ADM55_MSG, NG, LOP06_MSG);
  649. X        if ((USER.prompt == 3) && (USER.bell == 1))
  650. X            printf("*");
  651. X        else
  652. X            printf(" ");
  653. X        printf(" 5 - %s->     \"[(Sec.) NZ, RZ, WZ] %s > \"\n\n", ADM56_MSG, LOP06_MSG);
  654. X        if ((USER.prompt == 3) && (USER.bell == 0))
  655. X            printf("*");
  656. X        else
  657. X            printf(" ");
  658. X        printf(" 6 - %s->     \"[(Sec.) NZ, RZ, WZ] %s > \"\n\n", ADM57_MSG, LOP06_MSG);
  659. X    
  660. X        c = setup_get('6');
  661. X        switch (c) {
  662. X                case '1':
  663. X                    USER.prompt = 1;
  664. X                    USER.bell = 1;
  665. X                    break;
  666. X                case '2':
  667. X                    USER.prompt = 1;
  668. X                    USER.bell = 0;
  669. X                    break;
  670. X                case '3':
  671. X                    USER.prompt = 2;
  672. X                    USER.bell = 1;
  673. X                    break;
  674. X                case '4':
  675. X                    USER.prompt = 2;
  676. X                    USER.bell = 0;
  677. X                    break;
  678. X                case '5':
  679. X                    USER.prompt = 3;
  680. X                    USER.bell = 1;
  681. X                    break;
  682. X                case '6':
  683. X                    USER.prompt = 3;
  684. X                    USER.bell = 0;
  685. X                    break;
  686. X        }
  687. X        break;
  688. X
  689. X      case '4':
  690. X        headline( ADM58_MSG );
  691. X        printf("\n");
  692. X        if (USER.more == 0)
  693. X            printf("*");
  694. X        else
  695. X            printf(" ");
  696. X        printf(" 1 - %s\n\n", ADM59_MSG);
  697. X        if (USER.more == 1)
  698. X            printf("*");
  699. X        else
  700. X            printf(" ");
  701. X        printf(" 2 - %s\n\n", ADM60_MSG);
  702. X        if (USER.more == 3)
  703. X            printf("*");
  704. X        else
  705. X            printf(" ");
  706. X        printf(" 3 - %s\n\n", ADM61_MSG);
  707. X        printf("\n");
  708. X        printf("  4 - %s\n\n", ADM62_MSG);
  709. X        printf("  5 - %s\n\n", ADM63_MSG);
  710. X        printf("  6 - %s\n\n", ADM64_MSG);        
  711. X        printf("  7 - %s\n\n", ADM64aMSG);
  712. X        printf("  8 - %s\n\n", ADM64bMSG);
  713. X
  714. X        i = setup_get('8') - 49;
  715. X
  716. X        if (i < 3) {
  717. X            USER.more = i;
  718. X            if (USER.more == 2) USER.more++;
  719. X        }
  720. X        else {
  721. X            headline( ADM58_MSG );
  722. X            printf("\n");
  723. X            
  724. X            if (i == 3) {
  725. X                if (USER.leserichtung == 1)
  726. X                    printf("*");
  727. X                else
  728. X                    printf(" ");
  729. X                printf(" 1 - %s\n\n", ADM65_MSG);
  730. X                if (USER.leserichtung == 2)
  731. X                    printf("*");
  732. X                else
  733. X                    printf(" ");
  734. X                printf(" 2 - %s\n\n", ADM66_MSG);
  735. X        
  736. X                USER.leserichtung = setup_get('2') - 48;
  737. X            }
  738. X            if (i == 4) {
  739. X                if (USER.tlines == 22)
  740. X                    printf("*");
  741. X                else
  742. X                    printf(" ");
  743. X                printf(" 1 - %s\n\n", ADM67_MSG);
  744. X                if (USER.tlines == 23)
  745. X                    printf("*");
  746. X                else
  747. X                    printf(" ");
  748. X                printf(" 2 - %s\n\n", ADM68_MSG);
  749. X                if (USER.tlines == 43)
  750. X                    printf("*");
  751. X                else
  752. X                    printf(" ");
  753. X                printf(" 3 - %s\n\n", ADM68aMSG);
  754. X
  755. X                USER.tlines = setup_get('3') - 48 + 21;
  756. X                if(USER.tlines == 24) USER.tlines = 43; /* 45 Zeilen !! */    
  757. X            }
  758. X            if (i == 5) {
  759. X                if (USER.schluessel[0] != 32)
  760. X                    printf("*");
  761. X                else
  762. X                    printf(" ");
  763. X                printf(" 1 - %s\n\n", ADM69_MSG);
  764. X                if (USER.schluessel[0] == 32)
  765. X                    printf("*");
  766. X                else
  767. X                    printf(" ");
  768. X                printf(" 2 - %s\n\n", ADM70_MSG);
  769. X        
  770. X                i = setup_get('2') - 48;
  771. X                if (i == 2){
  772. X                    USER.schluessel[0] = 32;
  773. X                }                
  774. X                else{
  775. X                    USER.schluessel[0] = 1;
  776. X                }
  777. X            }
  778. X            if (i == 6) {
  779. X                if (USER.schluessel[1] == 2)
  780. X                    printf("*");
  781. X                else
  782. X                    printf(" ");
  783. X                printf(" 1 - %s\n\n", ADM70aMSG);
  784. X                if (USER.schluessel[1] == 3)
  785. X                    printf("*");
  786. X                else
  787. X                    printf(" ");
  788. X                printf(" 2 - %s\n\n", ADM70bMSG);
  789. X        
  790. X                if (USER.schluessel[1] == 4)
  791. X                    printf("*");
  792. X                else
  793. X                    printf(" ");
  794. X                printf(" 3 - %s\n\n", ADM70cMSG);
  795. X    
  796. X                i = setup_get('3') - 48;
  797. X                USER.schluessel[1] = i + 1;
  798. X            }
  799. X            if (i == 7) {
  800. X                if (USER.schluessel[2] == 1)
  801. X                    printf("*");
  802. X                else
  803. X                    printf(" ");
  804. X                printf(" 1 - %s\n\n", ADM70dMSG);
  805. X                if (USER.schluessel[2] == 2)
  806. X                    printf("*");
  807. X                else
  808. X                    printf(" ");
  809. X                printf(" 2 - %s\n\n", ADM70eMSG);
  810. X                if (USER.schluessel[2] == 3)
  811. X                    printf("*");
  812. X                else
  813. X                    printf(" ");
  814. X                printf(" 3 - %s\n\n", ADM70fMSG);
  815. X                if (USER.schluessel[2] == 4)
  816. X                    printf("*");
  817. X                else
  818. X                    printf(" ");
  819. X                printf(" 4 - %s\n\n", ADM70gMSG);
  820. X
  821. X                i = setup_get('4') - 48;
  822. X                USER.schluessel[2] = i;
  823. X            }
  824. X        }
  825. X        break;
  826. X
  827. X    case '5':
  828. X        if (strcomp(GUEST, USER.name) == 0) break;
  829. X
  830. X        headline( ADM71_MSG );
  831. X        printf("\n");
  832. X
  833. X        ansi("md");
  834. X        printf("%s\n", ADM72_MSG);
  835. X        printf("%s\n", ADM73_MSG);
  836. X        printf("%s\n", ADM74_MSG);
  837. X        printf("\n");
  838. X        printf("%s\n", ADM75_MSG);
  839. X        printf("%s\n", ADM76_MSG);
  840. X        ansi("me");
  841. X
  842. X        maybe_locked(UDBASE, "r"); 
  843. X            fd = open(UDBASE, O_RDONLY);
  844. X        if (fd == -1) {
  845. X            nerror("admin.c", 747, "setup", "Datei-Lesefehler", UDBASE);
  846. X        }    
  847. X
  848. X        printf("\n%s ", ADM04_MSG);
  849. X        strcpy(s, (unsigned char *) getline(30, 1015, '.', USER.name));
  850. X        if(strcomp(GUEST, s) != 0){
  851. X            if (s[0] > 31){
  852. X                ok = 0;
  853. X                lseek(fd, 0L, SEEK_SET);
  854. X                while ((read(fd, (unsigned char *) &DUMMY, sizeof(DUMMY)) == sizeof(DUMMY)) && (ok == 0)) {
  855. X                    if (strcomp(s, DUMMY.name)    == 0) ok = 1;
  856. X                    if (strcomp(s, DUMMY.nick)    == 0) ok = 1;
  857. X                    if (strcomp(s, DUMMY.sh_name) == 0) ok = 1;
  858. X                }
  859. X                if(USER.level < ADMIN_LEV){
  860. X                    if ((strcomp("SYSOP", s) == 0) ||
  861. X                        (strcomp("POST",  s) == 0) ||
  862. X                        (strcomp("GAST",  s) == 0) ||
  863. X                        (strcomp("ADMIN", s) == 0) ||
  864. X                        (strcomp("COSYS", s) == 0)) ok++;
  865. X                }
  866. X
  867. X                if(ok == 0) sprintf(USER.name, s);
  868. X            }
  869. X        }
  870. X
  871. X        printf("\n%s ", ADM07_MSG);
  872. X        strcpy(s, (unsigned char *) getline(30, 1015, '.', USER.nick));
  873. X        if (s[0] > 31){    
  874. X            ok = 0;
  875. X            lseek(fd, 0L, SEEK_SET);
  876. X            while ((read(fd, (unsigned char *) &DUMMY, sizeof(DUMMY)) == sizeof(DUMMY)) && (ok == 0)) {
  877. X                if (strcomp(s, DUMMY.name)    == 0) ok = 1;
  878. X                if (strcomp(s, DUMMY.nick)    == 0) ok = 1;
  879. X                if (strcomp(s, DUMMY.sh_name) == 0) ok = 1;
  880. X            }
  881. X            if (USER.level < ADMIN_LEV){
  882. X                if ((strcomp("SYSOP", s) == 0) ||
  883. X                    (strcomp("POST",  s) == 0) ||
  884. X                    (strcomp("GAST",  s) == 0) ||
  885. X                    (strcomp("ADMIN", s) == 0) ||
  886. X                    (strcomp("COSYS", s) == 0)) ok++;
  887. X            }
  888. X
  889. X            if(ok == 0) sprintf(USER.nick, s);
  890. X        }
  891. X
  892. X        close(fd);
  893. X        mbunlock(UDBASE);
  894. X
  895. X        printf("\n%s ", ADM08_MSG);
  896. X        strcpy(s, (unsigned char *) getline(30, 1011, '.', USER.wohnort));
  897. X        if (s[0] > 31) sprintf(USER.wohnort, s);
  898. X
  899. X        printf("\n%s ", ADM09_MSG);
  900. X        strcpy(s, (unsigned char *) getline(30, 1011, '.', USER.strasse));
  901. X        if (s[0] > 31) sprintf(USER.strasse, s);
  902. X
  903. X        printf("\n%s ", ADM10_MSG);
  904. X        strcpy(s, (unsigned char *) getline(20, 1011, '.', USER.telefon1));
  905. X        if (s[0] > 31) sprintf(USER.telefon1, s);
  906. X
  907. X        printf("\n%s ", ADM11_MSG);
  908. X        strcpy(s, (unsigned char *) getline(20, 1011, '.', USER.telefon2));
  909. X        if (s[0] > 31) sprintf(USER.telefon2, s);
  910. X
  911. X        printf("\n%s ", ADM12_MSG);
  912. X        strcpy(s, (unsigned char *) getline(10, 1114, '?', USER.geburtsdatum));
  913. X        if (s[0] > 31) sprintf(USER.geburtsdatum, s);
  914. X
  915. X        break;
  916. X
  917. X
  918. X      case '6':
  919. X        if (strcomp(GUEST, USER.name) == 0) break;
  920. X
  921. X        headline( ADM77_MSG );
  922. X        
  923. X        NIX: printf("\n%s ", ADM78_MSG);
  924. X    
  925. X        strcpy(s, (unsigned char *) getline(10, 12, '.', ""));
  926. X        if (s[0] != '\0') {
  927. X            strcpy(USER.passwort, (unsigned char *) crypted(s));
  928. X            printf(" (%s)", USER.passwort);
  929. X        }
  930. X        if (length(USER.passwort) < 5) {
  931. X            ansi("md");
  932. X            printf("\n\n%s\n", ADM79_MSG);
  933. X            ansi("me");
  934. X            goto NIX;
  935. X        }
  936. X        printf("\n\n%s ", ADM80_MSG);
  937. X        strcpy(s, (unsigned char *) getline(10, 12, '.', ""));
  938. X        strcpy(t, (unsigned char *) crypted(s));
  939. X        printf(" (%s)", t);
  940. X        if ((strcomp(t, USER.passwort) != 0) || (strcomp(USER.passwort, t) != 0)) {
  941. X            ansi("md");
  942. X            printf(" %s         \n", ADM81_MSG);
  943. X            ansi("me");
  944. X            goto NIX;
  945. X        }
  946. X        break;
  947. X
  948. X    case '7':
  949. X        headline( ADM82_MSG );
  950. X        printf("\n");
  951. X        strcpy(s, (unsigned char *) mytime(0));
  952. X        if (USER.intro == 1)
  953. X            printf("*");
  954. X        else
  955. X            printf(" ");
  956. X        printf(" 1 - %s\n\n", ADM83_MSG);
  957. X        if (USER.intro == 2)
  958. X            printf("*");
  959. X        else
  960. X            printf(" ");
  961. X        printf(" 2 - %s\n\n", ADM84_MSG);
  962. X        if (USER.intro == 3)
  963. X            printf("*");
  964. X        else
  965. X            printf(" ");
  966. X        printf(" 3 - %s\n\n", ADM85_MSG);
  967. X        if (USER.intro == 4)
  968. X            printf("*");
  969. X        else
  970. X            printf(" ");
  971. X        printf(" 4 - %s\n\n", ADM86_MSG);
  972. X
  973. X        USER.intro = setup_get('4') - 48;
  974. X        break;
  975. X
  976. X      case '8':
  977. X        headline( ADM87_MSG );
  978. X        printf("\n");
  979. X        if (USER.lastmode == 1)
  980. X            printf("*");
  981. X        else
  982. X            printf(" ");
  983. X        printf(" 1 - %s\n\n", ADM88_MSG);
  984. X        if (USER.lastmode == 2)
  985. X            printf("*");
  986. X        else
  987. X            printf(" ");
  988. X        printf(" 2 - %s\n\n", ADM89_MSG);
  989. X        printf("\n");
  990. X        printf("  3 - %s\n\n", ADM90_MSG);
  991. X    
  992. X        i = setup_get('3') - 48;
  993. X
  994. X        switch (i) {
  995. X            case 1:
  996. X                USER.lastmode = 1;
  997. X                LASTTIME = USER.lasttime;
  998. X                break;
  999. X            case 2:
  1000. X                USER.lastmode = 2;
  1001. X                LASTTIME = (int) 0;
  1002. X                break;
  1003. X            case 3:
  1004. X                headline( ADM87_MSG );
  1005. X                ansi("md");
  1006. X                printf("\n%s\n", ADM91_MSG);
  1007. X                printf("%s\n", ADM92_MSG);
  1008. X                printf("%s\n", ADM93_MSG);
  1009. X                printf("%s\n", ADM94_MSG);
  1010. X                ansi("me");
  1011. X
  1012. X                printf("\n%s ", ADM95_MSG);
  1013. X                strcpy(t, (unsigned char *) datereconv(LASTLOG));
  1014. X                strcpy(s, (unsigned char *) getline(10, 1114, '?', t));
  1015. X                LASTLOG = (long) dateconv(s);
  1016. X
  1017. X                printf("\n%s ", ADM96_MSG);
  1018. X                strcpy(t, (unsigned char *) timereconv(LASTTIME));
  1019. X                strcpy(s, (unsigned char *) getline(8, 1113, '?', t));
  1020. X                LASTTIME = timeconv(s);
  1021. X
  1022. X                break;
  1023. X        }
  1024. X        break;
  1025. X
  1026. X      case '9':    
  1027. X        goto ENDE;
  1028. X        break;
  1029. X  }
  1030. X  printf("\n\n");
  1031. X  init_user( ADM97_MSG );
  1032. X  goto AGAIN;
  1033. X
  1034. X  ENDE:
  1035. X
  1036. X  printf("\n");
  1037. X  return;
  1038. X}
  1039. END_OF_FILE
  1040.   if test 26246 -ne `wc -c <'src/admin.c'`; then
  1041.     echo shar: \"'src/admin.c'\" unpacked with wrong size!
  1042.   fi
  1043.   # end of 'src/admin.c'
  1044. fi
  1045. if test -f 'wendy/tools.c' -a "${1}" != "-c" ; then 
  1046.   echo shar: Will not clobber existing file \"'wendy/tools.c'\"
  1047. else
  1048.   echo shar: Extracting \"'wendy/tools.c'\" \(24683 characters\)
  1049.   sed "s/^X//" >'wendy/tools.c' <<'END_OF_FILE'
  1050. X/***************************************************************************/
  1051. X/*        PROGRAMM  ix/Mbox                           */
  1052. X/*             DATEI  tools.c                           */
  1053. X/*        FUNKTIONEN  whoami(), tty(), stripped(), upcased(), length(),    */
  1054. X/*              strcopy(), strcomp(), ansi2(), mydate(), mytime(),   */
  1055. X/*                  crypted(), dateconv(), datereconv(), timeconv(),     */
  1056. X/*              timereconv(), maybe_locked(), num_stripped(),        */
  1057. X/*              rename(), headline(), ttyna(), bigcopy(), mblock(),  */
  1058. X/*              mbunlock(), shortname(), clearline(), isin()       */
  1059. X/*              termansi(), sgrep()                   */
  1060. X/*             AUTOR  vs (Volker Schuermann/MINIX-Version)           */
  1061. X/*  LETZTE AENDERUNG  18.12.1992                       */
  1062. X/***************************************************************************/
  1063. X
  1064. X#include <sys/types.h>
  1065. X#include <sys/stat.h>
  1066. X#include <stdio.h>
  1067. X#include <unistd.h>
  1068. X#include <time.h>
  1069. X#include <pwd.h>
  1070. X
  1071. X#ifdef _SYS7
  1072. X#include <termcap.h>
  1073. X#endif
  1074. X
  1075. X
  1076. X#ifdef _MBOX
  1077. X#define EXTERN
  1078. X#include "mbox.h"
  1079. X#else
  1080. X#define VERSION "TOOLS.C"
  1081. X#define CR 13
  1082. X#define TOL01_MSG    "Sonntag"
  1083. X#define TOL02_MSG    "Montag"
  1084. X#define TOL03_MSG    "Dienstag"
  1085. X#define TOL04_MSG    "Mittwoch"
  1086. X#define TOL05_MSG    "Donnerstag"
  1087. X#define TOL06_MSG    "Freitag"
  1088. X#define TOL07_MSG    "Samstag"
  1089. X#define TOL08_MSG    "Momentchen"
  1090. X#endif
  1091. X#ifdef STRING
  1092. X#undef STRING
  1093. X#endif
  1094. X
  1095. X#ifdef LONGSTRING
  1096. X#undef LONGSTRING
  1097. X#endif
  1098. X
  1099. X#define STRING 81
  1100. X#define LONGSTRING 256
  1101. X
  1102. Xunsigned char headinfo[STRING];
  1103. X
  1104. X
  1105. X/***************************************************************************/
  1106. X/*      FUNKTION  whoami()                           */
  1107. X/*  BESCHREIBUNG  Name des eigenen SH-Accounts.                    */
  1108. X/*     PARAMETER  keine                                                       */
  1109. X/*     RUECKGABE  siehe BESCHREIBUNG                                       */
  1110. X/***************************************************************************/
  1111. X
  1112. Xunsigned char *whoami()
  1113. X{
  1114. X  struct passwd *pw_entry;
  1115. X
  1116. X  pw_entry = getpwuid(getuid());
  1117. X
  1118. X  if (pw_entry->pw_uid < 0) return (unsigned char *) "OOPS";
  1119. X
  1120. X  return (unsigned char *) (pw_entry->pw_name);
  1121. X}
  1122. X
  1123. X
  1124. X
  1125. X
  1126. X/***************************************************************************/
  1127. X/*      FUNKTION  stripped()                           */
  1128. X/*  BESCHREIBUNG  STRING von fuehrenden und folgenden Leerzeichen be-      */
  1129. X/*          freien.                                                  */
  1130. X/*     PARAMETER  st  =  STRING inclusive Leerzeichen                      */
  1131. X/*     RUECKGABE  STRING exclusive Leerzeichen                             */
  1132. X/***************************************************************************/
  1133. X
  1134. Xunsigned char *stripped(st)
  1135. Xunsigned char st[];
  1136. X{
  1137. X  static unsigned char s[STRING];
  1138. X
  1139. X  int i = 0, a = 0, b = 0, c = 0;
  1140. X
  1141. X  if (st[0] == '\0') return (unsigned char *) '\0';
  1142. X  if ((st[0] == 10) || (st[0] == 13)) return (unsigned char *) " ";
  1143. X
  1144. X  strcpy(s, st);
  1145. X
  1146. X  while ((s[i] < 33) && (s[i] != '\0')) i++;
  1147. X  a = i;
  1148. X  while (s[a] != '\0') a++;
  1149. X  a--;
  1150. X  while (s[a] < 33) a--;
  1151. X
  1152. X  for (c = i; c <= a; c++) {
  1153. X    s[b] = s[c];
  1154. X    b++;
  1155. X  }
  1156. X  s[b] = '\0';
  1157. X
  1158. X  return (unsigned char *) s;
  1159. X}
  1160. X
  1161. X
  1162. X
  1163. X
  1164. X
  1165. X/***************************************************************************/
  1166. X/*      FUNKTION  upcased()                           */
  1167. X/*  BESCHREIBUNG  Zeichen eines STRING auf Grossbuchstaben umstellen.       */
  1168. X/*     PARAMETER  st  =  STRING mit Gross-/Kleinbuchstaben           */
  1169. X/*     RUECKGABE  STRING in Grossbuchstaben                                */
  1170. X/***************************************************************************/
  1171. X
  1172. Xunsigned char *upcased(st)
  1173. Xunsigned char st[];
  1174. X{
  1175. X  static unsigned char s[STRING];
  1176. X
  1177. X  int i = 0;
  1178. X
  1179. X
  1180. X  strcpy(s, st);
  1181. X
  1182. X  while (s[i] != '\0') {
  1183. X    if (s[i] > 96) s[i] -= 32;
  1184. X    i++;
  1185. X  }
  1186. X
  1187. X  return (unsigned char *) s;
  1188. X}
  1189. X
  1190. X
  1191. X
  1192. X
  1193. X
  1194. X/***************************************************************************/
  1195. X/*      FUNKTION  length()                           */
  1196. X/*  BESCHREIBUNG  Laenge eines STRING ermitteln (ja, ja, "strlen" ...)       */
  1197. X/*     PARAMETER  st  =  STRING                                            */
  1198. X/*     RUECKGABE  Laenge des STRING                                        */
  1199. X/***************************************************************************/
  1200. X
  1201. Xint length(st)
  1202. Xunsigned char st[];
  1203. X{
  1204. X  int i = 0;
  1205. X
  1206. X  while (st[i] != '\0') i++;
  1207. X
  1208. X  return i;
  1209. X}
  1210. X
  1211. X
  1212. X
  1213. X
  1214. X/***************************************************************************/
  1215. X/*      FUNKTION  strcopy()                           */
  1216. X/*  BESCHREIBUNG  Einen TeilSTRING aus einem STRING herausschneiden.       */
  1217. X/*     PARAMETER  st  =  STRING                                            */
  1218. X/*          v   =  von Zeichen (1. Zeichen = 0 !!!)           */
  1219. X/*          b   =  bis Zeichen                           */
  1220. X/*     RUECKGABE  TeilSTRING                                               */
  1221. X/***************************************************************************/
  1222. X
  1223. Xunsigned char *strcopy(st, v, b)
  1224. Xunsigned char st[];
  1225. Xint v, b;
  1226. X{
  1227. X  static unsigned char s[STRING];
  1228. X
  1229. X  int i = 0, j;
  1230. X
  1231. X
  1232. X  strcpy(s, st);
  1233. X
  1234. X  if (length(s) < b) b = length(s);
  1235. X
  1236. X  for (j = v; j <= b; j++) {
  1237. X    s[i] = s[j];
  1238. X    i++;
  1239. X  }
  1240. X  s[i] = '\0';
  1241. X
  1242. X  return (unsigned char *) s;
  1243. X}
  1244. X
  1245. X
  1246. X/***************************************************************************/
  1247. X/*      FUNKTION  bigcopy()                           */
  1248. X/*  BESCHREIBUNG  Einen TeilLONGSTRING aus LONGSTRING herausschneiden.     */
  1249. X/*     PARAMETER  st  =  LONGSTRING                                        */
  1250. X/*          v   =  von Zeichen (1. Zeichen = 0 !!!)           */
  1251. X/*          b   =  bis Zeichen                           */
  1252. X/*     RUECKGABE  TeilLONGSTRING                                           */
  1253. X/***************************************************************************/
  1254. X
  1255. Xunsigned char *bigcopy(st, v, b)
  1256. Xunsigned char st[];
  1257. Xint v, b;
  1258. X{
  1259. X  static unsigned char s[LONGSTRING];
  1260. X
  1261. X  int i = 0, j;
  1262. X
  1263. X
  1264. X  strcpy(s, st);
  1265. X
  1266. X  if (length(s) < b) b = length(s);
  1267. X
  1268. X  for (j = v; j <= b; j++) {
  1269. X    s[i] = s[j];
  1270. X    i++;
  1271. X  }
  1272. X  s[i] = '\0';
  1273. X
  1274. X  return (unsigned char *) s;
  1275. X}
  1276. X
  1277. X
  1278. X
  1279. X
  1280. X/***************************************************************************/
  1281. X/*      FUNKTION  strcomp()                           */
  1282. X/*  BESCHREIBUNG  Zwei STRINGs vergleichen. Und zwar genau solange, bis    */
  1283. X/*          bei STRING1 das Ende ('\0') erreicht ist !!!             */
  1284. X/*                Gross-/Kleinschreibung wird dabei IGNORIERT !!!          */
  1285. X/*     PARAMETER  st  =  STRING1                                           */
  1286. X/*              tt  =  STRING2                                           */
  1287. X/*     RUECKGABE  Anzahl der UNGLEICHEN Zeichen                            */
  1288. X/***************************************************************************/
  1289. X
  1290. Xint strcomp(s, t)
  1291. Xunsigned char s[], t[];
  1292. X{
  1293. X  int i = 0, a = 0;
  1294. X  int s1, t1;
  1295. X
  1296. X  while (s[i] != '\0') {
  1297. X    s1 = s[i];
  1298. X    t1 = t[i];
  1299. X    if ((t1 > 96) && (t1 < 123)) t1 -= 32;
  1300. X    if ((s1 > 96) && (s1 < 123)) s1 -= 32;
  1301. X    if (t1 != s1) a++;
  1302. X    i++;
  1303. X  }
  1304. X  return a;
  1305. X}
  1306. X
  1307. X
  1308. X/***************************************************************************/
  1309. X/*      FUNKTION  ansi2()                           */
  1310. X/*  BESCHREIBUNG  TERMCAP-Eintrag fuer ein Terminal in "buf" einlesen,     */
  1311. X/*          und angeforderte Sequenzen finden & ausgeben.            */
  1312. X/*     PARAMETER  code  =  'INIT'  =  Eintrag holen und speichern       */
  1313. X/*                         =  Sequenz finden & ausgeben            */
  1314. X/*     RUECKGABE  -1  =  Terminal nicht gefunden                           */
  1315. X/*           1  =  Sequenz nicht gefunden                   */
  1316. X/***************************************************************************/
  1317. X
  1318. Xstatic unsigned char buf[1024];
  1319. X
  1320. Xint ansi(code)
  1321. Xunsigned char code[];
  1322. X{
  1323. X  ansi2(code, 0, 0);
  1324. X}
  1325. X
  1326. Xint ansi2(code, x, y)
  1327. Xunsigned char code[];
  1328. Xint x, y;
  1329. X{
  1330. X  unsigned char *getenv();
  1331. X  static unsigned char s[STRING];
  1332. X  unsigned char *p = s;
  1333. X  unsigned char *term;
  1334. X
  1335. X#ifdef _MBOX
  1336. X  term = TERMINAL;
  1337. X#else
  1338. X  term = getenv("TERM");
  1339. X#endif
  1340. X
  1341. X  if ((x == -1) && (y == -1)) {
  1342. X    if (tgetent(buf, code) != 1) return -1;
  1343. X  }
  1344. X  if (strcomp("INIT", code) == 0) {
  1345. X    if (tgetent(buf, term) != 1) return -1;
  1346. X  }
  1347. X  if (strcomp("cm", code) == 0) {
  1348. X    if (tgetstr(code, &p) == 0) return 1;
  1349. X    printf("%s", (unsigned char *) tgoto( s, (x -1), (y -1) ));
  1350. X    return 0;
  1351. X  }
  1352. X  else{
  1353. X    if (tgetstr(code, &p) == 0) return 1;
  1354. X  }
  1355. X
  1356. X  printf("%s", s);
  1357. X
  1358. X  return 0;
  1359. X}
  1360. X
  1361. Xunsigned char *termansi(code)
  1362. Xunsigned char code[];
  1363. X{
  1364. X  unsigned char *getenv();
  1365. X  unsigned char s[STRING];
  1366. X  unsigned char *p = s;
  1367. X  unsigned char *term;
  1368. X
  1369. X#ifdef _MBOX
  1370. X  term = TERMINAL;
  1371. X#else
  1372. X  term = getenv("TERM");
  1373. X#endif
  1374. X
  1375. X  if (strcomp("INIT", code) == 0) {
  1376. X    if (tgetent(buf, term) != 1) return (unsigned char *) '\0';
  1377. X  }
  1378. X  if (tgetstr(code, &p) == 0) return (unsigned char *) '\0';
  1379. X
  1380. X  return (unsigned char *) s;
  1381. X}
  1382. X
  1383. X
  1384. X
  1385. X/***************************************************************************/
  1386. X/*      FUNKTION  mydate()                           */
  1387. X/*  BESCHREIBUNG  Tagesdatum liefern.                         */
  1388. X/*     PARAMETER  mode  =  0  =  tt.mm.yyyy                   */
  1389. X/*               1  =  tt.mm.yy                   */
  1390. X/*               2  =  ttt                       */    
  1391. X/*     RUECKGABE  Datum                                                    */
  1392. X/***************************************************************************/
  1393. X
  1394. X#define TZS      1
  1395. X
  1396. Xunsigned char *mydate(mode)
  1397. Xint mode;
  1398. X{
  1399. X  struct tm *tp;
  1400. X  time_t tt;
  1401. X  unsigned char wt[8][11];
  1402. X
  1403. X  static unsigned char s[STRING];
  1404. X
  1405. X#ifndef _MBOX
  1406. X  strcpy(wt[0], "Sonntag");
  1407. X  strcpy(wt[1], "Montag");
  1408. X  strcpy(wt[2], "Dienstag");
  1409. X  strcpy(wt[3], "Mittwoch");
  1410. X  strcpy(wt[4], "Donnerstag");
  1411. X  strcpy(wt[5], "Freitag");
  1412. X  strcpy(wt[6], "Samstag");
  1413. X#else
  1414. X  strcpy(wt[0], TOL01_MSG);
  1415. X  strcpy(wt[1], TOL02_MSG);
  1416. X  strcpy(wt[2], TOL03_MSG);
  1417. X  strcpy(wt[3], TOL04_MSG);
  1418. X  strcpy(wt[4], TOL05_MSG);
  1419. X  strcpy(wt[5], TOL06_MSG);
  1420. X  strcpy(wt[6], TOL07_MSG);
  1421. X#endif
  1422. X
  1423. X  time(&tt);
  1424. X  tp = localtime(&tt);
  1425. X  if (mode == 0) {
  1426. X    sprintf(s, "%02.2d.%02.2d.%04.4d", tp->tm_mday, tp->tm_mon + TZS, 1900 + tp->tm_year);
  1427. X  }
  1428. X  if (mode == 1) {
  1429. X    sprintf(s, "%02.2d.%02.2d.%02.2d", tp->tm_mday, tp->tm_mon + TZS, tp->tm_year);
  1430. X  }
  1431. X  if (mode == 2) {
  1432. X    sprintf(s, "%s", wt[tp->tm_wday]);
  1433. X  }
  1434. X  return (unsigned char *) s;
  1435. X}
  1436. X
  1437. X
  1438. X
  1439. X
  1440. X/***************************************************************************/
  1441. X/*      FUNKTION  mytime()                           */
  1442. X/*  BESCHREIBUNG  Tageszeit liefern.                         */
  1443. X/*     PARAMETER  mode  =  0  =  hh:mm:ss                   */
  1444. X/*               1  =  hh:mm                        */
  1445. X/*     RUECKGABE  Zeit                                                     */
  1446. X/***************************************************************************/
  1447. X
  1448. Xunsigned char *mytime(mode)
  1449. Xint mode;
  1450. X{
  1451. X  struct tm *tp;
  1452. X  time_t tt;
  1453. X
  1454. X  static unsigned char s[STRING];
  1455. X
  1456. X  time(&tt);
  1457. X  tp = localtime(&tt);
  1458. X  sprintf(s, "%02.2d:%02.2d:%02.2d", tp->tm_hour, tp->tm_min, tp->tm_sec);
  1459. X
  1460. X  if (mode == 1) s[5] = '\0';
  1461. X
  1462. X  return (unsigned char *) s;
  1463. X}
  1464. X
  1465. X
  1466. X
  1467. X
  1468. X/***************************************************************************/
  1469. X/*      FUNKTION  crypted()                           */
  1470. X/*  BESCHREIBUNG  STRING verschluesseln und zurueckgeben.           */
  1471. X/*     PARAMETER  s  =  STRING                                             */
  1472. X/*     RUECKGABE  Verschluesselter STRING                                  */
  1473. X/***************************************************************************/
  1474. X
  1475. Xunsigned char *crypted(s)
  1476. Xunsigned char s[];
  1477. X{
  1478. X  static unsigned char t[STRING];
  1479. X  int i, a;
  1480. X
  1481. X
  1482. X  strcpy(t, s);
  1483. X  i = 0;
  1484. X  a = 2;
  1485. X  while (t[i] != '\0') {
  1486. X    t[i] = (t[i] / a) + 32;
  1487. X    i++;
  1488. X    a++;
  1489. X    if (a > 5) a = 2;
  1490. X  }
  1491. X
  1492. X  return (unsigned char *) t;
  1493. X}
  1494. X
  1495. X
  1496. X
  1497. X
  1498. X/***************************************************************************/
  1499. X/*      FUNKTION  dateconv()                            */
  1500. X/*  BESCHREIBUNG  Datum (STRING) in Datum (LONG) wandeln.           */
  1501. X/*     PARAMETER  d  =  Datum (STRING)                                     */
  1502. X/*     RUECKGABE  Datum (LONG)                                             */
  1503. X/***************************************************************************/
  1504. X
  1505. Xlong dateconv(d)
  1506. Xunsigned char d[];
  1507. X{
  1508. X  unsigned char s[STRING];
  1509. X  int a, b, i;
  1510. X
  1511. X
  1512. X  strcpy(s, (unsigned char *) strcopy(d, 0, 1));
  1513. X  a = atoi(s);
  1514. X  strcpy(s, (unsigned char *) strcopy(d, 3, 4));
  1515. X  b = atoi(s);
  1516. X  strcpy(s, (unsigned char *) strcopy(d, 6, 9));
  1517. X  i = atoi(s);
  1518. X  if (i < 1900) i += 1900;
  1519. X
  1520. X  sprintf(s, "%4.4d%02.2d%02.2d", i, b, a);
  1521. X
  1522. X  return atol(s);
  1523. X}
  1524. X
  1525. X
  1526. X
  1527. X/***************************************************************************/
  1528. X/*      FUNKTION  datereconv()                            */
  1529. X/*  BESCHREIBUNG  Datum (LONG) in Datum (STRING) wandeln.           */
  1530. X/*     PARAMETER  l  =  Datum (LONG)                                       */
  1531. X/*     RUECKGABE  Datum (STRING)                                           */
  1532. X/***************************************************************************/
  1533. X
  1534. Xunsigned char *datereconv(l)
  1535. Xlong l;
  1536. X{
  1537. X  static unsigned char s[STRING];
  1538. X  static unsigned char t[STRING];
  1539. X
  1540. X
  1541. X  if (l < 19000000)
  1542. X    sprintf(s, "%ld", 1900000L + l);
  1543. X  else
  1544. X    sprintf(s, "%ld", l);
  1545. X
  1546. X  strcpy(t, (unsigned char *) strcopy(s, 6, 7));
  1547. X  strcat(t, ".");
  1548. X  strcat(t, (unsigned char *) strcopy(s, 4, 5));
  1549. X  strcat(t, ".");
  1550. X  strcat(t, (unsigned char *) strcopy(s, 0, 3));
  1551. X
  1552. X  return (unsigned char *) t;
  1553. X}
  1554. X
  1555. X
  1556. X
  1557. X/***************************************************************************/
  1558. X/*      FUNKTION  timeconv()                            */
  1559. X/*  BESCHREIBUNG  Zeit (STRING) in Zeit (LONG) wandeln.               */
  1560. X/*     PARAMETER  t  =  Zeit (STRING)                                      */
  1561. X/*     RUECKGABE  Zeit (LONG)                                              */
  1562. X/***************************************************************************/
  1563. X
  1564. Xint timeconv(t)
  1565. Xunsigned char t[];
  1566. X{
  1567. X  unsigned char s[STRING];
  1568. X  int i = 0;
  1569. X
  1570. X
  1571. X  strcpy(s, (unsigned char *) strcopy(t, 0, 1));
  1572. X  i = 100 * atoi(s);
  1573. X  strcpy(s, (unsigned char *) strcopy(t, 3, 4));
  1574. X  i += atoi(s);
  1575. X
  1576. X  return i;
  1577. X}
  1578. X
  1579. X
  1580. X
  1581. X
  1582. X/***************************************************************************/
  1583. X/*      FUNKTION  timereconv()                            */
  1584. X/*  BESCHREIBUNG  Zeit (LONG) in Zeit (STRING) wandeln.               */
  1585. X/*     PARAMETER  i  =  Zeit (LONG)                                        */
  1586. X/*     RUECKGABE  Zeit (STRING)                                            */
  1587. X/***************************************************************************/
  1588. X
  1589. Xunsigned char *timereconv(i)
  1590. Xint i;
  1591. X{
  1592. X  static unsigned char s[STRING];
  1593. X  static unsigned char t[STRING];
  1594. X
  1595. X
  1596. X  if (i < 10000)
  1597. X    sprintf(s, "%04.4d00", i);
  1598. X  else
  1599. X    sprintf(s, "%06.6d", i);
  1600. X
  1601. X  strcpy(t, (unsigned char *) strcopy(s, 0, 1));
  1602. X  strcat(t, ":");
  1603. X  strcat(t, (unsigned char *) strcopy(s, 2, 3));
  1604. X  strcat(t, ":");
  1605. X  strcat(t, (unsigned char *) strcopy(s, 4, 5));
  1606. X
  1607. X  return (unsigned char *) t;
  1608. X}
  1609. X
  1610. X
  1611. X
  1612. X/***************************************************************************/
  1613. X/*      FUNKTION  shortname()                            */
  1614. X/*  BESCHREIBUNG  Wandelt lange Namen (NGs) ins 14-Zeichenformat, um Ver-  */
  1615. X/*                Wechslungen zu vermeiden:                   */
  1616. X/*                                       */
  1617. X/*              comp.protocols.tcp-ip.sources.wanted           */
  1618. X/*                =>  com0ces.wanted                       */
  1619. X/*                                               */
  1620. X/*     PARAMETER  longname : langer Name                                   */
  1621. X/*                                       */
  1622. X/*                                          */
  1623. X/*     RUECKGABE  s : kurzer Name                                          */
  1624. X/***************************************************************************/
  1625. X
  1626. Xunsigned char *shortname( longname )
  1627. Xunsigned char longname[];
  1628. X{
  1629. X  unsigned char s[STRING];
  1630. X  unsigned char t[STRING];
  1631. X
  1632. X  int i = 0, j = 0;
  1633. X
  1634. X  strcpy(s, longname);
  1635. X
  1636. X  strcpy(t, longname);
  1637. X
  1638. X  while(s[i] != '\0'){
  1639. X    if(s[i] == '/') j = i + 1;
  1640. X    i++;
  1641. X  }
  1642. X
  1643. X  i = strlen(t);
  1644. X
  1645. X  if((i - j) < 15) return (unsigned char *) s;
  1646. X
  1647. X  s[j + 3] = '0'; s[j + 4] = '\0';
  1648. X  strcat(s, (unsigned char *) strcopy(t, (i-10), i));
  1649. X
  1650. X  return (unsigned char *) s;
  1651. X}
  1652. X
  1653. X
  1654. X
  1655. X
  1656. X
  1657. X/***************************************************************************/
  1658. X/*      FUNKTION  maybe_locked()                       */
  1659. X/*  BESCHREIBUNG  Um sicherzustellen das eine Datei, die eigentlich vor-   */
  1660. X/*          handen sein MUSS, wirklich nicht da ist (und nicht nur   */
  1661. X/*          gerade von einem anderen Task benutzt wird), verzoegert  */
  1662. X/*          diese Funktion die Fehlermeldung um eine festgelegte     */
  1663. X/*          Zeitspanne.                                              */
  1664. X/*     PARAMETER  name  =  Dateiname                           */
  1665. X/*          mode  =  Zugriffsmodus (sollte NICHT verwendet werden !) */
  1666. X/*     RUECKGABE   0    =  Datei erreichbar                   */
  1667. X/*          -1    =  Datei nicht verfuegbar               */
  1668. X/***************************************************************************/
  1669. X
  1670. Xint maybe_locked(name, mode)
  1671. Xunsigned char name[], mode[];
  1672. X{
  1673. X  FILE *fp;
  1674. X  int i = 0, LCK = 0;
  1675. X  unsigned char s[STRING];
  1676. X
  1677. X  sprintf(s, "%s.LCK", name);
  1678. X
  1679. X#ifndef _LONGNAMES
  1680. X  strcpy(s, (unsigned char *) shortname(s));
  1681. X#endif
  1682. X
  1683. X  TRY_TWICE:
  1684. X
  1685. X  fp = NULL;
  1686. X
  1687. X  do {
  1688. X    if(fp != NULL) fclose(fp);
  1689. X    fp = fopen(s, "r");
  1690. X    i++;
  1691. X    if (fp != NULL) {
  1692. X        if(i == 1) printf("%c%s ", CR, TOL08_MSG);
  1693. X        printf(".");
  1694. X        sleep(3);
  1695. X    }
  1696. X  } while ((i < 8) && (fp != 0));
  1697. X
  1698. X  if(fp != 0){
  1699. X    fclose(fp);
  1700. X#ifdef _MBOX
  1701. X    mbunlock(name);  /* <--- DAS IST NATUERLICH NICHT KORREKT !!! */
  1702. X    goto TRY_TWICE;  /* <--- DAS AUCH NICHT !!! */
  1703. X    nerror("tools.c", 566, "maybe_locked", "Datei gesperrt", name);    
  1704. X#else
  1705. X    printf("\n\nDatei >>%s<< gesperrt !!!\n\n", name);
  1706. X#endif
  1707. X    exit( -1 );
  1708. X  }
  1709. X
  1710. X  i = 0;
  1711. X
  1712. X  do {
  1713. X    fp = fopen(name, "r");    /* "r" => "mode", aber VORSICHT ! */
  1714. X    i++;
  1715. X    if (fp == NULL) {
  1716. X        if(i == 1) printf("%c%s ", CR, TOL08_MSG);    
  1717. X        printf(".");
  1718. X        sync();
  1719. X        sleep(3);
  1720. X    }
  1721. X  } while ((i < 5) && (fp == NULL));
  1722. X
  1723. X  if (fp == NULL) return -1;
  1724. X
  1725. X  fclose(fp);
  1726. X  return 0;
  1727. X}
  1728. X
  1729. X
  1730. X
  1731. X
  1732. X
  1733. X/***************************************************************************/
  1734. X/*      FUNKTION  num_stripped()                       */
  1735. X/*  BESCHREIBUNG  Entfernt alle Ziffern aus STRING.               */
  1736. X/*     PARAMETER  s  =  STRING (incl. Ziffern)                   */
  1737. X/*     RUECKGABE  STRING (excl. Ziffern)                   */
  1738. X/***************************************************************************/
  1739. X
  1740. Xunsigned char *numstripped(s)
  1741. Xunsigned char s[];
  1742. X{
  1743. X  static unsigned char t[STRING];
  1744. X  int i = 0, a = 0;
  1745. X
  1746. X  while (s[i] != '\0') {
  1747. X    if (((s[i] > 64) && (s[i] < 127)) || (s[i] == ' ') || (s[i] == '-')) {
  1748. X        t[a] = s[i];
  1749. X        a++;
  1750. X    }
  1751. X    i++;
  1752. X  }
  1753. X  t[a] = '\0';
  1754. X
  1755. X  return (unsigned char *) t;
  1756. X}
  1757. X
  1758. X
  1759. X
  1760. X
  1761. X/***************************************************************************/
  1762. X/*      FUNKTION  rename()                           */
  1763. X/*  BESCHREIBUNG  Benennt Datei1 in Datei2 um (ok, gelogen ... Datei1 wird */
  1764. X/*          in Datei2 kopiert).                                      */
  1765. X/*     PARAMETER  alt  =  Datei1                                           */
  1766. X/*          neu  =  Datei2                                           */
  1767. X/*     RUECKGABE   0   =  ok                                               */
  1768. X/*          -1   =  Datei1 nicht gefunden                   */
  1769. X/***************************************************************************/
  1770. X
  1771. X#ifndef _ANSI
  1772. X
  1773. Xint rename(alt, neu)
  1774. Xunsigned char *alt[], *neu[];
  1775. X{
  1776. X  FILE *fp;
  1777. X  FILE *ff;
  1778. X
  1779. X  unsigned char s[250];
  1780. X
  1781. X  fp = fopen(neu, "w");
  1782. X  if (fp == NULL) {
  1783. X    return -1;
  1784. X  }
  1785. X  ff = fopen(alt, "r");
  1786. X  if (ff == NULL) {
  1787. X    return -2;
  1788. X  }
  1789. X  while (fgets(s, 250, ff) != NULL) {
  1790. X    fputs(s, fp);
  1791. X  }
  1792. X
  1793. X  fclose(fp);
  1794. X  fclose(ff);
  1795. X
  1796. X  unlink(alt);
  1797. X
  1798. X  return 0;
  1799. X}
  1800. X
  1801. X#endif
  1802. X
  1803. X
  1804. X
  1805. X
  1806. X/***************************************************************************/
  1807. X/*      FUNKTION  headline()                           */
  1808. X/*  BESCHREIBUNG  Ueberschrift mit Ansage-Text ausgeben. Vorher wird der   */
  1809. X/*          der Bildschirm geloescht (falls moegliche) und auf       */
  1810. X/*          negative Darstellung umgeschaltet.                       */
  1811. X/*     PARAMETER  line  =  Ansage-Text                       */
  1812. X/*     RUECKGABE  keine                                                    */
  1813. X/***************************************************************************/
  1814. X
  1815. Xvoid headline(line)
  1816. Xunsigned char line[];
  1817. X{
  1818. X  unsigned char ex[255];
  1819. X  int i;
  1820. X
  1821. X
  1822. X  strcpy(ex, line);
  1823. X  i = 0;
  1824. X  while(line[i] != '\0'){
  1825. X    if(line[i] == '^'){
  1826. X        strcpy(ex, (unsigned char *) strcopy(line, 0, (i-1)));
  1827. X        line[i] = ' ';
  1828. X    }
  1829. X    i++;
  1830. X  }
  1831. X  strcpy(headinfo, ex);
  1832. X  sprintf(ex, "%s                                                                          ", line);
  1833. X  ex[79] = '\0';
  1834. X  if (ansi("cl") != -1) {
  1835. X    if (ansi("mr") == 1) {
  1836. X        if (ansi("so") == 1) { 
  1837. X            printf("\n\n------  %s  ------\n\n", line);
  1838. X            return;
  1839. X        }
  1840. X    }
  1841. X    printf("%s\n", ex);
  1842. X    if (ansi("me") == 1) {
  1843. X        ansi("se");
  1844. X    }
  1845. X  }
  1846. X  else {
  1847. X    printf("\n\n\n\n\n------  %s  ------\n\n", line);
  1848. X  }
  1849. X}
  1850. X
  1851. X
  1852. X/***************************************************************************/
  1853. X/*      FUNKTION  mblock()                           */
  1854. X/*  BESCHREIBUNG  Schuetzt eine Datei vor ALLEN Zugriffen           */
  1855. X/*     PARAMETER  path  =  Datei                       */
  1856. X/*     RUECKGABE  keine                                                    */
  1857. X/***************************************************************************/
  1858. X
  1859. Xvoid mblock( path )
  1860. Xunsigned char path[];
  1861. X{
  1862. X  FILE *fp;
  1863. X  unsigned char s[STRING];
  1864. X
  1865. X  sprintf(s, "%s.LCK", path); 
  1866. X
  1867. X#ifndef _LONGNAMES
  1868. X  strcpy(s, (unsigned char *) shortname(s));
  1869. X#endif
  1870. X
  1871. X  fp = fopen( s, "w" );
  1872. X  fputs(VERSION, fp);
  1873. X  fclose(fp);
  1874. X}
  1875. X
  1876. X
  1877. X/***************************************************************************/
  1878. X/*      FUNKTION  unmblock()                           */
  1879. X/*  BESCHREIBUNG  Erlaubt Zugriffe auf eine Datei               */
  1880. X/*     PARAMETER  path  =  Datei                       */
  1881. X/*     RUECKGABE  keine                                                    */
  1882. X/***************************************************************************/
  1883. X
  1884. Xvoid mbunlock( path )
  1885. Xunsigned char path[];
  1886. X{
  1887. X  unsigned char s[STRING];
  1888. X  
  1889. X  sprintf(s, "%s.LCK", path); 
  1890. X
  1891. X#ifndef _LONGNAMES
  1892. X  strcpy(s, (unsigned char *) shortname(s));
  1893. X#endif
  1894. X
  1895. X  unlink(s);
  1896. X}
  1897. X
  1898. X
  1899. X/***************************************************************************/
  1900. X/*      FUNKTION  tty()                               */
  1901. X/*  BESCHREIBUNG  Name des eigenen Terminal-Anschlusses.            */
  1902. X/*     PARAMETER  keine                                                       */
  1903. X/*     RUECKGABE  siehe BESCHREIBUNG                                       */
  1904. X/***************************************************************************/
  1905. X
  1906. Xint tty()
  1907. X{
  1908. X  unsigned char s[STRING];
  1909. X  unsigned char t[STRING];
  1910. X  int i, l, a, b;
  1911. X
  1912. X
  1913. X  strcpy(s, (unsigned char *) ttyname(0));
  1914. X  l = length(s);
  1915. X  i = l;
  1916. X
  1917. X  while ((s[l] != 'y') && (l > 0)) l--;
  1918. X
  1919. X  l++;
  1920. X  a = 0;
  1921. X
  1922. X  for (b = l; b < i; b++) {
  1923. X    t[a] = s[b];
  1924. X    a++;
  1925. X  }
  1926. X  t[a] = '\0';
  1927. X
  1928. X  return atoi(t);
  1929. X}
  1930. X
  1931. X
  1932. X/***************************************************************************/
  1933. X/*      FUNKTION  ttyna()                           */
  1934. X/*  BESCHREIBUNG  Name des eigenen Terminal-Anschlusses.            */
  1935. X/*     PARAMETER  keine                                                       */
  1936. X/*     RUECKGABE  siehe BESCHREIBUNG                                       */
  1937. X/***************************************************************************/
  1938. X
  1939. Xunsigned char *ttyna()
  1940. X{
  1941. X  static unsigned char s[STRING];
  1942. X  static unsigned char t[STRING];
  1943. X  int i, j, l;
  1944. X
  1945. X
  1946. X  strcpy(s, (unsigned char *) ttyname(0));
  1947. X
  1948. X  l = length(s) + 1;
  1949. X
  1950. X  i = 0; 
  1951. X  while(s[i] != '\0'){
  1952. X    if(s[i] == '/') j = i + 1;
  1953. X    i++;
  1954. X  }
  1955. X  (void) strcpy(t, (unsigned char *) strcopy(s, j, l));
  1956. X  
  1957. X  return (unsigned char *) t;
  1958. X}
  1959. X
  1960. X
  1961. X
  1962. X/***************************************************************************/
  1963. X/*      FUNKTION  clearline()                           */
  1964. X/*  BESCHREIBUNG  Bildschirmzeile loeschen.                    */
  1965. X/*     PARAMETER  keine                                                       */
  1966. X/*     RUECKGABE  keine                                               */
  1967. X/***************************************************************************/
  1968. X
  1969. Xvoid clearline()
  1970. X{
  1971. X  printf("%c", CR);
  1972. X  if (ansi("ce") == 1) {
  1973. X    printf("                                                               ");
  1974. X  }
  1975. X  printf("%c", CR);
  1976. X}
  1977. X
  1978. X
  1979. X/***************************************************************************/
  1980. X/*      FUNKTION  isin()                           */
  1981. X/*  BESCHREIBUNG  Prueft ob ein Zeichen in einer Zeichenkette vorkommt.       */
  1982. X/*     PARAMETER  pattern = Zeichenkette mit den moegl. Uebereinstimmungen */
  1983. X/*          c       = Zeichen                       */
  1984. X/*     RUECKGABE  0       = Zeichen ist NICHT in Zeichenkette enthalten       */
  1985. X/***************************************************************************/
  1986. X
  1987. Xint isin( pattern, c )
  1988. Xunsigned char pattern[];
  1989. Xint c;
  1990. X{
  1991. X  int i = 0;
  1992. X  int ok = 0;
  1993. X
  1994. X  while((pattern[i] != '\0') && (ok == 0)){
  1995. X    if(pattern[i] == c) ok++;    
  1996. X    i++;
  1997. X  }
  1998. X  
  1999. X  return (int) ok;  
  2000. X}
  2001. X
  2002. X
  2003. X/***************************************************************************/
  2004. X/*      FUNKTION  sgrep()                           */
  2005. X/*  BESCHREIBUNG  Prueft ob Muster in einer Zeichenkette vorkommt.       */
  2006. X/*     PARAMETER  pattern = Zeichenkette mit den moegl. Uebereinstimmungen */
  2007. X/*          source  = Zeichenkette                   */
  2008. X/*     RUECKGABE  0       = Muster ist NICHT in Zeichenkette enthalten       */
  2009. X/***************************************************************************/
  2010. X
  2011. Xint sgrep( source, pattern )
  2012. Xunsigned char source[];
  2013. Xunsigned char pattern[];
  2014. X{
  2015. X  unsigned char t[STRING];
  2016. X  int i = 0;
  2017. X 
  2018. X  while(source[i] != 0){
  2019. X    if(source[i] == pattern[0]){
  2020. X        strcpy(t, (unsigned char *) strcopy(source, i, strlen(source)));
  2021. X        if(strcomp(pattern, t) == 0) return (int) i;
  2022. X    }
  2023. X    i++;
  2024. X  }
  2025. X
  2026. X  return (int) 0;
  2027. X}
  2028. X
  2029. END_OF_FILE
  2030.   if test 24683 -ne `wc -c <'wendy/tools.c'`; then
  2031.     echo shar: \"'wendy/tools.c'\" unpacked with wrong size!
  2032.   fi
  2033.   # end of 'wendy/tools.c'
  2034. fi
  2035. echo shar: End of archive 4 \(of 15\).
  2036. cp /dev/null ark4isdone
  2037. MISSING=""
  2038. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ; do
  2039.     if test ! -f ark${I}isdone ; then
  2040.     MISSING="${MISSING} ${I}"
  2041.     fi
  2042. done
  2043. if test "${MISSING}" = "" ; then
  2044.     echo You have unpacked all 15 archives.
  2045.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2046. else
  2047.     echo You still must unpack the following archives:
  2048.     echo "        " ${MISSING}
  2049. fi
  2050. exit 0
  2051. exit 0 # Just in case...
  2052.