Here is the original question:
> Greetings sun-managers:
>
> Does anyone know of any software product that implements a dial-up
> and callback scheme that would work with a SPARC and a USR V.34 modem?
>
> I'm interested in commercial as well free/shareware possibilities.
And here are the replies. From Nahum Rubinstein:
>
>
> Try the dial back software
> that runs one or more modems from a Sun. The software is
> available at:
>
> ftp dnpap.et.tudelft.nl:/pub/Private/Richard/Modem/
>
> dmodem-1.4.tar.gz is software for controlling multiple modems (e.g.
> one slow dial-in modem, multiple fast dial-back
> modems).
> It also has tighter security control by limiting
> modem access to as few people as you want.
>
> sgetty.c.gz controls a single modem - dialin and dialback occurs on
> the same modem. This is the predecessor of dmodem.
>
-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=
From Nico Garcia:
>
>
> hylafax, from sgi.com:/sgi/fax, will handle dial-in and fax configuration.
> I believe that dback or dmodem, which should be on an ftp site near you,
> should work with it to provide the dialback feature.
>
> Nico Garcia
> raoul@mit.edu
-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=
From Robin Kinzy:
>
> Actually, we are using a Sparc10 and USR v.34 modems, and the modems themselves
> have the dialback security features built in. We use it here as a security
> measure to provide direct dialins to our network management station.
>
> Good luck if the modem dialback isn't what you need.
>
> Robin
>
As it turned out Robin's modems were Couriers which do have this
feature. My modems are Sportsters which do not have internal
callback capability.
-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=
From Paul Hostrup-Jessen:
> Hi Roger,
>
> We use the commercial product called TermServ from Los Altos Technologies and
> we are very satisfied with it.
>
> It is easy to install and set up. You get callback, dual password protection,
> logging of all events and individual access restrictions just to name a few of
> the options. It is available for not only Sun platforms, but also a range of
> other popular Unix platforms (if you happen to have any at your site).
>
> You can also find "home-made" stuff on the Internet, but we didn't wan't to
> spend our time experimenting with it. The commercial product costs approximate-
> ly 400 $ for one license, but you also get good support - and it is documented.
>
> For more information contact:
>
> Los Altos Technologies
> 346 Costello Court
> Los Altos
> California 94024
>
> tel.: (415) 988 4848
> fax: (415) 949 4825
> email: info@lat.com
>
>
And a follow-on from Paul:
>
> > Do you recall the names of any of the home-made stuff?
>
> I sure do. I have attached such a program to this email, but have never tried
> it out. By reading the scripts you can see from where it came.
>
>
> Newsgroups: comp.sources.misc
> subject: v10i001: modem callback program, part 1 of 2
> from: howard@hasse.ericsson.se (Howard Gayle)
> Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
>
> Posting-number: Volume 10, Issue 1
> Submitted-by: howard@hasse.ericsson.se (Howard Gayle)
> Archive-name: callback_hg/part01
>
> Suggested archive name: callback.
>
> #! /bin/sh
> # This is a shell archive. Remove anything before this line, then feed it
> # into a shell via "sh file" or similar. To overwrite existing files,
> # type "sh file -c".
> # The tool that generated this appeared in the comp.sources.unix newsgroup;
> # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
> # If this archive is complete, you will see the following message at the end:
> # "End of archive 1 (of 2)."
> # Contents: README Makefile callback.c callback.h callback0.c
> # Wrapped by howard@hasse on Fri Dec 29 10:22:51 1989
> PATH=/bin:/usr/bin:/usr/ucb ; export PATH
> if test -f 'README' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'README'\"
> else
> echo shar: Extracting \"'README'\" \(10750 characters\)
> sed "s/^X//" >'README' <<'END_OF_FILE'
> X$Header: README,v 1.2 89/12/29 10:17:06 howard Exp $
> X
> X DESCRIPTION
> X
> XThe callback system implements callback for dialup login
> Xsessions. A user dials in and enters a symbolic name for a
> Xstored telephone number. The line is dropped, and a new call is
> Xplaced to the corresponding number. On connection a normal
> Xlogin session is established. Unlike callback firmware in some
> Xmodems, the list of phone numbers may be arbitrarily long.
> XDifferent lines may use different lists, or any number of lines
> Xmay share the same list.
> X
> XThe system has two purposes: to charge (almost all of) the cost
> Xof the telephone calls to the host, and to improve security. I
> Xdo no guarantee that callback is secure, but at least you can
> Xlook at the source code; it's not firmware burned into a PROM.
> X
> XCallback has been tested on an ALM port on a Sun 3/280 running
> XSunOS 4.0.3, and on a CPU serial port on a Sun 3/60 runing first
> XSunOS 4.0.1, then SunOS 4.0.3. Callback may work on other UNIX
> Xversions that use termio and /dev/cua* special files for dialing
> Xout. It will not work on SunOS 3.x. It has been tested with
> XOctocom OSI8596 modems and Alfanet ANC 8x224TT modems, both of
> Xwhich are Hayes-compatible. Callback is designed to be general
> Xenough to operate with most autodial modems. Extensive logging
> Xshows all traffic to and from the modem, with timestamps.
> X
> XCallback works with the normal getty and login functionality,
> Xincluding line speed selection. It allows different modem
> Xcommands for each line speed, if necessary.
> X
> XAs distributed, callback needs verbose text responses from
> Xmodems, e.g. "CONNECT 2400" instead of "10." This makes it
> Xincompatible with some UUCPs, since they require numeric
> Xresponse codes. It should be easy to modify callback to handle
> Xnumeric response codes, however.
> X
> X
> X LICENSE
> X
> XCallback is free software under the GNU general public license.
> X
> X
> X HOW IT WORKS (KLUDGEOLOGISTS TAKE NOTE)
> X
> XThe /etc/ttytab file is modified for the dialup line. Instead
> Xof running the usual getty, callback is run. Callback
> Ximmediately execs a special getty, named getty-cb. Getty-cb
> Xworks exactly like the ordinary getty, except that after it has
> Xthe tty set up correctly and has read the login name, it does
> Xnot exec login but instead execs callback0. Callback0 does the
> Xactual callback. It prompts the user for the symbolic name for
> Xthe telephone number, hangs up, sends the dialing command to the
> Xmodem, waits for answer, turns off the hangup-on-close (HUPCL)
> Xbit, and then simply exits. Since the getty process has died,
> Xinit starts up another one, so another callback is started. But
> Xthis time, callback does not exec getty-cb, it execs login, so
> Xthe user can finish logging in. Callback execs either getty-cb
> Xor login, depending on a state file that callback0 modifies.
> XAnd getty-cb is really just the vendor-supplied getty
> Xexecutable, with "/bin/login" changed to a path to callback0.
> X
> X
> X PREREQUISITES
> X
> XYou must have my library of C functions. It was posted to
> Xcomp.sources.misc on 1 October 1989 (volume 8, issues 80-87) and
> X28 October 1989 (volume 8, issue 96). The archive name was
> Xlibhoward.
> X
> XYou also need some way to change a string in an executable, or
> Xyou need source for a getty that will work on your system. GNU
> XEmacs is an excellent tool for editing executables; adb will
> Xalso work.
> X
> XThe libhoward package itself has a number of prerequisites.
> XANSI-C float.h and limits.h include files must be on the C
> Xinclude file search path. If you don't have them, you can use
> XSteven Pemberton's config program to make them. Config was
> Xposted to comp.sources.misc on 30 April 1989 as volume 6 issue
> X96, archive name config2.
> X
> XThe makefiles use features that may only be in GNU make, version
> X3.54 or later. (There are a lot of different make commands out
> Xthere, and I haven't tested them all, so I don't know for sure
> Xwhich will work and which won't. GNU make 3.54 will definitely
> Xwork. The make supplied with SunOS 4.0.3 will not work.)
> X
> XChris Tweed's sets command must be on the command search path.
> XIt was posted to comp.sources.unix on 24 February 1988 as volume
> X13, issue 68, archive name sets.
> X
> XSome of the documentation is in LaTeX. You do not *have* to
> Xread it, but it may be helpful. If you want to read it, you
> Xwill need LaTeX to format it.
> X
> X
> X INSTALLATION
> X
> XIt will be easier to understand the installation if you first
> Xread my report "Sharing software in a network of heterogeneous
> XUNIX hosts." This comes with libhoward.
> X
> XInstall the dialup lines in the normal way, including the
> X/dev/cua* files. For Suns, see section 11.4, "Adding a Modem to
> XYour System," in the System & Network Administration Manual.
> XMake sure the dialup lines are working in the normal manner,
> Xwithout callback, before installing callback.
> X
> XFigure out where you want to install various files. Here I'll
> Xassume a separate directory for everything, but it's easy to
> Xmake a different choice. I discuss an alternative example
> Xbelow.
> X
> XI'll call the master source directory $DD.
> X
> XCreate a directory for compiling on this machine type. I'll
> Xcall it /usr/local/free/callback.
> X
> XFind out the version. Look at the Header line (typically the
> Xfirst line) of the FREEZE file. The version is the first
> Xnumber, and ends at the period. The first externally released
> Xversion was version 2.
> X
> XCreate a subdirectory for this version. e.g.
> X/usr/local/free/callback/2.
> X
> XCreate the following subdirectories for results:
> X bin Installed executables.
> X man/man1 Manual entries.
> X man/cat1 On-line formatted manual entries.
> X
> XFor example:
> X % cd /usr/local/free/callback/2
> X % mkdir bin man man/{cat,man}1
> X
> XCreate a subdirectory for doing the actual compilations. I'll
> Xcall it sun34:
> X % mkdir sun34
> X % cd sun34
> X
> XCreate an mk shell file. Make it executable. Here's a starting
> Xpoint for SunOS 4.x:
> X
> XDD=/usr/local/free-dist/callback/2/dist
> XSRCS=`cd $DD; echo *`
> XRM='rm -f'
> Xexport DD SRCS RM
> Xmake -f uMakefile
> Xexec make \
> X CATMAN=catman \
> X FMTMAN=mkManPS \
> X $*
> X
> XIf you don't have a catman command, drop that line. FMTMAN
> Xshould be the name of a command to turn manual entries into
> Xprintable form. Add any local changes you need here. If your C
> Xcompiler doesn't understand different optimization levels, add
> XCFLAGS=-O as an argument to the last make.
> X
> XHere is an alternate mk file for a system using GCC, and with
> Xresults installed in more conventional places.
> X
> XDD=/usr/local/free-dist/callback/2/dist
> XSRCS=`cd $DD; echo *`
> XCC=gcc
> XCFLAGS='-g -O -traditional'
> XINCLUDES=-I/usr/local/include
> XRM='rm -f'
> Xexport DD SRCS CC CFLAGS INCLUDES RM
> Xmake -f uMakefile
> Xexec make \
> X CATMAN=catman \
> X CID=/usr/local/bin \
> X LIBPATH='-L/usr/local/lib' \
> X MID=/usr/local/man \
> X $*
> X
> XGet MakeCommon and uMakefile from the master source directory,
> Xe.g.
> X % mkDistI MakeCommon $DD
> X % mkDistI uMakefile $DD
> X
> XMake any changes you need to make to callback.h. Near the top
> Xare some absolute path names that you may want to change.
> X
> XIf your telephone line has double clearing, and if you're
> Xconcerned about security, you should increase the value of the
> XDROPSEC macro defined near the top of callback.h. Double
> Xclearing is a telephony feature. A calls B and B answers. With
> Xdouble clearing, B can hang up for a short time and then pick up
> Xthe call again. This is convenient, for example, to walk to a
> Xphone in a different room. However, double clearing also makes
> Xspoofing possible. The bad guy calls up and initiates the
> Xcallback, but does not hang up. Instead, the bad guy supplies
> Xdial tone. The host modem hangs up the line for a while, and
> Xwhen it goes off hook again it detects the dial tone supplied by
> Xthe bad guy. It dials the number and then waits for answer.
> XThe bad guy removes the dial tone and answers.
> X
> XTo avoid spoofing, DROPSEC must be longer than the double
> Xclearing timeout. This is typically about 90 seconds, but you
> Xcan test for yourself by having a partner call you, hanging up,
> Xand timing how long you need to stay on hook before you can go
> Xoff hook and get dial tone instead of your partner.
> XUnfortunately, DROPSEC is the time between when the callback
> Xrequest is accepted and when it is processed, so making it
> Xlonger than a few seconds will annoy your users and lead them to
> Xsuspect that the callbacks they request have failed. It's much
> Xbetter to get a line with single clearing, if possible. Most
> XPABX lines have single clearing.
> X
> XCallback as distributed assumes verbose responses from the
> Xmodem. With Hayes-compatible modems, the command "atv1" puts
> Xthem in verbose mode. If you prefer numeric response codes, you
> Xwill need to modify the mrctab[] table in callback.h to handle
> Xthem. You will probably also need to modify the code in main()
> Xin callback0.c to do exact matching on the result codes instead
> Xof prefix matching.
> X
> XWhen you have the modem programmed with the configuration you
> Xwish, save the configuration in non-volatile memory. With
> XHayes-compatible modems, the command "at&w" does this.
> X
> XRun mk.
> X
> XRun "mk install".
> X
> XMake a getty that execs callback0 instead of login. If you have
> Xsource for getty, you can use that. If you don't, make a copy
> Xof your vendor-supplied getty executable, and edit it. I call
> Xthe result getty-cb. It should go where callback and callback0
> Xgo. I used GNU Emacs to edit a copy of /usr/etc/getty. I used
> Xincremental search to find /bin/login, then I changed it to
> X/bin/.cb0 followed by an extra NUL (Ctl-Q 000) so the new string
> Xtakes up exactly the same space as the old. I then made
> X/bin/.cb0 a symbolic link to where callback0 really is:
> X # mount -o remount,rw /usr (If /usr is mounted read-only)
> X # ln -s /usr/local/free/callback/0/bin/callback0 /bin/.cb0
> X
> XSet up control, log, and state files.
> XI put these in /etc/local/callback. In this example there's
> Xonly one callback line, ttyd1:
> X # cd /etc
> X # mkdir local
> X # chmod g+s local
> X # cd local
> X # mkdir callback
> X # chmod o= callback
> X # cd callback
> X # mkdir control log state
> X # chmod o= *
> X # touch {control,log}/ttyd1
> X # chmod o= control/* log/*
> X
> XEdit the control files. See callback(1) for an example.
> X
> XThe log files grow without bound, so you should include them in
> Xyour periodic log file trimming scripts.
> X
> XEdit /etc/ttytab. The lines that use callback should have
> X/usr/etc/getty replaced by a full path to callback, e.g.:
> X
> X ttyd1 "/usr/local/free/callback/0/bin/callback 2400-baud" dialup on
> X
> XMake the newly installed version of callback version 0:
> X # cd /usr/local/free/callback
> X # /bin/rm -f 0; ls -s 2 0
> X
> XHave init read the changed /etc/ttytab:
> X # kill -1 1
> X--
> XHoward Gayle
> XTN/ETX/TT/HL
> XEricsson Telecom AB
> XS-126 25 Stockholm
> XSweden
> Xhoward@ericsson.se
> Xuunet!ericsson.se!howard
> XPhone: +46 8 719 5565
> XFAX : +46 8 719 8439
> END_OF_FILE
> if test 10750 -ne `wc -c <'README'`; then
> echo shar: \"'README'\" unpacked with wrong size!
> fi
> # end of 'README'
> fi
> if test -f 'Makefile' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'Makefile'\"
> else
> echo shar: Extracting \"'Makefile'\" \(6396 characters\)
> sed "s/^X//" >'Makefile' <<'END_OF_FILE'
> X# Makefile - main GNU makefile for callback
> X#
> X# $Header: Makefile,v 1.2 89/12/28 10:37:29 howard Exp $
> X#
> X# Copyright 1990 Howard Lee Gayle
> X# This file is written in the ISO 8859/1 character set.
> X#
> X# This program is free software; you can redistribute it and/or modify
> X# it under the terms of the GNU General Public License version 1,
> X# as published by the Free Software Foundation.
> X#
> X# This program is distributed in the hope that it will be useful,
> X# but WITHOUT ANY WARRANTY; without even the implied warranty of
> X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> X# GNU General Public License for more details.
> X#
> X# You should have received a copy of the GNU General Public License
> X# along with this program; if not, write to the Free Software
> X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X#
> X
> Xinclude MakeCommon
> X
> X# Commands:
> X
> X# Copy stdin to stdout.
> XCAT=cat
> X
> X# Put a file into the distribution directory.
> XDISTO=mkDistO
> X
> X# Echo arguments.
> XECHO=echo
> X
> X# Elisp compiler.
> XELCMP=emacs -batch -q -f batch-byte-compile
> X
> X# Install a non-executable file.
> XINSTF=mkInstF
> X
> X# Install an executable file.
> XINSTX=mkInstX
> X
> X# Lint command.
> XLINT=lint
> X
> X# Make shar files.
> XSHAR=trshar shar
> X
> X
> X# Command options:
> X
> X# Set commands at start of Bourne shell files, usually absolute paths.
> XBDEFS=
> X
> X# C compiler options.
> XCFLAGS=-O4
> X
> X# C library search path.
> XLIBPATH=-L/usr/local/free/howard/0
> X
> X# C libraries to link in.
> XLIBES=-lhoward
> X
> X# Options to lint.
> XLINTFLAGS=-abchux
> X
> X# Lint libraries.
> XLL=/usr/local/free/howard/0/llib-howard.ln
> X
> X
> X# Directories:
> X
> X# Install Bourne shell files here.
> XBID=../bin
> X
> X# Install C executables here.
> XCID=../bin
> X
> X# Install compiled elisp here.
> XELID=../el
> X
> X# Install man entries here.
> XMID=../man
> X
> X
> X# Sources. Comment out all that don't apply.
> X
> X# Bourne shell files.
> XBS := $(filter %.b,$(SRCS))
> X
> X# BibTeX bibliography file.
> XBIBS := $(filter %.bib,$(SRCS))
> X
> X# C programs.
> XCS := $(filter %.c,$(SRCS))
> X
> X# Elisp source.
> XELS := $(filter %.el,$(SRCS))
> X
> X# C include files.
> XHS := $(filter %.h,$(SRCS))
> X
> X# LaTeX source.
> XLATEXS := $(filter %.tex,$(SRCS))
> X
> X# Manuals.
> XM1S := $(filter %.1,$(SRCS))# Section 1.
> XM5S := $(filter %.5,$(SRCS))# Section 5.
> XM8S := $(filter %.8,$(SRCS))# Section 8.
> Xms := $(M1S) $(M5S) $(M8S)# All sections.
> X
> X# All ordinary source files. Removed by make clobber.
> Xsrc := $(BS) $(BIBS) $(CS) $(ELS) $(HS) $(LATEXS) $(ms)
> X
> X# Absolutely all source files.
> Xallsrc := README FREEZE MakeCommon Makefile uMakefile $(src)
> X
> X
> X# Targets and installs:
> X
> X# Bourne shell files.
> Xifdef BS
> Xbt := $(subst .b,,$(BS))
> Xbi := $(patsubst %,$(BID)/%,$(bt))
> Xendif
> X
> X# C programs.
> Xifdef CS
> Xct := $(subst .c,,$(CS))
> Xci := $(patsubst %,$(CID)/%,$(ct))
> Xlt := $(patsubst %.c,%-l,$(CS))# Phony lint targets for C programs.
> Xst := $(subst .c,.s,$(CS))# Assembler targets for C programs.
> Xendif
> X
> X# Compiled elisp.
> Xifdef ELS
> Xelt := $(subst .el,.elc,$(ELS))
> Xeli := $(patsubst %,$(ELID)/%,$(elt))
> Xendif
> X
> X# LaTeX.
> Xifdef FMTLATEX
> Xlatext := $(subst .tex,.texf,$(LATEXS))
> Xspellt := $(patsubst %.tex,%-s,$(LATEXS))#Phony targets for spelling checking.
> Xendif
> X
> X# Manual entries.
> Xifdef M1S
> Xcat1i := $(patsubst %,$(MID)/cat1/%,$(M1S))
> Xm1i := $(patsubst %,$(MID)/man1/%,$(M1S))
> Xendif
> Xifdef M5S
> Xcat5i := $(patsubst %,$(MID)/cat5/%,$(M5S))
> Xm5i := $(patsubst %,$(MID)/man5/%,$(M5S))
> Xendif
> Xifdef M8S
> Xcat8i := $(patsubst %,$(MID)/cat8/%,$(M8S))
> Xm8i := $(patsubst %,$(MID)/man8/%,$(M8S))
> Xendif
> Xcati := $(cat1i) $(cat5i) $(cat8i)
> Xmi := $(m1i) $(m5i) $(m8i)
> X
> Xifdef FMTMAN
> Xft := $(patsubst %,%.f,$(ms))#Formatted manual entries, e.g. PostScript.
> Xendif
> X
> Xtargets := $(bt) $(ct) $(elt) $(ft) $(latext)
> X
> X# Distribution:
> Xdist := $(patsubst %,$(DD)/%,$(allsrc) $(ft) $(latext))
> X
> X# Don't use built-in rules.
> X.SUFFIXES:
> X.PHONY: clean clobber default dist install shar vars $(lt) $(spellt)
> X
> Xdefault: $(targets)
> X
> X# Display values of various variables. Mostly for debugging.
> Xvars:
> X @$(ECHO) 'SRCS:' $(SRCS)
> Xifdef BS
> X @$(ECHO) 'BS:' $(BS)
> X @$(ECHO) 'bt:' $(bt)
> X @$(ECHO) 'bi:' $(bi)
> Xendif
> Xifdef CS
> X @$(ECHO) 'CS:' $(CS)
> X @$(ECHO) 'ct:' $(ct)
> X @$(ECHO) 'ci:' $(ci)
> X @$(ECHO) 'lt:' $(lt)
> X @$(ECHO) 'st:' $(st)
> X @$(ECHO) 'CC:' $(CC)
> X @$(ECHO) 'CFLAGS:' $(CFLAGS)
> X @$(ECHO) 'DEFS:' $(DEFS)
> X @$(ECHO) 'LIBPATH:' $(LIBPATH)
> X @$(ECHO) 'LIBES:' $(LIBES)
> Xendif
> Xifdef ELS
> X @$(ECHO) 'ELS:' $(ELS)
> X @$(ECHO) 'elt:' $(elt)
> X @$(ECHO) 'eli:' $(eli)
> Xendif
> Xifdef HS
> X @$(ECHO) 'HS:' $(HS)
> Xendif
> Xifdef FMTLATEX
> X @$(ECHO) 'LATEXS:' $(LATEXS)
> X @$(ECHO) 'BIBS:' $(BIBS)
> X @$(ECHO) 'latext:' $(latext)
> X @$(ECHO) 'spellt:' $(spellt)
> Xendif
> Xifdef M1S
> X @$(ECHO) 'M1S:' $(M1S)
> X @$(ECHO) 'cat1i:' $(cat1i)
> X @$(ECHO) 'm1i:' $(m1i)
> Xendif
> Xifdef M5S
> X @$(ECHO) 'M5S:' $(M5S)
> X @$(ECHO) 'cat5i:' $(cat5i)
> X @$(ECHO) 'm5i:' $(m5i)
> Xendif
> Xifdef M8S
> X @$(ECHO) 'M8S:' $(M8S)
> X @$(ECHO) 'cat8i:' $(cat8i)
> X @$(ECHO) 'm8i:' $(m8i)
> Xendif
> X @$(ECHO) 'mi:' $(mi)
> Xifdef FMTMAN
> X @$(ECHO) 'ft:' $(ft)
> Xendif
> X @$(ECHO) 'allsrc:' $(allsrc)
> X @$(ECHO) 'dist:' $(dist)
> X
> Xclean:
> X -$(RM) depend $(st)
> X
> Xclobber: clean
> X -$(RM) $(src) $(targets) FREEZE FREEZE.*
> X
> Xifdef BS
> X$(bt): %: %.b
> X $(RM) $@
> X $(ECHO) ' $(BDEFS)' > $@
> X $(CAT) $< >> $@
> X $(CHMOD) +x $@
> Xendif
> X
> Xifdef CS
> X$(ct): %: %.c
> X $(CC) -o $@ $(CFLAGS) $(DEFS) $(INCLUDES) $(LIBPATH) $*.c $(LIBES)
> X
> X$(lt): %-l: %.c $(LL)
> X $(LINT) $(LINTFLAGS) $(DEFS) $(INCLUDES) $< $(LL)
> Xendif
> X
> Xifdef ELS
> X$(elt): %.elc: %.el
> X $(ELCMP) $<
> Xendif
> X
> Xifdef FMTMAN
> X$(ft): %.f: %
> X $(RM) $@
> X $(FMTMAN) $< > $@
> Xendif
> X
> Xifdef FMTLATEX
> X$(latext): %.texf: %.tex $(BIBS)
> X $(FMTLATEX) $* $@
> X
> X$(spellt): %-s: %.tex
> X $(SPELL_LATEX) $<
> Xendif
> X
> Xshar: $(allsrc)
> X $(SHAR) $(allsrc)
> X
> Xifdef CS
> X$(st): %.s: %.c
> X $(CC) -S $(DEFS) $(INCLUDES) $<
> Xendif
> X
> Xifdef WORK
> X
> Xdist: $(dist)
> X
> X$(dist): $(DD)/%: %
> X $(DISTO) $< $(DD)
> X
> X.DEFAULT:
> X $(UNCMPRS) $@
> X
> Xelse # WORK
> X
> Xinstall: $(bi) $(ci) $(cati) $(eli) $(mi)
> X
> Xifdef BS
> X$(bi): $(BID)/%: %
> X $(INSTF) $< $(BID)
> Xendif
> X
> Xifdef CS
> X$(ci): $(CID)/%: %
> X $(INSTX) $< $(CID)
> Xendif
> X
> Xifdef ELS
> X$(eli): $(ELID)/%: %
> X $(INSTF) $< $(ELID)
> Xendif
> X
> Xifdef M1S
> X$(m1i): $(MID)/man1/%: %
> X $(INSTF) $< $(MID)/man1
> X
> Xifdef CATMAN
> X$(cat1i): $(m1i)
> X $(CATMAN) -M $(MID) 1
> Xendif
> Xendif
> X
> Xifdef M5S
> X$(m5i): $(MID)/man5/%: %
> X $(INSTF) $< $(MID)/man5
> X
> Xifdef CATMAN
> X$(cat5i): $(m5i)
> X $(CATMAN) -M $(MID) 5
> Xendif
> Xendif
> X
> Xifdef M8S
> X$(m8i): $(MID)/man8/%: %
> X $(INSTF) $< $(MID)/man8
> X
> Xifdef CATMAN
> X$(cat8i): $(m8i)
> X $(CATMAN) -M $(MID) 8
> Xendif
> Xendif
> X
> X$(allsrc): %: $(DD)/%
> X $(DISTI) $@ $(DD)
> X
> X.DEFAULT:
> X $(DISTI) $@ $(DD)
> X
> Xendif # WORK
> X
> Xifdef CS
> Xinclude depend
> Xendif
> END_OF_FILE
> if test 6396 -ne `wc -c <'Makefile'`; then
> echo shar: \"'Makefile'\" unpacked with wrong size!
> fi
> # end of 'Makefile'
> fi
> if test -f 'callback.c' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'callback.c'\"
> else
> echo shar: Extracting \"'callback.c'\" \(3822 characters\)
> sed "s/^X//" >'callback.c' <<'END_OF_FILE'
> X/*
> X * callback - forked from init process for dialup lines
> X */
> X
> X#ifndef lint
> Xstatic char _cpyrgt[] = "Copyright 1990 Howard Lee Gayle";
> X#endif lint
> X
> X/*
> X * This program is free software; you can redistribute it and/or modify
> X * it under the terms of the GNU General Public License version 1,
> X * as published by the Free Software Foundation.
> X *
> X * This program is distributed in the hope that it will be useful,
> X * but WITHOUT ANY WARRANTY; without even the implied warranty of
> X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> X * GNU General Public License for more details.
> X *
> X * You should have received a copy of the GNU General Public License
> X * along with this program; if not, write to the Free Software
> X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X */
> X
> X#include <stdio.h>
> X#include <howard/port.h>
> X#include <howard/version.h>
> X#include <howard/usage.h>
> X
> XMAINVER ("@(#)$Header: callback.c,v 1.11 89/12/28 10:34:24 howard Exp $");
> XUSAGE ("speed ttyd*");
> X
> X#include <fcntl.h>
> X#include "callback.h"
> X
> X/* close01 - close fd 0 & 1 & report errors */
> X
> XPRIVATE void close01()
> X
> X/* Function:
> X * Close standard input and standard output. Call malf1() on error.
> X * Algorithm:
> X *
> X * Notes:
> X *
> X */
> X{
> Xif (close (0)) malf1 ("Can not close 0");
> Xif (close (1)) malf1 ("Can not close 1");
> X}
> X
> X/* main - main function */
> X
> XPUBLIC int main (argc, argv)
> X int argc; /* Number of arguments.*/
> XR1 bStrT *argv; /* Points to array of argument strings.*/
> X
> X/* Function:
> X * Exec either the special getty or login.
> X * Algorithm:
> X * Set real & effective group IDs to 0. Close standard input,
> X * output, and error. Get suffix of ttyd* argument and call
> X * initTty() to append it to the tty-dependent file names.
> X * Open log file and make standard error go to it. Write
> X * initial log file message. Try to open state file. If there
> X * is no state file, exec the special getty. But if there is
> X * a state file, read it in and remove it. Open standard input
> X * and output as the tty. Set the tty to the
> X * correct modes for login. Make standard error correspond to
> X * the tty. Exec login.
> X * Notes:
> X *
> X */
> X
> X{
> XR2 streamT sis; /* State file input stream.*/
> X stateT st; /* State file contents.*/
> X struct termios ts; /* TTY status.*/
> X
> Xif (-1 == setregid (0, 0)) exit (3);
> X(void) close (0);
> X(void) close (1);
> X(void) close (2);
> Xif (argc < 3) exit (7);
> XinitTty (S("ttyd"), argv[2]);
> Xif (0 != open (lfn, O_APPEND | O_CREAT, 0640)) exit (4);
> Xif (1 != dup (0)) exit (5);
> Xif (2 != dup (0)) exit (6);
> XinitLog ("callback");
> Xsis = fopen (statefn, "r");
> Xif (NULSTRM == sis)
> X {
> X FPRINTF (ls, "No %s\n", statefn);
> X FFLUSH (ls);
> X close01();
> X if (fclose (stderr))
> X {
> X FPRINTF (ls, "Can not close stderr\n");
> X exit (1);
> X }
> X logArgs ((bStrT) getty, argv);
> X execv (getty, argv);
> X FPRINTF (ls, "%s: can not exec\n", getty);
> X exit (1);
> X }
> Xif ((1 != fread ((cStrT) &st, sizeof (stateT), 1, sis)) || ferror (sis))
> X malf1 ("%s: Read error", statefn);
> Xmfclose (sis, statefn);
> Xif (unlink (statefn)) malf1 ("%s: Can not unlink", statefn);
> XFPRINTF (ls, "Rm %s\n", statefn);
> XFFLUSH (ls);
> Xclose01();
> Xif (0 != open (tn, O_RDWR)) malf1 ("%s: Can not open read/write", tn);
> Xif (1 != dup (0)) malf1 ("Can not dup 1");
> Xgts (&ts);
> Xts.c_iflag = (IGNPAR | IMAXBEL);
> Xts.c_cflag = st.stCflag;
> Xts.c_lflag |= (ECHO | ECHOE | ECHOK | TOSTOP | ECHOCTL | ECHOKE);
> Xsts (&ts);
> Xif (fclose (stderr))
> X {
> X FPRINTF (ls, "Can not close stderr\n");
> X exit (1);
> X }
> Xif (2 != dup (0))
> X {
> X FPRINTF (ls, "Can not dup 2\n");
> X exit (1);
> X }
> XFPRINTF (ls, "%s -p %s\n", login, st.stName);
> XFFLUSH (ls);
> Xexecl (login, "login", "-p", st.stName, NULCSTR);
> XFPRINTF (ls, "%s: can not exec\n", login);
> Xexit (1);
> X#ifdef lint
> Xreturn (SUCCESS);
> X#endif
> X}
> END_OF_FILE
> if test 3822 -ne `wc -c <'callback.c'`; then
> echo shar: \"'callback.c'\" unpacked with wrong size!
> fi
> # end of 'callback.c'
> fi
> if test -f 'callback.h' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'callback.h'\"
> else
> echo shar: Extracting \"'callback.h'\" \(6921 characters\)
> sed "s/^X//" >'callback.h' <<'END_OF_FILE'
> X/*
> X * callback.h - Common include file for callback system.
> X *
> X * Copyright 1990 Howard Lee Gayle
> X *
> X * $Header: callback.h,v 1.6 89/12/28 16:43:44 howard Exp $
> X *
> X * This program is free software; you can redistribute it and/or modify
> X * it under the terms of the GNU General Public License version 1,
> X * as published by the Free Software Foundation.
> X *
> X * This program is distributed in the hope that it will be useful,
> X * but WITHOUT ANY WARRANTY; without even the implied warranty of
> X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> X * GNU General Public License for more details.
> X *
> X * You should have received a copy of the GNU General Public License
> X * along with this program; if not, write to the Free Software
> X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X *
> X * Prerequisites: howard/port.h.
> X */
> X
> X#include <errno.h>
> X#include <string.h>
> X#include <time.h>
> X#include <sys/termios.h>
> X#include <howard/malf.h>
> X#include <howard/registers.i>
> X
> X#define ABORTSEC 120 /* Abort connection attempt after this many seconds.*/
> X#define DROPSEC 10 /* Time to leave line hung up (seconds).*/
> X
> Xtypedef struct /* One entry in the modem reply code table mrctab[].*/
> X {
> X bStrT mrcStr; /* Prefix of string from modem.*/
> X boolT mrcRetry; /* True iff retry on this string.*/
> X } mrcT;
> X
> Xtypedef struct /* Contents of a state file. */
> X {
> X ulongT stCflag; /* c_cflag as set by getty(8).*/
> X char stName[9]; /* Login name.*/
> X } stateT;
> X
> X/* Full path names of tty-specific files. A suffix is added by initTty().*/
> XPRIVATE char ctlfn [MFILE] = "/etc/local/callback/control/ttyd"; /* Control.*/
> XPRIVATE char lfn [MFILE] = "/etc/local/callback/log/ttyd"; /* Log.*/
> XPRIVATE char statefn[MFILE] = "/etc/local/callback/state/ttyd"; /* State.*/
> XPRIVATE char cun [MFILE] = "/dev/cua"; /* Dial-out device.*/
> XPRIVATE char tn [MFILE] = "/dev/ttyd"; /* TTY name.*/
> X
> X/* Executable of getty that execs callback0 instead of login: */
> XPRIVATE char getty[] = "/usr/local/free/callback/0/bin/getty-cb";
> X
> XPRIVATE char login[] = "/bin/login"; /* Login executable.*/
> XPRIVATE streamT ls; /* Log file stream.*/
> X
> XPRIVATE mrcT mrctab[] = /* Modem reply code table.*/
> X {
> X S("BUSY"), TRUE,
> X S("CONNECT"), FALSE,
> X S("NO ANSWER"), TRUE,
> X S("NO CARRIER"), TRUE,
> X S("NO DIALTONE"), TRUE,
> X NULBSTR, FALSE,
> X };
> X
> X/* User messages: */
> XPRIVATE char umBye[] = "BYE bye\n"; /* Correct symbolic phone #.*/
> XPRIVATE char umNo [] = "NO no\n"; /* Unknown symbolic phone #.*/
> X
> XPRIVATE cStrT speeds[] = /* Line speed as string.*/
> X {
> X "0",
> X "50",
> X "75",
> X "110",
> X "134.5",
> X "150",
> X "200",
> X "300",
> X "600",
> X "1200",
> X "1800",
> X "2400",
> X "4800",
> X "9600",
> X "19200",
> X "38400"
> X };
> X
> Xextern long time(); /* (3C).*/
> X
> XPRIVATE void gts();
> XPRIVATE void initLog();
> XPRIVATE void initTty();
> XPRIVATE void logArgs();
> XPRIVATE void logMMSS();
> XPRIVATE void sts();
> X
> X/* gts - get tty status */
> X
> XPRIVATE void gts (tp)
> XR1 struct termios *tp; /* Points to place to store result.*/
> X
> X/* Function:
> X * Call the TCGETS ioctl. Log the results and return them.
> X * Algorithm:
> X *
> X * Notes:
> X *
> X */
> X{
> Xint i; /* Process group.*/
> Xint mcl; /* Modem control lines.*/
> X
> XlogMMSS();
> Xif (-1 == ioctl (0, TCGETS, tp)) malf1 ("TCGETS failed");
> Xif (-1 == ioctl (0, TIOCMGET, &mcl)) malf1 ("TIOCMGET failed");
> Xif (-1 == ioctl (0, TIOCGPGRP, &i)) malf1 ("TIOCGPGRP failed");
> XFPRINTF (ls, "i: %5lo o: %6lo c: %7lo l: %6lo line: %d m: %3o pgrp: %5d\n",
> X tp->c_iflag, tp->c_oflag, tp->c_cflag, tp->c_lflag, tp->c_line,
> X mcl, i);
> XFFLUSH (ls);
> X}
> X
> X/* initLog - start logging */
> X
> XPRIVATE void initLog (cn)
> XbStrT cn; /* Command name.*/
> X
> X/* Function:
> X * Open log file. Write initial message. Make standard error
> X * go to log file.
> X * Algorithm:
> X * Open the log file for appending to the end, and exit on error.
> X * Print an initial message. Flush. Close file descriptor 2,
> X * then dup the log file's descriptor to be file descriptor 2.
> X * Test malf0(). Set the close-on-exec bit.
> X * Notes:
> X * 1) Once stderr corresponds to the log file, malf can be used.
> X * 2) The close-on-exec bit is set on the file descriptor from
> X * the original open on the log file, but not on file descriptor 2.
> X */
> X{
> X long ut; /* Current system time.*/
> XR1 struct tm *tmp; /* Returned by localtime().*/
> X
> Xls = fopen (lfn, "a+");
> Xif (NULSTRM == ls) exit (2);
> Xut = time ((long *) NULL);
> Xtmp = localtime (&ut);
> XFPRINTF (ls,
> X "\n\f\n%d-%02d-%02d %02d:%02d:%02d %s pid: %d pgrp: %d\n",
> X 1900 + tmp->tm_year, 1 + tmp->tm_mon, tmp->tm_mday,
> X tmp->tm_hour, tmp->tm_min, tmp->tm_sec,
> X cn, getpid(), getpgrp (0));
> XFFLUSH (ls);
> Xif (close (2))
> X {
> X FPRINTF (ls, "Can not close 2");
> X exit (1);
> X }
> Xif (2 != dup (fileno (ls)))
> X {
> X FPRINTF (ls, "Can not dup %d", fileno (ls));
> X exit (1);
> X }
> Xerrno = 0;
> Xmalf0 ("stderr OK");
> Xif (-1 == fcntl (fileno (ls), F_SETFD, 1)) malf1 ("Can not SETFD");
> X}
> X
> X/* initTty - initialize tty-dependent file names */
> X
> XPRIVATE void initTty (pfx, ftn)
> XbStrT pfx; /* Expected prefix of tty name.*/
> XbStrT ftn; /* Full tty name.*/
> X
> X/* Function:
> X * Append argument to the tty-dependent file names.
> X * Algorithm:
> X *
> X * Notes:
> X * 1) There is no checking for overflow.
> X */
> X{
> XR1 bStrT s = prefix (pfx, ftn); /* Suffix of tty name.*/
> X
> Xif ((NULBSTR == s) || (EOS == B(*s))) exit (8);
> XSTRCAT (ctlfn, (cStrT) s);
> XSTRCAT (cun, (cStrT) s);
> XSTRCAT (lfn, (cStrT) s);
> XSTRCAT (statefn, (cStrT) s);
> XSTRCAT (tn, (cStrT) s);
> X}
> X
> X/* logArgs - write vector of command arguments to log file */
> X
> XPRIVATE void logArgs (cn, v)
> XbStrT cn; /* Command name.*/
> XbStrT *v; /* Argument vector.*/
> X
> X/* Function:
> X * Write command name followed by arguments to log file.
> X * Algorithm:
> X *
> X * Notes:
> X *
> X */
> X{
> XFPUTS (cn, ls);
> Xfor (; NULBSTR != *v; ++v)
> X {
> X PUTC (' ', ls);
> X FPUTS (*v, ls);
> X }
> XPUTC ('\n', ls);
> XFFLUSH (ls);
> X}
> X
> X/* logMMSS - log minutes & seconds */
> X
> XPRIVATE void logMMSS()
> X
> X/* Function:
> X * Write current minutes and seconds to log file.
> X * Algorithm:
> X *
> X * Notes:
> X * 1) This function is typically called to start each line written
> X * to the log file. The initial log message gives the complete
> X * date and time, so it's only necessary to log minutes & seconds.
> X */
> X{
> X long ut; /* Current system time.*/
> XR1 struct tm *tmp; /* Returned by localtime().*/
> X
> Xut = time ((long *) NULL);
> Xtmp = localtime (&ut);
> XFPRINTF (ls, "%02d%02d ", tmp->tm_min, tmp->tm_sec);
> X}
> X
> X/* sts - set tty status */
> X
> XPRIVATE void sts (tp)
> Xstruct termios *tp;
> X
> X/* Function:
> X * Call TCSETS ioctl. Flush. Call gts().
> X * Algorithm:
> X *
> X * Notes:
> X * 1) Calling gts() at the end verifies and logs what was set.
> X */
> X{
> Xif (-1 == ioctl (0, TCSETS, tp)) malf1 ("TCSETS failed");
> Xif (-1 == ioctl (0, TCFLSH, 2)) malf1 ("TCFLSH failed");
> Xgts (tp);
> X}
> END_OF_FILE
> if test 6921 -ne `wc -c <'callback.h'`; then
> echo shar: \"'callback.h'\" unpacked with wrong size!
> fi
> # end of 'callback.h'
> fi
> if test -f 'callback0.c' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'callback0.c'\"
> else
> echo shar: Extracting \"'callback0.c'\" \(8757 characters\)
> sed "s/^X//" >'callback0.c' <<'END_OF_FILE'
> X/*
> X * callback0 - get symbolic phone # from user & dial modem
> X */
> X
> X#ifndef lint
> Xstatic char _cpyrgt[] = "Copyright 1990 Howard Lee Gayle";
> X#endif lint
> X
> X/*
> X * This program is free software; you can redistribute it and/or modify
> X * it under the terms of the GNU General Public License version 1,
> X * as published by the Free Software Foundation.
> X *
> X * This program is distributed in the hope that it will be useful,
> X * but WITHOUT ANY WARRANTY; without even the implied warranty of
> X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> X * GNU General Public License for more details.
> X *
> X * You should have received a copy of the GNU General Public License
> X * along with this program; if not, write to the Free Software
> X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X */
> X
> X#include <stdio.h>
> X#include <howard/port.h>
> X#include <howard/version.h>
> X#include <howard/usage.h>
> X
> XMAINVER ("@(#)$Header: callback0.c,v 1.6 89/12/28 10:34:27 howard Exp $");
> XUSAGE ("flag name");
> X
> X#include <fcntl.h>
> X#include <signal.h>
> X#include "callback.h"
> X
> X#define MLINE 80 /* Max input line length.*/
> X#define MCTLL 1024 /* Max control file line.*/
> X
> XPRIVATE byteT lb[MLINE]; /* Input line.*/
> XPRIVATE boolT talking; /* Talking to user.*/
> X
> XPRIVATE void ws();
> X
> X/* getmcs - look up modem control line */
> X
> XPRIVATE void getmcs (ks, mcs)
> XR4 cStrT ks; /* Key string. Must end in space.*/
> XR5 cStrT mcs; /* Store modem control string here.*/
> X
> X/* Function:
> X * Search the control file for a line starting with the given key.
> X * Algorithm:
> X * Linear search. Call getlic() to read each line and strip comments.
> X * Returns:
> X * On success, mcs points to the string to send to the modem to dial
> X * the number. On error, mcs points to the empty string.
> X * Notes:
> X * 1) There is no overflow checking when copying into mcs.
> X */
> X{
> XR2 streamT cs; /* Modem control file stream.*/
> X unsigned ln = 0; /* Input line number.*/
> XR3 boolT m; /* Loop control.*/
> XR1 bStrT p; /* Returned by prefix (3 -lhoward).*/
> X byteT ib[MCTLL]; /* Input line buffer.*/
> Xextern bStrT getlic() ; /* (3 -lhoward).*/
> X
> Xcs = mfopen (ctlfn, "r");
> Xfor (m = TRUE; m;)
> X {
> X if (NULBSTR == getlic (ib, MCTLL, cs, ctlfn, &ln, 1, ';'))
> X {
> X mcs[0] = EOS;
> X m = FALSE;
> X }
> X else if (NULBSTR != (p = prefix (ks, ib)))
> X {
> X while ((EOS != *p) && (' ' == *p))
> X ++p;
> X if (EOS == *p) malf1 ("%s: %u: No control string", ctlfn, ln);
> X STRCPY (mcs, p);
> X STRCAT (mcs, "\n");
> X m = FALSE;
> X }
> X }
> Xmfclose (cs, ctlfn);
> X}
> X
> X/* rs - read string from fd 0 */
> X
> XPRIVATE void rs()
> X
> X/* Function:
> X * Read a line from standard input and log it.
> X * Algorithm:
> X * Call read(). On error call malf1(). If characters are read,
> X * NUL-terminate the result. Treat EOF as an empty string.
> X * Write the result on the log file.
> X * Returns:
> X * The result is stored in lb[].
> X * Notes:
> X *
> X */
> X{
> XR1 int i; /* Number of bytes read.*/
> X
> Xi = read (0, lb, MLINE);
> Xif (-1 == i) malf1 ("Read error on fd 0");
> Xif (i > 0)
> X lb[i - 1] = EOS;
> Xelse if (0 == i)
> X lb[0] = EOS;
> XlogMMSS();
> XFPUTS (lb, ls);
> XPUTC ('\n', ls);
> XFFLUSH (ls);
> X}
> X
> X/* sigalrm - print message if signal arrives */
> X
> XPRIVATE void sigalrm ()
> X
> X/* Function:
> X * This function is called on timeout. Write a message to the user and
> X * the log file, then exit.
> X * Algorithm:
> X *
> X * Notes:
> X * 1) The sleep() is to give the output tty time to flush before closing.
> X */
> X{
> XlogMMSS();
> XFPUTS ("timeout\n", ls);
> XFFLUSH (ls);
> Xif (talking) ws ("TIMEOUT timeout\n");
> Xsleep (1);
> Xexit (3);
> X}
> X
> X/* ws - write a string on fd 1 */
> X
> XPRIVATE void ws (s)
> XR1 cStrT s; /* String to write.*/
> X
> X/* Function:
> X * Write string s on standard output and to the log file.
> X * Algorithm:
> X *
> X * Notes:
> X * 1) If s does not end in a newline, an extra newline is written
> X * to the logfile.
> X */
> X{
> XR2 int i; /* Length of string.*/
> X
> Xi = strlen (s);
> Xif (i != write (1, s, i)) malf1 ("Write error on fd 1");
> XPUTC ('>', ls);
> XFPUTS (s, ls);
> Xif ('\n' != s[i - 1]) PUTC ('\n', ls);
> XFFLUSH (ls);
> X}
> X
> X/* main - main function */
> X
> XPUBLIC int main (argc, argv)
> X int argc; /* Number of arguments.*/
> XR6 bStrT *argv; /* Points to array of argument strings.*/
> X
> X/* Function:
> X * Do callback.
> X * Algorithm:
> X * Set real and effective group ID to 0. Initialize. Set tty
> X * for user interaction. Prompt user and get symbolic phone number.
> X * Look it up in modem control file. On failure, write error message,
> X * sleep a little to discourage brute force attacks, and repeat until
> X * success or timeout. On success, hang up the line. Sleep long
> X * enough to make sure the line is really hung up. Open the dial-out
> X * (cua) device. Write the string from the control file, read
> X * the responses, and throw them away until one matches a prefix
> X * in the modem reply code table. Retry if the table says to,
> X * until timeout. On success, turn off the hang-up-on-close bit,
> X * create the state file, and exit.
> X * Notes:
> X * 1) This program is exec'ed by the speciall getty instead of login,
> X * so the tty is already set up correctly (speed, parity, case, etc.)
> X * 2) Turning off the HUPCL bit just before exiting means the line
> X * does not get dropped on exit. On exit, init starts up a new
> X * callback process, which, because the state file is present,
> X * execs a normal login.
> X */
> X
> X{
> XR2 boolT m; /* Loop control.*/
> XR1 mrcT *rp; /* Steps through mrctab[].*/
> XR4 streamT ss; /* State file stream.*/
> X ulongT sp; /* Line speed as code.*/
> XR5 cStrT sps; /* Line speed as string.*/
> XR3 unsigned tries = 0; /* Callback tries.*/
> X stateT st; /* Contents of state file.*/
> X struct termios ts; /* TTY status.*/
> X char prompt[12]; /* Prompt for user.*/
> X char mcs[MCTLL]; /* Modem control string.*/
> X char key[2 * MLINE]; /* Key in control file.*/
> Xextern cStrT ttyname(); /* (3).*/
> X
> Xif (-1 == setregid (0, 0)) exit (3);
> XinitTty ((bStrT) tn, (bStrT) ttyname (0));
> XinitLog (S("callback0"));
> XlogArgs (S("argv:"), argv);
> Xif ((argc < 3) || (strlen ((cStrT) argv[2]) > 8)) usage();
> Xgts (&ts);
> Xts.c_iflag |= (IGNPAR | IMAXBEL);
> Xts.c_lflag |= (ECHO | ECHOE | ECHOK | TOSTOP | ECHOCTL | ECHOKE);
> Xsts (&ts);
> Xsp = CBAUD & ts.c_cflag;
> Xif ((sp < B50) || (sp > B38400)) malf1 ("Bad line speed: %lu", sp);
> Xsps = speeds[sp];
> XFPRINTF (ls, "Speed %lu = %s\n", sp, sps);
> XFFLUSH (ls);
> XSPRINTF (prompt, "%s %s", sps, sps);
> Xif (-1 == (int) signal (SIGALRM, sigalrm)) malf1 ("Can not signal");
> Xtalking = TRUE;
> X(void) alarm (ABORTSEC);
> Xfor (m = TRUE; m;)
> X {
> X ws (prompt);
> X rs();
> X if (EOS != lb[0])
> X {
> X SPRINTF (key, "%s@%s ", lb, sps);
> X getmcs (key, mcs);
> X if (EOS != mcs[0])
> X m = FALSE;
> X else
> X {
> X sleep (1);
> X ws (umNo);
> X sleep (4);
> X }
> X }
> X }
> Xtalking = FALSE;
> Xws (umBye);
> X(void) alarm (ABORTSEC);
> Xst.stCflag = ts.c_cflag;
> XSTRCPY (st.stName, (cStrT) argv[2]);
> Xsleep (1);
> XFPUTS ("Closing 1\n", ls);
> XFFLUSH (ls);
> Xif (close (1)) malf1 ("Can not close 1");
> Xts.c_cflag &= ~(CBAUD | CIBAUD | HUPCL);
> XFPUTS ("TCSETS\n", ls);
> XFFLUSH (ls);
> Xif (-1 == ioctl (0, TCSETS, &ts)) malf1 ("TCSETS failed");
> XFPUTS ("TCFLSH\n", ls);
> XFFLUSH (ls);
> Xif (-1 == ioctl (0, TCFLSH, 2)) malf1 ("TCFLSH failed");
> XFPUTS ("Closing 0\n", ls);
> XFFLUSH (ls);
> Xif (close (0)) malf1 ("Can not close 0");
> XFPUTS ("sleep...", ls);
> XFFLUSH (ls);
> Xsleep (DROPSEC);
> XFPUTS ("ok\n", ls);
> XFFLUSH (ls);
> Xif (0 != open (cun, O_RDWR)) malf1 ("%s: Can not open read/write", cun);
> Xif (1 != dup (0)) malf1 ("Can not dup 1");
> Xgts (&ts);
> Xts.c_iflag |= (IGNPAR | IMAXBEL);
> Xts.c_cflag = st.stCflag;
> Xts.c_lflag &= ~ECHO;
> Xsts (&ts);
> Xfor (m = TRUE; m;)
> X {
> X ++tries;
> X ws (mcs);
> X do
> X {
> X rs();
> X rp = mrctab;
> X while ((NULBSTR != rp->mrcStr) && (NULBSTR == prefix (rp->mrcStr, lb)))
> X ++rp;
> X }
> X while (NULBSTR == rp->mrcStr);
> X m = rp->mrcRetry;
> X }
> X(void) alarm (0);
> Xts.c_cflag = st.stCflag & (~HUPCL);
> Xts.c_lflag |= ECHO;
> Xsts (&ts);
> Xss = mfopen (statefn, "w");
> Xif ((1 != fwrite ((cStrT) &st, sizeof (stateT), 1, ss)) || ferror (ss))
> X malf1 ("%s: Write error", statefn);
> Xmfclose (ss, statefn);
> XSPRINTF (prompt, "%s %u %s\n", sps, tries, sps);
> Xws (prompt);
> XFPUTS ("Closing stdin\n", ls);
> XFFLUSH (ls);
> Xif (close (0)) malf1 ("Can not close 0");
> XFPUTS ("Closing stdout\n", ls);
> XFFLUSH (ls);
> Xif (close (1)) malf1 ("Can not close 1");
> XFPUTS ("Exit\n", ls);
> XFFLUSH (ls);
> Xexit (0);
> X#ifdef lint
> Xreturn (SUCCESS);
> X#endif
> X}
> END_OF_FILE
> if test 8757 -ne `wc -c <'callback0.c'`; then
> echo shar: \"'callback0.c'\" unpacked with wrong size!
> fi
> # end of 'callback0.c'
> fi
> echo shar: End of archive 1 \(of 2\).
> cp /dev/null ark1isdone
> MISSING=""
> for I in 1 2 ; do
> if test ! -f ark${I}isdone ; then
> MISSING="${MISSING} ${I}"
> fi
> done
> if test "${MISSING}" = "" ; then
> echo You have unpacked both archives.
> rm -f ark[1-9]isdone
> else
> echo You still need to unpack the following archives:
> echo " " ${MISSING}
> fi
> ## End of shell archive.
> exit 0
>
> ----------
> X-Sun-Data-Type: default
> X-Sun-Data-Name: ModemCall-back02.scr
> X-Sun-Content-Lines: 374
>
> Newsgroups: comp.sources.misc
> subject: v10i002: modem callback program, part 2 of 2
> from: howard@hasse.ericsson.se (Howard Gayle)
> Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
>
> Posting-number: Volume 10, Issue 2
> Submitted-by: howard@hasse.ericsson.se (Howard Gayle)
> Archive-name: callback_hg/part02
>
> #! /bin/sh
> # This is a shell archive. Remove anything before this line, then feed it
> # into a shell via "sh file" or similar. To overwrite existing files,
> # type "sh file -c".
> # The tool that generated this appeared in the comp.sources.unix newsgroup;
> # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
> # If this archive is complete, you will see the following message at the end:
> # "End of archive 2 (of 2)."
> # Contents: FREEZE MakeCommon callback.1 uMakefile
> # Wrapped by howard@hasse on Fri Dec 29 10:22:52 1989
> PATH=/bin:/usr/bin:/usr/ucb ; export PATH
> if test -f 'FREEZE' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'FREEZE'\"
> else
> echo shar: Extracting \"'FREEZE'\" \(578 characters\)
> sed "s/^X//" >'FREEZE' <<'END_OF_FILE'
> X$Header: FREEZE,v 2.1 89/12/29 10:22:15 howard Exp $
> X$Log: FREEZE,v $
> X# Revision 2.1 89/12/29 10:22:15 howard
> X# *** empty log message ***
> X#
> X# Revision 1.1 89/12/26 09:50:08 howard
> X# Initial revision
> X#
> X========================================
> XMakeCommon 1.1 1989-12-26 09:27:08
> XMakefile 1.2 1989-12-28 10:37:29
> XREADME 1.2 1989-12-29 10:17:06
> Xcallback.1 1.5 1989-12-29 10:16:57
> Xcallback.c 1.11 1989-12-28 10:34:24
> Xcallback.h 1.6 1989-12-28 16:43:44
> Xcallback0.c 1.6 1989-12-28 10:34:27
> XuMakefile 1.2 1989-12-28 10:50:49
> END_OF_FILE
> if test 578 -ne `wc -c <'FREEZE'`; then
> echo shar: \"'FREEZE'\" unpacked with wrong size!
> fi
> # end of 'FREEZE'
> fi
> if test -f 'MakeCommon' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'MakeCommon'\"
> else
> echo shar: Extracting \"'MakeCommon'\" \(1155 characters\)
> sed "s/^X//" >'MakeCommon' <<'END_OF_FILE'
> X# MakeCommon - common definitions for uMakefile and Makefile for ~
> X#
> X# $Header: MakeCommon,v 1.1 89/12/26 09:27:08 howard Exp $
> X#
> X# Copyright 1990 Howard Lee Gayle
> X# This file is written in the ISO 8859/1 character set.
> X#
> X# This program is free software; you can redistribute it and/or modify
> X# it under the terms of the GNU General Public License version 1,
> X# as published by the Free Software Foundation.
> X#
> X# This program is distributed in the hope that it will be useful,
> X# but WITHOUT ANY WARRANTY; without even the implied warranty of
> X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> X# GNU General Public License for more details.
> X#
> X# You should have received a copy of the GNU General Public License
> X# along with this program; if not, write to the Free Software
> X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X#
> X
> X# Change mode of a file.
> XCHMOD=chmod
> X
> X# Get a file from the distribution directory.
> XDISTI=mkDistI
> X
> X# Remove a file.
> XRM=zap -f
> X
> X# Uncompress if necessary and check out from RCS or SCCS.
> XUNCMPRS=mkUncmprs
> X
> X# C include file search path.
> XINCLUDES=-I/usr/local/local-include -I/usr/local/free/howard/0/include
> END_OF_FILE
> if test 1155 -ne `wc -c <'MakeCommon'`; then
> echo shar: \"'MakeCommon'\" unpacked with wrong size!
> fi
> # end of 'MakeCommon'
> fi
> if test -f 'callback.1' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'callback.1'\"
> else
> echo shar: Extracting \"'callback.1'\" \(5316 characters\)
> sed "s/^X//" >'callback.1' <<'END_OF_FILE'
> X.\" $Header: callback.1,v 1.5 89/12/29 10:16:57 howard Exp $
> X.TH CALLBACK 1 "$Revision: 1.5 $"
> X.SH NAME
> Xcallback \- accept call, call back, then accept login
> X.SH SYNOPSIS
> X.B callback
> X[
> X.I type
> X[
> X.I tty
> X] ]
> X.SH COPYRIGHT
> XCopyright \(co 1990 Howard Lee Gayle
> X.SH DESCRIPTION
> X.I callback
> Xallows a user to dial up a host,
> Xhave the host place a call back to the user,
> Xand then initiate a login session.
> XIt runs after
> X.IR getty (8)
> Xand before
> X.IR login (1).
> XWhen the user first dials up,
> Xgetty presents the usual login: prompt.
> XThe user can cycle through various line speeds in the usual way.
> XNext,
> X.I callback
> Xprompts for a symbolic telephone number.
> XThe prompt is the line speed, given twice.
> XOn receiving a known symbolic telephone number,
> X.I callback
> Xwrites "BYE bye,"
> Xdisconnects the call, waits a specified time
> X(default 10 seconds),
> Xdials the real telephone number corresponding to the given
> Xsymbolic number,
> Xand then waits for connection.
> XIf a modem answers,
> X.I callback
> Xwrites the line speed, the number of times it tried to dial the
> Xtelephone number, and the line speed again.
> XIt then starts up login, which prompts for the password as usual.
> XIf a known symbolic telephone number is not supplied within a
> Xspecified time,
> Xor a connection with a modem is not established within a
> Xspecified time,
> X.I callback
> Xtimes out.
> XThe default timeout time is two minutes.
> X.PP
> X.I callback
> Xhas the same arguments as
> X.IR getty (8).
> X.SH EXAMPLE
> XThis example shows a session with a Hayes-compatible modem.
> XThe symbolic telephone number is "hovel."
> X.nf
> X atdt9999999
> X
> X CONNECT 2400
> X
> X hasse login: howard
> X 2400 2400hovel
> X BYE bye
> X
> X NO CARRIER
> X
> X RING
> X
> X CONNECT 2400
> X
> X 2400 1 2400
> X Password:
> X.fi
> X.SH FILES
> X.DT
> X.nf
> X/dev/ttyd* \- dialup ports
> X/dev/cua* \- dial-out ports
> X/etc/ttytab \- tells init to run callback on dialup lines
> X\&./bin/callback \- run by init
> X\&./bin/getty-cb \- special getty that execs /bin/.cb0 instead of login
> X/bin/.cb0 \- symbolic link to ./bin/callback0
> X\&./bin/callback0 \- run by getty-cb
> X/etc/local/callback/control/ttyd* \- symbolic-to-real phone numbers
> X/etc/local/callback/log/ttyd* \- log files
> X/etc/local/callback/state/ttyd* \- state files
> X.fi
> X.PP
> XIn control files, comments start with a semicolon (;) and
> Xcontinue to the end of the line.
> XOnce comments, blank lines, lines containing only comments, and
> Xleading and trailing white space have been stripped, each line
> Xof a control file should consist of one symbolic telephone
> Xnumber followed by an at sign (@) followed by a line speed
> Xfollowed by white space followed by a string to command the
> Xmodem to dial the desired real telephone number.
> XFor example:
> X.nf
> X ; Shared control file for all lines.
> X hovel@2400 atdt1234567 ; Howard's hovel.
> X hovel@1200 atdt1234567 ; Same at 1200 bit/sec.
> X.fi
> XWhen
> X.I callback
> Xsearches the control file, it appends an at sign and the line
> Xspeed to the symbolic telephone number given by the user.
> XThis makes it possible to send different modem commands for
> Xeach line speed.
> X.PP
> XEach tty can have its own control file,
> Xbut if the control files of several different ttys are
> Xidentical, they can be links.
> X.SH "SEE ALSO"
> X.IR login (1),
> X.IR ttytab (5),
> X.IR getty (8).
> X.SH DIAGNOSTICS
> X"NO no" indicates an unknown symbolic telephone number.
> XA time delay of a few seconds is taken to discourage brute-force attacks.
> X.SH BUGS
> XFor more security, it might be a good idea to turn off echo
> Xwhen reading the symbolic telephone number.
> XIt might also be a good idea to store symbolic telephone
> Xnumbers in encrypted form.
> X.PP
> XThere ought to be a secure way to add a new symbolic telephone
> Xnumber and its corresponding real telephone number without
> Xlogging in.
> XThis would be useful when travelling.
> XAn approach based on one-time encryption should solve the
> Xproblem.
> XThe user would first encrypt the real telephone number with a
> Xone-time pad corresponding to a special symbolic telephone
> Xnumber,
> X.I e.g.
> Xby treating the telephone number as a decimal number and adding
> Xanother number to it.
> XThis can be done by hand.
> XThe user then dials up and responds to the symbolic telephone
> Xnumber prompt with a special keyword.
> X.I callback
> Xthen prompts for the symbolic telephone number and the
> Xencrypted real telephone number (twice),
> Xdecrypts it, and stores it in the control file.
> X.PP
> X.I callback
> Xalways calls back on the line used for the incoming call.
> XIf multiple lines are available, it should be possible to place
> Xthe callback on a different line.
> XThis greatly reduces the opportunities for spoofing.
> X.SH LICENSE
> XThis program is free software; you can redistribute it and/or modify
> Xit under the terms of the GNU General Public License version 1,
> Xas published by the Free Software Foundation.
> X.PP
> XThis program is distributed in the hope that it will be useful,
> Xbut WITHOUT ANY WARRANTY; without even the implied warranty of
> XMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> XGNU General Public License for more details.
> X.PP
> XYou should have received a copy of the GNU General Public License
> Xalong with this program; if not, write to the Free Software
> XFoundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X.SH AUTHOR
> XHoward Gayle,
> XTN/ETX/TT/HL,
> XEricsson Telecom AB,
> XS-126 25 Stockholm,
> XSweden,
> Xhoward@ericsson.se,
> Xuunet!ericsson.se!howard,
> XPhone: +46 8 719 5565,
> XFAX: +46 8 719 9598,
> XTelex: 14910 ERIC S
> END_OF_FILE
> if test 5316 -ne `wc -c <'callback.1'`; then
> echo shar: \"'callback.1'\" unpacked with wrong size!
> fi
> # end of 'callback.1'
> fi
> if test -f 'uMakefile' -a "${1}" != "-c" ; then
> echo shar: Will not clobber existing file \"'uMakefile'\"
> else
> echo shar: Extracting \"'uMakefile'\" \(1448 characters\)
> sed "s/^X//" >'uMakefile' <<'END_OF_FILE'
> X# uMakefile - micro GNU makefile for callback
> X#
> X# $Header: uMakefile,v 1.2 89/12/28 10:50:49 howard Exp $
> X#
> X# Copyright 1990 Howard Lee Gayle
> X# This file is written in the ISO 8859/1 character set.
> X#
> X# This program is free software; you can redistribute it and/or modify
> X# it under the terms of the GNU General Public License version 1,
> X# as published by the Free Software Foundation.
> X#
> X# This program is distributed in the hope that it will be useful,
> X# but WITHOUT ANY WARRANTY; without even the implied warranty of
> X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> X# GNU General Public License for more details.
> X#
> X# You should have received a copy of the GNU General Public License
> X# along with this program; if not, write to the Free Software
> X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
> X#
> X
> Xinclude MakeCommon
> X
> X# Commands:
> X
> X# Make depend file that shows include files that C programs use.
> XDEPEND=mkCIncl
> X
> X# Make FREEZE.*.
> XMKFREEZE=mkFreeze
> X
> X# Sources:
> XCS := $(filter %.c,$(SRCS))
> XHS := $(filter %.h,$(SRCS))
> X
> X# Targets:
> Xit = FREEZE.i
> X
> Xtargets := $(it) Makefile depend
> X
> Xifdef WORK
> X.DEFAULT:
> X $(UNCMPRS) $@
> Xelse # WORK
> X.DEFAULT:
> X $(DISTI) $@ $(DD)
> Xendif # WORK
> X
> X.SUFFIXES:
> X.PHONY: default
> X
> Xdefault: $(targets)
> X
> Xifndef WORK
> XMakefile: $(DD)/Makefile
> X $(DISTI) $@ $(DD)
> Xendif # WORK
> X
> Xdepend: $(CS) $(HS) $(it)
> X $(DEPEND) "$(INCLUDES)" $(CS) > $@
> X
> XFREEZE.i: FREEZE
> X $(RM) FREEZE.*
> X $(MKFREEZE)
> X $(CHMOD) a=r FREEZE.*
> END_OF_FILE
> if test 1448 -ne `wc -c <'uMakefile'`; then
> echo shar: \"'uMakefile'\" unpacked with wrong size!
> fi
> # end of 'uMakefile'
> fi
> echo shar: End of archive 2 \(of 2\).
> cp /dev/null ark2isdone
> MISSING=""
> for I in 1 2 ; do
> if test ! -f ark${I}isdone ; then
> MISSING="${MISSING} ${I}"
> fi
> done
> if test "${MISSING}" = "" ; then
> echo You have unpacked both archives.
> rm -f ark[1-9]isdone
> else
> echo You still need to unpack the following archives:
> echo " " ${MISSING}
> fi
> ## End of shell archive.
> exit 0
I unpacked this shar file but parts of it were missing and it
wouldn't compile.
Roger "New bumper sticker: Visualize using your turn
signal" Spaulding
Network System Administrator
Ramtron International Corporation
1850 Ramtron Drive
Colorado Springs, CO 80921
ras@ramtron.com
This archive was generated by hypermail 2.1.2 : Fri Sep 28 2001 - 23:10:34 CDT