YOUREXTERNALIP,YOURINTERNALIP,GODFIRSTNAME,GODLASTNAME,GODPASS
REGIONGUID,REGIONNAME,REGIONX,REGIONY,REGIONPORT

$inputfile = "D:\\opensimprod\\regionguids.txt";
$outputdir = "D:\\opensimprod\\Regions\\";

#First read in the first line of the input file which will contain the 
#internal and external ip addresses as well as the realm god name and password
open(INP,$inputfile)|| die("Cannot open input file\n");
$line = <INP>;
chomp($line);
@information = split(/,/,$line);
$externalip = $information[0];
$internalip = $information[1];
$godfirst = $information[2];
$godlast = $information[3];
$godpass = $information[4];

#Open the output files on the fly to match the information loaded in the next part
while($line = <INP>)
{
    chomp($line);
    @information = split(/,/,$line);
    $guid = $information[0];
    $region = $information[1];
    $region_x = $information[2];
    $region_y = $information[3];
    $region_port = $information[4];
    
    open(OUTP,">$outputdir$region_x\-$region_y\-$region.xml") || die("Cannot Create Output File $outputdir\_$region_x\-$region_y\-$region.xml\n");
    print OUTP "\<Root\>\n<Config sim_UUID=\"$guid\" sim_name=\"$region\" sim_location_x=\"$region_x\" sim_location_y=\"$region_y\" ";
    print OUTP " internal_ip_address=\"$internalip\" internal_ip_port=\"$region_port\" allow_alternate_ports=\"false\" external_host_name=\"$externalip\" ";
    print OUTP "master_avatar_uuid=\"00000000-0000-0000-0000-000000000000\" master_avatar_first=\"$godfirst\" master_avatar_last=\"$godlast\" master_avatar_pass=\"$godpass\" "; 
    print OUTP "lastmap_uuid=\"964797ed-84d4-4878-8a2c-2123e0ac3d03\" lastmap_refresh=\"1239303914\" nonphysical_prim_max=\"0\" ";
    print OUTP "physical_prim_max=\"0\" clamp_prim_size=\"false\" object_capacity=\"0\" \/\>\n\<\/Root\>\n";
    close OUTP;
}
close INP;