sources-request@panda.UUCP (02/12/86)
Mod.sources: Volume 3, Issue 123
Submitted by: "Oliver Laumann" <seismo!unido!tub!net>
I forgot to include the sample dial script in the dial distribution.
I'm sorry about that. Here it comes:
--
Oliver Laumann net@DB0TUI6.BITNET net@tub.UUCP
------------------cut here------------------------
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# example
# This archive created: Wed Feb 12 13:14:28 1986
export PATH; PATH=/bin:$PATH
echo shar: extracting "'example'" '(2386 characters)'
if test -f 'example'
then
echo shar: will not over-write existing file "'example'"
else
cat << \SHAR_EOF > 'example'
# Example for a dial script.
#
# Connect to a remote UNIX machine through a PABX and obtain certain
# information from a server account (`qomnews') on this machine.
# The line through which the PABX can be accessed is defined in
# /etc/remote under the name `pabx', thus...
line=pabx
# If the PABX receives ^A^B+, it responds with D+ indicating that
# it is ready to accept a phone number.
# Due to a bug in the PABX software, it sometimes responds with
# two beeps; In this case, there is nothing we can do exept quit
# and fix it by hand...
prolog \1\2+ 1
dial D+
exit \7\7 "Go buy a new PABX!\n"
exit # "No response from PABX.\n"
# Send the phone number of the remote UNIX machine. Sleep 0.1 seconds
# before actually transmitting the number (otherwise the PABX gets angry).
# If we receive a V followed by a three-digit number and a plus sign,
# the connection has been established successfully. Several responses
# of the form <letter>+ are used by the PABX to indicate that something
# went wrong; these reponses are translated into useful messages.
dial 618\r 5,.1
exit B+ "Port busy -- try later.\n"
exit N+ "Out of order.\n"
exit E+ "Invalid phone number.\n"
connected V...+
exit # "Connection failed.\n"
# Transmit a carriage return in order to get the login prompt.
connected \r 5,.1
login "login: "
exit # "Login failed.\n"
# Login at the remote machine using the login name `qomnews'.
login qomnews\r
enter "name? "
exit # "QOM news server down.\n"
# The qomnews server prompts for a user name. The name is obtained
# from the file .qomid from the caller's home directory.
# Note that a time-out of 15 seconds is scheduled in order to give
# the server a resonable time for the response.
# If all goes well, the server transmits a number of lines of the form
# You have <n> unseen letters
# You have <n> unseen entries in XYZ
# or simply
# You have seen all the news.
# If the first `You' has been received, enter the `data' loop below.
enter "${~/.qomid}" 15
data \r\n\r\nYou You
exit O+ "Early disconnect."
exit # "QOM news server is hung.\n"
# Print all data received from the remote machine on standard output
# until either a time-out of 5 seconds occurs or the disconnect message
# O+ is received.
data "" 5
exit O+
data * &
SHAR_EOF
if test 2386 -ne "`wc -c < 'example'`"
then
echo shar: error transmitting "'example'" '(should have been 2386 characters)'
fi
fi # end of overwriting check
# End of shell archive
exit 0