1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
# Part of Dire Wolf APRS Telemetry Toolkit, WB2OSZ, 2015
if ($#ARGV+1 < 2 || $#ARGV+1 > 7) {
print STDERR "2 to 7 command line arguments must be provided.\n";
usage();
}
if ($#ARGV+1 == 7) {
if ( ! ($ARGV[6] =~ m/^[01]{8}$/)) {
print STDERR "The sixth value must be 8 binary digits.\n";
usage();
}
}
print "T#" . join (',', @ARGV) . "\n";
exit 0;
sub usage ()
{
print STDERR "\n";
print STDERR "telem-data.pl - Format data into Telemetry Report format.\n";
print STDERR "\n";
print STDERR "Usage: telem-data.pl sequence value1 [ value2 ... ]\n";
print STDERR "\n";
print STDERR "A sequence number and up to 5 analog values can be specified.\n";
print STDERR "Any sixth value must be 8 binary digits.\n";
exit 1;
}
|
