Perl CGI samples are broken

[barts@…]

Each of the _samples/perl/sample*.cgi programs includes code to override the value of $BasePath. The value for the override is computed by manipulating $ENV{'PATH_INFO'}, but it ought to be manipulating $ENV{'REQUEST_URI'} instead.

---

Moved from SF:
​http://sourceforge.net/tracker/index.php?func=detail&aid=1208788&group_id=75348&atid=543653

[w.olchawa]

Hi!

I've encountered a problem in the perl examples as well. The GetServerPath function didn't find a correct server path and as a result I couldn't load the editor. Changing $ENV{'PATH_INFO'} to $ENV{'REQUEST_URI'} solve the problem. I'm not a perl expert but I think the function should be changed according to you suggestions. So the GetServerPath function would be:

sub GetServerPath
{
my $dir;

	if($DefServerPath) {
		$dir = $DefServerPath;
	} else {
		if($ENV{'REQUEST_URI'}) {
			$dir  = $ENV{'REQUEST_URI'};
		} elsif($ENV{'FILEPATH_INFO'}) {
			$dir  = $ENV{'FILEPATH_INFO'};
		}
	}
	return($dir);
}

Thank you for investigating and enjoy working with FCKeditor.

Best regards.

[w.olchawa]

Patch proposal

[w.olchawa]

Corrected little mistakes in _whatsnew.html

[wwalc]

Fixed with [1809].