[Umts-tools-commits] r2062 - in umts-tools/trunk: . src/SMS/PDU

[jeremy.laine at m4x.org]

Author: sharky
Date: 2007-01-05 15:02:31 +0000 (Fri, 05 Jan 2007)
New Revision: 2062

Modified:
   umts-tools/trunk/ChangeLog
   umts-tools/trunk/configure.ac
   umts-tools/trunk/src/SMS/PDU/UserData.pm
Log:
recognise Message Waiting DCS


Modified: umts-tools/trunk/ChangeLog
===================================================================
--- umts-tools/trunk/ChangeLog	2007-01-05 14:25:38 UTC (rev 2061)
+++ umts-tools/trunk/ChangeLog	2007-01-05 15:02:31 UTC (rev 2062)
@@ -1,3 +1,6 @@
+umts-tools 0.9.5
+ * SMS::PDU::UserData : recognise Message Waiting DCS
+
 umts-tools 0.9.4
  * UMTS::Phonebook:Entry : simplify phonebook format
 

Modified: umts-tools/trunk/configure.ac
===================================================================
--- umts-tools/trunk/configure.ac	2007-01-05 14:25:38 UTC (rev 2061)
+++ umts-tools/trunk/configure.ac	2007-01-05 15:02:31 UTC (rev 2062)
@@ -5,7 +5,7 @@
 PERLMOD=UMTS
 
 dnl version number
-VERSION=0.9.4
+VERSION=0.9.5pre1
 
 dnl
 AM_INIT_AUTOMAKE($PACKAGE, $VERSION)

Modified: umts-tools/trunk/src/SMS/PDU/UserData.pm
===================================================================
--- umts-tools/trunk/src/SMS/PDU/UserData.pm	2007-01-05 14:25:38 UTC (rev 2061)
+++ umts-tools/trunk/src/SMS/PDU/UserData.pm	2007-01-05 15:02:31 UTC (rev 2062)
@@ -328,7 +328,16 @@
     # Data coding/message class
     my $alph = ($self->{dcs} & 0x04) >> 2;
     $is = $alph ? PDU_CODING_8BIT : PDU_CODING_7BIT;
-  
+
+  } elsif ( (($self->{dcs} & 0xF0) == 0xC0) || 
+            (($self->{dcs} & 0xF0) == 0xD0) ) {
+    # Message Waiting Indication Group / 7bit
+	$is = PDU_CODING_7BIT;
+
+  } elsif (($self->{dcs} & 0xF0) == 0xE0) {
+    # Message Waiting Indication Group / UCS2
+	$is = PDU_CODING_UCS2;
+
   } else {
     # other data coding schemes
     Carp::croak("Unhandled Data Coding Scheme : $self->{dcs}");