Changeset 1791 for FCKeditor/trunk/editor/filemanager/connectors/perl/commands.pl

Timestamp:

2008-03-25 08:57:35 (7 months ago)

Author:

wwalc

Message:

Fix for #1919 (file browser & relaxation mode issue)

Files:

• FCKeditor/trunk/editor/filemanager/connectors/perl/commands.pl (modified) (1 diff)

FCKeditor/trunk/editor/filemanager/connectors/perl/commands.pl

@@ -170 +170 @@
         local($sErrorNumber, $sFileUrl, $sFileName, $customMsg) = @_;
 
-        print "Content-type: text/html\n\n";
-        print '<script type="text/javascript">';
+        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 ;
+                }
+        }
+})() ;
+
+EOF
         print 'window.parent.OnUploadCompleted(' . $sErrorNumber . ',"' . JS_cnv($sFileUrl) . '","' . JS_cnv($sFileName) . '","' . JS_cnv($customMsg) . '") ;';
         print '</script>';