projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2a8f549
)
fix ^ convertion in command mode dx
author
minima
<minima>
Wed, 23 Feb 2005 16:37:00 +0000
(16:37 +0000)
committer
minima
<minima>
Wed, 23 Feb 2005 16:37:00 +0000
(16:37 +0000)
perl/Aranea.pm
patch
|
blob
|
history
perl/Thingy/Dx.pm
patch
|
blob
|
history
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);
}