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

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

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


#take number of fields and loop around creating a form
my $x=<<BEGINX;
<form method="input" action="createtable2.cgi" name="form2">
<input type="hidden" name="table" value="$table">
<h1>Table $table</h1>
<table border="1">
        <tr>
            <th>Field Name</th>
            <th>Field Type</th>
            <th>Field Length</th>
        </tr>
BEGINX



for ($f=1;$f<=$field;$f++)
{
	my $fieldname="fieldname" .$f;
	my $fieldtype="fieldtype" .$f;
	my $fieldlength="fieldlength" .$f;
	
        
	my $xxx=<<FOO;
        <tr><td><input type="text" name="fieldname" />
        </td>
            <td><select name="fieldtype">
                <option value="integer">int</option>
                <option value="char">char</option>
                <option value="float">float</option>
                <option value="varchar">varchar</option>
                <option value="date">date</option>
                <option value="text">text</option>
                <option value="bool">bool</option>
            </select></td>
            <td><input type="text" name="fieldlength" maxlength="4" /></tr>
        
FOO

          
 $x.= $xxx;         
          
 }         
 $x.=<<FOO2;  
 
        </table>
        <p><b>
            <input type="submit" name="submit2" value="Create Table" />
        </b></p>
        </form>

FOO2
    

print $x;



##</code><code>##

#!/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');



#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;