#!/usr/bin/perl

print "Content-type: text/html\n\n";
use warnings;								
use CGI::Carp qw(fatalsToBrowser);	
use strict;
use CGI;
use Data::Dumper;							

#------------------------- declare --------------------------

	my ($sth, $stmt); 
	my $query = new CGI;
	my $file	= $query->param('file');				
	my $table= $query->param('table');

#------------------------- connect --------------------------
	
	my $databasename 	= "go_perl"; 
	my $username 		= "uname";
	my $password 		= "pword"; 
	
	use DBI qw(:sql_types); 
	my $dbh = DBI->connect("DBI:mysql:".$databasename, $username, $password, 
	{ RaiseError => 1},) or die "Connect failed: $DBI::errstr\n";

	
#--------------------- open .db file and insert 

	$stmt =qq/LOAD DATA LOCAL INFILE "..\/file.csv" 
				INTO TABLE table_name 
				FIELDS TERMINATED BY ","
				OPTIONALLY ENCLOSED BY """"
				LINES TERMINATED BY "\r" 
				IGNORE 1 LINES /;
	execute_it($dbh,$stmt);
	close_db($dbh, $sth);	
   exit();