home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume41 / tcp_wrappers / patch01 next >
Encoding:
Text File  |  1994-01-25  |  55.7 KB  |  1,808 lines
  1. Newsgroups: comp.sources.misc
  2. From: wietse@wzv.win.tue.nl (Wietse Venema)
  3. Subject: v41i108:  tcp_wrappers - TCP/IP daemon wrappers v6.0, Patch01
  4. Message-ID: <1994Jan25.213939.5513@sparky.sterling.com>
  5. X-Md4-Signature: 171188239b2fc5a648179492e789a730
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Eindhoven University of Technology, The Netherlands
  8. Date: Tue, 25 Jan 1994 21:39:39 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: wietse@wzv.win.tue.nl (Wietse Venema)
  12. Posting-number: Volume 41, Issue 108
  13. Archive-name: tcp_wrappers/patch01
  14. Environment: UNIX, INET
  15. Patch-To: tcp_wrappers: Volume 39, Issue 110-113
  16.  
  17. This is a patch to the 6.0 version of the TCP/IP daemon wrapper
  18. package that appeared in comp.sources.misc Volume 39, Issue 110.
  19. A fully-patched source kit can be found in the usual places: 
  20.  
  21.     ftp.win.tue.nl:/pub/security/tcp_wrappers_6.1.shar.Z
  22.     cert.org:/pub/tools/tcp_wrappers
  23.  
  24. With these programs you can monitor and control who connects to your
  25. TFTP, EXEC, FTP, RSH, TELNET, RLOGIN, FINGER, and SYSTAT network
  26. services, and many others.
  27.  
  28. The programs can be installed without any changes to existing software
  29. or configuration files. By default, they just log the remote host name
  30. and do some sanity checks on the origin of the request. No information
  31. is exchanged with the remote client process.
  32.  
  33. Release 6.1 deals with portability issues: new ready-to-build Makefile
  34. rule sets for Dynix, Convex, SCO, EP/IX and others; workarounds for
  35. strangeness in NeXT, Dynix/PTX (still incomplete), and DG/UX.  If the
  36. 6.0 release works for you, there is no need to install 6.1.
  37.  
  38. There is a small change in internal interfaces; older applications must
  39. be recompiled before they can be linked to the new wrapper library.
  40.  
  41.     Wietse Venema (wietse@wzv.win.tue.nl),
  42.     Department of Mathematics and Computing Science,
  43.     Eindhoven University of Technology,
  44.     The Netherlands.
  45.  
  46. diff -c ../6.0/BLURB ./BLURB
  47. *** ../6.0/BLURB    Tue Dec 21 21:37:57 1993
  48. --- ./BLURB    Tue Dec 21 21:37:16 1993
  49. ***************
  50. *** 1,6 ****
  51. ! @(#) BLURB 1.14 93/09/28 23:03:27
  52.   
  53. ! This is the 6.0 version of the TCP/IP daemon wrapper package.
  54.   
  55.   With these programs you can monitor and control who connects to your
  56.   TFTP, EXEC, FTP, RSH, TELNET, RLOGIN, FINGER, and SYSTAT network
  57. --- 1,6 ----
  58. ! @(#) BLURB 1.15 93/12/13 22:22:51
  59.   
  60. ! This is the 6.1 version of the TCP/IP daemon wrapper package.
  61.   
  62.   With these programs you can monitor and control who connects to your
  63.   TFTP, EXEC, FTP, RSH, TELNET, RLOGIN, FINGER, and SYSTAT network
  64. ***************
  65. *** 11,41 ****
  66.   and do some sanity checks on the origin of the request. No information
  67.   is exchanged with the remote client process.
  68.   
  69. ! Significant differences with respect to the previous release:
  70.   
  71. !     - Easier to install: ready-to-use build procedures for many common
  72. !     UNIX implementations (sun, ultrix, hp-ux, irix, aix, ...).
  73. ! 
  74. !     - Support for the System V.4 TLI network programming interface
  75. !     (Solaris, DG/UX etc.).  In case of TLI applications on top of
  76. !     TCP/IP, the wrappers provide the same functionality as with
  77. !     socket-based applications.
  78. ! 
  79. !     - A more secure finger tool for automatic reverse finger probes.
  80. ! 
  81. !     - New extension language keywords:  "severity", to adjust the log
  82. !     noise level; "allow" and "deny", to keep all access-control rules
  83. !     within a single file.
  84. ! 
  85. !     - More support for selective remote username lookups.
  86. ! 
  87. !     - More workarounds for System V bugs: IRIX username lookups, and
  88. !     SCO problems with UDP.
  89. ! 
  90. ! The default mode of operation (no TLI support) should be backwards
  91. ! compatible with earlier versions. The library interface has changed,
  92. ! though, and programs that depend on the libwrap.a library will have to
  93. ! be recompiled before they can be relinked.
  94.   
  95.       Wietse Venema (wietse@wzv.win.tue.nl),
  96.       Department of Mathematics and Computing Science,
  97. --- 11,23 ----
  98.   and do some sanity checks on the origin of the request. No information
  99.   is exchanged with the remote client process.
  100.   
  101. ! Release 6.1 deals with portability issues: new ready-to-build Makefile
  102. ! rule sets for Dynix, Convex, SCO, EP/IX and others; workarounds for
  103. ! strangeness in NeXT, Dynix/PTX (still incomplete), and DG/UX.  If the
  104. ! 6.0 release works for you, there is no need to install 6.1.
  105.   
  106. ! There is a small change in internal interfaces; older applications must
  107. ! be recompiled before they can be linked to the new wrapper library.
  108.   
  109.       Wietse Venema (wietse@wzv.win.tue.nl),
  110.       Department of Mathematics and Computing Science,
  111. diff -c ../6.0/CHANGES ./CHANGES
  112. *** ../6.0/CHANGES    Tue Dec 21 21:38:06 1993
  113. --- ./CHANGES    Tue Dec 21 21:37:25 1993
  114. ***************
  115. *** 1,3 ****
  116. --- 1,43 ----
  117. + Changes per release 6.1.
  118. + ========================
  119. + 
  120. + - Re-implemented all environment access routines. Most systems have
  121. + putenv() but no setenv(), some systems have setenv() but no putenv(),
  122. + and there are even systems that have neither setenv() nor putenv(). The
  123. + benefit of all this is that more systems can now be treated in the same
  124. + way. File:  environ.c.
  125. + 
  126. + - Workaround for a weird problem with DG/UX when the wrapper is run as
  127. + nobody (i.e. fingerd). For some reason the ioctl(fd, I_FIND, "sockmod")
  128. + call fails even with socket-based applications. The "fix" is to always
  129. + assume sockets when the ioctl(fd, I_FIND, "timod") call fails. File:
  130. + fromhost.c. Thanks to Paul de Vries (vries@dutentb.et.tudelft.nl) for
  131. + helping me to figure out this one.
  132. + 
  133. + - Implemented a workaround for Dynix/PTX and other systems with TLI
  134. + that lack some essential support routines. Thanks to Bugs Brouillard
  135. + (brouill@hsuseq.humboldt.edu) for the hospitality to try things out.
  136. + The trick is to temporarily switch to the socket API to identify the
  137. + client, and to switch back to TLI when done.  It still does not work
  138. + right for basic network services such as telnet. File: fromhost.c.
  139. + 
  140. + - Easy-to-build procedures for SCO UNIX, ConvexOS with UltraNet, EP/IX,
  141. + Dynix 3.2, Dynix/PTX. File: Makefile.
  142. + 
  143. + - Variable rfc931 timeout. Files: rfc931.c, options.c, log_tcp.h, try.c.
  144. + 
  145. + - Further simplification of the rfc931 code. File: rfc931.c.
  146. + 
  147. + - The fromhost() interface stinks: I cannot change that, but at least
  148. + the from_sock() and from_tli() functions now accept a file descriptor
  149. + argument.
  150. + 
  151. + - Fixed a buglet: fromhost() would pass a garbage file descriptor to
  152. + the isastream() call.
  153. + 
  154. + - On some systems the finger client program lives in /usr/bsd. File:
  155. + safe_finger.c.
  156. + 
  157.   Changes per release 6.0.
  158.   ========================
  159.   
  160. diff -c ../6.0/Makefile ./Makefile
  161. *** ../6.0/Makefile    Tue Dec 21 21:37:56 1993
  162. --- ./Makefile    Tue Dec 21 21:37:14 1993
  163. ***************
  164. *** 1,22 ****
  165. ! # @(#) Makefile 1.9 93/09/28 23:39:55
  166.   
  167.   what:
  168.       @echo
  169.       @echo "Usage: edit the REAL_DAEMON_DIR definition in the Makefile then:"
  170.       @echo
  171. !     @echo "    make type-of-system"
  172.       @echo
  173.       @echo "If you are in a hurry you can try instead:"
  174.       @echo
  175. !     @echo "    make REAL_DAEMON_DIR=/some/where type-of-system"
  176.       @echo
  177. !     @echo "This Makefile knows about the following types of systems:"
  178.       @echo
  179. !     @echo "    sunos4 sunos5 next irix hpux ultrix aix alpha osf"
  180. !     @echo "    sunos40 {386,net,free}bsd linux sysv4 esix dgux"
  181.       @echo
  182.       @echo "If none of these match your environment, edit the system"
  183. !     @echo "dependencies section in the Makefile and do a 'make other'."
  184.       @echo
  185.   
  186.   #######################################################
  187. --- 1,29 ----
  188. ! # @(#) Makefile 1.10 93/12/13 22:22:56
  189.   
  190.   what:
  191.       @echo
  192.       @echo "Usage: edit the REAL_DAEMON_DIR definition in the Makefile then:"
  193.       @echo
  194. !     @echo "    make sys-type"
  195.       @echo
  196.       @echo "If you are in a hurry you can try instead:"
  197.       @echo
  198. !     @echo "    make REAL_DAEMON_DIR=/foo/bar sys-type"
  199.       @echo
  200. !     @echo "And for a version with language extensions enabled:"
  201.       @echo
  202. !     @echo "    make REAL_DAEMON_DIR=/foo/bar STYLE=-DPROCESS_OPTIONS sys-type"
  203.       @echo
  204. +     @echo "This Makefile knows about the following sys-types:"
  205. +     @echo
  206. +     @echo "    generic (most bsd-ish systems with sys5 compatibility)"
  207. +     @echo "    386bsd aix alpha apollo convex-ultranet dgux dynix"
  208. +     @echo "    dynix-ptx epix esix freebsd hpux irix isc(untested)"
  209. +     @echo "    linux mips(untested) netbsd next osf sco-nis sco-od2"
  210. +     @echo "    sunos4 sunos40 sunos5 sysv4 ultrix unicos(untested)"
  211. +     @echo
  212.       @echo "If none of these match your environment, edit the system"
  213. !     @echo "dependencies sections in the Makefile and do a 'make other'."
  214.       @echo
  215.   
  216.   #######################################################
  217. ***************
  218. *** 31,37 ****
  219.   # 
  220.   # Uncomment the appropriate line if you are going to edit inetd.conf.
  221.   #
  222. ! # Ultrix 4.x SunOS 4.x
  223.   #REAL_DAEMON_DIR=/usr/etc
  224.   #
  225.   # SysV.4 Solaris 2.x OSF AIX
  226. --- 38,44 ----
  227.   # 
  228.   # Uncomment the appropriate line if you are going to edit inetd.conf.
  229.   #
  230. ! # Ultrix 4.x SunOS 4.x ConvexOS 10.x
  231.   #REAL_DAEMON_DIR=/usr/etc
  232.   #
  233.   # SysV.4 Solaris 2.x OSF AIX
  234. ***************
  235. *** 40,46 ****
  236.   # BSD 4.4
  237.   #REAL_DAEMON_DIR=/usr/libexec
  238.   #
  239. ! # HP-UX
  240.   #REAL_DAEMON_DIR=/etc
  241.   
  242.   # Easy installation: vendor-provided network daemons are moved to "some
  243. --- 47,53 ----
  244.   # BSD 4.4
  245.   #REAL_DAEMON_DIR=/usr/libexec
  246.   #
  247. ! # HP-UX SCO
  248.   #REAL_DAEMON_DIR=/etc
  249.   
  250.   # Easy installation: vendor-provided network daemons are moved to "some
  251. ***************
  252. *** 51,57 ****
  253.   # 
  254.   # Uncomment the appropriate line if you are going to move your daemons.
  255.   #
  256. ! # Ultrix 4.x SunOS 4.x
  257.   #REAL_DAEMON_DIR=/usr/etc/...
  258.   #
  259.   # SysV.4 Solaris 2.x OSF AIX
  260. --- 58,64 ----
  261.   # 
  262.   # Uncomment the appropriate line if you are going to move your daemons.
  263.   #
  264. ! # Ultrix 4.x SunOS 4.x ConvexOS 10.x
  265.   #REAL_DAEMON_DIR=/usr/etc/...
  266.   #
  267.   # SysV.4 Solaris 2.x OSF AIX
  268. ***************
  269. *** 60,78 ****
  270.   # BSD 4.4
  271.   #REAL_DAEMON_DIR=/usr/libexec/...
  272.   #
  273. ! # HP-UX
  274.   #REAL_DAEMON_DIR=/etc/...
  275.   
  276.   # End of mandatory section
  277.   ##########################
  278.   
  279. ! ##############################################
  280. ! # System dependencies: ready-to-use templates.
  281.   #
  282. ! # Ready-to-use templates are available for sunos 4.x, sunos 5.x (sysv4),
  283. ! # ultrix, hp-ux, irix 4.x and others. These templates take care of all system
  284. ! # dependencies: after editing the REAL_DAEMON_DIR definition above, just do
  285. ! # a "make sunos4" (or whatever system type is appropriate).
  286.   #
  287.   # If your system is not listed (or something that comes close enough), you
  288.   # will have to edit the system depencies section below and do a "make other".  
  289. --- 67,85 ----
  290.   # BSD 4.4
  291.   #REAL_DAEMON_DIR=/usr/libexec/...
  292.   #
  293. ! # HP-UX SCO
  294.   #REAL_DAEMON_DIR=/etc/...
  295.   
  296.   # End of mandatory section
  297.   ##########################
  298.   
  299. ! ##########################################
  300. ! # Ready-to-use system-dependent templates.
  301.   #
  302. ! # Ready-to-use templates are available for many systems (see the "echo"
  303. ! # commands at the start of this Makefile).  The templates take care of
  304. ! # all system dependencies: after editing the REAL_DAEMON_DIR definition
  305. ! # above, do a "make sunos4" (or whatever system type is appropriate).
  306.   #
  307.   # If your system is not listed (or something that comes close enough), you
  308.   # will have to edit the system depencies section below and do a "make other".  
  309. ***************
  310. *** 80,145 ****
  311.   # Send templates for other UNIX versions to wietse@wzv.win.tue.nl.
  312.   
  313.   # This is good for many BSD+SYSV hybrids with NIS (formerly YP).
  314. ! sunos4 next aix osf alpha:
  315. !     @make LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=setenv.o \
  316.       NETGROUP=-DNETGROUP TLI= all
  317.   
  318. ! # SunOS stopped at release 4.0.x for the 386.
  319.   sunos40:
  320. !     @make LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ="setenv.o strcasecmp.o" \
  321.       NETGROUP=-DNETGROUP TLI= all
  322.   
  323. ! # Ultrix is like sunos4, next, etc., but has miscd, too.
  324.   ultrix:
  325. !     @make LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=setenv.o \
  326.       NETGROUP=-DNETGROUP TLI= all miscd
  327.   
  328. ! # Free bsd and linux have no NIS.
  329.   386bsd netbsd freebsd:
  330. !     @make LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ= NETGROUP= TLI= all
  331.   
  332.   linux:
  333. !     @make LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=setenv.o \
  334.       NETGROUP= TLI= EXTRA_CFLAGS="-DBROKEN_SO_LINGER" all
  335.   
  336.   # This is good for many SYSV+BSD hybrids with NIS, probably also for HP-UX 7.x.
  337.   hpux hpux8 hpux9:
  338. !     @make LIBS= RANLIB=echo ARFLAGS=rv AUX_OBJ=setenv.o \
  339.       NETGROUP=-DNETGROUP TLI= all
  340.   
  341.   # IRIX 4.0.x has a special ar(1) flag.
  342.   irix:
  343. !     @make LIBS=-lsun RANLIB=echo ARFLAGS=rvs AUX_OBJ=setenv.o \
  344.       NETGROUP=-DNETGROUP TLI= all
  345.   
  346.   # SunOS 5.x is close enough to generic System V.4
  347.   sunos5 esix sysv4:
  348. !     @make LIBS="-lsocket -lnsl" RANLIB=echo ARFLAGS=rv \
  349. !     NETGROUP=-DNETGROUP AUX_OBJ=setenv.o TLI=-DTLI all
  350.   
  351.   # DG/UX 5.4.1 is like SYSV.4 but slightly different.
  352.   dgux:
  353. !     @make LIBS=-lnsl RANLIB=echo ARFLAGS=rv \
  354. !     NETGROUP=-DNETGROUP AUX_OBJ=setenv.o TLI=-DTLI \
  355.       BUGS="$(BUGS) -DINET_ADDR_BUG" all
  356.   
  357. ! # Untested templates. The wrapper is known to run on these systems, I just
  358. ! # don't have sufficient time+details to prepare complete makefile templates.
  359.   
  360. ! ptx:
  361. !     @echo "Warning: the AUX_OBJ and/or NETGROUP definitions may be wrong."
  362. !     make LIBS="-lsocket -linet -lnsl -lnfs" RANLIB=echo ARFLAGS=rv \
  363. !     AUX_OBJ="setenv.o strcasecmp.o" NETGROUP= TLI=-DTLI all
  364.   
  365.   isc:
  366. !     @echo "Warning: the AUX_OBJ and/or NETGROUP definitions may be wrong."
  367. !     make LIBS="-linet -lnsl_s -ldbm" RANLIB=echo ARFLAGS=rv \
  368. !     AUX_OBJ="setenv.o strcasecmp.o" NETGROUP= TLI= all
  369.   
  370.   unicos:
  371.       @echo "Warning: some definitions may be wrong."
  372. !     make LIBS=-lnet RANLIB=echo ARFLAGS=rv \
  373. !     AUX_OBJ="setenv.o strcasecmp.o" NETGROUP= TLI= all
  374.   
  375.   ###############################################################
  376.   # System dependencies: TLI (transport-level interface) support.
  377. --- 87,209 ----
  378.   # Send templates for other UNIX versions to wietse@wzv.win.tue.nl.
  379.   
  380.   # This is good for many BSD+SYSV hybrids with NIS (formerly YP).
  381. ! generic sunos4 aix osf alpha dynix:
  382. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  383. !     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  384.       NETGROUP=-DNETGROUP TLI= all
  385.   
  386. ! # The NeXT loader needs "-m" or it barfs on redefined library functions.
  387. ! next:
  388. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  389. !     LIBS=-m RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  390. !     NETGROUP=-DNETGROUP TLI= all
  391. ! 
  392. ! # SunOS for the 386 was frozen at release 4.0.x.
  393.   sunos40:
  394. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  395. !     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ="environ.o strcasecmp.o" \
  396.       NETGROUP=-DNETGROUP TLI= all
  397.   
  398. ! # Ultrix is like sunos4, aix, next, etc., but has miscd, too.
  399.   ultrix:
  400. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  401. !     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  402.       NETGROUP=-DNETGROUP TLI= all miscd
  403.   
  404. ! # This works on EP/IX 1.4.3 and will likely work on Mips (reggers@julian.uwo.ca)
  405. ! epix:
  406. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  407. !     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  408. !     NETGROUP=-DNETGROUP TLI= SYSTYPE="-systype bsd43" all
  409. ! 
  410. ! # Free bsd and linux by default have no NIS.
  411.   386bsd netbsd freebsd:
  412. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  413. !     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ= NETGROUP= TLI= all
  414.   
  415.   linux:
  416. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  417. !     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  418.       NETGROUP= TLI= EXTRA_CFLAGS="-DBROKEN_SO_LINGER" all
  419.   
  420.   # This is good for many SYSV+BSD hybrids with NIS, probably also for HP-UX 7.x.
  421.   hpux hpux8 hpux9:
  422. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  423. !     LIBS= RANLIB=echo ARFLAGS=rv AUX_OBJ=environ.o \
  424.       NETGROUP=-DNETGROUP TLI= all
  425.   
  426. + # ConvexOS-10.x with UltraNet support (ukkonen@csc.fi).
  427. + convex-ultranet:
  428. +     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  429. +     LIBS=-lulsock RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  430. +     NETGROUP=-DNETGROUP TLI= all
  431. + 
  432. + # Dynix/PTX has TLI, but the support is not as complete as with SYSV4.
  433. + 
  434. + dynix-ptx:
  435. +     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  436. +     LIBS="-lsocket -linet -lnsl" RANLIB=echo ARFLAGS=rv \
  437. +     AUX_OBJ="environ.o strcasecmp.o" NETGROUP= TLI=-DTLI_SOCKETS all
  438. + 
  439.   # IRIX 4.0.x has a special ar(1) flag.
  440.   irix:
  441. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  442. !     LIBS=-lsun RANLIB=echo ARFLAGS=rvs AUX_OBJ=environ.o \
  443.       NETGROUP=-DNETGROUP TLI= all
  444.   
  445.   # SunOS 5.x is close enough to generic System V.4
  446.   sunos5 esix sysv4:
  447. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  448. !     LIBS="-lsocket -lnsl" RANLIB=echo ARFLAGS=rv \
  449. !     NETGROUP=-DNETGROUP AUX_OBJ=environ.o TLI=-DTLI all
  450.   
  451.   # DG/UX 5.4.1 is like SYSV.4 but slightly different.
  452.   dgux:
  453. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  454. !     LIBS=-lnsl RANLIB=echo ARFLAGS=rv \
  455. !     NETGROUP=-DNETGROUP AUX_OBJ=environ.o TLI=-DTLI \
  456.       BUGS="$(BUGS) -DINET_ADDR_BUG" all
  457.   
  458. ! # SCO OpenDesktop 2.0, release 3.2 (peter@midnight.com).
  459. ! sco-od2:
  460. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  461. !     LIBS="-lrpcsvc -lrpc -lyp -lrpc -lrpcsvc -lsocket" \
  462. !     RANLIB=echo ARFLAGS=rv AUX_OBJ=environ.o \
  463. !     NETGROUP=-DNETGROUP TLI="" all
  464.   
  465. ! # SCO 3.2v4.2 with TCP/IP 1.2.1 (Eduard.Vopicka@vse.cz)
  466. ! sco-nis:
  467. !     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  468. !     LIBS="-lyp -lrpc -lsocket -lyp -lc_s -lc" \
  469. !     RANLIB=echo ARFLAGS=rv AUX_OBJ=environ.o \
  470. !     NETGROUP=-DNETGROUP TLI= EXTRA_CFLAGS="-nointl" all
  471.   
  472. + # Domain SR10.4. Build under bsd, run under either sysv3 or bsd43.
  473. + apollo:
  474. +     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  475. +     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  476. +     NETGROUP=-DNETGROUP TLI= SYSTYPE="-A run,any -A sys,any" all
  477. + 
  478. + # Untested.
  479. + mips:
  480. +     @echo "Warning: some definitions may be wrong."
  481. +     make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  482. +     LIBS= RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  483. +     NETGROUP=-DNETGROUP TLI= SYSTYPE="-sysname bsd43" all
  484. + 
  485. + # Untested.
  486.   isc:
  487. !     @echo "Warning: some definitions may be wrong."
  488. !     make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  489. !     LIBS="-linet -lnsl_s -ldbm" RANLIB=echo ARFLAGS=rv \
  490. !     AUX_OBJ="environ.o strcasecmp.o" NETGROUP= TLI= all
  491.   
  492. + # Untested. Borrow me a Cray?
  493.   unicos:
  494.       @echo "Warning: some definitions may be wrong."
  495. !     make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  496. !     LIBS=-lnet RANLIB=echo ARFLAGS=rv \
  497. !     AUX_OBJ="environ.o strcasecmp.o" NETGROUP= TLI= all
  498.   
  499.   ###############################################################
  500.   # System dependencies: TLI (transport-level interface) support.
  501. ***************
  502. *** 166,183 ****
  503.   #############################################################################
  504.   # System dependencies: routines that are not present in the system libraries.
  505.   # 
  506. ! # If your system library does not have setenv(), strcasecmp() or strtok(),
  507. ! # use the ones provided with this source distribution.
  508.   
  509. ! AUX_OBJ= setenv.o
  510. ! #AUX_OBJ= setenv.o strcasecmp.o
  511. ! #AUX_OBJ= setenv.o strcasecmp.o strtok.o
  512.   
  513.   # Uncomment the following if your C library does not provide the
  514.   # strchr/strrchr/memcmp routines, but comes with index/rindex/bcmp.  If
  515.   # that is the case, you probably also do not have strtok() (see above).
  516.   #
  517. ! #STRINGS= -Dstrchr=index -Dstrrchr=rindex -Dmemcmp=bcmp
  518.   
  519.   #################################################################
  520.   # System dependencies: selection of non-default object libraries.
  521. --- 230,248 ----
  522.   #############################################################################
  523.   # System dependencies: routines that are not present in the system libraries.
  524.   # 
  525. ! # If your system library does not have set/putenv(), strcasecmp() or strtok(),
  526. ! # use the ones provided with this source distribution. The environ.c module
  527. ! # implements setenv(), getenv(), and putenv().
  528.   
  529. ! AUX_OBJ= environ.o
  530. ! #AUX_OBJ= environ.o strcasecmp.o
  531. ! #AUX_OBJ= environ.o strcasecmp.o strtok.o
  532.   
  533.   # Uncomment the following if your C library does not provide the
  534.   # strchr/strrchr/memcmp routines, but comes with index/rindex/bcmp.  If
  535.   # that is the case, you probably also do not have strtok() (see above).
  536.   #
  537. ! #STRINGS= -Dstrchr=index -Dstrrchr=rindex -Dmemcmp=bcmp -Dno_memcpy
  538.   
  539.   #################################################################
  540.   # System dependencies: selection of non-default object libraries.
  541. ***************
  542. *** 400,406 ****
  543.   KIT    = README miscd.c tcpd.c fromhost.c hosts_access.c shell_cmd.c \
  544.       log_tcp.h try.c refuse.c Makefile hosts_access.5 strcasecmp.c \
  545.       BLURB rfc931.c tcpd.8 hosts_info.c hosts_access.3 hosts_ctl.c \
  546. !     percent_x.c options.c clean_exit.c setenv.c patchlevel.h strtok.c \
  547.       fix_options.c workarounds.c socket.c tli.c DISCLAIMER \
  548.       fakelog.c safe_finger.c hosts_options.5 options.h CHANGES \
  549.       try-from.c init_client.c 6compat.c
  550. --- 465,471 ----
  551.   KIT    = README miscd.c tcpd.c fromhost.c hosts_access.c shell_cmd.c \
  552.       log_tcp.h try.c refuse.c Makefile hosts_access.5 strcasecmp.c \
  553.       BLURB rfc931.c tcpd.8 hosts_info.c hosts_access.3 hosts_ctl.c \
  554. !     percent_x.c options.c clean_exit.c environ.c patchlevel.h strtok.c \
  555.       fix_options.c workarounds.c socket.c tli.c DISCLAIMER \
  556.       fakelog.c safe_finger.c hosts_options.5 options.h CHANGES \
  557.       try-from.c init_client.c 6compat.c
  558. ***************
  559. *** 410,422 ****
  560.   all other: config-check tcpd try try-from safe_finger
  561.   
  562.   config-check:
  563. !     @set +e; test -n "$(REAL_DAEMON_DIR)" || { \
  564. !      echo "" ; \
  565. !      echo "Please edit the Makefile to define the REAL_DAEMON_DIR macro,";\
  566. !      echo "or build with \`make REAL_DAEMON_DIR=/some/where ....'";\
  567. !      echo "" ; \
  568. !      exit 1; \
  569. !     }
  570.   
  571.   $(LIB):    $(LIB_OBJ)
  572.       rm -f $(LIB)
  573. --- 475,481 ----
  574.   all other: config-check tcpd try try-from safe_finger
  575.   
  576.   config-check:
  577. !     @set +e; test -n "$(REAL_DAEMON_DIR)" || { make; exit 1; }
  578.   
  579.   $(LIB):    $(LIB_OBJ)
  580.       rm -f $(LIB)
  581. ***************
  582. *** 430,436 ****
  583.       $(CC) $(CFLAGS) -o $@ miscd.o fromhost.o $(LIB) $(LIBS)
  584.   
  585.   safe_finger:
  586. !     $(CC) $(CFLAGS) -o $@ safe_finger.c
  587.   
  588.   try:    try.o fakelog.o $(LIB)
  589.       $(CC) $(CFLAGS) -o $@ try.o fakelog.o $(LIB) $(LIBS)
  590. --- 489,495 ----
  591.       $(CC) $(CFLAGS) -o $@ miscd.o fromhost.o $(LIB) $(LIBS)
  592.   
  593.   safe_finger:
  594. !     $(CC) $(CFLAGS) -o $@ safe_finger.c $(LIB) $(LIBS)
  595.   
  596.   try:    try.o fakelog.o $(LIB)
  597.       $(CC) $(CFLAGS) -o $@ try.o fakelog.o $(LIB) $(LIBS)
  598. ***************
  599. *** 462,468 ****
  600.       -DREAL_DAEMON_DIR=\"$(REAL_DAEMON_DIR)\" \
  601.       tcpd.c fromhost.c socket.c tli.c hosts_access.c shell_cmd.c \
  602.       refuse.c rfc931.c hosts_info.c percent_x.c clean_exit.c options.c \
  603. !     setenv.c fix_options.c workarounds.c init_client.c
  604.   
  605.   miscd_lint:
  606.       lint -DFACILITY=LOG_MAIL -DHOSTS_ACCESS -DPARANOID -DNETGROUP \
  607. --- 521,527 ----
  608.       -DREAL_DAEMON_DIR=\"$(REAL_DAEMON_DIR)\" \
  609.       tcpd.c fromhost.c socket.c tli.c hosts_access.c shell_cmd.c \
  610.       refuse.c rfc931.c hosts_info.c percent_x.c clean_exit.c options.c \
  611. !     environ.c fix_options.c workarounds.c init_client.c
  612.   
  613.   miscd_lint:
  614.       lint -DFACILITY=LOG_MAIL -DHOSTS_ACCESS -DPARANOID -DNETGROUP \
  615. ***************
  616. *** 472,482 ****
  617.       -DREAL_MISCD=\"$(REAL_DAEMON_DIR)/miscd\" \
  618.       miscd.c fromhost.c socket.c tli.c hosts_access.c shell_cmd.c \
  619.       refuse.c rfc931.c hosts_info.c percent_x.c clean_exit.c options.c \
  620. !     setenv.c fix_options.c workarounds.c init_client.c
  621.   
  622.   try_lint:
  623.       lint -DFACILITY=LOG_MAIL -DSEVERITY=$(SEVERITY) -DHOSTS_ACCESS \
  624. !     $(TABLES) -DNETGROUP -DPROCESS_OPTIONS \
  625.       try.c hosts_ctl.c hosts_access.c hosts_info.c percent_x.c options.c \
  626.       workarounds.c init_client.c
  627.   
  628. --- 531,541 ----
  629.       -DREAL_MISCD=\"$(REAL_DAEMON_DIR)/miscd\" \
  630.       miscd.c fromhost.c socket.c tli.c hosts_access.c shell_cmd.c \
  631.       refuse.c rfc931.c hosts_info.c percent_x.c clean_exit.c options.c \
  632. !     environ.c fix_options.c workarounds.c init_client.c
  633.   
  634.   try_lint:
  635.       lint -DFACILITY=LOG_MAIL -DSEVERITY=$(SEVERITY) -DHOSTS_ACCESS \
  636. !     $(TABLES) -DNETGROUP -DPROCESS_OPTIONS -DRFC931_TIMEOUT=10 \
  637.       try.c hosts_ctl.c hosts_access.c hosts_info.c percent_x.c options.c \
  638.       workarounds.c init_client.c
  639.   
  640. ***************
  641. *** 483,489 ****
  642.   printfck:
  643.       printfck -f printf.ck tcpd.c fromhost.c socket.c tli.c hosts_access.c shell_cmd.c \
  644.       refuse.c rfc931.c hosts_info.c percent_x.c clean_exit.c options.c \
  645. !     setenv.c fix_options.c workarounds.c init_client.c >aap.c
  646.       lint -DFACILITY=LOG_MAIL -DHOSTS_ACCESS -DPARANOID -DNETGROUP \
  647.       -DGETPEERNAME_BUG -DDAEMON_UMASK=022 -DSEVERITY=$(SEVERITY) \
  648.       $(TABLES) -DKILL_IP_OPTIONS -DPROCESS_OPTIONS \
  649. --- 542,548 ----
  650.   printfck:
  651.       printfck -f printf.ck tcpd.c fromhost.c socket.c tli.c hosts_access.c shell_cmd.c \
  652.       refuse.c rfc931.c hosts_info.c percent_x.c clean_exit.c options.c \
  653. !     environ.c fix_options.c workarounds.c init_client.c >aap.c
  654.       lint -DFACILITY=LOG_MAIL -DHOSTS_ACCESS -DPARANOID -DNETGROUP \
  655.       -DGETPEERNAME_BUG -DDAEMON_UMASK=022 -DSEVERITY=$(SEVERITY) \
  656.       $(TABLES) -DKILL_IP_OPTIONS -DPROCESS_OPTIONS \
  657. ***************
  658. *** 494,499 ****
  659. --- 553,559 ----
  660.   # Compilation dependencies.
  661.   
  662.   clean_exit.o: log_tcp.h Makefile
  663. + environ.o: Makefile
  664.   fix_options.o: log_tcp.h Makefile
  665.   fromhost.o: log_tcp.h Makefile
  666.   hosts_access.o: options.h log_tcp.h Makefile
  667. diff -c ../6.0/README ./README
  668. *** ../6.0/README    Tue Dec 21 21:37:51 1993
  669. --- ./README    Tue Dec 21 21:37:09 1993
  670. ***************
  671. *** 1,6 ****
  672. ! @(#) README 1.17 93/09/28 23:03:22
  673.   
  674. ! This is the 6.0 version of the TCP/IP daemon wrapper package.
  675.   
  676.   Table of contents
  677.   -----------------
  678. --- 1,6 ----
  679. ! @(#) README 1.18 93/12/13 22:22:59
  680.   
  681. ! This is the 6.1 version of the TCP/IP daemon wrapper package.
  682.   
  683.   Table of contents
  684.   -----------------
  685. ***************
  686. *** 57,63 ****
  687.   SunOS >= 3.4 and ISC 2.2. Later versions have been installed on a wide
  688.   variety of platforms such as SunOS 4.x and 5.x, Ultrix 3.x and 4.x, DEC
  689.   OSF/1 T1.2-2, HP-UX 8.x, AIX 3.1.5 up to 3.2.4, Apollo SR10.3.5, Sony,
  690. ! NeXT, SCO UNIX, DG/UX, Cray, and an unknown number of other ones.
  691.   
  692.   Requirements are that the network daemons are spawned by a super server
  693.   such as the inetd; a 4.3BSD-style socket programming interface and/or
  694. --- 57,63 ----
  695.   SunOS >= 3.4 and ISC 2.2. Later versions have been installed on a wide
  696.   variety of platforms such as SunOS 4.x and 5.x, Ultrix 3.x and 4.x, DEC
  697.   OSF/1 T1.2-2, HP-UX 8.x, AIX 3.1.5 up to 3.2.4, Apollo SR10.3.5, Sony,
  698. ! NeXT, SCO UNIX, DG/UX, Cray, Dynix, and an unknown number of other ones.
  699.   
  700.   Requirements are that the network daemons are spawned by a super server
  701.   such as the inetd; a 4.3BSD-style socket programming interface and/or
  702. ***************
  703. *** 469,474 ****
  704. --- 469,479 ----
  705.   remote host address (and hence, the name) in case of UDP requests.
  706.   A patch is available for ConvexOS 10.1; later releases should be OK.
  707.   
  708. + With early Solaris (SunOS 5) versions, the syslog daemon will leave
  709. + behind zombie process when writing to logged-in users.  Workaround:
  710. + increase the syslogd threshold for logging to users, or reduce the
  711. + wrapper's logging severity.
  712. + 
  713.   On some systems, the optional RFC 931 remote username lookups may
  714.   trigger a kernel bug.  When a client host connects to your system, and
  715.   the RFC 931 connection from your system to that client is rejected by a
  716. ***************
  717. *** 569,574 ****
  718. --- 574,584 ----
  719.   network daemons live in /usr/libexec, /usr/sbin or in /etc, or have no
  720.   "in." prefix to their names, but you get the idea.
  721.   
  722. + File protections: the wrapper, all files used by the wrapper, and all
  723. + directories in the path leading to those files, should be accessible
  724. + but not writable for unprivileged users (mode 755 or mode 555). Do not
  725. + install the wrapper set-uid.
  726. + 
  727.   Ultrix only:  If you want to monitor the SYSTAT service, move the
  728.   vendor-provided miscd daemon to the location specified by the
  729.   REAL_DAEMON_DIR macro in the Makefile, and install the miscd wrapper
  730. ***************
  731. *** 618,626 ****
  732.   
  733.   Install the tcpd command in a suitable place. Apollo UNIX users will
  734.   want to install it under a different name because the name "tcpd" is
  735. ! already taken; a suitable name for the wrapper program would be
  736. ! "frontd".  Then perform the following edits on the inetd configuration
  737. ! file (usually /etc/inetd.conf or /etc/inet/inetd.conf):
  738.   
  739.       finger  stream  tcp     nowait  nobody  /usr/etc/in.fingerd     in.fingerd
  740.                                               ^^^^^^^^^^^^^^^^^^^
  741. --- 628,642 ----
  742.   
  743.   Install the tcpd command in a suitable place. Apollo UNIX users will
  744.   want to install it under a different name because the name "tcpd" is
  745. ! already taken; a suitable name would be "frontd".  
  746. ! 
  747. ! File protections: the wrapper, all files used by the wrapper, and all
  748. ! directories in the path leading to those files, should be accessible
  749. ! but not writable for unprivileged users (mode 755 or mode 555). Do not
  750. ! install the wrapper set-uid.
  751. ! 
  752. ! Then perform the following edits on the inetd configuration file
  753. ! (usually /etc/inetd.conf or /etc/inet/inetd.conf):
  754.   
  755.       finger  stream  tcp     nowait  nobody  /usr/etc/in.fingerd     in.fingerd
  756.                                               ^^^^^^^^^^^^^^^^^^^
  757. diff -c ../6.0/environ.c ./environ.c
  758. *** ../6.0/environ.c    Tue Dec 21 21:39:12 1993
  759. --- ./environ.c    Tue Dec 21 21:37:20 1993
  760. ***************
  761. *** 0 ****
  762. --- 1,224 ----
  763. + /*
  764. +  * Many systems have putenv() but no setenv(). Other systems have setenv()
  765. +  * but no putenv() (MIPS). Still other systems have neither (NeXT). This is a
  766. +  * re-implementation that hopefully ends all problems.
  767. +  *
  768. +  * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
  769. +  */
  770. + 
  771. + #ifndef lint
  772. + static char sccsid[] = "@(#) environ.c 1.3 93/10/30 15:38:58";
  773. + #endif
  774. + 
  775. + /* System libraries. */
  776. + 
  777. + extern char **environ;
  778. + extern char *strchr();
  779. + extern char *strcpy();
  780. + extern char *strncpy();
  781. + extern char *malloc();
  782. + extern char *realloc();
  783. + extern int strncmp();
  784. + extern void free();
  785. + 
  786. + #ifdef no_memcpy
  787. + #define memcpy(d,s,l) bcopy(s,d,l)
  788. + #else
  789. + extern char *memcpy();
  790. + #endif
  791. + 
  792. + /* Local stuff. */
  793. + 
  794. + static int addenv();            /* append entry to environment */
  795. + 
  796. + static int allocated = 0;        /* environ is, or is not, allocated */
  797. + 
  798. + #define DO_CLOBBER    1
  799. + 
  800. + /* namelength - determine length of name in "name=whatever" */
  801. + 
  802. + static int namelength(name)
  803. + char   *name;
  804. + {
  805. +     char   *equal;
  806. + 
  807. +     equal = strchr(name, '=');
  808. +     return ((equal == 0) ? strlen(name) : (equal - name));
  809. + }
  810. + 
  811. + /* findenv - given name, locate name=value */
  812. + 
  813. + static char **findenv(name, len)
  814. + char   *name;
  815. + int     len;
  816. + {
  817. +     char  **envp;
  818. + 
  819. +     for (envp = environ; *envp; envp++)
  820. +     if (strncmp(name, *envp, len) == 0 && (*envp)[len] == '=')
  821. +         return (envp);
  822. +     return (0);
  823. + }
  824. + 
  825. + /* getenv - given name, locate value */
  826. + 
  827. + char   *getenv(name)
  828. + char   *name;
  829. + {
  830. +     int     len = namelength(name);
  831. +     char  **envp = findenv(name, len);
  832. + 
  833. +     return (envp ? *envp + len + 1 : 0);
  834. + }
  835. + 
  836. + /* putenv - update or append environment (name,value) pair */
  837. + 
  838. + int     putenv(nameval)
  839. + char   *nameval;
  840. + {
  841. +     char   *equal = strchr(nameval, '=');
  842. +     char   *value = (equal ? equal : "");
  843. + 
  844. +     return (setenv(nameval, value, DO_CLOBBER));
  845. + }
  846. + 
  847. + /* unsetenv - remove variable from environment */
  848. + 
  849. + void    unsetenv(name)
  850. + char   *name;
  851. + {
  852. +     char  **envp;
  853. + 
  854. +     if ((envp = findenv(name, namelength(name))) != 0)
  855. +     while (envp[0] = envp[1])
  856. +         envp++;
  857. + }
  858. + 
  859. + /* setenv - update or append environment (name,value) pair */
  860. + 
  861. + int     setenv(name, value, clobber)
  862. + char   *name;
  863. + char   *value;
  864. + int     clobber;
  865. + {
  866. +     char   *destination;
  867. +     char  **envp;
  868. +     int     l_name;            /* length of name part */
  869. +     int     l_nameval;            /* length of name=value */
  870. + 
  871. +     /* Permit name= and =value. */
  872. + 
  873. +     l_name = namelength(name);
  874. +     envp = findenv(name, l_name);
  875. +     if (envp != 0 && clobber == 0)
  876. +     return (0);
  877. +     if (*value == '=')
  878. +     value++;
  879. +     l_nameval = l_name + strlen(value) + 1;
  880. + 
  881. +     /*
  882. +      * Use available memory if the old value is long enough. Never free an
  883. +      * old name=value entry because it may not be allocated.
  884. +      */
  885. + 
  886. +     destination = (envp != 0 && strlen(*envp) >= l_nameval) ?
  887. +     *envp : malloc(l_nameval + 1);
  888. +     if (destination == 0)
  889. +     return (-1);
  890. +     strncpy(destination, name, l_name);
  891. +     destination[l_name] = '=';
  892. +     strcpy(destination + l_name + 1, value);
  893. +     return ((envp == 0) ? addenv(destination) : (*envp = destination, 0));
  894. + }
  895. + 
  896. + /* cmalloc - malloc and copy block of memory */
  897. + 
  898. + static char *cmalloc(new_len, old, old_len)
  899. + char   *old;
  900. + int     old_len;
  901. + {
  902. +     char   *new = malloc(new_len);
  903. + 
  904. +     if (new != 0)
  905. +     memcpy(new, old, old_len);
  906. +     return (new);
  907. + }
  908. + 
  909. + /* addenv - append environment entry */
  910. + 
  911. + static int addenv(nameval)
  912. + char   *nameval;
  913. + {
  914. +     char  **envp;
  915. +     int     n_used;            /* number of environment entries */
  916. +     int     l_used;            /* bytes used excl. terminator */
  917. +     int     l_need;            /* bytes needed incl. terminator */
  918. + 
  919. +     for (envp = environ; *envp; envp++)
  920. +      /* void */ ;
  921. +     n_used = envp - environ;
  922. +     l_used = n_used * sizeof(*envp);
  923. +     l_need = l_used + 2 * sizeof(*envp);
  924. + 
  925. +     envp = allocated ?
  926. +     (char **) realloc((char *) environ, l_need) :
  927. +     (char **) cmalloc(l_need, (char *) environ, l_used);
  928. +     if (envp == 0) {
  929. +     return (-1);
  930. +     } else {
  931. +     allocated = 1;
  932. +     environ = envp;
  933. +     environ[n_used++] = nameval;        /* add new entry */
  934. +     environ[n_used] = 0;            /* terminate list */
  935. +     return (0);
  936. +     }
  937. + }
  938. + 
  939. + #ifdef TEST
  940. + 
  941. +  /*
  942. +   * Stand-alone program for test purposes.
  943. +   */
  944. + 
  945. + /* printenv - display environment */
  946. + 
  947. + static void printenv()
  948. + {
  949. +     char  **envp;
  950. + 
  951. +     for (envp = environ; *envp; envp++)
  952. +     printf("%s\n", *envp);
  953. + }
  954. + 
  955. + int     main(argc, argv)
  956. + int     argc;
  957. + char  **argv;
  958. + {
  959. +     char   *cp;
  960. +     int     changed = 0;
  961. + 
  962. +     if (argc < 2) {
  963. +     printf("usage: %s name[=value]...\n", argv[0]);
  964. +     return (1);
  965. +     }
  966. +     while (--argc && *++argv) {
  967. +     if (argv[0][0] == '-') {        /* unsetenv() test */
  968. +         unsetenv(argv[0] + 1);
  969. +         changed = 1;
  970. +     } else if (strchr(argv[0], '=') == 0) {    /* getenv() test */
  971. +         cp = getenv(argv[0]);
  972. +         printf("%s: %s\n", argv[0], cp ? cp : "not found");
  973. +     } else {                /* putenv() test */
  974. +         if (putenv(argv[0])) {
  975. +         perror("putenv");
  976. +         return (1);
  977. +         }
  978. +         changed = 1;
  979. +     }
  980. +     }
  981. +     if (changed)
  982. +     printenv();
  983. +     return (0);
  984. + }
  985. + 
  986. + #endif /* TEST */
  987. diff -c ../6.0/fromhost.c ./fromhost.c
  988. *** ../6.0/fromhost.c    Tue Dec 21 21:37:53 1993
  989. --- ./fromhost.c    Tue Dec 21 21:37:11 1993
  990. ***************
  991. *** 23,29 ****
  992.     */
  993.   
  994.   #ifndef lint
  995. ! static char sccsid[] = "@(#) fromhost.c 1.13 93/09/24 19:16:08";
  996.   #endif
  997.   
  998.   /* System libraries. */
  999. --- 23,29 ----
  1000.     */
  1001.   
  1002.   #ifndef lint
  1003. ! static char sccsid[] = "@(#) fromhost.c 1.14 93/12/13 22:23:05";
  1004.   #endif
  1005.   
  1006.   /* System libraries. */
  1007. ***************
  1008. *** 32,38 ****
  1009.   #include <stdio.h>
  1010.   #include <syslog.h>
  1011.   
  1012. ! #ifdef TLI
  1013.   #include <sys/tiuser.h>
  1014.   #include <stropts.h>
  1015.   #endif
  1016. --- 32,38 ----
  1017.   #include <stdio.h>
  1018.   #include <syslog.h>
  1019.   
  1020. ! #if defined(TLI) || defined(TLI_SOCKETS)
  1021.   #include <sys/tiuser.h>
  1022.   #include <stropts.h>
  1023.   #endif
  1024. ***************
  1025. *** 41,46 ****
  1026. --- 41,60 ----
  1027.   
  1028.   #include "log_tcp.h"
  1029.   
  1030. + #if !defined(TLI) && !defined(TLI_SOCKETS)
  1031. + 
  1032. + /* fromhost - compatibility wrapper for socket-only systems */
  1033. + 
  1034. + int     fromhost(client)
  1035. + struct client_info *client;
  1036. + {
  1037. +     int     client_fd = 0;        /* XXX compatibility */
  1038. + 
  1039. +     return (sock_host(client, client_fd));
  1040. + }
  1041. + 
  1042. + #endif /* !defined(TLI) && !defined(TLI_SOCKETS) */
  1043. + 
  1044.   #ifdef TLI
  1045.   
  1046.   /* fromhost - find out what network API we should use */
  1047. ***************
  1048. *** 48,53 ****
  1049. --- 62,68 ----
  1050.   int     fromhost(client)
  1051.   struct client_info *client;
  1052.   {
  1053. +     int     client_fd = 0;        /* XXX compatibility */
  1054.   
  1055.       /*
  1056.        * On systems with streams support the IP network protocol family may
  1057. ***************
  1058. *** 58,71 ****
  1059.        * so if stdin is not a stream we assume sockets.
  1060.        */
  1061.   
  1062. !     if (!isastream(client->fd))
  1063. !     return (sock_host(client));
  1064. !     if (ioctl(0, I_FIND, "timod") > 0)
  1065. !     return (tli_host(client));
  1066. !     if (ioctl(0, I_FIND, "sockmod") > 0)
  1067. !     return (sock_host(client));
  1068. !     syslog(LOG_ERR, "wrapper: cannot establish type of transport interface");
  1069. !     return (0);
  1070.   }
  1071.   
  1072.   #endif /* TLI */
  1073. --- 73,116 ----
  1074.        * so if stdin is not a stream we assume sockets.
  1075.        */
  1076.   
  1077. !     if (ioctl(client_fd, I_FIND, "timod") > 0) {
  1078. !     return (tli_host(client, client_fd));
  1079. !     } else {
  1080. !     return (sock_host(client, client_fd));
  1081. !     }
  1082.   }
  1083.   
  1084.   #endif /* TLI */
  1085. + 
  1086. + #ifdef TLI_SOCKETS
  1087. + 
  1088. + /* fromhost - use socket primitives even with TLI */
  1089. + 
  1090. + int     fromhost(client)
  1091. + struct client_info *client;
  1092. + {
  1093. +     int     client_fd = 0;        /* XXX compatibility */
  1094. +     int     ret;
  1095. + 
  1096. +     /*
  1097. +      * Some System V.3 based systems have TLI but the supporting libraries
  1098. +      * are not as complete as with System V.4. Dynix/PTX is an example. The
  1099. +      * workaround is to temporarily switch to the socket interface, identify
  1100. +      * the client name/address with socket calls, then to switch back to TLI.
  1101. +      */
  1102. + 
  1103. + #define SWAP_MODULE(f, old, new) (ioctl(f, I_POP, old), ioctl(f, I_PUSH, new))
  1104. + 
  1105. +     if (ioctl(client_fd, I_FIND, "timod") > 0) {
  1106. +     if (SWAP_MODULE(client_fd, "timod", "sockmod") != 0)
  1107. +         syslog(LOG_ERR, "swap timod for sockmod: %m");
  1108. +     ret = sock_host(client, client_fd);
  1109. +     if (SWAP_MODULE(client_fd, "sockmod", "timod") != 0)
  1110. +         syslog(LOG_ERR, "swap sockmod for timod: %m");
  1111. +     return (ret);
  1112. +     } else {
  1113. +     return (sock_host(client, client_fd));
  1114. +     }
  1115. + }
  1116. + 
  1117. + #endif /* TLI_SOCKETS */
  1118. diff -c ../6.0/hosts_access.3 ./hosts_access.3
  1119. *** ../6.0/hosts_access.3    Tue Dec 21 21:37:59 1993
  1120. --- ./hosts_access.3    Tue Dec 21 21:37:17 1993
  1121. ***************
  1122. *** 1,5 ****
  1123.   .TH HOSTS_ACCESS 3
  1124. ! .SH
  1125.   hosts_access, hosts_ctl \- access control library
  1126.   .SH SYNOPSIS
  1127.   .nf
  1128. --- 1,5 ----
  1129.   .TH HOSTS_ACCESS 3
  1130. ! .SH NAME
  1131.   hosts_access, hosts_ctl \- access control library
  1132.   .SH SYNOPSIS
  1133.   .nf
  1134. ***************
  1135. *** 63,66 ****
  1136.   Department of Mathematics and Computing Science
  1137.   Eindhoven University of Technology
  1138.   Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  1139. ! \" @(#) hosts_access.3 1.4 93/09/27 18:59:08
  1140. --- 63,66 ----
  1141.   Department of Mathematics and Computing Science
  1142.   Eindhoven University of Technology
  1143.   Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  1144. ! \" @(#) hosts_access.3 1.5 93/12/13 22:23:07
  1145. diff -c ../6.0/hosts_options.5 ./hosts_options.5
  1146. *** ../6.0/hosts_options.5    Tue Dec 21 21:38:05 1993
  1147. --- ./hosts_options.5    Tue Dec 21 21:37:24 1993
  1148. ***************
  1149. *** 117,127 ****
  1150.   .sp
  1151.   Warning: many network daemons reset their environment before spawning a
  1152.   login or shell process.
  1153. ! .IP rfc931
  1154.   Look up the remote user name with the RFC 931 protocol.  This option is
  1155.   silently ignored in case of services based on transports other than
  1156.   TCP.  Requires that the remote system runs an RFC 931-compliant daemon,
  1157.   and may cause noticeable delays with connections from non-UNIX hosts.
  1158.   .SH DIAGNOSTICS
  1159.   An error is reported when a syntax error is found in a host access
  1160.   control rule; further options will be ignored, and service is denied.
  1161. --- 117,129 ----
  1162.   .sp
  1163.   Warning: many network daemons reset their environment before spawning a
  1164.   login or shell process.
  1165. ! .IP "rfc931 [= timeout]"
  1166.   Look up the remote user name with the RFC 931 protocol.  This option is
  1167.   silently ignored in case of services based on transports other than
  1168.   TCP.  Requires that the remote system runs an RFC 931-compliant daemon,
  1169.   and may cause noticeable delays with connections from non-UNIX hosts.
  1170. + The timeout period (in seconds) is optional. If no timeout is specified
  1171. + a default value is taken.
  1172.   .SH DIAGNOSTICS
  1173.   An error is reported when a syntax error is found in a host access
  1174.   control rule; further options will be ignored, and service is denied.
  1175. ***************
  1176. *** 134,137 ****
  1177.   Department of Mathematics and Computing Science
  1178.   Eindhoven University of Technology
  1179.   Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  1180. ! \" @(#) hosts_options.5 1.7 93/09/27 23:42:15
  1181. --- 136,139 ----
  1182.   Department of Mathematics and Computing Science
  1183.   Eindhoven University of Technology
  1184.   Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  1185. ! \" @(#) hosts_options.5 1.8 93/12/13 22:23:09
  1186. diff -c ../6.0/log_tcp.h ./log_tcp.h
  1187. *** ../6.0/log_tcp.h    Tue Dec 21 21:37:54 1993
  1188. --- ./log_tcp.h    Tue Dec 21 21:37:13 1993
  1189. ***************
  1190. *** 1,4 ****
  1191. ! /* @(#) log_tcp.h 1.10 93/09/27 18:59:13 */
  1192.   
  1193.   /* Structure filled in by the fromhost() routine. */
  1194.   
  1195. --- 1,4 ----
  1196. ! /* @(#) log_tcp.h 1.11 93/12/13 22:23:12 */
  1197.   
  1198.   /* Structure filled in by the fromhost() routine. */
  1199.   
  1200. ***************
  1201. *** 26,35 ****
  1202.   
  1203.   /* Global functions. */
  1204.   
  1205. - #ifndef TLI
  1206. - #define fromhost sock_host
  1207. - #endif
  1208. - 
  1209.   extern int fromhost();            /* get/validate remote host info */
  1210.   extern int hosts_access();        /* access control */
  1211.   extern void refuse();            /* refuse request */
  1212. --- 26,31 ----
  1213. ***************
  1214. *** 50,55 ****
  1215. --- 46,52 ----
  1216.   extern char *hosts_deny_table;        /* for verification mode redirection */
  1217.   extern char *hosts_access_file;        /* for diagnostics */
  1218.   extern int hosts_access_line;        /* for diagnostics */
  1219. + extern int rfc931_timeout;        /* username lookup period */
  1220.   
  1221.   /* Bug workarounds. */
  1222.   
  1223. diff -c ../6.0/options.c ./options.c
  1224. *** ../6.0/options.c    Tue Dec 21 21:38:00 1993
  1225. --- ./options.c    Tue Dec 21 21:37:19 1993
  1226. ***************
  1227. *** 78,85 ****
  1228. --- 78,87 ----
  1229.   
  1230.   #define NEED_ARG    (1<<1)        /* option requires argument */
  1231.   #define USE_LAST    (1<<2)        /* option must be last */
  1232. + #define OPT_ARG        (1<<3)        /* option has optional argument */
  1233.   
  1234.   #define need_arg(o)    ((o)->flags & NEED_ARG)
  1235. + #define opt_arg(o)    ((o)->flags & OPT_ARG)
  1236.   #define use_last(o)    ((o)->flags & USE_LAST)
  1237.   
  1238.   /* List of known keywords. Add yours here. */
  1239. ***************
  1240. *** 91,97 ****
  1241.       "linger", linger_option, NEED_ARG,    /* change socket linger time */
  1242.       "spawn", spawn_option, NEED_ARG,    /* spawn shell command */
  1243.       "twist", twist_option, NEED_ARG | USE_LAST,    /* replace current process */
  1244. !     "rfc931", rfc931_option, 0,        /* do RFC 931 lookup */
  1245.       "setenv", setenv_option, NEED_ARG,    /* update environment */
  1246.       "severity", severity_option, NEED_ARG,    /* adjust logging level */
  1247.       "allow", allow_option, USE_LAST,    /* grant access */
  1248. --- 93,99 ----
  1249.       "linger", linger_option, NEED_ARG,    /* change socket linger time */
  1250.       "spawn", spawn_option, NEED_ARG,    /* spawn shell command */
  1251.       "twist", twist_option, NEED_ARG | USE_LAST,    /* replace current process */
  1252. !     "rfc931", rfc931_option, OPT_ARG,    /* do RFC 931 lookup */
  1253.       "setenv", setenv_option, NEED_ARG,    /* update environment */
  1254.       "severity", severity_option, NEED_ARG,    /* adjust logging level */
  1255.       "allow", allow_option, USE_LAST,    /* grant access */
  1256. ***************
  1257. *** 160,166 ****
  1258.           syslog(LOG_ERR, "error: %s, line %d: option \"%s\" requires value",
  1259.              hosts_access_file, hosts_access_line, key);
  1260.           longjmp(options_buf, OPT_DENY);
  1261. !     } else if (value && !need_arg(op)) {
  1262.           syslog(LOG_ERR, "error: %s, line %d: option \"%s\" cannot have value",
  1263.              hosts_access_file, hosts_access_line, key);
  1264.           longjmp(options_buf, OPT_DENY);
  1265. --- 162,168 ----
  1266.           syslog(LOG_ERR, "error: %s, line %d: option \"%s\" requires value",
  1267.              hosts_access_file, hosts_access_line, key);
  1268.           longjmp(options_buf, OPT_DENY);
  1269. !     } else if (value && !need_arg(op) && !opt_arg(op)) {
  1270.           syslog(LOG_ERR, "error: %s, line %d: option \"%s\" cannot have value",
  1271.              hosts_access_file, hosts_access_line, key);
  1272.           longjmp(options_buf, OPT_DENY);
  1273. ***************
  1274. *** 399,406 ****
  1275.   char   *daemon;
  1276.   struct client_info *client;
  1277.   {
  1278.       if (dry_run) {
  1279. !     syslog(LOG_DEBUG, "option: rfc931");
  1280.       return;
  1281.       }
  1282.       if (client->user[0] == 0 && RFC931_POSSIBLE(client))
  1283. --- 401,418 ----
  1284.   char   *daemon;
  1285.   struct client_info *client;
  1286.   {
  1287. +     int     timeout;
  1288. +     char    junk;
  1289. + 
  1290. +     if (value) {
  1291. +     if (sscanf(value, "%d%c", &timeout, &junk) != 1 || timeout <= 0) {
  1292. +         syslog(LOG_ERR, "error: rfc931_option: bad timeout: \"%s\"", value);
  1293. +         longjmp(options_buf, OPT_DENY);
  1294. +     }
  1295. +     rfc931_timeout = timeout;
  1296. +     }
  1297.       if (dry_run) {
  1298. !     syslog(LOG_DEBUG, "option: rfc931 = %d", rfc931_timeout);
  1299.       return;
  1300.       }
  1301.       if (client->user[0] == 0 && RFC931_POSSIBLE(client))
  1302. diff -c ../6.0/patchlevel.h ./patchlevel.h
  1303. *** ../6.0/patchlevel.h    Tue Dec 21 21:38:01 1993
  1304. --- ./patchlevel.h    Tue Dec 21 21:37:20 1993
  1305. ***************
  1306. *** 1,3 ****
  1307.   #ifndef lint
  1308. ! static char patchlevel[] = "@(#) patchlevel 6.0";
  1309.   #endif
  1310. --- 1,3 ----
  1311.   #ifndef lint
  1312. ! static char patchlevel[] = "@(#) patchlevel 6.1";
  1313.   #endif
  1314. diff -c ../6.0/rfc931.c ./rfc931.c
  1315. *** ../6.0/rfc931.c    Tue Dec 21 21:37:58 1993
  1316. --- ./rfc931.c    Tue Dec 21 21:37:16 1993
  1317. ***************
  1318. *** 10,16 ****
  1319.     */
  1320.   
  1321.   #ifndef lint
  1322. ! static char sccsid[] = "@(#) rfc931.c 1.7 93/09/11 20:45:30";
  1323.   #endif
  1324.   
  1325.   /* System libraries. */
  1326. --- 10,16 ----
  1327.     */
  1328.   
  1329.   #ifndef lint
  1330. ! static char sccsid[] = "@(#) rfc931.c 1.8 93/12/13 22:23:20";
  1331.   #endif
  1332.   
  1333.   /* System libraries. */
  1334. ***************
  1335. *** 33,111 ****
  1336.   #define    RFC931_PORT    113        /* Semi-well-known port */
  1337.   #define    ANY_PORT    0        /* Any old port will do */
  1338.   
  1339.   static jmp_buf timebuf;
  1340.   
  1341. - typedef struct {
  1342. -     FILE   *ifp;
  1343. -     FILE   *ofp;
  1344. - } FILE_PAIR;
  1345. - 
  1346. - /* fdup - duplicate a stdio stream */
  1347. - 
  1348. - static FILE *fdup(stream, mode)
  1349. - FILE   *stream;
  1350. - char   *mode;
  1351. - {
  1352. -     int     fd;
  1353. -     FILE   *fp = 0;
  1354. - 
  1355. -     if ((fd = dup(fileno(stream))) < 0) {
  1356. -     syslog(LOG_ERR, "dup: %m");
  1357. -     } else if ((fp = fdopen(fd, mode)) == 0) {
  1358. -     syslog(LOG_ERR, "fdopen: %m");
  1359. -     close(fd);
  1360. -     }
  1361. -     return (fp);
  1362. - }
  1363. - 
  1364.   /* fsocket - open stdio stream on top of socket */
  1365.   
  1366. ! static FILE *fsocket(domain, type, protocol, mode)
  1367.   int     domain;
  1368.   int     type;
  1369.   int     protocol;
  1370. - char   *mode;
  1371.   {
  1372.       int     s;
  1373. !     FILE   *fp = 0;
  1374.   
  1375.       if ((s = socket(domain, type, protocol)) < 0) {
  1376.       syslog(LOG_ERR, "socket: %m");
  1377. !     } else if ((fp = fdopen(s, mode)) == 0) {
  1378. !     syslog(LOG_ERR, "fdopen: %m");
  1379. !     close(s);
  1380.       }
  1381. -     return (fp);
  1382.   }
  1383.   
  1384. - /* ffsocket - open stdio stream pair on top of socket */
  1385. - 
  1386. - static FILE_PAIR *ffsocket(domain, type, protocol)
  1387. - int     domain;
  1388. - int     type;
  1389. - int     protocol;
  1390. - {
  1391. -     static FILE_PAIR ffp;
  1392. - 
  1393. -     if ((ffp.ifp = fsocket(domain, type, protocol, "r")) != 0) {
  1394. -     if ((ffp.ofp = fdup(ffp.ifp, "w")) != 0)
  1395. -         return (&ffp);
  1396. -     fclose(ffp.ifp);
  1397. -     }
  1398. -     return (0);
  1399. - }
  1400. - 
  1401. - /* ffclose - close stdio stream pair */
  1402. - 
  1403. - static int ffclose(ffp)
  1404. - FILE_PAIR *ffp;
  1405. - {
  1406. -     int     ret;
  1407. - 
  1408. -     ret = fclose(ffp->ifp);
  1409. -     return (fclose(ffp->ofp) || ret);
  1410. - }
  1411. - 
  1412.   /* bind_connect - bind both ends of a socket */
  1413.   
  1414.   int     bind_connect(s, local, remote, length)
  1415. --- 33,64 ----
  1416.   #define    RFC931_PORT    113        /* Semi-well-known port */
  1417.   #define    ANY_PORT    0        /* Any old port will do */
  1418.   
  1419. + int     rfc931_timeout = RFC931_TIMEOUT;/* Global so it can be changed */
  1420. + 
  1421.   static jmp_buf timebuf;
  1422.   
  1423.   /* fsocket - open stdio stream on top of socket */
  1424.   
  1425. ! static FILE *fsocket(domain, type, protocol)
  1426.   int     domain;
  1427.   int     type;
  1428.   int     protocol;
  1429.   {
  1430.       int     s;
  1431. !     FILE   *fp;
  1432.   
  1433.       if ((s = socket(domain, type, protocol)) < 0) {
  1434.       syslog(LOG_ERR, "socket: %m");
  1435. !     return (0);
  1436. !     } else {
  1437. !     if ((fp = fdopen(s, "r+")) == 0) {
  1438. !         syslog(LOG_ERR, "fdopen: %m");
  1439. !         close(s);
  1440. !     }
  1441. !     return (fp);
  1442.       }
  1443.   }
  1444.   
  1445.   /* bind_connect - bind both ends of a socket */
  1446.   
  1447.   int     bind_connect(s, local, remote, length)
  1448. ***************
  1449. *** 144,161 ****
  1450.       char    buffer[512];        /* XXX */
  1451.       char   *cp;
  1452.       char   *result = FROM_UNKNOWN;    /* XXX */
  1453. !     FILE_PAIR *ffp;
  1454.   
  1455.       /*
  1456. !      * Use separate stdio streams for writing to and for reading from the
  1457. !      * RFC931 etc. server. This is done because of a bug in the SunOS 4.1.x
  1458. !      * stdio library. The bug may live in other stdio implementations, too.
  1459. !      * When we use a single bidirectional stdio stream ("r+" or "w+" mode) we
  1460. !      * read our own output. Such behaviour would make sense with resources
  1461. !      * that support random-access operations, but not with sockets.
  1462.        */
  1463.   
  1464. !     if ((ffp = ffsocket(AF_INET, SOCK_STREAM, 0)) != 0) {
  1465.   
  1466.       /*
  1467.        * Set up a timer so we won't get stuck while waiting for the server.
  1468. --- 97,116 ----
  1469.       char    buffer[512];        /* XXX */
  1470.       char   *cp;
  1471.       char   *result = FROM_UNKNOWN;    /* XXX */
  1472. !     FILE   *fp;
  1473.   
  1474.       /*
  1475. !      * Use one unbuffered stdio stream for writing to and for reading from
  1476. !      * the RFC931 etc. server. This is done because of a bug in the SunOS
  1477. !      * 4.1.x stdio library. The bug may live in other stdio implementations,
  1478. !      * too. When we use a single, buffered, bidirectional stdio stream ("r+"
  1479. !      * or "w+" mode) we read our own output. Such behaviour would make sense
  1480. !      * with resources that support random-access operations, but not with
  1481. !      * sockets.
  1482.        */
  1483.   
  1484. !     if ((fp = fsocket(AF_INET, SOCK_STREAM, 0)) != 0) {
  1485. !     setbuf(fp, (char *) 0);
  1486.   
  1487.       /*
  1488.        * Set up a timer so we won't get stuck while waiting for the server.
  1489. ***************
  1490. *** 163,169 ****
  1491.   
  1492.       if (setjmp(timebuf) == 0) {
  1493.           signal(SIGALRM, timeout);
  1494. !         alarm(RFC931_TIMEOUT);
  1495.   
  1496.           /*
  1497.            * Bind the local and remote ends of the query socket to the same
  1498. --- 118,124 ----
  1499.   
  1500.       if (setjmp(timebuf) == 0) {
  1501.           signal(SIGALRM, timeout);
  1502. !         alarm(rfc931_timeout);
  1503.   
  1504.           /*
  1505.            * Bind the local and remote ends of the query socket to the same
  1506. ***************
  1507. *** 179,185 ****
  1508.           rmt_query_sin = *rmt_sin;
  1509.           rmt_query_sin.sin_port = htons(RFC931_PORT);
  1510.   
  1511. !         if (bind_connect(fileno(ffp->ifp),
  1512.                    (struct sockaddr *) & our_query_sin,
  1513.                    (struct sockaddr *) & rmt_query_sin,
  1514.                    sizeof(our_query_sin)) >= 0) {
  1515. --- 134,140 ----
  1516.           rmt_query_sin = *rmt_sin;
  1517.           rmt_query_sin.sin_port = htons(RFC931_PORT);
  1518.   
  1519. !         if (bind_connect(fileno(fp),
  1520.                    (struct sockaddr *) & our_query_sin,
  1521.                    (struct sockaddr *) & rmt_query_sin,
  1522.                    sizeof(our_query_sin)) >= 0) {
  1523. ***************
  1524. *** 190,199 ****
  1525.            * cause trouble with buggy System V stdio libraries.
  1526.            */
  1527.   
  1528. !         fprintf(ffp->ofp, "%u,%u\r\n",
  1529.               ntohs(rmt_sin->sin_port),
  1530.               ntohs(our_sin->sin_port));
  1531. !         fflush(ffp->ofp);
  1532.   
  1533.           /*
  1534.            * Read response from server. Use fgets()/sscanf() so we can
  1535. --- 145,154 ----
  1536.            * cause trouble with buggy System V stdio libraries.
  1537.            */
  1538.   
  1539. !         fprintf(fp, "%u,%u\r\n",
  1540.               ntohs(rmt_sin->sin_port),
  1541.               ntohs(our_sin->sin_port));
  1542. !         fflush(fp);
  1543.   
  1544.           /*
  1545.            * Read response from server. Use fgets()/sscanf() so we can
  1546. ***************
  1547. *** 202,209 ****
  1548.            * requested.
  1549.            */
  1550.   
  1551. !         if (fgets(buffer, sizeof(buffer), ffp->ifp) != 0
  1552. !             && ferror(ffp->ifp) == 0 && feof(ffp->ifp) == 0
  1553.               && sscanf(buffer, "%u , %u : USERID :%*[^:]:%255s",
  1554.                     &rmt_port, &our_port, user) == 3
  1555.               && ntohs(rmt_sin->sin_port) == rmt_port
  1556. --- 157,164 ----
  1557.            * requested.
  1558.            */
  1559.   
  1560. !         if (fgets(buffer, sizeof(buffer), fp) != 0
  1561. !             && ferror(fp) == 0 && feof(fp) == 0
  1562.               && sscanf(buffer, "%u , %u : USERID :%*[^:]:%255s",
  1563.                     &rmt_port, &our_port, user) == 3
  1564.               && ntohs(rmt_sin->sin_port) == rmt_port
  1565. ***************
  1566. *** 221,227 ****
  1567.           }
  1568.           alarm(0);
  1569.       }
  1570. !     ffclose(ffp);
  1571.       }
  1572.       return (result);
  1573.   }
  1574. --- 176,182 ----
  1575.           }
  1576.           alarm(0);
  1577.       }
  1578. !     fclose(fp);
  1579.       }
  1580.       return (result);
  1581.   }
  1582. diff -c ../6.0/safe_finger.c ./safe_finger.c
  1583. *** ../6.0/safe_finger.c    Tue Dec 21 21:38:05 1993
  1584. --- ./safe_finger.c    Tue Dec 21 21:37:24 1993
  1585. ***************
  1586. *** 15,21 ****
  1587.     */
  1588.   
  1589.   #ifndef lint
  1590. ! static char sccsid[] = "@(#) safe_finger.c 1.2 93/08/26 23:49:40";
  1591.   #endif
  1592.   
  1593.   /* System libraries */
  1594. --- 15,21 ----
  1595.     */
  1596.   
  1597.   #ifndef lint
  1598. ! static char sccsid[] = "@(#) safe_finger.c 1.3 93/12/13 22:23:23";
  1599.   #endif
  1600.   
  1601.   /* System libraries */
  1602. ***************
  1603. *** 30,36 ****
  1604.   
  1605.   /* Local stuff */
  1606.   
  1607. ! char    path[] = "PATH=/bin:/usr/bin:/usr/ucb:/etc:/usr/etc:/usr/sbin";
  1608.   
  1609.   #define    INPUT_LENGTH    100000        /* Do not keep listinging forever */
  1610.   #define    LINE_LENGTH    128        /* Editors can choke on long lines */
  1611. --- 30,36 ----
  1612.   
  1613.   /* Local stuff */
  1614.   
  1615. ! char    path[] = "PATH=/bin:/usr/bin:/usr/ucb:/usr/bsd:/etc:/usr/etc:/usr/sbin";
  1616.   
  1617.   #define    INPUT_LENGTH    100000        /* Do not keep listinging forever */
  1618.   #define    LINE_LENGTH    128        /* Editors can choke on long lines */
  1619. ***************
  1620. *** 67,73 ****
  1621.        * Redirect our standard input through the raw finger command.
  1622.        */
  1623.       if (putenv(path)) {
  1624. !     fprintf(stderr, "putenv: out of memory");
  1625.       exit(1);
  1626.       }
  1627.       argv[0] = FINGER_PROGRAM;
  1628. --- 67,73 ----
  1629.        * Redirect our standard input through the raw finger command.
  1630.        */
  1631.       if (putenv(path)) {
  1632. !     fprintf(stderr, "%s: putenv: out of memory", argv[0]);
  1633.       exit(1);
  1634.       }
  1635.       argv[0] = FINGER_PROGRAM;
  1636. diff -c ../6.0/socket.c ./socket.c
  1637. *** ../6.0/socket.c    Tue Dec 21 21:38:03 1993
  1638. --- ./socket.c    Tue Dec 21 21:37:22 1993
  1639. ***************
  1640. *** 17,23 ****
  1641.     */
  1642.   
  1643.   #ifndef lint
  1644. ! static char sccsid[] = "@(#) socket.c 1.7 93/09/27 18:59:20";
  1645.   #endif
  1646.   
  1647.   /* System libraries. */
  1648. --- 17,23 ----
  1649.     */
  1650.   
  1651.   #ifndef lint
  1652. ! static char sccsid[] = "@(#) socket.c 1.8 93/12/13 22:23:25";
  1653.   #endif
  1654.   
  1655.   /* System libraries. */
  1656. ***************
  1657. *** 63,70 ****
  1658.   
  1659.   /* sock_host - determine endpoint info */
  1660.   
  1661. ! int     sock_host(client)
  1662.   struct client_info *client;
  1663.   {
  1664.       static struct sockaddr rmt_sa;
  1665.       static struct sockaddr our_sa;
  1666. --- 63,71 ----
  1667.   
  1668.   /* sock_host - determine endpoint info */
  1669.   
  1670. ! int     sock_host(client, fd)
  1671.   struct client_info *client;
  1672. + int     fd;
  1673.   {
  1674.       static struct sockaddr rmt_sa;
  1675.       static struct sockaddr our_sa;
  1676. ***************
  1677. *** 76,81 ****
  1678. --- 77,83 ----
  1679.        */
  1680.   
  1681.       init_client(client);
  1682. +     client->fd = fd;
  1683.   
  1684.       /*
  1685.        * Look up the remote host address. Hal R. Brand <BRAND@addvax.llnl.gov>
  1686. diff -c ../6.0/tli.c ./tli.c
  1687. *** ../6.0/tli.c    Tue Dec 21 21:38:04 1993
  1688. --- ./tli.c    Tue Dec 21 21:37:22 1993
  1689. ***************
  1690. *** 17,23 ****
  1691.     */
  1692.   
  1693.   #ifndef lint
  1694. ! static char sccsid[] = "@(#) tli.c 1.7 93/09/27 18:59:25";
  1695.   #endif
  1696.   
  1697.   #ifdef TLI
  1698. --- 17,23 ----
  1699.     */
  1700.   
  1701.   #ifndef lint
  1702. ! static char sccsid[] = "@(#) tli.c 1.8 93/12/13 22:23:27";
  1703.   #endif
  1704.   
  1705.   #ifdef TLI
  1706. ***************
  1707. *** 75,82 ****
  1708.   
  1709.   /* tli_host - determine endpoint info */
  1710.   
  1711. ! int     tli_host(client)
  1712.   struct client_info *client;
  1713.   {
  1714.       struct netconfig *config;
  1715.       struct t_unitdata *rmt_unit;
  1716. --- 75,83 ----
  1717.   
  1718.   /* tli_host - determine endpoint info */
  1719.   
  1720. ! int     tli_host(client, fd)
  1721.   struct client_info *client;
  1722. + int     fd;
  1723.   {
  1724.       struct netconfig *config;
  1725.       struct t_unitdata *rmt_unit;
  1726. ***************
  1727. *** 90,95 ****
  1728. --- 91,97 ----
  1729.        */
  1730.   
  1731.       init_client(client);
  1732. +     client->fd = fd;
  1733.   
  1734.       /*
  1735.        * Find out the client address, find out what type of transport is hidden
  1736. diff -c ../6.0/try.c ./try.c
  1737. *** ../6.0/try.c    Tue Dec 21 21:37:55 1993
  1738. --- ./try.c    Tue Dec 21 21:37:13 1993
  1739. ***************
  1740. *** 17,23 ****
  1741.     */
  1742.   
  1743.   #ifndef lint
  1744. ! static char sccsid[] = "@(#) try.c 1.8 93/09/27 18:59:28";
  1745.   #endif
  1746.   
  1747.   #include <sys/types.h>
  1748. --- 17,23 ----
  1749.     */
  1750.   
  1751.   #ifndef lint
  1752. ! static char sccsid[] = "@(#) try.c 1.9 93/12/13 22:23:29";
  1753.   #endif
  1754.   
  1755.   #include <sys/types.h>
  1756. ***************
  1757. *** 50,55 ****
  1758. --- 50,56 ----
  1759.   
  1760.   int     allow_severity = SEVERITY;    /* run-time adjustable */
  1761.   int     deny_severity = LOG_WARNING;    /* ditto */
  1762. + int     rfc931_timeout = RFC931_TIMEOUT;/* ditto */
  1763.   
  1764.   /* usage - explain */
  1765.   
  1766. ***************
  1767. *** 84,89 ****
  1768. --- 85,96 ----
  1769.   
  1770.       dry_run = 1;
  1771.   
  1772. +     /* Reset other stuff that might be changed by options handlers. */
  1773. + 
  1774. +     rfc931_timeout = RFC931_TIMEOUT;
  1775. +     allow_severity = SEVERITY;
  1776. +     deny_severity = LOG_WARNING;
  1777. + 
  1778.       printf(" Daemon:   %s\n", daemon);
  1779.       printf(" Hostname: %s\n", name);
  1780.       printf(" Address:  %s\n", addr);
  1781. ***************
  1782. *** 174,183 ****
  1783.        * if different addresses for the same host have different permissions,
  1784.        * something that we probably do not want.
  1785.        */
  1786. !     while (hp->h_addr_list[0])
  1787.       try(server, hp->h_name,
  1788.           inet_ntoa(*(struct in_addr *) * hp->h_addr_list++), user);
  1789. ! 
  1790.       return (0);
  1791.   }
  1792.   
  1793. --- 181,192 ----
  1794.        * if different addresses for the same host have different permissions,
  1795.        * something that we probably do not want.
  1796.        */
  1797. !     while (hp->h_addr_list[0]) {
  1798.       try(server, hp->h_name,
  1799.           inet_ntoa(*(struct in_addr *) * hp->h_addr_list++), user);
  1800. !     if (hp->h_addr_list[0])
  1801. !         putchar('\n');
  1802. !     }
  1803.       return (0);
  1804.   }
  1805.   
  1806.  
  1807. exit 0 # Just in case...
  1808.