Untitled

#!/usr/bin/perl
use warnings;use strict;
my ($buffer,$key,$value,$form,$pair,$missing,$name,$course,$gpa,$sport,$errors,$count);
my ($user,$pass,$db,$host,$connectInfo,$dbh,$sth);
my @pairs;
my (%form,%name,%course,%gpa,%sport,%errors);

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

$buffer = $ENV{'QUERY_STRING'};
      @pairs = split(/&/, $buffer);
      foreach $pair (@pairs){
           ($key, $value) = split(/=/, $pair);
           $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
           $form{$key} = $value;
}

sub checkFields
{
$count = 0;
foreach my $key (keys %form)
{
if ($form{$key} eq ""){
$errors{$key} = "Please Enter Somethin for $key";
$count = 1;
}
else{
++$count;
}
print $count;
}
if ($count > 3){
connectDB();
}
}

sub connectDB
{
$user = "a07";
print $user;
$pass = "176";
$host = "db-mysql";
$db   = "a07";

use DBI;
$connectInfo = "dbi:mysql:$db:$host";
$dbh = DBI->connect($connectInfo,$user,$pass);
my $lookup = qq~INSERT INTO friends (name,sport) VALUES($form{'name'},$form{'sport'})~;
$sth = $dbh->prepare($lookup);
if($sth->execute()){print "EXECUTED";}
$dbh->disconnect();
}
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
print qq~
  <html><head><title>Student Survey</title>
  <style type="text/css">
  * {margin:0;padding:0}
  #container{width:960px}
  #myform{width:850px;margin-left:20px}
  ul{list-style-type:none}
  li{margin:10px}
  label{display:inline-block;width:190px;text-align:right;margin-right:10px}
  input{width:250px}
  .submit{margin-left:190px;float:left}
  </style>
  </head>
  <body>
~;

sub displayForm
{
print qq~
<div id="container">
<div id="myform">
<form action="aboutme.pl" method="GET">
<fieldset>
<legend>Student Survey</legend>
<ul>
<li><label>Full Name:</label><input type="text" name="name" value="$errors{'name'}" onclick="this.value='';" /></li>
<li><label>Favourite Sport:</label><input type="text" name="sport" value="$errors{'sport'}" onclick="this.value='';"  /></li>
<li><label>Favourite Seneca Course:</label><input type="text" name="course" value="$errors{'course'}" onclick="this.value='';" /></li>
<li><label>Current GPA:</label><input type="text" name="gpa" value="$errors{'gpa'}" onclick="this.value='';" /></li>
</ul>
<ul>
<li><button class="submit" type="submit">Send</button></li>
        <li><button type="reset">Reset</button></li>
</ul>
~;
}
sub closeHtml
{print "</fieldset></form></div></div></body></html>"}

checkFields();
displayForm();
closeHtml();