#!/usr/local/bin/perl
#======================================================================
#                    S E N D _ B R E A K 
#                    doc: Tue Aug  8 13:58:51 2006
#                    dlm: Tue Aug  8 19:41:01 2006
#                    (c) 2006 turbulence@
#                    uE-Info: 30 19 NIL 0 0 72 10 2 8 NIL ofnI
#======================================================================

# read from tty, write to stdout

# HISTORY:
#  Aug  8, 2006: - created from [bbabble] on DYNAMUCK cruise

use POSIX ();

$USAGE = "Usage: $0 <tty device>\n";
die($USAGE) unless (@ARGV == 1);
$TTY = $ARGV[0];

print(STDERR "Opening $TTY...");
my($sfd);
open(TTY,$TTY) || die(" $!\n");
$sfd = fileno(TTY);
print(STDERR "\n");

print(STDERR "Sending BREAK...");
die(" tcsendbreak: $!\n")
    unless defined(POSIX::tcsendbreak($sfd,0));
print(STDERR "\n");

exit(0);