X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtout.pm;h=8de0185b10b22fb45c84b3ea3a2d11246fe71dc9;hb=8f391050421dd665bbf5fdcb3279a6074d97a74e;hp=822beea5fe7bb3ce5ba0c0beaf81f5c206705f40;hpb=d7e79ac62a8403bfdfc40ae69212eb03cff8f7ff;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 822beea5..8de0185b 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -35,10 +35,8 @@ sub pc10
 		$user2 = ' ';
 		$user1 = $to;
 	}
-#	my $user2 = $via ? $to : ' ';
-#	my $user1 = $via ? $via : $to;
 	$text = unpad($text);
-	$text = ' ' if !$text;
+	$text = ' ' unless $text && length $text > 0;
 	return "PC10^$from^$user1^$text^*^$user2^$main::mycall^~";  
 }
 
@@ -193,8 +191,8 @@ sub pc28
 sub pc29 
 {
 	my ($fromnode, $tonode, $stream, $text) = @_;
-	$text =~ s/\^/:/og;			# remove ^
-#	$text =~ s/\~/S/og;
+	$text = ' ' unless $text && length $text > 0;
+	$text =~ s/\^/%5E/og;			# remove ^
 	return "PC29^$fromnode^$tonode^$stream^$text^~";
 }