#!/usr/local/bin/perl
  
use Time::Local; 
use File::Find;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw (:standard);
$q = new CGI;

foreach ($q->param) {${$_} = $q->param($_); ${$_} =~ s/\;//ig;}

require "/home/sniper/public_html/milyuner.com/cgi-bin/mlounge/config.cgi";
require "/home/sniper/public_html/milyuner.com/cgi-bin/mlounge/common.cgi";
require "/home/sniper/public_html/milyuner.com/cgi-bin/mlounge/mytemplate.cgi";

$url_to_pimage = "$home/images/pimage";


&Create_DB_Connection;
$time = time() + 43200; 


@fields = (Year,Month,Day,Sponsor,Status,Tier,Username,Password,Email,Title,Nama,Alamat1,Alamat2,Kota,Propinsi,Kodepos,Negara,Telepon,Nama_bank,Nomor_rekening,Nama_direkening,Identitas,Terms,Kaki1,Flagdel,OptOut,SuspendEmail,original_sponsor,Premium,Pre1,Pre2,Pre3,Pre4,DirectS,IndirectS);

$var_main = "p.cgi?user=$user";
$var_order = "order.cgi?user=$user";
$var_contact = "contact.cgi?user=$user";
$var_afiliasi = "afiliasi.cgi?user=$user";
$var_resell = "resell.cgi?user=$user";


if ($id) {
$SQL = "SELECT * FROM mln_reseller WHERE Rid1 = '$id'"; 
&Do_SQL;
while ($row = $sth->fetchrow_hashref) {$user = $row->{"Id"}; }

$var_main = "p.cgi?id=$id";
$var_order = "order.cgi?id=$id";
$var_contact = "contact.cgi?id=$id";
$var_afiliasi = "afiliasi.cgi?id=$id";
$var_resell = "resell.cgi?id=$id";
}

if (!$user) {$user = "VCP"}


$SQL = "SELECT * FROM users WHERE Username = '$user'"; 
&Do_SQL;
  while ($row = $sth->fetchrow_hashref) {
	foreach $field (@fields) {${$field} = $row->{"$field"};}
      }

$contact_detail = "<div align=\"center\"><p class=\"qbox\"><strong><u>$Nama</u></strong><br>$Alamat1<br>$Kota $Propinsi $Kodepos<br>Telp. $Telepon</p></div>";


if ($Status =~ /VALIDATED/ig) {&print_default("Anggota ini belum melakukan proses validasi.");exit;} #modiv to trial member
elsif ($Flagdel == 1) {&print_default("Maaf, keanggotaan anda sedang di block. Silahkan hubungi admin\@milyuner.com");exit;}
elsif ($Premium) {&print_default("Maaf, fasilitas ini hanya untuk MEMBER PREMIUM");exit;}


@fieldbiz = (Title_name,Url_image,Heading,Subheading,Product_file,Warranty_flag,Info_flag,Contact_flag,Order_flag,Affiliate_flag,Bizdir_flag,Resell_flag,Product_price,Extras1,Extras2);

$SQL = "SELECT * FROM mln_bizweb WHERE Id = '$user'"; 
&Do_SQL;
  while ($row = $sth->fetchrow_hashref) {
	foreach $fieldbiz (@fieldbiz) {${$fieldbiz} = $row->{"$fieldbiz"};}
      }

if ($Url_image eq "default.gif") {$product_img = "$url_to_pimage/kmsreport.jpg";}
elsif (!$Url_image) {$product_img = "$url_to_pimage/kmsreport.jpg";} else {$product_img = "$url_to_pimage/$Url_image";}


if (!$Extras1) {&link_t1;}

if ($Extras1 eq "1") {&link_t1;}
elsif ($Extras1 eq "2") {&link_t2;}
elsif ($Extras1 eq "3") {&link_t3;}
elsif ($Extras1 eq "4") {&link_t4;}
elsif ($Extras1 eq "5") {&link_t5;}
elsif ($Extras1 eq "6") {&link_t6;}
elsif ($Extras1 eq "7") {&link_t7;}
elsif ($Extras1 eq "8") {&link_t8;}
elsif ($Extras1 eq "9") {&link_t9;}
elsif ($Extras1 eq "10") {&link_t10;}

if ($action eq "KIRIM PERTANYAAN") {

&check_form;
&send_contact; 
&send_thanks;
exit;

}

&contact_form;
exit;

sub check_form {

	if (!$tNama) 
	{ &print_default("Anda belum menyebutkan nama"); exit;} 

	if (!$tEmail) 
	{ &print_default("Anda belum menyebutkan alamat email"); exit;} 

	if ($tEmail !~ /^[\w\-\.]+\@[\w\-]+\.[\w\-\.]+\w$/) 
	{ &print_default("Format Email tidak valid"); exit;} 

}


######################################################################
# form
######################################################################
sub contact_form {

print $q->header;
if (!$Extras1) {&contact_t1;}

if ($Extras1 eq "1") {&contact_t1;}
elsif ($Extras1 eq "2") {&contact_t2;}
elsif ($Extras1 eq "3") {&contact_t3;}
elsif ($Extras1 eq "4") {&contact_t4;}
elsif ($Extras1 eq "5") {&contact_t5;}
elsif ($Extras1 eq "6") {&contact_t6;}
elsif ($Extras1 eq "7") {&contact_t7;}
elsif ($Extras1 eq "8") {&contact_t8;}
elsif ($Extras1 eq "9") {&contact_t9;}
elsif ($Extras1 eq "10") {&contact_t10;}

}

################################## EMAIL ADMINISTRATOR
sub send_contact {

$message = "Berikut ini pertanyaan yang diajukan pengunjung dari halaman web bisnis $Title di MILYUNER.COM:

$tPertanyaan";

if ($smtphost) {
$smtp = Net::SMTP->new($smtphost); 
$smtp->mail($tEmail); 
$smtp->to($Email); 
$smtp->data(); 
$smtp->datasend("From: $tNama <$tEmail>\n"); 
$smtp->datasend("To: $Nama <$Email>\n"); 
$smtp->datasend("Subject: Pertanyaan dari web bisnis\n");
$smtp->datasend("\n");  
$smtp->datasend("$message\n\n"); 
$smtp->dataend(); 
$smtp->quit(); 
} else {
open (MAIL, "|$mailprog -oi -t") || die "Can't open $mailprog!\n";
print MAIL<<EOF;
To: $Nama <$Email>
Subject: Pertanyaan dari web bisnis
From: $tNama <$tEmail>

$message
EOF
close (MAIL);
}

$message = ""; 
}


################################## THANKS EMAIL
sub send_thanks {

print $q->header;

if (!$Extras1) {&contactthanks_t1;}

if ($Extras1 eq "1") {&contactthanks_t1;}
elsif ($Extras1 eq "2") {&contactthanks_t2;}
elsif ($Extras1 eq "3") {&contactthanks_t3;}
elsif ($Extras1 eq "4") {&contactthanks_t4;}
elsif ($Extras1 eq "5") {&contactthanks_t5;}
elsif ($Extras1 eq "6") {&contactthanks_t6;}
elsif ($Extras1 eq "7") {&contactthanks_t7;}
elsif ($Extras1 eq "8") {&contactthanks_t8;}
elsif ($Extras1 eq "9") {&contactthanks_t9;}
elsif ($Extras1 eq "10") {&contactthanks_t10;}

exit;


}



sub print_default {
print $q->header;
print<<EOF;
<FONT FACE=Verdana SIZE=2><b>$_[0]</b></FONT><BR><HR WIDTH=50%>
<P><FONT FACE=Verdana SIZE=2><a onMouseOver="window.status='MILYUNER.COM'; return true;" href=m.cgi?id=$user>K E M B A L I</A></FONT>
EOF
exit;
}


1;