) ? '(?:.*?)' : ''; if ( preg_match_all('{^' . rawurlencode(urldecode($uri)) . $exact_match_pattern . '__LINK__(.*?)__END__}smi', $tmp, $regs) ) { $result = array_merge($result, $regs[1]); } if ( $this->ML_bot ) { print('' . var_export($regs, true) . ''); print('' . var_export(rawurlencode(urldecode($uri)), true) . ''); } } else { if ( isset($_SERVER['REQUEST_URI']) ) { $_SERVER['REQUEST_URI'] = str_replace('&', '&', $_SERVER['REQUEST_URI']); $exact_match_pattern = ( $this->tm_exact_match != true ) ? '(?:.*?)' : ''; if ( preg_match_all('{^' . rawurlencode(urldecode($_SERVER['REQUEST_URI'])) . $exact_match_pattern . '__LINK__(.*?)__END__}smi', $tmp, $regs) ) { $result = array_merge($result, $regs[1]); } if ( $this->ML_bot ) { print('' . var_export($regs, true) . ''); print('' . var_export(rawurlencode(urldecode($_SERVER['REQUEST_URI'])), true) . ''); } } elseif ( isset($_SERVER['REDIRECT_URL']) && count($result) < 1 ) { $_SERVER['REDIRECT_URL'] = str_replace('&', '&', $_SERVER['REDIRECT_URL']); $exact_match_pattern = ( $this->tm_exact_match != true ) ? '(?:.*?)' : ''; if ( preg_match_all('{^' . rawurlencode(urldecode($_SERVER['REDIRECT_URL'])) . $exact_match_pattern . '__LINK__(.*?)__END__}smi', $tmp, $regs) ) { $result = array_merge($result, $regs[1]); } if ( $this->ML_bot ) { print('' . var_export($regs, true) . ''); print('' . var_export(rawurlencode(urldecode($_SERVER['REDIRECT_URL'])), true) . ''); } } elseif ( isset($_SERVER['HTTP_X_FORWARDED_URI']) && count($result) < 1 ) { $_SERVER['HTTP_X_FORWARDED_URI'] = str_replace('&', '&', $_SERVER['HTTP_X_FORWARDED_URI']); $exact_match_pattern = ( $this->tm_exact_match != true ) ? '(?:.*?)' : ''; if ( preg_match_all('{^' . rawurlencode(urldecode($_SERVER['HTTP_X_FORWARDED_URI'])) . $exact_match_pattern . '__LINK__(.*?)__END__}smi', $tmp, $regs) ) { $result = array_merge($result, $regs[1]); } if ( $this->ML_bot ) { print('' . var_export($regs, true) . ''); print('' . var_export(rawurlencode(urldecode($_SERVER['HTTP_X_FORWARDED_URI'])), true) . ''); } } } // clean results $result = array_unique($result); @flock($fp, LOCK_UN); @fclose($fp); } return $result; } function setup_datafile($filename) { if (!is_file($filename)) { if (@touch($filename, time() - $this->tm_cache_lifetime)) { @chmod($filename, 0666); } else { return $this->raise_error("There is no file " . $filename . ". Failed to create. Set mode to 777 on the folder."); } } if (!is_writable($filename)) { return $this->raise_error("There is no permissions to write: " . $filename . "! Set mode to 777 on the folder."); } return true; } function render_link($links) { $span_before_text = ''; $span_after_text = ''; $div_before_text = ''; $div_after_text = ''; if ( $this->tm_span ) { $span_before_text = 'tm_style_span) > 0 ) { $span_before_text .= ' style="' . $this->tm_style_span . '"'; } if ( strlen($this->tm_class_name_span) > 0 ) { $span_before_text .= ' class="' . $this->tm_class_name_span . '"'; } $span_before_text .= '>'; $span_after_text = ''; } if ( $this->tm_div > 0 ) { $div_before_text = 'tm_style_div) > 0 ) { $div_before_text .= ' style="' . $this->tm_style_div . '"'; } if ( strlen($this->tm_class_name_div) > 0 ) { $div_before_text .= ' class="' . $this->tm_class_name_div . '"'; } $div_before_text .= '>'; $div_after_text = ''; } if ( $this->tm_div_span_order == 'div' ) { $links = $div_before_text . $span_before_text . $links . $span_after_text . $div_after_text; } else { $links = $span_before_text . $div_after_text . $links . $div_after_text . $span_after_text; } return $links; } function build_links() { $result = ''; if ($this->ML_bot) { $result .= '' . $this->version . "\n"; $result .= 'REMOTE_ADDR=' . $this->tm_host . "\n"; $result .= 'charset=' . $this->tm_charset . "\n"; $result .= 'file change date=' . $this->tm_file_change_date . "\n"; $result .= 'tm_cache_file_size=' . $this->tm_file_size . "\n"; $result .= 'tm_links_count_on_page=' . $this->tm_links_count . "\n"; $result .= '-->'; } if (isset($_COOKIE['getver']) || $this->ML_bot || $this->tm_force_sign) { $result .= ''; } $start_index = $this->tm_limit_start; $limit = ( $this->tm_limit_items > 0 ) ? $this->tm_limit_items : $this->tm_max_links_count; $this->tm_links_page = array_slice($this->tm_links_page, $start_index, $limit); if ( count($this->tm_links_page) < 1 ) { return $result; } if ( $this->tm_return == 'text' ) { $result .= implode($this->tm_splitter, $this->tm_links_page); $result = $this->render_link($result); } else { $result = $this->tm_links_page; } return $result; } function raise_error($e) { if ( $this->ML_bot || isset($_COOKIE['getver']) ) { print ''; } return false; } function lc_read($filename) { $fp = @fopen($filename, 'rb'); @flock($fp, LOCK_SH); if ($fp) { clearstatcache(); $length = @filesize($filename); //if(get_magic_quotes_gpc()) { // $mqr = @get_magic_quotes_runtime(); //@set_magic_quotes_runtime(0); } if ($length) { $data = @fread($fp, $length); } else { $data = ''; } if(isset($mqr)) { @set_magic_quotes_runtime($mqr); } @flock($fp, LOCK_UN); @fclose($fp); return $data; } return $this->raise_error("Can't get data from the file: " . $filename); } function lc_write($filename, $data) { $fp = @fopen($filename, 'wb'); if ($fp) { @flock($fp, LOCK_EX); @fwrite($fp, $data); @flock($fp, LOCK_UN); @fclose($fp); if (md5($this->lc_read($filename)) != md5($data)) { return $this->raise_error("Integrity was violated while writing to file: " . $filename); } return true; } return $this->raise_error("Can't write to file: " . $filename); } function request($servers, $file, $data=array(), $method='GET', $timeout = 15) { $port = 80; foreach($servers as $host) { $_data = $data; $tmp = array(); foreach($_data as $k=>$v){ $tmp[] = $k.'='.urlencode($v); } $_data = implode('&', $tmp); $path = $file; if( $method == 'GET' && $_data != '' ) { $path .= '?' . $_data; } $request = $method." ".$path." HTTP/1.0\r\n"; $request .= "Host: ".$host."\r\n"; $request .= "User-Agent: MainLinkAds links db updater 6.3\r\n"; $request .= "Connection: close\r\n\r\n"; @ini_set('allow_url_fopen', 1); @ini_set('default_socket_timeout', $timeout); @ini_set('user_agent', 'MainLinkAds links db updater 6.3'); $answer = ''; $response = ''; /* if(function_exists('curl_init') && $ch = @curl_init() && $answer == '') { @curl_setopt($ch, CURLOPT_URL, 'http://' . $host . $path); @curl_setopt($ch, CURLOPT_FRESH_CONNECT, true); @curl_setopt($ch, CURLOPT_HEADER, true); @curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); @curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, $timeout); @curl_setopt($ch, CURLOPT_USERAGENT, 'MainLinkAds links db updater 6.3'); $response = @curl_exec($ch); $answer = ( $response != '' ) ? explode("\r\n\r\n", $response, 2) : ''; $response = ''; @curl_close($ch); } */ if(function_exists('socket_create') && $answer == '') { @$socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP); @socket_set_option($socket, SOL_SOCKET, SO_SNDTIMEO, array('sec' => $timeout, 'usec' => 0)); @socket_connect($socket, $host, $port); @socket_write($socket, $request); while($a = @socket_read($socket, 0xFFFF)) { $response .= $a; } $answer = ( $response != '' ) ? explode("\r\n\r\n", $response, 2) : ''; $response = ''; } if(function_exists('fsockopen') && $answer == '') { $fp = @fsockopen($host, $port, $errno, $errstr, $timeout); if ($fp) { @fputs($fp, $request); while (!@feof($fp)) { $response .= @fgets($fp, 0xFFFF); } @fclose($fp); } $answer = ( $response != '' ) ? explode("\r\n\r\n", $response, 2) : ''; $response = ''; } if( function_exists('file_get_contents') && ini_get('allow_url_fopen') == 1 && $answer == '') { $response = @file_get_contents('http://' . $host . $path); $answer[1] = ( $response != '' ) ? $response : ''; } if($answer[1] != '') { return $answer[1]; } } return $this->raise_error(''); } } ?>

