#!/usr/bin/perl

open (SQL_FILE, ">load.sql");
&create_insert(24000,25000);
close (SQL_FILE);

exit 0;

########################

sub create_insert {

print SQL_FILE "BEGIN;\n";
print SQL_FILE "PREPARE fooplan (text,int,int,timestamp) AS INSERT INTO multi_obs(platform_handle,sensor_id,m_type_id,m_date) VALUES(\$1, \$2, \$3, \$4);\n";

my ($start_id,$stop_id) = @_;

for (my $i = $start_id; $i < $stop_id; $i++) {

my $date_converted_1 = `date --date='2007-01-01 00:00:00 +0000' +%s` + $i;
my $date_converted_2 = `date -u -d '1970-01-01 $date_converted_1 seconds' +"%Y-%m-%d %H:%M:%S"`;
chomp($date_converted_2);
#print $date_converted_2."\n";

$this_sql = "EXECUTE fooplan('ndbc:test1:drifter',191,41,'$date_converted_2');\n";

print SQL_FILE $this_sql;
}

print SQL_FILE "COMMIT;\n";

}