Ticket #662: 662.patch

File 662.patch, 2.5 kB (added by w.olchawa, 4 months ago)

Patch proposal

  • _samples/perl/sample01.cgi

     
    105105        if($DefServerPath) { 
    106106                $dir = $DefServerPath; 
    107107        } else { 
    108                 if($ENV{'PATH_INFO'}) { 
    109                         $dir  = $ENV{'PATH_INFO'}; 
     108                if($ENV{'REQUEST_URI'}) { 
     109                        $dir  = $ENV{'REQUEST_URI'}; 
    110110                } elsif($ENV{'FILEPATH_INFO'}) { 
    111111                        $dir  = $ENV{'FILEPATH_INFO'}; 
    112112                } 

  • _samples/perl/sample02.cgi

     
    170170        if($DefServerPath) { 
    171171                $dir = $DefServerPath; 
    172172        } else { 
    173                 if($ENV{'PATH_INFO'}) { 
    174                         $dir  = $ENV{'PATH_INFO'}; 
     173                if($ENV{'REQUEST_URI'}) { 
     174                        $dir  = $ENV{'REQUEST_URI'}; 
    175175                } elsif($ENV{'FILEPATH_INFO'}) { 
    176176                        $dir  = $ENV{'FILEPATH_INFO'}; 
    177177                } 

  • _samples/perl/sample03.cgi

     
    155155        if($DefServerPath) { 
    156156                $dir = $DefServerPath; 
    157157        } else { 
    158                 if($ENV{'PATH_INFO'}) { 
    159                         $dir  = $ENV{'PATH_INFO'}; 
     158                if($ENV{'REQUEST_URI'}) { 
     159                        $dir  = $ENV{'REQUEST_URI'}; 
    160160                } elsif($ENV{'FILEPATH_INFO'}) { 
    161161                        $dir  = $ENV{'FILEPATH_INFO'}; 
    162162                } 

  • _samples/perl/sample04.cgi

     
    162162        if($DefServerPath) { 
    163163                $dir = $DefServerPath; 
    164164        } else { 
    165                 if($ENV{'PATH_INFO'}) { 
    166                         $dir  = $ENV{'PATH_INFO'}; 
     165                if($ENV{'REQUEST_URI'}) { 
     166                        $dir  = $ENV{'REQUEST_URI'}; 
    167167                } elsif($ENV{'FILEPATH_INFO'}) { 
    168168                        $dir  = $ENV{'FILEPATH_INFO'}; 
    169169                } 

  • _whatsnew.html

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