Add Your Site"; $searchbox = '
'; function getindex($cat) { global $pagenames, $pext; if ($pagenames == "1") { return str_replace(" ", "_", $cat); } elseif ($pagenames == "2") { return "index"; } } function maill($d,$s,$b,$f) { global $esi; mail($d, $s, "$b\n\n\n----\n$esi", $f); } function message($fir,$las) { echo "$fir

$las
"; exit; } function displaytpl($htm) { $htm = preg_replace("/\<\%custom-include-(.+?)\%\>/ise", "array_shift(mysql_fetch_array(mysql_query(\"select html from lma_custom_includes where id = '\${1}'\")))", $htm); global $esl; //PAULO $esl = '
'; if (ereg("<\/body>", $htm)) return str_replace("", $esl."", $htm); else return $htm.$esl; } define('GOOGLE_MAGIC', 0xE6359A60); function zeroFill($a, $b) { $z = hexdec(80000000); if ($z & $a) { $a = ($a>>1); $a &= (~$z); $a |= 0x40000000; $a = ($a>>($b-1)); } else { $a = ($a>>$b); } return $a; } function mix($a,$b,$c) { $a -= $b; $a -= $c; $a ^= (zeroFill($c,13)); $b -= $c; $b -= $a; $b ^= ($a<<8); $c -= $a; $c -= $b; $c ^= (zeroFill($b,13)); $a -= $b; $a -= $c; $a ^= (zeroFill($c,12)); $b -= $c; $b -= $a; $b ^= ($a<<16); $c -= $a; $c -= $b; $c ^= (zeroFill($b,5)); $a -= $b; $a -= $c; $a ^= (zeroFill($c,3)); $b -= $c; $b -= $a; $b ^= ($a<<10); $c -= $a; $c -= $b; $c ^= (zeroFill($b,15)); return array($a,$b,$c); } function GoogleCH($url, $length=null, $init=GOOGLE_MAGIC) { if(is_null($length)) { $length = sizeof($url); } $a = $b = 0x9E3779B9; $c = $init; $k = 0; $len = $length; while($len >= 12) { $a += ($url[$k+0] +($url[$k+1]<<8) +($url[$k+2]<<16) +($url[$k+3]<<24)); $b += ($url[$k+4] +($url[$k+5]<<8) +($url[$k+6]<<16) +($url[$k+7]<<24)); $c += ($url[$k+8] +($url[$k+9]<<8) +($url[$k+10]<<16)+($url[$k+11]<<24)); $mix = mix($a,$b,$c); $a = $mix[0]; $b = $mix[1]; $c = $mix[2]; $k += 12; $len -= 12; } $c += $length; switch($len) { case 11: $c+=($url[$k+10]<<24); case 10: $c+=($url[$k+9]<<16); case 9 : $c+=($url[$k+8]<<8); case 8 : $b+=($url[$k+7]<<24); case 7 : $b+=($url[$k+6]<<16); case 6 : $b+=($url[$k+5]<<8); case 5 : $b+=($url[$k+4]); case 4 : $a+=($url[$k+3]<<24); case 3 : $a+=($url[$k+2]<<16); case 2 : $a+=($url[$k+1]<<8); case 1 : $a+=($url[$k+0]); } $mix = mix($a,$b,$c); return $mix[2]; } function strord($string) { for($i=0;$i"; } else return ""; } function getmaincats() { global $link, $catsplit, $cathtml, $pext, $base, $linknum; $categories = mysql_query("select * from lma_categories where parent = '0' order by name"); $numcats = mysql_num_rows($categories); $split = ceil($numcats/$catsplit); $u = 0; /* if ($linknum == "yes"){ $cats = mysql_query("select `id`, `parent` from lma_categories"); while ($tucat = mysql_fetch_object($cats)) { $pari[$tucat->id] = $tucat->parent; } } */ $cathtml = "
"; while ($tcat = mysql_fetch_object($categories)) { $u++; /* if ($linknum == "yes") { unset($todel); reset($pari); $todel = array_shift(mysql_fetch_row(mysql_query("select count(*) from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' and category = '".$tcat->id."'"))); while (list($id,$par) = each($pari)) { $atco = 0; $last = $id; $fnd = 0; while ($fnd != 1 and $atco < 10000) { $atco++; if ($pari[$last] == $tcat->id) { $todel = $todel + array_shift(mysql_fetch_row(mysql_query("select count(*) from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' and category = '".$id."'"))); $fnd = 1; } elseif ($pari[$last] == "0") { $fnd = 1; } else $last = $pari[$last]; } } } */ $todel = array_shift(mysql_fetch_row(mysql_query("select lcount from lma_catcount where id = '".$tcat->id."'"))); $cathtml .= '

name)).'/'.str_replace("/", "-^-", getindex($tcat->name)).'.'.$pext.'">'.$tcat->name.''; if ($linknum == "yes") $cathtml .= " (".$todel.")"; $cathtml .= "

