Create A Handle Form

#!/usr/bin/perl -Tw #### CALL MODULES #### use strict; use CGI; use DBI; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); #### INSTANTIATE MODULES AND DECLARE VARIABLES ############################ my $cgi = new CGI; my $dbh = DBI->connect("DBI:mysql:DBname:localhost", "Username", "Password", { RaiseError => 1, AutoCommit => 1 }) or &dienice("Can't connect to database: $DBI::errstr"); my $x=$cgi->param("action"); # DECIDING VARIABLE my $URL = #ScriptURL; ## Now list all other variables below... my $username=$cgi->param("name"); my $password=$cgi->param("pass"); #### MAIN DRIVER ############################ print "Content-type: text/html\n\n"; if ($x eq ""){ welcome(); } elsif ($x eq "Submit"){ make_handle ($dbh, $username, $password, $URL); } else { error(); } #### SUBROUTINES ############################ sub welcome { print < Create A Handle Form WelcomeHTML } sub make_handle { my ($dbh, $username, $password, $URL) = @_; my $sth = shift; my $sth = $dbh->prepare("INSERT INTO handles (users, passwords) VALUES(?,?)"); $sth->execute($username, $password); $sth->finish(); $dbh->disconnect(); # WHAT DO I DO HERE IF THE PROPOSED NAME IS ALREADY IN THE DB? } sub error { print < Handle Maker

Whoa! You just ran into an error!

HTMLHead }

		*Try creating a handle below...*
	Username
	Password