#!/usr/bin/perl


if ($port)
{
 $ENV{"MYSQL_TCP_PORT"}=$port;
}

if ($sock)
{
 $ENV{"MYSQL_UNIX_PORT"}="$sock";
}

use Mysql; # use the Mysql Perl Adaptor

require "cgi-lib.pl"; # Form processing library
require "cgi-lib.sol"; # Additional dunctions library
require "mail-lib.pl"; # UNIX sendmail processing library
require "library_func.pl";
require "cookie.lib";

$dbh = Mysql->Connect("$host","$mercantor_database","$user", "$pass");

&ReadParse; #subroutine from cgi-lib.pl for parsing form variables into the %in associative array

print "Content-type: text/html;\n";



if ($in{'store_id'})
{
 @store_id = split(/,/, $in{'store_id'}); 
} else {
 die;
}

@host = ("", "Shared", "VDS");
@host_type = ("", "20.00", "30.00");

$selection = "";


$cycle = 0 if ($store_id[2] == 1);
$cycle = 1 if ($store_id[2] == 6);
$cycle = 2 if ($store_id[2] == 12);
$cycle = 3 if ($store_id[2] == 24);


$hostsel = "<IMG SRC=\"assembleur/shared.gif\" WIDTH=70 HEIGHT=92 BORDER=0>" if (substr($store_id[0], 0, 1) eq "1");
$hostsel = "<IMG SRC=\"assembleur/vds.gif\" WIDTH=111 HEIGHT=92 BORDER=0>" if (substr($store_id[0], 0, 1) eq "2");

if ( substr($store_id[0], 0, 1) eq "1")
{
  @rates = (0, 0, 6.00, 4.80) if ($store_id[1] == 1);
  @rates = (0, 13, 10.00, 8.80) if ($store_id[1] == 2);
  @rates = (0, 30.00, 20.00, 18.00) if ($store_id[1] == 3);
  @rates = (0, 50.00, 40.00, 35.00) if ($store_id[1] == 4);
}


if ( substr($store_id[0], 0, 1) eq "2")
{
  @rates = (60.00, 50.00, 40.00, 35.00) if ($store_id[1] == 1);
  @rates = (100.00, 80.00, 75.00, 70.00) if ($store_id[1] == 2);
  @rates = (150.00, 120.00, 110.00, 100.00) if ($store_id[1] == 3);
  @rates = (250.00, 200.00, 190.00, 180.00) if ($store_id[1] == 4);
}




@fields = ("name", "company", "address1", "address2", "city", "postalcode", "state", "country", "email", "telephone", "fax", "handphone");

foreach $itemf (@fields)
{
 $class{$itemf} = "forma";
}



if ($in{'_verac'})
{
   $mail_msg = "";
   foreach $field (@fields)
   {
     $in{ $field } = retraitement( $in{ $field } );
     $mail_msg .= " $field => <B>$in{ $field }</B><br>" if ($in{ $field });
   }
}


if ($in{'_verac'})
{

  $notpass_ = 0;

  @req  = ("name", "address1", "postalcode", "country", "email", "telephone");

    foreach $requesite (@req)
    {
       $notpass_ = 1 if ( ! $in{ $requesite });
       $class{ $requesite } = "forma2"  if ( ! $in{ $requesite } );
   }

  if ($notpass_ == 0 )
  {  

      open (MAIL, "|/usr/sbin/sendmail -t") || 
  	&web_error("Could Not Open Mail Program");

    print MAIL <<__END_OF_MAIL__;
to: forstock\@pacific.net.sg
from: thierry\@it2000.net
subject: [CYBERLOGON] Hosting Package Request
content-type: text/html; charset=us-ascii

    <link rel=\"stylesheet\" href=\"http://www.it2000.net/inwww2/inwww-styles.css\" type=\"text/css\">

     <br><font style=\"font-size: 12px\">$mail_msg</font><br>

    <table >
    <tr><td class=selector>Hosting</td><td class=selector2>$host[ substr($store_id[0], 0, 1) ]<br></td></tr>
    <tr><td class=selector>Monthly</td><td class=selector2>S\$ $rates[$cycle]<br></td></tr>
    <tr><td class=selector>Setup Fee</td><td class=selector2>S\$ $host_type[ substr($store_id[0], 0, 1) ]<br></td></tr>
    <tr><td class=selector>Billing Cycle</td><td class=selector2>$store_id[2] months<br></td></tr>
    </table>

__END_OF_MAIL__

    close (MAIL);

    print ("Location: inwww_order_conf.acv\n\n");  

    die;
  }

}










@fields = ("Mr", "Ms", "Mrs", "Dr");
$select = "";
foreach $item (@fields)
{
 $selected = "";
 $selected = "Selected" if ($item eq $in{'designation'});
 $select .= "<option value=\"$item\" $selected>$item</option>";
}
$select_designation = $select;






@fields = ("English", "Simplified Chinese", "Traditional Chinese");
$select = "";

foreach $item (@fields)
{
 $selected = "";
 $selected = "Selected" if ($item eq $in{'preferred_language'});
 $select .= "<option value=\"$item\" $selected>$item</option>";
}
$select_preferred_language = $select;






@fields = @states;
$select = "";
foreach $item (@fields)
{
 $selected = "";
 $selected = "Selected" if ($item eq $in{'state'});
 $select .= "<option value=\"$item\" $selected>$item</option>";
}
$select_state = $select;






@fields = @countries;
$select = "";
foreach $item (@fields)
{
 $selected = "";
 $selected = "Selected" if ($item eq $in{'country'});
 $select .= "<option value=\"$item\" $selected>$item</option>";
}
$select_country = $select;





