#!/usr/bin/perl -w # Version 0.3 # Date Apr 2013 ######################################## # Modules use strict; # parameter Definition before use them use XML::LibXML; # Libary for XML use IO::Socket::SSL; # TCP/IP sockets ####################################### # Paramet Definition my $host = '192.168.2.101'; # Test OMM my $port = 12622; # OpenMobility-Manager-Port my $seqid = "4711"; # nice to have my $uname = "operator"; my $pw = "LoginPW"; my $protoVer = 41; # OM AXI Protocol Version -> unimportant my $timer = 1; my ($basicInfo,$OM_AXI_Input,$UserNotes,$myResponse,$Users); # Basic information -> Standard Response my ($RecAmount,$firstPPN); my @Values; my $socket = IO::Socket::SSL->new(PeerAddr=>$host,PeerPort=>$port,Timeout=>$timer); # XML Parameter my $myObj = XML::LibXML->new; my ($preLine,$XMLin,$doc,$root,$PPN,$field); my ($child,$at,$na,$va); my (@kids,@atts); ########################### # main programm system("clear"); ################################## # OMM Axi $UserNotes = qq{\0}; $socket -> print(qq{\0}); # Send Authentication $basicInfo = $socket->readline(); $socket -> print($UserNotes); $Users = $socket->readline(); ############ # XML Parsing ################## $preLine = ''; $XMLin = $preLine.$Users; print "$XMLin \n"; $doc = $myObj->parse_string($XMLin); # Search through the XMl-Stuff $root = $doc->documentElement; ($PPN) = $doc->findnodes("user"); # Find the keyword for $field ( qw{uid ppn ethAddr hwType}) { say $PPN->getAttribute($field) }