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

&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);

$path_to_desc = "/home/sniper/public_html/milyuner.com/cgi-bin/mlounge/desc";	
$url_to_pimage = "$home/images/pimage";

$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 BINARY Username = '$user'"; 
&Do_SQL;
  while ($row = $sth->fetchrow_hashref) {
	foreach $field (@fields) {${$field} = $row->{"$field"};}
      $foundp = "yes";
      }

if (!$foundp) {&print_default("Maaf, tidak ada member PREMIUM dengan username tersebut. Silahkan diulang lagi dengan memperhatikan besar kecilnya huruf");exit;} 
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;}


###tracking 

$referer = $q->referer();
$ip = $q->remote_addr();
if ($referer eq "") {$referer = "(unknown)";}
$time = time() + 43200;

if ($referer eq "") {$referer = "(unknown)";}
if ($campaign) { $referer = "$campaign"; }

$unique++;
#if ($user) { $unique = 0; }



$SQL = "SELECT * FROM users WHERE Username LIKE '$user'";
&Do_SQL;
  
if ($sth->fetchrow_hashref && $user) {
  
  $SQL = "UPDATE mln_refres SET Total = (Total + 1), Unique_hits = (Unique_hits + $unique) WHERE Id = '$user' && Referer = '$referer'"; &Do_SQL;
  
 if(!$sth->rows) {
  $SQL = "INSERT INTO mln_refres (Date,Id,Referer,Total,Unique_hits) VALUES ('$time','$user','$referer','1','$unique')"; &Do_SQL;
  }

}


&product_form;
$sth->finish;
$dbh->disconnect;
exit;


sub read_file {

open (FILE, "$path_to_desc/$Product_file");
flock(FILE, 2);
(@product_desc) = (<FILE>);
flock(FILE, 8);
close (FILE);

  foreach $product_desc (@product_desc) {
  $desc .= $product_desc;
  }	

}


######################################################################
# form
######################################################################
sub product_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 (!$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 ($Product_file) {&read_file;}

if ($Warranty_flag) {$warranty = "<p><B>GARANSI 30 HARI UANG KEMBALI !!!</B></p>
        <P><IMG height=117 src=\"$url_to_images/guarantee-30-day-2.gif\" width=130></P>
        <P>Ya, jika Anda tidak puas dengan informasi yang ada pada buku ini, <B>Anda bisa meminta kembali uang Anda 100\% dalam 30 hari. </B>Kami menjamin kepuasan Anda dengan memberikan kembali seluruh uang Anda bila ternyata Anda merasa tidak puas, jadi <B>Anda tidak mempunyai resiko sama sekali !!!<br>
            <a href=\"mailto:$Nama <$Email>?subject=Informasi Garansi\">Klik disini untuk meminta informasi garansi</a></B></P>
        <P></p>";}

#
#product image limitation 140x140 max 10Kb
#

#if ($Url_image eq "default.gif") {$product_img = "<img src=\"$url_to_pimage/kmsreport.jpg\" align=\"left\">";}
#elsif (!$Url_image) {$product_img = "";} else {$product_img = "<img src=\"$url_to_pimage/$Url_image\" align=\"left\">";}
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";}

print $q->header;

if (!$Extras1) {&template1;}

if ($Extras1 eq "1") {&template1;}
elsif ($Extras1 eq "2") {&template2;}
elsif ($Extras1 eq "3") {&template3;}
elsif ($Extras1 eq "4") {&template4;}
elsif ($Extras1 eq "5") {&template5;}
elsif ($Extras1 eq "6") {&template6;}
elsif ($Extras1 eq "7") {&template7;}
elsif ($Extras1 eq "8") {&template8;}
elsif ($Extras1 eq "9") {&template9;}
elsif ($Extras1 eq "10") {&template10;}


}


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

sub date {

$time = time() + 43200;

    ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
	$month = $mon + 1;
    $year = $year + 1900;
}


1;