#!/usr/bin/perl -w
package FQLib;
use 5.004;
use strict;      # Restrict unsafe variables, references, barewords
use Carp;
use Net4Lib;
use Net4DBLib;
use vars qw(@ISA @EXPORT @EXPORT_OK $Version);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(1);
# first page to display for guest book where the user will neter the info
sub DisplayGBForm
{
	my ($html,%hash) = @_;
	$html = Net4Lib::DisplayHTML($Net4Constants::htmlpathFQForm,%hash);
	return $html;
}
sub AddFreedomQuestProcess
{
	my ($html,%hash) = @_;
	my $dbh = Net4DBLib::connectDB();
	if(Net4DBLib::AddToFreedomQuest($dbh,%hash))
	{
		Net4DBLib::destroyDB($dbh);
		$hash{'error'} = "Thanks for filling the Questionnaire. The Dialer is in the process of being downloaded. Have a nice time surfing the Net!!!";
		$html = Net4Lib::DisplayHTML($Net4Constants::htmlpathFQSuccess,%hash);
	}
	else
	{
		Net4DBLib::destroyDB($dbh);
		$html = "Error : Unable to add your entry to Database";
	}
	return $html;
}