50 lines
952 B
Perl
Executable file
50 lines
952 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use integer;
|
|
|
|
my $start = shift;
|
|
my $end = shift;
|
|
|
|
if (! $end) {
|
|
print "Usage: $0 first-term-num last-term-num\n";
|
|
die;
|
|
}
|
|
|
|
my $COLS = 4;
|
|
|
|
my $index = 0;
|
|
|
|
for (my $n=$start; $n <= $end; $n += 2) {
|
|
#print "$n\n";
|
|
|
|
open(OUT, ">/tmp/USB$n.ini");
|
|
my $dev = "/dev/ttyUSB$n";
|
|
print OUT <<end
|
|
set line $dev
|
|
if failure { exit 1 "Unable top open $dev" }
|
|
set carrier-watch off
|
|
set flow-control none
|
|
set speed 115200
|
|
set serial 8n1
|
|
set key \\127 \\8
|
|
connect
|
|
quit
|
|
end
|
|
;
|
|
close(OUT);
|
|
my ($row, $col);
|
|
$row = $index / $COLS;
|
|
$col = $index % $COLS;
|
|
my ($offx, $offy);
|
|
$offx = $col * 300;
|
|
$offy = $row * 300;
|
|
#my $cmd = "xterm -geometry 40x20+$offx+$offy -e 'kermit /tmp/USB$n.ini'&";
|
|
my $cmd = "xterm -geometry 40x20+$offx+$offy -e 'stty -F /dev/ttyUSB$n 115200 && cat /dev/ttyUSB$n'&";
|
|
# my $cmd = "xterm -e 'stty -F /dev/ttyUSB$n 115200 && cat /dev/ttyUSB$n'&";
|
|
print "$cmd\n";
|
|
system($cmd);
|
|
|
|
$index++;
|
|
}
|