#!/bin/sh
# call a telephone number
# (C)2000 M. Andreoli for muLinux

case Z${1}Z in
ZZ)
	read -p "Enter tel number: " number
	;;
Z-hZ)
	echo "Usage: call [number] [-h]"
	exit
	;;
*)
	number=$1
	;;
esac

chat -t 1 < /dev/modem > /dev/modem '' ATZ OK ''

if [ $? -ne 0 ] ; then  
	echo "Modem is off, of course"
	read -p "Please, power-on the modem and press -ENTER- "
fi

chat -t 20 < /dev/modem > /dev/modem '' ATZ OK ATDT$number CONNECT

# End

