From 7497cb27ff60760f9d0280549b26c215ebae19ff Mon Sep 17 00:00:00 2001 From: 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.43.0