#!/usr/bin/perl

$com="ls -1 *.csv >dirlist.txt";
system($com);
open (DRR, "dirlist.txt");

my @alldir=<DRR>;
$num=@alldir;
$inc=0;

#$com="mkdir \"vrt\"\n";
system($com);


while ($inc < $num)
	{
	$line = @alldir[$inc];
	$line =~ s/\n//;
	


open(FILEDESCRPTOR, "$line")  or die "Error opening file: $!";
@array = <FILEDESCRPTOR>;
close(FILEDESCRPTOR);
chomp @array;
$line =~ s/\.csv//;
open(RESULT, ">$line.vrt") or die "Can not open file: $!";


print RESULT "<OGRVRTDataSource>\n";
print RESULT "    <OGRVRTLayer name=\"$line\">\n";
print RESULT "        <SrcDataSource>$line.csv</SrcDataSource>\n";
print RESULT "        <GeometryType>wkbPoint</GeometryType>\n";
print RESULT "        <LayerSRS>WGS84</LayerSRS>\n";
print RESULT "        <GeometryField encoding=\"PointFromColumns\" x=\"LONG\" y=\"LAT\"/>\n";
print RESULT "    </OGRVRTLayer>\n";
print RESULT "</OGRVRTDataSource>\n";

my $ogrcmd="/usr/bin/ogr2ogr $line $line.vrt"; 
#system($ogrcmd) or print STDERR "couldn't exec ogrcmd: $!";


if(my $pid = fork){
}
elsif (defined $pid){
        close(STDOUT);
        exec($ogrcmd);
        exit(0);
} else{
        die "Fork Error";
}



close(RESULT); 

++$inc;

}

close (DRR);
$com="rm dirlist.txt\n";
system($com);