send unsolicited PC[38]5s to the sysop if online.

diff --git a/Changes b/Changes
index 33ac9a0070d0b2aff5e8c6d6285660cf1198ffeb..a6cd06db8774f285ed1b69c6b3ff0bb7c6ad8a31 100644 (file)
--- a/Changes
+++ b/Changes
@@ -5,6 +5,7 @@
 4. Try to fix some more dups (and the time on them).
 5. make the time stored on dups generated locally on spots an integer no of 
 minutes * 60 
+6. send unsolicited PC[38]5s to the sysop if online.
 26Jul00=======================================================================
 1. added wantgrid (to control display of grid square info on DX Broadcasts)
 2. added lastoper for controlling periodic demands for user info from other

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5ba2657118a470c03fb2653e614df7e94c9b036b..a2f7734724f1e74da0994c8ca607b44be315e7e1 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -656,6 +656,10 @@ sub normal
                                        my $dxchan = DXChannel->get($s->{call});
                                        $dxchan->send($field[3]) if $dxchan;
                                        delete $rcmds{$field[2]} if !$dxchan;
+                               } else {
+                                       # send unsolicited ones to the sysop
+                                       my $dxchan = DXChannel->get($main::myalias);
+                                       $dxchan->send($field[3]) if $dxchan;
                                }
                        } else {
                                my $ref = DXUser->get_current($field[1]);
@@ -840,6 +844,10 @@ sub normal
                                                $dxchan = DXChannel->get($s->{call});
                                                $dxchan->send($field[4]) if $dxchan;
                                                delete $rcmds{$field[2]} if !$dxchan;
+                                       } else {
+                                               # send unsolicited ones to the sysop
+                                               my $dxchan = DXChannel->get($main::myalias);
+                                               $dxchan->send($field[4]) if $dxchan;
                                        }
                                }
                        } else {