#!/usr/bin/perl
use strict;

use CGI::Carp "fatalsToBrowser";
use CGI ":all";
use DBI;

my $serverName = "db-mysql";
my $serverPort = "zenit.senecac.on.ca:3306";

my $serverUser = "int322_101b12";
my $serverPass = "30026218";
my $serverDb = "int322_101b12";

my $serverTabl = "mysql";

print
        header,
        start_html("MySql"),
        center h1("MySql");
        print "\n";

&show_form;
&insert_entry;
&show_entries;
print end_html;

sub show_form {
        print
                start_form,
                center
                table(map
                        Tr(td($_->[0]), td(textfield($_->[1],"",undef,60))),
                        ["<B>firstname</B>", "firstname"],
                        ["<B>lastname<B>", "lastname"],
                        ["<B>SID", "SID"],
                        ["<B>logins", "logins"],
                ),
                p submit, end_form,
                hr;
}

sub show_entries {
        my ($dbh, $sth, @row);

        $dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort",$serverUser,$serverPass);
        $sth = $dbh->prepare("SELECT firstname,lastname,SID,logins
                FROM $serverTabl");
        $sth->execute;
        print "Existing Entries",hr;
        while(@row = $sth->fetchrow_array) {
                print "firstname: ", $row[0], br;
                print "lastname: ", $row[1], br;
                print "SID: ", $row[2], br;
                print "logins: ", $row[3], br,
                hr;
        }
        $sth->finish;
        $dbh->disconnect;
}

sub insert_entry {
        my ($dbh, $success, $firstname, $lastname, $SID, $logins);

        $dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort",$serverUser,$serverPass);
        $firstname = param("firstname");
        $lastname = param("lastname");
        $SID = param("SID");
        $logins = param("logins");
        $success = $dbh->do("INSERT INTO $serverTabl(firstname,lastname,SID,logins) VALUES(?,?,?,?)", undef,$firstname,$lastname,$SID,$logins);
        $dbh->disconnect;
        if($success != 1) {
                return "Sorry, the database was unable to add your entry.
                Please try again later.";
        }
        else {
                return;
        }
}