home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume41 / casu / patch01 < prev    next >
Encoding:
Text File  |  1994-01-09  |  18.5 KB  |  680 lines

  1. Newsgroups: comp.sources.misc
  2. From: lm@rmit.edu.au (Luke Mewburn)
  3. Subject: v41i080:  casu - comms. & status utils, v3.3, Patch01
  4. Message-ID: <1994Jan10.025948.4586@sparky.sterling.com>
  5. X-Md4-Signature: 374fa071c121556e32bef2f530cab573
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Reply-To: Luke Mewburn <lm@rmit.edu.au>
  8. Organization: Sterling Software
  9. Date: Mon, 10 Jan 1994 02:59:48 GMT
  10. Approved: kent@sparky.sterling.com
  11.  
  12. Submitted-by: lm@rmit.edu.au (Luke Mewburn)
  13. Posting-number: Volume 41, Issue 80
  14. Archive-name: casu/patch01
  15. Environment: UNIX, ANSI-C
  16. Patch-To: casu: Volume 41, Issue 76-79
  17.  
  18. This patch brings CaSU-3.3 upto version 3.3.1. CaSU is a package
  19. (consisting of `flon - a program to list your friends logged
  20. on' and `to - a program to send short messages to people') of
  21. Communications And Status Utilities.
  22.  
  23. It fixes a makefile problem when installing as setgid tty, and
  24. improves the way that unformatted/formatted manual pages are
  25. installed.
  26.  
  27. ---
  28.  
  29. diff -c /r/staff/lm/src/casu-3.3/ChangeLog ./ChangeLog
  30. *** /r/staff/lm/src/casu-3.3/ChangeLog    Tue Dec 21 17:06:08 1993
  31. --- ./ChangeLog    Thu Dec 23 12:42:38 1993
  32. ***************
  33. *** 1,9 ****
  34. --- 1,39 ----
  35. + Thu Dec 23 12:36:26 EST 1993    Luke Mewburn (lm@yallara)
  36. +     * increased to version 3.3.1, 931223 and prepared
  37. +     for patch01 generation and release.
  38. +     * touched up README a bit.
  39. +     * separated installation of manuals from programs, and
  40. +     provided installation directives for unformatted (install.man)
  41. +     and formatted (install.catman) manual pages.
  42. +     * changed bitmask from 0x077 to 077 in source for
  43. +     determining tty permissions in configure.in. (Bug
  44. +     found by Michael Schroeder <screen@uni-erlangen.de>)
  45. + Wed Dec 22 16:22:16 EST 1993    Luke Mewburn (lm@yallara)
  46. +     * added patchlevel.h as a header that source should be
  47. +     dependant upon.
  48. +     * terminated an echo in Makefile.in with a `;' so that
  49. +     the multiline statement that makes _to_ setgid tty
  50. +     work correctly.
  51. +     * split VERSION into VERSION and RELDATE, updated
  52. +     usage statements in source accordingly.
  53.   Tue Dec 21 17:04:46 EST 1993    Luke Mewburn (lm@yallara)
  54.   
  55.       * prepared for comp.sources.misc submission, created patchlevel.h
  56.   
  57.       * increased to version 3.3
  58.   
  59.   Tue Dec 21 14:42:42 EST 1993    Luke Mewburn (lm@yallara)
  60.   
  61.       * added %b (host in brackets) to flon.
  62. ***************
  63. *** 243,251 ****
  64.       * placed _flon_ & _to_ changelogs into this file at this point,
  65.       for easier reference.
  66.   
  67. !     *
  68. !     * CHANGELOG for _flon_ v3.1 and before:
  69. !     *
  70.   
  71.       3.1, 930715
  72.       - added -P (minimum time before it prints time instead of
  73. --- 273,282 ----
  74.       * placed _flon_ & _to_ changelogs into this file at this point,
  75.       for easier reference.
  76.   
  77. ! *
  78. ! * CHANGELOG for _flon_ v3.1 and before:
  79. ! *
  80.   
  81.       3.1, 930715
  82.       - added -P (minimum time before it prints time instead of
  83. ***************
  84. *** 442,450 ****
  85.       - Undocumented original internal (to RMIT) version.
  86.   
  87.   
  88. !     *
  89. !     * CHANGELOG for _to_ v3.1 and before.
  90. !     *
  91.   
  92.       3.1, 930715
  93.       - changed a couple of global variable names to reflect changes in
  94. --- 473,481 ----
  95.       - Undocumented original internal (to RMIT) version.
  96.   
  97.   
  98. ! *
  99. ! * CHANGELOG for _to_ v3.1 and before.
  100. ! *
  101.   
  102.       3.1, 930715
  103.       - changed a couple of global variable names to reflect changes in
  104. diff -c /r/staff/lm/src/casu-3.3/FLON.rof ./FLON.rof
  105. *** /r/staff/lm/src/casu-3.3/FLON.rof    Tue Dec 21 14:52:44 1993
  106. --- ./FLON.rof    Thu Dec 23 12:35:39 1993
  107. ***************
  108. *** 8,14 ****
  109.   .\" To format this manual page, format it through a `tbl' compatible
  110.   .\" filter, then through an nroff or troff compatible formatter.
  111.   .\"
  112. ! .TH FLON 1 "December 21 1993"
  113.   .SH NAME
  114.   flon \- show which of your friends are logged on
  115.   .SH SYNOPSIS
  116. --- 8,14 ----
  117.   .\" To format this manual page, format it through a `tbl' compatible
  118.   .\" filter, then through an nroff or troff compatible formatter.
  119.   .\"
  120. ! .TH FLON 1 "December 23 1993"
  121.   .SH NAME
  122.   flon \- show which of your friends are logged on
  123.   .SH SYNOPSIS
  124. ***************
  125. *** 541,544 ****
  126.   .SH VERSION
  127.   This manual documents
  128.   .I flon
  129. ! version 3.3, 931221.
  130. --- 541,544 ----
  131.   .SH VERSION
  132.   This manual documents
  133.   .I flon
  134. ! version 3.3.1, 931223.
  135. diff -c /r/staff/lm/src/casu-3.3/Makefile.in ./Makefile.in
  136. *** /r/staff/lm/src/casu-3.3/Makefile.in    Tue Dec 21 17:12:20 1993
  137. --- ./Makefile.in    Thu Dec 23 12:35:52 1993
  138. ***************
  139. *** 1,8 ****
  140.   #
  141.   # CaSU Makefile
  142.   #
  143. ! # Version: 3.3
  144. ! # Written 931221 by Luke Mewburn <lm@rmit.edu.au>
  145.   #
  146.   
  147.   
  148. --- 1,8 ----
  149.   #
  150.   # CaSU Makefile
  151.   #
  152. ! # Version: 3.3.1
  153. ! # Written 931223 by Luke Mewburn <lm@rmit.edu.au>
  154.   #
  155.   
  156.   
  157. ***************
  158. *** 62,75 ****
  159.   CFLAGS = -O
  160.   #CFLAGS = -pipe -Wall -O        # gcc <2.0
  161.   #CFLAGS = -pipe -Wall -O2        # gcc 2.0+
  162.   LDFLAGS =
  163.   
  164.   
  165.   # Manual formatting directives - if necessary, change to suit.
  166.   ROFF = @ROFF@
  167.   TBL = @TBL@
  168. - #ROFF =            # set to this if you don't want to format man pages
  169. - #TBL = cat        # set to this if you don't have tbl
  170.   
  171.   
  172.   # Destination directories & files
  173. --- 62,74 ----
  174.   CFLAGS = -O
  175.   #CFLAGS = -pipe -Wall -O        # gcc <2.0
  176.   #CFLAGS = -pipe -Wall -O2        # gcc 2.0+
  177.   LDFLAGS =
  178.   
  179.   
  180.   # Manual formatting directives - if necessary, change to suit.
  181.   ROFF = @ROFF@
  182.   TBL = @TBL@
  183.   
  184.   
  185.   # Destination directories & files
  186. ***************
  187. *** 78,90 ****
  188.   exec_prefix = $(prefix)
  189.   binprefix =
  190.   manprefix =
  191.   
  192.   bindir = $(exec_prefix)/bin
  193.   libdir = /etc
  194. ! mandir = $(prefix)/man/cat1
  195. ! manext = 0
  196. ! #mandir = $(prefix)/man/man1    # set to this if the man pages are to be
  197. ! #manext = 1            # installed as nroff source.
  198.   
  199.   # Set who_prog to empty if you don't want flon linked to who
  200.   who_prog = who
  201. --- 77,90 ----
  202.   exec_prefix = $(prefix)
  203.   binprefix =
  204.   manprefix =
  205. + catprefix =
  206.   
  207.   bindir = $(exec_prefix)/bin
  208.   libdir = /etc
  209. ! mandir = $(prefix)/man/man1
  210. ! manext = 1
  211. ! catdir = $(prefix)/cat/cat1
  212. ! catext = 0
  213.   
  214.   # Set who_prog to empty if you don't want flon linked to who
  215.   who_prog = who
  216. ***************
  217. *** 108,114 ****
  218.   SRCS =    $(FSRCS) $(TSRCS) $(LSRCS)
  219.   OBJS =    $(FOBJS) $(TOBJS) $(LOBJS)
  220.   
  221. ! HDRS = casu.h
  222.   
  223.   DISTFILES = $(SRCS) $(HDRS) COPYING ChangeLog Makefile.in \
  224.           INSTALL README __TODO__ TO.rof FLON.rof \
  225. --- 108,114 ----
  226.   SRCS =    $(FSRCS) $(TSRCS) $(LSRCS)
  227.   OBJS =    $(FOBJS) $(TOBJS) $(LOBJS)
  228.   
  229. ! HDRS = casu.h patchlevel.h
  230.   
  231.   DISTFILES = $(SRCS) $(HDRS) COPYING ChangeLog Makefile.in \
  232.           INSTALL README __TODO__ TO.rof FLON.rof \
  233. ***************
  234. *** 117,149 ****
  235.   
  236.   all: @PROGS@
  237.   
  238. ! man:    flon.doc to.doc
  239. ! flon.doc: FLON.rof
  240. !     if test -n "$(ROFF)"; then \
  241. !         $(TBL) FLON.rof | $(ROFF) > $@; \
  242. !     else \
  243. !         cp FLON.rof $@; \
  244. !     fi
  245. ! to.doc: TO.rof
  246. !     if test -n "$(ROFF)"; then \
  247. !         $(TBL) TO.rof | $(ROFF) > $@; \
  248. !     else \
  249. !         cp TO.rof $@; \
  250. !     fi
  251.   
  252.   .c.o:
  253.       $(CC) -c $(CFLAGS) $(CPPFLAGS) $(DEFS) -I$(srcdir) $<
  254.   
  255. ! inctree:
  256. !     inctree $(DEFS) $(SRCS)
  257. ! $(OBJS):    $(HDRS)
  258. ! install: all man
  259.       $(INSTALL_PROGRAM) flon $(bindir)/$(binprefix)flon
  260.       if test -n "$(who_prog)"; then \
  261.           rm -f $(bindir)/$(binprefix)$(who_prog); \
  262. --- 117,128 ----
  263.   
  264.   all: @PROGS@
  265.   
  266. ! $(OBJS):    $(HDRS)
  267.   
  268.   .c.o:
  269.       $(CC) -c $(CFLAGS) $(CPPFLAGS) $(DEFS) -I$(srcdir) $<
  270.   
  271. ! install: all
  272.       $(INSTALL_PROGRAM) flon $(bindir)/$(binprefix)flon
  273.       if test -n "$(who_prog)"; then \
  274.           rm -f $(bindir)/$(binprefix)$(who_prog); \
  275. ***************
  276. *** 151,162 ****
  277.       fi
  278.       $(INSTALL_PROGRAM) to $(bindir)/$(binprefix)to
  279.       if test -n "$(to_group)"; then \
  280. !         echo "Installing to setgid to group $(to_group)" \
  281.           chgrp $(to_group) $(bindir)/$(binprefix)to; \
  282.           chmod g+s $(bindir)/$(binprefix)to; \
  283.       fi
  284. !     $(INSTALL_DATA) $(srcdir)/flon.doc $(mandir)/$(manprefix)flon.$(manext)
  285. !     $(INSTALL_DATA) $(srcdir)/to.doc $(mandir)/$(manprefix)to.$(manext)
  286.   
  287.   
  288.   flon: $(FOBJS)
  289. --- 130,147 ----
  290.       fi
  291.       $(INSTALL_PROGRAM) to $(bindir)/$(binprefix)to
  292.       if test -n "$(to_group)"; then \
  293. !         echo "Installing _to_ setgid to group $(to_group)"; \
  294.           chgrp $(to_group) $(bindir)/$(binprefix)to; \
  295.           chmod g+s $(bindir)/$(binprefix)to; \
  296.       fi
  297. ! install.man:
  298. !     $(INSTALL_DATA) $(srcdir)/FLON.rof $(mandir)/$(manprefix)flon.$(manext)
  299. !     $(INSTALL_DATA) $(srcdir)/TO.rof $(mandir)/$(manprefix)to.$(manext)
  300. ! install.catman:    catman
  301. !     $(INSTALL_DATA) $(srcdir)/flon.0 $(catdir)/$(catprefix)flon.$(catext)
  302. !     $(INSTALL_DATA) $(srcdir)/to.0 $(catdir)/$(catprefix)to.$(catext)
  303.   
  304.   
  305.   flon: $(FOBJS)
  306. ***************
  307. *** 170,176 ****
  308.       $(CC) $(LDFLAGS) $(TOBJS) $(LIBS) -o $@
  309.   
  310.   
  311. ! tags: $(SRCS)
  312.       ctags $(SRCS)
  313.   
  314.   clean:
  315. --- 155,180 ----
  316.       $(CC) $(LDFLAGS) $(TOBJS) $(LIBS) -o $@
  317.   
  318.   
  319. ! catman:    flon.0 to.0
  320. ! flon.0: FLON.rof
  321. !     if test -n "$(ROFF)"; then \
  322. !         $(TBL) FLON.rof | $(ROFF) > $@; \
  323. !     else \
  324. !         cp FLON.rof $@; \
  325. !     fi
  326. ! to.0: TO.rof
  327. !     if test -n "$(ROFF)"; then \
  328. !         $(TBL) TO.rof | $(ROFF) > $@; \
  329. !     else \
  330. !         cp TO.rof $@; \
  331. !     fi
  332. ! inctree:
  333. !     inctree $(DEFS) $(SRCS)
  334. ! TAGS: $(SRCS)
  335.       ctags $(SRCS)
  336.   
  337.   clean:
  338. ***************
  339. *** 182,188 ****
  340.       rm -f Makefile config.status @PROGS@ $(who_prog)
  341.   
  342.   realclean: distclean
  343. !     rm -f tags flon.doc to.doc
  344.   
  345.   dist:    $(DISTFILES)
  346.       echo `pwd` | sed 's|.*/||' > .fname
  347. --- 186,192 ----
  348.       rm -f Makefile config.status @PROGS@ $(who_prog)
  349.   
  350.   realclean: distclean
  351. !     rm -f tags flon.0 to.0
  352.   
  353.   dist:    $(DISTFILES)
  354.       echo `pwd` | sed 's|.*/||' > .fname
  355. diff -c /r/staff/lm/src/casu-3.3/NEWS ./NEWS
  356. *** /r/staff/lm/src/casu-3.3/NEWS    Tue Dec 21 16:53:19 1993
  357. --- ./NEWS    Thu Dec 23 12:43:24 1993
  358. ***************
  359. *** 1,8 ****
  360.   User visible changes in CaSU.
  361.   
  362. ! Current version: 3.3
  363.   See the file ChangeLog for details of all changes.
  364.   
  365.   Major changes from 3.2.2 to 3.3:
  366.   * flon: support for machines that run YP/NIS and use a different
  367.     getpwent() added.
  368. --- 1,11 ----
  369.   User visible changes in CaSU.
  370.   
  371. ! Current version: 3.3.1
  372.   See the file ChangeLog for details of all changes.
  373.   
  374. + Major changes from 3.3 to 3.3.1:
  375. + * improved installation instructions and manual page installation
  376.   Major changes from 3.2.2 to 3.3:
  377.   * flon: support for machines that run YP/NIS and use a different
  378.     getpwent() added.
  379. diff -c /r/staff/lm/src/casu-3.3/README ./README
  380. *** /r/staff/lm/src/casu-3.3/README    Tue Dec 21 17:10:23 1993
  381. --- ./README    Thu Dec 23 12:35:11 1993
  382. ***************
  383. *** 1,5 ****
  384. --- 1,9 ----
  385.   CaSU -- communications & status utilities.
  386.   
  387. + Intro:
  388. + ------
  389.   CaSU is a collection of programs for communicating with, and showing
  390.   the status of, other users (especially your friends). The package
  391.   currently consists of:
  392. ***************
  393. *** 18,30 ****
  394.   Refer to the manual (source form is `TO.rof') for more details.
  395.   
  396.   
  397. ! CaSU 3.3 has successfully been ported (in that the author has personally
  398. ! tested the auto-configured scripts) to the following architectures:
  399. !     A/UX 3.0, NetBSD 0.8, Solaris 2, SunOS 4.1.3, Umax 2.4
  400. ! Flon and To (at various stages of their development) have also been
  401. ! ported to the following architectures: (and theoretically should still
  402. ! work without problems)
  403. !     386BSD 0.1, AIX, Dynix, Irix 4, Linux, SCO Unix, SVR4 (non-Solaris)
  404.   
  405.   _to_ may need to be installed by the system administrator if your system
  406.   limits who can access a user's tty. During configuration, if a message
  407. --- 22,43 ----
  408.   Refer to the manual (source form is `TO.rof') for more details.
  409.   
  410.   
  411. ! Quick Installation Notes:
  412. ! -------------------------
  413. ! From your favourite shell, run:
  414. !     sh ./configure
  415. !     make
  416. !     make install
  417. !     make install.man
  418. ! Some people may wish to install the manual pages formatted. If this
  419. ! is the case, type:
  420. !     make install.catman
  421. ! By default, _flon_ will install a hardlink to itself with the name of
  422. ! `who' (to use _flon_ as who). If you don't want this behaviour, modify
  423. ! the Makefile and clear the `who_prog =' variable.
  424.   
  425.   _to_ may need to be installed by the system administrator if your system
  426.   limits who can access a user's tty. During configuration, if a message
  427. ***************
  428. *** 33,50 ****
  429.       - `to' is setgid to group 5
  430.   appears, then this is the case.
  431.   
  432. - Some people may wish to install the manual pages unformatted. If this
  433. - is the case, clear the `ROFF =' variable in the Makefile, and the
  434. - Makefile will determine that you wish to install them unformatted.
  435. - In this case, you may wish to change the manual destination directory
  436. - and extensions to man1 and 1 respectively (from cat1 and 0 respectively.)
  437.   
  438. ! By default, _flon_ will install a hardlink to itself with the name of
  439. ! `who' (to use _flon_ as who). If you don't want this behaviour, modify
  440. ! the Makefile and clear the `who_prog =' variable.
  441.   
  442.   
  443. ! Future enhancements currently being considered include:
  444.   - addition of a calendar program
  445.   - enhance package to become the rcaid (remote communications and
  446.     interactive diary) currently being designed by myself and
  447. --- 46,63 ----
  448.       - `to' is setgid to group 5
  449.   appears, then this is the case.
  450.   
  451.   
  452. ! CaSU 3.3.1 has successfully been ported (in that the author has personally
  453. ! tested the auto-configured scripts) to the following architectures:
  454. !     A/UX 3.0, NetBSD 0.0, Solaris 2, SunOS 4.1.3, Umax 2.4
  455. ! Flon and To (at various stages of their development) have also been
  456. ! ported to the following architectures: (and theoretically should still
  457. ! work without problems)
  458. !     386BSD 0.1, AIX, Dynix, Irix 4, Linux, SCO Unix, SVR4 (non-Solaris)
  459.   
  460.   
  461. ! Future enhancements:
  462. ! --------------------
  463.   - addition of a calendar program
  464.   - enhance package to become the rcaid (remote communications and
  465.     interactive diary) currently being designed by myself and
  466. ***************
  467. *** 59,62 ****
  468.   accepted by the author, who may be contacted via email at:
  469.       <lm@rmit.edu.au>
  470.   
  471. ! Luke Mewburn, 931221.
  472. --- 72,75 ----
  473.   accepted by the author, who may be contacted via email at:
  474.       <lm@rmit.edu.au>
  475.   
  476. ! Luke Mewburn, 931223.
  477. diff -c /r/staff/lm/src/casu-3.3/TO.rof ./TO.rof
  478. *** /r/staff/lm/src/casu-3.3/TO.rof    Tue Dec 21 10:51:32 1993
  479. --- ./TO.rof    Thu Dec 23 12:35:59 1993
  480. ***************
  481. *** 8,14 ****
  482.   .\" To format this manual page, format it through a `tbl' compatible
  483.   .\" filter, then through an nroff or troff compatible formatter.
  484.   .\"
  485. ! .TH TO 1 "December 21 1993"
  486.   .SH NAME
  487.   to \- send a one line message to another user.
  488.   .SH SYNOPSIS
  489. --- 8,14 ----
  490.   .\" To format this manual page, format it through a `tbl' compatible
  491.   .\" filter, then through an nroff or troff compatible formatter.
  492.   .\"
  493. ! .TH TO 1 "December 23 1993"
  494.   .SH NAME
  495.   to \- send a one line message to another user.
  496.   .SH SYNOPSIS
  497. ***************
  498. *** 341,344 ****
  499.   .SH VERSION
  500.   This manual documents
  501.   .I to
  502. ! version 3.3, 931221.
  503. --- 341,344 ----
  504.   .SH VERSION
  505.   This manual documents
  506.   .I to
  507. ! version 3.3.1, 931223.
  508. diff -c /r/staff/lm/src/casu-3.3/__TODO__ ./__TODO__
  509. *** /r/staff/lm/src/casu-3.3/__TODO__    Tue Dec 21 16:43:41 1993
  510. --- ./__TODO__    Thu Dec 23 12:51:38 1993
  511. ***************
  512. *** 1,5 ****
  513.   - hunt and perform genocide upon the remaining bugs (there must be a few.)
  514.   
  515.   - ultrix barfs on chmod in sys/stat.h & getpwuid in pwd.h
  516. - - release as v3.3 to comp.sources.misc
  517. --- 1,3 ----
  518. Only in .: casu-3.3.patch01
  519. diff -c /r/staff/lm/src/casu-3.3/configure ./configure
  520. *** /r/staff/lm/src/casu-3.3/configure    Tue Dec 21 16:44:10 1993
  521. --- ./configure    Thu Dec 23 12:42:48 1993
  522. ***************
  523. *** 652,658 ****
  524.       if (!(x = ttyname(0))) exit(1);
  525.       if (stat(x, &sb)) exit(1);
  526.       om = sb.st_mode;
  527. !     if (chmod(x, om & ~0x077)) exit(1);
  528.       m = system("mesg y");
  529.       if (m == -1 || m == 127) exit(1);
  530.       if (stat(x, &sb)) exit(1);
  531. --- 652,658 ----
  532.       if (!(x = ttyname(0))) exit(1);
  533.       if (stat(x, &sb)) exit(1);
  534.       om = sb.st_mode;
  535. !     if (chmod(x, om & ~077)) exit(1);
  536.       m = system("mesg y");
  537.       if (m == -1 || m == 127) exit(1);
  538.       if (stat(x, &sb)) exit(1);
  539. diff -c /r/staff/lm/src/casu-3.3/configure.in ./configure.in
  540. *** /r/staff/lm/src/casu-3.3/configure.in    Tue Dec 21 12:15:18 1993
  541. --- ./configure.in    Thu Dec 23 12:36:05 1993
  542. ***************
  543. *** 1,8 ****
  544.   dnl
  545.   dnl Process this file with autoconf to produce a configure script.
  546.   dnl
  547. ! dnl Part of the CaSU package, v3.3
  548. ! dnl Written by Luke Mewburn <lm@rmit.edu.au>, 931221
  549.   dnl
  550.   dnl
  551.   dnl
  552. --- 1,8 ----
  553.   dnl
  554.   dnl Process this file with autoconf to produce a configure script.
  555.   dnl
  556. ! dnl Part of the CaSU package, v3.3.1
  557. ! dnl Written by Luke Mewburn <lm@rmit.edu.au>, 931223
  558.   dnl
  559.   dnl
  560.   dnl
  561. ***************
  562. *** 58,64 ****
  563.       if (!(x = ttyname(0))) exit(1);
  564.       if (stat(x, &sb)) exit(1);
  565.       om = sb.st_mode;
  566. !     if (chmod(x, om & ~0x077)) exit(1);
  567.       m = system("mesg y");
  568.       if (m == -1 || m == 127) exit(1);
  569.       if (stat(x, &sb)) exit(1);
  570. --- 58,64 ----
  571.       if (!(x = ttyname(0))) exit(1);
  572.       if (stat(x, &sb)) exit(1);
  573.       om = sb.st_mode;
  574. !     if (chmod(x, om & ~077)) exit(1);
  575.       m = system("mesg y");
  576.       if (m == -1 || m == 127) exit(1);
  577.       if (stat(x, &sb)) exit(1);
  578. diff -c /r/staff/lm/src/casu-3.3/init.c ./init.c
  579. *** /r/staff/lm/src/casu-3.3/init.c    Tue Dec 21 14:18:49 1993
  580. --- ./init.c    Wed Dec 22 16:25:25 1993
  581. ***************
  582. *** 263,274 ****
  583.       {
  584.           fprintf(stderr, "\
  585.   \n\
  586. ! %s version %s.\n\
  587.   Copyright (C) 1992, 1993 Luke Mewburn.\n\
  588.   Email: <lm@rmit.edu.au>\n\
  589.   This is free software, and you are welcome to redistribute it under certain\n\
  590.   conditions. See version 2 of the GNU Public License for more details.\n\
  591. ! ", progname, VERSION);
  592.           exit(0);
  593.       }
  594.       exit(1);
  595. --- 263,274 ----
  596.       {
  597.           fprintf(stderr, "\
  598.   \n\
  599. ! %s version %s, %s.\n\
  600.   Copyright (C) 1992, 1993 Luke Mewburn.\n\
  601.   Email: <lm@rmit.edu.au>\n\
  602.   This is free software, and you are welcome to redistribute it under certain\n\
  603.   conditions. See version 2 of the GNU Public License for more details.\n\
  604. ! ", progname, VERSION, RELDATE);
  605.           exit(0);
  606.       }
  607.       exit(1);
  608. Only in .: patchlevel.h
  609. diff -c /r/staff/lm/src/casu-3.3/to.c ./to.c
  610. *** /r/staff/lm/src/casu-3.3/to.c    Tue Dec 21 10:49:40 1993
  611. --- ./to.c    Wed Dec 22 16:25:49 1993
  612. ***************
  613. *** 470,481 ****
  614.       {
  615.           fprintf(stderr, "\
  616.   \n\
  617. ! %s version %s.\n\
  618.   Copyright (C) 1993 Luke Mewburn\n\
  619.   Email: <lm@rmit.edu.au>\n\
  620.   This is free software, and you are welcome to redistribute it under certain\n\
  621.   conditions. See version 2 of the GNU Public License for more details.\n\
  622. ! ", progname, VERSION);
  623.       }
  624.       exit((flags & ERROR ) != 0);
  625.       }
  626. --- 470,481 ----
  627.       {
  628.           fprintf(stderr, "\
  629.   \n\
  630. ! %s version %s, %s.\n\
  631.   Copyright (C) 1993 Luke Mewburn\n\
  632.   Email: <lm@rmit.edu.au>\n\
  633.   This is free software, and you are welcome to redistribute it under certain\n\
  634.   conditions. See version 2 of the GNU Public License for more details.\n\
  635. ! ", progname, VERSION, RELDATE);
  636.       }
  637.       exit((flags & ERROR ) != 0);
  638.       }
  639.  
  640. -- 
  641. ``Concealment is never as hard as people think, you          Luke Mewburn
  642.   must understand that. It's action while hiding that's    <lm@rmit.edu.au>
  643.   the hard part''
  644.         -- Coyote, in Kim Stanley Robinson's `Green Mars'
  645.  
  646. exit 0 # Just in case...
  647.