package GSM::SMS::OTA::OTA;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw( OTAdecode_8bit
OTAencode_8bit);
$VERSION = "0.161";
sub OTAdecode_8bit {
my ($ud) = @_;
my $msg;
while (length($ud)) {
$msg .= pack('H2',substr($ud,0,2));
$ud = substr($ud,2);
}
return $msg;
}
sub OTAencode_8bit {
my ($ud) = @_;
my $msg;
while (length($ud)) {
$msg .= sprintf("%.2X", ord(substr($ud,0,1)));
$ud = substr($ud,1);
}
return $msg;
}
1;
=head1 NAME
GSM::SMS::OTA::OTA
=head1 DESCRIPTION
This package contains 2 functions to decode and encode 8 bit data in an ASCII alphabet. It just writes out a byte as a 2 character string, containing the hexadecimal representation.
=head1 METHODS
$binary = OTAdecode_8bit( $text )
$text = OTAencode_8bit( $binary )
=head1 AUTHOR
Johan Van den Brande <johan@vandenbrande.com>