#!/usr/local/bin/php
<?php

include_once($HTTP_SERVER_VARS["DOCUMENT_ROOT"]."/le_admin/commonvar.inc");
 
#######################################################################################
# SETUP PARAMETER
#######################################################################################
$LE["ORG_NAME"]= $var["admin_name"];
$LE["EMAIL_ADMIN"] = $var["admin_mail"];
$LE["LINK"] = $var["admin_link"];
$LE["LOGO"] = $var["image_logo"];
$LE["TITLE_WEB"] = $var["title_web"];
#######################################################################################
$LE["ROWS_PER_PAGE"] = 60;
$LE["EMAIL_NAME"] = $LE["ORG_NAME"];
$LE["TITLE"] = $LE["ORG_NAME"]." : Link Exchange";
$LE["LINK_DESC"] = $var["admin_desc"];
#######################################################################################

	session_cache_limiter('');
	$tmp = str_replace(".htm","",$PATH_INFO);
	$arg = explode("/",$tmp);
	$gmode = trim(strtolower($arg[1]));

	if ($gmode==""){$gmode = "index";}
	$ST = a_s($HTTP_POST_VARS["Search_Link"]); if ($ST==""){$ST = a_s($HTTP_GET_VARS["t"]);}

	if ($gmode=="search" && $ST!=""){
		$JD = "<b>Search for</b> <I>$ST</I>"; 
		$LE["TITLE"] .= " - Search for $ST";
		$output .= Module_Search();
	}elseif(strlen($gmode)==1){
		$JD = "<b>Alphabetical Order </b><I>".strtoupper($gmode)."</I>\n";
		$LE["TITLE"] .= " - View Alphabetical Order ".strtoupper($gmode);
		$output .= Module_Alphabet();
	}elseif($gmode=="add"){
		$JD = "<b>Submit Link Exchange</b>";
		$LE["TITLE"] .= " - Submit Your Link";
		$output .= Module_Add();
	}else{
		$JD = "<b>Last 60 Links Exchange</b>";
		$LE["TITLE"] .= " - View Last 60 Links Exchange";
		$output .= Module_Index();
	}
	$JD = "<font size=3><a href=\"$SCRIPT_NAME/index.htm\" title=\"Link Exchange Main Page\"><b>Top</b></a> : \n$JD</font>\n";
	echo HTML_header(); 
	echo $output;
	echo get_link_footer(false); 
	echo HTML_footer();

#######################################################################################
# FUNCTION - FUNCTION
#######################################################################################
function Module_Search(){
global $LE;
global $ST;
global $SCRIPT_NAME;
global $arg, $L_screen, $L_pages;

	//$sqlE  = "SELECT DISTINCT le.id AS 'LEID', le.* FROM link_exchange le, link_owner lo WHERE le.id = lo.link_id AND le.archive='N' AND lo.owner= {$LE["CLIENT"]} ";
 	//$sqlE .= "AND (le.title LIKE '%".a_s($ST)."%' OR le.link LIKE '%".a_s($ST)."%' OR le.msg LIKE '%".a_s($ST)."%') ORDER BY le.title ASC ";
	$sqlE  = "SELECT * FROM client WHERE le_title LIKE '%".a_s($ST)."%' OR domain LIKE '%".a_s($ST)."%' OR le_desc LIKE '%".a_s($ST)."%' ORDER BY le_title ASC ";
	
	if ($L_screen == ""){$L_screen = $arg[2]; $L_pages = $arg[3];}
	if ($L_screen == "") {
		$L_screen = 0;
		$result = open_mysql ("u3709_link", $sqlE);
		$rows = mysql_num_rows($result);
		$L_pages = ceil($rows / $LE["ROWS_PER_PAGE"]);
		$result = open_mysql("close");
	}
	
	$out .= BOX_open();
	$out .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"10\">\n";
	if ($L_pages>0){
		$start = $L_screen * $LE["ROWS_PER_PAGE"];
		$sqlE .= " LIMIT $start, {$LE["ROWS_PER_PAGE"]} "; 
		$URL  = "{$SCRIPT_NAME}/search"; 
		$hasil = open_mysql ("u3709_link", $sqlE); open_mysql ("close");
		while ($line = mysql_fetch_array($hasil, MYSQL_ASSOC)){
			$out .= "<tr><td align=\"left\" valign=\"top\">\n";
			$out .= "<a href=\"http://".s_s($line["domain"])."\" target=\"_blank\"><b>".s_s($line["le_title"])."</b></a><br>\n";
			if (s_s($line["le_desc"])!=""){
				$out .= smooth_cutter(s_s($line["le_desc"]),250)."<br>";
			}
			$out .= "URL: <font color=#123181>http://".s_s($line["domain"])."</font>";
			$out .= "</td></tr>\n"; 
		}
		$out .= "<tr><td>".LE_Navigator_Slash($URL,$L_screen,$L_pages,$ST)."</td></tr>\n"; 
	}else{
		$out .=  "<tr><td><br>";
		$out .=  "Sorry, your search did not match to any data.<br>";
		$out .=  "Please try another search.<br>";			
		$out .=  "</td></tr>\n"; 
	}
	$out .= "</table>\n";
	$out .= BOX_close();
	return $out;
}

