88 |
my $xml = qq{<message>}; |
my $xml = qq{<message>}; |
89 |
foreach my $tag (keys %$document) { |
foreach my $tag (keys %$document) { |
90 |
my $data = $document->{$tag}; |
my $data = $document->{$tag}; |
91 |
|
next if (! $data || $data eq ''); |
92 |
# save [cr/]lf before conversion to XML |
# save [cr/]lf before conversion to XML |
93 |
$data =~ s/\n\r/##lf##/gs; |
$data =~ s/\n\r/##lf##/gs; |
94 |
$data =~ s/\n/##lf##/gs; |
$data =~ s/\n/##lf##/gs; |
95 |
$xml .= "<$tag><![CDATA[".$data."]]></$tag>\n" if ($data && $data ne ''); |
$xml .= "<$tag><![CDATA[".$data."]]></$tag>\n"; |
96 |
} |
} |
97 |
$xml .= qq{</message>}; |
$xml .= qq{</message>}; |
98 |
|
|