home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume42 / tcp_wrappers / patch03 < prev    next >
Encoding:
Internet Message Format  |  1994-03-30  |  47.8 KB
  1. From: wietse@wzv.win.tue.nl (Wietse Venema)
  2. Newsgroups: comp.sources.misc
  3. Subject: v42i037:  tcp_wrappers - TCP/IP daemon wrappers v6.0, Patch03
  4. Date: 30 Mar 1994 15:27:32 -0600
  5. Organization: Eindhoven University of Technology, The Netherlands
  6. Sender: kent@sparky.sterling.com
  7. Approved: kent@sparky.sterling.com
  8. Message-ID: <2ncqs4$f9o@sparky.sterling.com>
  9. X-Md4-Signature: 4552bee8eebd294be84d5e5c6d761f03
  10.  
  11. Submitted-by: wietse@wzv.win.tue.nl (Wietse Venema)
  12. Posting-number: Volume 42, Issue 37
  13. Archive-name: tcp_wrappers/patch03
  14. Environment: UNIX, INET
  15. Patch-To: tcp_wrappers: Volume 39, Issue 110-113
  16.  
  17. diff -c ../6.2/BLURB ./BLURB
  18. *** ../6.2/BLURB    Wed Mar 23 18:14:55 1994
  19. --- ./BLURB    Wed Mar 23 18:15:40 1994
  20. ***************
  21. *** 1,6 ****
  22. ! @(#) BLURB 1.17 94/02/05 15:22:01
  23.   
  24. ! This is the 6.2 version of the TCP/IP daemon wrapper package.
  25.   
  26.   With these programs you can monitor and control who connects to your
  27.   TFTP, EXEC, FTP, RSH, TELNET, RLOGIN, FINGER, and SYSTAT network
  28. --- 1,8 ----
  29. ! @(#) BLURB 1.18 94/03/23 16:50:25
  30.   
  31. ! This is the 6.3 version of the TCP/IP daemon wrapper package. Release
  32. ! 6.2 was cancelled because of a significant source code contribution
  33. ! from Sequent.
  34.   
  35.   With these programs you can monitor and control who connects to your
  36.   TFTP, EXEC, FTP, RSH, TELNET, RLOGIN, FINGER, and SYSTAT network
  37. ***************
  38. *** 11,28 ****
  39.   and do some sanity checks on the origin of the request. No information
  40.   is exchanged with the remote client process.
  41.   
  42. ! Changes with this release:
  43.   
  44. !     - Portability: new Makefile rule sets for SCO and Pyramid OSx 5.1.
  45.   
  46. !     - Portability: improved TLI support for Dynix/PTX.
  47.   
  48. !     - Feature: a compile-time option (APPEND_DOT) to keep the hostname
  49. !       lookup routines from trying to append your own domain name to
  50. !       already fully-qualified hostnames. This may reduce the load on
  51. !       your name servers somewhat.
  52.   
  53. ! Other than that, the code should be binary compatible with release 6.1.
  54.   
  55.       Wietse Venema (wietse@wzv.win.tue.nl),
  56.       Department of Mathematics and Computing Science,
  57. --- 13,32 ----
  58.   and do some sanity checks on the origin of the request. No information
  59.   is exchanged with the remote client process.
  60.   
  61. ! Changes since release 6.1;
  62.   
  63. !     - Portability: new Makefile rule sets for SCO and Pyramid OSx 5.1;
  64. !       improved TLI support for Dynix/PTX; fix for Ultrix core dumps.
  65.   
  66. !     - Features: compile-time option (APPEND_DOT) for faster DNS lookup
  67. !       of already fully-qualified hostnames; a run-time option to enable
  68. !       keepalives (useful when users reset or turn off the PC while
  69. !       still connected), and an option to change the process nice value.
  70.   
  71. ! Good news: Sun patch 100804-03 for SunOS 4.1.x fixes the problem with
  72. ! the anti source-routing attack feature.
  73.   
  74. ! The libwrap.a code should be binary compatible with release 6.1.
  75.   
  76.       Wietse Venema (wietse@wzv.win.tue.nl),
  77.       Department of Mathematics and Computing Science,
  78. diff -c ../6.2/CHANGES ./CHANGES
  79. *** ../6.2/CHANGES    Wed Mar 23 18:15:04 1994
  80. --- ./CHANGES    Wed Mar 23 18:15:49 1994
  81. ***************
  82. *** 1,15 ****
  83.   Changes per release 6.2 (Feb 1994)
  84.   ==================================
  85.   
  86.   - Resurrected my year-old code to reduce DNS load by appending a dot to
  87.   the gethostbyname() argument. This feature is still experimental and it
  88. ! may go away if it causes more problems than it solves.
  89.   
  90.   - Auxiliary code for the Pyramid, BSD universe. Karl Vogel figured out
  91. ! what was missing: yp_get_default_domain() and vfprintf().
  92.   
  93.   - Improved support for Dynix/PTX. The wrapper should now be able to
  94. ! deal with all TLI over IP services.
  95.   
  96.   - The try command now uses the hostname that gethostbyaddr() would
  97.   return, instead of the hostname returned by gethostbyname(). This can
  98. --- 1,37 ----
  99. + Changes per release 6.3 (Mar 1994)
  100. + ==================================
  101. + 
  102. + - Keepalives option, to get rid of stuck daemons when people turn off
  103. + their PC while still connected. Files: options.c, hosts_options.5.
  104. + 
  105. + - Nice option, to calm down network daemons that take away too much CPU
  106. + time. Files: options.c, hosts_options.5.
  107. + 
  108. + - Ultrix perversion: the environ global pointer may be null. The
  109. + environment replacement routines now check for this. File: environ.c.
  110. + 
  111. + - Fixed a few places that still assumed the socket is on standard
  112. + input. Fixed some error messages that did not provide access control
  113. + file name and line number.  File: options.c.
  114. + 
  115. + - Just when I was going to release 6.2 I received code for Dynix/PTX.
  116. + That code is specific to PTX 2.x, so I'll keep around my generic
  117. + PTX code just in case. The difference is in the handling of UDP
  118. + services.  Files:  tli_sequent.[hc].
  119. + 
  120.   Changes per release 6.2 (Feb 1994)
  121.   ==================================
  122.   
  123.   - Resurrected my year-old code to reduce DNS load by appending a dot to
  124.   the gethostbyname() argument. This feature is still experimental and it
  125. ! may go away if it causes more problems than it solves. File: socket.c.
  126.   
  127.   - Auxiliary code for the Pyramid, BSD universe. Karl Vogel figured out
  128. ! what was missing: yp_get_default_domain() and vfprintf(). Files:
  129. ! workarounds.c, vfprintf.c.
  130.   
  131.   - Improved support for Dynix/PTX. The wrapper should now be able to
  132. ! deal with all TLI over IP services. File: ptx.c.
  133.   
  134.   - The try command now uses the hostname that gethostbyaddr() would
  135.   return, instead of the hostname returned by gethostbyname(). This can
  136. ***************
  137. *** 16,22 ****
  138.   be significant on systems with NIS that have short host names in the
  139.   hosts map. For example, gethostbyname("wzv.win.tue.nl") returns
  140.   "wzv.win.tue.nl"; gethostbyaddr(131.155.210.17) returns "wzv", and
  141. ! so does gethostbyname("wzv").
  142.   
  143.   Changes per release 6.1 (Dec 1993)
  144.   ==================================
  145. --- 38,44 ----
  146.   be significant on systems with NIS that have short host names in the
  147.   hosts map. For example, gethostbyname("wzv.win.tue.nl") returns
  148.   "wzv.win.tue.nl"; gethostbyaddr(131.155.210.17) returns "wzv", and
  149. ! that is what we should test with. File: try.c.
  150.   
  151.   Changes per release 6.1 (Dec 1993)
  152.   ==================================
  153. diff -c ../6.2/Makefile ./Makefile
  154. *** ../6.2/Makefile    Wed Mar 23 18:14:54 1994
  155. --- ./Makefile    Wed Mar 23 18:15:38 1994
  156. ***************
  157. *** 1,4 ****
  158. ! # @(#) Makefile 1.11 94/02/01 22:11:56
  159.   
  160.   what:
  161.       @echo
  162. --- 1,4 ----
  163. ! # @(#) Makefile 1.12 94/03/23 16:51:32
  164.   
  165.   what:
  166.       @echo
  167. ***************
  168. *** 17,26 ****
  169.       @echo "This Makefile knows about the following sys-types:"
  170.       @echo
  171.       @echo "    generic (most bsd-ish systems with sys5 compatibility)"
  172. !     @echo "    386bsd aix alpha apollo convex-ultranet dgux dynix"
  173. !     @echo "    dynix-ptx epix esix freebsd hpux irix isc(untested)"
  174. !     @echo "    linux mips(untested) netbsd next osf pyramid sco sco-nis"
  175. !     @echo "    sco-od2 sunos4 sunos40 sunos5 sysv4 ultrix unicos(untested)"
  176.       @echo
  177.       @echo "If none of these match your environment, edit the system"
  178.       @echo "dependencies sections in the Makefile and do a 'make other'."
  179. --- 17,27 ----
  180.       @echo "This Makefile knows about the following sys-types:"
  181.       @echo
  182.       @echo "    generic (most bsd-ish systems with sys5 compatibility)"
  183. !     @echo "    386bsd aix alpha apollo convex-ultranet dell-gcc dgux dynix"
  184. !     @echo "    epix esix freebsd hpux irix4 isc(untested) linux"
  185. !     @echo "    mips(untested) netbsd next osf ptx-2.x ptx-generic pyramid"
  186. !     @echo "    sco sco-nis sco-od2 sunos4 sunos40 sunos5 sysv4 ultrix"
  187. !     @echo "    unicos(untested) uxp"
  188.       @echo
  189.       @echo "If none of these match your environment, edit the system"
  190.       @echo "dependencies sections in the Makefile and do a 'make other'."
  191. ***************
  192. *** 38,44 ****
  193.   # 
  194.   # Uncomment the appropriate line if you are going to edit inetd.conf.
  195.   #
  196. ! # Ultrix 4.x SunOS 4.x ConvexOS 10.x
  197.   #REAL_DAEMON_DIR=/usr/etc
  198.   #
  199.   # SysV.4 Solaris 2.x OSF AIX
  200. --- 39,45 ----
  201.   # 
  202.   # Uncomment the appropriate line if you are going to edit inetd.conf.
  203.   #
  204. ! # Ultrix 4.x SunOS 4.x ConvexOS 10.x Dynix/ptx
  205.   #REAL_DAEMON_DIR=/usr/etc
  206.   #
  207.   # SysV.4 Solaris 2.x OSF AIX
  208. ***************
  209. *** 58,64 ****
  210.   # 
  211.   # Uncomment the appropriate line if you are going to move your daemons.
  212.   #
  213. ! # Ultrix 4.x SunOS 4.x ConvexOS 10.x
  214.   #REAL_DAEMON_DIR=/usr/etc/...
  215.   #
  216.   # SysV.4 Solaris 2.x OSF AIX
  217. --- 59,65 ----
  218.   # 
  219.   # Uncomment the appropriate line if you are going to move your daemons.
  220.   #
  221. ! # Ultrix 4.x SunOS 4.x ConvexOS 10.x Dynix/ptx
  222.   #REAL_DAEMON_DIR=/usr/etc/...
  223.   #
  224.   # SysV.4 Solaris 2.x OSF AIX
  225. ***************
  226. *** 138,152 ****
  227.       LIBS=-lulsock RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  228.       NETGROUP=-DNETGROUP TLI= all
  229.   
  230. ! # Dynix/PTX has TLI, but the support is not as complete as with SYSV4.
  231. ! 
  232. ! dynix-ptx:
  233.       @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  234.       LIBS="-lsocket -linet -lnsl" RANLIB=echo ARFLAGS=rv \
  235.       AUX_OBJ="environ.o strcasecmp.o ptx.o" NETGROUP= TLI=-DPTX all
  236.   
  237.   # IRIX 4.0.x has a special ar(1) flag.
  238. ! irix:
  239.       @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  240.       LIBS=-lsun RANLIB=echo ARFLAGS=rvs AUX_OBJ=environ.o \
  241.       NETGROUP=-DNETGROUP TLI= all
  242. --- 139,159 ----
  243.       LIBS=-lulsock RANLIB=ranlib ARFLAGS=rv AUX_OBJ=environ.o \
  244.       NETGROUP=-DNETGROUP TLI= all
  245.   
  246. ! # Generic support for the Dynix/PTX version of TLI.
  247. ! ptx-generic:
  248.       @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  249.       LIBS="-lsocket -linet -lnsl" RANLIB=echo ARFLAGS=rv \
  250.       AUX_OBJ="environ.o strcasecmp.o ptx.o" NETGROUP= TLI=-DPTX all
  251.   
  252. + # With UDP support optimized for PTX 2.x (timw@sequent.com).
  253. + ptx-2.x:
  254. +     @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  255. +     LIBS="-lsocket -linet -lnsl" RANLIB=echo ARFLAGS=rv \
  256. +     AUX_OBJ="environ.o strcasecmp.o tli-sequent.o" NETGROUP= \
  257. +     TLI=-DTLI_SEQUENT all
  258. + 
  259.   # IRIX 4.0.x has a special ar(1) flag.
  260. ! irix4:
  261.       @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  262.       LIBS=-lsun RANLIB=echo ARFLAGS=rvs AUX_OBJ=environ.o \
  263.       NETGROUP=-DNETGROUP TLI= all
  264. ***************
  265. *** 164,169 ****
  266. --- 171,187 ----
  267.       NETGROUP=-DNETGROUP AUX_OBJ=environ.o TLI=-DTLI \
  268.       BUGS="$(BUGS) -DINET_ADDR_BUG" all
  269.   
  270. + # UXP/DS System V.4 clone (vic@uida0.uida.es).
  271. + uxp:
  272. +     @make LIBS="-L/usr/ucblib -lsocket -lnsl -lucb" \
  273. +     RANLIB=echo ARFLAGS=rv NETGROUP=-DNETGROUP \
  274. +     AUX_OBJ=environ.o TLI="-DTLI -DDRS_XTI" all
  275. + 
  276. + # DELL System V.4 Issue 2.2 using gcc (kim@grendel.lut.fi, jurban@norden1.com)
  277. + dell-gcc:
  278. +     @make LIBS="-lsocket -lnsl" RANLIB=ranlib ARFLAGS=rv CC=gcc \
  279. +     AUX_OBJ="environ.o strcasecmp.o" TLI=-DTLI all
  280. + 
  281.   # SCO 3.2v4.1 no frills (jedwards@sol1.solinet.net).
  282.   sco:
  283.       @make REAL_DAEMON_DIR=$(REAL_DAEMON_DIR) STYLE=$(STYLE) \
  284. ***************
  285. *** 463,471 ****
  286.   #
  287.   # This feature cannot be used with SunOS 4.x because of a kernel bug in
  288.   # the implementation of the getsockopt() system call. Kernel panics have
  289. ! # been reported for SunOS 4.1.1 and SunOS 4.1.2. Symptoms are "BAD TRAP"
  290. ! # and "Data fault" while executing the tcp_ctloutput() kernel function.
  291.   #
  292.   # Uncomment the following macro definition if your getsockopt() is OK.
  293.   #
  294.   # KILL_OPT= -DKILL_IP_OPTIONS
  295. --- 481,491 ----
  296.   #
  297.   # This feature cannot be used with SunOS 4.x because of a kernel bug in
  298.   # the implementation of the getsockopt() system call. Kernel panics have
  299. ! # been observed for SunOS 4.1.[1-3]. Symptoms are "BAD TRAP" and "Data
  300. ! # fault" while executing the tcp_ctloutput() kernel function.
  301.   #
  302. + # Reportedly, Sun patch 100804-03 fixes the problem for SunOS 4.1.x.
  303. + #
  304.   # Uncomment the following macro definition if your getsockopt() is OK.
  305.   #
  306.   # KILL_OPT= -DKILL_IP_OPTIONS
  307. ***************
  308. *** 496,502 ****
  309.       percent_x.c options.c clean_exit.c environ.c patchlevel.h strtok.c \
  310.       fix_options.c workarounds.c socket.c tli.c DISCLAIMER \
  311.       fakelog.c safe_finger.c hosts_options.5 options.h CHANGES \
  312. !     try-from.c init_client.c 6compat.c ptx.c vfprintf.c
  313.   
  314.   LIB    = libwrap.a
  315.   
  316. --- 516,523 ----
  317.       percent_x.c options.c clean_exit.c environ.c patchlevel.h strtok.c \
  318.       fix_options.c workarounds.c socket.c tli.c DISCLAIMER \
  319.       fakelog.c safe_finger.c hosts_options.5 options.h CHANGES \
  320. !     try-from.c init_client.c 6compat.c ptx.c vfprintf.c tli-sequent.c \
  321. !     tli-sequent.h
  322.   
  323.   LIB    = libwrap.a
  324.   
  325. ***************
  326. *** 597,602 ****
  327. --- 618,624 ----
  328.   socket.o: log_tcp.h Makefile
  329.   tcpd.o: patchlevel.h log_tcp.h Makefile
  330.   tli.o: log_tcp.h Makefile
  331. + tli-sequent.o: tli-sequent.h log_tcp.h Makefile
  332.   try-from: log_tcp.h Makefile
  333.   try.o: log_tcp.h Makefile
  334.   workarounds.o: log_tcp.h Makefile
  335. diff -c ../6.2/README ./README
  336. *** ../6.2/README    Wed Mar 23 18:14:48 1994
  337. --- ./README    Wed Mar 23 18:15:33 1994
  338. ***************
  339. *** 1,6 ****
  340. ! @(#) README 1.20 94/02/05 15:21:57
  341.   
  342. ! This is the 6.2 version of the TCP/IP daemon wrapper package.
  343.   
  344.   Table of contents
  345.   -----------------
  346. --- 1,6 ----
  347. ! @(#) README 1.21 94/03/23 17:47:16
  348.   
  349. ! This is the 6.3 version of the TCP/IP daemon wrapper package.
  350.   
  351.   Table of contents
  352.   -----------------
  353. ***************
  354. *** 287,296 ****
  355.   will be disabled for all TCP connections that are handled by the
  356.   wrapper programs.
  357.   
  358. ! All this cannot be used with SunOS 4.x because of a kernel bug in the
  359. ! implementation of the getsockopt() system call. Kernel panics have been
  360. ! observed for SunOS 4.1.1 up to SunOS 4.1.3. The symptoms are "BAD TRAP"
  361. ! and "Data fault" while executing the tcp_ctloutput() kernel function.
  362.   
  363.   The feature is disabled by default. It can be turned on by editing the
  364.   Makefile.  The configuration and installation section below describes
  365. --- 287,296 ----
  366.   will be disabled for all TCP connections that are handled by the
  367.   wrapper programs.
  368.   
  369. ! If you are going to use this feature on SunOS 4.1.x you should apply
  370. ! patch 100804-03 or later. Otherwise you may experience "BAD TRAP" and
  371. ! "Data fault" panics when the getsockopt() system call is executed after
  372. ! a TCP RESET has been received.
  373.   
  374.   The feature is disabled by default. It can be turned on by editing the
  375.   Makefile.  The configuration and installation section below describes
  376. ***************
  377. *** 372,377 ****
  378. --- 372,384 ----
  379.   
  380.       research.att.com:/dist/internet_security/berferd.ps
  381.   
  382. + Discussions on internet firewalls are archived on ftp.greatcircle.com.
  383. + Subscribe to the mailing list by sending a message to 
  384. + 
  385. +     majordomo@greatcircle.com
  386. + 
  387. + With in the body (not subject): subscribe firewalls.
  388. + 
  389.   5.2 - Related software
  390.   ----------------------
  391.   
  392. ***************
  393. *** 389,404 ****
  394.   firewall host, to the outer world. Socks consists of a daemon that is
  395.   run on the firewall host, and of a library with routines that redirect
  396.   application socket calls through the firewall daemon.  Socks is
  397. ! available from s1.gov in /pub/socks.tar.Z.
  398.   
  399.   Tcpr is a set of perl scripts by Paul Ziemba that enable you to run ftp
  400.   and telnet commands across a firewall. Unlike socks it can be used with
  401. ! unmodified client software. Available from ftp.alantec.com, pub/tcpr.
  402.   
  403.   Versions of rshd and rlogind, modified to report the remote user name
  404.   in addition to the remote host name, are available for anonymous ftp
  405. ! (ftp.win.tue.nl:/pub/security/logdaemon-3.tar.Z).  These programs are
  406. ! drop-in replacements for SunOS 4.x, Ultrix 4.x, and SunOS 5.x.
  407.   
  408.   The securelib shared library by William LeFebvre can be used to control
  409.   access to network daemons that are not run under control of the inetd
  410. --- 396,416 ----
  411.   firewall host, to the outer world. Socks consists of a daemon that is
  412.   run on the firewall host, and of a library with routines that redirect
  413.   application socket calls through the firewall daemon.  Socks is
  414. ! available from s1.gov in /pub/firewalls/socks.tar.Z.
  415.   
  416. + For a modified Socks version by Ying-Da Lee (ylee@syl.dl.nec.com) try
  417. + ftp.nec.com, directory /pub/security/socks.cstc.
  418. + 
  419.   Tcpr is a set of perl scripts by Paul Ziemba that enable you to run ftp
  420.   and telnet commands across a firewall. Unlike socks it can be used with
  421. ! unmodified client software. Available from ftp.alantec.com, /pub/tcpr.
  422.   
  423.   Versions of rshd and rlogind, modified to report the remote user name
  424.   in addition to the remote host name, are available for anonymous ftp
  425. ! (ftp.win.tue.nl:/pub/security/logdaemon-XX.tar.Z).  These programs are
  426. ! drop-in replacements for SunOS 4.x, Ultrix 4.x, and SunOS 5.x. This
  427. ! archive also contains ftpd/rexecd/login versions that support S/Key
  428. ! one-time passwords (tested with SunOS [45] and 44BSD).
  429.   
  430.   The securelib shared library by William LeFebvre can be used to control
  431.   access to network daemons that are not run under control of the inetd
  432. ***************
  433. *** 413,419 ****
  434.   
  435.   netlog from Texas A&M relies on the SunOS 4.x /dev/nit interface to
  436.   passively watch all TCP and UDP network traffic on a network.  The
  437. ! current version is net.tamu.edu:/pub/security/TAMU/netlog-1.03.tar.gz.
  438.   
  439.   Where shared libraries or router-based packet filtering are not an
  440.   option, an alternative portmap daemon can help to improve RPC security,
  441. --- 425,431 ----
  442.   
  443.   netlog from Texas A&M relies on the SunOS 4.x /dev/nit interface to
  444.   passively watch all TCP and UDP network traffic on a network.  The
  445. ! current version is net.tamu.edu:/pub/security/TAMU/netlog-1.2.tar.gz.
  446.   
  447.   Where shared libraries or router-based packet filtering are not an
  448.   option, an alternative portmap daemon can help to improve RPC security,
  449. ***************
  450. *** 422,429 ****
  451.   ... 4.1.3, Ultrix 3.0 and Ultrix 4.x, HP-UX 8.x and AIX. The protection
  452.   is less effective than that of the securelib library because portmap is
  453.   mostly a dictionary service.  SunOS 4.x users should install the latest
  454. ! revision of the portmap and NIS daemons instead, or adopt NIS+ which
  455. ! has access control built in.
  456.   
  457.   Source for a portable RFC 931 (TAP, IDENT)-compatible daemon by Peter
  458.   Eriksson is available from ftp.lysator.liu.se:/pub/ident/servers.
  459. --- 434,441 ----
  460.   ... 4.1.3, Ultrix 3.0 and Ultrix 4.x, HP-UX 8.x and AIX. The protection
  461.   is less effective than that of the securelib library because portmap is
  462.   mostly a dictionary service.  SunOS 4.x users should install the latest
  463. ! revision of the portmap and NIS daemons instead (patch 100482) or adopt
  464. ! NIS+ which has access control built in.
  465.   
  466.   Source for a portable RFC 931 (TAP, IDENT)-compatible daemon by Peter
  467.   Eriksson is available from ftp.lysator.liu.se:/pub/ident/servers.
  468. diff -c ../6.2/environ.c ./environ.c
  469. *** ../6.2/environ.c    Wed Mar 23 18:14:59 1994
  470. --- ./environ.c    Wed Mar 23 18:15:44 1994
  471. ***************
  472. *** 7,13 ****
  473.    */
  474.   
  475.   #ifndef lint
  476. ! static char sccsid[] = "@(#) environ.c 1.3 93/10/30 15:38:58";
  477.   #endif
  478.   
  479.   /* System libraries. */
  480. --- 7,13 ----
  481.    */
  482.   
  483.   #ifndef lint
  484. ! static char sccsid[] = "@(#) environ.c 1.2 94/03/23 16:09:46";
  485.   #endif
  486.   
  487.   /* System libraries. */
  488. ***************
  489. *** 54,60 ****
  490.   {
  491.       char  **envp;
  492.   
  493. !     for (envp = environ; *envp; envp++)
  494.       if (strncmp(name, *envp, len) == 0 && (*envp)[len] == '=')
  495.           return (envp);
  496.       return (0);
  497. --- 54,60 ----
  498.   {
  499.       char  **envp;
  500.   
  501. !     for (envp = environ; envp && *envp; envp++)
  502.       if (strncmp(name, *envp, len) == 0 && (*envp)[len] == '=')
  503.           return (envp);
  504.       return (0);
  505. ***************
  506. *** 154,160 ****
  507.       int     l_used;            /* bytes used excl. terminator */
  508.       int     l_need;            /* bytes needed incl. terminator */
  509.   
  510. !     for (envp = environ; *envp; envp++)
  511.        /* void */ ;
  512.       n_used = envp - environ;
  513.       l_used = n_used * sizeof(*envp);
  514. --- 154,160 ----
  515.       int     l_used;            /* bytes used excl. terminator */
  516.       int     l_need;            /* bytes needed incl. terminator */
  517.   
  518. !     for (envp = environ; envp && *envp; envp++)
  519.        /* void */ ;
  520.       n_used = envp - environ;
  521.       l_used = n_used * sizeof(*envp);
  522. ***************
  523. *** 186,192 ****
  524.   {
  525.       char  **envp;
  526.   
  527. !     for (envp = environ; *envp; envp++)
  528.       printf("%s\n", *envp);
  529.   }
  530.   
  531. --- 186,192 ----
  532.   {
  533.       char  **envp;
  534.   
  535. !     for (envp = environ; envp && *envp; envp++)
  536.       printf("%s\n", *envp);
  537.   }
  538.   
  539. diff -c ../6.2/fromhost.c ./fromhost.c
  540. *** ../6.2/fromhost.c    Wed Mar 23 18:14:50 1994
  541. --- ./fromhost.c    Wed Mar 23 18:15:35 1994
  542. ***************
  543. *** 23,29 ****
  544.     */
  545.   
  546.   #ifndef lint
  547. ! static char sccsid[] = "@(#) fromhost.c 1.15 94/02/01 22:12:03";
  548.   #endif
  549.   
  550.   /* System libraries. */
  551. --- 23,29 ----
  552.     */
  553.   
  554.   #ifndef lint
  555. ! static char sccsid[] = "@(#) fromhost.c 1.16 94/03/23 16:23:45";
  556.   #endif
  557.   
  558.   /* System libraries. */
  559. ***************
  560. *** 32,38 ****
  561.   #include <stdio.h>
  562.   #include <syslog.h>
  563.   
  564. ! #if defined(TLI) || defined(PTX)
  565.   #include <sys/tiuser.h>
  566.   #include <stropts.h>
  567.   #endif
  568. --- 32,38 ----
  569.   #include <stdio.h>
  570.   #include <syslog.h>
  571.   
  572. ! #if defined(TLI) || defined(PTX) || defined(TLI_SEQUENT)
  573.   #include <sys/tiuser.h>
  574.   #include <stropts.h>
  575.   #endif
  576. ***************
  577. *** 41,47 ****
  578.   
  579.   #include "log_tcp.h"
  580.   
  581. ! #if !defined(TLI) && !defined(PTX)
  582.   
  583.   /* fromhost - compatibility wrapper for socket-only systems */
  584.   
  585. --- 41,47 ----
  586.   
  587.   #include "log_tcp.h"
  588.   
  589. ! #if !defined(TLI) && !defined(PTX) && !defined(TLI_SEQUENT)
  590.   
  591.   /* fromhost - compatibility wrapper for socket-only systems */
  592.   
  593. ***************
  594. *** 53,61 ****
  595.       return (sock_host(client, client_fd));
  596.   }
  597.   
  598. ! #endif /* !defined(TLI) && !defined(PTX) */
  599.   
  600. ! #if defined(TLI) || defined(PTX)
  601.   
  602.   /* fromhost - find out what network API we should use */
  603.   
  604. --- 53,61 ----
  605.       return (sock_host(client, client_fd));
  606.   }
  607.   
  608. ! #endif /* !TLI && !PTX && !TLI_SEQUENT */
  609.   
  610. ! #if defined(TLI) || defined(PTX) || defined(TLI_SEQUENT)
  611.   
  612.   /* fromhost - find out what network API we should use */
  613.   
  614. ***************
  615. *** 80,83 ****
  616.       }
  617.   }
  618.   
  619. ! #endif /* TLI || PTX */
  620. --- 80,83 ----
  621.       }
  622.   }
  623.   
  624. ! #endif /* TLI || PTX || TLI_SEQUENT */
  625. diff -c ../6.2/hosts_options.5 ./hosts_options.5
  626. *** ../6.2/hosts_options.5    Wed Mar 23 18:15:03 1994
  627. --- ./hosts_options.5    Wed Mar 23 18:15:48 1994
  628. ***************
  629. *** 22,29 ****
  630.   .IP "severity = mail.info"
  631.   Change the severity level at which the event will be logged. Facility
  632.   names (such as mail) are optional, and are not supported on systems
  633. ! with older syslog implementations. This option is useful to emphasize
  634. ! or to completely ignore specific events.
  635.   .IP "allow (deny)"
  636.   Grant (deny) service, even when the matched rule was found in the
  637.   \fIhosts.deny (hosts.allow)\fR file. These options must appear at the
  638. --- 22,29 ----
  639.   .IP "severity = mail.info"
  640.   Change the severity level at which the event will be logged. Facility
  641.   names (such as mail) are optional, and are not supported on systems
  642. ! with older syslog implementations. The severity option can be used
  643. ! to emphasize or to completely ignore specific events.
  644.   .IP "allow (deny)"
  645.   Grant (deny) service, even when the matched rule was found in the
  646.   \fIhosts.deny (hosts.allow)\fR file. These options must appear at the
  647. ***************
  648. *** 54,62 ****
  649.   hosts_access(5) manual page.  Stdin, stdout and stderr are connected to
  650.   the remote client process. This option must appear at the end of a rule.
  651.   .sp
  652.   .nf
  653.   .ti +3
  654. ! in.ftpd : clients : twist = /bin/echo 421 Some bounce message
  655.   .fi
  656.   .sp
  657.   sends a customized bounce message to the remote client instead of
  658. --- 54,64 ----
  659.   hosts_access(5) manual page.  Stdin, stdout and stderr are connected to
  660.   the remote client process. This option must appear at the end of a rule.
  661.   .sp
  662. + Examples:
  663. + .sp
  664.   .nf
  665.   .ti +3
  666. ! in.ftpd : ... : twist = /bin/echo 421 Some bounce message
  667.   .fi
  668.   .sp
  669.   sends a customized bounce message to the remote client instead of
  670. ***************
  671. *** 64,70 ****
  672.   .sp
  673.   .nf
  674.   .ti +3
  675. ! in.telnetd : clients : twist = PATH=/some/other; exec in.telnetd
  676.   .fi
  677.   .sp
  678.   would run /some/other/in.telnetd without polluting its command-line
  679. --- 66,72 ----
  680.   .sp
  681.   .nf
  682.   .ti +3
  683. ! in.telnetd : ... : twist = PATH=/some/other; exec in.telnetd
  684.   .fi
  685.   .sp
  686.   would run /some/other/in.telnetd without polluting its command-line
  687. ***************
  688. *** 98,106 ****
  689.   Like the umask command that is built into the shell. An umask of 022
  690.   prevents the creation of files with group and world write permission.
  691.   The umask argument should be an octal number.
  692.   .IP "linger = number_of_seconds"
  693.   Specifies how long the kernel will try to deliver not-yet delivered
  694. ! data after the server process terminates. 
  695.   .IP "user = nobody"
  696.   Assume the privileges of the "nobody" account. This is useful with
  697.   inetd implementations that run all services with root privilege. It is
  698. --- 100,118 ----
  699.   Like the umask command that is built into the shell. An umask of 022
  700.   prevents the creation of files with group and world write permission.
  701.   The umask argument should be an octal number.
  702. + .IP "keepalive"
  703. + Causes the server to periodically send a message to the client.  The
  704. + connection is considered broken when the client does not respond. The
  705. + keepalive option can be useful when users turn off their machine while
  706. + it is still connected to a server.  The keepalive option is not useful
  707. + for datagram (UDP) services.
  708.   .IP "linger = number_of_seconds"
  709.   Specifies how long the kernel will try to deliver not-yet delivered
  710. ! data after the server process closes a connection. 
  711. ! .IP "nice = niceval"
  712. ! .IP "nice (no argument)"
  713. ! Change the nice value of the process (default 10).  Specify a positive
  714. ! value to spend more CPU resources on other processes. 
  715.   .IP "user = nobody"
  716.   Assume the privileges of the "nobody" account. This is useful with
  717.   inetd implementations that run all services with root privilege. It is
  718. ***************
  719. *** 117,132 ****
  720.   .sp
  721.   Warning: many network daemons reset their environment before spawning a
  722.   login or shell process.
  723. ! .IP "rfc931 [= timeout]"
  724. ! Look up the remote user name with the RFC 931 protocol.  This option is
  725. ! silently ignored in case of services based on transports other than
  726. ! TCP.  Requires that the remote system runs an RFC 931-compliant daemon,
  727. ! and may cause noticeable delays with connections from non-UNIX hosts.
  728. ! The timeout period (in seconds) is optional. If no timeout is specified
  729. ! a default value is taken.
  730.   .SH DIAGNOSTICS
  731. ! An error is reported when a syntax error is found in a host access
  732. ! control rule; further options will be ignored, and service is denied.
  733.   .SH SEE ALSO
  734.   hosts_access(5), the default access control language
  735.   .SH AUTHOR
  736. --- 129,146 ----
  737.   .sp
  738.   Warning: many network daemons reset their environment before spawning a
  739.   login or shell process.
  740. ! .IP "rfc931 = timeout_in_seconds"
  741. ! .IP "rfc931 (no argument)"
  742. ! Look up the remote user name with the RFC 931 (IDENT, etc.) protocol.
  743. ! This option is silently ignored in case of services based on transports
  744. ! other than TCP.  It requires that the client system runs an RFC 931
  745. ! (IDENT, etc.) -compliant daemon, and may cause noticeable delays with
  746. ! connections from non-UNIX hosts.  The timeout period is optional. If no
  747. ! timeout is specified a default value is taken.
  748.   .SH DIAGNOSTICS
  749. ! When a syntax error is found in an access control rule, the error
  750. ! is reported to the syslog daemon; further options will be ignored,
  751. ! and service is denied.
  752.   .SH SEE ALSO
  753.   hosts_access(5), the default access control language
  754.   .SH AUTHOR
  755. ***************
  756. *** 136,139 ****
  757.   Department of Mathematics and Computing Science
  758.   Eindhoven University of Technology
  759.   Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  760. ! \" @(#) hosts_options.5 1.8 93/12/13 22:23:09
  761. --- 150,153 ----
  762.   Department of Mathematics and Computing Science
  763.   Eindhoven University of Technology
  764.   Den Dolech 2, P.O. Box 513, 5600 MB Eindhoven, The Netherlands
  765. ! \" @(#) hosts_options.5 1.9 94/03/23 16:52:32
  766. diff -c ../6.2/options.c ./options.c
  767. *** ../6.2/options.c    Wed Mar 23 18:14:58 1994
  768. --- ./options.c    Wed Mar 23 18:15:43 1994
  769. ***************
  770. *** 25,30 ****
  771. --- 25,34 ----
  772.     * course of action.
  773.     */
  774.   
  775. + #ifndef lint
  776. + static char sccsid[] = "@(#) options.c 1.13 94/03/23 16:15:59";
  777. + #endif
  778. + 
  779.   /* System libraries. */
  780.   
  781.   #include <sys/types.h>
  782. ***************
  783. *** 57,66 ****
  784. --- 61,72 ----
  785.   static void group_option();        /* execute "group=name" option */
  786.   static void umask_option();        /* execute "umask=mask" option */
  787.   static void linger_option();        /* execute "linger=time" option */
  788. + static void keepalive_option();        /* execute "keepalive" option */
  789.   static void spawn_option();        /* execute "spawn=command" option */
  790.   static void twist_option();        /* execute "twist=command" option */
  791.   static void rfc931_option();        /* execute "rfc931" option */
  792.   static void setenv_option();        /* execute "setenv=name value" */
  793. + static void nice_option();        /* execute "nice" option */
  794.   static void severity_option();        /* execute "severity=value" */
  795.   static void allow_option();        /* execute "allow" option */
  796.   static void deny_option();        /* execute "deny" option */
  797. ***************
  798. *** 91,100 ****
  799. --- 97,108 ----
  800.       "group", group_option, NEED_ARG,    /* switch group id */
  801.       "umask", umask_option, NEED_ARG,    /* change umask */
  802.       "linger", linger_option, NEED_ARG,    /* change socket linger time */
  803. +     "keepalive", keepalive_option, 0,    /* set socket keepalive option */
  804.       "spawn", spawn_option, NEED_ARG,    /* spawn shell command */
  805.       "twist", twist_option, NEED_ARG | USE_LAST,    /* replace current process */
  806.       "rfc931", rfc931_option, OPT_ARG,    /* do RFC 931 lookup */
  807.       "setenv", setenv_option, NEED_ARG,    /* update environment */
  808. +     "nice", nice_option, OPT_ARG,    /* change nice value */
  809.       "severity", severity_option, NEED_ARG,    /* adjust logging level */
  810.       "allow", allow_option, USE_LAST,    /* grant access */
  811.       "deny", deny_option, USE_LAST,    /* deny access */
  812. ***************
  813. *** 330,337 ****
  814.       return;
  815.       }
  816.       linger.l_onoff = (linger.l_linger != 0);
  817. !     if (setsockopt(0, SOL_SOCKET, SO_LINGER, (char *) &linger, sizeof(linger))
  818. !     < 0) {
  819.       syslog(LOG_ERR, "error: %s, line %d: setsockopt SO_LINGER %d: %m",
  820.              hosts_access_file, hosts_access_line, linger.l_linger);
  821.       longjmp(options_buf, OPT_DENY);
  822. --- 338,345 ----
  823.       return;
  824.       }
  825.       linger.l_onoff = (linger.l_linger != 0);
  826. !     if (setsockopt(client->fd, SOL_SOCKET, SO_LINGER, (char *) &linger, 
  827. !     sizeof(linger)) < 0) {
  828.       syslog(LOG_ERR, "error: %s, line %d: setsockopt SO_LINGER %d: %m",
  829.              hosts_access_file, hosts_access_line, linger.l_linger);
  830.       longjmp(options_buf, OPT_DENY);
  831. ***************
  832. *** 343,348 ****
  833. --- 351,423 ----
  834.   #endif
  835.   }
  836.   
  837. + /* keepalive_option - set the socket keepalive option */
  838. + 
  839. + /* ARGSUSED */
  840. + 
  841. + static void keepalive_option(value, daemon, client)
  842. + char   *value;
  843. + char   *daemon;
  844. + struct client_info *client;
  845. + {
  846. + #if defined(SO_KEEPALIVE) && !defined(BROKEN_SO_KEEPALIVE)
  847. +     int     on = 1;
  848. + 
  849. +     if (dry_run) {
  850. +     syslog(LOG_DEBUG, "option:   keepalive");
  851. +     return;
  852. +     }
  853. +     if (setsockopt(client->fd, SOL_SOCKET, SO_KEEPALIVE, (char *) &on,
  854. +            sizeof(on)) < 0)
  855. +     syslog(LOG_WARNING, "warning: %s, line %d: setsockopt SO_KEEPALIVE: %m",
  856. +            hosts_access_file, hosts_access_line);
  857. + #else
  858. +     syslog(LOG_WARNING, "warning: %s, line %d: SO_KEEPALIVE not supported",
  859. +        hosts_access_file, hosts_access_line);
  860. + #endif
  861. + }
  862. + 
  863. + /* nice_option - set nice value */
  864. + 
  865. + /* ARGSUSED */
  866. + 
  867. + static void nice_option(value, daemon, client)
  868. + char   *value;
  869. + char   *daemon;
  870. + struct client_info *client;
  871. + {
  872. +     int     niceval = 10;
  873. +     char    junk;
  874. + 
  875. +     if (value != 0 && sscanf(value, "%d%c", &niceval, &junk) != 1) {
  876. +     syslog(LOG_ERR, "error: %s, line %d: bad nice value: \"%s\"",
  877. +            hosts_access_file, hosts_access_line, value);
  878. +     longjmp(options_buf, OPT_DENY);
  879. +     }
  880. +     if (dry_run) {
  881. +     syslog(LOG_DEBUG, "option:   nice = %d", niceval);
  882. +     return;
  883. +     }
  884. +     if (nice(niceval) < 0) {
  885. +     syslog(LOG_WARNING, "warning: %s, line %d: nice(%d): %m",
  886. +            hosts_access_file, hosts_access_line, niceval);
  887. +     }
  888. + }
  889. + 
  890. + /* maybe_dup2 - conditional dup2 */
  891. + 
  892. + static int maybe_dup2(fd1, fd2)
  893. + int fd1;
  894. + int fd2;
  895. + {
  896. +     if (fd1 == fd2) {                /* already OK */
  897. +     return (fd2);
  898. +     } else {                    /* dup new to old */
  899. +     close(fd2);
  900. +     return (dup(fd1));
  901. +     }
  902. + }
  903. + 
  904.   /* twist_option - replace process by shell command */
  905.   
  906.   static void twist_option(value, daemon, client)
  907. ***************
  908. *** 364,379 ****
  909.       syslog(deny_severity, "twist %s to %s", hosts_info(client), buf);
  910.       closelog();
  911.   
  912. !     /*
  913. !      * Before switching to the shell, set up stdout and stderr in case the
  914. !      * Ultrix inetd didn't.
  915. !      */
  916.   
  917. !     (void) close(1);
  918. !     (void) close(2);
  919. !     if (dup(0) != 1 || dup(0) != 2) {
  920.       error = "twist_option: dup: %m";
  921.       } else {
  922.       (void) execl("/bin/sh", "sh", "-c", buf, (char *) 0);
  923.       error = "twist_option: /bin/sh: %m";
  924.       }
  925. --- 439,453 ----
  926.       syslog(deny_severity, "twist %s to %s", hosts_info(client), buf);
  927.       closelog();
  928.   
  929. !     /* Before switching to the shell, set up stdin, stdout and stderr. */
  930.   
  931. !     if (maybe_dup2(client->fd, 0) != 0 ||
  932. !     maybe_dup2(client->fd, 1) != 1 ||
  933. !     maybe_dup2(client->fd, 2) != 2) {
  934.       error = "twist_option: dup: %m";
  935.       } else {
  936. +     if (client->fd > 2)
  937. +         close(client->fd);
  938.       (void) execl("/bin/sh", "sh", "-c", buf, (char *) 0);
  939.       error = "twist_option: /bin/sh: %m";
  940.       }
  941. ***************
  942. *** 406,412 ****
  943.   
  944.       if (value) {
  945.       if (sscanf(value, "%d%c", &timeout, &junk) != 1 || timeout <= 0) {
  946. !         syslog(LOG_ERR, "error: rfc931_option: bad timeout: \"%s\"", value);
  947.           longjmp(options_buf, OPT_DENY);
  948.       }
  949.       rfc931_timeout = timeout;
  950. --- 480,487 ----
  951.   
  952.       if (value) {
  953.       if (sscanf(value, "%d%c", &timeout, &junk) != 1 || timeout <= 0) {
  954. !         syslog(LOG_ERR, "error: %s, line %d: bad rfc931 timeout: \"%s\"",
  955. !            hosts_access_file, hosts_access_line, value);
  956.           longjmp(options_buf, OPT_DENY);
  957.       }
  958.       rfc931_timeout = timeout;
  959. ***************
  960. *** 453,459 ****
  961.       return;
  962.       }
  963.       if (setenv(var_name, var_value, 1)) {
  964. !     syslog(LOG_ERR, "setenv_option: memory allocation failure");
  965.       longjmp(options_buf, OPT_DENY);
  966.       }
  967.   }
  968. --- 528,535 ----
  969.       return;
  970.       }
  971.       if (setenv(var_name, var_value, 1)) {
  972. !     syslog(LOG_ERR, "error: %s, line %d: memory allocation failure",
  973. !            hosts_access_file, hosts_access_line);
  974.       longjmp(options_buf, OPT_DENY);
  975.       }
  976.   }
  977. diff -c ../6.2/patchlevel.h ./patchlevel.h
  978. *** ../6.2/patchlevel.h    Wed Mar 23 18:14:59 1994
  979. --- ./patchlevel.h    Wed Mar 23 18:15:44 1994
  980. ***************
  981. *** 1,3 ****
  982.   #ifndef lint
  983. ! static char patchlevel[] = "@(#) patchlevel 6.2";
  984.   #endif
  985. --- 1,3 ----
  986.   #ifndef lint
  987. ! static char patchlevel[] = "@(#) patchlevel 6.3 94/03/23 17:59:52";
  988.   #endif
  989. diff -c ../6.2/ptx.c ./ptx.c
  990. *** ../6.2/ptx.c    Wed Mar 23 18:15:06 1994
  991. --- ./ptx.c    Wed Mar 23 18:15:50 1994
  992. ***************
  993. *** 20,26 ****
  994.     */
  995.   
  996.   #ifndef lint
  997. ! static char sccsid[] = "@(#) ptx.c 1.1 94/02/01 22:12:15";
  998.   #endif
  999.   
  1000.   #ifdef PTX
  1001. --- 20,26 ----
  1002.     */
  1003.   
  1004.   #ifndef lint
  1005. ! static char sccsid[] = "@(#) ptx.c 1.2 94/03/23 16:51:56";
  1006.   #endif
  1007.   
  1008.   #ifdef PTX
  1009. ***************
  1010. *** 83,89 ****
  1011.        * Another suggestion was to temporarily switch to the socket interface,
  1012.        * identify the client name/address with socket calls, then to switch
  1013.        * back to TLI. This seems to works OK with UDP services, but utterly
  1014. !      * messes up rlogind and telnetd.
  1015.        */
  1016.   
  1017.   #define SWAP_MODULE(f, old, new) (ioctl(f, I_POP, old), ioctl(f, I_PUSH, new))
  1018. --- 83,90 ----
  1019.        * Another suggestion was to temporarily switch to the socket interface,
  1020.        * identify the client name/address with socket calls, then to switch
  1021.        * back to TLI. This seems to works OK with UDP services, but utterly
  1022. !      * messes up rlogind and telnetd. No problem, rlogind and telnetd are
  1023. !      * taken care of by the code above.
  1024.        */
  1025.   
  1026.   #define SWAP_MODULE(f, old, new) (ioctl(f, I_POP, old), ioctl(f, I_PUSH, new))
  1027. *** /dev/null    Wed Mar 23 17:59:02 1994
  1028. --- ./tli-sequent.c    Wed Mar 23 18:15:51 1994
  1029. ***************
  1030. *** 0 ****
  1031. --- 1,222 ----
  1032. +  /*
  1033. +   * tli_host() determines the type of transport (connected, connectionless),
  1034. +   * the name and address of the host at the other end of a network link. In
  1035. +   * case of an IP service, tli_host() also determines the local address and
  1036. +   * port, and the remote username if username lookups are done irrespective
  1037. +   * of client. All results are in static memory.
  1038. +   * 
  1039. +   * The return status is (-1) if the remote host pretends to have someone elses
  1040. +   * name, or if the remote host name is available but could not be verified;
  1041. +   * in either case the hostname will be ignored. The return status is zero in
  1042. +   * all other cases (the hostname is unavailable, or the host name double
  1043. +   * check succeeds).
  1044. +   * 
  1045. +   * Diagnostics are reported through syslog(3).
  1046. +   * 
  1047. +   * Warning - this relies heavily on the TLI implementation in PTX 2.X
  1048. +   * and will probably not work under PTX 4.
  1049. +   *
  1050. +   * Author: Tim Wright, Sequent Computer Systems Ltd., UK.
  1051. +   */
  1052. + 
  1053. + #ifndef lint
  1054. + static char sccsid[] = "@(#) tli-sequent.c 1.0 94/02/11 10:20:30";
  1055. + #endif
  1056. + 
  1057. + #ifdef TLI_SEQUENT
  1058. + 
  1059. + /* System libraries. */
  1060. + 
  1061. + #include <sys/types.h>
  1062. + #include <sys/param.h>
  1063. + #include <sys/stat.h>
  1064. + #include <sys/tiuser.h>
  1065. + #include <sys/stream.h>
  1066. + #include <sys/stropts.h>
  1067. + #include <sys/tihdr.h>
  1068. + #include <sys/timod.h>
  1069. + #include <sys/socket.h>
  1070. + #include <netinet/in.h>
  1071. + #include <stdio.h>
  1072. + #include <syslog.h>
  1073. + #include <errno.h>
  1074. + 
  1075. + extern char *strncpy();
  1076. + 
  1077. +  /* Some systems versions advertise a too small MAXHOSTNAMELEN value. */
  1078. + 
  1079. + #if (MAXHOSTNAMELEN < 64)
  1080. + #undef MAXHOSTNAMELEN
  1081. + #endif
  1082. + 
  1083. +  /* In case not defined in <sys/param.h>. */
  1084. + 
  1085. + #ifndef MAXHOSTNAMELEN
  1086. + #define MAXHOSTNAMELEN    256        /* storage for host name */
  1087. + #endif
  1088. + 
  1089. + extern int errno;
  1090. + extern char *sys_errlist[];
  1091. + extern int sys_nerr;
  1092. + extern int t_errno;
  1093. + extern char *t_errlist[];
  1094. + extern int t_nerr;
  1095. + 
  1096. + /* Local stuff. */
  1097. + 
  1098. + #include "log_tcp.h"
  1099. + #include "tli-sequent.h"
  1100. + 
  1101. + /* Forward declarations. */
  1102. + 
  1103. + static char *tli_error();
  1104. + static void tli_sink();
  1105. + 
  1106. + /* tli_host - determine endpoint info */
  1107. + 
  1108. + int     tli_host(client, fd)
  1109. + struct client_info *client;
  1110. + int     fd;
  1111. + {
  1112. +     static struct sockaddr_in rmt_sin;
  1113. +     static struct sockaddr_in our_sin;
  1114. +     struct _ti_user *tli_state_ptr;
  1115. +     union  T_primitives *TSI_prim_ptr;
  1116. +     struct strpeek peek;
  1117. +     int     len;
  1118. + 
  1119. +     /*
  1120. +      * Initialize the result with suitable defaults.
  1121. +      */
  1122. + 
  1123. +     init_client(client);
  1124. +     client->fd = fd;
  1125. + 
  1126. +     /*
  1127. +      * Find out the client address using getpeerinaddr(). This call is the
  1128. +      * TLI equivalent to getpeername() under Dynix/ptx.
  1129. +      */
  1130. + 
  1131. +     len = sizeof(rmt_sin);
  1132. +     t_sync(client->fd);
  1133. +     if (getpeerinaddr(client->fd, &rmt_sin, len) < 0) {
  1134. +     syslog(LOG_ERR, "error: can't get client address: %s", tli_error());
  1135. +     return (0);                /* address and name unknown */
  1136. +     }
  1137. +     client->rmt_sin = &rmt_sin;
  1138. + 
  1139. +     /* Call TLI utility routine to get information on endpoint */
  1140. +     if ((tli_state_ptr = _t_checkfd(fd)) == NULL)
  1141. +     return(0);
  1142. + 
  1143. +     if (tli_state_ptr->ti_servtype == T_CLTS) {
  1144. +     /* UDP - may need to get address the hard way */
  1145. +     if (rmt_sin.sin_addr.s_addr == 0) {
  1146. +         /* The UDP endpoint is not connected so we didn't get the */
  1147. +         /* remote address - get it the hard way ! */
  1148. + 
  1149. +         /* Look at the control part of the top message on the stream */
  1150. +         /* we don't want to remove it from the stream so we use I_PEEK */
  1151. +         peek.ctlbuf.maxlen = tli_state_ptr->ti_ctlsize;
  1152. +         peek.ctlbuf.len = 0;
  1153. +         peek.ctlbuf.buf = tli_state_ptr->ti_ctlbuf;
  1154. +         /* Don't even look at the data */
  1155. +         peek.databuf.maxlen = -1;
  1156. +         peek.databuf.len = 0;
  1157. +         peek.databuf.buf = 0;
  1158. +         peek.flags = 0;
  1159. + 
  1160. +         switch (ioctl(client->fd, I_PEEK, &peek)) {
  1161. +         case -1:
  1162. +         syslog(LOG_ERR, "error: can't peek at endpoint: %s", tli_error());
  1163. +         return(0);
  1164. +         case 0:
  1165. +         /* No control part - we're hosed */
  1166. +         syslog(LOG_ERR, "error: can't get UDP info: %s", tli_error());
  1167. +         return(0);
  1168. +         default:
  1169. +         /* FALL THROUGH */
  1170. +         ;
  1171. +         }
  1172. +         /* Can we even check the PRIM_type ? */
  1173. +         if (peek.ctlbuf.len < sizeof(long)) {
  1174. +         syslog(LOG_ERR, "error: UDP control info garbage");
  1175. +         return(0);
  1176. +         }
  1177. +         TSI_prim_ptr = (union T_primitives *) peek.ctlbuf.buf;
  1178. +         if (TSI_prim_ptr->type != T_UNITDATA_IND) {
  1179. +         syslog(LOG_ERR, "error: wrong type for UDP control info");
  1180. +         return(0);
  1181. +         }
  1182. +         /* Validate returned unitdata indication packet */
  1183. +         if ((peek.ctlbuf.len < sizeof(struct T_unitdata_ind)) ||
  1184. +         ((TSI_prim_ptr->unitdata_ind.OPT_length != 0) &&
  1185. +          (peek.ctlbuf.len <
  1186. +             TSI_prim_ptr->unitdata_ind.OPT_length +
  1187. +             TSI_prim_ptr->unitdata_ind.OPT_offset))) {
  1188. +         syslog(LOG_ERR, "error: UDP control info garbaged");
  1189. +         return(0);
  1190. +         }
  1191. +         /* Extract the address */
  1192. +         memcpy(&rmt_sin,
  1193. +         peek.ctlbuf.buf + TSI_prim_ptr->unitdata_ind.SRC_offset,
  1194. +         TSI_prim_ptr->unitdata_ind.SRC_length);
  1195. +     }
  1196. +     client->sink = tli_sink;
  1197. +     }
  1198. + 
  1199. +     if (getmyinaddr(client->fd, &our_sin, len) < 0)
  1200. +     syslog(LOG_ERR, "error: can't get local address: %s", tli_error());
  1201. +     else
  1202. +     client->our_sin = &our_sin;
  1203. +     return (sock_names(client));
  1204. + }
  1205. + 
  1206. + /* tli_error - convert tli error number to text */
  1207. + 
  1208. + static char *tli_error()
  1209. + {
  1210. +     static char buf[40];
  1211. + 
  1212. +     if (t_errno != TSYSERR) {
  1213. +     if (t_errno < 0 || t_errno >= t_nerr) {
  1214. +         sprintf(buf, "Unknown TLI error %d", t_errno);
  1215. +         return (buf);
  1216. +     } else {
  1217. +         return (t_errlist[t_errno]);
  1218. +     }
  1219. +     } else {
  1220. +     if (errno < 0 || errno >= sys_nerr) {
  1221. +         sprintf(buf, "Unknown UNIX error %d", errno);
  1222. +         return (buf);
  1223. +     } else {
  1224. +         return (sys_errlist[errno]);
  1225. +     }
  1226. +     }
  1227. + }
  1228. + 
  1229. + /* tli_sink - absorb unreceived datagram */
  1230. + 
  1231. + static void tli_sink(fd)
  1232. + int     fd;
  1233. + {
  1234. +     struct t_unitdata *unit;
  1235. +     int     flags;
  1236. + 
  1237. +     /*
  1238. +      * Something went wrong. Absorb the datagram to keep inetd from looping.
  1239. +      * Allocate storage for address, control and data. If that fails, sleep
  1240. +      * for a couple of seconds in an attempt to keep inetd from looping too
  1241. +      * fast.
  1242. +      */
  1243. + 
  1244. +     if ((unit = (struct t_unitdata *) t_alloc(fd, T_UNITDATA, T_ALL)) == 0) {
  1245. +     syslog(LOG_ERR, "error: t_alloc: %s", tli_error());
  1246. +     sleep(5);
  1247. +     } else {
  1248. +     (void) t_rcvudata(fd, unit, &flags);
  1249. +     t_free((void *) unit, T_UNITDATA);
  1250. +     }
  1251. + }
  1252. + 
  1253. + #endif /* TLI_SEQUENT */
  1254. *** /dev/null    Wed Mar 23 17:59:02 1994
  1255. --- ./tli-sequent.h    Wed Mar 23 18:15:51 1994
  1256. ***************
  1257. *** 0 ****
  1258. --- 1,13 ----
  1259. + #ifdef __STDC__
  1260. + #define __P(X) X
  1261. + #else
  1262. + #define __P(X) ()
  1263. + #endif
  1264. + 
  1265. + extern int t_sync __P((int));
  1266. + extern char *t_alloc __P((int, int, int));
  1267. + extern int t_free __P((char *, int));
  1268. + extern int t_rcvudata __P((int, struct t_unitdata *, int *));
  1269. + extern int getpeerinaddr __P((int, struct sockaddr_in *, int));
  1270. + extern int getmyinaddr __P((int, struct sockaddr_in *, int));
  1271. + extern struct _ti_user *_t_checkfd __P((int));
  1272. diff -c ../6.2/tli.c ./tli.c
  1273. *** ../6.2/tli.c    Wed Mar 23 18:15:02 1994
  1274. --- ./tli.c    Wed Mar 23 18:15:46 1994
  1275. ***************
  1276. *** 17,23 ****
  1277.     */
  1278.   
  1279.   #ifndef lint
  1280. ! static char sccsid[] = "@(#) tli.c 1.8 93/12/13 22:23:27";
  1281.   #endif
  1282.   
  1283.   #ifdef TLI
  1284. --- 17,23 ----
  1285.     */
  1286.   
  1287.   #ifndef lint
  1288. ! static char sccsid[] = "@(#) tli.c 1.9 94/03/23 16:24:47";
  1289.   #endif
  1290.   
  1291.   #ifdef TLI
  1292. ***************
  1293. *** 26,31 ****
  1294. --- 26,32 ----
  1295.   
  1296.   #include <sys/types.h>
  1297.   #include <sys/param.h>
  1298. + #include <sys/stream.h>
  1299.   #include <sys/stat.h>
  1300.   #include <sys/mkdev.h>
  1301.   #include <sys/tiuser.h>
  1302. ***************
  1303. *** 52,57 ****
  1304. --- 53,59 ----
  1305.   #define MAXHOSTNAMELEN    256        /* storage for host name */
  1306.   #endif
  1307.   
  1308. + extern char *nc_sperror();
  1309.   extern int errno;
  1310.   extern char *sys_errlist[];
  1311.   extern int sys_nerr;
  1312. diff -c ../6.2/try.c ./try.c
  1313. *** ../6.2/try.c    Wed Mar 23 18:14:52 1994
  1314. --- ./try.c    Wed Mar 23 18:15:37 1994
  1315. ***************
  1316. *** 17,23 ****
  1317.     */
  1318.   
  1319.   #ifndef lint
  1320. ! static char sccsid[] = "@(#) try.c 1.10 94/02/01 22:12:19";
  1321.   #endif
  1322.   
  1323.   #include <sys/types.h>
  1324. --- 17,23 ----
  1325.     */
  1326.   
  1327.   #ifndef lint
  1328. ! static char sccsid[] = "@(#) try.c 1.11 94/03/23 17:03:14";
  1329.   #endif
  1330.   
  1331.   #include <sys/types.h>
  1332. ***************
  1333. *** 31,36 ****
  1334. --- 31,37 ----
  1335.   
  1336.   extern void exit();
  1337.   extern char *strchr();
  1338. + extern char *strcpy();
  1339.   
  1340.   #ifndef HOSTS_ACCESS
  1341.   
  1342. ***************
  1343. *** 117,122 ****
  1344. --- 118,125 ----
  1345.       char   *at;
  1346.       char   *user;
  1347.       char   *host;
  1348. +     char    reverse_name[BUFSIZ];
  1349. +     struct in_addr addr;
  1350.   
  1351.       /*
  1352.        * Parse the JCL.
  1353. ***************
  1354. *** 170,200 ****
  1355.       /*
  1356.        * Otherwise, assume that a host name is specified, and insist that the
  1357.        * address is known. The reason is that in real life, the host address is
  1358. !      * always available.
  1359.        */
  1360.       if ((hp = gethostbyname(host)) == 0) {
  1361.       fprintf(stderr, "host %s: address lookup failed\n", host);
  1362.       return (1);
  1363.       }
  1364.   
  1365.       /*
  1366.        * Use the hostname that gethostbyaddr() would give us. On systems with
  1367. !      * NIS this may be an unqualified name. We should use that even though a
  1368. !      * FQDN was given on the command line.
  1369.        */
  1370. !     if ((hp = gethostbyaddr((char *) hp->h_addr_list[0],
  1371. !                 sizeof(struct in_addr), AF_INET)) == 0) {
  1372.       fprintf(stderr, "host %s: address->name lookup failed\n", host);
  1373.       return (1);
  1374.       }
  1375.   
  1376.       /*
  1377.        * Iterate over all known addresses for this host. This way we find out
  1378.        * if different addresses for the same host have different permissions,
  1379. !      * something that we probably do not want.
  1380.        */
  1381.       while (hp->h_addr_list[0]) {
  1382. !     try(server, hp->h_name,
  1383.           inet_ntoa(*(struct in_addr *) * hp->h_addr_list++), user);
  1384.       if (hp->h_addr_list[0])
  1385.           putchar('\n');
  1386. --- 173,212 ----
  1387.       /*
  1388.        * Otherwise, assume that a host name is specified, and insist that the
  1389.        * address is known. The reason is that in real life, the host address is
  1390. !      * always available (at least with IP).
  1391.        */
  1392.       if ((hp = gethostbyname(host)) == 0) {
  1393.       fprintf(stderr, "host %s: address lookup failed\n", host);
  1394.       return (1);
  1395.       }
  1396. +     if (hp->h_addrtype != 0 && hp->h_addrtype != AF_INET) {
  1397. +     fprintf(stderr,
  1398. +         "Sorry, this test program cannot handle address family %d\n",
  1399. +         hp->h_addrtype);
  1400. +     return (1);
  1401. +     }
  1402. +     memcpy((char *) &addr, hp->h_addr_list[0], sizeof(addr));
  1403.   
  1404.       /*
  1405.        * Use the hostname that gethostbyaddr() would give us. On systems with
  1406. !      * NIS this may be an unqualified name, even when an FQDN was given on
  1407. !      * the command line.
  1408.        */
  1409. !     if ((hp = gethostbyaddr((char *) &addr, sizeof(addr), AF_INET)) == 0) {
  1410.       fprintf(stderr, "host %s: address->name lookup failed\n", host);
  1411.       return (1);
  1412.       }
  1413. +     strcpy(reverse_name, hp->h_name);
  1414. +     while ((hp = gethostbyname(reverse_name)) == 0)    /* XXX */
  1415. +     /* void */ ;
  1416.   
  1417.       /*
  1418.        * Iterate over all known addresses for this host. This way we find out
  1419.        * if different addresses for the same host have different permissions,
  1420. !      * something that we may not want.
  1421.        */
  1422.       while (hp->h_addr_list[0]) {
  1423. !     try(server, reverse_name,
  1424.           inet_ntoa(*(struct in_addr *) * hp->h_addr_list++), user);
  1425.       if (hp->h_addr_list[0])
  1426.           putchar('\n');
  1427. diff -c ../6.2/vfprintf.c ./vfprintf.c
  1428. *** ../6.2/vfprintf.c    Wed Mar 23 18:15:06 1994
  1429. --- ./vfprintf.c    Wed Mar 23 18:15:51 1994
  1430. ***************
  1431. *** 1,13 ****
  1432.    /*
  1433.     * vfprintf() and vprintf() clones. They will produce unexpected results
  1434. !   * when excessive dynamic ("*") field widths are specified. This code was
  1435. !   * adapted from my EXP programming language runtime system.
  1436.     * 
  1437.     * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
  1438.     */
  1439.   
  1440.   #ifndef lint
  1441. ! static char sccsid[] = "@(#) vfprintf.c 1.1 94/02/01 22:12:21";
  1442.   #endif
  1443.   
  1444.   #include <stdio.h>
  1445. --- 1,13 ----
  1446.    /*
  1447.     * vfprintf() and vprintf() clones. They will produce unexpected results
  1448. !   * when excessive dynamic ("*") field widths are specified. To be used for
  1449. !   * testing purposes only.
  1450.     * 
  1451.     * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
  1452.     */
  1453.   
  1454.   #ifndef lint
  1455. ! static char sccsid[] = "@(#) vfprintf.c 1.2 94/03/23 17:44:46";
  1456.   #endif
  1457.   
  1458.   #include <stdio.h>
  1459. ***************
  1460. *** 48,54 ****
  1461.            * strings, since we are ging to let fprintf() do the hard work.
  1462.            * In regular expression notation, we recognize:
  1463.            * 
  1464. !          * %-?0?([0-9]*|\*)\.?([0-9]*|\*)l?[a-z]
  1465.            * 
  1466.            * which includes some combinations that do not make sense.
  1467.            */
  1468. --- 48,54 ----
  1469.            * strings, since we are ging to let fprintf() do the hard work.
  1470.            * In regular expression notation, we recognize:
  1471.            * 
  1472. !          * %-?0?([0-9]+|\*)?\.?([0-9]+|\*)?l?[a-z]
  1473.            * 
  1474.            * which includes some combinations that do not make sense.
  1475.            */
  1476.  
  1477. exit 0 # Just in case...
  1478.