[aprssig] Too quiet - make packets

[Bill Vodall WA7NWP]

It's too quiet here - and on the air (on ham data frequencies.)

Here's a little script I've been running on a Linux box with ax25 packet 
  to bring DX spots to the local RF community.  Works super cool on the 
D700/D7!  (Does the HH do DX?)

Enjoy, have fun and make more packets...

73
Bill - WA7NWP

PS.  Is anybody here a TCL/Expect guru and know how to do the equivalent 
of a PERL -e "$line =~ s/\s{3,99}/  /"  to squish any sequence of 3 or 
more spaces down to 2 spaces?  I think that will significantly shorten 
the packets while not changing the resulting display.


--- dx2ax25.exp ---

#!/usr/bin/expect

# Usage:  "dx2ax25.exp ".
# Action:  login to dxcluster, set configuration, broadcast
#     DX spots received as ax25 packets
#
set prompt_sequence "dxspider >"
set hostname "DXCLUSTER-HOSTNAME"
set username "DXCLUSTER-USERCALLSIGN"
set mycall "YOURCALL"
set ax25port "APRS"
set ax25dest "DX RFONLY"
set port "7300"

spawn telnet $hostname $port

expect "login: "
send "$username\r"

expect "login: "
send "$username\r"

expect $prompt_sequence
send "set/nobeep\r"

expect $prompt_sequence
send "clear/spot all\r"

expect $prompt_sequence
send "accept/spot 1 by_state WA,OR,ID,CA,BC,CA\r"

expect $prompt_sequence
send "accept/spot 2 by_zone 4 and on hf\r"

expect $prompt_sequence
send "accept/spot 3 by_zone 3,4 and on 10m,6m\r"

# send all spots
#expect $prompt_sequence
#send "accept/spot 4 all\r"

# WWV announcements

expect $prompt_sequence
send "accept/wwv 1 by_zone 3,4\r"

# Disable timeout
set timeout -1

expect "DX *" {
     set dxpacket $expect_out(buffer);
     exec /usr/sbin/beacon -s -c $mycall -d $ax25dest $ax25port $dxpacket
     exp_continue} \
  "WWV *" {
     set dxpacket $expect_out(buffer);
     exec /usr/sbin/beacon -s -c $mycall -d $ax25dest $ax25port $dxpacket
     exp_continue } \
  eof { send_user "all done: EOF" } \
  timeout { send_user "timeout and done: EOF" } \
  exp_continue

#interact

~
~
~
~
~
~
~
~