#!/usr/bin/perl

use strict;
use CGI::Pretty qw/:standard :html3 *table/;
use DBI;

require "../config.pl";
our ($DBHost,$DBName,$DBUser,$DBPass,$owneremail,$ownerdesc,$sendmail);
our (@states);
###
#
###

my ($id,$dbh,$sth,$rc,$query,$template,$action,$buff);
my (@buff,@data,@content,@tmp,$img);
###
#
###

$id='_ID_';

$action=(param('action'))?param('action'):"";
# Check if user is ok.
  $dbh = DBI->connect("dbi:mysql:dbname=$DBName;host=$DBHost","$DBUser","$DBPass",
                {
                PrintError => 0,
                RaiseError => 0,
                AutoCommit => 0
                });
  if (!$dbh){
        print_error("Database Error:","$DBI::errstr");
        exit(1);
  }
$query="SELECT salutation,surname,middle,name,email FROM basic_auth WHERE id='$id' AND status='active'";
$sth = $dbh->prepare($query);
if (!$sth) {
        print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
        $dbh->disconnect();
        exit(1);
}

$rc=$sth->execute;
if (!$rc) {
        print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
        $sth->finish();
        $dbh->disconnect;
        exit(1);
}

@buff=$sth->fetchrow_array;
if (!defined(@buff) ||  $buff[0] eq ""){
        print_header('BizInc USA - Account not ready.');
        print "<br><br><center><b><font color=\"#993366\">We are sorry, but the page you are looking for is not active.<br>Please come back later.</font></b></small></center>\n";
        print_footer();
        $sth->finish();
        $dbh->disconnect;
        exit(2);
}

# Getting user's settings.
$query="SELECT firm_name,services,industry,profession,day_phone,evening_phone,suite_no,street,
        city,postal_code,state,addr_location,description FROM personal_info WHERE id='$id'";
$sth = $dbh->prepare($query);
if (!$sth) {
        print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
        $dbh->disconnect();
        exit(1);
}

$rc=$sth->execute;
if (!$rc) {
        print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
        $sth->finish();
        $dbh->disconnect;
        exit(1);
}

@data=$sth->fetchrow_array;
if (!defined(@data) ||  $data[0] eq ""){
        print_header('BizInc USA - Page not ready.');
        print "<br><br><center><b><font color=\"#003366\">We are sorry, but the page you are looking for is not ready.<br>Please come back later.</font></b></small></center>\n";
        print_footer();
        $sth->finish();
        $dbh->disconnect;
        exit(2);
}

# Getting user template

$query="SELECT template FROM web_temp WHERE id='$id'";
$sth = $dbh->prepare($query);
if (!$sth) {
        print_error("[DBI]: Prepare Error Occured!",$DBI::errstr);
        $dbh->disconnect();
        exit(1);
}

$rc=$sth->execute;
if (!$rc) {
        print_error("[DBI]: Execute Error Occured!",$DBI::errstr);
        $sth->finish();
        $dbh->disconnect;
        exit(1);
}

@tmp=$sth->fetchrow_array;
if (!defined(@tmp) ||  $tmp[0] eq ""){
	$template="default";
} else { 
	$template=$tmp[0]; 
}

