#!/usr/bin/perl -w
use DBI; #Load the DBI Switch

$database = "willand";
$user = "willand";
$password = "interact";
$dataset = "Flags";
$class = "language";

open(File3, "PRISM.ini") or die "Cannot open file: $!\n";
while($line3 = <File3>)
{
	@headers = split("=", $line3);
	if ($headers[0] eq "database")
	{
		$database = $headers[1];
		$database =~ s/^\s*(.*?)\s*$/$1/;
	}
	elsif ($headers[0] eq "user")
	{
		$user = $headers[1];
		$user =~ s/^\s*(.*?)\s*$/$1/;
	}
	elsif ($headers[0] eq "password")
	{
		$password = $headers[1];
		$password =~ s/^\s*(.*?)\s*$/$1/;
	}
	elsif ($headers[0] eq "dataset")
	{
		$dataset = $headers[1];
		$dataset =~ s/^\s*(.*?)\s*$/$1/;
	}
	elsif ($headers[0] eq "class")
	{
		$class = $headers[1];
		$class =~ s/^\s*(.*?)\s*$/$1/;
	}
}
close(File3);

#Loading the drivers
$drh = DBI->install_driver('mysql') or die "Cannot load driver";
#Loading database
$dbh = $drh->connect($database, $user, $password) or die "Cannot connect 
to the database: $database $user $password \n";

open(File, "$dataset.attr") or die "Cannot open file: $!\n";
open(File2, "$dataset.data") or die " Cannot open file: $!\n";

$dbh->do("delete from $dataset");
my @AttributeNames;
$sql1 = "insert into $dataset (";
$m = 0;


while ($line = <File>)
{
	#Reading attributes from file into array
	@AttributeNames = split(",", $line);

	foreach $p (@AttributeNames)
	{
		$p =~ s/^\s*(.*?)\s*$/$1/;
		if ($m > 0)
		{
			$sql1 .= ", ";
		}
		$sql1 .= $AttributeNames[$m];
		$m++;
	}
}

$sql1 .= ") values (";
$p = 0;

while($line2 = <File2>)
{
	$sql = $sql1;
	#Getting values from file into array
	@AttributeValues = split(",", $line2);
		
	$i = 0;
	foreach $p (@AttributeValues)
	{
		$p =~ s/^\s*(.*?)\s*$/$1/;
		
		if($i > 0)
		{
			$sql .= ",";
		}
		
		$sql .= "'".$p."'";
		$i++;
	}
	$sql .= ");";
#	print "$sql \n";
	$dbh->do($sql);
	#$dbh->do($sql) or print "Error: $sql\n";

}