fixed reply so that reply b / nop send replies as bulls

diff --git a/Changes b/Changes
index 2a0bcaad30508a0080901ba5c8ae3d98fc5b83de..e04ef39d0f2716f99254df65c035d0754e509414 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+21Oct99=======================================================================
+1. fixed reply so that reply b or reply nop generate a bulletin with the 
+correct address.
 20Oct99=======================================================================
 1. Translated all the subroutines of minimuf into perl as Minimuf.pm
 2. Limited the length of an ANN that is saved for de-duping to $pc12_dup_lth

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 30a1f602f0163d7c3540c80e008a92b01a88fcf4..d789a51efc18306168651c0d411fa1d4015596e1 100644 (file)
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -260,15 +260,16 @@ message either sent by or sent to your callsign.
 === 5^READ-^
 As a sysop you may read any message on the system
 
-=== 0^REPLY^Reply to the last message that you have read
-=== 0^REPLY <msgno>^Reply to the specified message
-=== 0^REPLY PRIVATE <msgno>^Reply privately to the specified message
+=== 0^REPLY^Reply (privately) to the last message that you have read
+=== 0^REPLY <msgno>^Reply (privately) to the specified message
+=== 0^REPLY B <msgno>^Reply as a Bulletin to the specified message
+=== 0^REPLY NOPrivate <msgno>^Reply as a Bulletin to the specified message
 === 0^REPLY RR <msgno>^Reply to the specified message with read receipt
 You can reply to a message and the subject will automatically have
 "Re:" inserted in front of it, if it isn't already present.
 
 You can also use all the extra qualifiers such as RR, PRIVATE, 
-NOPRIVATE that you can use with the SEND command (see SEND
+NOPRIVATE, B that you can use with the SEND command (see SEND
 for further details)
 
 === 0^SEND <call> [<call> ...]^Send a message to one or more callsigns

diff --git a/cmd/reply.pl b/cmd/reply.pl
index c8ef615d12a7c3776450ad5432ae9e2f0bc66b88..6982eb599e57993faf17a618f292388c83e4b846 100644 (file)
--- a/cmd/reply.pl
+++ b/cmd/reply.pl
@@ -63,12 +63,11 @@ if ($self->state eq "prompt") {
                if (!($oref = DXMsg::get($self->lastread))) {
                        delete $self->{loc};
                        return (1, $self->msg('m5'));
-                       #return (1, "need a message number");
                }
        }
        
        # now save all the 'to' callsigns for later
-       my $to = $oref->from;
+       my $to = $loc->{private} ? $oref->from : $oref->to;
        $loc->{to} = [ $to ];       # to is an array
        $loc->{subject} = $oref->subject;
        $loc->{subject} = "Re: " . $loc->{subject} if !($loc->{subject} =~ /^Re:\s/io); 
@@ -77,10 +76,6 @@ if ($self->state eq "prompt") {
        # keep calling me for every line until I relinquish control
        $self->func("DXMsg::do_send_stuff");
        $self->state('sendbody');
-       #push @out, $self->msg('sendsubj');
-#      push @out, "Reply to: $to";
-#      push @out, "Subject : $loc->{subject}";
-#      push @out, "Enter Message /EX (^Z) to send or /ABORT (^Y) to exit";
        push @out, $self->msg('m6', $to);
        push @out, $self->msg('m7', $loc->{subject});
        push @out, $self->msg('m8');

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6d2a7231063393a50cbe608f7a0565187810978b..a28d36f5992a060608258656165a90be943d1f2e 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -308,8 +308,9 @@ sub normal
                                Log('ann', $target, $field[1], $text);
                                
                                if ($decode_dk0wcy && $field[1] eq $decode_dk0wcy) {
-                                       my ($hour, $k, $next, $a, $r, $sfi) = $field[3] =~ /^Aurora Beacon\s+(\d+)UTC,\s+Kiel\s+K=(\d+),.*ed\s+K=(\d+),\s+A=(\d+),\s+R=(\d+),\s+SFI=(\d+),/;
-                                       my $wwv = Geomag::update($main::systime, $hour, $sfi, $a, $k, "R=$r, Next K=$next", $decode_dk0wcy, $field[5], $r);
+                                       my ($hour, $k, $next, $a, $r, $sfi, $alarm) = $field[3] =~ /^Aurora Beacon\s+(\d+)UTC,\s+Kiel\s+K=(\d+),.*ed\s+K=(\d+),\s+A=(\d+),\s+R=(\d+),\s+SFI=(\d+),.*larm:\s+(\w+)/;
+                                       $alarm = ($alarm =~ /^Y/i) ? ', Aurora in DE' : ''; 
+                                       my $wwv = Geomag::update($main::systime, $hour, $sfi, $a, $k, "R=$r, Next K=$next$alarm", $decode_dk0wcy, $field[5], $r);
                                }
                                
                                return if $field[2] eq $main::mycall; # it's routed to me