Mercurial > hg > nginx-tests
annotate proxy_redirect.t @ 193:50063559d85a
Tests: proxy_redirect and Refresh header.
author | Valentin Bartenev <ne@vbart.ru> |
---|---|
date | Tue, 10 Jan 2012 02:06:15 +0400 |
parents | 1613a63b5100 |
children | 3f59e6a843bd |
rev | line source |
---|---|
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
2 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
4 # (C) Valentin Bartenev |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
5 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
6 # Tests for the proxy_redirect directive. |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
7 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
8 ############################################################################### |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
9 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
10 use warnings; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
11 use strict; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
12 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
13 use Test::More; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
14 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
16 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
17 use lib 'lib'; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
18 use Test::Nginx; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
19 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
20 ############################################################################### |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
21 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
22 select STDERR; $| = 1; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
23 select STDOUT; $| = 1; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
24 |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
25 my $t = Test::Nginx->new()->has(qw/http proxy rewrite/)->plan(12); |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
26 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
27 $t->write_file_expand('nginx.conf', <<'EOF'); |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
28 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
29 %%TEST_GLOBALS%% |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
30 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
31 daemon off; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
32 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
33 events { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
34 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
35 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
36 http { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
37 %%TEST_GLOBALS_HTTP%% |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
38 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
39 server { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
40 listen 127.0.0.1:8080; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
41 server_name localhost; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
42 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
43 location / { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
44 set $some_var var_here; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
45 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
46 proxy_pass http://127.0.0.1:8081; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
47 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
48 proxy_redirect http://127.0.0.1:8081/var_in_second/ /$some_var/; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
49 proxy_redirect http://127.0.0.1:8081/$some_var/ /replaced/; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
50 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
51 proxy_redirect ~^(.+)81/regex_w_([^/]+) $180/$2/test.html; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
52 proxy_redirect ~*re+gexp? /replaced/test.html; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
53 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
54 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
55 location /expl_default/ { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
56 proxy_pass http://127.0.0.1:8081/replace_this/; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
57 proxy_redirect wrong wrong; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
58 proxy_redirect default; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
59 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
60 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
61 location /impl_default/ { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
62 proxy_pass http://127.0.0.1:8081/replace_this/; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
63 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
64 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
65 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
66 server { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
67 listen 127.0.0.1:8081; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
68 server_name localhost; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
69 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
70 location / { |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
71 add_header Refresh "7; url=http://127.0.0.1:8081$uri"; |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
72 return http://127.0.0.1:8081$uri; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
73 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
74 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
75 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
76 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
77 EOF |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
78 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
79 $t->run(); |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
80 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
81 ############################################################################### |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
82 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
83 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
84 is(http_get_location('http://127.0.0.1:8080/impl_default/test.html'), |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
85 'http://127.0.0.1:8080/impl_default/test.html', 'implicit default'); |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
86 is(http_get_location('http://127.0.0.1:8080/expl_default/test.html'), |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
87 'http://127.0.0.1:8080/expl_default/test.html', 'explicit default'); |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
88 |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
89 is(http_get_refresh('http://127.0.0.1:8080/impl_default/test.html'), |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
90 '7; url=/impl_default/test.html', 'implicit default (refresh)'); |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
91 is(http_get_refresh('http://127.0.0.1:8080/expl_default/test.html'), |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
92 '7; url=/expl_default/test.html', 'explicit default (refresh)'); |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
93 |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
94 is(http_get_location('http://127.0.0.1:8080/var_in_second/test.html'), |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
95 'http://127.0.0.1:8080/var_here/test.html', 'variable in second arg'); |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
96 is(http_get_refresh('http://127.0.0.1:8080/var_in_second/test.html'), |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
97 '7; url=/var_here/test.html', 'variable in second arg (refresh)'); |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
98 |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
99 TODO: { |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
100 local $TODO = 'support variables in first argument'; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
101 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
102 is(http_get_location('http://127.0.0.1:8080/var_here/test.html'), |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
103 'http://127.0.0.1:8080/replaced/test.html', 'variable in first arg'); |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
104 is(http_get_refresh('http://127.0.0.1:8080/var_here/test.html'), |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
105 '7; url=/replaced/test.html', 'variable in first arg (refresh)'); |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
106 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
107 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
108 |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
109 TODO: { |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
110 local $TODO = 'support for regular expressions'; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
111 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
112 is(http_get_location('http://127.0.0.1:8080/ReeegEX/test.html'), |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
113 'http://127.0.0.1:8080/replaced/test.html', 'caseless regexp'); |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
114 is(http_get_location('http://127.0.0.1:8080/regex_w_captures/test.html'), |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
115 'http://127.0.0.1:8080/captures/test.html', 'regexp w/captures'); |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
116 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
117 } |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
118 |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
119 TODO: { |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
120 local $TODO = 'regular expressions and Refresh header'; |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
121 |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
122 is(http_get_refresh('http://127.0.0.1:8080/ReeegEX/test.html'), |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
123 '7; url=/replaced/test.html', 'caseless regexp (refresh)'); |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
124 is(http_get_refresh('http://127.0.0.1:8080/regex_w_captures/test.html'), |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
125 '7; url=http://127.0.0.1:8080/captures/test.html', |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
126 'regexp w/captures (refresh)'); |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
127 |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
128 } |
186
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
129 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
130 ############################################################################### |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
131 |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
132 sub http_get_location { |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
133 my ($url) = @_; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
134 http_get($url) =~ /^Location:\s(.+?)\x0d?$/mi; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
135 return $1; |
1613a63b5100
Tests: added proxy_redirect tests.
Valentin Bartenev <ne@vbart.ru>
parents:
diff
changeset
|
136 } |
193
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
137 |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
138 sub http_get_refresh { |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
139 my ($url) = @_; |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
140 http_get($url) =~ /^Refresh:\s(.+?)\x0d?$/mi; |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
141 return $1; |
50063559d85a
Tests: proxy_redirect and Refresh header.
Valentin Bartenev <ne@vbart.ru>
parents:
186
diff
changeset
|
142 } |