#!/user/bin/perl -w
###############################################################################
# Copyright (c) 2005 Matt Verstraete - All Rights Reserved. #
# Modification, distribution, selling of this script is prohibited. #
# Use of this script anywhere but crystalreverie.com is prohibited. #
###############################################################################
use strict;
use CGI q~:standard~;
use DBI;
my ($dbh, $sth, @resultholder, $uid, $password, $character);
$uid = param('uid');
$password = param('password');
print "Content-type: text/html\n\n";
print q~
Modify Your Character's Information
~;
$dbh = DBI -> connect ('dbi:ODBC:read', 'uid', 'pass') or die "Could not open database: $DBI::errstr; stopped";
$sth = $dbh -> prepare (qq~select character_name, uid from characters where character_name = 'Sirmatt'~) or die "Could not prepare statement: $DBI::errstr; stopped";
$sth -> execute() or die "Could not execute SQL statment: $DBI::errstr; stopped";
@resultholder = $sth -> fetchrow_array;
$dbh -> disconnect();
print qq~\n
~;