@fields = ("Place of Birth", "Favourite Food", "Mother's Maiden Name");
$select = "";
foreach $item (@fields)
{
 $selected = "";
 $selected = "Selected" if ($item eq $in{'password_question'});
 $select .= "<option value=\"$item\" $selected>$item</option>";
}
$select_password_question = $select;




$accept = "Checked" if ($in{'accept'});
$notification = "Checked" if ($in{'notification'} || ! $in{'_verac'});





$javascript = "<script type=\"text/javascript\"><!--

//-->     
</script>";


$stout  .= "<table><tr valign=top><td>";

$stout .= "<form method=post name=subscribe action=\"\">";

$stout .= "<input type=hidden name=_verac value=\"_23_76\">";
$stout .= "<input type=hidden name=store_id value=\"$in{'store_id'}\">";

$stout .= "<table>";
$stout .= "<tr><td>Name</td><td><IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0></td><td><input type=text name=\"name\" value=\"$in{'name'}\" size=60 maxlength=100 class=$class{'name'}></td></tr>";

$stout .= "<tr><td>Company</td><td></td><td><input type=text name=\"company\" value=\"$in{'company'}\" size=60 maxlength=100 class=$class{'company'}></td></tr>";

$stout .= "<tr><td rowspan=2>Address</td><td><IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0></td><td><input type=text name=\"address1\" value=\"$in{'address1'}\" size=60 maxlength=100 class=$class{'address1'}></td></tr>";

$stout .= "<tr><td></td><td><input type=text name=\"address2\" value=\"$in{'address2'}\" size=60 maxlength=100 class=$class{'address2'}></td></tr>";

$stout .= "<tr><td>City</td><td></td><td><input type=text name=\"city\" value=\"$in{'city'}\" size=40 maxlength=60 class=$class{'city'}></td></tr>";

$stout .= "<tr><td>Zip</td><td><IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0></td><td><input type=text name=\"postalcode\" value=\"$in{'postalcode'}\" size=15 maxlength=20 class=$class{'postalcode'}></td></tr>";

$stout .= "<tr><td>State</td><td></td><td><input type=text name=\"state\" value=\"$in{'state'}\" size=40 maxlength=40 class=$class{'state'}></td></tr>";

$stout .= "<tr><td>Country</td><td><IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0></td><td><input type=text name=\"country\" value=\"$in{'country'}\" size=40 maxlength=40 class=$class{'state'}></td></tr>";

$stout .= "<tr><td valign=top>Email Address</td><td><IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0></td><td><input type=text name=\"email\" value=\"$in{'email'}\" size=60 maxlength=60 class=$class{'email'}><br>";

$stout .= "</td></tr>";

$stout .= "<tr><td class=forma>Telephone</td><td><IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0></td><td class=forma><input type=text name=\"telephone\" value=\"$in{'telephone'}\" size=30 maxlength=20 class=$class{'telephone'}></td></tr>";

$stout .= "<tr><td class=forma>Fax</td><td></td><td class=forma><input type=text name=\"fax\" value=\"$in{'fax'}\" size=30 maxlength=20 class=$class{'fax'}></td></tr>";

$stout .= "<tr><td class=forma>Handphone</td><td></td><td class=forma><input type=text name=\"handphone\" value=\"$in{'handphone'}\" size=30 maxlength=20 class=$class{'handphone'}></td></tr>";


$stout .= "<tr><td colspan=2></td><td><input type=\"button\"  class=\"button\" value=\"Subscribe\" onClick=\"self.document.subscribe.submit()\"></td></tr>";


$stout .= "</table>";


# $stout .= "</td></tr></table>";


$stout .= "</form>";


$stout .= "<IMG SRC=\"assembleur/field_required.gif\" WIDTH=7 HEIGHT=17 BORDER=0 align=absmiddle> Information is required";



$stout  .= "</td><td style=\"width: 200 px; text-align: center;\">";

$stout  .= " <div class=selector><br>
                     <font class=header>YOUR SELECTION</font><br><br>
                     $hostsel<br><br>
                     <table>
                     <tr><td class=selector>Hosting</td><td class=selector2>$host[ substr($store_id[0], 0, 1) ]<br></td></tr>
                     <tr><td class=selector>Monthly</td><td class=selector2>S\$ " . decimaling($rates[$cycle]) . "<br></td></tr>
                     <tr><td class=selector>Setup Fee</td><td class=selector2>S\$ $host_type[ substr($store_id[0], 0, 1) ]<br></td></tr>
                     <tr><td class=selector>Billing Cycle</td><td class=selector2>$store_id[2] months<br></td></tr>
                     </table>
                     </div>";

$stout .= "</td></tr></table>";



print "\n";


&include("inwww-head.txt");

print "<link rel=\"stylesheet\" href=\"inwww-styles.css\" type=\"text/css\">";

print "$javascript";




&include("inwww-top.txt");

print "<table class=trame cellpadding=4 cellspacing=0>

<tr valign=top>

<td height=100 class=highlight2 style=\"background-color: #FAFAFA;\" width=25%>";

&include("inwww-order-menu.txt");

print "</td>

<td height=250 width=75%>
<div class=homehead><IMG SRC=\"icon.gif\" WIDTH=13 HEIGHT=11 BORDER=0> Hosting Order Form</div>";


print "$stout";


print "</td>

</tr>

<tr valign=top>
<td height=4 colspan=2><hr><img src=spacer.GIF height=4 width=1 border=0></td>
</tr>

</table>";



&include("inwww-bot.txt");



sub retraitement
{

  my($str) = @_;
  $str =~ s/^[ ]+//;
  $str =~ s/[ ]+$//;
  $str =~ s/[#~#]+/ /g;

  $str =~ s/^[']+/`/;
  $str =~ s/[']+$/`/;
  $str =~ s/[']+/`/g;

  return $str;

}