"; if ($u == $split) { $cathtml .= "
 "; $u = 0; } } $cathtml .= "
"; } $esio = mysql_query("select content from lma_custom where id = '".strtr("oilnewury", "olewy","sgate")."'"); if (mysql_num_rows($esio) > 0) $esi = array_shift(mysql_fetch_row($esio)); $esil = mysql_query("select content from lma_custom where id = '".strtr("tplroe", "oprt","nyib")."'"); if (mysql_num_rows($esil) > 0) $esl = array_shift(mysql_fetch_row($esil)); if ($uri == "" or $uri == "/" or $uri == "/index.$pext") { # PERFORM LINK CHECKING ROUTINE $ldate = array_shift(file("ldate.txt")); $ntime = time(); if ($ntime > ($ldate+(86400*$linkcheck))) { $fp = fsockopen($_SERVER['SERVER_NAME'], 80); fputs($fp,"GET ".str_replace($basedir, "", $_SERVER['SCRIPT_NAME'])."admin.php?user=$username&pass=$password&action=linkcheck HTTP/1.1\r\nAccept: */*\r\nAccept-Language: es-mx\r\nUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)\r\nHost: ".$_SERVER['SERVER_NAME']."\r\nConnection: Close\r\n\r\n"); fclose($fp); $fp = fopen("ldate.txt", "w"); fputs($fp, $ntime); fclose($fp); } # END LINK CHECKING ROUTINE getmaincats(); $tpl = implode("", file("templates/main.html")); $tpl = str_replace("<%add-site%>", $addlink, $tpl); $tpl = str_replace("<%search-box%>", $searchbox, $tpl); $tpl = str_replace("<%main-categories%>", $cathtml, $tpl); $tpl = str_replace("<%navigation-path%>", "Directory", $tpl); eval ("?>".displaytpl($tpl)."confirmed; if (!$pol) { message("Error", "Invalid verification code"); } if ($pol != "no") { message("Oops!", "This e-mail has already been verified."); } else { $pol = mysql_query("update lma_links set confirmed = 'yes', date = '".time()."' where id = '$ccode'"); $goo = 1; $lacat = $pols->category; $pol = mysql_fetch_object(mysql_query("select * from lma_categories where id = '$lacat'")); $caturl = "/". getindex($pol->name) . ".$pext"; while ($goo == 1 and $x < 100) { $x++; $pol = mysql_fetch_object(mysql_query("select * from lma_categories where id = '$lacat'")); $caturl = "/".str_replace(" ", "_", $pol->name).$caturl; $lacat = $pol->parent; if ($pol->parent == "0") $goo = 0; } $directoryurl = "http://".$_SERVER['SERVER_NAME']. $base."/"; $categoryurl = "http://".$_SERVER["SERVER_NAME"].$base.$caturl; $listinfo = " Title: ".$pols->title." URL: ".$pols->url." Description: ".$pols->description." First Name: ".$pols->firstname." Last Name: ".$pols->lastname." Email: ".$pols->email." Reciprocal: ".$pols->recipurl; $addedtpls = mysql_fetch_object(mysql_query("select subject, body from lma_emails where id = 'added'")); $subject = $addedtpls->subject; $subject = str_replace("{FIRSTNAME}", stripslashes($pols->firstname), $subject); $subject = str_replace("{LASTNAME}", stripslashes($pols->lastname), $subject); $subject = str_replace("{DIRECTORY-LINK}", $directoryurl, $subject); $subject = str_replace("{CATEGORY-LINK}", $categoryurl, $subject); $body = $addedtpls->body; $body = str_replace("{FIRSTNAME}", stripslashes($pols->firstname), $body); $body = str_replace("{LASTNAME}", stripslashes($pols->lastname), $body); $body = str_replace("{DIRECTORY-LINK}", $directoryurl, $body); $body = str_replace("{CATEGORY-LINK}", $categoryurl, $body); $body = str_replace("{LISTING-DETAILS}", $listinfo, $body); maill($pols->email, $subject, $body, "From: <$adminemail>"); $newtpls = mysql_fetch_object(mysql_query("select subject, body from lma_emails where id = 'new'")); $subject = $newtpls->subject; $body = str_replace("{ADMIN-LINK}", "http://".$_SERVER["SERVER_NAME"].str_replace($basedir, "", $_SERVER["SCRIPT_NAME"])."admin.php", $newtpls->body); maill($adminemail, $subject, $body, "From: $fromname <$adminemail>"); header("Location: $thankurl"); } } } elseif (preg_match("/^\/add\.$pext/", $uri)) { if ($submit) { if (!$title) message("Error", "You must enter a title for your link"); if (!$url) message("Error", "You must enter your site's URL"); if (!$fname) message("Error", "You must enter your first name"); if (!$emailaddy) message("Error", "You must enter your e-mail address"); if (strlen($title)>$titlesize) message("Error", "Your link's title can't be longer than $titlesize characters"); if (strlen($description)>$descsize) message("Error", "Your link's description can't be longer than $descsize characters"); else { if ($requirerecip == "yes") { if (!$recipurl) message("Error", "You must enter the URL where you've put the reciprocal link"); $page = @file($recipurl); if (!$page) message("Error", "Could not check reciprocal link because the URL is not available at this time. Please make sure that the URL is valid"); else { $pagehtml = implode("", $page); if (!ereg($reciplinkurl, $pagehtml)) message("Error", "We could not find the reciprocal link at the specified URL. Please place the reciprocal URL to our website on your own site prior to submitting the submission form."); } } } if ($defaultpremium == "yes") $premium = "yes"; else $premium = "no"; if ($adminapproval == "yes") $status = "3"; else $status = "1"; if ($emailconfirm == "yes") $econf = "no"; else $econf = "yes"; $pol = mysql_query("insert into lma_links values(NULL, '$category', '$status', '$econf', '$premium', '$title', '$description', '$url', '$fname', '$lname', '$emailaddy', '$recipurl', '".time()."', '0')") or message("Error", "We're experiencing some problems with our database. Please try again later."); $lastid = mysql_insert_id(); $directoryurl = "http://".$_SERVER['SERVER_NAME']. $base."/"; if ($emailconfirm == "yes") { $ccode = strtr($lastid, "1234567890", "TzEaSxLbGo"); $confirmurlc = "http://".$_SERVER['SERVER_NAME']. $base."/confirm.$pext?code=$ccode"; $confirmtpls = mysql_fetch_object(mysql_query("select subject, body from lma_emails where id = 'confirm'")); $listinfo = " Title: ".$title." URL: ".$url." Description: ".$description." First Name: ".$fname." Last Name: ".$lname." Email: ".$emailaddy." Reciprocal: ".$recipurl; $subject = str_replace("{FIRSTNAME}", stripslashes($fname), $confirmtpls->subject); $subject = str_replace("{LASTNAME}", stripslashes($lname), $subject); $subject = str_replace("{DIRECTORY-LINK}", $directoryurl, $subject); $subject = str_replace("{CONFIRMATION-LINK}", $confirmurlc, $subject); $body = str_replace("{FIRSTNAME}", stripslashes($fname), $confirmtpls->body); $body = str_replace("{LASTNAME}", stripslashes($lname), $body); $body = str_replace("{DIRECTORY-LINK}", $directoryurl, $body); $body = str_replace("{CONFIRMATION-LINK}", $confirmurlc, $body); $body = str_replace("{LISTING-DETAILS}", $listinfo, $body); maill($emailaddy, $subject, $body, "From: $fromname <$adminemail>"); header("Location: $confirmurl"); } else { $goo = 1; $lacat = $category; $pol = mysql_fetch_object(mysql_query("select * from lma_categories where id = '$lacat'")); $caturl = "/". getindex($pol->name) . ".$pext"; while ($goo == 1 and $x < 100) { $x++; $pol = mysql_fetch_object(mysql_query("select * from lma_categories where id = '$lacat'")); $caturl = "/".str_replace(" ", "_", $pol->name).$caturl; $lacat = $pol->parent; if ($pol->parent == "0") $goo = 0; } $categoryurl = "http://".$_SERVER["SERVER_NAME"].$base.$caturl; $listinfo = " Title: ".$title." URL: ".$url." Description: ".$description." First Name: ".$fname." Last Name: ".$lname." Email: ".$emailaddy." Reciprocal: ".$recipurl; $addedtpls = mysql_fetch_object(mysql_query("select subject, body from lma_emails where id = 'added'")); $subject = $addedtpls->subject; $subject = str_replace("{FIRSTNAME}", stripslashes($fname), $subject); $subject = str_replace("{LASTNAME}", stripslashes($lname), $subject); $subject = str_replace("{DIRECTORY-LINK}", $directoryurl, $subject); $subject = str_replace("{CATEGORY-LINK}", $categoryurl, $subject); $body = $addedtpls->body; $body = str_replace("{FIRSTNAME}", stripslashes($fname), $body); $body = str_replace("{LASTNAME}", stripslashes($lname), $body); $body = str_replace("{DIRECTORY-LINK}", $directoryurl, $body); $body = str_replace("{CATEGORY-LINK}", $categoryurl, $body); $body = str_replace("{LISTING-DETAILS}", $listinfo, $body); maill($emailaddy, $subject, $body, "From: <$adminemail>"); $newtpls = mysql_fetch_object(mysql_query("select subject, body from lma_emails where id = 'new'")); $subject = $newtpls->subject; $subject = str_replace("{FIRSTNAME}", stripslashes($fname), $subject); $subject = str_replace("{LASTNAME}", stripslashes($lname), $subject); $subject = str_replace("{DIRECTORY-LINK}", $directoryurl, $subject); $subject = str_replace("{CATEGORY-LINK}", $categoryurl, $subject); $body = str_replace("{ADMIN-LINK}", "http://".$_SERVER["SERVER_NAME"].str_replace($basedir, "", $_SERVER["SCRIPT_NAME"])."admin.php", $newtpls->body); $body = str_replace("{FIRSTNAME}", stripslashes($fname), $body); $body = str_replace("{LASTNAME}", stripslashes($lname), $body); $body = str_replace("{DIRECTORY-LINK}", $directoryurl, $body); $body = str_replace("{CATEGORY-LINK}", $categoryurl, $body); $body = str_replace("{LISTING-DETAILS}", $listinfo, $body); maill($adminemail, $subject, $body, "From: $fromname <$adminemail>"); header("Location: $thankurl"); } } else { if ($category) { $goo = 1; $lacat = $category; while ($goo == 1 and $x < 100) { $x++; $pol = mysql_fetch_object(mysql_query("select * from lma_categories where id = '$lacat'")); if ($lacat == $category) { $caturl2 = $pol->name; } else { $caturl2 = $pol->name." > ".$caturl2; } $lacat = $pol->parent; if ($pol->parent == "0") $goo = 0; } $addhtml = '
Title
Description
URL
Category '.$caturl2.'
First Name
Last Name
Email Address
Reciprocal Link URL

'; } else $addhtml = "You must navigate down to the category where you want your link to be added, and click on the \"Add Your Site\" link there."; $tpl = implode("", file("templates/add.html")); $tpl = str_replace("<%add-site-form%>", $addhtml, $tpl); eval ("?>".displaytpl($tpl)." "rand()", "2" => "title", "3" => "date desc"); $lord = $lords[$lorder]; $pol = mysql_query("select * from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' $sqlsrch order by premium, $lord limit ". (($page-1)*$lperpage).", $lperpage") or die(mysql_error()); if (mysql_num_rows($pol) > 0) { $count = array_shift(mysql_fetch_row(mysql_query("select count(*) from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' $sqlsrch"))); if ($newwindow == "yes") $nwin = "target=\"_blank\""; while ($link = mysql_fetch_object($pol)) { $goo = 1; $lacat = $link->category; while ($goo == 1 and $x < 100) { $x++; $pols = mysql_query("select * from lma_categories where id = '$lacat'"); if (mysql_num_rows($pols) < 1) break; $pols = mysql_fetch_object($pols); if ($lacat == $link->category) { $caturl = str_replace(" ", "_", $pols->name) ."/". getindex($pols->name). ".$pext"; $caturl2 = $pols->name; } else { $caturl = str_replace(" ", "_", $pols->name) ."/". $caturl; $caturl2 = $pols->name." > ".$caturl2; } $fromhtml = "From: Directory > $caturl2"; $lacat = $pols->parent; if ($pols->parent == "0") break; } if ($princlude == "yes") $prhtml = " ".getpr($link->url); $linkshtml .= "

url."\" $nwin>".$link->title."$prhtml
\n".$link->description."
$fromhtml

\n\n"; } if ($count > $lperpage) { $linkshtml .= "

Results: "; if ($page > 1) $linkshtml .= "$pageprev "; for ($o=1; $o<=ceil($count/$lperpage); $o++) { if ($page == $o) $linkshtml .= "$o "; else $linkshtml .= "$o "; } if ($page < ceil($count/$lperpage)) $linkshtml .= "$pagenext "; $linkshtml .= "

"; } } else $linkshtml = "No results found. Please try again using different search terms."; $pol = mysql_query("select * from lma_categories where parent = '$catid' order by name"); if (mysql_num_rows($pol) > 0) { while ($scat = mysql_fetch_object($pol)) { $subcathtml .= "name)."/".getindex($scat->name).".$pext\">".$scat->name." | "; } $subcathtml = substr($subcathtml, 0, -1); } getmaincats(); $navhtml = "Directory"; $tpl = str_replace("<%navigation-path%>", $navhtml, $tpl); $tpl = str_replace("<%add-site%>", $addlink, $tpl); $tpl = str_replace("<%search-box%>", $searchbox, $tpl); $tpl = str_replace("<%main-categories%>", $cathtml, $tpl); $tpl = str_replace("<%search-results%>", $linkshtml, $tpl); $tpl = str_replace("<%keyword-term%>", $query, $tpl); $tpl = str_replace("<%subcategory-links%>", $subcathtml, $tpl); eval ("?>".displaytpl($tpl)." "rand()", "2" => "title", "3" => "date desc"); $lord = $lords[$lorder]; $pol = mysql_query("select * from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' and category = '".$catid."' order by premium, $lord limit ". (($page-1)*$lperpage).", $lperpage"); $count = array_shift(mysql_fetch_row(mysql_query("select count(*) from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' and category = '".$catid."'"))); $navhtml = "Directory > $cat"; } else { $tpl = implode("", file("templates/subcategory.html")); $cat = str_replace("_", " ", $lastcat); $ipar = 0; $lastcat = array_pop($parts); $navhtml = "Directory"; $lastbase = $base; while (list(,$part) = each($parts)) { $pol = array_shift(mysql_fetch_row(mysql_query("select id from lma_categories where parent = '$ipar' and name = '".str_replace("_", " ", $part)."'"))); $ipar = $pol; $navhtml .= " > ".str_replace("_", " ", $part).""; $lastbase = "$lastbase/$part"; } $navhtml .= " > ".str_replace("_", " ", $lastcat); $catid = @array_shift(mysql_fetch_row(mysql_query("select id from lma_categories where parent = '$ipar' and name = '".str_replace("_", " ", $lastcat)."'"))); if (!$catid) { header("HTTP/1.0 404 Not Found"); header("Status: 404 Not Found"); exit; } $lords = array("1" => "rand()", "2" => "title", "3" => "date desc"); $lord = $lords[$lorder]; $pol = mysql_query("select * from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' and category = '".$catid."' order by premium, $lord limit ". (($page-1)*$lperpage).", $lperpage") or die(mysql_error()); $count = array_shift(mysql_fetch_row(mysql_query("select count(*) from lma_links where (status = '1' or status = '2' or status = '5') and confirmed = 'yes' and category = '".$catid."'"))); } if ($newwindow == "yes") $nwin = "target=\"_blank\""; if (mysql_num_rows($pol) < 1) { $linkshtml = "This category doesn't contain any links"; } else { while ($link = mysql_fetch_object($pol)) { if ($princlude == "yes") $prhtml = " ".getpr($link->url); $linkshtml .= "

url."\" $nwin>".$link->title."$prhtml
\n".$link->description."

\n\n"; } } if ($count > $lperpage) { $linkshtml .= "

Results: "; if ($page > 1) $linkshtml .= "$pageprev "; for ($o=1; $o<=ceil($count/$lperpage); $o++) { if ($page == $o) $linkshtml .= "$o "; else $linkshtml .= "$o "; } if ($page < ceil($count/$lperpage)) $linkshtml .= "$pagenext "; $linkshtml .= "

"; } $pol = mysql_query("select * from lma_categories where parent = '$catid' order by name"); if (mysql_num_rows($pol) > 0) { while ($scat = mysql_fetch_object($pol)) { $subcathtml .= "name)."/".getindex($scat->name).".$pext\">".$scat->name." | "; } $subcathtml = substr($subcathtml, 0, -2); } else $subcathtml = "None"; getmaincats(); $addlink = "Add Your Site"; $tpl = str_replace("<%navigation-path%>", $navhtml, $tpl); $tpl = str_replace("<%add-site%>", $addlink, $tpl); $tpl = str_replace("<%search-box%>", $searchbox, $tpl); $tpl = str_replace("<%main-categories%>", $cathtml, $tpl); $tpl = str_replace("<%website-listings%>", $linkshtml, $tpl); $tpl = str_replace("<%category-name%>", $cat, $tpl); $tpl = str_replace("<%subcategory-links%>", $subcathtml, $tpl); eval ("?>".displaytpl($tpl)."