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

@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";
$var_payconfirm = "payconfirm.cgi?user=$user";
$reseller = $user;
$new_seller = "user";
$seller = "$user";
$via_reseller = 0;



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

      $user = $row->{"Id"}; 
      $Email_res = $row->{"Remail"}; 
      $Nama_res = $row->{"Rname"};
      $Rbankname = $row->{"Rbankname"};
      $Raccname = $row->{"Raccname"};
      $RRaccno = $row->{"Raccno"};
}

$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";
$var_payconfirm = "payconfirm.cgi?id=$user";
$reseller = $id;
$new_seller = "id";
$seller = "$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"};}
      }

$owner_seller = "$Nama
$Alamat1 $Kota $Propinsi
$Kodepos
Telp. $Telepon";


@chars = ( 0 .. 9 );
$order_id = join '', map $chars[ rand @chars ], 1 .. 10;


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

$pay_to_owner = "Rp $Product_price";

if ($id && $Resell_flag == 1) {

$via_reseller = 1;
$SQL = "SELECT * FROM mln_ressetting WHERE Id = '$user'"; 
&Do_SQL;
	while ($pointer = $sth->fetchrow_hashref){
             $owner = $pointer->{"Id"};     
             $Mprice = $pointer->{"Mprice"};     
             $Mshare = $pointer->{"Mshare"};     
             $Mproduct = $pointer->{"Mproduct"};     
             $Mproductlink = $pointer->{"Mproductlink"};     
             $Mproductdel = $pointer->{"Mproductdel"};   
      }

($owner_profit,$res_profit) = split (/\|/, $Mshare);

$tt_to_owner = $owner_profit*$Mprice;
$pay_to_owner = "Rp $tt_to_owner";

$tt_to_reseller = $res_profit*$Mprice;

$res_payment_info = "DAN 

Membayar sebanyak : Rp $tt_to_reseller ke

Nama Bank         : $Rbankname
No. Rekening      : $RRaccno 
Nama di rekening  : $Raccname";

$res_email = " dan $Email_res";

}



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 "ORDER") {

&check_form;
&send_order_to_owner; 
&send_thanks;
if ($Resell_flag eq "1") {&send_order_to_reseller;}
exit;

}

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

	if (!$tKota) 
	{ &print_default("Anda belum menyebutkan kota"); exit;} 
	
	if (!$tTelepon) 
	{ &print_default("Anda belum menyebutkan telepon"); exit;} 

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

	#if (!$tTerm) 
	#{ &print_default("Anda belum membaca SYARAT & KONDISI pemesanan"); exit;} 

#  until ($stop_until eq "STOP") {
#	$SQL = "SELECT * FROM mln_reseller WHERE Rid1 = '$reseller_id'"; 
#      &Do_SQL;
#	if ($sth->rows) {$found_id = "yes"; @charuser = ( 0 .. 9, "a" .. "z");
#                       $reseller_id = join '', map $charuser[ rand @chars ], 1 .. 8;
#                      } 
#       if ($found_id ne "yes") {$stop_until = "STOP";}
#        }

@charuser = ( 0 .. 9, "a" .. "z");
$reseller_id = join '', map $charuser[ rand @charuser ], 1 .. 8;

@charpass = ("A" .. "Z", "a" .. "z", 0 .. 9);
$reseller_pass = join '', map $charpass[ rand @charpass ], 1 .. 6;

$stat = "PENDING";
$SQL = "INSERT INTO mln_reseller (Year,Month,Day,Id,Rid1,Rid2,Rname,Remail,Rpassword,Rcid,Raddress,Rcity,Rstate,Rzip,Rphone,Rbankname,Raccname,Raccno,Rstatus) VALUES('$year','$month','$day','$user','$reseller_id','$tReseller','$tNama','$tEmail','$reseller_pass','$Rcid','$tAlamat','$tKota','$tPropinsi','$tKodepos','$tTelepon','$Rbankname','$Raccname','$Raccno','$stat')";
&Do_SQL;


}


######################################################################
# form
######################################################################
sub order_form {
print $q->header;

if (!$Extras1) {&order_t1;}

if ($Extras1 eq "1") {&order_t1;}
elsif ($Extras1 eq "2") {&order_t2;}
elsif ($Extras1 eq "3") {&order_t3;}
elsif ($Extras1 eq "4") {&order_t4;}
elsif ($Extras1 eq "5") {&order_t5;}
elsif ($Extras1 eq "6") {&order_t6;}
elsif ($Extras1 eq "7") {&order_t7;}
elsif ($Extras1 eq "8") {&order_t8;}
elsif ($Extras1 eq "9") {&order_t9;}
elsif ($Extras1 eq "10") {&order_t10;}

}

#
#<p><input name="tTerm" type="checkbox" id="tTerm" value="checkbox">Saya telah membaca <a href="$home/tterm.htm" target="_blank">SYARAT &amp; KONDISI</a> pemesanan</p>
#