function Module_Index(){
global $LE;
	//$sqlE  = "SELECT DISTINCT le.id AS 'LEID', le.* FROM link_exchange le, link_owner lo WHERE le.id = lo.link_id AND le.archive='N' AND lo.owner= {$LE["CLIENT"]} ORDER BY created DESC LIMIT 0,30";
	$sqlE  = "SELECT le_title,le_desc,domain FROM client ORDER BY id DESC LIMIT 0,30";
	$hasil = open_mysql ("u3709_link", $sqlE); 
	$tot = (mysql_num_rows($hasil)/2); 
	open_mysql ("close");

	$out .= BOX_open();
	$out .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"10\">\n";
	while ($line = mysql_fetch_array($hasil, MYSQL_ASSOC)){
		$out .= "<tr><td align=\"left\" valign=\"top\">\n";
		$out .= "<a href=\"http://".s_s($line["domain"])."\" target=\"_blank\"><b>".s_s($line["le_title"])."</b></a><br>\n";
		if (s_s($line["le_desc"])!=""){
			$out .= smooth_cutter(s_s($line["le_desc"]),250)."<br>";
		}
		$out .= "URL: <font color=#123181>http://".s_s($line["domain"])."</font>";
		$out .= "</td></tr>\n"; 
	}
	$out .= "</table>\n";
	$out .= BOX_close();
	return $out;
}

function Module_Alphabet(){
global $LE;
global $SCRIPT_NAME;
global $arg, $L_screen, $L_pages;

	$out .= BOX_open();
	$out .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"10\">\n";

	//$sqlE  = "SELECT DISTINCT le.id AS 'LEID', le.* FROM link_exchange le, link_owner lo WHERE le.id = lo.link_id AND le.archive='N' AND lo.owner= {$LE["CLIENT"]} AND le.title LIKE '{$arg[1]}%' ORDER BY le.id ASC ";
	$sqlE  = "SELECT * FROM client WHERE le_title LIKE '{$arg[1]}%' ORDER BY id ASC ";
	if ($L_screen == ""){$L_screen = $arg[2]; $L_pages = $arg[3];}
	if ($L_screen == "") {
		$L_screen = 0;
		$result = open_mysql ("u3709_link", $sqlE);
		$rows = mysql_num_rows($result);
		$L_pages = ceil($rows / $LE["ROWS_PER_PAGE"]);
		$result = open_mysql("close");
	}

	$out .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"10\">\n";
	if ($L_pages>0){
		$start = $L_screen * $LE["ROWS_PER_PAGE"];
		$sqlE .= " LIMIT $start, {$LE["ROWS_PER_PAGE"]} "; 
		$URL  = "{$SCRIPT_NAME}/{$arg[1]}"; 
		$hasil = open_mysql ("u3709_link", $sqlE); open_mysql ("close");
		while ($line = mysql_fetch_array($hasil, MYSQL_ASSOC)){
			$out .= "<tr><td align=\"left\" valign=\"top\">\n";
			$out .= "<a href=\"http://".s_s($line["domain"])."\" target=\"_blank\"><b>".s_s($line["le_title"])."</b></a><br>\n";
			if (s_s($line["le_desc"])!=""){
				$out .= smooth_cutter(s_s($line["le_desc"]),250)."<br>";
			}
			$out .= "URL: <font color=#123181>http://".s_s($line["domain"])."</font>";
			$out .= "</td></tr>\n"; 
		}
		$out .= "<tr><td>".LE_Navigator_Slash($URL,$L_screen,$L_pages,$ST)."</td></tr>\n"; 
	}
	$out .= "</table>\n";
	$out .= BOX_close();
	return $out;
}

