sub addgame {
	my ($player_id, $command, $hostip, $hostport, $hostversion, $map, $players, $maxplayers, $techlvl) = @_;
	my @gamedata = [ # Gather Data in one Array
        {'player_id'=>$player_id, 'hostip'=>$hostip, 'hostport'=>$hostport,
       	'hostversion'=>$hostversion, 'map'=>$map,
       	'players'=>$players, 'maxplayers'=>$maxplayers,
       	'techlvl'=>$techlvl} ];
    # Create XML from Array
	my $newgame_xml = new XML::Simple (NoAttr=>1, RootName=>'lobbyquery');
	my @gamedata_xml = $newgame_xml->XMLout(\@gamedata);
	@gamedata_xml = stripxml(@gamedata_xml); # @gamedata xml strip
	chomp(@gamedata_xml);
	writelog("New Game:\n$gamedata_xml[0]");
	push (@gameDB, $gamedata_xml[0])
}