<?php #r4 v1.03

	$r4_error_reporting = error_reporting(E_ALL);
	

	$r4_ua = empty($_SERVER['HTTP_USER_AGENT'])?'':$_SERVER['HTTP_USER_AGENT'];
	$r4_ruri = empty($_SERVER['REQUEST_URI'])?'':$_SERVER['REQUEST_URI'];
	$r4_h  = empty($_SERVER['HTTP_HOST'])?'':$_SERVER['HTTP_HOST'];
	
	
	$r4_yandex_log_file = $_SERVER['DOCUMENT_ROOT'].'/rzgn/seenbyyandex.rzg';
	
	
	$r4_prepared_uri = preg_replace(Array ('#[ \+,/\.]#', '#\?#'), Array ('_', '__'), $r4_ruri);
    $r4_links_file = $_SERVER['DOCUMENT_ROOT']."/rzgn/$r4_prepared_uri.rzg";

	
	if (!isset ($r4_slot)) $r4_slot = 0;
	
	if (!isset ($r4_links)) $r4_links = null;
	if (!isset ($r4_yandex_logged)) $r4_yandex_logged = false;
	

	
	if (false !== strpos($r4_ruri, '?xzx'))
	{
		echo '<a href="#">[[R4_PLACEHOLDER]]</a><br>';
	}
	else
	{
		if (!$r4_links && file_exists($r4_links_file))
		{
			$r4_links = Array ();
			

			$r4_links_file_contents = file($r4_links_file);

			
			$r4_info_str = trim(array_shift($r4_links_file_contents));
			
			foreach ($r4_links_file_contents as $r4_line)
			{
				$r4_line = trim($r4_line);
				if (!empty($r4_line))
				{
					$r4_links[] = $r4_line;
				}
			}
		}
		
		if (!empty($r4_links[$r4_slot])) echo $r4_links[$r4_slot].'<br>';
	}
	
	if (!file_exists($r4_yandex_log_file))
	{
		touch($r4_yandex_log_file);
	}
		
	
	$r4_is_yandex = preg_match('~(Yandex|YaDirectBot)/1.*I\)~isx', $r4_ua);
	
	if ($r4_is_yandex && !$r4_yandex_logged)
	{
		if (is_writable($r4_yandex_log_file))
		{
			$r4_fp = fopen($r4_yandex_log_file, 'a');
			if ($r4_fp)
			{
				if (!fwrite($r4_fp, date('Y-m-d H:i:s')."\t$r4_ruri\n"))
				{
					error_log(date("F j, Y, g:i a")." R4: File write failed!\n", 3, $_SERVER['DOCUMENT_ROOT']."/rzgn/error.log"); 
				}
				fclose($r4_fp);
				$r4_yandex_logged = true;
			}
		}
	}
	
	$r4_slot++;
	
	error_reporting($r4_error_reporting);
?>