#!/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)
}