##
##
##
my $xmlSimp = XML::Simple->new();
my $xmlCont = $xmlSimp->XMLin($xmlPath);
my $varIn = ""; our %xmlHash;
foreach my $keyI (keys (%{$xmlCont->{"items"}})) {
$varIn = $xmlCont->{"items"}->{$keyI};
$xmlHash{$keyI} = $varIn;
if ($keyI eq "nextSessionID") {
$xmlCont->{"items"}->{$keyI} = ++$varIn;
}
}
my $tmpOut = $xmlSimp->XMLout($xmlCont,
KeepRoot => 1,
OutputFile => $xmlPath,
XMLDecl => ""
);