##################################
sub send_order_to_owner {

$message = "Berikut ini detil order dari halaman web bisnis $Title di MILYUNER.COM:

Order #Id     : $order_id
Nama pemesan  : $tNama
Email pemesan : $tEmail
Alamat        : $tAlamat $tKota $tPropinsi $tKodepos
                Telp. $tTelepon

Ia melakukan pemesanan produk/jasa :

$judul
Harga : $harga_produk

Informasi pembayaran telah dikirimkan kepadanya dengan informasi sebagai berikut :


Membayar sebanyak : $pay_to_owner ke 

Nama Bank         : $Nama_bank
No. Rekening      : $Nomor_rekening
Nama di rekening  : $Nama_direkening

$res_payment_info

Jika perlu, $Title bisa melakukan follow up dengan langsung menghubunginya, atau menunggu ia melakukan pembayaran

NOTE: Email ini terkirim secara otomatis dari FORM ORDER di web bisnis milik $Title

Regards
MILYUNER.COM";

open (MAIL, "|$mailprog -oi -t") || die "Can't open $mailprog!\n";
print MAIL<<EOF;
To: $Nama <$Email>
Subject: Order baru dari web bisnis Anda
From: $tNama <$tEmail>

$message
EOF
close (MAIL);

$message = ""; 
}


sub send_order_to_reseller {

$message = "Berikut ini detil order dari program reseller Anda :

Order #Id     : $order_id
Nama pemesan  : $tNama
Email pemesan : $tEmail
Alamat        : $tAlamat $tKota $tPropinsi $tKodepos
                Telp. $tTelepon

Ia melakukan pemesanan produk/jasa :

$judul
Harga : $harga_produk

Informasi pembayaran telah dikirimkan kepadanya dengan informasi sebagai berikut :


Membayar sebanyak : $pay_to_owner ke 

Nama Bank         : $Nama_bank
No. Rekening      : $Nomor_rekening
Nama di rekening  : $Nama_direkening

$res_payment_info

Jika perlu, Anda bisa melakukan follow up dengan langsung menghubunginya, atau menunggu ia melakukan pembayaran.
Setelah Anda menerima pembayaran, Anda bisa memberikan akses produk kepadanya di RESELLER AREA Anda.


Regards
$Nama
$Email";

open (MAIL, "|$mailprog -oi -t") || die "Can't open $mailprog!\n";
print MAIL<<EOF;
To: $Nama_res <$Email_res>
Subject: Order baru dari reseller program Anda
From: $tNama <$tEmail>

$message
EOF
close (MAIL);

}


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

$message = "Yth $tNama,

Pemesanan Anda terhadap produk/jasa : $judul telah diterima. Berikut ini adalah detil informasi pemesanan Anda :

Order \#Id   : $order_id
Produk\/jasa : $judul
Harga       : $harga_produk

Silahkan lakukan pembayaran atas produk/jasa yang telah Anda pesan dengan informasi pembayaran sebagai berikut :

Membayar sebanyak : $pay_to_owner ke 

Nama Bank         : $Nama_bank
No. Rekening      : $Nomor_rekening
Nama di rekening  : $Nama_direkening

$res_payment_info

Silahkan tambahkan 2 atau 3 digit unik ( contoh : 100.123 jika harga produk adalah Rp 100.000 , dimana angka 123 adalah 3 digit unik milik Anda) untuk membedakan pembayaran yang Anda lakukan (memudahkan kami untuk melakukan identifikasi pembayaran yang telah Anda lakukan). 
Setelah melakukan pembayaran, mohon untuk mengkonfirmasikannya dengan menghubungi via email ke $Email $res_email
dengan format konfirmasi sbb:


subject : Konfirmasi pembayaran \#Order ID
===================
Tanggal Order:
ORDER ID :
NAMA PRODUK :

Tanggal Transfer :
Jumlah Transfer :
Rekening tujuan transfer \(no. rekening \& nama di rekening\) :
Metode pembayaran : \(ATM\\Internet Banking\\Setor Tunai\\dll\)
Rekening yang digunakan transfer : \(Nama dan no rekening\)
======================================

Segera setelah kami menerima kebernaran konfirmasi pembayaran tersebut, produk yang Anda order akan kami kirimkan.

Regards
$Nama";

open (MAIL, "|$mailprog -oi -t") || die "Can't open $mailprog!\n";
print MAIL<<EOF;
To: $tNama <$tEmail>
Subject: Pemesanan Anda: Order Id. \#$order_id
From: $Nama <$Email>
$message
EOF
close (MAIL);


print $q->header;

if ($Extras1 eq "1") {&orderthanks_t1;}
if ($Extras1 eq "2") {&orderthanks_t2;}
if ($Extras1 eq "3") {&orderthanks_t3;}
if ($Extras1 eq "4") {&orderthanks_t4;}
if ($Extras1 eq "5") {&orderthanks_t5;}
if ($Extras1 eq "6") {&orderthanks_t6;}
if ($Extras1 eq "7") {&orderthanks_t7;}
if ($Extras1 eq "8") {&orderthanks_t8;}
if ($Extras1 eq "9") {&orderthanks_t9;}
if ($Extras1 eq "10") {&orderthanks_t10;}

if (!$Extras1) {&orderthanks_t1;}

exit;

}


############################## CALCULATE DATE
sub date {
    ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
    $month = $mon + 1;
    $year = $year + 1900;
}

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;