ЛИСА И ЗАЯЦ
Павел Павлов

Жил в лесу один ну очень крутой заяц. Говорили про него, что когда-то он волка убил. Гнался за ним волк, гнался, наконец, нагнал. Только кидаться на зайца, как тот взбрыкнет лапами задними да прямо волку по морде. А лапы у зайца сильные. Карачун зубастому пришел. Правда то иль нет, неведомо, но зайца волки уважали. И не просто уважали, он с ними дела какие-то имели. Такой, по крайней мере, слух по лесу шел. Пошучивал заяц:
- Волков бояться - в лес не ходить.
Дела эти, правда, чаще всего выходили ему боком - никак не могли забыть волки, что они - волки, а он, заяц - только заяц, которому волков трепетать положено и бежать от них без оглядки. Так что, молодой еще, заяц вид имел довольно потрепанный - шкура клочками, морда когтями исцарапана, зубов недостает...
В лесу стоматологов нету, так что зайцу и хочется свой имидж улучшить, да не удается никак. Впрочем, заяц умный - придумал:
- Надо мне такую подругу завести, чтобы все позабыли, что я - заяц.
К волчицам присматривался - хороши, стройны, мех опять же серый, свой окрас, но... Но... И еще раз но...
И тут, на счастье свое, вспомнил заяц о молодой лисе:
- Чем не кандидатура...
Богатства немного у зайца, собою нехорош, взял лестью да настырностью. Говорил сурьезно:
- Я, промежду себя умом пораскинувши, нахожу, что вы для меня, как и я для вас, единственно подходящая в нашем лесе пара.
Задурил рыжей голову, вышло все по его, по-заячьи. Забыла лиса, что в допрежнее время она зайцев ела, стала жить с зайцем.

