#!/usr/bin/perl 
#
# Copyright (c) 2004 Javier Gutierrez <https://github.com/tap3edit/TAP3-Tap3edit>. 
# All rights reserved. This program is free software; you can redistribute 
# it and/or modify it under the same terms as Perl itself.
#  
# Show the msisdn and/or mscid from the Network Information section
#
#
#  Usage: tap3edit_show_mscid tapfile
#
#  E.g: tap3edit_show_mscid CDOPER1OPER200001
#


use TAP3::Tap3edit;


$filename=shift;

if ( ! $filename ) {
	die "Usage: $0 tapname\n";
}


$tap3 = TAP3::Tap3edit->new();
$tap3->decode($filename)  or  die $tap3->error;

$struct=$tap3->structure;

my $element;

foreach $element ( @{$struct->{'transferBatch'}->{'networkInfo'}->{'recEntityInfo'} } ) {

	if (defined $element->{recEntityId}{mscId}) {
		$mscid=$element->{recEntityId}{mscId};
		print "Mscid: $mscid\n";
	}
	if (defined $element->{recEntityId}{msisdn}) {
		$msisdn=$element->{recEntityId}{msisdn};
		print "Msisdn: $msisdn\n";
	}

}
