convert WebGUI to a mod perl handler

This commit is contained in:
JT Smith 2005-11-03 09:14:23 +00:00
parent ec9d561c5a
commit 9b23c24a6a
13 changed files with 198 additions and 101 deletions

View file

@ -267,7 +267,7 @@ sub page {
if ($session{asset}) {
$pathinfo = $session{asset}->get("url");
} else {
$pathinfo = $session{env}{PATH_INFO};
$pathinfo = $session{env}{SCRIPT_NAME};
$pathinfo =~ s/^\/(.*)/$1/;
}
$url .= $pathinfo;