home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume41 / casu / part01 < prev    next >
Encoding:
Text File  |  1994-01-09  |  55.3 KB  |  2,213 lines
  1. Newsgroups: comp.sources.misc
  2. From: lm@rmit.edu.au (Luke Mewburn)
  3. Subject: v41i076:  casu - comms. & status utils, v3.3, Part01/04
  4. Message-ID: <csm-v41i076=casu.205241@sparky.Sterling.COM>
  5. X-Md4-Signature: 12cdd896e2596a898054f943de9a358f
  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:52:58 GMT
  10. Approved: kent@sparky.sterling.com
  11.  
  12. Submitted-by: lm@rmit.edu.au (Luke Mewburn)
  13. Posting-number: Volume 41, Issue 76
  14. Archive-name: casu/part01
  15. Environment: UNIX, ANSI-C
  16.  
  17. CaSU -- communications & status utilities.
  18.  
  19. CaSU is a collection of programs for communicating with, and showing
  20. the status of, other users (especially your friends). The package
  21. currently consists of:
  22.     flon --    lists your friends who are logged on
  23.     to --    sends a short message to another user
  24.  
  25.  _flon_ uses the `$HOME/.friends' file to instruct it on which users to
  26. selectively display.  The file eg.friends contains sample information.
  27. The $FLON environment variable is also used by _flon_.  Refer to the
  28. manual (source form is `FLON.rof') for more details.
  29.  
  30.  _to_ uses the `$HOME/.torc' file to store various parameters.  The
  31. various settings in this text file can either be directly edited,
  32. or set via command line options.  The eg.torc file contains a sample. 
  33. Refer to the manual (source form is `TO.rof') for more details.
  34.  
  35. CaSU 3.3 has successfully been ported (in that the author has personally
  36. tested the auto-configured scripts) to the following architectures:
  37.     A/UX 3.0, NetBSD 0.8, Solaris 2, SunOS 4.1.3, Umax 2.4
  38. Flon and To (at various stages of their development) have also been
  39. ported to the following architectures: (and theoretically should still
  40. work without problems)
  41.     386BSD 0.1, AIX, Dynix, Irix 4, Linux, SCO Unix, SVR4 (non-Solaris)
  42.  
  43.  _to_ may need to be installed by the system administrator if your system
  44. limits who can access a user's tty. During configuration, if a message
  45. such as:
  46.     checking mesg y permissions
  47.     - `to' is setgid to group 5
  48. appears, then this is the case.
  49.  
  50. Some people may wish to install the manual pages unformatted. If this
  51. is the case, clear the `ROFF =' variable in the Makefile, and the
  52. Makefile will determine that you wish to install them unformatted.
  53. In this case, you may wish to change the manual destination directory
  54. and extensions to man1 and 1 respectively (from cat1 and 0 respectively.)
  55.  
  56. By default, _flon_ will install a hardlink to itself with the name of
  57. `who' (to use _flon_ as who). If you don't want this behaviour, modify
  58. the Makefile and clear the `who_prog =' variable.
  59.  
  60. Future enhancements currently being considered include:
  61.  - addition of a calendar program
  62.  - enhance package to become the rcaid (remote communications and
  63.   interactive diary) currently being designed by myself and
  64.   Andrew Vanderstock, which contains the following subsystems:
  65.     - remote to (``rto'')
  66.     - remote flon (``rlon'')
  67.     - remote calendar (``rcal'')
  68.     - remote pin-board (``rpin'')
  69.  
  70. Bug reports, fixes, suggestions, and enhancements would be gratefully
  71. accepted by the author, who may be contacted via email at:
  72.     <lm@rmit.edu.au>
  73.  
  74. Luke Mewburn
  75. ----
  76. #! /bin/sh
  77. # This is a shell archive.  Remove anything before this line, then feed it
  78. # into a shell via "sh file" or similar.  To overwrite existing files,
  79. # type "sh file -c".
  80. # Contents:  casu-3.3 casu-3.3/configure casu-3.3/to.c
  81. # Wrapped by kent@sparky on Sun Jan  9 20:46:38 1994
  82. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin:$PATH ; export PATH
  83. echo If this archive is complete, you will see the following message:
  84. echo '          "shar: End of archive 1 (of 4)."'
  85. if test ! -d 'casu-3.3' ; then
  86.     echo shar: Creating directory \"'casu-3.3'\"
  87.     mkdir 'casu-3.3'
  88. fi
  89. if test -f 'casu-3.3/configure' -a "${1}" != "-c" ; then 
  90.   echo shar: Will not clobber existing file \"'casu-3.3/configure'\"
  91. else
  92.   echo shar: Extracting \"'casu-3.3/configure'\" \(27563 characters\)
  93.   sed "s/^X//" >'casu-3.3/configure' <<'END_OF_FILE'
  94. X#!/bin/sh
  95. X# Guess values for system-dependent variables and create Makefiles.
  96. X# Generated automatically using autoconf.
  97. X# Copyright (C) 1991, 1992, 1993 Free Software Foundation, Inc.
  98. X
  99. X# This program is free software; you can redistribute it and/or modify
  100. X# it under the terms of the GNU General Public License as published by
  101. X# the Free Software Foundation; either version 2, or (at your option)
  102. X# any later version.
  103. X
  104. X# This program is distributed in the hope that it will be useful,
  105. X# but WITHOUT ANY WARRANTY; without even the implied warranty of
  106. X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  107. X# GNU General Public License for more details.
  108. X
  109. X# You should have received a copy of the GNU General Public License
  110. X# along with this program; if not, write to the Free Software
  111. X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  112. X
  113. X# Usage: configure [--srcdir=DIR] [--host=HOST] [--gas] [--nfp]
  114. X#        [--prefix=PREFIX] [--exec-prefix=PREFIX] [--with-PACKAGE[=VALUE]]
  115. X# Ignores all args except --srcdir, --prefix, --exec-prefix, and
  116. X# --with-PACKAGE[=VALUE] unless this script has special code to handle it.
  117. X
  118. Xfor arg
  119. Xdo
  120. X  # Handle --exec-prefix with a space before the argument.
  121. X  if test x$next_exec_prefix = xyes; then exec_prefix=$arg; next_exec_prefix=
  122. X  # Handle --host with a space before the argument.
  123. X  elif test x$next_host = xyes; then next_host=
  124. X  # Handle --prefix with a space before the argument.
  125. X  elif test x$next_prefix = xyes; then prefix=$arg; next_prefix=
  126. X  # Handle --srcdir with a space before the argument.
  127. X  elif test x$next_srcdir = xyes; then srcdir=$arg; next_srcdir=
  128. X  else
  129. X    case $arg in
  130. X     # For backward compatibility, recognize -exec-prefix and --exec_prefix.
  131. X     -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* | --exec=* | --exe=* | --ex=* | --e=*)
  132. X    exec_prefix=`echo $arg | sed 's/[-a-z_]*=//'` ;;
  133. X     -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- | --exec | --exe | --ex | --e)
  134. X    next_exec_prefix=yes ;;
  135. X
  136. X     -gas | --gas | --ga | --g) ;;
  137. X
  138. X     -host=* | --host=* | --hos=* | --ho=* | --h=*) ;;
  139. X     -host | --host | --hos | --ho | --h)
  140. X    next_host=yes ;;
  141. X
  142. X     -nfp | --nfp | --nf) ;;
  143. X
  144. X     -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
  145. X    prefix=`echo $arg | sed 's/[-a-z_]*=//'` ;;
  146. X     -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
  147. X    next_prefix=yes ;;
  148. X
  149. X     -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=* | --s=*)
  150. X    srcdir=`echo $arg | sed 's/[-a-z_]*=//'` ;;
  151. X     -srcdir | --srcdir | --srcdi | --srcd | --src | --sr | --s)
  152. X    next_srcdir=yes ;;
  153. X
  154. X     -with-* | --with-*)
  155. X       package=`echo $arg|sed -e 's/-*with-//' -e 's/=.*//'`
  156. X       # Reject names that aren't valid shell variable names.
  157. X       if test -n "`echo $package| sed 's/[-a-zA-Z0-9_]//g'`"; then
  158. X         echo "configure: $package: invalid package name" >&2; exit 1
  159. X       fi
  160. X       package=`echo $package| sed 's/-/_/g'`
  161. X       case "$arg" in
  162. X         *=*) val="`echo $arg|sed 's/[^=]*=//'`" ;;
  163. X         *) val=1 ;;
  164. X       esac
  165. X       eval "with_$package='$val'" ;;
  166. X
  167. X     -v | -verbose | --verbose | --verbos | --verbo | --verb | --ver | --ve | --v)
  168. X       verbose=yes ;;
  169. X
  170. X     *) ;;
  171. X    esac
  172. X  fi
  173. Xdone
  174. X
  175. Xtrap 'rm -fr conftest* confdefs* core; exit 1' 1 3 15
  176. Xtrap 'rm -f confdefs*' 0
  177. X
  178. X# NLS nuisances.
  179. X# These must not be set unconditionally because not all systems understand
  180. X# e.g. LANG=C (notably SCO).
  181. Xif test "${LC_ALL+set}" = 'set' ; then LC_ALL=C; export LC_ALL; fi
  182. Xif test "${LANG+set}"   = 'set' ; then LANG=C;   export LANG;   fi
  183. X
  184. Xrm -f conftest* confdefs.h
  185. X# AIX cpp loses on an empty file, so make sure it contains at least a newline.
  186. Xecho > confdefs.h
  187. Xcompile='${CC-cc} $CFLAGS conftest.c -o conftest $LIBS >/dev/null 2>&1'
  188. X
  189. X# A filename unique to this package, relative to the directory that
  190. X# configure is in, which we can look for to find out if srcdir is correct.
  191. Xunique_file=casu.h
  192. X
  193. X# Find the source files, if location was not specified.
  194. Xif test -z "$srcdir"; then
  195. X  srcdirdefaulted=yes
  196. X  # Try the directory containing this script, then `..'.
  197. X  prog=$0
  198. X  confdir=`echo $prog|sed 's%/[^/][^/]*$%%'`
  199. X  test "X$confdir" = "X$prog" && confdir=.
  200. X  srcdir=$confdir
  201. X  if test ! -r $srcdir/$unique_file; then
  202. X    srcdir=..
  203. X  fi
  204. Xfi
  205. Xif test ! -r $srcdir/$unique_file; then
  206. X  if test x$srcdirdefaulted = xyes; then
  207. X    echo "configure: Can not find sources in \`${confdir}' or \`..'." 1>&2
  208. X  else
  209. X    echo "configure: Can not find sources in \`${srcdir}'." 1>&2
  210. X  fi
  211. X  exit 1
  212. Xfi
  213. X# Preserve a srcdir of `.' to avoid automounter screwups with pwd.
  214. X# But we can't avoid them for `..', to make subdirectories work.
  215. Xcase $srcdir in
  216. X  .|/*|~*) ;;
  217. X  *) srcdir=`cd $srcdir; pwd` ;; # Make relative path absolute.
  218. Xesac
  219. X
  220. X
  221. X# Save the original args to write them into config.status later.
  222. Xconfigure_args="$*"
  223. X
  224. XPROGS="flon to"
  225. Xif test -z "$CC"; then
  226. X  # Extract the first word of `gcc', so it can be a program name with args.
  227. X  set dummy gcc; word=$2
  228. X  echo checking for $word
  229. X  IFS="${IFS=     }"; saveifs="$IFS"; IFS="${IFS}:"
  230. X  for dir in $PATH; do
  231. X    test -z "$dir" && dir=.
  232. X    if test -f $dir/$word; then
  233. X      CC="gcc"
  234. X      break
  235. X    fi
  236. X  done
  237. X  IFS="$saveifs"
  238. Xfi
  239. Xtest -z "$CC" && CC="cc"
  240. Xtest -n "$CC" && test -n "$verbose" && echo "    setting CC to $CC"
  241. X
  242. X# Find out if we are using GNU C, under whatever name.
  243. Xcat > conftest.c <<EOF
  244. X#ifdef __GNUC__
  245. X  yes
  246. X#endif
  247. XEOF
  248. X${CC-cc} -E conftest.c > conftest.out 2>&1
  249. Xif egrep yes conftest.out >/dev/null 2>&1; then
  250. X  GCC=1 # For later tests.
  251. Xfi
  252. Xrm -f conftest*
  253. X
  254. Xecho checking how to run the C preprocessor
  255. Xif test -z "$CPP"; then
  256. X  # This must be in double quotes, not single quotes, because CPP may get
  257. X  # substituted into the Makefile and ``${CC-cc}'' will simply confuse
  258. X  # make.  It must be expanded now.
  259. X  CPP="${CC-cc} -E"
  260. X  cat > conftest.c <<EOF
  261. X#include "confdefs.h"
  262. X#include <stdio.h>
  263. XSyntax Error
  264. XEOF
  265. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  266. Xif test -z "$err"; then
  267. X  :
  268. Xelse
  269. X  rm -rf conftest*
  270. X  CPP=/lib/cpp
  271. Xfi
  272. Xrm -f conftest*
  273. Xfi
  274. Xtest ".${verbose}" != "." && echo "    setting CPP to $CPP"
  275. X
  276. X# Make sure to not get the incompatible SysV /etc/install and
  277. X# /usr/sbin/install, which might be in PATH before a BSD-like install,
  278. X# or the SunOS /usr/etc/install directory, or the AIX /bin/install,
  279. X# or the AFS install, which mishandles nonexistent args, or
  280. X# /usr/ucb/install on SVR4, which tries to use the nonexistent group
  281. X# `staff'.  On most BSDish systems install is in /usr/bin, not /usr/ucb
  282. X# anyway.  Sigh.
  283. Xif test "z${INSTALL}" = "z" ; then
  284. X  echo checking for install
  285. X  IFS="${IFS=     }"; saveifs="$IFS"; IFS="${IFS}:"
  286. X  for dir in $PATH; do
  287. X    test -z "$dir" && dir=.
  288. X    case $dir in
  289. X    /etc|/usr/sbin|/usr/etc|/usr/afsws/bin|/usr/ucb) ;;
  290. X    *)
  291. X      if test -f $dir/installbsd; then
  292. X    INSTALL="$dir/installbsd -c" # OSF1
  293. X    INSTALL_PROGRAM='$(INSTALL)'
  294. X    INSTALL_DATA='$(INSTALL) -m 644'
  295. X    break
  296. X      fi
  297. X      if test -f $dir/install; then
  298. X    if grep dspmsg $dir/install >/dev/null 2>&1; then
  299. X      : # AIX
  300. X    else
  301. X      INSTALL="$dir/install -c"
  302. X      INSTALL_PROGRAM='$(INSTALL)'
  303. X      INSTALL_DATA='$(INSTALL) -m 644'
  304. X      break
  305. X    fi
  306. X      fi
  307. X      ;;
  308. X    esac
  309. X  done
  310. X  IFS="$saveifs"
  311. Xfi
  312. XINSTALL=${INSTALL-cp}
  313. Xtest -n "$verbose" && echo "    setting INSTALL to $INSTALL"
  314. XINSTALL_PROGRAM=${INSTALL_PROGRAM-'$(INSTALL)'}
  315. Xtest -n "$verbose" && echo "    setting INSTALL_PROGRAM to $INSTALL_PROGRAM"
  316. XINSTALL_DATA=${INSTALL_DATA-'$(INSTALL)'}
  317. Xtest -n "$verbose" && echo "    setting INSTALL_DATA to $INSTALL_DATA"
  318. X
  319. Xecho checking for ln -s
  320. Xrm -f conftestdata
  321. Xif ln -s X conftestdata 2>/dev/null
  322. Xthen
  323. X  rm -f conftestdata
  324. X  LN_S="ln -s"
  325. Xelse
  326. X  LN_S=ln
  327. Xfi
  328. X
  329. X
  330. Xif test -z "$ROFF"; then
  331. X  # Extract the first word of `nroff', so it can be a program name with args.
  332. X  set dummy nroff; word=$2
  333. X  echo checking for $word
  334. X  IFS="${IFS=     }"; saveifs="$IFS"; IFS="${IFS}:"
  335. X  for dir in $PATH; do
  336. X    test -z "$dir" && dir=.
  337. X    if test -f $dir/$word; then
  338. X      ROFF="nroff -man"
  339. X      break
  340. X    fi
  341. X  done
  342. X  IFS="$saveifs"
  343. Xfi
  344. Xtest -z "$ROFF" && ROFF="cat"
  345. Xtest -n "$ROFF" && test -n "$verbose" && echo "    setting ROFF to $ROFF"
  346. X
  347. Xif test -z "$TBL"; then
  348. X  # Extract the first word of `tbl', so it can be a program name with args.
  349. X  set dummy tbl; word=$2
  350. X  echo checking for $word
  351. X  IFS="${IFS=     }"; saveifs="$IFS"; IFS="${IFS}:"
  352. X  for dir in $PATH; do
  353. X    test -z "$dir" && dir=.
  354. X    if test -f $dir/$word; then
  355. X      TBL="tbl"
  356. X      break
  357. X    fi
  358. X  done
  359. X  IFS="$saveifs"
  360. Xfi
  361. Xtest -z "$TBL" && TBL="cat"
  362. Xtest -n "$TBL" && test -n "$verbose" && echo "    setting TBL to $TBL"
  363. X
  364. Xif test -z "$YPWHICH"; then
  365. X  # Extract the first word of `ypwhich', so it can be a program name with args.
  366. X  set dummy ypwhich; word=$2
  367. X  echo checking for $word
  368. X  IFS="${IFS=     }"; saveifs="$IFS"; IFS="${IFS}:"
  369. X  for dir in $PATH; do
  370. X    test -z "$dir" && dir=.
  371. X    if test -f $dir/$word; then
  372. X      YPWHICH="ypwhich"
  373. X      break
  374. X    fi
  375. X  done
  376. X  IFS="$saveifs"
  377. Xfi
  378. Xtest -z "$YPWHICH" && YPWHICH="false"
  379. Xtest -n "$YPWHICH" && test -n "$verbose" && echo "    setting YPWHICH to $YPWHICH"
  380. X
  381. X
  382. Xecho checking for AIX
  383. Xcat > conftest.c <<EOF
  384. X#include "confdefs.h"
  385. X#ifdef _AIX
  386. X  yes
  387. X#endif
  388. X
  389. XEOF
  390. Xeval "$CPP conftest.c > conftest.out 2>&1"
  391. Xif egrep "yes" conftest.out >/dev/null 2>&1; then
  392. X  rm -rf conftest*
  393. X  
  394. X{
  395. Xtest -n "$verbose" && \
  396. Xecho "    defining _ALL_SOURCE"
  397. Xecho "#define" _ALL_SOURCE 1 >> confdefs.h
  398. XDEFS="$DEFS -D_ALL_SOURCE=1"
  399. X}
  400. X
  401. X
  402. Xfi
  403. Xrm -f conftest*
  404. X
  405. X
  406. XLIBS_save="${LIBS}"
  407. XLIBS="${LIBS} -lseq"
  408. Xhave_lib=""
  409. Xecho checking for -lseq
  410. Xcat > conftest.c <<EOF
  411. X#include "confdefs.h"
  412. X
  413. Xint main() { exit(0); }
  414. Xint t() { main(); }
  415. XEOF
  416. Xif eval $compile; then
  417. X  rm -rf conftest*
  418. X  have_lib="1"
  419. X
  420. Xfi
  421. Xrm -f conftest*
  422. XLIBS="${LIBS_save}"
  423. Xif test -n "${have_lib}"; then
  424. X   :; LIBS="$LIBS -lseq"
  425. Xelse
  426. X   :; 
  427. Xfi
  428. X
  429. X
  430. Xecho checking for minix/config.h
  431. Xcat > conftest.c <<EOF
  432. X#include "confdefs.h"
  433. X#include <minix/config.h>
  434. XEOF
  435. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  436. Xif test -z "$err"; then
  437. X  rm -rf conftest*
  438. X  MINIX=1
  439. X
  440. Xfi
  441. Xrm -f conftest*
  442. X
  443. X# The Minix shell can't assign to the same variable on the same line!
  444. Xif test -n "$MINIX"; then
  445. X  
  446. X{
  447. Xtest -n "$verbose" && \
  448. Xecho "    defining _POSIX_SOURCE"
  449. Xecho "#define" _POSIX_SOURCE 1 >> confdefs.h
  450. XDEFS="$DEFS -D_POSIX_SOURCE=1"
  451. X}
  452. X
  453. X  
  454. X{
  455. Xtest -n "$verbose" && \
  456. Xecho "    defining" _POSIX_1_SOURCE to be 2
  457. Xecho "#define" _POSIX_1_SOURCE 2 >> confdefs.h
  458. XDEFS="$DEFS -D_POSIX_1_SOURCE=2"
  459. X}
  460. X
  461. X  
  462. X{
  463. Xtest -n "$verbose" && \
  464. Xecho "    defining _MINIX"
  465. Xecho "#define" _MINIX 1 >> confdefs.h
  466. XDEFS="$DEFS -D_MINIX=1"
  467. X}
  468. X
  469. Xfi
  470. X
  471. Xecho checking for POSIXized ISC
  472. Xif test -d /etc/conf/kconfig.d &&
  473. X  grep _POSIX_VERSION /usr/include/sys/unistd.h >/dev/null 2>&1
  474. Xthen
  475. X  ISC=1 # If later tests want to check for ISC.
  476. X  
  477. X{
  478. Xtest -n "$verbose" && \
  479. Xecho "    defining _POSIX_SOURCE"
  480. Xecho "#define" _POSIX_SOURCE 1 >> confdefs.h
  481. XDEFS="$DEFS -D_POSIX_SOURCE=1"
  482. X}
  483. X
  484. X  if test -n "$GCC"; then
  485. X    CC="$CC -posix"
  486. X  else
  487. X    CC="$CC -Xp"
  488. X  fi
  489. Xfi
  490. X
  491. X
  492. Xecho checking for ANSI C header files
  493. Xcat > conftest.c <<EOF
  494. X#include "confdefs.h"
  495. X#include <stdlib.h>
  496. X#include <stdarg.h>
  497. X#include <string.h>
  498. X#include <float.h>
  499. XEOF
  500. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  501. Xif test -z "$err"; then
  502. X  rm -rf conftest*
  503. X  # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
  504. Xecho '#include "confdefs.h"
  505. X#include <string.h>' > conftest.c
  506. Xeval "$CPP conftest.c > conftest.out 2>&1"
  507. Xif egrep "memchr" conftest.out >/dev/null 2>&1; then
  508. X  rm -rf conftest*
  509. X  # SGI's /bin/cc from Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
  510. Xcat > conftest.c <<EOF
  511. X#include "confdefs.h"
  512. X#include <ctype.h>
  513. X#define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
  514. X#define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
  515. X#define XOR(e,f) (((e) && !(f)) || (!(e) && (f)))
  516. Xint main () { int i; for (i = 0; i < 256; i++)
  517. Xif (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2);
  518. Xexit (0); }
  519. X
  520. XEOF
  521. Xeval $compile
  522. Xif test -s conftest && (./conftest; exit) 2>/dev/null; then
  523. X  
  524. X{
  525. Xtest -n "$verbose" && \
  526. Xecho "    defining STDC_HEADERS"
  527. Xecho "#define" STDC_HEADERS 1 >> confdefs.h
  528. XDEFS="$DEFS -DSTDC_HEADERS=1"
  529. X}
  530. X
  531. X
  532. Xfi
  533. Xrm -fr conftest*
  534. X
  535. Xfi
  536. Xrm -f conftest*
  537. X
  538. X
  539. Xfi
  540. Xrm -f conftest*
  541. X
  542. Xfor hdr in stdlib.h
  543. Xdo
  544. Xtrhdr=HAVE_`echo $hdr | tr '[a-z]./' '[A-Z]__'`
  545. Xecho checking for ${hdr}
  546. Xcat > conftest.c <<EOF
  547. X#include "confdefs.h"
  548. X#include <${hdr}>
  549. XEOF
  550. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  551. Xif test -z "$err"; then
  552. X  rm -rf conftest*
  553. X  
  554. X{
  555. Xtest -n "$verbose" && \
  556. Xecho "    defining ${trhdr}"
  557. Xecho "#define" ${trhdr} 1 >> confdefs.h
  558. XDEFS="$DEFS -D${trhdr}=1"
  559. X}
  560. X
  561. X
  562. Xfi
  563. Xrm -f conftest*
  564. Xdone
  565. X
  566. Xecho checking for uid_t in sys/types.h
  567. Xecho '#include "confdefs.h"
  568. X#include <sys/types.h>' > conftest.c
  569. Xeval "$CPP conftest.c > conftest.out 2>&1"
  570. Xif egrep "uid_t" conftest.out >/dev/null 2>&1; then
  571. X  :
  572. Xelse
  573. X  rm -rf conftest*
  574. X  
  575. X{
  576. Xtest -n "$verbose" && \
  577. Xecho "    defining" uid_t to be int
  578. Xecho "#define" uid_t int >> confdefs.h
  579. XDEFS="$DEFS -Duid_t=int"
  580. X}
  581. X 
  582. X{
  583. Xtest -n "$verbose" && \
  584. Xecho "    defining" gid_t to be int
  585. Xecho "#define" gid_t int >> confdefs.h
  586. XDEFS="$DEFS -Dgid_t=int"
  587. X}
  588. X
  589. Xfi
  590. Xrm -f conftest*
  591. X
  592. Xecho checking for mode_t in sys/types.h
  593. Xecho '#include "confdefs.h"
  594. X#include <sys/types.h>' > conftest.c
  595. Xeval "$CPP conftest.c > conftest.out 2>&1"
  596. Xif egrep "mode_t" conftest.out >/dev/null 2>&1; then
  597. X  :
  598. Xelse
  599. X  rm -rf conftest*
  600. X  
  601. X{
  602. Xtest -n "$verbose" && \
  603. Xecho "    defining" mode_t to be int
  604. Xecho "#define" mode_t int >> confdefs.h
  605. XDEFS="$DEFS -Dmode_t=int"
  606. X}
  607. X
  608. Xfi
  609. Xrm -f conftest*
  610. X
  611. Xecho checking for size_t in sys/types.h
  612. Xecho '#include "confdefs.h"
  613. X#include <sys/types.h>' > conftest.c
  614. Xeval "$CPP conftest.c > conftest.out 2>&1"
  615. Xif egrep "size_t" conftest.out >/dev/null 2>&1; then
  616. X  :
  617. Xelse
  618. X  rm -rf conftest*
  619. X  
  620. X{
  621. Xtest -n "$verbose" && \
  622. Xecho "    defining" size_t to be unsigned
  623. Xecho "#define" size_t unsigned >> confdefs.h
  624. XDEFS="$DEFS -Dsize_t=unsigned"
  625. X}
  626. X
  627. Xfi
  628. Xrm -f conftest*
  629. X
  630. X
  631. Xecho checking whether cross-compiling
  632. X# If we cannot run a trivial program, we must be cross compiling.
  633. Xcat > conftest.c <<EOF
  634. X#include "confdefs.h"
  635. Xmain(){exit(0);}
  636. XEOF
  637. Xeval $compile
  638. Xif test -s conftest && (./conftest; exit) 2>/dev/null; then
  639. X  :
  640. Xelse
  641. X  cross_compiling=1
  642. Xfi
  643. Xrm -fr conftest*
  644. X
  645. Xprog='/* Ultrix mips cc rejects this.  */
  646. Xtypedef int charset[2]; const charset x;
  647. X/* SunOS 4.1.1 cc rejects this.  */
  648. Xchar const *const *ccp;
  649. Xchar **p;
  650. X/* AIX XL C 1.02.0.0 rejects this.
  651. X   It does not let you subtract one const X* pointer from another in an arm
  652. X   of an if-expression whose if-part is not a constant expression */
  653. Xconst char *g = "string";
  654. Xccp = &g + (g ? g-g : 0);
  655. X/* HPUX 7.0 cc rejects these. */
  656. X++ccp;
  657. Xp = (char**) ccp;
  658. Xccp = (char const *const *) p;
  659. X{ /* SCO 3.2v4 cc rejects this.  */
  660. X  char *t;
  661. X  char const *s = 0 ? (char *) 0 : (char const *) 0;
  662. X
  663. X  *t++ = 0;
  664. X}
  665. X{ /* Someone thinks the Sun supposedly-ANSI compiler will reject this.  */
  666. X  int x[] = {25,17};
  667. X  const int *foo = &x[0];
  668. X  ++foo;
  669. X}
  670. X{ /* Sun SC1.0 ANSI compiler rejects this -- but not the above. */
  671. X  typedef const int *iptr;
  672. X  iptr p = 0;
  673. X  ++p;
  674. X}
  675. X{ /* AIX XL C 1.02.0.0 rejects this saying
  676. X     "k.c", line 2.27: 1506-025 (S) Operand must be a modifiable lvalue. */
  677. X  struct s { int j; const int *ap[3]; };
  678. X  struct s *b; b->j = 5;
  679. X}
  680. X{ /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */
  681. X  const int foo = 10;
  682. X}'
  683. Xecho checking for lack of working const
  684. Xcat > conftest.c <<EOF
  685. X#include "confdefs.h"
  686. X
  687. Xint main() { exit(0); }
  688. Xint t() { $prog }
  689. XEOF
  690. Xif eval $compile; then
  691. X  :
  692. Xelse
  693. X  rm -rf conftest*
  694. X  
  695. X{
  696. Xtest -n "$verbose" && \
  697. Xecho "    defining" const to be empty
  698. Xecho "#define" const  >> confdefs.h
  699. XDEFS="$DEFS -Dconst="
  700. X}
  701. X
  702. Xfi
  703. Xrm -f conftest*
  704. X
  705. X
  706. Xecho checking for netdb.h
  707. Xcat > conftest.c <<EOF
  708. X#include "confdefs.h"
  709. X#include <netdb.h>
  710. XEOF
  711. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  712. Xif test -z "$err"; then
  713. X  rm -rf conftest*
  714. X  echo '#include "confdefs.h"
  715. X#include <netdb.h>' > conftest.c
  716. Xeval "$CPP conftest.c > conftest.out 2>&1"
  717. Xif egrep "MAXHOSTNAMELEN" conftest.out >/dev/null 2>&1; then
  718. X  rm -rf conftest*
  719. X  
  720. X{
  721. Xtest -n "$verbose" && \
  722. Xecho "    defining NEED_NETDB_H"
  723. Xecho "#define" NEED_NETDB_H 1 >> confdefs.h
  724. XDEFS="$DEFS -DNEED_NETDB_H=1"
  725. X}
  726. X
  727. X
  728. Xfi
  729. Xrm -f conftest*
  730. X
  731. X
  732. Xfi
  733. Xrm -f conftest*
  734. X
  735. X
  736. Xecho "checking mesg y permissions"
  737. Xcat > conftest.c <<EOF
  738. X#include "confdefs.h"
  739. X
  740. X    #include <sys/types.h>
  741. X    #include <sys/stat.h>
  742. X    #include <stdio.h>
  743. X    main() {
  744. X    struct stat sb; char *x; int om, m; FILE *fp;
  745. X    if (!(x = ttyname(0))) exit(1);
  746. X    if (stat(x, &sb)) exit(1);
  747. X    om = sb.st_mode;
  748. X    if (chmod(x, om & ~077)) exit(1);
  749. X    m = system("mesg y");
  750. X    if (m == -1 || m == 127) exit(1);
  751. X    if (stat(x, &sb)) exit(1);
  752. X    m = sb.st_mode;
  753. X    if (chmod(x, om)) exit(1);
  754. X    if (!(m & 002)) {
  755. X        if (!(fp=fopen("conftest_grp", "w")))
  756. X        exit(1);
  757. X        fprintf(fp, "%d\n", sb.st_gid);
  758. X        fclose(fp);
  759. X    }
  760. X    exit(0);
  761. X    }
  762. X
  763. XEOF
  764. Xeval $compile
  765. Xif test -s conftest && (./conftest; exit) 2>/dev/null; then
  766. X  
  767. X    if test -f conftest_grp; then
  768. X    echo "- 'to' is setgid to group `cat conftest_grp`"
  769. X    
  770. X{
  771. Xtest -n "$verbose" && \
  772. Xecho "    defining TTY_RESTRICTED"
  773. Xecho "#define" TTY_RESTRICTED 1 >> confdefs.h
  774. XDEFS="$DEFS -DTTY_RESTRICTED=1"
  775. X}
  776. X
  777. X    TO_GRP=`cat conftest_grp`
  778. X    else
  779. X    echo "- anyone can write to tty"
  780. X    fi
  781. X
  782. X
  783. Xelse
  784. X  echo "- can't determine - assume anyone can write to tty"
  785. X
  786. Xfi
  787. Xrm -fr conftest*
  788. X    
  789. Xecho "checking for YP/NIS"
  790. Xif $YPWHICH >/dev/null 2>&1; then
  791. X    echo "- running YP, using system getpwent"
  792. X    usegetpw=1
  793. Xelse
  794. X    echo "checking for getpwent db caches"
  795. X    if test -f /etc/passwd.dir || test -f /etc/pwd.db; then
  796. X    echo "- they're there, using system getpwent"
  797. X    usegetpw=1
  798. X    else
  799. X    echo "- unavailable, using own getpwent"
  800. X    fi
  801. Xfi
  802. Xif test -n "$usegetpw"; then
  803. X    
  804. X{
  805. Xtest -n "$verbose" && \
  806. Xecho "    defining USE_GETPWENT"
  807. Xecho "#define" USE_GETPWENT 1 >> confdefs.h
  808. XDEFS="$DEFS -DUSE_GETPWENT=1"
  809. X}
  810. X
  811. Xfi
  812. X
  813. Xecho checking for utmpx.h
  814. Xcat > conftest.c <<EOF
  815. X#include "confdefs.h"
  816. X#include <utmpx.h>
  817. XEOF
  818. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  819. Xif test -z "$err"; then
  820. X  rm -rf conftest*
  821. X  
  822. X{
  823. Xtest -n "$verbose" && \
  824. Xecho "    defining HAVE_UTMPX_H"
  825. Xecho "#define" HAVE_UTMPX_H 1 >> confdefs.h
  826. XDEFS="$DEFS -DHAVE_UTMPX_H=1"
  827. X}
  828. X
  829. X    
  830. X{
  831. Xtest -n "$verbose" && \
  832. Xecho "    defining HAVE_UT_TYPE"
  833. Xecho "#define" HAVE_UT_TYPE 1 >> confdefs.h
  834. XDEFS="$DEFS -DHAVE_UT_TYPE=1"
  835. X}
  836. X
  837. X    
  838. X{
  839. Xtest -n "$verbose" && \
  840. Xecho "    defining HAVE_UT_HOST"
  841. Xecho "#define" HAVE_UT_HOST 1 >> confdefs.h
  842. XDEFS="$DEFS -DHAVE_UT_HOST=1"
  843. X}
  844. X
  845. X
  846. X
  847. Xelse
  848. X  rm -rf conftest*
  849. X  echo "checking for struct utmp.ut_type"
  850. X    echo '#include "confdefs.h"
  851. X#include <utmp.h>' > conftest.c
  852. Xeval "$CPP conftest.c > conftest.out 2>&1"
  853. Xif egrep "ut_type" conftest.out >/dev/null 2>&1; then
  854. X  rm -rf conftest*
  855. X  
  856. X{
  857. Xtest -n "$verbose" && \
  858. Xecho "    defining HAVE_UT_TYPE"
  859. Xecho "#define" HAVE_UT_TYPE 1 >> confdefs.h
  860. XDEFS="$DEFS -DHAVE_UT_TYPE=1"
  861. X}
  862. X
  863. X
  864. Xfi
  865. Xrm -f conftest*
  866. X
  867. X    echo "checking for struct umtp.ut_host"
  868. X    echo '#include "confdefs.h"
  869. X#include <utmp.h>' > conftest.c
  870. Xeval "$CPP conftest.c > conftest.out 2>&1"
  871. Xif egrep "ut_host" conftest.out >/dev/null 2>&1; then
  872. X  rm -rf conftest*
  873. X  
  874. X{
  875. Xtest -n "$verbose" && \
  876. Xecho "    defining HAVE_UT_HOST"
  877. Xecho "#define" HAVE_UT_HOST 1 >> confdefs.h
  878. XDEFS="$DEFS -DHAVE_UT_HOST=1"
  879. X}
  880. X
  881. X
  882. Xfi
  883. Xrm -f conftest*
  884. X
  885. X
  886. Xfi
  887. Xrm -f conftest*
  888. X
  889. X
  890. XLIBS_save="${LIBS}"
  891. XLIBS="${LIBS} -lnsl"
  892. Xhave_lib=""
  893. Xecho checking for -lnsl
  894. Xcat > conftest.c <<EOF
  895. X#include "confdefs.h"
  896. X
  897. Xint main() { exit(0); }
  898. Xint t() { main(); }
  899. XEOF
  900. Xif eval $compile; then
  901. X  rm -rf conftest*
  902. X  have_lib="1"
  903. X
  904. Xfi
  905. Xrm -f conftest*
  906. XLIBS="${LIBS_save}"
  907. Xif test -n "${have_lib}"; then
  908. X   :; LIBS="$LIBS -lnsl"
  909. Xelse
  910. X   :; 
  911. Xfi
  912. X
  913. XLIBS_save="${LIBS}"
  914. XLIBS="${LIBS} -lsocket"
  915. Xhave_lib=""
  916. Xecho checking for -lsocket
  917. Xcat > conftest.c <<EOF
  918. X#include "confdefs.h"
  919. X
  920. Xint main() { exit(0); }
  921. Xint t() { main(); }
  922. XEOF
  923. Xif eval $compile; then
  924. X  rm -rf conftest*
  925. X  have_lib="1"
  926. X
  927. Xfi
  928. Xrm -f conftest*
  929. XLIBS="${LIBS_save}"
  930. Xif test -n "${have_lib}"; then
  931. X   :; LIBS="$LIBS -lsocket"
  932. Xelse
  933. X   :; 
  934. Xfi
  935. X
  936. Xfor func in strerror
  937. Xdo
  938. Xtrfunc=HAVE_`echo $func | tr '[a-z]' '[A-Z]'`
  939. Xecho checking for ${func}
  940. Xcat > conftest.c <<EOF
  941. X#include "confdefs.h"
  942. X#include <ctype.h>
  943. Xint main() { exit(0); }
  944. Xint t() { 
  945. X/* The GNU C library defines this for functions which it implements
  946. X    to always fail with ENOSYS.  Some functions are actually named
  947. X    something starting with __ and the normal name is an alias.  */
  948. X#if defined (__stub_${func}) || defined (__stub___${func})
  949. Xchoke me
  950. X#else
  951. X/* Override any gcc2 internal prototype to avoid an error.  */
  952. Xextern char ${func}(); ${func}();
  953. X#endif
  954. X }
  955. XEOF
  956. Xif eval $compile; then
  957. X  rm -rf conftest*
  958. X  {
  959. Xtest -n "$verbose" && \
  960. Xecho "    defining ${trfunc}"
  961. Xecho "#define" ${trfunc} 1 >> confdefs.h
  962. XDEFS="$DEFS -D${trfunc}=1"
  963. X}
  964. X
  965. X
  966. Xfi
  967. Xrm -f conftest*
  968. Xdone
  969. X
  970. Xfor func in getutent
  971. Xdo
  972. Xecho checking for ${func}
  973. Xcat > conftest.c <<EOF
  974. X#include "confdefs.h"
  975. X#include <ctype.h>
  976. Xint main() { exit(0); }
  977. Xint t() { 
  978. X/* The GNU C library defines this for functions which it implements
  979. X    to always fail with ENOSYS.  Some functions are actually named
  980. X    something starting with __ and the normal name is an alias.  */
  981. X#if defined (__stub_${func}) || defined (__stub___${func})
  982. Xchoke me
  983. X#else
  984. X/* Override any gcc2 internal prototype to avoid an error.  */
  985. Xextern char ${func}(); ${func}();
  986. X#endif
  987. X }
  988. XEOF
  989. Xif eval $compile; then
  990. X  :
  991. Xelse
  992. X  rm -rf conftest*
  993. X  LIBOBJS="$LIBOBJS ${func}.o"
  994. Xtest -n "$verbose" && echo "    using ${func}.o instead"
  995. Xfi
  996. Xrm -f conftest*
  997. X
  998. Xdone
  999. X
  1000. X
  1001. Xecho "checking malloc declaration"
  1002. Xcat > conftest.c <<EOF
  1003. X#include "confdefs.h"
  1004. X
  1005. X#if HAVE_STDLIB_H
  1006. X#   include <stdlib.h>
  1007. X#endif
  1008. X
  1009. XEOF
  1010. Xeval "$CPP conftest.c > conftest.out 2>&1"
  1011. Xif egrep "malloc( |    |\()" conftest.out >/dev/null 2>&1; then
  1012. X  rm -rf conftest*
  1013. X  
  1014. X{
  1015. Xtest -n "$verbose" && \
  1016. Xecho "    defining MALLOC_DECL"
  1017. Xecho "#define" MALLOC_DECL 1 >> confdefs.h
  1018. XDEFS="$DEFS -DMALLOC_DECL=1"
  1019. X}
  1020. X
  1021. X
  1022. Xfi
  1023. Xrm -f conftest*
  1024. X
  1025. X
  1026. Xecho "checking open declaration"
  1027. Xcat > conftest.c <<EOF
  1028. X#include "confdefs.h"
  1029. X
  1030. X#include <fcntl.h>
  1031. X
  1032. XEOF
  1033. Xeval "$CPP conftest.c > conftest.out 2>&1"
  1034. Xif egrep "open( |    |\()" conftest.out >/dev/null 2>&1; then
  1035. X  rm -rf conftest*
  1036. X  
  1037. X{
  1038. Xtest -n "$verbose" && \
  1039. Xecho "    defining OPEN_DECL"
  1040. Xecho "#define" OPEN_DECL 1 >> confdefs.h
  1041. XDEFS="$DEFS -DOPEN_DECL=1"
  1042. X}
  1043. X
  1044. X
  1045. Xfi
  1046. Xrm -f conftest*
  1047. X
  1048. X
  1049. Xecho "checking read declaration"
  1050. Xcat > conftest.c <<EOF
  1051. X#include "confdefs.h"
  1052. X
  1053. X#if HAVE_UNISTD_H
  1054. X#   include <unistd.h>
  1055. X#endif
  1056. X
  1057. XEOF
  1058. Xeval "$CPP conftest.c > conftest.out 2>&1"
  1059. Xif egrep "read( |    |\()" conftest.out >/dev/null 2>&1; then
  1060. X  rm -rf conftest*
  1061. X  
  1062. X{
  1063. Xtest -n "$verbose" && \
  1064. Xecho "    defining READ_DECL"
  1065. Xecho "#define" READ_DECL 1 >> confdefs.h
  1066. XDEFS="$DEFS -DREAD_DECL=1"
  1067. X}
  1068. X
  1069. X
  1070. Xfi
  1071. Xrm -f conftest*
  1072. X
  1073. X
  1074. Xecho checking for gethostname
  1075. Xcat > conftest.c <<EOF
  1076. X#include "confdefs.h"
  1077. X#include <ctype.h>
  1078. Xint main() { exit(0); }
  1079. Xint t() { 
  1080. X/* The GNU C library defines this for functions which it implements
  1081. X    to always fail with ENOSYS.  Some functions are actually named
  1082. X    something starting with __ and the normal name is an alias.  */
  1083. X#if defined (__stub_gethostname) || defined (__stub___gethostname)
  1084. Xchoke me
  1085. X#else
  1086. X/* Override any gcc2 internal prototype to avoid an error.  */
  1087. Xextern char gethostname(); gethostname();
  1088. X#endif
  1089. X }
  1090. XEOF
  1091. Xif eval $compile; then
  1092. X  rm -rf conftest*
  1093. X  
  1094. X{
  1095. Xtest -n "$verbose" && \
  1096. Xecho "    defining HAVE_GETHOSTNAME"
  1097. Xecho "#define" HAVE_GETHOSTNAME 1 >> confdefs.h
  1098. XDEFS="$DEFS -DHAVE_GETHOSTNAME=1"
  1099. X}
  1100. X
  1101. X    have_ghn=1
  1102. X
  1103. X
  1104. Xelse
  1105. X  rm -rf conftest*
  1106. X  for hdr in sys/utsname.h
  1107. Xdo
  1108. Xtrhdr=HAVE_`echo $hdr | tr 'a-z./' 'A-Z__'`
  1109. Xecho checking for ${hdr}
  1110. Xcat > conftest.c <<EOF
  1111. X#include "confdefs.h"
  1112. X#include <${hdr}>
  1113. XEOF
  1114. Xerr=`eval "($CPP conftest.c >/dev/null) 2>&1"`
  1115. Xif test -z "$err"; then
  1116. X  rm -rf conftest*
  1117. X  
  1118. X{
  1119. Xtest -n "$verbose" && \
  1120. Xecho "    defining ${trhdr}"
  1121. Xecho "#define" ${trhdr} 1 >> confdefs.h
  1122. XDEFS="$DEFS -D${trhdr}=1"
  1123. X}
  1124. X
  1125. X
  1126. Xfi
  1127. Xrm -f conftest*
  1128. Xdone
  1129. X
  1130. X    for func in uname
  1131. Xdo
  1132. Xtrfunc=HAVE_`echo $func | tr 'a-z' 'A-Z'`
  1133. Xecho checking for ${func}
  1134. Xcat > conftest.c <<EOF
  1135. X#include "confdefs.h"
  1136. X#include <ctype.h>
  1137. Xint main() { exit(0); }
  1138. Xint t() { 
  1139. X/* The GNU C library defines this for functions which it implements
  1140. X    to always fail with ENOSYS.  Some functions are actually named
  1141. X    something starting with __ and the normal name is an alias.  */
  1142. X#if defined (__stub_${func}) || defined (__stub___${func})
  1143. Xchoke me
  1144. X#else
  1145. X/* Override any gcc2 internal prototype to avoid an error.  */
  1146. Xextern char ${func}(); ${func}();
  1147. X#endif
  1148. X }
  1149. XEOF
  1150. Xif eval $compile; then
  1151. X  rm -rf conftest*
  1152. X  {
  1153. Xtest -n "$verbose" && \
  1154. Xecho "    defining ${trfunc}"
  1155. Xecho "#define" ${trfunc} 1 >> confdefs.h
  1156. XDEFS="$DEFS -D${trfunc}=1"
  1157. X}
  1158. X
  1159. X
  1160. Xfi
  1161. Xrm -f conftest*
  1162. Xdone
  1163. X
  1164. X
  1165. Xfi
  1166. Xrm -f conftest*
  1167. X
  1168. Xif test -n "$have_ghn"; then
  1169. X    echo "checking gethostname declaration"
  1170. X    cat > conftest.c <<EOF
  1171. X#include "confdefs.h"
  1172. X
  1173. X    #include <sys/types.h>
  1174. X    #if HAVE_UNISTD_H
  1175. X    #   include <unistd.h>
  1176. X    #endif
  1177. X    
  1178. XEOF
  1179. Xeval "$CPP conftest.c > conftest.out 2>&1"
  1180. Xif egrep "gethostname( |    |\()" conftest.out >/dev/null 2>&1; then
  1181. X  rm -rf conftest*
  1182. X  
  1183. X{
  1184. Xtest -n "$verbose" && \
  1185. Xecho "    defining GETHOSTNAME_DECL"
  1186. Xecho "#define" GETHOSTNAME_DECL 1 >> confdefs.h
  1187. XDEFS="$DEFS -DGETHOSTNAME_DECL=1"
  1188. X}
  1189. X
  1190. X
  1191. Xfi
  1192. Xrm -f conftest*
  1193. X
  1194. Xfi
  1195. X
  1196. X# Set default prefixes.
  1197. Xif test -n "$prefix"; then
  1198. X  test -z "$exec_prefix" && exec_prefix='${prefix}'
  1199. X  prsub="s%^prefix\\([     ]*\\)=\\([     ]*\\).*$%prefix\\1=\\2$prefix%"
  1200. Xfi
  1201. Xif test -n "$exec_prefix"; then
  1202. X  prsub="$prsub
  1203. Xs%^exec_prefix\\([     ]*\\)=\\([     ]*\\).*$%exec_prefix\\1=\\2$exec_prefix%"
  1204. Xfi
  1205. X# Quote sed substitution magic chars in DEFS.
  1206. Xcat >conftest.def <<EOF
  1207. X$DEFS
  1208. XEOF
  1209. Xescape_ampersand_and_backslash='s%[&\\]%\\&%g'
  1210. XDEFS=`sed "$escape_ampersand_and_backslash" <conftest.def`
  1211. Xrm -f conftest.def
  1212. X# Substitute for predefined variables.
  1213. X
  1214. Xtrap 'rm -f config.status; exit 1' 1 3 15
  1215. Xecho creating config.status
  1216. Xrm -f config.status
  1217. Xcat > config.status <<EOF
  1218. X#!/bin/sh
  1219. X# Generated automatically by configure.
  1220. X# Run this file to recreate the current configuration.
  1221. X# This directory was configured as follows,
  1222. X# on host `(hostname || uname -n) 2>/dev/null | sed 1q`:
  1223. X#
  1224. X# $0 $configure_args
  1225. X
  1226. Xfor arg
  1227. Xdo
  1228. X  case "\$arg" in
  1229. X    -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
  1230. X    echo running \${CONFIG_SHELL-/bin/sh} $0 $configure_args
  1231. X    exec \${CONFIG_SHELL-/bin/sh} $0 $configure_args ;;
  1232. X    *) echo "Usage: config.status --recheck" 2>&1; exit 1 ;;
  1233. X  esac
  1234. Xdone
  1235. X
  1236. Xtrap 'rm -f Makefile; exit 1' 1 3 15
  1237. XPROGS='$PROGS'
  1238. XCC='$CC'
  1239. XCPP='$CPP'
  1240. XINSTALL='$INSTALL'
  1241. XINSTALL_PROGRAM='$INSTALL_PROGRAM'
  1242. XINSTALL_DATA='$INSTALL_DATA'
  1243. XLN_S='$LN_S'
  1244. XROFF='$ROFF'
  1245. XTBL='$TBL'
  1246. XYPWHICH='$YPWHICH'
  1247. XTO_GRP='$TO_GRP'
  1248. XLIBOBJS='$LIBOBJS'
  1249. XLIBS='$LIBS'
  1250. Xsrcdir='$srcdir'
  1251. XDEFS='$DEFS'
  1252. Xprefix='$prefix'
  1253. Xexec_prefix='$exec_prefix'
  1254. Xprsub='$prsub'
  1255. Xextrasub='$extrasub'
  1256. XEOF
  1257. Xcat >> config.status <<\EOF
  1258. X
  1259. Xtop_srcdir=$srcdir
  1260. X
  1261. XCONFIG_FILES=${CONFIG_FILES-"Makefile"}
  1262. Xfor file in .. ${CONFIG_FILES}; do if test "x$file" != x..; then
  1263. X  srcdir=$top_srcdir
  1264. X  # Remove last slash and all that follows it.  Not all systems have dirname.
  1265. X  dir=`echo $file|sed 's%/[^/][^/]*$%%'`
  1266. X  if test "$dir" != "$file"; then
  1267. X    test "$top_srcdir" != . && srcdir=$top_srcdir/$dir
  1268. X    test ! -d $dir && mkdir $dir
  1269. X  fi
  1270. X  echo creating $file
  1271. X  rm -f $file
  1272. X  echo "# Generated automatically from `echo $file|sed 's|.*/||'`.in by configure." > $file
  1273. X  sed -e "
  1274. X$prsub
  1275. X$extrasub
  1276. Xs%@PROGS@%$PROGS%g
  1277. Xs%@CC@%$CC%g
  1278. Xs%@CPP@%$CPP%g
  1279. Xs%@INSTALL@%$INSTALL%g
  1280. Xs%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g
  1281. Xs%@INSTALL_DATA@%$INSTALL_DATA%g
  1282. Xs%@LN_S@%$LN_S%g
  1283. Xs%@ROFF@%$ROFF%g
  1284. Xs%@TBL@%$TBL%g
  1285. Xs%@YPWHICH@%$YPWHICH%g
  1286. Xs%@TO_GRP@%$TO_GRP%g
  1287. Xs%@LIBOBJS@%$LIBOBJS%g
  1288. Xs%@LIBS@%$LIBS%g
  1289. Xs%@srcdir@%$srcdir%g
  1290. Xs%@DEFS@%$DEFS%
  1291. X" $top_srcdir/${file}.in >> $file
  1292. Xfi; done
  1293. X
  1294. X
  1295. Xexit 0
  1296. XEOF
  1297. Xchmod +x config.status
  1298. X${CONFIG_SHELL-/bin/sh} config.status
  1299. X
  1300. END_OF_FILE
  1301.   if test 27563 -ne `wc -c <'casu-3.3/configure'`; then
  1302.     echo shar: \"'casu-3.3/configure'\" unpacked with wrong size!
  1303.   fi
  1304.   chmod +x 'casu-3.3/configure'
  1305.   # end of 'casu-3.3/configure'
  1306. fi
  1307. if test -f 'casu-3.3/to.c' -a "${1}" != "-c" ; then 
  1308.   echo shar: Will not clobber existing file \"'casu-3.3/to.c'\"
  1309. else
  1310.   echo shar: Extracting \"'casu-3.3/to.c'\" \(21895 characters\)
  1311.   sed "s/^X//" >'casu-3.3/to.c' <<'END_OF_FILE'
  1312. X/*
  1313. X *  CaSU - communications & status utilities.
  1314. X *  Copyright (C) 1992, 1993 Luke Mewburn <lm@rmit.edu.au>
  1315. X *    incorporating:
  1316. X *       flon - lists your friends who are logged on.
  1317. X *       to - send a short message to a friend
  1318. X *
  1319. X *  This program is free software; you can redistribute it and/or modify
  1320. X *  it under the terms of the GNU General Public License as published by
  1321. X *  the Free Software Foundation; either version 2 of the License, or
  1322. X *  (at your option) any later version.
  1323. X *  
  1324. X *  This program is distributed in the hope that it will be useful,
  1325. X *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  1326. X *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  1327. X *  GNU General Public License for more details.
  1328. X *  
  1329. X *  You should have received a copy of the GNU General Public License
  1330. X *  along with this program; if not, write to the Free Software
  1331. X *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  1332. X *
  1333. X */
  1334. X
  1335. X#define _MAIN_
  1336. X#include "casu.h"
  1337. X
  1338. X#ifdef M_SYSV
  1339. X    utmp_s    Kludge;
  1340. X#endif /* for SCO */
  1341. X
  1342. X
  1343. Xstatic    int     argc;
  1344. Xstatic    char    **argv;
  1345. X
  1346. X/*
  1347. X * add_alist_ent -    add an alias/userid pair to the global linked list;
  1348. X *            if alias is empty, just add - as it's an exclude entry,
  1349. X *            not an alias.
  1350. X */
  1351. Xstatic void
  1352. Xadd_alist_ent(alias, userid, them)
  1353. X    char    *alias, *userid;
  1354. X    user_t    *them;
  1355. X{
  1356. X    alist *p = them->aliases;
  1357. X
  1358. X    if (alias[0])        /* find matching alias */
  1359. X    {
  1360. X    while (p != NULL)
  1361. X    {
  1362. X        if (strcmp(p->alias, alias) == 0)
  1363. X        break;
  1364. X        p = p->next;
  1365. X    }
  1366. X    }
  1367. X    else            /* find matching exclude entry */
  1368. X    {
  1369. X    while (p != NULL)
  1370. X    {
  1371. X        if ((!p->alias[0]) && (strcmp(p->userid, userid) == 0))
  1372. X        break;
  1373. X        p = p->next;
  1374. X    }
  1375. X    }
  1376. X    if (p == NULL)        /* not found - add new element */
  1377. X    {
  1378. X    p = (alist *) malloc (sizeof(alist));
  1379. X    if (p == NULL)
  1380. X        errexit(strerror(errno), NULL);
  1381. X    p->next = them->aliases;
  1382. X    them->aliases = p;
  1383. X    }
  1384. X    strnc0py(p->alias, alias, sizeof(p->alias) - 1);
  1385. X    strnc0py(p->userid, userid, sizeof(p->userid) - 1);
  1386. X} /* add_alist_ent */
  1387. X
  1388. X
  1389. X/*
  1390. X * remove_alist_ent - remove an alias/userid pair from the global linked list;
  1391. X */
  1392. Xstatic void
  1393. Xremove_alist_ent(user, them, rm_type)
  1394. X    char    *user;
  1395. X    user_t    *them;
  1396. X#define REMOVE_EXCLUDE    0
  1397. X#define REMOVE_ALIAS    1
  1398. X    int        rm_type;    /* 1 == remove alias, 0 === remove exclude */
  1399. X{
  1400. X    alist *p = them->aliases, *last;
  1401. X
  1402. X    last = NULL;
  1403. X    while (p != NULL)            /* find relevant entry */
  1404. X    {
  1405. X    if (rm_type == REMOVE_ALIAS)
  1406. X    {
  1407. X        if (strcmp(p->alias, user) == 0)
  1408. X        break;
  1409. X    }
  1410. X    else    /* REMOVE_EXCLUDE */
  1411. X        if ((! p->alias[0]) && (strcmp(p->userid, user) == 0))
  1412. X        break;
  1413. X    last = p;
  1414. X    p = p->next;
  1415. X    }
  1416. X    if (p == NULL)            /* not there - complain */
  1417. X    {
  1418. X    if (rm_type == REMOVE_ALIAS)
  1419. X        errmesg("alias not found", user);
  1420. X    else
  1421. X        errmesg("exclude entry not found", user);
  1422. X    return;
  1423. X    }
  1424. X    if (last != NULL)            /* de-link it from the list */
  1425. X    last->next = p->next;
  1426. X    else
  1427. X    them->aliases = p->next;    /* don't bother free()ing it... */
  1428. X} /* remove_alist_ent */
  1429. X
  1430. X
  1431. X/*
  1432. X * get_pwent -    get an appropriate entry from the password file.
  1433. X *        if given NULL, assume it's for this user
  1434. X */
  1435. Xstatic struct passwd *
  1436. Xget_pwent(nam)
  1437. X    char *nam;
  1438. X{
  1439. X    struct passwd *pwent;
  1440. X    if (nam == NULL)
  1441. X    pwent = getpwuid(getuid());
  1442. X    else
  1443. X    pwent = getpwnam(nam);
  1444. X    return pwent;
  1445. X} /* get_pwent */
  1446. X
  1447. X
  1448. X/*
  1449. X * load_rcfile - read in the rcfile for the respective user
  1450. X *        into the data struct. if nam == NULL, also add
  1451. X *        aliases to the global list;
  1452. X */
  1453. Xstatic void
  1454. Xload_rcfile(them, nam)
  1455. X     user_t    *them;
  1456. X     char     *nam;
  1457. X{
  1458. X    FILE        *fp;
  1459. X    char        buf[LINESIZ + 1], rcfile[MAXPATHLEN + 1];
  1460. X    char        user[UT_NAMESIZE + 1], alias[ALIASLEN + 1];
  1461. X    struct stat        sbuf;
  1462. X    int            ch;
  1463. X    struct passwd    *pwent;
  1464. X    static char        aliasfmt[16];    /* see below */
  1465. X
  1466. X    if (!aliasfmt[0])
  1467. X    sprintf(aliasfmt, "%%%ds %%%ds", ALIASLEN, UT_NAMESIZE);
  1468. X
  1469. X    them->yes[0] = '\0';        /* clear everything */
  1470. X    them->no[0] = '\0';
  1471. X    them->gone[0] = '\0';
  1472. X    them->idle[0] = '\0';
  1473. X    them->dotuser[0] = '\0';
  1474. X    them->dottty[0] = '\0';
  1475. X    them->exclude[0] = '\0';
  1476. X    them->aliases = NULL;
  1477. X
  1478. X    pwent = get_pwent(nam);        /* get info from /etc/passwd */
  1479. X    if (!pwent)
  1480. X    if (!nam)
  1481. X        errexit("you don't exist", NULL);
  1482. X    else
  1483. X        errexit("doesn't exist", nam);
  1484. X    strnc0py(them->name,
  1485. X        convert_realname(pwent->pw_gecos, pwent->pw_name, pwent->pw_uid),
  1486. X        sizeof(them->name) - 1);
  1487. X    strnc0py(them->userid, pwent->pw_name, sizeof(them->userid) - 1);
  1488. X    strnc0py(them->homedir, pwent->pw_dir, sizeof(them->homedir) - 1);
  1489. X
  1490. X    strnc0py(rcfile, pwent->pw_dir, sizeof(rcfile) - 1);
  1491. X    if (strlen(rcfile) + strlen(STRtorc) >= sizeof(rcfile) - 1)
  1492. X    errexit("filename is too long", STRtorc);
  1493. X    strcat(rcfile, STRtorc);
  1494. X    if (stat(rcfile, &sbuf) == -1)    /* open their .torc */
  1495. X    return;
  1496. X    fp = fopen(rcfile, "r");
  1497. X    if (fp == NULL)
  1498. X    return;
  1499. X    while (fgets(buf, sizeof(buf), fp) != NULL)
  1500. X    {                    /* read it in */
  1501. X    if (strlen(buf) == sizeof(buf) - 1 )
  1502. X        while ((ch = fgetc(fp)) != EOF)
  1503. X        if (ch == '\n')
  1504. X            break;        /* gobble extra chars */
  1505. X    buf[strlen(buf) - 1] = '\0';
  1506. X    ch = isupper(buf[0]) ? tolower(buf[0]) : buf[0];
  1507. X    switch (ch)
  1508. X    {
  1509. X    case '.':            /* . user */
  1510. X        strnc0py(them->dotuser, buf + (buf[1] == ' ' ? 2 : 1),
  1511. X            sizeof(them->dotuser) - 1);
  1512. X        break;
  1513. X    case ':':            /* . tty */
  1514. X        strnc0py(them->dottty, buf + 2, sizeof(them->dottty) - 1);
  1515. X        break;
  1516. X    case 'y':            /* yes AR */
  1517. X        strnc0py(them->yes, buf + 2, sizeof(them->yes) - 1);
  1518. X        break;
  1519. X    case 'n':            /* no AR */
  1520. X        strnc0py(them->no, buf + 2, sizeof(them->no) - 1);
  1521. X        break;
  1522. X    case 'g':            /* gone AR */
  1523. X        strnc0py(them->gone, buf + 2, sizeof(them->gone) - 1);
  1524. X        break;
  1525. X    case 'i':            /* idle AR */
  1526. X        strnc0py(them->idle, buf + 2, sizeof(them->idle) - 1);
  1527. X        break;
  1528. X    case 'x':            /* exclude AR */
  1529. X        strnc0py(them->exclude, buf + 2, sizeof(them->exclude) - 1);
  1530. X        break;
  1531. X    case 'p':            /* pseudonym/name/whatever */
  1532. X        strnc0py(them->name, buf + 2, sizeof(them->name) - 1);
  1533. X        flags |= PSEUDO_MOD;
  1534. X        break;
  1535. X    case 'a':            /* add an alias */
  1536. X        if (nam == NULL)    /* only add aliases to sender's struct */
  1537. X        {
  1538. X        sscanf(buf + 1, aliasfmt, alias, user);
  1539. X        add_alist_ent(alias, user, them);
  1540. X        }
  1541. X        break;
  1542. X    case 'e':        /* add an exclude entry */
  1543. X        add_alist_ent("", buf + 2, them);
  1544. X        break;
  1545. X    default:
  1546. X        if (flags & DEBUG)
  1547. X        {
  1548. X        buf[1] = '\0';    /* so errmesg doesn't die */
  1549. X        errmesg("illegal specifier (DEBUG)", buf);
  1550. X        }
  1551. X        break;
  1552. X    }
  1553. X    } /* while */
  1554. X} /* load_rcfile */
  1555. X
  1556. X
  1557. X/*
  1558. X * dump_status -     dump status of user rec.
  1559. X */
  1560. Xstatic void
  1561. Xdump_status(me)
  1562. X    user_t    *me;
  1563. X{
  1564. X    struct stat sbuf;
  1565. X
  1566. X    if (!me->tty)
  1567. X    printf("Not attached to a tty.\n");
  1568. X    else
  1569. X    {
  1570. X    if (stat(me->tty, &sbuf) == -1)
  1571. X        errmesg(strerror(errno), me->tty);
  1572. X    else
  1573. X        printf("Incoming messages are %sabled.\n",
  1574. X            (sbuf.st_mode & MESGS_ON) ? "en" : "dis");
  1575. X    }
  1576. X    printf("Name:      %s\n", me->name);
  1577. X    if (me->tty)
  1578. X    printf("Terminal:  %s\n", me->tty);
  1579. X    if (me->dotuser[0] != '\0')
  1580. X    {
  1581. X    if (me->dottty[0] != '\0')
  1582. X        printf("Last user: %s (%s)\n", me->dotuser, me->dottty);
  1583. X    else
  1584. X        printf("Last user: %s\n", me->dotuser);
  1585. X    }
  1586. X    if (me->yes[0] != '\0')
  1587. X    printf("Mesg ON autoreply:  %s\n", me->yes);
  1588. X    if (me->no[0] != '\0')
  1589. X    printf("Mesg OFF autoreply: %s\n", me->no);
  1590. X    if (me->gone[0] != '\0')
  1591. X    printf("Gone autoreply:     %s\n", me->gone);
  1592. X    if (me->idle[0] != '\0')
  1593. X    printf("Idle autoreply:     %s\n", me->idle);
  1594. X    if (me->exclude[0] != '\0')
  1595. X    printf("Exclude autoreply:  %s\n", me->exclude);
  1596. X} /* dump_status */
  1597. X
  1598. X
  1599. X/*
  1600. X * process_options -    parse the options available
  1601. X */
  1602. Xstatic void
  1603. Xprocess_options(me, you)
  1604. X    user_t    *me, *you;
  1605. X{
  1606. X    int        ch;
  1607. X
  1608. X    opterr=1;
  1609. X    while ((ch = getopt(argc, argv, "a:bde:E:hlnrt:u:yvP:I:Y:N:G:X:V")) != -1)
  1610. X    {
  1611. X    switch (ch)
  1612. X    {
  1613. X    case 'a':
  1614. X        if (argc == optind)
  1615. X        {
  1616. X        fprintf(stderr, "Usage: %s -a alias userid\n", progname);
  1617. X        flags |= ERROR;
  1618. X        break;
  1619. X        }
  1620. X        add_alist_ent(optarg, argv[optind++], me);
  1621. X        flags |= DB_MOD;
  1622. X        break;
  1623. X    case 'b':
  1624. X        flags |= BEEP;
  1625. X        break;
  1626. X    case 'd':
  1627. X        flags |= DEBUG;
  1628. X        break;
  1629. X    case 'e':
  1630. X        add_alist_ent("", optarg, me);
  1631. X        flags |= DB_MOD;
  1632. X        break;
  1633. X    case 'E':
  1634. X        remove_alist_ent(optarg, me, REMOVE_EXCLUDE);
  1635. X        flags |= DB_MOD;
  1636. X        break;
  1637. X    case 'l':
  1638. X        flags |= LISTALIAS;
  1639. X        break;
  1640. X    case 'h':
  1641. X        flags |= HELP;
  1642. X        break;
  1643. X    case 'n':
  1644. X        flags &= ~MESG_Y;
  1645. X        flags |= MESG_N;
  1646. X        break;
  1647. X    case 'y':
  1648. X        flags |= MESG_Y;
  1649. X        flags &= ~MESG_N;
  1650. X        break;
  1651. X    case 'r':
  1652. X        flags |= STATUS;
  1653. X        break;
  1654. X    case 't':
  1655. X        you->tty = optarg;
  1656. X        flags |= DB_MOD;
  1657. X        break;
  1658. X    case 'u':
  1659. X        remove_alist_ent(optarg, me, REMOVE_ALIAS);
  1660. X        flags |= DB_MOD;
  1661. X        break;
  1662. X    case 'v':
  1663. X    case 'V':
  1664. X        flags |= LISTVERSION;
  1665. X        break;
  1666. X    case 'Y':
  1667. X        strnc0py(me->yes, optarg, sizeof(me->yes) - 1);
  1668. X        flags |= DB_MOD;
  1669. X        break;
  1670. X    case 'P':
  1671. X        strnc0py(me->name, optarg, sizeof(me->name) - 1);
  1672. X        flags |= (PSEUDO_MOD + DB_MOD);
  1673. X        break;
  1674. X    case 'N':
  1675. X        strnc0py(me->no, optarg, sizeof(me->no) - 1);
  1676. X        flags |= DB_MOD;
  1677. X        break;
  1678. X    case 'G':
  1679. X        strnc0py(me->gone, optarg, sizeof(me->gone) - 1);
  1680. X        flags |= DB_MOD;
  1681. X        break;
  1682. X    case 'I':
  1683. X        strnc0py(me->idle, optarg, sizeof(me->idle) - 1);
  1684. X        flags |= DB_MOD;
  1685. X        break;
  1686. X    case 'X':
  1687. X        strnc0py(me->exclude, optarg, sizeof(me->exclude) - 1);
  1688. X        flags |= DB_MOD;
  1689. X        break;
  1690. X    case '?':
  1691. X        flags |= ERROR;
  1692. X        break;
  1693. X    }
  1694. X    }
  1695. X
  1696. X    if (flags & DEBUG)
  1697. X    printf("DEBUG: argc %d  optind %d  flags %d \n", argc, optind, flags);
  1698. X
  1699. X        /* barf if just -b, -t ttyxx, or no args */
  1700. X    if (   (argc == optind)        /* non-productive usage */
  1701. X    && ((flags & BEEP) || (you->tty) || (argc == 1)))
  1702. X    flags |= ERROR;
  1703. X
  1704. X    if (flags & (MESG_Y + MESG_N))    /* change tty mode */
  1705. X    {
  1706. X    struct stat sbuf;
  1707. X    if (!me->tty)
  1708. X        errmesg("unable to change status of tty - no such tty", NULL);
  1709. X    else
  1710. X        if (stat(me->tty, &sbuf) == -1)
  1711. X        errmesg(strerror(errno), me->tty);
  1712. X        else
  1713. X        {
  1714. X        if (flags & MESG_N)
  1715. X            sbuf.st_mode &= ~MESGS_ON;
  1716. X        else
  1717. X            sbuf.st_mode |= MESGS_ON;
  1718. X        chmod(me->tty, sbuf.st_mode);
  1719. X        }
  1720. X    }
  1721. X
  1722. X    if (flags & STATUS)            /* show status */
  1723. X    dump_status(me);
  1724. X
  1725. X    if (flags & LISTALIAS)        /* list aliases */
  1726. X    {
  1727. X    alist *p = me->aliases;
  1728. X    if (p)
  1729. X        printf("UserID\t  Alias\n------\t  -----\n");
  1730. X    else
  1731. X        printf("No aliases defined.\n");
  1732. X    while (p)
  1733. X    {
  1734. X        printf("%s\t  %s\n", p->userid, p->alias[0] ? p->alias
  1735. X                            : "** EXCLUDED **");
  1736. X        p = p->next;
  1737. X    }
  1738. X    }
  1739. X
  1740. X    if (flags & (ERROR + LISTVERSION + HELP))
  1741. X    {
  1742. X    fprintf(stderr, "\
  1743. XUsage: %s [-a alias user] [-u alias] [-bdlnyr] [-G gone] [-Y yes] [-N no]\n\
  1744. X\t[-I idle] [-X exclude] [-P pseudo] [-e user] [-E user] [-t term]\n\
  1745. X\t[-h] -[vV]  [user [message]]\n\
  1746. X", progname);
  1747. X    if (flags & (HELP))
  1748. X    {
  1749. X        fprintf(stderr, "\
  1750. X\n\
  1751. XTo - send a short message to another user\n\
  1752. X\n\
  1753. XUsage:  %s [options] user [message] \tsends message to user (*)\n\
  1754. X\n\
  1755. Xoptions can be:\n\
  1756. X    -a alias user    add an alias to your .torc\n\
  1757. X    -u alias    unalias an alias\n\
  1758. X    -b        beep other user with message\n\
  1759. X    -e user        add `user' to the exclude list\n\
  1760. X    -E user        remove `user' from the exclude list\n\
  1761. X    -h        this help page\n\
  1762. X    -n        turn messages off\n\
  1763. X    -y        turn messages on\n\
  1764. X    -l        list aliases\n\
  1765. X    -r        list status\n\
  1766. X    -t term        send to tty `term'\n\
  1767. X    -P name        set pseudonym to name\n\
  1768. X    -I mesg        set `idle' autoreply to mesg\n\
  1769. X    -G mesg        set `gone' autoreply to mesg\n\
  1770. X    -N mesg        set `mesg n' autoreply to mesg\n\
  1771. X    -Y mesg        set `mesg y' autoreply to mesg\n\
  1772. X    -X mesg        set `exclude' autoreply to mesg\n\
  1773. X    -V        version infomation\n\
  1774. X\n\
  1775. XThe options can be used in conjunction with each other.\n\
  1776. X\n\
  1777. X(*) Reads message from terminal if you don't specify one.\n\
  1778. X", progname);
  1779. X    }
  1780. X    if (flags & (HELP + LISTVERSION))
  1781. X    {
  1782. X        fprintf(stderr, "\
  1783. X\n\
  1784. X%s version %s, %s.\n\
  1785. XCopyright (C) 1993 Luke Mewburn\n\
  1786. XEmail: <lm@rmit.edu.au>\n\
  1787. XThis is free software, and you are welcome to redistribute it under certain\n\
  1788. Xconditions. See version 2 of the GNU Public License for more details.\n\
  1789. X", progname, VERSION, RELDATE);
  1790. X    }
  1791. X    exit((flags & ERROR ) != 0);
  1792. X    }
  1793. X} /* process_options */
  1794. X
  1795. X
  1796. X/*
  1797. X * lookup_user -    find a user and put info in user_t struct
  1798. X */
  1799. Xstatic int
  1800. Xlookup_user(me, them)
  1801. X    user_t *me, *them;
  1802. X{
  1803. X    alist        *p = me->aliases;
  1804. X    struct passwd    *pwent;
  1805. X    char        *target;
  1806. X    
  1807. X    if (argc > optind)
  1808. X    target = argv[optind++];
  1809. X    else
  1810. X    return 0;
  1811. X    if (strcmp(target, ".") == 0)    /* is a .user */
  1812. X    {
  1813. X    if (me->dotuser[0] == '\0')
  1814. X    {
  1815. X        errmesg("no `.' user defined", NULL);
  1816. X        return 0;
  1817. X    }
  1818. X    target = me->dotuser;
  1819. X    if ((!them->tty) && (me->dottty[0] != '\0'))
  1820. X        them->tty = me->dottty;    /* use last tty */
  1821. X    }
  1822. X    else                /* is it an alias? */
  1823. X    {
  1824. X    while (p)
  1825. X    {
  1826. X        if (strcmp(target, p->alias) == 0)
  1827. X        {
  1828. X        target = p->userid;
  1829. X        break;
  1830. X        }
  1831. X        p = p->next;
  1832. X    }
  1833. X    }
  1834. X    pwent = get_pwent(target);        /* check if user */
  1835. X    if (! pwent)
  1836. X    {
  1837. X    errmesg("doesn't exist", target);
  1838. X    return 0;
  1839. X    }
  1840. X    strnc0py(them->name,
  1841. X        convert_realname(pwent->pw_gecos, pwent->pw_name, pwent->pw_uid),
  1842. X        sizeof(them->name) - 1);
  1843. X    strnc0py(them->userid, pwent->pw_name, sizeof(them->userid) - 1);
  1844. X    strnc0py(them->homedir, pwent->pw_dir, sizeof(them->homedir) - 1);
  1845. X    if (target != me->dotuser)
  1846. X    {
  1847. X    strnc0py(me->dotuser, target, sizeof(me->dotuser) - 1);
  1848. X    flags |= DB_MOD;
  1849. X    }
  1850. X    return 1;
  1851. X} /* lookup_user */
  1852. X
  1853. X
  1854. X/*
  1855. X * update_torc -    write out change .torc file
  1856. X */
  1857. Xstatic void
  1858. Xupdate_torc(me)
  1859. X    user_t *me;
  1860. X{
  1861. X    FILE    *fp;
  1862. X    alist    *p = me->aliases;
  1863. X    char    rcfile[MAXPATHLEN + 1];
  1864. X    struct stat    sbuf;
  1865. X
  1866. X    if (!(flags & DB_MOD))    /* only write if info was modified */
  1867. X    return;
  1868. X
  1869. X    strnc0py(rcfile, me->homedir, sizeof(rcfile) - 1);
  1870. X    if (strlen(rcfile) + strlen(STRtorc) >= sizeof(rcfile) - 1)
  1871. X    errexit("filename is too long", STRtorc);
  1872. X    strcat(rcfile, STRtorc);
  1873. X
  1874. X#if TTY_RESTRICTED
  1875. X    setgid(getgid());        /* so a new .torc has user's group, not `tty' */
  1876. X#endif /* TTY_RESTRICTED */
  1877. X    fp = fopen(rcfile, "w");
  1878. X    if (fp == NULL)
  1879. X    errexit(strerror(errno), NULL);
  1880. X    if (me->dotuser[0] != '\0')
  1881. X    fprintf(fp, ". %s\n", me->dotuser);
  1882. X    if (me->dottty[0] != '\0')
  1883. X    fprintf(fp, ": %s\n", me->dottty);
  1884. X    if (flags & PSEUDO_MOD)
  1885. X    if (me->name[0] != '\0')
  1886. X        fprintf(fp, "P %s\n", me->name);
  1887. X    if (me->yes[0] != '\0')
  1888. X    fprintf(fp, "Y %s\n", me->yes);
  1889. X    if (me->idle[0] != '\0')
  1890. X    fprintf(fp, "I %s\n", me->idle);
  1891. X    if (me->no[0] != '\0')
  1892. X    fprintf(fp, "N %s\n", me->no);
  1893. X    if (me->gone[0] != '\0')
  1894. X    fprintf(fp, "G %s\n", me->gone);
  1895. X    if (me->exclude[0] != '\0')
  1896. X    fprintf(fp, "X %s\n", me->exclude);
  1897. X    while (p)
  1898. X    {
  1899. X    if (p->alias[0])    /* exclude entries have this field empty */
  1900. X        fprintf(fp, "a %s %s\n", p->alias, p->userid);
  1901. X    else
  1902. X        fprintf(fp, "e %s\n", p->userid);
  1903. X    p = p->next;
  1904. X    }
  1905. X    if (stat(rcfile, &sbuf) != -1)    /* set the file to be world readable */
  1906. X    {
  1907. X    sbuf.st_mode |= 0444;
  1908. X    chmod(rcfile, sbuf.st_mode);
  1909. X    }
  1910. X    fclose(fp);
  1911. X} /* update_torc */
  1912. X
  1913. X
  1914. X/*
  1915. X * filter_buf - remove control characters from a NUL terminated char buffer
  1916. X */
  1917. X
  1918. Xstatic void
  1919. Xfilter_buf(buf)
  1920. X    char *buf;
  1921. X{
  1922. X#if 1            /* set to 0 to disable this function */
  1923. X    int i;
  1924. X    for (i = 0; i < strlen(buf); i++)
  1925. X    if (! (isprint(buf[i]) || buf[i] == '\t'))
  1926. X        buf[i] = '?';
  1927. X#endif
  1928. X} /* filter_buf */
  1929. X
  1930. X
  1931. X/*
  1932. X * construct_message -    build message from argv[], or read it from stdin
  1933. X */
  1934. Xstatic void
  1935. Xconstruct_message(me)
  1936. X    user_t *me;
  1937. X{
  1938. X    int        i, pos, len;
  1939. X
  1940. X    me->message[0] = '\0';
  1941. X    if (argc != optind)        /* build up message from argv[] */
  1942. X    {
  1943. X    pos = len = 0;
  1944. X    for (i = optind; i < argc; i++)
  1945. X    {
  1946. X        len = strlen(argv[i]);
  1947. X        if (len + pos > sizeof(me->message) - 1)
  1948. X        break;
  1949. X        strnc0py(me->message + pos, argv[i], len);
  1950. X        pos += len;
  1951. X        me->message[pos++] = ' ';
  1952. X    }
  1953. X    me->message[pos] = '\0';
  1954. X    }
  1955. X    else            /* interactively grab message */
  1956. X    {
  1957. X    if (!me->tty)        /* don't read message from non-terminal */
  1958. X    {
  1959. X        strnc0py(me->message, "I would like to talk to you",
  1960. X                sizeof(me->message) - 1);
  1961. X        return;
  1962. X    }
  1963. X    printf("Message: ");
  1964. X    if (fgets(me->message, sizeof(me->message), stdin) == NULL)
  1965. X    {
  1966. X        strnc0py(me->message, "I would like to talk to you",
  1967. X                sizeof(me->message) - 1);
  1968. X        return;
  1969. X    }
  1970. X    len = strlen(me->message);
  1971. X    if (me->message[len - 1] == '\n')
  1972. X        me->message[--len] = '\0';
  1973. X    }
  1974. X} /* construct_message */
  1975. X
  1976. X
  1977. X/*
  1978. X * send_message -    send the message...
  1979. X */
  1980. Xstatic void
  1981. Xsend_message(me, you)
  1982. X    user_t *me, *you;
  1983. X{
  1984. X    utmp_s *        utent;
  1985. X    char        host[MAXHOSTNAMELEN + 2];
  1986. X    static char        tty[sizeof(_PATH_DEV)+UT_LINESIZE]=_PATH_DEV;
  1987. X    char        *p, *timestr;
  1988. X    int            i;
  1989. X    FILE *        fp;
  1990. X    time_t        now;
  1991. X    alist        *pers;
  1992. X    struct stat        stbuf;
  1993. X#if HAVE_UNAME
  1994. X    struct utsname    unamebuf;
  1995. X#endif /* HAVE_UNAME */
  1996. X    static struct {
  1997. X    char        tty[sizeof(tty)];
  1998. X    time_t        idle;
  1999. X    int        res;
  2000. X    } cur;
  2001. X#define R_SENT        (1<<0)
  2002. X#define R_ISON        (1<<1)
  2003. X#define R_VALID        (1<<2)
  2004. X#define R_EXCLUDE    (1<<3)
  2005. X
  2006. X    host[sizeof(host) - 1] = '\0';    /* get hostname _somehow_ */
  2007. X    host[0] ='@';
  2008. X#if HAVE_GETHOSTNAME
  2009. X    if (gethostname(host + 1, sizeof(host) - 2) == -1)
  2010. X    host[0] = '\0';
  2011. X#else /* !HAVE_GETHOSTNAME */
  2012. X#   if HAVE_UNAME
  2013. X    if (uname(&unamebuf) == 0)
  2014. X    strnc0py(host + 1, unamebuf.nodename, sizeof(host) - 2);
  2015. X    else    /* fallthru #endif */
  2016. X#   endif /* HAVE_UNAME */
  2017. X    host[0] = '\0';
  2018. X#endif  /* !HAVE_GETHOSTNAME */
  2019. X
  2020. X    now = time(NULL);
  2021. X    timestr = ctime(&now) + 11;
  2022. X    timestr[5] = '\0';
  2023. X
  2024. X    cur.res = 0;
  2025. X    if (flags & DEBUG)
  2026. X    printf("DEBUG: me->message is :%s:\n", me->message);
  2027. X    load_rcfile(you, you->userid);
  2028. X    construct_message(me);
  2029. X    pers = you->aliases;
  2030. X    while (pers)        /* see if they're excluding you */
  2031. X    {
  2032. X    if ((strcmp(me->userid, pers->userid) == 0) && (! pers->alias[0]))
  2033. X    {
  2034. X        cur.res |= R_EXCLUDE;
  2035. X        break;
  2036. X    }
  2037. X    pers = pers->next;
  2038. X    }
  2039. X    if (! (cur.res & R_EXCLUDE))    /* if !excluded, find tty */
  2040. X    while ((utent = getutent()) != NULL)
  2041. X    {
  2042. X        if (NULL_UTMP_ENTRY(utent))
  2043. X        continue;
  2044. X        if (strncmp(utent->ut_name, you->userid, sizeof(utent->ut_name) -1))
  2045. X        continue;        /* not them */
  2046. X        cur.res |= R_ISON;
  2047. X        strcpy(tty + sizeof(_PATH_DEV) - 1, utent->ut_line);
  2048. X        if (you->tty)        /* want specific tty */
  2049. X        {
  2050. X        if (strcmp(utent->ut_line, you->tty) != 0)
  2051. X            continue;
  2052. X        strcpy(cur.tty, tty);
  2053. X        cur.res |= R_VALID;
  2054. X        break;
  2055. X        }
  2056. X        else
  2057. X        {
  2058. X        if (me->tty && strcmp(me->tty, tty) == 0)
  2059. X            continue;        /* don't do my current terminal */
  2060. X        }
  2061. X        i = stat(tty, &stbuf);
  2062. X        if (!cur.idle || ((i != -1) && stbuf.st_atime > cur.idle))
  2063. X        {
  2064. X        strcpy(cur.tty, tty);    /* remember idle info */
  2065. X        cur.res |= R_VALID;
  2066. X        if (i != -1)
  2067. X            cur.idle = stbuf.st_atime;
  2068. X        }
  2069. X    } /* while */
  2070. X
  2071. X                    /* if valid tty, attempt to send */
  2072. X    if ((cur.res & R_VALID) && ((fp = fopen(cur.tty, "a")) != NULL))
  2073. X    {
  2074. X    cur.res |= R_SENT;
  2075. X    if (flags & BEEP)
  2076. X        fprintf(fp, "%c", BELL);    /* Beep! */
  2077. X
  2078. X    if (!me->tty)
  2079. X        me->tty = "/dev/tty??";    /* hmm... stdin wasn't stdin */
  2080. X    filter_buf(me->name);        /* Clean up your name & message */
  2081. X    filter_buf(me->message);    /*   and send it */
  2082. X    fprintf(fp, "\r-=> From %s (%s%s) on %s at %s :- \n\r",
  2083. X        me->name, me->userid, host,
  2084. X        me->tty + sizeof(_PATH_DEV) - 1, timestr);
  2085. X    fprintf(fp, "%s  \n\r", me->message);
  2086. X    fclose(fp);
  2087. X    }
  2088. X    p = NULL;
  2089. X    filter_buf(you->name);
  2090. X    if (cur.res & R_EXCLUDE)        /* They don't like you */
  2091. X    {
  2092. X    printf("%s: %s (%s) has excluded you as a sender.\n",
  2093. X            progname, you->name, you->userid);
  2094. X    p = you->exclude;
  2095. X    } else if (! (cur.res & R_ISON))    /* They're not on */
  2096. X    {
  2097. X    printf("%s: %s (%s) isn't logged on.\n",
  2098. X            progname, you->name, you->userid);
  2099. X    p = you->gone;
  2100. X    }
  2101. X    else if (! (cur.res & R_SENT))    /* Didn't work for other reason */
  2102. X    {
  2103. X    if (!(cur.res & R_VALID))
  2104. X    {
  2105. X        if ((strncmp(me->userid, you->userid, sizeof(me->userid) - 1) == 0)
  2106. X        || !you->tty)        /* only if >1 usernames on same uid */
  2107. X        printf("%s: You are only logged on once.\n", progname);
  2108. X        else            /* Not on specific tty */
  2109. X        printf("%s: %s (%s) isn't logged onto the tty '%s'.\n",
  2110. X            progname, you->name, you->userid, you->tty);
  2111. X    }
  2112. X    else                /* No write perms to tty */
  2113. X    {
  2114. X        printf("%s: Access to %s's (%s) terminal denied.\n",
  2115. X            progname, you->name, you->userid);
  2116. X        p = you->no;
  2117. X    }
  2118. X
  2119. X    }
  2120. X    else
  2121. X    {
  2122. X    if (cur.idle)            /* Have an idle message */
  2123. X    {
  2124. X        if (now - cur.idle > min_idle)
  2125. X        if (strlen(you->idle))
  2126. X            p = you->idle;
  2127. X    }
  2128. X    if (p == NULL)
  2129. X        p = you->yes;
  2130. X    if (stat(me->tty, &stbuf) != -1)
  2131. X    {
  2132. X        if (! (stbuf.st_mode & MESGS_ON))    /* Just to let you know... */
  2133. X        printf("Warning: you have your messages disabled. %s can't reply\n", you->name);
  2134. X    }
  2135. X    printf("Message sent to %s (%s%s) on %s.\n",    /* Print results */
  2136. X            you->name, you->userid, host, 
  2137. X            cur.tty + sizeof(_PATH_DEV) - 1);
  2138. X        /* record where the message really went */
  2139. X    strnc0py(me->dottty, cur.tty + sizeof(_PATH_DEV) - 1,
  2140. X                sizeof(me->dottty) - 1);
  2141. X    }
  2142. X    if (p && strlen(p))            /* An autoreply exists */
  2143. X    {
  2144. X    filter_buf(p);            /* Remove illegal chars */
  2145. X    printf("-=> Auto-reply from %s :-\n%s\n", you->name, p);
  2146. X    }
  2147. X    endutent();
  2148. X} /* send_message */
  2149. X
  2150. X
  2151. X/*
  2152. X *    main function
  2153. X */
  2154. Xint
  2155. Xmain(margc, margv)
  2156. X    int margc;
  2157. X    char *margv[];
  2158. X{
  2159. X    user_t    me_s, *me = &me_s;
  2160. X    user_t    you_s, *you = &you_s;
  2161. X    char     *p;
  2162. X
  2163. X    min_idle = MINIDLE;
  2164. X    argc = margc;
  2165. X    argv = margv;
  2166. X    me->tty = ttyname(0);
  2167. X    you->tty = NULL;
  2168. X    progname = argv[0];                /* Basename invocation name */
  2169. X    if ((p = strrchr(progname, '/')) != NULL)
  2170. X    progname = ++p;
  2171. X    flags = 0;
  2172. X
  2173. X    load_rcfile(me, NULL);
  2174. X    if (  ((p = getenv("PSEUDONYM")) != NULL)    /* Get default name for you */
  2175. X    || ((p = getenv("NAME")) != NULL))
  2176. X    {
  2177. X    if (  (strcmp(me->name, p) != 0)
  2178. X        && (!(flags & PSEUDO_MOD)))
  2179. X    {
  2180. X        strnc0py(me->name, p, sizeof(me->name) - 1);
  2181. X        flags |= (PSEUDO_MOD + DB_MOD);
  2182. X    }
  2183. X    }
  2184. X    process_options(me, you);
  2185. X    if (lookup_user(me, you))
  2186. X    send_message(me, you);
  2187. X    update_torc(me);
  2188. X    return 0;
  2189. X} /* main */
  2190. END_OF_FILE
  2191.   if test 21895 -ne `wc -c <'casu-3.3/to.c'`; then
  2192.     echo shar: \"'casu-3.3/to.c'\" unpacked with wrong size!
  2193.   fi
  2194.   # end of 'casu-3.3/to.c'
  2195. fi
  2196. echo shar: End of archive 1 \(of 4\).
  2197. cp /dev/null ark1isdone
  2198. MISSING=""
  2199. for I in 1 2 3 4 ; do
  2200.     if test ! -f ark${I}isdone ; then
  2201.     MISSING="${MISSING} ${I}"
  2202.     fi
  2203. done
  2204. if test "${MISSING}" = "" ; then
  2205.     echo You have unpacked all 4 archives.
  2206.     rm -f ark[1-9]isdone
  2207. else
  2208.     echo You still must unpack the following archives:
  2209.     echo "        " ${MISSING}
  2210. fi
  2211. exit 0
  2212. exit 0 # Just in case...
  2213.