Changeset 18482 for branches/version-2_4-dev

Timestamp:

2010/01/08 15:02:01 (13 years ago)

Author:

Yammy

Message:

http://svn.ec-cube.net/open_trac/ticket/348
インストール前に /admin/ にアクセスすると /admin/install/ にリダイレクトされる

File:

• branches/version-2_4-dev/data/class/util/SC_Utils.php (modified) (1 diff)

branches/version-2_4-dev/data/class/util/SC_Utils.php

@@ -83 +83 @@
             if( !ereg('/install/', $_SERVER['PHP_SELF']) ) {
                 // インストールページに遷移させる
-                header('Location: ./install/');
+
+                $script_filename = $_SERVER['SCRIPT_FILENAME'];
+                list($real_root, $tmp) = explode('/html/', $script_filename);
+                $real_root = $real_root . '/html/';
+                $url_dir = $_SERVER['REQUEST_URI'];
+
+                if ($dh = opendir($real_root)) {
+                    $arrDir = array();
+                    while ($entry = readdir($dh)) {
+                        if (is_dir($real_root.$entry) && !in_array($entry, array('.', '..', '.svn', 'install'))) {
+                            $url_dir = rtrim($url_dir, $entry.'/');
+                        }
+                    }
+                    closedir($dh);
+                }
+
+                $location = $url_dir . '/install/';
+                header('Location: ' . $location);
                 exit;
             }