[aprssig] Too quiet - make packets

Stan - N0YXV n0yxv at gihams.org
Fri Jun 9 16:32:45 EDT 2006


Ok I know too little about DX Clusters, Expect and your script.
Questions; "DXCLUSTER-HOSTNAME" is that like your Tier 2 APRS server?
DXCLUSTER-USERCALLSIGN I'm assuming is simply my call sign. If that's so
then why is the next line "YOURCALL" there? Would seem to me that
DXCLUSTER-USERCALLSIGN and YOURCALL would be the same thing. Next setting I
don't understand is port 7300, is this the port on the Tier 2 Server you
want to connect to? I also noticed that you have the following listed twice
in the script, was that an error?


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




>
> --- 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
>
> ~
> ~
> ~
> ~
> ~
> ~
> ~
> ~
>
>
> _______________________________________________
> aprssig mailing list
> aprssig at lists.tapr.org
> https://lists.tapr.org/cgi-bin/mailman/listinfo/aprssig
>





More information about the aprssig mailing list