3 # A thing that implements dxcluster 'protocol'
5 # This is a perl module/program that sits on the end of a dxcluster
6 # 'protocol' connection and deals with anything that might come along.
8 # this program is called by ax25d and gets raw ax25 text on its input
10 # Copyright (c) 1998 Dirk Koopman G1TLH
18 $mode = 1; # 1 - \n = \r as EOL, 2 - \n = \n, 0 - transparent
19 $call = ""; # the callsign being used
20 @stdoutq = (); # the queue of stuff to send out to the user
21 $conn = 0; # the connection object for the cluster
22 $lastbit = ""; # the last bit of an incomplete input line
24 # cease communications
28 if (defined $conn && $sendz) {
29 $conn->send_now("Z$call|bye...\n");
34 # terminate program from signal
40 # handle incoming messages
43 my ($con, $msg, $err) = @_;
44 if (defined $err && $err) {
48 my ($sort, $call, $line) = $msg =~ /^(\w)(\S+)|(.*)$/;
51 my $nl = ($mode == 1) ? "\r" : "\n";
52 $nl = "" if $mode == 0;
53 $line =~ s/\n/\r/o if $mode == 1;
55 } elsif ($sort eq 'M') {
56 $mode = $line; # set new mode from cluster
57 } elsif ($sort eq 'Z') { # end, disconnect, go, away .....
72 $r = sysread($fh, $buf, 1024);
73 # print "sys: $r $buf";
76 $buf =~ s/\r/\n/o if $mode == 1;
77 $dangle = !($buf =~ /\n$/);
78 @lines = split /\n/, $buf;
79 if ($dangle) { # pull off any dangly bits
84 $first = shift @lines;
85 unshift @lines, ($lastbit . $first) if ($first);
86 foreach $first (@lines) {
87 $conn->send_now("D$call|$first");
91 $conn->send_now("D$call|$buf");
99 die "client.pl <call> [<mode>]\r\n" if (!$call);
100 $mode = $ARGV[1] if (@ARGV > 1);
102 select STDOUT; $| = 1;
104 $SIG{'INT'} = \&sig_term;
105 $SIG{'TERM'} = \&sig_term;
106 $SIG{'HUP'} = \&sig_term;
108 $conn = Msg->connect("$clusteraddr", $clusterport, \&rec_socket);
109 $conn->send_now("A$call|start");
110 Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);