Untitled

#!/usr/bin/perl -w

use CGI qw(:standard);
use DBI;
use Mysql;

my $fname = param('fname') || '<i>(No input)</i>';
my $lname = param('lname') || '<i>(No input)</i>';
my $dob = param('dob') || '<i>(No input)</i>';
my $uname = param('uname')  || '<i>(No input)</i>';
my $pword = param('pword')  || '<i>(No input)</i>';
my $middle = param('middle')  || '<i>(No input)</i>';
my $maiden = param('middle')  || '<i>(No input)</i>';
my $address = param('address')  || '<i>(No input)</i>';
my $address2 = param('address2')  || '<i>(No input)</i>';
my $city = param('city')  || '<i>(No input)</i>';
my $state = param('state')  || '<i>(No input)</i>';
my $zip = param('zip')  || '<i>(No input)</i>';
my $email = param('email')  || '<i>(No input)</i>';
my $phone = param('phone')  || '<i>(No input)</i>';

# MYSQL CONFIG VARIABLES
my $host = "localhost";
my $database = "alumni";
my $tablename = "reg";
my $user = "username";
my $pw = "password";

# PERL MYSQL CONNECT()
my $connect = Mysql->connect($host, $database, $user, $pw);

# SELECT DB
$connect->selectdb($database);

# DEFINE A MySQL QUERY
my $myquery = "SELECT * FROM $tablename WHERE uname LIKE \'$uname\'";
my $addquery = "INSERT INTO $tablename VALUES(\'$fname\',\'$middle\',\'$lname\',\'$maiden\',$dob,\'$email\',\'$uname\',\'$pword\')";

&checkUserID;

sub checkUserID{

        # EXECUTE THE QUERY FUNCTION
        my $execute = $connect->query($myquery);

        while (@results = $execute->fetchrow()) {
                if(@results > 0){
                        &noconfirm;
                }
                else{
                        my $execute = $connect->query($addquery);
                        &confirm;
                }
        }
}

sub noconfirm{

print <<NOCONFIRM;
Content-type: text/html


<html>
        <head>
                <title>Username Taken</title>
        </head>
        <body>
                <center>
                        <h1>Username Taken</h1>
                        Go back and use a different username $results[6]
                </center>
        </body>
</html>
NOCONFIRM
}

sub confirm{


print <<CONFIRM;
Content-type: text/html


<html>
        <head>
                <title>Reg Check</title>
        </head>
        <body>
                First Name: $fname<br>
                Middle Name: $middle<br>
                Last Name: $lname<br>
                Maiden Name: $maiden<br>
                D.O.B.: $dob<br>
                Address:&nbsp &nbsp $address<br>
                 &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp $address2<br>
                 &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp $city, $state $zip<br>
                Email: $email<br>
                Phone: $phone<br>
                username: $uname - <br>
                password: $pword<br>
                Results:
        </body>
</html>
CONFIRM

}