fix ^ convertion in command mode dx

diff --git a/perl/Aranea.pm b/perl/Aranea.pm
index 3fb2807290945e3234a61b143d2087203899e2a9..3a2190e7389ccabfe697172d615245594a4db180 100644 (file)
--- a/perl/Aranea.pm
+++ b/perl/Aranea.pm
@@ -307,7 +307,7 @@ sub tencode
 {
        my $s = shift;
        $s =~ s/([\%=|,\'\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg; 
-       $s = "'$s'" if $s =~ / /;
+#      $s = "'$s'" if $s =~ / /;
        return $s;
 }
 

diff --git a/perl/Thingy/Dx.pm b/perl/Thingy/Dx.pm
index dd526ea53c9eb47519b9aeac219fc1a724bbb6ff..35ff5214985bfecf0b7d69bf2de787fe4a573cb2 100644 (file)
--- a/perl/Thingy/Dx.pm
+++ b/perl/Thingy/Dx.pm
@@ -66,7 +66,7 @@ sub gen_DXProt
                my $sd = $thing->{spotdata};
                my $hops = $thing->{hops} || DXProt::get_hops(11);
                my $text = $sd->[3] || ' ';
-               $text =~ s/\^/%5E/g;
+               $text =~ s/\^/\%5E/g;
                my $t = $sd->[2];
                $thing->{DXProt} = sprintf "PC11^%.1f^$sd->[1]^%s^%s^$text^$sd->[4]^$sd->[7]^$hops^~", $sd->[0], cldate($t), ztime($t);
        }