#!/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"};}
      }


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;}


&afiliate_form;
exit;


######################################################################
# form
######################################################################
sub afiliate_form {

@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;}

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

if ($Extras1 eq "1") {&afiliasi_t1;}
elsif ($Extras1 eq "2") {&afiliasi_t2;}
elsif ($Extras1 eq "3") {&afiliasi_t3;}
elsif ($Extras1 eq "4") {&afiliasi_t4;}
elsif ($Extras1 eq "5") {&afiliasi_t5;}
elsif ($Extras1 eq "6") {&afiliasi_t6;}
elsif ($Extras1 eq "7") {&afiliasi_t7;}
elsif ($Extras1 eq "8") {&afiliasi_t8;}
elsif ($Extras1 eq "9") {&afiliasi_t9;}
elsif ($Extras1 eq "10") {&afiliasi_t10;}

}


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;