ПРОЕКТЫ 


  АРХИВ 


Apache-Talk @lexa.ru 

Inet-Admins @info.east.ru 

Filmscanners @halftone.co.uk 

Security-alerts @yandex-team.ru 

nginx-ru @sysoev.ru 


  СТАТЬИ 


  ПЕРСОНАЛЬНОЕ 


  ПРОГРАММЫ 



ПИШИТЕ
ПИСЬМА












     АРХИВ :: nginx-ru
Nginx-ru mailing list archive (nginx-ru@sysoev.ru)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


  • To: nginx-ru@xxxxxxxxx
  • Subject: Re: Можно ли передать переменные в perl?
  • From: umask <umask@xxxxxxxxx>
  • Date: Wed, 04 Jun 2008 18:43:09 +0400
  • In-reply-to: 1660000000404726223
  • References: 1660000000404726223



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?






 




Copyright © Lexa Software, 1996-2009.