Re: Можно ли передать переменные в perl?

[umask <umask@xxxxxxxxx>]

04.06.08, 15:39, "Alexey Ermoshkin" в http:
#       perl_set $client_md5_id '
#               sub {
#                       my $r = shift;
#                       use Digest::MD5 qw(md5_hex);
#                       return md5_hex($r->remote_addr . "salt");
#               }
#       ';

#       perl_set $is_bot '
#               sub {
#                       my $r = shift;
#                       my $cookie = $r->header_in("Cookie");
#                       my $client_md5_id = $r->variable("client_md5_id");
#                       my $args = $r->variable("args");
#                       if($cookie =~ $client_md5_id){
#                               return "non_bot";
#                       }
#                       if($args =~ $client_md5_id){
#                               return "non_bot";
#                       }
#                       return "is_bot";
#               }
#       ';

#       perl_set $uri_args_with_uuid '
#               sub {
#                       my $r = shift;
#                       my $uri = $r->variable("uri");
#                       my $args = $r->variable("args");
#                       my $client_md5_id = $r->variable("client_md5_id");
#                       $uri =~ s/\/rel//g;
#                       if($args =~ $client_md5_id){
#                               return $uri."?".$args;
#                       }else{
#                               if($args =~ "uuid="){
#                                       $args =~ s/(.*)uuid=.{32}(.*)/$1uuid=$client_md5_id$2/g;
#                                       return $uri."?".$args;
#                               }else{
#                                       return $uri."?"."uuid=".$client_md5_id."&".$args;
#                               }
#                       }
#               }
#       ';


в location:
#                       if ($is_bot ~* "is_bot") {
#                               set $cookname "validate-client=";
#                               add_header Set-Cookie $cookname$client_md5_id;
#                               rewrite ^ http://$host/get_uid$uri redirect;
#                       }

(в конфиге это коментом, убирать было лень решётки)

  
> Доброго времени суток!
>
>  Пробую создать что-то вроде yum-proxy на базе proxy_module(proxy_store) + perl_module.
>   
> На этапе отладки обработчика на perl оказалось, что встроенные переменные и переменные через set в rewrite_module недоступны (хотел использовать $r->variable('request_method')).
>
>  Можно ли получить доступ к переменным из perl?
>   
>
>
>