#!/user/bin/perl -w
use CGI q~:standard~;
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
print "content-type: text/html\n\n";
my ($dbh, $sth, $sitepath, @file, $Update, $Name, $Region, $Region_section, $POS, $NPC, $Requierments, $Requiredquests, $Fame, $Reward,
$Rewardtype, $Title, $isrepeatable, $walkthough, $Results, $date);
$sitepath = 'e:/web/public_html/finalfantasyinfo';
$Update = param('Update');
$Name = param('Name');
$Region = param('Region');
$Region_section = param('Region_Section');
$POS = param('POS');
$NPC = param('NPC');
$Requierments = param('Requierments');
$Requiredquests = param('Requiredquests');
$Fame = param('Fame');
$Reward = param('Reward');
$Rewardtype = param('Rewardtype');
$Title = param('Title');
$isrepeatable = param('isrepeatable');
$walkthough = param('walkthough');
$date = param('date');
$dbh = DBI -> connect ('dbi:ODBC:', '', '') or die "$DBI::errstr;";
if ($Update eq 'on') {
	if ($Region != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set region = '$Region' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Region_section != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set region_region = '$Region_section' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($POS != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set pos = '$POS' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($NPC != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set npc = '$NPC' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Requierments != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set requierments = '$Requierments' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Requiredquests != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set requiredquests = '$Requiredquests' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Fame != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set fame = '$Fame' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Reward != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set reward = '$Reward' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Rewardtype != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set rewardtype = '$Rewardtype' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($Title != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set title = '$Title' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($isrepeatable != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set isrepeatable = '$isrepeatable' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($walkthough != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set walkthough = '$walkthough' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
	if ($date != 'No Update') {
		$sth = $dbh -> prepare (qq~update quests set updated = '$date' where quest_name = '$Name'~) or die "$DBI::errstr";
		$sth -> execute or die "$DBI::errstr";
	}
} else {
	$sth = $dbh -> prepare (qq~insert into quests (quest_name, region, region_section, pos, npc, requierments, requiredquests, fame, reward, rewardtype, title, isrepeatable, walkthough, updated) values ('$Name', '$Region', '$Region_section', '$POS', '$NPC', '$Requierments', '$Requiredquests', '$Fame', '$Reward', '$Rewardtype', '$Title', '$isrepeatable', '$walkthough', '$date')~);
	$sth -> execute or die "$DBI::errstr;";
}
$dbh -> disconnect();