File Coverage

blib/lib/Net/EMI/Common.pm

Criterion	Covered	Total	%
statement	24	56	42.8
branch	0	10	0.0
condition	0	9	0.0
subroutine	8	15	53.3
pod	6	6	100.0
total	38	96	39.5

package Net::EMI::Common;
use strict;

use vars qw($VERSION);
$VERSION='1.01';

###########################################################################################################
# Since 'constants' are actually implemented as subs,
# they can be called from the outside as any other class method.
use constant STX=>chr(2);
use constant ETX=>chr(3);
use constant UCP_DELIMITER=>'/';
use constant DEF_SMSC_PORT=>3024;
use constant ACK=>'A';
use constant NACK=>'N';

###########################################################################################################
sub new {
   my$self={};
   bless($self,shift())->_init(@_);
}

###########################################################################################################
# Calculate packet checksum
sub checksum {
   shift;         # Ignore $self.
   defined($_[0])||return(0);

   my$checksum=0;
   for(split(//,shift)) {
      $checksum+=ord;
   }
   # 2003-Apr-24 Rainer Thieringer: format string corrected from %X to %02X.
   sprintf("%02X",$checksum%256);
}

###########################################################################################################
# Calculate data length
sub data_len {
	my$len=length(pop @_)+17;
	for(1..(5-length($len))) {
		$len='0'.$len;
	}
	$len;
}

###########################################################################################################
# The first 'octet' in the string returned will contain the length of the remaining user data.
sub encode_7bit {
   my($self,$msg)=@_;
   my($bit_string,$user_data)=('','');
   my($octet,$rest);

   defined($msg)&&length($msg)||return('00');   # Zero length user data.

   for(split(//,$msg)) {
      $bit_string.=unpack('b7',$_);
   }

   #print("Bitstring:$bit_string\n");

   while(defined($bit_string)&&(length($bit_string))) {
      $rest=$octet=substr($bit_string,0,8);
      $user_data.=unpack("H2",pack("b8",substr($octet.'0'x7,0,8)));
      $bit_string=(length($bit_string)>8)?substr($bit_string,8):'';
   }

   sprintf("%02X",length($rest)<5?length($user_data)-1:length($user_data)).uc($user_data);
}

###########################################################################################################
sub ia5_decode {
   my($self,$message)=@_;
   my($decoded,$i);

   defined($message)&&length($message)||return('');

	for($i=0;$i<=length($message);$i+=2) {
		$decoded.=chr(hex(substr($message,$i,2)));
	}
	$decoded;
}

###########################################################################################################
sub ia5_encode {
	join('',map{sprintf "%X",ord} split(//,pop(@_)));
}

###########################################################################################################
###########################################################################################################
#
# 'Internal' subs. Don't call these since they may, and will, change without notice.
#
###########################################################################################################
###########################################################################################################

###########################################################################################################
sub _init {
   shift;
}

###########################################################################################################
'Choppers rule';
__END__