if ($action eq "contact"){
      if (!open(TEMPLATE,"../templates/$template/contact.html")){
	 print_error("Error opening template \"$template\"!");
	 $sth->finish();
	 $dbh->disconnect();
	 exit(113);
      }
      @content=<TEMPLATE>;
      close(TEMPLATE);
      print "Content-type: text/html\n\n";
      foreach $buff (@content){
	$buff =~ s/\_TITLE\_/BizInc USA - $data[0]/g;
	$buff =~ s/\_FIRM\_BUSINESS\_/$data[0]/g;
	$buff =~ s/\_STREET\_/$data[7]/g;
	$buff =~ s/\_CITY\_/$data[8]/g;
	$buff =~ s/\_STATE_/$data[10]/g;
	$buff =~ s/\_ZIP_/$data[9]/g;
	$buff =~ s/\_SUITE_/$data[6]/g;
	$buff =~ s/\_DAY_/$data[4]/g;
	$buff =~ s/\_EMAIL_/$buff[4]/g;
	$buff =~ s/\_TEMPLATE\_/$template/g;
	print "$buff";
      }
}
elsif ($action eq "question"){
      if (!open(TEMPLATE,"../templates/$template/question.html")){
	 print_error("Error opening template \"$template\"!");
	 $sth->finish();
	 $dbh->disconnect();
	 exit(113);
      }
      $query="\t\t\t\t<option value=\"\">--- Select State ---</option>\n";
      foreach (@states){
	$query=$query."\t\t\t\t<option value=\"".$_."\">".$_."</option>\n";
      }
      @content=<TEMPLATE>;
      close(TEMPLATE);
      print "Content-type: text/html\n\n";
      foreach $buff (@content){
        $buff =~ s/\_TITLE\_/BizInc USA - $data[0]/g;
	$buff =~ s/\_STATES_/$query/g;
	$buff =~ s/\_TEMPLATE\_/$template/g;
	print "$buff";
      }
}
elsif ($action eq "Send"){
      if (!open(TEMPLATE,"../templates/$template/thankyou.html")){
	 print_error("Error opening template \"$template\"!");
	 $sth->finish();
	 $dbh->disconnect();
	 exit(113);
      }
      @content=<TEMPLATE>;
      close(TEMPLATE);
      $tmp[0]=(param('name'))?param('name'):"";
      $tmp[1]=(param('email'))?param('email'):"";
      $tmp[2]=(param('address'))?param('address'):"";
      $tmp[3]=(param('city'))?param('city'):"";
      $tmp[4]=(param('state'))?param('state'):"";
      $tmp[5]=(param('zip'))?param('zip'):"";
      $tmp[6]=(param('phone'))?param('phone'):"";
      $tmp[7]=(param('qtype'))?param('qtype'):"";
      $tmp[8]=(param('ph_contact'))?param('ph_contact'):"no";
      $tmp[9]=(param('body'))?param('body'):"";
# Send a mail
  open (MAIL,"|$sendmail");
  print MAIL "From: $tmp[0] <$tmp[1]>\n";
  print MAIL "To: $buff[1] $buff[3] <$buff[4]>\n";
  print MAIL "Bcc: $ownerdesc <$owneremail>\n";
  print MAIL "Subject: [BizIncUSA] $tmp[7] Question.\n\n";
  print MAIL "Sender Details:\n\tName: $tmp[0]\n\tEmail: $tmp[1]\n\tAddress: $tmp[2]\n\t";
  print MAIL "State: $tmp[4]\n\tZip: $tmp[5]\n\tPhone: $tmp[6]\n\tPhone Contact Required: $tmp[8]\n";
  print MAIL "\n$tmp[0] Asked a question about $tmp[7] with the message:\n\n$tmp[9]\n\n";
  close (MAIL);
      print "Content-type: text/html\n\n";
      foreach $buff (@content){
        $buff =~ s/\_TITLE\_/BizInc USA - $data[0]/g;
	$buff =~ s/\_SNAME_/$tmp[0]/g;
	$buff =~ s/\_TEMPLATE\_/$template/g;
	print "$buff";
      }
}
else {
      if (!open(TEMPLATE,"../templates/$template/index.html")){
	 print_error("Error opening template \"$template\"!");
	 $sth->finish();
	 $dbh->disconnect();
	 exit(113);
      }
# A small counter
if (open (COUNTER,"counter.dat")){
	@tmp=<COUNTER>;
	close(COUNTER);
	if ($tmp[0] =~ /[^0-9]\n/){
		$tmp[0]=0;
	}
}
else {
	$tmp[0]=0;
}
$tmp[0]=$tmp[0]+1;
if (open (COUNTER,">","counter.dat")) {
	print COUNTER "$tmp[0]\n";
	close(COUNTER);
}
# Done with the counter.
      if (-f "image.gif"){
	$img="<img src=\"image.gif\" border=\"0\" width=\"288\"></img>";
      } elsif (-f "image.jpg"){
	$img="<img src=\"image.jpg\" border=\"0\" width=\"288\"></img>";
      } else {
	$img="<font color=\"4\">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font>";
      }

      $data[12]=~ s/\n/\<br\>/gm;
      @content=<TEMPLATE>;
      close(TEMPLATE);
      print "Content-type: text/html\n\n";
      foreach $buff (@content){
	$buff =~ s/\_TITLE\_/BizInc USA - $data[0]/g;
	$buff =~ s/\_FIRM\_BUSINESS\_/$data[0]/g;
	$buff =~ s/\_PROFESSION\_/$data[3]/g;
	$buff =~ s/\_CITY\_/$data[8]/g;
	$buff =~ s/\_STATE_/$data[10]/g;
	$buff =~ s/\_FIRM_DESCRIPTION_/$data[12]/g;
	$buff =~ s/\_TEMPLATE\_/$template/g;
	$buff=~ s/\_IMG\_/$img/g;
	print "$buff";
      }
}

$sth->finish();
$dbh->disconnect;

# Subroutines.
sub print_header{
print<<"HTML";
Content-type:text/html


<html>
  <head>
        <title>$_[0]</title>
        <link rel="stylesheet" href="../default.css" type="text/css" media="screen">
  </head>
  <body bgcolor="#FFFFFF">
  <center><img src="../imgs/logo.gif"></img></center>
HTML
}


sub print_footer{
print<<"HTML";
  </body>
</html>
HTML
}

sub print_error{
print_header('BizInc USA - Internal Site Error');
print<<"HTML";
<br><br>
<table align="center" border="0" cellpadding="1" cellspacing="1">
<tr>
<td align="center">
	<small><b><font color="RED">
		&nbsp;Site Software ERROR!&nbsp;
	</font></b></small>
</td>
</tr>
<tr>
<td align="center">
	<hr>
</td>
</tr>
HTML
foreach (@_){
print "<tr><td align=\"center\"><small>$_</small></td></tr>\n";
}
print<<"HTML";
<tr>
<td align="center">
	<hr>
</td>
</tr>
<tr>
<td align="center">
	<small><b>Please report to 
                  <a href=\"mailto:$owneremail">$owneremail</a>
        </b></small>
</td>
</tr>
</table>
HTML
print_footer();
}