function Module_Add(){
global $LE;
global $SCRIPT_NAME;
global $HTTP_POST_VARS;
	
	if($LE["LINK_TITLE"]==""){$LE["LINK_TITLE"] = $LE["ORG_NAME"];}
	if($LE["LINK_DESC"]==""){$LE["LINK_DESC"] = $LE["DESCRIPTION"];}

$form = <<<EOT
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="100%"> 
      <p><strong>How to link your web site to www.kusumasarivilla.com?<br>
        <br>
        </strong>Please fill in the following form and your link will be instantly 
        on our page. <br>
        We will not exchange links with &quot;adult&quot; sites or sites which 
        promote illegal or unethical acts, or not related to travel industry. 
        <br>
        We will put your link at {$LE["LINK"]}/linkexchange/@.htm (where @ is 
        the first character of your page title). <br>
        Please note that once we have verified our link (see below) is not displayed 
        on your site within 1 week, we will remove your link in our page. <br>
      
      <form name="form_contact" method="post" action="{$SCRIPT_NAME}/add.htm">
        <table width="554" border="1" cellpadding="2" cellspacing="0" bordercolor="#E2E0DA">
          <tr bgcolor="#999999" align="center"> 
            <td colspan="2" height="25"><b>Link Exchange Form</b></td>
          </tr>
          <tr> 
            <td width="297">Complete domain name without &quot; http:// &quot; 
              <br>
              (ex: <strong>www.xxx.com</strong>) <font color="#CC3300">*<br>
              </font></td>
            <td width="243"> <input type="text" name="domain" size="40" maxlength="100"> 
            </td>
          </tr>
          <tr> 
            <td>Your Email<font color="#CC3300">*</font></td>
            <td> <input type="text" name="email" size="40" maxlength="40"> 
            </td>
          </tr>
          <tr> 
            <td>Your Page Title<font color="#CC3300">*</font></td>
            <td> <input type="text" name="le_title" size="40" maxlength="100"> 
            </td>
          </tr>
          <tr> 
            <td valign="top">Page Description<br>
              (300 chars max)</td>
            <td> <textarea name="le_desc" cols="40"></textarea> </td>
          </tr>
          <tr> 
            <td valign="top">In which exact page do you put our link <br>
              (ex. <strong>http://www.xxx.com/links.htm</strong>)<font color="#CC3300">*</font><br> 
            </td>
            <td valign="top"> <input type="text" name="partner_links" size="40" maxlength="200"> 
            </td>
          </tr>
          
          <tr align="center"> 
            <td colspan="2"> Required field(<font color="#CC3300">*</font>) 
              <input type="submit" name="SubmitIT" value="Submit"> </td>
          </tr>
        </table>
      </form>
      <br>
      <p><b>How to link www.kusumasarivilla.com to your web site?</b><br>
        <br>
        It's easy, please use the following information:</p>
      <p>Title : {$LE["TITLE_WEB"]}<br>
        URL : <a href="{$LE["LINK"]}">{$LE["LINK"]}</a><br>
        Description :<br>{$LE["LINK_DESC"]}
	  </p>
    </td>
  </tr>
</table><br><br>
EOT;
	$out = "";
	if ($HTTP_POST_VARS["SubmitIT"]!="Submit"){
		$out .= BOX_open();
		$out .= $form;
		$out .= BOX_close();
	}else{
		$out .= BOX_open();
		$out .= process_submit_form($HTTP_POST_VARS);
		$out .= BOX_close();
	}
	return $out;
}

function get_client_detail($ID){
global $LE;
	if ($ID+0==0){die("No Client-ID");}
	$sql = "SELECT * FROM client WHERE id=$ID";
	$hasil = open_mysql ("u3709_link", $sql); open_mysql ("close");
	$ln = mysql_fetch_array($hasil, MYSQL_ASSOC);
	$LE["ORG_ID"] = $ln["org_id"];
	$LE["DOMAIN"] = s_s($ln["domain"]);
	$LE["DOMAIN_TITLE"] = s_s($ln["title"]);
	if (substr($LE["DOMAIN"],-1)=="/"){$LE["DOMAIN"] = substr($LE["DOMAIN"],0,-1);}
	$LE["LINK_TITLE"] = s_s($ln["le_title"]);
	$LE["LINK_DESC"] = s_s($ln["le_desc"]);
}

function get_search_form(){
global $LE;
global $ST;
global $JD;
global $SCRIPT_NAME;
	$out = "<form name=\"form_search_link\" method=\"post\" action=\"{$SCRIPT_NAME}/search.htm\">
		    <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
			  <td align=\"left\" valign=\"middle\">{$JD}</td>\n
			  <td align=\"right\" valign=\"top\">\n 
				Total {$LE["TOT_LINK"]} links | <a href=\"/linkexchange/add.htm\"><font asize=\"-2\">Submit Link Exchange</font></a><br>\n
				<input type=\"text\" name=\"Search_Link\" size=\"30\" value=\"{$ST}\">\n
				<input type=\"submit\" name=\"Submit_Find_Link\" value=\"Find\"><br>\n
				Search for title, url or link description
			  </td></tr></table></form>\n";
	$out .= line();
	return $out;
}

function get_org_header(){
	global $LE;
	
	$index = "[<a href=\"/\">Index Page</a>]\n";
	$out = "";
	return $out.line();
}

function get_alphabet_list(){
	global $LE;
	global $SCRIPT_NAME;
	
	$sqlE  = "SELECT LEFT(LTRIM(le_title),1) AS 'huruf', count(*) AS 'qty'  FROM client GROUP BY 1 ORDER BY 1 ASC ";
	$hasil = open_mysql ("u3709_link", $sqlE); open_mysql ("close");
	$out = "<b>Alphabetical List:</b><br>";
	while ($line = mysql_fetch_array($hasil, MYSQL_ASSOC)){
		$url = "{$SCRIPT_NAME}/".strtolower($line["huruf"]).".htm"; 
		if ($line["qty"]+0>1){
			$alt = "There are ".$line["qty"]." links here";
		}else{
			$alt = "There is ".$line["qty"]." link here";
		}
		$out .= "<a href=\"$url\" style=\"text-decoration: none\" title=\"$alt\"><b>".strtoupper($line["huruf"])."</b></a> - ";	  
		$TOT_LINK += $line["qty"];
	}
	$LE["TOT_LINK"] = $TOT_LINK;
	$out = substr($out,0,-2);
	return line().$out;
}

function get_link_footer($add_alpha=true){
	$out .= BOX_open();
	$out .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"10\">\n";
	$out .= "<tr><td align=\"left\" valign=\"top\">\n";
	$out .= "<a href=\"http://www.balibagus.com\" target=\"_blank\"><b>Bali Hotel and Villa Reservations</b></a><br>\n";
	$out .= "BaliBagus.com Reservation directory for any type of hotels, villas and accommodation in Bali. Search your hotel, get the special rates and book, Simple and Fast!<br>";
	$out .= "URL: <font color=#123181>http://www.balibagus.com</font><p>";
	$out .= "<a href=\"http://www.kusumasarivilla.com\" target=\"_blank\"><b>Kusuma Sari Villa and Spa Bali</b></a><br>\n";
	$out .= "  Nestled on a hillside rice paddy and bounded by the river Bembeng, the Villa Kusuma Sari was recently completed to international standards outside a quiet historic Hindu town.<br>";
	$out .= "URL: <font color=#123181>http://www.kusumasarivilla.com</font>";
	$out .= "</td></tr>\n";  
	$out .= "</table>\n";
	$out .= BOX_close($add_alpha);
	return $out;
}

function HTML_header(){
global $LE;
global $JD;
$form = get_search_form();
$org_header = get_org_header();
$out = <<<EOT
	<html>
<head>
<title>{$LE["TITLE"]}</title>
<META NAME="description" CONTENT="{$LE["DESCRIPTION"]}">
<META NAME="keywords" CONTENT="{$LE["KEYWORD"]}">
<META NAME="Rating" CONTENT="General">
<META NAME="ROBOTS" CONTENT="INDEX,FOLLOW">
<META NAME="revisit-after" CONTENT="7 Days">
<META NAME="copyright" CONTENT="{$LE["DOMAIN_TITLE"]}">
<META NAME="distribution" CONTENT="global">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<style>
		TD{font:8pt verdana;}
		INPUT{font:8pt verdana;}
	</style>
</head>
<table width=780 border=0 cellpadding=0 cellspacing=0 align="center">
  <tr> 
    <td valign="top"> 
      <div align="right"><img src="http://www.kusumasarivilla.com/images/pic/link-header.jpg" width="780" height="85"></div>
    </td>
  </tr>
  <tr valign="bottom"> 
    <td> 
      <div align="center" class="verdana9point"><a href="http://www.kusumasarivilla.com"> 
        home</a> | <a href="http://www.kusumasarivilla.com/about-us.html">about 
        us</a> | <a href="http://www.kusumasarivilla.com/room-rates.html">room 
        and rates</a> | <a href="http://www.kusumasarivilla.com/promotions.html">promotions</a> 
        | <a href="http://www.kusumasarivilla.com/accommodation.html">accommodation</a> 
        | <a href="http://www.kusumasarivilla.com/services-facilities.html">services and facilities</a> 
        | <a href="http://www.kusumasarivilla.com/reservation.html">reservation</a> 
        | <a href="http://www.kusumasarivilla.com/pic-gallery.html">picture gallery</a> 
        | <a href="http://www.kusumasarivilla.com/contact-us.hrml">contact us</a> 
      </div>
    </td>
  </tr>
  <tr> 
    <td><img src="images/bali-hotel-line.jpg" width="760" height="1"></td>
  </tr>
</table>
	<table width="780" border="0" cellspacing="0" cellpadding="2" align="center">
	  <tr> 
		<td awidth="" valign="top"></td>
		<td awidth="" valign="top">
		{$org_header}{$form}
EOT;
return $out;
}

function HTML_footer(){
global $LE;
$out = <<<EOT
		</td> 
	   </tr>
	</table>
	<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td><img src="http://www.jiwatman.com/images/bali-hotel-line.jpg" width="780" height="1"></td>
  </tr>
</table>
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td class="verdana8point" valign="top"> 
      <p align="center">&copy; Copyright <a href="http://www.kusumasarivilla.com" target="_blank">KusumaSariVilla.com</a> 
        2005, All rights reserved.</p>
      </td>
  </tr>
</table>
	</body>
	</html>
EOT;
return $out;
}

function BOX_open(){
$out = <<<EOT
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="20"><img src="/le_admin/images/top_left.gif" width="20" height="20"></td>
          <td align="right" background="/le_admin/images/middle_top.gif">&nbsp;</td>
          <td width="20"><img src="/le_admin/images/top_right.gif" width="20" height="20"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="20" valign="top" background="/le_admin/images/middle_line.gif"><img src="/le_admin/images/middle_line.gif" width="20" height="20"></td>
          <td width="100%" align="center">
EOT;
return $out;
}

function BOX_close($add_alpha=true){
if($add_alpha){$alpha = get_alphabet_list();}
$out = <<<EOT
          {$alpha}
		  </td>
          <td width="20" valign="top" background="/le_admin/images/middle_right.gif"><img src="/le_admin/images/middle_right.gif" width="20" height="20"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="20"><img src="/le_admin/images/bottom_left.gif" width="20" height="20"></td>
          <td background="/le_admin/images/bottom_line.gif">&nbsp;</td>
          <td width="20"><img src="/le_admin/images/bottom_right.gif" width="20" height="20"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
EOT;
return $out;
}

function line(){
	$out = "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
			<tr><td background=\"/le_admin/images/hori_rulefill_3x1.gif\"><img src=\"/le_admin/images/t_1x1.gif\" width=\"1\" height=\"1\"></td>
			</tr></table><br>";
return $out;
}

function a_s($str){
	return addslashes(strip_tags(trim($str)));
}

function s_s($str){
	return stripslashes(strip_tags(trim($str)));
}

function LE_Navigator_Slash($URL,$Page,$Total_Pages,$teks){
	$str  = "<form method='post' action='".$URL.".htm'>";
	$str .= "<table width='100%' border='0' cellspacing='0' cellpadding='3'><tr><td align='center'>";
	$str .= "<font face='verdana' size='2'>";
	if ($teks!=""){$q = "?t=$teks";}else{$q = "";}
	//*********************************************************************************
	// Previous Button
	//*********************************************************************************	
	if ($Page > 0) {
	  $tmp = $URL . "/" . ($Page - 1) . "/$Total_Pages.htm{$q}";
	  $str .= "<a href='$tmp'>&lt;&lt</a>";
	}else{$str .= "&lt;&lt";}
	
	//*********************************************************************************
	// Numbering Button
	//*********************************************************************************	
	if ($Total_Pages > 10) {$jml = 10;} else {$jml = $Total_Pages;}
	for ($i = 0; $i < $jml; $i++) {
		if ($i == $Page) {
			$str .= "&nbsp;<b>".($i+1)."</b>";			
		}else{
		    $tmp  = $URL . "/$i/$Total_Pages.htm{$q}";
			$str .= "&nbsp;<a href='$tmp'>".($i+1)."</a>";
		}
	}

	//*********************************************************************************
	// Next Button
	//*********************************************************************************	
	if ($Page < ($Total_Pages-1)) {
	  $tmp = $URL . "/" . ($Page + 1) . "/$Total_Pages.htm{$q}";
	  $str .= "&nbsp;<a href='$tmp'>&gt;&gt;</a>";
	}else{$str .= "&nbsp;&gt;&gt;";}
	
	//*********************************************************************************
	// Page list box
	//*********************************************************************************	
	$str .=  "&nbsp;<select name='L_screen'>";
	for ($i = 0; $i < $Total_Pages; $i++) {
    	$str .= "<option value='$i'>Page ".($i+1)."</option>";
	}
	$str .= "</select>&nbsp;<input type='submit' value='Go'>\n
			<input type='hidden' name='L_pages' value='$Total_Pages'>\n
			<input type='hidden' name='Search_Link' value='$teks'>\n";
	$str .= "</font></td></tr></table></form>\n";
	
	return $str;
}

function smooth_cutter($S,$N){
	$S1 = substr($S,0,$N);
	$S2 = substr($S,$N,$N+20);
	$arr = explode(" ",$S2);
	if (is_array($arr)){
		return $S1.$arr[0]."..";
	}else{
		return $S1."..";
	}
}

function open_mysql ($db, $query="SELECT 1") {
global $link;
global $var;
	$user_mysql = $var["user_mysql"];
	$pwd_mysql = $var["pwd_mysql"];
	if ($db == "close"){
		mysql_close($link);
	}else{
		//echo $query."<hr>";
		$db = $var["db"];
		$e = "<font face='verdana' size='2' color='red'>";
		$link = mysql_connect("localhost", $user_mysql, $pwd_mysql) or die($e . "Error: Could not connect to mysql server!</font><br>");
		mysql_select_db($db,$link) or die($e . "Error: Could not select database: " . $db . "</font><br>");
		$result = mysql_query($query ,$link) or die($e . "Error: Query failed</font><br>".mysql_error() );
		return $result;
	}
}	

function error($s){
global $LE;

	$LE["TITLE"] = "Error: " .$LE["TITLE"];
	echo HTML_header();
	echo BOX_open();
	echo "<p align=\"\"><font face=verdana color=red size=2>$s</font></p>\n";
	echo go_back();
	echo BOX_close();
	echo HTML_footer();
	die();
}

function go_back($s=""){
	if ($s==""){$s="Go Back To Previous Page";}
	return "<p align=\"\"><input type=\"button\" name=\"goback\" value=\"$s\" onclick=\"javascript:history.back()\"></p>\n";
}

function OUCH($str){ 
  	// case insensitive regexp. 
  	// -- protocol tag or www 
  	$str2 = preg_replace("!(((http(s?)://)|(www\.))".    
               // -- rest of the host, topdomain is 2-4 letters 
               "([-a-z0-9.]{2,}\.[a-z]{2,4}".                                      
               // -- port (optional) 
               "(:[0-9]+)?)".                
               // -- path (optional) 
               "((/([^\s]*[^\s.,\"'])?)?)".  
               // -- parameters (optional, but obligated to begin with a question mark) 
               "((\?([^\s]*[^\s.,\"'])?)?))!i",     
               // replace it with <a tag 
               "<a href=\"http\\4://\\5\\6\\8\\9\">\\1</a>", 
               strip_tags($str)); 
  	if (substr($str2,0,8)=="<a href="){
  		return true;
	}else{
		return false;
	}
}

function validEmail($email) {
if (eregi("^[a-z0-9]+([-_\.]?[a-z0-9])+@[a-z0-9]+([-_\.]?[a-z0-9])+\.[a-z]{2,4}", $email)) {
   return TRUE;
} else {
   return FALSE;
  }
}

function process_submit_form($P){
global $HTTP_SERVER_VARS;
global $LE;
global $var;
global $SCRIPT_NAME;

	foreach ($P as $key => $value) {$P[$key] = a_s($value);}
	$e = "";

	# check referrer
	//$REFERER = parse_url($HTTP_SERVER_VARS["HTTP_REFERER"]);
	//$THIS = parse_url($LE["DOMAIN"]);
	//if($REFERER["host"]=="192.168.0.99" || strtolower($REFERER["host"])==strtolower($THIS["host"]) || strtolower($REFERER["host"])=="www.".strtolower($THIS["host"])){
	//}else{
	//	error("<b>The following error(s) are occured:</b><br><br>YOU DON'T HAVE AUTH");
	//}	

	if ($P["domain"]==""){$e .= "<LI>Your domain name is empty.</LI><br>";}
	if ($P["email"]==""){$e .= "<LI>Your email is empty.</LI><br>";}
	if ($P["le_title"]==""){$e .= "<LI>Page title is empty.</LI><br>";}
	if ($P["le_desc"]==""){$e .= "<LI>URL of your page is empty.</LI><br>";}
	if ($P["partner_links"]==""){$e .= "<LI>The page location to put our link is empty.</LI><br>";}
	
	if ($P["email"]!=""){
		if (!validEmail($P["email"])){
			$e .= "<LI>{$P["your_email"]} is not valid email address.</LI><br>";
		}
	}
	//$sql = "SELECT le.link FROM link_exchange le, link_owner lo WHERE le.id = lo.link_id AND le.link like '%{$TMP["host"]}%' AND lo.owner= {$LE["CLIENT"]} ";
	$sql = "SELECT * FROM client WHERE domain='".$P["domain"]."'";
	$rst = open_mysql ($var["db"], $sql); 
	$num = mysql_num_rows($rst); open_mysql ("close");
	if ($num>0){
	   $e = "The domain's url that you submitted is already exist on our page."; 
	   error("<b>The following error(s) are occured:</b><br><br>$e");
	}
	if ($e != ""){
		error("<b>The following error(s) are occured:</b><br><br>$e");
	}
	
	#######################################################################
	#add to database
	#######################################################################
	$e_msg = "Dear {$LE["ORG_NAME"]} Admin,<br>There is a new link exchange submission on {$LE["ORG_NAME"]}:<br><br>
			  <table width=100% border=1 cellspacing=0 cellpadding=2>
			  <tr><td>Title</td><td>: {$P["le_title"]}</td></tr>
			  <tr><td>DOMAIN</td><td>: {$P["domain"]}</td></tr>
			  <tr><td>Place on Partner</td><td>: {$P["partner_links"]}</td></tr>
			  <tr><td>Email</td><td>: {$P["email"]}</td></tr></table><br><br>
			  <b>Regards,<br>Admin of {$LE["ORG_NAME"]}</b><br><br>"; 

	
	#----------------- insert link owner
	$sql = "INSERT INTO client(domain,email,le_title,le_desc,partner_links,notice) VALUES ('".$P["domain"]."','".$P["email"]."','".$P["le_title"]."','".$P["le_desc"]."','".$P["partner_links"]."',1)";
	$result = open_mysql ($var["db"], $sql); open_mysql ("close");		

	#----------------- email ke admin
	$to       = "ADMIN<{$LE["EMAIL_ADMIN"]}>";
	$subject  = "New Link Exchange - {$P["domain"]}";
	$headers  = "Content-type: text/html; charset=iso-8859-1\r\n";
	$headers .= "From: {$LE["ORG_NAME"]}<{$LE["EMAIL_ADMIN"]}>\r\n";
	mail($to, $subject, $e_msg, $headers);

	$url = "{$SCRIPT_NAME}/".strtolower(substr($P["le_title"],0,1)).".htm"; 
	$out = "<p><font size=3><b>Thank You,</b></font></p>Your request about link exchange have been submitted.<br>Your link will be instantly 
			on our page.<br>Please check <a href=\"{$url}\">{$LE["LINK"]}{$url}</a> to view your link 
			and others.<p><b>Please note that once we have verified our link is not displayed on 
			your site within 1 week, we will remove your link in our page.</b></p>
			<p><b>NO ADULT SITE PLEASE OR NOT RELATED TO TRAVEL INDUSTRY.</b></p>\n";
	
	#----------------- email ke client
	$e_msg = "<p><font size=3><b>Thank You,</b></font></p>Your request about link exchange have been submitted.<br>Your link will be instantly 
			on our page.<br>Please check <a href=\"{$url}\">{$LE["LINK"]}{$url}</a> to view your link 
			and others.<p><b>Please note that once we have verified our link is not displayed on 
			your site within 1 week, we will remove your link in our page.</b></p>
			<p><b>NO ADULT SITE PLEASE OR NOT RELATED TO TRAVEL INDUSTRY.</b></p>";
	$to       = "ADMIN<{$P["email"]}>";
	$subject  = "New Link Exchange Submission - {$P["domain"]}";
	$headers  = "Content-type: text/html; charset=iso-8859-1\r\n";
	$headers .= "From: {$LE["ORG_NAME"]}<{$LE["EMAIL_ADMIN"]}>\r\n";
	mail($to, $subject, $e_msg, $headers);

	return $out;
	
}

?>