Index: _samples/perl/sample01.cgi =================================================================== --- _samples/perl/sample01.cgi (revision 1798) +++ _samples/perl/sample01.cgi (working copy) @@ -109,6 +109,8 @@ $dir = $ENV{'PATH_INFO'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; + } elsif($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } } return($dir); Index: _samples/perl/sample02.cgi =================================================================== --- _samples/perl/sample02.cgi (revision 1798) +++ _samples/perl/sample02.cgi (working copy) @@ -174,6 +174,8 @@ $dir = $ENV{'PATH_INFO'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; + } elsif($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } } return($dir); Index: _samples/perl/sample03.cgi =================================================================== --- _samples/perl/sample03.cgi (revision 1798) +++ _samples/perl/sample03.cgi (working copy) @@ -159,6 +159,8 @@ $dir = $ENV{'PATH_INFO'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; + } elsif($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } } return($dir); Index: _samples/perl/sample04.cgi =================================================================== --- _samples/perl/sample04.cgi (revision 1798) +++ _samples/perl/sample04.cgi (working copy) @@ -166,6 +166,8 @@ $dir = $ENV{'PATH_INFO'}; } elsif($ENV{'FILEPATH_INFO'}) { $dir = $ENV{'FILEPATH_INFO'}; + } elsif($ENV{'REQUEST_URI'}) { + $dir = $ENV{'REQUEST_URI'}; } } return($dir); Index: _whatsnew.html =================================================================== --- _whatsnew.html (revision 1798) +++ _whatsnew.html (working copy) @@ -112,6 +112,10 @@