#!/usr/bin/perl

$infile="sampleJSONXML.xml";
$geoJSON= "geoJson.json";

open INXML, "$infile";
open OUTJSON, ">>$geoJSON";

while (<INXML>){
$line=$_;
print "\$line= $line\n";
#if ($line =~/profile_type="vector"/){
if ($line eq "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>"){
print "skipping <?xml version=\"1.0\" encoding=\"ISO-8859-1\"?> \n";
}elsif($line =~/encoding/){
print "skipping <?xml version=\"1.0\" encoding=\"ISO-8859-1\"?> 222222222222222222222222222222 \n";
}elsif($line =~/PODVer1_1/){
print OUTJSON "{";
}elsif($line =~/<type>/){
$righbracLoc=index($line,">")+1;
$slashLoc=index($line, "/");
$length=$slashLoc-$righbracLoc-1;
$elText=substr($line,$righbracLoc,$length);
print "\$elText = $elText\n";
#print OUTJSON "type: \"$elText\",";
#print OUTJSON "\"type\": \"$elText\",";
print OUTJSON "\"\@type\": \"$elText\",";
#print OUTJSON "done!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";

}elsif($line =~/keyword/){


if ($line =~/item/){
$leftBracket=index($line,"<");
$righbracLoc=index($line,">");
$slashLoc=index($line, "/");
$length=$slashLoc-$righbracLoc-2;
$elText=substr($line,$righbracLoc+1,$length);

print OUTJSON"\"$elText\",";
}elsif($line =~/\//){
print OUTJSON"],"
}else{
print OUTJSON "\"keyword\": ["
};

}else{

$leftBracket=index($line,"<");
$righbracLoc=index($line,">");
$slashLoc=index($line, "/");
$length=$slashLoc-$righbracLoc-2;
$elText=substr($line,$righbracLoc+1,$length);

$elLength=$righbracLoc-$leftBracket-1;
$elementMain=substr($line,$leftBracket+1, $elLength);

#elLength=$righbracLoc-$leftBracket;
$newElement= "\"" . $elementMain .  "\":";
print OUTJSON "$newElement \"$elText\",";




print "In the default!!!!!!!!!!!!!!!!!!\n";
};


};