projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a5139b5
)
Remove redundant _string2cdata() method, use xml_encode() instead.
author
Mike Taylor
<mike@indexdata.com>
Thu, 30 Nov 2006 12:01:23 +0000
(12:01 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Thu, 30 Nov 2006 12:01:23 +0000
(12:01 +0000)
lib/ZOOM/IRSpy/Record.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Record.pm
b/lib/ZOOM/IRSpy/Record.pm
index
9141a51
..
a0738c8
100644
(file)
--- a/
lib/ZOOM/IRSpy/Record.pm
+++ b/
lib/ZOOM/IRSpy/Record.pm
@@
-1,4
+1,4
@@
-# $Id: Record.pm,v 1.20 2006-11-29 18:17:16 mike Exp $
+# $Id: Record.pm,v 1.21 2006-11-30 12:01:23 mike Exp $
package ZOOM::IRSpy::Record;
package ZOOM::IRSpy::Record;
@@
-98,7
+98,7
@@
sub store_result {
my $xml = "<irspy:$type";
foreach my $key (keys %info) {
my $xml = "<irspy:$type";
foreach my $key (keys %info) {
- $xml .= " $key=\"" . $this->_string2cdata($info{$key}) . "\"";
+ $xml .= " $key=\"" . xml_encode($info{$key}) . "\"";
}
$xml .= ">" . isodate(time()) . "</irspy:$type>\n";
}
$xml .= ">" . isodate(time()) . "</irspy:$type>\n";
@@
-158,21
+158,6
@@
sub _half_decent_appendWellBalancedChunk {
}
}
-# Yes, I know that this is already implemented in IRSpy.pm. I suggest that we
-# introduce a toolkit package with such subroutines...
-#
-sub _string2cdata {
- my ($this, $buffer) = @_;
- $buffer =~ s/&/&/gs;
- $buffer =~ s/</</gs;
- $buffer =~ s/>/>/gs;
- $buffer =~ s/"/"/gs;
- $buffer =~ s/'/'/gs;
-
- return $buffer;
-}
-
-
=head1 SEE ALSO
ZOOM::IRSpy
=head1 SEE ALSO
ZOOM::IRSpy