fix chat problem introdcued last update

diff --git a/Changes b/Changes
index ec702acd86b81c45cef9008a756ecd7e6637d8c8..0ab94e0620b70f6b9564ae3ea319171c23eb16d2 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+27Oct10=======================================================================
+1. fix chat problem introduced in the last update

 25Oct10=======================================================================
 1. Drop PC12s purporting to originate at nodes that do PC9x (suggestion from
 Lee VE1CC).
 25Oct10=======================================================================
 1. Drop PC12s purporting to originate at nodes that do PC9x (suggestion from
 Lee VE1CC).

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 92a36d1ee826b192f8c699e247c33755a9e7b16a..494b4348d9e13077b3ecf1d93766c331e24b4cef 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -795,20 +795,15 @@ sub send_chat
        # send it if it isn't the except list and isn't isolated and still has a hop count
        # taking into account filtering and so on
        foreach $dxchan (@dxchan) {
        # send it if it isn't the except list and isn't isolated and still has a hop count
        # taking into account filtering and so on
        foreach $dxchan (@dxchan) {

-               my $is_ak1a = $dxchan->is_ak1a;
-

                if ($dxchan->is_node) {
                        next if $dxchan == $main::me;
                        next if $dxchan == $self;
                if ($dxchan->is_node) {
                        next if $dxchan == $main::me;
                        next if $dxchan == $self;

-                       next if $from_pc9x && $dxchan->{do_pc9x};
-                       next unless $dxchan->is_spider || $is_ak1a;
+                       next if $from_pc9x && $dxchan->do_pc9x;
+                       next unless $dxchan->is_spider && $dxchan->do_pc9x;

                        next if $target eq 'LOCAL';
                        next if $target eq 'LOCAL';

-                       if (!$ak1a_line && $is_ak1a) {
-                               $ak1a_line = pc12($_[0], $text, $_[1], "$target.LST");
-                       }

                }
 
                }
 

-               $dxchan->chat($is_ak1a ? $ak1a_line : $line, $self->{isolate}, $target, $_[1],
+               $dxchan->chat($line, $self->{isolate}, $target, $_[1],

                                          $text, @_, $self->{call}, @a[0..2], @b[0..2]);
        }
 }
                                          $text, @_, $self->{call}, @a[0..2], @b[0..2]);
        }
 }

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 80e8194eebc7ee30eb761c0f8d2690f2a069855f..213e9b4008053d0d7eeb2efdfb1838f2f3c7730e 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1994,9 +1994,7 @@ sub handle_93
                return if $via eq 'LOCAL';
        } elsif (!is_callsign($to) && $text =~ /^#\d+ /) {
                # chat messages to non-pc9x nodes
                return if $via eq 'LOCAL';
        } elsif (!is_callsign($to) && $text =~ /^#\d+ /) {
                # chat messages to non-pc9x nodes

-               # don't do this anymore. It is too disruptive 'cos other software does not
-               # understand PC12 groups.
-#              $self->send_chat(1, pc12($from, $text, undef, $to, undef, $pcall), $from, '*', $text, $to, $pcall, '0');
+               $self->send_chat(1, pc12($from, $text, undef, $to, undef, $pcall), $from, '*', $text, $to, $pcall, '0');

        }
 
        # broadcast this chat sentence everywhere unless it is targetted to 'LOCAL'
        }
 
        # broadcast this chat sentence everywhere unless it is targetted to 'LOCAL'

diff --git a/perl/Version.pm b/perl/Version.pm
index 731641090db92f25e4b744faffdeeac51194fdb6..7da8dbd07d37ca8ed9fb3a0f980978dd733e50c4 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.55';
 $subversion = '0';
 
 $version = '1.55';
 $subversion = '0';

-$build = '79';
-$gitversion = '450f32d';
+$build = '80';
+$gitversion = 'fc55b5f';

 
 1;
 
 1;