Changeset 2123 for FCKeditor/branches/features/new_samples/editor/filemanager/connectors/perl/commands.pl

Timestamp:

2008-06-24 12:06:29 (7 months ago)

Author:

martinkou

Message:

Merged all changes in trunk up to r2121.

Files:

• FCKeditor/branches/features/new_samples/editor/filemanager/connectors/perl/commands.pl (modified) (1 diff)

FCKeditor/branches/features/new_samples/editor/filemanager/connectors/perl/commands.pl

@@ -170 +170 @@
         local($sErrorNumber, $sFileUrl, $sFileName, $customMsg) = @_;
 
+        # Minified version of the document.domain automatic fix script (#1919).
+        # The original script can be found at _dev/domain_fix_template.js
+        # Note: in Perl replace \ with \\ and $ with \$
         print <<EOF;
 Content-type: text/html
 
 <script type="text/javascript">
-// Automatically detect the correct document.domain (#1919).
-(function()
-{
-        var d = document.domain ;
-
-        while ( true )
-        {
-                // Test if we can access a parent property.
-                try
-                {
-                        var test = window.top.opener.document.domain ;
-                        break ;
-                }
-                catch( e ) {}
-
-                // Remove a domain part: www.mytest.example.com => mytest.example.com => example.com ...
-                d = d.replace( /.*?(?:\\.|\$)/, '' ) ;
-
-                if ( d.length == 0 )
-                        break ;         // It was not able to detect the domain.
-
-                try
-                {
-                        document.domain = d ;
-                }
-                catch (e)
-                {
-                        break ;
-                }
-        }
-})() ;
+(function(){var d=document.domain;while (true){try{var A=window.parent.document.domain;break;}catch(e) {};d=d.replace(/.*?(?:\\.|\$)/,'');if (d.length==0) break;try{document.domain=d;}catch (e){break;}}})();
 
 EOF