| … | |
… | |
| 233 | (my $cpath = $path) =~ s/([^A-Za-z0-9\/.\-_])/sprintf "\\x%02x", ord $1/ge; |
233 | (my $cpath = $path) =~ s/([^A-Za-z0-9\/.\-_])/sprintf "\\x%02x", ord $1/ge; |
| 234 | |
234 | |
| 235 | push @lines, ( |
235 | push @lines, ( |
| 236 | "ProxyPassReverse /", |
236 | "ProxyPassReverse /", |
| 237 | "ProxyHTMLEnable on", |
237 | "ProxyHTMLEnable on", |
| 238 | "ProxyHTMLURLMap $target $cpath", |
238 | # "ProxyHTMLURLMap $target $cpath", |
| 239 | "ProxyHTMLURLMap / $cpath/", |
239 | # "ProxyHTMLURLMap / $cpath/", |
| 240 | ); |
240 | ); |
| 241 | |
241 | |
| 242 | # warn "PROXY<$path,$target,$suffix>\n";#d# |
242 | # warn "PROXY<$path,$target,$suffix>\n";#d# |
| 243 | # warn map "$_\n",@lines; |
243 | # warn map "$_\n",@lines; |
| 244 | |
244 | |
