<br />  <br />04.06.08, 15:39, &quot;Alexey Ermoshkin&quot; в http:<br />#       perl_set $client_md5_id &#39;<br />#               sub {<br />#                       my $r = shift;<br />#                       use Digest::MD5 qw(md5_hex);<br />#                       return md5_hex($r-&gt;remote_addr . &quot;salt&quot;);<br />#               }<br />#       &#39;;<br /><br />#       perl_set $is_bot &#39;<br />#               sub {<br />#                       my $r = shift;<br />#                       my $cookie = $r-&gt;header_in(&quot;Cookie&quot;);<br />#                       my $client_md5_id = $r-&gt;variable(&quot;client_md5_id&quot;);<br />#                       my $args = $r-&gt;variable(&quot;args&quot;);<br />#                       if($cookie =~ $client_md5_id){<br />#                               return &quot;non_bot&quot;;<br />#                       }<br />#                       if($args =~ $client_md5_id){<br />#                               return &quot;non_bot&quot;;<br />#                       }<br />#                       return &quot;is_bot&quot;;<br />#               }<br />#       &#39;;<br /><br />#       perl_set $uri_args_with_uuid &#39;<br />#               sub {<br />#                       my $r = shift;<br />#                       my $uri = $r-&gt;variable(&quot;uri&quot;);<br />#                       my $args = $r-&gt;variable(&quot;args&quot;);<br />#                       my $client_md5_id = $r-&gt;variable(&quot;client_md5_id&quot;);<br />#                       $uri =~ s/\/rel//g;<br />#                       if($args =~ $client_md5_id){<br />#                               return $uri.&quot;?&quot;.$args;<br />#                       }else{<br />#                               if($args =~ &quot;uuid=&quot;){<br />#                                       $args =~ s/(.*)uuid=.{32}(.*)/$1uuid=$client_md5_id$2/g;<br />#                                       return $uri.&quot;?&quot;.$args;<br />#                               }else{<br />#                                       return $uri.&quot;?&quot;.&quot;uuid=&quot;.$client_md5_id.&quot;&amp;&quot;.$args;<br />#                               }<br />#                       }<br />#               }<br />#       &#39;;<br /><br /><br />в location:<br />#                       if ($is_bot ~* &quot;is_bot&quot;) {<br />#                               set $cookname &quot;validate-client=&quot;;<br />#                               add_header Set-Cookie $cookname$client_md5_id;<br />#                               rewrite ^ http://$host/get_uid$uri redirect;<br />#                       }<br /><br />(в конфиге это коментом, убирать было лень решётки)<br /><br />  <br /><blockquote style="border-left: 1px solid #CCCCCC; margin: 0pt 0pt 0pt 0.8ex; padding-left: 1em">Доброго времени суток!<br /><br />&nbsp;Пробую создать что-то вроде yum-proxy на базе proxy_module(<a href="http://sysoev.ru/nginx/docs/http/ngx_http_proxy_module.html#proxy_store">proxy_store</a>) + <a href="http://sysoev.ru/nginx/docs/http/ngx_http_perl_module.html">perl_module</a>.<br />  <br />На этапе отладки обработчика на perl оказалось, что встроенные переменные и переменные через set в rewrite_module недоступны (хотел использовать <strong>$r-&gt;variable(&#39;</strong>request_method<strong>&#39;))</strong>.<br /><br />&nbsp;Можно ли получить доступ к переменным из perl?<br />  <br /><br /><br />  <br /></blockquote>