X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=Index.pm;h=e62082277f9b457db81a923c1ec0ffba1cb1a847;hp=576b2de22c5f5cc4c2893f1fbc0b2e96073546bc;hb=f37f652212eb6cb31136488d14d2c2a3908fe30a;hpb=96937bad4fbd9645473d61618509074b45e7e17d diff --git a/Index.pm b/Index.pm index 576b2de..e620822 100644 --- a/Index.pm +++ b/Index.pm @@ -37,7 +37,7 @@ my $W=My::Web->init( $W->{"r"}->status(HTTP_MOVED_TEMPORARILY); -$W->{"r"}->headers_out()->{"Location"}="http://".$W->{"web_hostname"}."/project/"; +$W->{"r"}->headers_out()->{"Location"}=path_web "./project/","abs"=>1; exit 0;