From 7497cb27ff60760f9d0280549b26c215ebae19ff Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 27 Jul 2000 15:41:31 +0000
Subject: [PATCH] send unsolicited PC[38]5s to the sysop if online.

---
 Changes        | 1 +
 perl/DXProt.pm | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/Changes b/Changes
index 33ac9a00..a6cd06db 100644
--- 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 5ba26571..a2f77347 100644
--- 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 {
-- 
2.34.1