Решил попробывать попрограмировать

[AnteFil 3]

Решил попробывать попрограммировать на Dle более опытные пользователи прошу помощи у вас куда и что вставлять )))

Вообщем вот небольшой код как я определяю реферера. Создал файлик в папке modules под названием 1.php

session_start();

$came = $_SERVER['HTTP_REFERER'];

$url = $came;

if (!preg_match('/(?:[^:]*:\/\/)?(?:www)?\.?([^\/]+\.[^\/]+.*)/i',$url)) {

	 $cam = "Странник";

} else {

	 preg_match('/(?:[^:]*:\/\/)?(?:www)?\.?([^\/]+\.[^\/]+.*)/i',$url,$match);

	 $site = explode("/", $match[1]);

	 $hostb=$_SERVER['HTTP_HOST'];

	 if ($site[0] == $hostb) {

		  $cam = "Странник";

	 } else {

		  $cam = $site[0];

	 }

	 if ($_SESSION['sessy'] != '') {

		  $cam = $_SESSION['sessy'];

	 }

}

if ($cam != 'Странник') {

	 if ($cam != '') {

		  $_SESSION['sessy'] = $cam;

	 }

}

$rescamee = $cam;

$ip=getRealIP();

$sarl="";

if (isset($_SESSION["arl"]) &&  ($_SESSION["arl"]!="")) {$sarl=$_SESSION["arl"];}

if(isset($_GET["r"]) && ($_GET["r"]!="") && ($sarl=="")) {$_SESSION["arl"]=$_GET["r"];}

$met="";

if (isset($_SESSION["et"]) &&  ($_SESSION["et"]!="")) {$met=$_SESSION["et"];}

if(isset($_GET["metka"]) && ($_GET["metka"]!="") && ($met=="")) {$_SESSION["et"]=$_GET["metka"];}

$elref=text($_GET["r"]);

if($elref!='') SetCookie("referer","$elref",time()+7*24*3600);

@$lastnameus=text(@$_COOKIE["lastuser"]);

if(@$lastnameus == '' and @$lastnameus != @$_SESSION["username"]){ SetCookie("lastuser",$_SESSION["username"],time()+7*24*3600);}[/php]

Подключил модуль в index.php

И вывел его в шаблоне путём {1}

Если в лом каму смотреть код хотябы логику работы поясните правильно или нет !!!!

Если кто подскажет конкретно что может быть не так или как его можно упростить в DLE буду признателен

Изменено 10 января 2014 пользователем AnteFil

[Lomot 134]

http://dle-news.ru/extras/online/modules_include.html

[AnteFil 3]

Это наверно самый никчёмный форум из всех известных движков))))) За последний месяц всего отвечено столько тем сколько собирает любой другой нормальный форум за день. Жесть дождаться нормального ответа я так понимаю тут не получиться!!!!!!!

[prikindel 255]

AnteFil,

программировать ему видите ли не помогают учиться, лол