#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use DBI;

print "Content-type: text/html\n\n";

my $database="assignments";
my $username="web320";
my $password="";

my $fieldname=param('fieldname');
my $fieldtype=param('fieldtype');
my $fieldlength=param('fieldlength');
my $table=param('table');
my $field=param('field');
my $f;



for ($f=1;$f<=$field;$f++)
{
	my $fieldname=param('fieldname' .$f);
        my $fieldtype=param('fieldtype' .$f);
	my $fieldlength=param('fieldlength' .$f);
        
}


#connect to database
my $dsn="DBI:mysql:$database:localhost";
my $dbh=DBI->connect($dsn,$username) or die print "doesn't work"; #if use password, put ,$password

my $query = "CREATE TABLE $table ($fieldname $fieldtype ($fieldlength))";

#prepare and execute
#my $sth=$dbh->prepare($query) or die print "bad query";
#$sth->execute();

print $query;