| … | |
… | |
| 319 | for (@r) { |
319 | for (@r) { |
| 320 | last unless $_; |
320 | last unless $_; |
| 321 | $res .= chr $_; |
321 | $res .= chr $_; |
| 322 | } |
322 | } |
| 323 | # dump extra data to file for later analysis |
323 | # dump extra data to file for later analysis |
| 324 | #my $x = pack "v*", @r; $x =~ s/^(..)*?\x00\x00//s; open DUMP, ">>/tmp/dump"; print DUMP $x; close DUMP;#d# |
324 | #my $x = pack "v*", @r; $x =~ s/^(..)*?\x00\x00//s; open DUMP, ">>/root/kgs-dump"; print DUMP $x; close DUMP;#d# |
| 325 | $res; |
325 | $res; |
| 326 | } |
326 | } |
| 327 | |
327 | |
| 328 | sub enc_<xsl:value-of select="@name"/> { |
328 | sub enc_<xsl:value-of select="@name"/> { |
| 329 | $data .= pack "v<xsl:value-of select="@length"/>", map ord, split //, $_[0]; |
329 | $data .= pack "v<xsl:value-of select="@length"/>", map ord, split //, $_[0]; |
