[Umts-tools-commits] r2587 - umts-tools/trunk/src/UMTS/DataLog

[jeremy.laine at m4x.org]

Author: sharky
Date: 2007-02-28 11:08:13 +0000 (Wed, 28 Feb 2007)
New Revision: 2587

Modified:
   umts-tools/trunk/src/UMTS/DataLog/Packet.pm
Log:
print hex field


Modified: umts-tools/trunk/src/UMTS/DataLog/Packet.pm
===================================================================
--- umts-tools/trunk/src/UMTS/DataLog/Packet.pm	2007-02-28 10:11:34 UTC (rev 2586)
+++ umts-tools/trunk/src/UMTS/DataLog/Packet.pm	2007-02-28 11:08:13 UTC (rev 2587)
@@ -99,6 +99,15 @@
   lprint($p->{dir}, $p->{level} + 1, "$fname: $fval");
 }
 
+
+sub print_hex_field
+{
+  my ($p, $fname, $fval) = @_;
+  my $dval = '0x'.uc(unpack('H2', pack('C', $fval)));
+  lprint($p->{dir}, $p->{level} + 1, "$fname: $dval");
+}
+
+
 sub print_mime_field
 {
   my ($p, $fname, $ftype, $fval) = @_;
@@ -259,6 +268,8 @@
   } else {
     $p->print_field("To", $sms->{'TP-DA'});
   }
+  $p->print_hex_field("TP-PID", $sms->{'TP-PID'});
+  $p->print_hex_field("TP-DCS", $sms->{'TP-DCS'});
   my $ud = $sms->{'TP-UD'};
   my $printdata = 1;
   my $isfrag = 0;