#/com/sh
# Small aegis script looking for dcd to go away
# signals that modem has hung up

#    Copyright 1995 Sentinet Ltd
#    All rights reserved.
#
#    Lyndon David and Tom Brock
#
#    Redistribution and use in any form are permitted provided that the
#    following restrictions are are met:
#	1.  Source distributions must retain this entire copyright notice
#	    and comment.
#	2.  Binary distributions must include the acknowledgement "This
#	    product includes software developed by Lyndon David" in the
#	    documentation or other materials provided with the
#	    distribution.  This must not be represented as an endorsement
#	    or promotion without specific prior written permission.
#	3.  The origin of this software must not be misrepresented, either
#	    by explicit claim or by omission.  Credits must appear in the
#	    source and documentation.
#	4.  Altered versions must be plainly marked as such in the source
#	    and documentation and must not be misrepresented as being the
#	    original software.
#    This software is provided "as is" and without any express or implied
#    warranties, including, without limitation, the implied warranties of
#    merchantability and fitness for a particular purpose.
#
#
#SCCS revision @(#)dcd	2.1 5/20/95




eon
tctl -line 1 | fpat DCD: | chpat "%?*  *DCD:  *{[A-Z][A-Z]*} *$" @1 | read -type string junk
if eqs ^junk "TRUE" then
    return -t
else
    return -f
endif
  
