#!/usr/bin/perl 
# 
# Chatboard test utility 
# Answer 'OK' to everything and spit out the communication 
 
$| = 1; 
 
system('stty 9600 -F /dev/tts/5'); 
 
open(TTS, "+< /dev/tts/5") or die; 
print TTS "OK\n"; 
 
while(<TTS>) { 
	print TTS "OK\n"; 
 
	# cut them into pieces... 
	if (/^(AT\+CKPD=")([0-9a-f]+)(".*)$/) { 
		my $pre = $1; 
		my $pieces = $2; 
		my $post = $3; 
		$pieces =~ s/(..)/$1 /g; 
 
		$_ = "$pre$pieces$post\n"; 
	} 
 
	print; 
}

#! perl 
use strict; 
use Win32::SerialPort; 
$| = 1; 
my $ob = Win32::SerialPort->new('COM1') or die "fail opening COM1"; 
print "COM1 opened successfully \n"; 
 
$ob->baudrate(9600) 	|| die "fail setting baud"; 
$ob->parity('none') 	|| die "fail setting parity"; 
$ob->databits(8) 	|| die "fail setting databits"; 
$ob->stopbits(1) 	|| die "fail setting stopbits"; 
$ob->handshake('none')	|| die "fail setting handshake"; 
$ob->write_settings 	|| die "no settings";  
 
$ob->write("OK\n"); 
my $result = $ob->input; 
 
while(1){ 
	$ob->write("OK\n"); 
	$result = $ob->input; 
	 
	# Help here: 
	#if() 
	#{ 
	# 
	#} 
} 
 
undef $ob; 
print "COM1 closed..\n";