Ticket #662: 662.patch

_samples/perl/sample01.cgi

@@ -105 +105 @@
         if($DefServerPath) {
                 $dir = $DefServerPath;
         } else {
-                if($ENV{'PATH_INFO'}) {
-                        $dir  = $ENV{'PATH_INFO'};
+                if($ENV{'REQUEST_URI'}) {
+                        $dir  = $ENV{'REQUEST_URI'};
                 } elsif($ENV{'FILEPATH_INFO'}) {
                         $dir  = $ENV{'FILEPATH_INFO'};
                 }

_samples/perl/sample02.cgi

@@ -170 +170 @@
         if($DefServerPath) {
                 $dir = $DefServerPath;
         } else {
-                if($ENV{'PATH_INFO'}) {
-                        $dir  = $ENV{'PATH_INFO'};
+                if($ENV{'REQUEST_URI'}) {
+                        $dir  = $ENV{'REQUEST_URI'};
                 } elsif($ENV{'FILEPATH_INFO'}) {
                         $dir  = $ENV{'FILEPATH_INFO'};
                 }

_samples/perl/sample03.cgi

@@ -155 +155 @@
         if($DefServerPath) {
                 $dir = $DefServerPath;
         } else {
-                if($ENV{'PATH_INFO'}) {
-                        $dir  = $ENV{'PATH_INFO'};
+                if($ENV{'REQUEST_URI'}) {
+                        $dir  = $ENV{'REQUEST_URI'};
                 } elsif($ENV{'FILEPATH_INFO'}) {
                         $dir  = $ENV{'FILEPATH_INFO'};
                 }

_samples/perl/sample04.cgi

@@ -162 +162 @@
         if($DefServerPath) {
                 $dir = $DefServerPath;
         } else {
-                if($ENV{'PATH_INFO'}) {
-                        $dir  = $ENV{'PATH_INFO'};
+                if($ENV{'REQUEST_URI'}) {
+                        $dir  = $ENV{'REQUEST_URI'};
                 } elsif($ENV{'FILEPATH_INFO'}) {
                         $dir  = $ENV{'FILEPATH_INFO'};
                 }

_whatsnew.html

@@ -107 +107 @@
                 <li>[<a target="_blank" href="http://dev.fckeditor.net/ticket/1832">#1832</a>] Calling
                         FCK.InsertHtml() in non-IE browsers would now activate the document processor
                         as expected.</li>
+                <li>[<a target="_blank" href="http://dev.fckeditor.net/ticket/662">#662</a>] In the Perl 
+                        sample files, the GetServerPath function will now calulate the path properly.</li>
         </ul>
         <h3>
                 Version 2.6 Beta 1</h3>