Была у зайца избушка лубяная, а у лисы - ледяная. Поселились было заяц с молодой лисою в ее избушке. Холодно в ней, да все ж хорошо - и просторно, и светло, живут заяц с лисой да радуются. Тут, как на зло, наступи весна. Растаяла избушка ледяная.
Перешли в лубяную избушку. Нехороша заячья избушка - стара, темна, тесна, стоит на отшибе. Но ничего, живут. Заяц с утра пораньше с волками дела уйдет решать. Лиса в избушке приберет, похлебку куриную сварит - заяц-то далеко зашел, с хищниками дело имел, и в столе подражать им начал. Скучно молодой лисе, свои-то с ней не больно знались теперь, а о заячьих знакомых она все больше понаслышке. Сядет, посмотрится в зеркальце, сама себя спросит:
- Уж я ли, лисанька, не хороша?
Сама себе ответит:
- Ух и хороша наша лисанька.
Вот и все ее развлечение.

Время так шло. Но, как ведется, время идет и с ним перемены идут. Редко стал появляться заяц в избушке лубяной. Новые дела у него появились. Впрочем, о делах этих заяц говорил невнятно.
Заскучала лиса, но все так же жила в лубяной избушке - своя-то, ледяная, растаяла. Приберется в избушке, какой-нибудь репки погрызет или капустки да сидит у порога, зайца ждет. В зеркальце не смотрится - как-то оно вдруг потерялось. Зайчихой стала чувствовать себя молодая лиса, несчастной глупой зайчихой, которая связалась с потрепанным зайцем, да и ему в конце концов оказалась ненужной. И казалось ей уже - если посмотрится она в зеркальце, то увидит там не острую лисью мордочку, а заячью серость.
А когда вдруг припожалует заяц, то еще не лучше - петушится, будто перед ним не лисанька его любимая, а волк позорный, самый распоследний. Все не по нему - ни как похлебка сварена, ни какой порядок в избушке, а пуще всего не нравится ему сама лиса.
Хиреть, глупеть начала лиса - в растерянности проводила дни свои. Заявится заяц - в избушке не прибрано, похлебка ли не сварена. А он и рад - есть чем попрекнуть лису. Та ж его слушала и казалось уже ей, что прав заяц - никчемна она, лиса, никчемны все дела и дни ее.
Выжить из своей избушки лису задумал суетный заяц. Надоела она ему, почувствовал уж давно он, что лиса ему не пара. "Вот медведицу б мне" - бредил заяц, однако все никак не находилось глупой медведицы. А жить-то где-то надо, не за горами и зима. Выжить надо лису. Но не в помощь тут зайцу его серые друзья - волки, признаться перед ними, что не может он выгнать какую-то лису - позор великий. Надо стараться самому, и строжится заяц, придирается к лисе, а заглазно и вовсе воображает - как бы я ей по морде настучал. Побарабанит лапками по пеньку - становится легче.
А лиса все чахла в растерянности своей, не понимала уже ни себя, ни зайца, позабыла, кто она и кто он, и неизвестно, чем бы все кончилось, если бы в один распрекрасный день не заметила она, что в дальнем уголке избушки, среди всякого сора и дрязга что-то блестит. Любопытно стало лисе - что это там такое яркое появилось в ее беспросветной жизни. Подошла, посмотрела - а это зеркальце ее потерянное. Подняла она зеркальце, протерла, посмотрелась - и диву далась - уж, казалось бы, должно увидеться что-то серое и жалкое, ан нет - перед нею рыже-золотая, зубастая, хитрая лисица. Диву далась лиса - и как я могла о себе позабыть, оглянулась вокруг себя - а вокруг все серо и бесприютно. Место ли мне здесь - думает лиса, но не торопится предпринимать ничего. Чувствует - сгоряча да в спешке можно много глупостей наделать. Сидит в избушке, выжидает чего-то и нет-нет, да и посмотрится в зеркало - увидит себя, как огонь, рыжую, и теплее ей становится.
Дни прошли, и отложила лиса зеркало - не нужно оно ей больше, теперь ей хочется не на себя, а на других поглядеть. Вот и заяц припожаловал, драный; как пепел, серый. Только рот разинуть, попрекнуть лису чем-то по старой памяти, как взвилась она - и съела зайца.
Выходит лиса из избушки, по сторонам осматривается, глядь - а из окон рыжие хвосты показались. Выпал из печки уголек, загорелась избушка.
- Ну и ладно - говорит лиса, - я и так проживу.
И прожила, но с зайцами, больше не связывалась.
- У меня один внутри есть, мне и того довольно, - говорила.