249. File Comparison Report

Produced on Mon May 12 13:05:37 2008 UTC. This report uses XHTML and CSS2, and is best viewed with a reasonably standards compliant browser such as the latest version of Firefox or Internet Explorer. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

249.1 Files compared

# Location File Last Modified
1 Dolphin-v.6.0.5\install index.php Thu Mar 6 05:06:16 2008 UTC
2 Dolphin-v.6.1.0\install index.php Sun Apr 27 07:29:22 2008 UTC

249.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 18 3522
Changed 8 31
Inserted 8 13
Removed 1 2

249.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

249.4 Active regular expressions

No regular expressions were active.

249.5 Comparison detail

1   <?php   1   <?php
2     2  
3   /********* ********** ********** ********** ********** ********** ********** ******   3   /********* ********** ********** ********** ********** ********** ********** ******
4   *                              D olphin Sma rt Communi ty Builder   4   *                              D olphin Sma rt Communi ty Builder
5   *                                 --------- --------   5   *                                 --------- --------
6   *     begi n                 : M on Mar 23  2006   6   *     begi n                 : M on Mar 23  2006
7   *     copy right             : ( C) 2006 Bo onEx Group   7   *     copy right             : ( C) 2006 Bo onEx Group
8   *     webs ite               : h ttp://www. boonex.com /   8   *     webs ite               : h ttp://www. boonex.com /
9   * This fil e is part  of Dolphin  - Smart C ommunity B uilder   9   * This fil e is part  of Dolphin  - Smart C ommunity B uilder
10   *   10   *
11   * Dolphin  is free so ftware. Th is work is  licensed  under a Cr eative Com mons Attri bution 3.0  License.    11   * Dolphin  is free so ftware. Th is work is  licensed  under a Cr eative Com mons Attri bution 3.0  License. 
12   * http://c reativecom mons.org/l icenses/by /3.0/   12   * http://c reativecom mons.org/l icenses/by /3.0/
13   *   13   *
14   * Dolphin  is distrib uted in th e hope tha t it will  be useful,  but WITHO UT ANY WAR RANTY;   14   * Dolphin  is distrib uted in th e hope tha t it will  be useful,  but WITHO UT ANY WAR RANTY;
15   * without  even the i mplied war ranty of   MERCHANTAB ILITY or F ITNESS FOR  A PARTICU LAR PURPOS E.   15   * without  even the i mplied war ranty of   MERCHANTAB ILITY or F ITNESS FOR  A PARTICU LAR PURPOS E.
16   * See the  Creative C ommons Att ribution 3 .0 License  for more  details.    16   * See the  Creative C ommons Att ribution 3 .0 License  for more  details. 
17   * You shou ld have re ceived a c opy of the  Creative  Commons At tribution  3.0 Licens e along wi th Dolphin   17   * You shou ld have re ceived a c opy of the  Creative  Commons At tribution  3.0 Licens e along wi th Dolphin
18   * see lice nse.txt fi le; if not , write to  marketing @boonex.co m   18   * see lice nse.txt fi le; if not , write to  marketing @boonex.co m
19   ********** ********** ********** ********** ********** ********** ********** *****/   19   ********** ********** ********** ********** ********** ********** ********** *****/
20     20  
21   error_repo rting(E_AL L & ~E_NOT ICE);   21   error_repo rting(E_AL L & ~E_NOT ICE);
22   set_magic_ quotes_run time(0);   22   set_magic_ quotes_run time(0);
23   ini_set('m agic_quote s_sybase',  0);   23   ini_set('m agic_quote s_sybase',  0);
24     24  
25     25  
26   /*-------- ---------- ---------- --*/   26   /*-------- ---------- ---------- --*/
27   /*-------- --Vars---- ---------- --*/   27   /*-------- --Vars---- ---------- --*/
28       $aConf  = array() ;   28       $aConf  = array() ;
29        $aConf['re lease']   =   ' 06 .0 3 .08';   29        $aConf['re lease']   =   ' 28 .0 4 .08';
30        $aConf['iV ersion']   =   '6. 0 ';   30        $aConf['iV ersion']   =   '6. 1 ';
31        $aConf['iP atch']   =   '0 005 ';   31        $aConf['iP atch']   =   '0
';
32       $aConf ['dolFile' ] = '../in c/header.i nc.php';   32       $aConf ['dolFile' ] = '../in c/header.i nc.php';
33       $aConf ['periodic File'] = ' ../periodi c/periodic .file';   33       $aConf ['periodic File'] = ' ../periodi c/periodic .file';
34       $aConf ['cmdFile' ] = '../pe riodic/cmd .php';   34       $aConf ['cmdFile' ] = '../pe riodic/cmd .php';
35       $aConf ['notifies File'] = ' ../periodi c/notifies .php';   35       $aConf ['notifies File'] = ' ../periodi c/notifies .php';
36        $aConf[' tags File']   =   '../period ic/ tags .php';   36        $aConf[' cupid File']   =   '../period ic/ cupid .php';
37       $aConf ['confDir' ] = '../in c/';   37       $aConf ['confDir' ] = '../in c/';
38       $aConf ['rayHeade r'] = '../ ray/module s/global/i nc/header. inc.php';   38       $aConf ['rayHeade r'] = '../ ray/module s/global/i nc/header. inc.php';
39       $aConf ['headerTe mpl'] = << <EOS   39       $aConf ['headerTe mpl'] = << <EOS
40   <?   40   <?
41     41  
42   /********* ********** ********** ********** ********** ********** ********** ******   42   /********* ********** ********** ********** ********** ********** ********** ******
43   *                              D olphin Sma rt Communi ty Builder   43   *                              D olphin Sma rt Communi ty Builder
44   *                                 --------- --------   44   *                                 --------- --------
45   *     begi n                 : M on Mar 23  2006   45   *     begi n                 : M on Mar 23  2006
46   *     copy right             : ( C) 2006 Bo onEx Group   46   *     copy right             : ( C) 2006 Bo onEx Group
47   *     webs ite               : h ttp://www. boonex.com /   47   *     webs ite               : h ttp://www. boonex.com /
48   * This fil e is part  of Dolphin  - Smart C ommunity B uilder   48   * This fil e is part  of Dolphin  - Smart C ommunity B uilder
49   *   49   *
50   * Dolphin  is free so ftware. Th is work is  licensed  under a Cr eative Com mons Attri bution 3.0  License.    50   * Dolphin  is free so ftware. Th is work is  licensed  under a Cr eative Com mons Attri bution 3.0  License. 
51   * http://c reativecom mons.org/l icenses/by /3.0/   51   * http://c reativecom mons.org/l icenses/by /3.0/
52   *   52   *
53   * Dolphin  is distrib uted in th e hope tha t it will  be useful,  but WITHO UT ANY WAR RANTY;   53   * Dolphin  is distrib uted in th e hope tha t it will  be useful,  but WITHO UT ANY WAR RANTY;
54   * without  even the i mplied war ranty of   MERCHANTAB ILITY or F ITNESS FOR  A PARTICU LAR PURPOS E.   54   * without  even the i mplied war ranty of   MERCHANTAB ILITY or F ITNESS FOR  A PARTICU LAR PURPOS E.
55   * See the  Creative C ommons Att ribution 3 .0 License  for more  details.    55   * See the  Creative C ommons Att ribution 3 .0 License  for more  details. 
56   * You shou ld have re ceived a c opy of the  Creative  Commons At tribution  3.0 Licens e along wi th Dolphin   56   * You shou ld have re ceived a c opy of the  Creative  Commons At tribution  3.0 Licens e along wi th Dolphin
57   * see lice nse.txt fi le; if not , write to  marketing @boonex.co m   57   * see lice nse.txt fi le; if not , write to  marketing @boonex.co m
58   ********** ********** ********** ********** ********** ********** ********** *****/   58   ********** ********** ********** ********** ********** ********** ********** *****/
59     59  
60   \$site['ve r']                =  '{$aConf[' iVersion'] }';   60   \$site['ve r']                =  '{$aConf[' iVersion'] }';
61   \$site['bu ild']              =  '{$aConf[' iPatch']}' ;   61   \$site['bu ild']              =  '{$aConf[' iPatch']}' ;
62   \$site['ti tle']              =  '%site_tit le%';   62   \$site['ti tle']              =  '%site_tit le%';
63   \$site['ur l']                =  "%site_url %";   63   \$site['ur l']                =  "%site_url %";
64   \$admin_di r                  =  "admin";   64   \$admin_di r                  =  "admin";
65   \$site['ur l_admin']          =  "{\$site[' url']}\$ad min_dir/";   65   \$site['ur l_admin']          =  "{\$site[' url']}\$ad min_dir/";
66   \$site['ur l_aff']            =  "{\$site[' url']}aff/ ";   66   \$site['ur l_aff']            =  "{\$site[' url']}aff/ ";
67   \$site['pr ofileImage ']      =  "{\$site[' url']}medi a/images/p rofile/";   67   \$site['pr ofileImage ']      =  "{\$site[' url']}medi a/images/p rofile/";
68   \$site['pr ofileBackg round'] =  "{\$site[' url']}medi a/images/p rofile_bg/ ";   68   \$site['pr ofileBackg round'] =  "{\$site[' url']}medi a/images/p rofile_bg/ ";
69   \$site['pr ofileSound ']      =  "{\$site[' url']}medi a/sound/";   69   \$site['pr ofileSound ']      =  "{\$site[' url']}medi a/sound/";
70   \$site['pr ofileVideo ']      =  "{\$site[' url']}medi a/video/";   70   \$site['pr ofileVideo ']      =  "{\$site[' url']}medi a/video/";
71   \$site['sh aringImage s']     =  "{\$site[' url']}medi a/images/s haringImag es/";   71   \$site['sh aringImage s']     =  "{\$site[' url']}medi a/images/s haringImag es/";
72     72  
73   \$site['me diaImages' ]       =  "{\$site[' url']}medi a/images/" ;   73   \$site['me diaImages' ]       =  "{\$site[' url']}medi a/images/" ;
74   \$site['ga llery']            =  "{\$site[' url']}medi a/images/g allery/";   74   \$site['ga llery']            =  "{\$site[' url']}medi a/images/g allery/";
75   \$site['fl ags']              =  "{\$site[' url']}medi a/images/f lags/";   75   \$site['fl ags']              =  "{\$site[' url']}medi a/images/f lags/";
76   \$site['bl ogImage']          =  "{\$site[' url']}medi a/images/b log/";   76   \$site['bl ogImage']          =  "{\$site[' url']}medi a/images/b log/";
77   \$site['sd atingImage ']      =  "{\$site[' url']}medi a/images/s dating/";   77   \$site['sd atingImage ']      =  "{\$site[' url']}medi a/images/s dating/";
78   \$site['sm iles']             =  "{\$site[' url']}medi a/images/s miles/";   78   \$site['sm iles']             =  "{\$site[' url']}medi a/images/s miles/";
79   \$site['ba nners']            =  "{\$site[' url']}medi a/images/b anners/";   79   \$site['ba nners']            =  "{\$site[' url']}medi a/images/b anners/";
80   \$site['im agesPromo' ]       =  "{\$site[' url']}medi a/images/p romo/";   80   \$site['im agesPromo' ]       =  "{\$site[' url']}medi a/images/p romo/";
81   \$site['tm p']                =  "{\$site[' url']}tmp/ ";   81   \$site['tm p']                =  "{\$site[' url']}tmp/ ";
82   \$site['pr eCheckout' ]       =  "{\$site[' url']}chec kout/pre_c heckout.ph p";   82   \$site['pr eCheckout' ]       =  "{\$site[' url']}chec kout/pre_c heckout.ph p";
83   \$site['pl ugins']            =  "{\$site[' url']}plug ins/";   83   \$site['pl ugins']            =  "{\$site[' url']}plug ins/";
84   \$site['ba se']               =  "{\$site[' url']}temp lates/base /";   84   \$site['ba se']               =  "{\$site[' url']}temp lates/base /";
85     85  
86     86  
87     87  
88     88  
89   \$site['em ail']              =  "%site_ema il%";   89   \$site['em ail']              =  "%site_ema il%";
90   \$site['em ail_notify ']      =  "%notify_e mail%";   90   \$site['em ail_notify ']      =  "%notify_e mail%";
91   \$site['bu gReportMai l']     =  "%bug_repo rt_email%" ;   91   \$site['bu gReportMai l']     =  "%bug_repo rt_email%" ;
92     92  
93     93  
94     94  
95   \$dir['roo t']                =  "%dir_root %";   95   \$dir['roo t']                =  "%dir_root %";
96   \$dir['inc ']                 =  "{\$dir['r oot']}inc/ ";   96   \$dir['inc ']                 =  "{\$dir['r oot']}inc/ ";
97   \$dir['pro fileImage' ]       =  "{\$dir['r oot']}medi a/images/p rofile/";   97   \$dir['pro fileImage' ]       =  "{\$dir['r oot']}medi a/images/p rofile/";
98   \$dir['pro fileBackgr ound']  =  "{\$dir['r oot']}medi a/images/p rofile_bg/ ";   98   \$dir['pro fileBackgr ound']  =  "{\$dir['r oot']}medi a/images/p rofile_bg/ ";
99   \$dir['pro fileSound' ]       =  "{\$dir['r oot']}medi a/sound/";   99   \$dir['pro fileSound' ]       =  "{\$dir['r oot']}medi a/sound/";
100   \$dir['pro fileVideo' ]       =  "{\$dir['r oot']}medi a/video/";   100   \$dir['pro fileVideo' ]       =  "{\$dir['r oot']}medi a/video/";
101   \$dir['sha ringImages ']     = " {\$dir['ro ot']}media /images/sh aringImage s/";   101   \$dir['sha ringImages ']     = " {\$dir['ro ot']}media /images/sh aringImage s/";
102     102  
103   \$dir['med iaImages']         =  "{\$dir['r oot']}medi a/images/" ;   103   \$dir['med iaImages']         =  "{\$dir['r oot']}medi a/images/" ;
104   \$dir['gal lery']             =  "{\$dir['r oot']}medi a/images/g allery/";   104   \$dir['gal lery']             =  "{\$dir['r oot']}medi a/images/g allery/";
105   \$dir['fla gs']               =  "{\$dir['r oot']}medi a/images/f lags/";   105   \$dir['fla gs']               =  "{\$dir['r oot']}medi a/images/f lags/";
106   \$dir['blo gImage']           =  "{\$dir['r oot']}medi a/images/b log/";   106   \$dir['blo gImage']           =  "{\$dir['r oot']}medi a/images/b log/";
107   \$dir['sda tingImage' ]       =  "{\$dir['r oot']}medi a/images/s dating/";   107   \$dir['sda tingImage' ]       =  "{\$dir['r oot']}medi a/images/s dating/";
108   \$dir['smi les']              =  "{\$dir['r oot']}medi a/images/s miles/";   108   \$dir['smi les']              =  "{\$dir['r oot']}medi a/images/s miles/";
109   \$dir['ban ners']             =  "{\$dir['r oot']}medi a/images/b anners/";   109   \$dir['ban ners']             =  "{\$dir['r oot']}medi a/images/b anners/";
110   \$dir['ima gesPromo']         =  "{\$dir['r oot']}medi a/images/p romo/";   110   \$dir['ima gesPromo']         =  "{\$dir['r oot']}medi a/images/p romo/";
111   \$dir['tmp ']                 =  "{\$dir['r oot']}tmp/ ";   111   \$dir['tmp ']                 =  "{\$dir['r oot']}tmp/ ";
112   \$dir['cac he']               =  "{\$dir['r oot']}cach e/";   112   \$dir['cac he']               =  "{\$dir['r oot']}cach e/";
113   \$dir['plu gins']             =  "{\$dir['r oot']}plug ins/";   113   \$dir['plu gins']             =  "{\$dir['r oot']}plug ins/";
114   \$dir['bas e']                =  "{\$dir['r oot']}temp lates/base /";   114   \$dir['bas e']                =  "{\$dir['r oot']}temp lates/base /";
115   \$dir['cla sses']             =  "{\$dir['i nc']}class es/";   115   \$dir['cla sses']             =  "{\$dir['i nc']}class es/";
116     116  
117   \$video_ex t                  =  'avi';   117   \$video_ex t                  =  'avi';
118   \$MOGRIFY                     =  "%dir_mogr ify%";   118   \$MOGRIFY                     =  "%dir_mogr ify%";
119   \$CONVERT                     =  "%dir_conv ert%";   119   \$CONVERT                     =  "%dir_conv ert%";
120   \$COMPOSIT E                  =  "%dir_comp osite%";   120   \$COMPOSIT E                  =  "%dir_comp osite%";
121   \$PHPBIN                      =  "%dir_php% ";   121   \$PHPBIN                      =  "%dir_php% ";
122     122  
123   \$db['host ']                 =  '%db_host% ';   123   \$db['host ']                 =  '%db_host% ';
124   \$db['sock ']                 =  '%db_sock% ';   124   \$db['sock ']                 =  '%db_sock% ';
125   \$db['port ']                 =  '%db_port% ';   125   \$db['port ']                 =  '%db_port% ';
126   \$db['user ']                 =  '%db_user% ';   126   \$db['user ']                 =  '%db_user% ';
127   \$db['pass wd']               =  '%db_passw ord%';   127   \$db['pass wd']               =  '%db_passw ord%';
128   \$db['db']                    =  '%db_name% ';   128   \$db['db']                    =  '%db_name% ';
129     129  
130     130  
131   define('BX _DIRECTORY _PATH_INC' , \$dir['i nc']);   131   define('BX _DIRECTORY _PATH_INC' , \$dir['i nc']);
132   define('BX _DIRECTORY _PATH_ROOT ', \$dir[' root']);   132   define('BX _DIRECTORY _PATH_ROOT ', \$dir[' root']);
133   define('BX _DIRECTORY _PATH_BASE ', \$dir[' base']);   133   define('BX _DIRECTORY _PATH_BASE ', \$dir[' base']);
134   define('BX _DIRECTORY _PATH_CACH E', \$dir[ 'cache']);   134   define('BX _DIRECTORY _PATH_CACH E', \$dir[ 'cache']);
135   define('BX _DIRECTORY _PATH_CLAS SES', \$di r['classes ']);   135   define('BX _DIRECTORY _PATH_CLAS SES', \$di r['classes ']);
136     136  
137   define('DA TABASE_HOS T', \$db[' host']);   137   define('DA TABASE_HOS T', \$db[' host']);
138   define('DA TABASE_SOC K', \$db[' sock']);   138   define('DA TABASE_SOC K', \$db[' sock']);
139   define('DA TABASE_POR T', \$db[' port']);   139   define('DA TABASE_POR T', \$db[' port']);
140   define('DA TABASE_USE R', \$db[' user']);   140   define('DA TABASE_USE R', \$db[' user']);
141   define('DA TABASE_PAS S', \$db[' passwd']);   141   define('DA TABASE_PAS S', \$db[' passwd']);
142   define('DA TABASE_NAM E', \$db[' db']);   142   define('DA TABASE_NAM E', \$db[' db']);
143     143  
144     144  
145     145  
146   //check sa fe_mode   146   //check sa fe_mode
147   if( (int)i ni_get( 's afe_mode'  ) )   147   if( (int)i ni_get( 's afe_mode'  ) )
148   {   148   {
149       echo ' <b>Warning .</b> Dolp hin cannot  work in s afe mode';   149       echo ' <b>Warning .</b> Dolp hin cannot  work in s afe mode';
150       exit;   150       exit;
151   }   151   }
152     152  
153   //check mb string   153   //check mb string
154   if( !exten sion_loade d( 'mbstri ng' ) ) {   154   if( !exten sion_loade d( 'mbstri ng' ) ) {
155       echo ' <b>Warning !</b> Dolp hin cannot  work with out <b>mbs tring</b>  extension.   155       echo ' <b>Warning !</b> Dolp hin cannot  work with out <b>mbs tring</b>  extension.
156           Pl ease go to  the   156           Pl ease go to  the
157           <a  href="htt p://www.bo onex.com/t rac/dolphi n/wiki/Gen DolTShoote r">Dolphin  Troublesh ooter</a>   157           <a  href="htt p://www.bo onex.com/t rac/dolphi n/wiki/Gen DolTShoote r">Dolphin  Troublesh ooter</a>
158           an d solve th e problem. ';   158           an d solve th e problem. ';
159       exit;   159       exit;
160   }   160   }
161     161  
162   //check co rrect host name   162   //check co rrect host name
163   \$aUrl = p arse_url(  \$site['ur l'] );   163   \$aUrl = p arse_url(  \$site['ur l'] );
164   if( isset( \$_SERVER[ 'HTTP_HOST ']) and \$ _SERVER['H TTP_HOST']  != \$aUrl ['host'] a nd \$_SERV ER['HTTP_H OST'] != \ $aUrl['hos t'] . ':80 ' )   164   if( isset( \$_SERVER[ 'HTTP_HOST ']) and \$ _SERVER['H TTP_HOST']  != \$aUrl ['host'] a nd \$_SERV ER['HTTP_H OST'] != \ $aUrl['hos t'] . ':80 ' )
165   {   165   {
166       header ( "Locatio n:http://{ \$aUrl['ho st']}{\$_S ERVER['REQ UEST_URI'] }" );   166       header ( "Locatio n:http://{ \$aUrl['ho st']}{\$_S ERVER['REQ UEST_URI'] }" );
167       exit;   167       exit;
168   }   168   }
169     169  
170     170  
171     171  
172   // check i f install  folder exi sts   172   // check i f install  folder exi sts
173   if ( file_ exists( \$ dir['root' ] . 'insta ll' ) )   173   if ( file_ exists( \$ dir['root' ] . 'insta ll' ) )
174   {   174   {
175       \$ret  = <<<EOJ   175       \$ret  = <<<EOJ
176   <!DOCTYPE  html PUBLI C "-//W3C/ /DTD XHTML  1.0 Trans itional//E N" "http:/ /www.w3.or g/TR/xhtml 1/DTD/xhtm l1-transit ional.dtd" >   176   <!DOCTYPE  html PUBLI C "-//W3C/ /DTD XHTML  1.0 Trans itional//E N" "http:/ /www.w3.or g/TR/xhtml 1/DTD/xhtm l1-transit ional.dtd" >
177       <html  xmlns="htt p://www.w3 .org/1999/ xhtml" xml :lang="en- US" lang=" en-US">   177       <html  xmlns="htt p://www.w3 .org/1999/ xhtml" xml :lang="en- US" lang=" en-US">
178           <h ead>   178           <h ead>
179                <title>D olphin Sma rt Communi ty Builder  Installed </title>   179                <title>D olphin Sma rt Communi ty Builder  Installed </title>
180                <link hr ef="instal l/general. css" rel=" stylesheet " type="te xt/css" />   180                <link hr ef="instal l/general. css" rel=" stylesheet " type="te xt/css" />
181                <meta ht tp-equiv=" Content-Ty pe" conten t="text/ht ml; charse t=UTF-8" / >   181                <meta ht tp-equiv=" Content-Ty pe" conten t="text/ht ml; charse t=UTF-8" / >
182           </ head>   182           </ head>
183           <b ody>   183           <b ody>
184                <div id= "main">   184                <div id= "main">
185                <div id= "header">   185                <div id= "header">
186                    <img  src="inst all/images /boonex_lo go.gif" al t="" /></d iv>   186                    <img  src="inst all/images /boonex_lo go.gif" al t="" /></d iv>
187                <div id= "content">   187                <div id= "content">
188                    <div  class="in stalled_pi c">   188                    <div  class="in stalled_pi c">
189                         <img alt=" Dolphin In stalled" s rc="instal l/images/d olphin_ins talled.jpg " />   189                         <img alt=" Dolphin In stalled" s rc="instal l/images/d olphin_ins talled.jpg " />
190                </div>   190                </div>
191     191  
192                <div cla ss="instal led_text">   192                <div cla ss="instal led_text">
193                    Plea se, remove  INSTALL d irectory f rom your s erver and  reload thi s page to  activate y our commun ity site.   193                    Plea se, remove  INSTALL d irectory f rom your s erver and  reload thi s page to  activate y our commun ity site.
194                </div>   194                </div>
195           </ body>   195           </ body>
196       </html >   196       </html >
197   EOJ;   197   EOJ;
198       echo \ $ret;   198       echo \ $ret;
199       exit() ;   199       exit() ;
200   }   200   }
201     201  
202   // set err or reporti ng level   202   // set err or reporti ng level
203   error_repo rting(E_AL L & ~E_NOT ICE);   203   error_repo rting(E_AL L & ~E_NOT ICE);
204   set_magic_ quotes_run time(0);   204   set_magic_ quotes_run time(0);
205   ini_set('m agic_quote s_sybase',  0);   205   ini_set('m agic_quote s_sybase',  0);
206     206  
207   // set def ault encod ing for mu ltibyte fu nctions   207   // set def ault encod ing for mu ltibyte fu nctions
208   mb_interna l_encoding ('UTF-8');   208   mb_interna l_encoding ('UTF-8');
209     209  
210   //--- Ray  Integratio n ---//   210   //--- Ray  Integratio n ---//
211   require_on ce(\$dir[' root'] . " ray/module s/global/i nc/header. inc.php");   211   require_on ce(\$dir[' root'] . " ray/module s/global/i nc/header. inc.php");
212   require_on ce(\$dir[' root'] . " ray/module s/global/i nc/content .inc.php") ;   212   require_on ce(\$dir[' root'] . " ray/module s/global/i nc/content .inc.php") ;
213   //--- Ray  Integratio n ---//   213   //--- Ray  Integratio n ---//
214   ?>   214   ?>
215   EOS;   215   EOS;
216     216  
217       $aConf ['periodic Templ'] =  <<<EOS   217       $aConf ['periodic Templ'] =  <<<EOS
218   MAILTO=%si te_email%   218   MAILTO=%si te_email%
219   0 0 * * *   %dir_php%  -q %dir_r oot%period ic/cmd.php   219   0 0 * * *   %dir_php%  -q %dir_r oot%period ic/cmd.php
220   */10 * * *  *  %dir_p hp% -q %di r_root%per iodic/noti fies.php   220   */10 * * *  *  %dir_p hp% -q %di r_root%per iodic/noti fies.php
221   *
/1 0   *   *   *   *    %dir_php%   -q   %dir_root% periodic/ tags .php
  221   *   * /1  
*   *   *    %dir_php%   -q   %dir_root% periodic/ cupid .php
222      
223   EOS;   222   EOS;
224     223  
    224   //*/10 * *  * *  %dir _php% -q % dir_root%p eriodic/ta gs.php
    225  
225     226  
226       $permD irectories  = array(   227       $permD irectories  = array(
227           'b ackup',   228           'b ackup',
228           'c ache',   229           'c ache',
229           'i nc',   230           'i nc',
230           'l angs',   231           'l angs',
231           'm edia/image s/classifi eds',   232           'm edia/image s/classifi eds',
232           'g roups/gall ery',   233           'g roups/gall ery',
233           'm edia/image s',   234           'm edia/image s',
234           'm edia/image s/banners' ,   235           'm edia/image s/banners' ,
235           'm edia/image s/blog',   236           'm edia/image s/blog',
236           'm edia/image s/gallery' ,   237           'm edia/image s/gallery' ,
237           'm edia/image s/profile' ,   238           'm edia/image s/profile' ,
238           'm edia/image s/profile_ bg',   239           'm edia/image s/profile_ bg',
239           'm edia/image s/sdating' ,   240           'm edia/image s/sdating' ,
240           'm edia/image s/promo',   241           'm edia/image s/promo',
    242           'm edia/image s/promo/or iginal',
241           'm edia/image s/sharingI mages',   243           'm edia/image s/sharingI mages',
242           'm edia/sound ',   244           'm edia/sound ',
243           'm edia/video ',   245           'm edia/video ',
244            'orca/ c a chejs ',   246           'p eriodic',
    247           't mp',
    248           'o rca/classe s',
    249           'o rca/conf',
    250            'orca/ l a yout ',
245           'o rca/log',   251           'o rca/log',
    252           'o rca/js',
    253           'o rca/cachej s',
    254           'g roups/orca /classes',
    255           'g roups/orca /layout',
246           'g roups/orca /log',   256           'g roups/orca /log',
    257           'g roups/orca /js',
247           'g roups/orca /cachejs',   258           'g roups/orca /cachejs',
248           'p eriodic',    
249           't mp'    
250       );   259       );
    260  
    261       //'per iodic/tags .php',
251       $permF iles = arr ay(   262       $permF iles = arr ay(
252           'p eriodic/cm d.php',   263           'p eriodic/cm d.php',
253           'p eriodic/no tifies.php ',   264           'p eriodic/no tifies.php ',
254            'periodic/ tags .php',   265            'periodic/ cupid .php',
    266           'i nc/prof.in c.php',
255           'i nc/params. inc.php',   267           'i nc/params. inc.php',
256            'inc/ m enu _c ontent.inc .php ',   268            'inc/ db_cached/ M enu C ontent.inc
',
257     269           'i nc/db_cach ed/PageVie w.inc',
    270           'i nc/db_cach ed/SiteSta t.inc',
    271           'i nc/db_cach ed/Profile Fields.inc '
258       );   272       );
259     273  
260       $aRayF olders = a rray(   274       $aRayF olders = a rray(
261           'r ay/modules /board/fil es',   275           'r ay/modules /board/fil es',
    276           'r ay/modules /chat/file s',
262           'r ay/modules /im/files' ,   277           'r ay/modules /im/files' ,
263           'r ay/modules /movie/fil es',   278           'r ay/modules /movie/fil es',
264           'r ay/modules /mp3/files ',   279           'r ay/modules /mp3/files ',
265           'r ay/modules /music/fil es'   280           'r ay/modules /music/fil es'
266       );   281       );
267     282  
268       $aRayF iles = arr ay(   283       $aRayF iles = arr ay(
    284           'r ay/modules /global/da ta/integra tion.dat',
269           'r ay/modules /board/xml /config.xm l',   285           'r ay/modules /board/xml /config.xm l',
270           'r ay/modules /board/xml /langs.xml ',   286           'r ay/modules /board/xml /langs.xml ',
271           'r ay/modules /board/xml /main.xml' ,   287           'r ay/modules /board/xml /main.xml' ,
272           'r ay/modules /board/xml /skins.xml ',   288           'r ay/modules /board/xml /skins.xml ',
273           'r ay/modules /chat/xml/ config.xml ',   289           'r ay/modules /chat/xml/ config.xml ',
274           'r ay/modules /chat/xml/ langs.xml' ,   290           'r ay/modules /chat/xml/ langs.xml' ,
275           'r ay/modules /chat/xml/ main.xml',   291           'r ay/modules /chat/xml/ main.xml',
276           'r ay/modules /chat/xml/ skins.xml' ,   292           'r ay/modules /chat/xml/ skins.xml' ,
277           'r ay/modules /desktop/x ml/config. xml',   293           'r ay/modules /desktop/x ml/config. xml',
278           'r ay/modules /desktop/x ml/langs.x ml',   294           'r ay/modules /desktop/x ml/langs.x ml',
279           'r ay/modules /desktop/x ml/main.xm l',   295           'r ay/modules /desktop/x ml/main.xm l',
280           'r ay/modules /desktop/x ml/skins.x ml',   296           'r ay/modules /desktop/x ml/skins.x ml',
281           'r ay/modules /global/ap p/ffmpeg.e xe',   297           'r ay/modules /global/ap p/ffmpeg.e xe',
282           'r ay/modules /global/in c/cron.inc .php',   298           'r ay/modules /global/in c/cron.inc .php',
283           'r ay/modules /global/in c/header.i nc.php',   299           'r ay/modules /global/in c/header.i nc.php',
284           'r ay/modules /global/xm l/config.x ml',   300           'r ay/modules /global/xm l/config.x ml',
285           'r ay/modules /global/xm l/main.xml ',   301           'r ay/modules /global/xm l/main.xml ',
286           'r ay/modules /im/xml/co nfig.xml',   302           'r ay/modules /im/xml/co nfig.xml',
287           'r ay/modules /im/xml/la ngs.xml',   303           'r ay/modules /im/xml/la ngs.xml',
288           'r ay/modules /im/xml/ma in.xml',   304           'r ay/modules /im/xml/ma in.xml',
289           'r ay/modules /im/xml/sk ins.xml',   305           'r ay/modules /im/xml/sk ins.xml',
290           'r ay/modules /movie/xml /config.xm l',   306           'r ay/modules /movie/xml /config.xm l',
291           'r ay/modules /movie/xml /langs.xml ',   307           'r ay/modules /movie/xml /langs.xml ',
292           'r ay/modules /movie/xml /main.xml' ,   308           'r ay/modules /movie/xml /main.xml' ,
293           'r ay/modules /movie/xml /skins.xml ',   309           'r ay/modules /movie/xml /skins.xml ',
294           'r ay/modules /mp3/xml/c onfig.xml' ,   310           'r ay/modules /mp3/xml/c onfig.xml' ,
295           'r ay/modules /mp3/xml/l angs.xml',   311           'r ay/modules /mp3/xml/l angs.xml',
296           'r ay/modules /mp3/xml/m ain.xml',   312           'r ay/modules /mp3/xml/m ain.xml',
297           'r ay/modules /mp3/xml/s kins.xml',   313           'r ay/modules /mp3/xml/s kins.xml',
298           'r ay/modules /music/xml /config.xm l',   314           'r ay/modules /music/xml /config.xm l',
299           'r ay/modules /music/xml /langs.xml ',   315           'r ay/modules /music/xml /langs.xml ',
300           'r ay/modules /music/xml /main.xml' ,   316           'r ay/modules /music/xml /main.xml' ,
301           'r ay/modules /music/xml /skins.xml ',   317           'r ay/modules /music/xml /skins.xml ',
302           'r ay/modules /presence/ xml/config .xml',   318           'r ay/modules /presence/ xml/config .xml',
303           'r ay/modules /presence/ xml/langs. xml',   319           'r ay/modules /presence/ xml/langs. xml',
304           'r ay/modules /presence/ xml/main.x ml',   320           'r ay/modules /presence/ xml/main.x ml',
305           'r ay/modules /presence/ xml/skins. xml',   321           'r ay/modules /presence/ xml/skins. xml',
306           'r ay/modules /shoutbox/ xml/config .xml',   322           'r ay/modules /shoutbox/ xml/config .xml',
307           'r ay/modules /shoutbox/ xml/langs. xml',   323           'r ay/modules /shoutbox/ xml/langs. xml',
308           'r ay/modules /shoutbox/ xml/main.x ml',   324           'r ay/modules /shoutbox/ xml/main.x ml',
309           'r ay/modules /shoutbox/ xml/skins. xml',   325           'r ay/modules /shoutbox/ xml/skins. xml',
310           'r ay/modules /video/xml /config.xm l',   326           'r ay/modules /video/xml /config.xm l',
311           'r ay/modules /video/xml /langs.xml ',   327           'r ay/modules /video/xml /langs.xml ',
312           'r ay/modules /video/xml /main.xml' ,   328           'r ay/modules /video/xml /main.xml' ,
313           'r ay/modules /video/xml /skins.xml '   329           'r ay/modules /video/xml /skins.xml '
314       );   330       );
315          331       
316       $rever salDirecto ries = arr ay(   332       $rever salDirecto ries = arr ay(
317           'i nc',   333           'i nc',
318           'p eriodic'   334           'p eriodic'
319       );   335       );
320          336  
    337       //'per iodic/tags .php',
321       $rever salFiles =  array(   338       $rever salFiles =  array(
322           'p eriodic/cm d.php',   339           'p eriodic/cm d.php',
323           'p eriodic/no tifies.php ',   340           'p eriodic/no tifies.php ',
324            'periodic/ tags .php',   341            'periodic/ cupid .php',
325           'r ay/modules /global/in c/header.i nc.php',   342           'r ay/modules /global/in c/header.i nc.php',
326       );   343       );
327     344  
328       $confF irst = arr ay();   345       $confF irst = arr ay();
329       $confF irst['site _url'] = a rray(   346       $confF irst['site _url'] = a rray(
330       name = > "Site UR L",   347       name = > "Site UR L",
331       ex =>  "http://ww w.mydomain .com/path/ ",   348       ex =>  "http://ww w.mydomain .com/path/ ",
332       desc = > "Your si te URL her e (backsla sh at the  end requir ed)",   349       desc = > "Your si te URL her e (backsla sh at the  end requir ed)",
333       def =>  "http://" ,   350       def =>  "http://" ,
334       def_ex p => '   351       def_ex p => '
335           $s tr = "http ://".$_SER VER[\'HTTP _HOST\'].$ _SERVER[\' SCRIPT_NAM E\'];   352           $s tr = "http ://".$_SER VER[\'HTTP _HOST\'].$ _SERVER[\' SCRIPT_NAM E\'];
336           re turn preg_ replace("/ install\/( index\.php $)/","",$s tr);',   353           re turn preg_ replace("/ install\/( index\.php $)/","",$s tr);',
337       check  => 'return  strlen($a rg0) >= 10  ? true :  false;'   354       check  => 'return  strlen($a rg0) >= 10  ? true :  false;'
338       );   355       );
339       $confF irst['dir_ root'] = a rray(   356       $confF irst['dir_ root'] = a rray(
340       name = > "Directo ry root",   357       name = > "Directo ry root",
341       ex =>  "/path/to/ your/scrip t/files/",   358       ex =>  "/path/to/ your/scrip t/files/",
342       desc = > "Path to  directory  where you r php scri pt files s tored.",   359       desc = > "Path to  directory  where you r php scri pt files s tored.",
343       def_ex p => '   360       def_ex p => '
344           $s tr = $_SER VER[\'DOCU MENT_ROOT\ '].$_SERVE R[\'SCRIPT _NAME\'];   361           $s tr = $_SER VER[\'DOCU MENT_ROOT\ '].$_SERVE R[\'SCRIPT _NAME\'];
345           re turn preg_ replace("/ install\/( index\.php $)/","",$s tr);',   362           re turn preg_ replace("/ install\/( index\.php $)/","",$s tr);',
346       check  => 'return  strlen($a rg0) >= 1  ? true : f alse;'   363       check  => 'return  strlen($a rg0) >= 1  ? true : f alse;'
347       );   364       );
348       $confF irst['dir_ php'] = ar ray(   365       $confF irst['dir_ php'] = ar ray(
349       name = > "Path to  php binar y",   366       name = > "Path to  php binar y",
350       ex =>  "/usr/loca l/bin/php" ,   367       ex =>  "/usr/loca l/bin/php" ,
351       desc = > "You sho uld specif y full pat h to your  PHP interp reter here .",   368       desc = > "You sho uld specif y full pat h to your  PHP interp reter here .",
352       def =>  "/usr/loc al/bin/php ",   369       def =>  "/usr/loc al/bin/php ",
353       def_ex p => "   370       def_ex p => "
354           if  ( file_ex ists(\"/us r/local/bi n/php\") )  return \" /usr/local /bin/php\" ;   371           if  ( file_ex ists(\"/us r/local/bi n/php\") )  return \" /usr/local /bin/php\" ;
355           \$ fp = popen  ( \"where is php\",  \"r\");   372           \$ fp = popen  ( \"where is php\",  \"r\");
356           if  ( \$fp )   373           if  ( \$fp )
357           {   374           {
358                \$s = fg ets(\$fp);   375                \$s = fg ets(\$fp);
359                \$s = ss canf(\$s,  \"php: %s\ ");   376                \$s = ss canf(\$s,  \"php: %s\ ");
360                if ( fil e_exists(\ "\$s[0]\")  ) return  \"\$s[0]\" ;   377                if ( fil e_exists(\ "\$s[0]\")  ) return  \"\$s[0]\" ;
361           }   378           }
362           re turn '';",   379           re turn '';",
363       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'   380       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'
364       );   381       );
365     382  
366       $confF irst['dir_ mogrify']  = array(   383       $confF irst['dir_ mogrify']  = array(
367       name = > "Path to  mogrify",   384       name = > "Path to  mogrify",
368       ex =>  "/usr/loca l/bin/mogr ify",   385       ex =>  "/usr/loca l/bin/mogr ify",
369       desc = > "If mogr ify binary  doesn't e xist pleas e install  <a href='h ttp://www. imagemagic k.org/'>Im ageMagick< /a>",   386       desc = > "If mogr ify binary  doesn't e xist pleas e install  <a href='h ttp://www. imagemagic k.org/'>Im ageMagick< /a>",
370       def =>  "/usr/loc al/bin/mog rify",   387       def =>  "/usr/loc al/bin/mog rify",
371       def_ex p => "   388       def_ex p => "
372           if  ( file_ex ists(\"/us r/X11R6/bi n/mogrify\ ") ) retur n \"/usr/X 11R6/bin/m ogrify\";   389           if  ( file_ex ists(\"/us r/X11R6/bi n/mogrify\ ") ) retur n \"/usr/X 11R6/bin/m ogrify\";
373           if  ( file_ex ists(\"/us r/local/bi n/mogrify\ ") ) retur n \"/usr/l ocal/bin/m ogrify\";   390           if  ( file_ex ists(\"/us r/local/bi n/mogrify\ ") ) retur n \"/usr/l ocal/bin/m ogrify\";
374           if  ( file_ex ists(\"/us r/bin/mogr ify\") ) r eturn \"/u sr/bin/mog rify\";   391           if  ( file_ex ists(\"/us r/bin/mogr ify\") ) r eturn \"/u sr/bin/mog rify\";
375           if  ( file_ex ists(\"/us r/local/X1 1R6/bin/mo grify\") )  return \" /usr/local /X11R6/bin /mogrify\" ;   392           if  ( file_ex ists(\"/us r/local/X1 1R6/bin/mo grify\") )  return \" /usr/local /X11R6/bin /mogrify\" ;
376           if  ( file_ex ists(\"/us r/bin/X11/ mogrify\")  ) return  \"/usr/bin /X11/mogri fy\";   393           if  ( file_ex ists(\"/us r/bin/X11/ mogrify\")  ) return  \"/usr/bin /X11/mogri fy\";
377           re turn '';",   394           re turn '';",
378       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'   395       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'
379       );   396       );
380     397  
381   $confFirst ['dir_conv ert'] = ar ray(   398   $confFirst ['dir_conv ert'] = ar ray(
382       name = > "Path to  convert",   399       name = > "Path to  convert",
383       ex =>  "/usr/loca l/bin/conv ert",   400       ex =>  "/usr/loca l/bin/conv ert",
384       desc = > "If conv ert binary  doesn't e xist pleas e install  <a href='h ttp://www. imagemagic k.org/'>Im ageMagick< /a>",   401       desc = > "If conv ert binary  doesn't e xist pleas e install  <a href='h ttp://www. imagemagic k.org/'>Im ageMagick< /a>",
385       def =>  "/usr/loc al/bin/con vert",   402       def =>  "/usr/loc al/bin/con vert",
386       def_ex p => "   403       def_ex p => "
387           if  ( file_ex ists(\"/us r/X11R6/bi n/convert\ ") ) retur n \"/usr/X 11R6/bin/c onvert\";   404           if  ( file_ex ists(\"/us r/X11R6/bi n/convert\ ") ) retur n \"/usr/X 11R6/bin/c onvert\";
388           if  ( file_ex ists(\"/us r/local/bi n/convert\ ") ) retur n \"/usr/l ocal/bin/c onvert\";   405           if  ( file_ex ists(\"/us r/local/bi n/convert\ ") ) retur n \"/usr/l ocal/bin/c onvert\";
389           if  ( file_ex ists(\"/us r/bin/conv ert\") ) r eturn \"/u sr/bin/con vert\";   406           if  ( file_ex ists(\"/us r/bin/conv ert\") ) r eturn \"/u sr/bin/con vert\";
390           if  ( file_ex ists(\"/us r/local/X1 1R6/bin/co nvert\") )  return \" /usr/local /X11R6/bin /convert\" ;   407           if  ( file_ex ists(\"/us r/local/X1 1R6/bin/co nvert\") )  return \" /usr/local /X11R6/bin /convert\" ;
391           if  ( file_ex ists(\"/us r/bin/X11/ convert\")  ) return  \"/usr/bin /X11/conve rt\";   408           if  ( file_ex ists(\"/us r/bin/X11/ convert\")  ) return  \"/usr/bin /X11/conve rt\";
392           re turn '';",   409           re turn '';",
393       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'   410       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'
394       );   411       );
395     412  
396   $confFirst ['dir_comp osite'] =  array(   413   $confFirst ['dir_comp osite'] =  array(
397       name = > "Path to  composite ",   414       name = > "Path to  composite ",
398       ex =>  "/usr/loca l/bin/comp osite",   415       ex =>  "/usr/loca l/bin/comp osite",
399       desc = > "If comp osite bina ry doesn't  exist ple ase instal l <a href= 'http://ww w.imagemag ick.org/'> ImageMagic k</a>",   416       desc = > "If comp osite bina ry doesn't  exist ple ase instal l <a href= 'http://ww w.imagemag ick.org/'> ImageMagic k</a>",
400       def =>  "/usr/loc al/bin/com posite",   417       def =>  "/usr/loc al/bin/com posite",
401       def_ex p => "   418       def_ex p => "
402           if  ( file_ex ists(\"/us r/X11R6/bi n/composit e\") ) ret urn \"/usr /X11R6/bin /composite \";   419           if  ( file_ex ists(\"/us r/X11R6/bi n/composit e\") ) ret urn \"/usr /X11R6/bin /composite \";
403           if  ( file_ex ists(\"/us r/local/bi n/composit e\") ) ret urn \"/usr /local/bin /composite \";   420           if  ( file_ex ists(\"/us r/local/bi n/composit e\") ) ret urn \"/usr /local/bin /composite \";
404           if  ( file_ex ists(\"/us r/bin/comp osite\") )  return \" /usr/bin/c omposite\" ;   421           if  ( file_ex ists(\"/us r/bin/comp osite\") )  return \" /usr/bin/c omposite\" ;
405           if  ( file_ex ists(\"/us r/local/X1 1R6/bin/co mposite\")  ) return  \"/usr/loc al/X11R6/b in/composi te\";   422           if  ( file_ex ists(\"/us r/local/X1 1R6/bin/co mposite\")  ) return  \"/usr/loc al/X11R6/b in/composi te\";
406           if  ( file_ex ists(\"/us r/bin/X11/ composite\ ") ) retur n \"/usr/b in/X11/com posite\";   423           if  ( file_ex ists(\"/us r/bin/X11/ composite\ ") ) retur n \"/usr/b in/X11/com posite\";
407           re turn '';",   424           re turn '';",
408       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'   425       check  => 'return  strlen($a rg0) >= 7  ? true : f alse;'
409       );   426       );
410     427  
411       $aDbCo nf = array ();   428       $aDbCo nf = array ();
412       $aDbCo nf['sql_fi le'] = arr ay(   429       $aDbCo nf['sql_fi le'] = arr ay(
413           na me => "SQL  file",   430           na me => "SQL  file",
414           ex  => "/home /dolphin/p ublic_html /install/s ql/vXX.sql ",   431           ex  => "/home /dolphin/p ublic_html /install/s ql/vXX.sql ",
415           de sc => "SQL  file loca tion",   432           de sc => "SQL  file loca tion",
416           de f => "./sq l/vXX.sql" ,   433           de f => "./sq l/vXX.sql" ,
417           de f_exp => '   434           de f_exp => '
418                if ( !(  $dir = ope ndir( "sql /" ) ) )   435                if ( !(  $dir = ope ndir( "sql /" ) ) )
419                    retu rn "";   436                    retu rn "";
420                while (f alse !== ( $file = re addir($dir )))   437                while (f alse !== ( $file = re addir($dir )))
421                    {   438                    {
422                    if (  substr($f ile,-3) !=  \'sql\' )  continue;   439                    if (  substr($f ile,-3) !=  \'sql\' )  continue;
423                    clos edir( $dir  );   440                    clos edir( $dir  );
424                    retu rn "./sql/ $file";   441                    retu rn "./sql/ $file";
425                }   442                }
426                closedir ( $dir );   443                closedir ( $dir );
427                return " ";',   444                return " ";',
428           ch eck => 're turn strle n($arg0) > = 4 ? true  : false;'   445           ch eck => 're turn strle n($arg0) > = 4 ? true  : false;'
429       );   446       );
430     447  
431       $aDbCo nf['db_hos t'] = arra y(   448       $aDbCo nf['db_hos t'] = arra y(
432           na me => "Dat abase host  name",   449           na me => "Dat abase host  name",
433           ex  => "local host",   450           ex  => "local host",
434           de sc => "You r MySQL da tabase hos t name her e.",   451           de sc => "You r MySQL da tabase hos t name her e.",
435           de f => "loca lhost",   452           de f => "loca lhost",
436           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'   453           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'
437       );   454       );
438     455  
439       $aDbCo nf['db_por t'] = arra y(   456       $aDbCo nf['db_por t'] = arra y(
440           na me => "Dat abase host  port numb er",   457           na me => "Dat abase host  port numb er",
441           ex  => "5506" ,   458           ex  => "5506" ,
442           de sc => "Lea ve blank o r specify  MySQL Data base host  port numbe r.",   459           de sc => "Lea ve blank o r specify  MySQL Data base host  port numbe r.",
443           de f => "",   460           de f => "",
444           ch eck => ''   461           ch eck => ''
445       );   462       );
446          463       
447       $aDbCo nf['db_soc k'] = arra y(   464       $aDbCo nf['db_soc k'] = arra y(
448           na me => "Dat abase sock et path",   465           na me => "Dat abase sock et path",
449           ex  => "/tmp/ mysql50.so ck",   466           ex  => "/tmp/ mysql50.so ck",
450           de sc => "Lea ve blank o r specify  MySQL Data base socke t path.",   467           de sc => "Lea ve blank o r specify  MySQL Data base socke t path.",
451           de f => "",   468           de f => "",
452           ch eck => ''   469           ch eck => ''
453       );   470       );
454          471       
455       $aDbCo nf['db_nam e'] = arra y(   472       $aDbCo nf['db_nam e'] = arra y(
456           na me => "Dat abase name ",   473           na me => "Dat abase name ",
457           ex  => "YourD atabaseNam e",   474           ex  => "YourD atabaseNam e",
458           de sc => "You r MySQL da tabase nam e here.",   475           de sc => "You r MySQL da tabase nam e here.",
459           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'   476           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'
460       );   477       );
461     478  
462       $aDbCo nf['db_use r'] = arra y(   479       $aDbCo nf['db_use r'] = arra y(
463           na me => "Dat abase user ",   480           na me => "Dat abase user ",
464           ex  => "YourN ame",   481           ex  => "YourN ame",
465           de sc => "You r MySQL da tabase rea d/write us er name he re.",   482           de sc => "You r MySQL da tabase rea d/write us er name he re.",
466           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'   483           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'
467       );   484       );
468     485  
469       $aDbCo nf['db_pas sword'] =  array(   486       $aDbCo nf['db_pas sword'] =  array(
470           na me => "Dat abase pass word",   487           na me => "Dat abase pass word",
471           ex  => "YourP assword",   488           ex  => "YourP assword",
472           de sc => "You r MySQL da tabase pas sword here .",   489           de sc => "You r MySQL da tabase pas sword here .",
473           ch eck => 're turn strle n($arg0) > = 0 ? true  : false;'   490           ch eck => 're turn strle n($arg0) > = 0 ? true  : false;'
474       );   491       );
475       $aGene ral = arra y();   492       $aGene ral = arra y();
476       $aGene ral['site_ title'] =  array(   493       $aGene ral['site_ title'] =  array(
477           na me => "Sit e Title",   494           na me => "Sit e Title",
478           ex  => "The B est Commun ity",   495           ex  => "The B est Commun ity",
479           de sc => "The  name of y our site",   496           de sc => "The  name of y our site",
480           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'   497           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'
481       );   498       );
482       $aGene ral['site_ email'] =  array(   499       $aGene ral['site_ email'] =  array(
483           na me => "Sit e e-mail",   500           na me => "Sit e e-mail",
484           ex  => "your@ email.here ",   501           ex  => "your@ email.here ",
485           de sc => "You r site e-m ail.",   502           de sc => "You r site e-m ail.",
486           ch eck => 're turn strle n($arg0) >  0 AND str str($arg0, "@") ? tru e : false; '   503           ch eck => 're turn strle n($arg0) >  0 AND str str($arg0, "@") ? tru e : false; '
487       );   504       );
488       $aGene ral['notif y_email']  = array(   505       $aGene ral['notif y_email']  = array(
489           na me => "Not ify e-mail ",   506           na me => "Not ify e-mail ",
490           ex  => "your@ email.here ",   507           ex  => "your@ email.here ",
491           de sc => "Env elope \"Fr om:\" addr ess for no tification  messages" ,   508           de sc => "Env elope \"Fr om:\" addr ess for no tification  messages" ,
492           ch eck => 're turn strle n($arg0) >  0 AND str str($arg0, "@") ? tru e : false; '   509           ch eck => 're turn strle n($arg0) >  0 AND str str($arg0, "@") ? tru e : false; '
493       );   510       );
494       $aGene ral['bug_r eport_emai l'] = arra y(   511       $aGene ral['bug_r eport_emai l'] = arra y(
495           na me => "Bug  report em ail",   512           na me => "Bug  report em ail",
496           ex  => "your@ email.here ",   513           ex  => "your@ email.here ",
497           de sc => "You r email fo r receivin g bug repo rts.",   514           de sc => "You r email fo r receivin g bug repo rts.",
498           ch eck => 're turn strle n($arg0) >  0 AND str str($arg0, "@") ? tru e : false; '   515           ch eck => 're turn strle n($arg0) >  0 AND str str($arg0, "@") ? tru e : false; '
499       );   516       );
500       $aGene ral['admin _username' ] = array(   517       $aGene ral['admin _username' ] = array(
501           na me => "Adm in Usernam e",   518           na me => "Adm in Usernam e",
502           ex  => "admin ",   519           ex  => "admin ",
503           de sc => "Spe cify the a dmin name  here",   520           de sc => "Spe cify the a dmin name  here",
504           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'   521           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'
505           );   522           );
506       $aGene ral['admin _password' ] = array(   523       $aGene ral['admin _password' ] = array(
507           na me => "Adm in Passwor d",   524           na me => "Adm in Passwor d",
508           ex  => "dolph in",   525           ex  => "dolph in",
509           de sc => "Spe cify the a dmin passw ord here",   526           de sc => "Spe cify the a dmin passw ord here",
510           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'   527           ch eck => 're turn strle n($arg0) > = 1 ? true  : false;'
511           );   528           );
512     529  
513   /*-------- --Vars---- ---------- --*/   530   /*-------- --Vars---- ---------- --*/
514   /*-------- ---------- ---------- --*/   531   /*-------- ---------- ---------- --*/
515     532  
516     533  
517   $sAction =  $_REQUEST ['action'] ;   534   $sAction =  $_REQUEST ['action'] ;
518   $sError =  '';   535   $sError =  '';
519     536  
520   $cont = Pa geContent(  $sError ) ;   537   $cont = Pa geContent(  $sError ) ;
521     538  
522   mb_interna l_encoding ('UTF-8');   539   mb_interna l_encoding ('UTF-8');
523     540  
524   echo PageH eader( $sA ction, $sE rror );   541   echo PageH eader( $sA ction, $sE rror );
525   echo $cont ;   542   echo $cont ;
526   echo PageF ooter( $sA ction );   543   echo PageF ooter( $sA ction );
527     544  
528   function P ageContent ( &$sError  )   545   function P ageContent ( &$sError  )
529   {   546   {
530       global  $aConf, $ permDirect ories, $pe rmFiles, $ reversalDi rectories,  $reversal Files;   547       global  $aConf, $ permDirect ories, $pe rmFiles, $ reversalDi rectories,  $reversal Files;
531       global  $confFirs t, $aDbCon f, $aGener al, $aRayF olders, $a RayFiles;   548       global  $confFirs t, $aDbCon f, $aGener al, $aRayF olders, $a RayFiles;
532     549  
533       $ret =  '';   550       $ret =  '';
534       switch ( $_REQUES T['action' ] )   551       switch ( $_REQUES T['action' ] )
535       {   552       {
536           ca se 'step7' :   553           ca se 'step7' :
537                $ret .=  loadDolphi n();   554                $ret .=  loadDolphi n();
538                break;   555                break;
539                   556                
540           ca se 'step6' :   557           ca se 'step6' :
541                $dirName  = '';   558                $dirName  = '';
542                $fileNam e = '';   559                $fileNam e = '';
543                $errorMe ssage = '' ;   560                $errorMe ssage = '' ;
544     561  
545                foreach  ($reversal Directorie s as $dir)   562                foreach  ($reversal Directorie s as $dir)
546                {   563                {
547                    if (  isFullAcc essible('. ./'.$dir)  )   564                    if (  isFullAcc essible('. ./'.$dir)  )
548                    {   565                    {
549                         //$passOk  = false;   566                         //$passOk  = false;
550                         $dirName . = '&nbsp;& nbsp;&nbsp ;' . $dir  . ';<br /> ';   567                         $dirName . = '&nbsp;& nbsp;&nbsp ;' . $dir  . ';<br /> ';
551                    }   568                    }
552                }   569                }
553                if( strl en( $dirNa me ) )   570                if( strl en( $dirNa me ) )
554                {   571                {
555                    $sEr ror = 'err or';   572                    $sEr ror = 'err or';
556                    $err orMessage  .= '<stron g>Next dir ectories h ave inappr opriate pe rmissions< /strong>:< br />' . $ dirName;   573                    $err orMessage  .= '<stron g>Next dir ectories h ave inappr opriate pe rmissions< /strong>:< br />' . $ dirName;
557                }   574                }
558                foreach  ( $reversa lFiles as  $file )   575                foreach  ( $reversa lFiles as  $file )
559                {   576                {
560                    if (  isRWAcces sible ('.. /'.$file)  )   577                    if (  isRWAcces sible ('.. /'.$file)  )
561                    {   578                    {
562                         //$passOk  = false;   579                         //$passOk  = false;
563                         $fileName  .= '&nbsp; &nbsp;&nbs p;' . $fil e . ';<br  /> ';   580                         $fileName  .= '&nbsp; &nbsp;&nbs p;' . $fil e . ';<br  /> ';
564                    }   581                    }
565                }   582                }
566                if( strl en( $fileN ame ) )   583                if( strl en( $fileN ame ) )
567                {   584                {
568                    $sEr ror = 'err or';   585                    $sEr ror = 'err or';
569                    $err orMessage  .= '<stron g>Next fil es have in appropriat e permissi ons</stron g>:<br />'  . $fileNa me;   586                    $err orMessage  .= '<stron g>Next fil es have in appropriat e permissi ons</stron g>:<br />'  . $fileNa me;
570                }   587                }
571     588  
572                if( strl en( $error Message )  )   589                if( strl en( $error Message )  )
573                {   590                {
574                    $ret  .= showPe rmissions  ( $errorMe ssage );   591                    $ret  .= showPe rmissions  ( $errorMe ssage );
575                }   592                }
576                else   593                else
577                {   594                {
578                    $ret  .= loadDo lphin();   595                    $ret  .= loadDo lphin();
579                }   596                }
580           br eak;   597           br eak;
581              598           
582              599           
583              600           
584           ca se 'step5' :   601           ca se 'step5' :
585                $ret .=  showPermis sions();   602                $ret .=  showPermis sions();
586           br eak;   603           br eak;
587     604  
588           ca se 'step4' :   605           ca se 'step4' :
589                $errorMe ssage = '' ;   606                $errorMe ssage = '' ;
590                foreach  ( $aGenera l as $key  => $value  )   607                foreach  ( $aGenera l as $key  => $value  )
591                {   608                {
592                    if (  !strlen($ value['che ck']) ) co ntinue;   609                    if (  !strlen($ value['che ck']) ) co ntinue;
593                    $fun cbody = $v alue['chec k'];   610                    $fun cbody = $v alue['chec k'];
594                    $fun c = create _function( '$arg0', $ funcbody);   611                    $fun c = create _function( '$arg0', $ funcbody);
595     612  
596                    if (  !$func($_ POST[$key] ) )   613                    if (  !$func($_ POST[$key] ) )
597                    {   614                    {
598                         $errorMess age .= "Pl ease, inpu t valid da ta to <b>{ $value['na me']}</b>  field<br / >";   615                         $errorMess age .= "Pl ease, inpu t valid da ta to <b>{ $value['na me']}</b>  field<br / >";
599                         $error_arr [$key] = 1 ;   616                         $error_arr [$key] = 1 ;
600                         $passOk =  false;   617                         $passOk =  false;
601                         unset($_PO ST[$key]);   618                         unset($_PO ST[$key]);
602                    }   619                    }
603                    else   620                    else
604                         $error_arr [$key] = 0 ;   621                         $error_arr [$key] = 0 ;
605                    $con fig_arr[$k ey]['def']  = $_POST[ $key];   622                    $con fig_arr[$k ey]['def']  = $_POST[ $key];
606                }   623                }
607     624  
608                if( strl en( $error Message )  )   625                if( strl en( $error Message )  )
609                {   626                {
610                    $sEr ror = 'err or';   627                    $sEr ror = 'err or';
611                    $ret  .= instal lGeneralIn fo( $error Message );   628                    $ret  .= instal lGeneralIn fo( $error Message );
612                }   629                }
613                else   630                else
614                {   631                {
615                    $ret  .= instal lFinish();   632                    $ret  .= instal lFinish();
616                }   633                }
617           br eak;   634           br eak;
618              635           
619           ca se 'step3' :   636           ca se 'step3' :
620                $errorMe ssage = '' ;   637                $errorMe ssage = '' ;
621                foreach  ( $aDbConf  as $key = > $value )   638                foreach  ( $aDbConf  as $key = > $value )
622                {   639                {
623                    if (  !strlen($ value['che ck']) )   640                    if (  !strlen($ value['che ck']) )
624                         continue;   641                         continue;
625                       642                    
626                    $fun cbody = $v alue['chec k'];   643                    $fun cbody = $v alue['chec k'];
627                    $fun c = create _function( '$arg0', $ funcbody);   644                    $fun c = create _function( '$arg0', $ funcbody);
628     645  
629                    if (  !$func($_ POST[$key] ) )   646                    if (  !$func($_ POST[$key] ) )
630                    {   647                    {
631                         $errorMess age .= "Pl ease, inpu t valid da ta to <b>{ $value['na me']}</b>  field<br / >";   648                         $errorMess age .= "Pl ease, inpu t valid da ta to <b>{ $value['na me']}</b>  field<br / >";
632                         $error_arr [$key] = 1 ;   649                         $error_arr [$key] = 1 ;
633                         $passOk =  false;   650                         $passOk =  false;
634                         unset($_PO ST[$key]);   651                         unset($_PO ST[$key]);
635                    }   652                    }
636                    else   653                    else
637                         $error_arr [$key] = 0 ;   654                         $error_arr [$key] = 0 ;
638                    $con fig_arr[$k ey]['def']  = $_POST[ $key];   655                    $con fig_arr[$k ey]['def']  = $_POST[ $key];
639                }   656                }
640     657  
641                if( strl en( $error Message )  )   658                if( strl en( $error Message )  )
642                {   659                {
643                    $sEr ror = 'err or';   660                    $sEr ror = 'err or';
644                    $ret  .= instal lDBConf( $ errorMessa ge );   661                    $ret  .= instal lDBConf( $ errorMessa ge );
645                }   662                }
646                else   663                else
647                {   664                {
648                    $ret  .= instal lGeneralIn fo();   665                    $ret  .= instal lGeneralIn fo();
649                }   666                }
650           br eak;   667           br eak;
651              668           
652           ca se 'step2' :   669           ca se 'step2' :
653                $errorMe ssage = '' ;   670                $errorMe ssage = '' ;
654                foreach  ( $confFir st as $key  => $value  )   671                foreach  ( $confFir st as $key  => $value  )
655                {   672                {
656                    if (  !strlen($ value['che ck']) ) co ntinue;   673                    if (  !strlen($ value['che ck']) ) co ntinue;
657                    $fun cbody = $v alue['chec k'];   674                    $fun cbody = $v alue['chec k'];
658                    $fun c = create _function( '$arg0', $ funcbody);   675                    $fun c = create _function( '$arg0', $ funcbody);
659     676  
660                    if (  !$func($_ POST[$key] ) )   677                    if (  !$func($_ POST[$key] ) )
661                    {   678                    {
662                         $errorMess age .= "Pl ease, inpu t valid da ta to <b>{ $value['na me']}</b>  field<br / >";   679                         $errorMess age .= "Pl ease, inpu t valid da ta to <b>{ $value['na me']}</b>  field<br / >";
663                         $error_arr [$key] = 1 ;   680                         $error_arr [$key] = 1 ;
664                         $passOk =  false;   681                         $passOk =  false;
665                         unset($_PO ST[$key]);   682                         unset($_PO ST[$key]);
666                    }   683                    }
667                    else   684                    else
668                         $error_arr [$key] = 0 ;   685                         $error_arr [$key] = 0 ;
669                    $con fig_arr[$k ey]['def']  = $_POST[ $key];   686                    $con fig_arr[$k ey]['def']  = $_POST[ $key];
670                }   687                }
671     688  
672                if( strl en( $error Message )  )   689                if( strl en( $error Message )  )
673                {   690                {
674                    $sEr ror = 'err or';   691                    $sEr ror = 'err or';
675                    $ret  .= instal lStepFirst ( $errorMe ssage );   692                    $ret  .= instal lStepFirst ( $errorMe ssage );
676                }   693                }
677                else   694                else
678                {   695                {
679                    $ret  .= instal lDBConf();   696                    $ret  .= instal lDBConf();
680                }   697                }
681     698  
682           br eak;   699           br eak;
683              700           
684           ca se 'step1' :   701           ca se 'step1' :
685                $dirName  = '';   702                $dirName  = '';
686                $errorMe ssage = '' ;   703                $errorMe ssage = '' ;
687                foreach  ($permDire ctories as  $dir)   704                foreach  ($permDire ctories as  $dir)
688                {   705                {
689                    if (  !isFullAc cessible(' ../'.$dir)  )   706                    if (  !isFullAc cessible(' ../'.$dir)  )
690                    {   707                    {
691                         //$passOk  = false;   708                         //$passOk  = false;
692                         $dirName . = '&nbsp;& nbsp;&nbsp ;' . $dir  . ';<br /> ';   709                         $dirName . = '&nbsp;& nbsp;&nbsp ;' . $dir  . ';<br /> ';
693                    }   710                    }
694                }   711                }
695                   712                
696                foreach  ($aRayFold ers as $di r)   713                foreach  ($aRayFold ers as $di r)
697                {   714                {
698                    if (  !isFullAc cessible(' ../'.$dir)  )   715                    if (  !isFullAc cessible(' ../'.$dir)  )
699                    {   716                    {
700                         //$passOk  = false;   717                         //$passOk  = false;
701                         $dirName . = '&nbsp;& nbsp;&nbsp ;' . $dir  . ';<br /> ';   718                         $dirName . = '&nbsp;& nbsp;&nbsp ;' . $dir  . ';<br /> ';
702                    }   719                    }
703                }   720                }
704                   721                
705                if( strl en( $dirNa me ) )   722                if( strl en( $dirNa me ) )
706                {   723                {
707                    $sEr ror = 'err or';   724                    $sEr ror = 'err or';
708                    $err orMessage  .= '<stron g>Next dir ectories h ave inappr opriate pe rmissions< /strong>:< br />' . $ dirName;   725                    $err orMessage  .= '<stron g>Next dir ectories h ave inappr opriate pe rmissions< /strong>:< br />' . $ dirName;
709                }   726                }
710                   727                
711                foreach  ($permFile s as $file )   728                foreach  ($permFile s as $file )
712                {   729                {
713                    if (  !isRWAcce ssible('.. /'.$file)  )   730                    if (  !isRWAcce ssible('.. /'.$file)  )
714                    {   731                    {
715                         //$passOk  = false;   732                         //$passOk  = false;
716                         $fileName  .= '&nbsp; &nbsp;&nbs p;' . $fil e . ';<br  /> ';   733                         $fileName  .= '&nbsp; &nbsp;&nbs p;' . $fil e . ';<br  /> ';
717                    }   734                    }
718                }   735                }
719     736  
720                foreach(  $aRayFile s as $file  )   737                foreach(  $aRayFile s as $file  )
721                {   738                {
722                    if ( strpos($fi le,'ffmpeg ') === FAL SE)   739                    if ( strpos($fi le,'ffmpeg ') === FAL SE)
723                    {   740                    {
724                         if ( !isRW Accessible ('../'.$fi le) )   741                         if ( !isRW Accessible ('../'.$fi le) )
725                         {   742                         {
726                             //$pas sOk = fals e;   743                             //$pas sOk = fals e;
727                             $fileN ame .= '&n bsp;&nbsp; &nbsp;' .  $file . '; <br /> ';   744                             $fileN ame .= '&n bsp;&nbsp; &nbsp;' .  $file . '; <br /> ';
728                         }   745                         }
729                    }   746                    }
730                    else   747                    else
731                    {   748                    {
732                         if ( !isFu llAccessib le('../'.$ file) )   749                         if ( !isFu llAccessib le('../'.$ file) )
733                         {   750                         {
734                             //$pas sOk = fals e;   751                             //$pas sOk = fals e;
735                             $fileN ame .= '&n bsp;&nbsp; &nbsp;' .  $file . '; <br /> ';   752                             $fileN ame .= '&n bsp;&nbsp; &nbsp;' .  $file . '; <br /> ';
736                         }   753                         }
737                    }   754                    }
738                }   755                }
739                   756                
740                if( strl en( $fileN ame ) )   757                if( strl en( $fileN ame ) )
741                {   758                {
742                    $sEr ror = 'err or';   759                    $sEr ror = 'err or';
743                    $err orMessage  .= '<stron g>Next fil es have in appropriat e permissi ons</stron g>:<br />'  . $fileNa me;   760                    $err orMessage  .= '<stron g>Next fil es have in appropriat e permissi ons</stron g>:<br />'  . $fileNa me;
744                }   761                }
745     762  
746                if( strl en( $error Message )  )   763                if( strl en( $error Message )  )
747                {   764                {
748                    $ret  .= PreIns tall( $err orMessage  );   765                    $ret  .= PreIns tall( $err orMessage  );
749                }   766                }
750                else   767                else
751                {   768                {
752                    $ret  .= instal lStepFirst ();   769                    $ret  .= instal lStepFirst ();
753                }   770                }
754           br eak;   771           br eak;
755     772  
756           ca se 'preIns tall':   773           ca se 'preIns tall':
757                $ret .=  PreInstall ();   774                $ret .=  PreInstall ();
758           br eak;   775           br eak;
759              776           
760           de fault:   777           de fault:
761                $ret .=  StartInsta ll();   778                $ret .=  StartInsta ll();
762       }   779       }
763     780  
764     781  
765       return  $ret;   782       return  $ret;
766   }   783   }
767     784  
768   function i nstallFini sh( $error Message =  '' )   785   function i nstallFini sh( $error Message =  '' )
769   {   786   {
770       global  $aConf,   $confFirst , $aDbConf , $aGenera l;   787       global  $aConf,   $confFirst , $aDbConf , $aGenera l;
771       global  $reversal Directorie s, $revers alFiles;   788       global  $reversal Directorie s, $revers alFiles;
772     789  
773       $sAdmi nName = $_ REQUEST['a dmin_usern ame'];   790       $sAdmi nName = $_ REQUEST['a dmin_usern ame'];
774       $sAdmi nPassword  = $_REQUES T['admin_p assword'];   791       $sAdmi nPassword  = $_REQUES T['admin_p assword'];
775       $resRu nSQL = Run SQL( $sAdm inName, $s AdminPassw ord );   792       $resRu nSQL = Run SQL( $sAdm inName, $s AdminPassw ord );
776     793  
777       $sRet  = '';   794       $sRet  = '';
778          795       
779       if( 'd one' ==  $ resRunSQL  )   796       if( 'd one' ==  $ resRunSQL  )
780       {   797       {
781           $s Ret = '   798           $s Ret = '
782           <d iv class=" formKeeper ">   799           <d iv class=" formKeeper ">
783                <form ac tion="' .  $_SERVER[' PHP_SELF']  . '" meth od="post">   800                <form ac tion="' .  $_SERVER[' PHP_SELF']  . '" meth od="post">
784                    <inp ut type="i mage" src= "images/ne xt.gif" />   801                    <inp ut type="i mage" src= "images/ne xt.gif" />
785                    <inp ut type="h idden" nam e="action"  value="st ep5" />   802                    <inp ut type="h idden" nam e="action"  value="st ep5" />
786                </form>   803                </form>
787           </ div>   804           </ div>
788           <d iv class=" clearBoth" ></div>';   805           <d iv class=" clearBoth" ></div>';
789       }   806       }
790       else   807       else
791       {   808       {
792           $s Ret = $res RunSQL;   809           $s Ret = $res RunSQL;
793           $s Ret .= '   810           $s Ret .= '
794           <d iv class=" formKeeper ">   811           <d iv class=" formKeeper ">
795                <form ac tion="' .  $_SERVER[' PHP_SELF']  . '" meth od="post">   812                <form ac tion="' .  $_SERVER[' PHP_SELF']  . '" meth od="post">
796                    <inp ut type="i mage" src= "images/ba ck.gif" /> ';   813                    <inp ut type="i mage" src= "images/ba ck.gif" /> ';
797           fo reach( $_P OST as $sK ey => $sVa lue )   814           fo reach( $_P OST as $sK ey => $sVa lue )
798           {   815           {
799                if( $sKe y != "acti on" )   816                if( $sKe y != "acti on" )
800                    $sRe t .= '<inp ut type="h idden" nam e="' . $sK ey . '" va lue="' . $ sValue . ' " />';   817                    $sRe t .= '<inp ut type="h idden" nam e="' . $sK ey . '" va lue="' . $ sValue . ' " />';
801           }   818           }
802                $sRet .=  '<input t ype="hidde n" name="a ction" val ue="step2"  />   819                $sRet .=  '<input t ype="hidde n" name="a ction" val ue="step2"  />
803                </form>   820                </form>
804           </ div>   821           </ div>
805           <d iv class=" clearBoth" ></div>';   822           <d iv class=" clearBoth" ></div>';
806           re turn $sRet ;   823           re turn $sRet ;
807       }   824       }
808          825       
809       foreac h ( $confF irst as $k ey => $val  )   826       foreac h ( $confF irst as $k ey => $val  )
810       {   827       {
811           $a Conf['head erTempl']  = str_repl ace ( "%$k ey%", $_PO ST[$key],  $aConf['he aderTempl' ] );   828           $a Conf['head erTempl']  = str_repl ace ( "%$k ey%", $_PO ST[$key],  $aConf['he aderTempl' ] );
812       }   829       }
813       foreac h ( $aDbCo nf as $key  => $val )   830       foreac h ( $aDbCo nf as $key  => $val )
814       {   831       {
815           $a Conf['head erTempl']  = str_repl ace ( "%$k ey%", $_PO ST[$key],  $aConf['he aderTempl' ] );   832           $a Conf['head erTempl']  = str_repl ace ( "%$k ey%", $_PO ST[$key],  $aConf['he aderTempl' ] );
816       }   833       }
817       foreac h ( $aGene ral as $ke y => $val  )   834       foreac h ( $aGene ral as $ke y => $val  )
818       {   835       {
819           $a Conf['head erTempl']  = str_repl ace ( "%$k ey%", $_PO ST[$key],  $aConf['he aderTempl' ] );   836           $a Conf['head erTempl']  = str_repl ace ( "%$k ey%", $_PO ST[$key],  $aConf['he aderTempl' ] );
820       }   837       }
821     838  
822       $aConf ['periodic Templ'] =  str_replac e ( "%site _email%",  $_POST['si te_email'] , $aConf[' periodicTe mpl'] );   839       $aConf ['periodic Templ'] =  str_replac e ( "%site _email%",  $_POST['si te_email'] , $aConf[' periodicTe mpl'] );
823       $aConf ['periodic Templ'] =  str_replac e ( "%dir_ root%",    $_POST['di r_root'],    $aConf[' periodicTe mpl'] );   840       $aConf ['periodic Templ'] =  str_replac e ( "%dir_ root%",    $_POST['di r_root'],    $aConf[' periodicTe mpl'] );
824       $aConf ['periodic Templ'] =  str_replac e ( "%dir_ php%",     $_POST['di r_php'],     $aConf[' periodicTe mpl'] );   841       $aConf ['periodic Templ'] =  str_replac e ( "%dir_ php%",     $_POST['di r_php'],     $aConf[' periodicTe mpl'] );
825     842  
826       $ret =  '';   843       $ret =  '';
827       $ret . = '<div cl ass="posit ion">Cron  Jobs</div> ';   844       $ret . = '<div cl ass="posit ion">Cron  Jobs</div> ';
828       $ret . = '<div cl ass="LeftR irght">';   845       $ret . = '<div cl ass="LeftR irght">';
829                    $fp  = fopen (  $aConf['do lFile'], ' w');   846                    $fp  = fopen (  $aConf['do lFile'], ' w');
830                    if (  $fp )   847                    if (  $fp )
831                    {   848                    {
832                         fputs ( $f p, $aConf[ 'headerTem pl'] );   849                         fputs ( $f p, $aConf[ 'headerTem pl'] );
833                         fclose ( $ fp );   850                         fclose ( $ fp );
834                         chmod( $aC onf['dolFi le'], 0666  );   851                         chmod( $aC onf['dolFi le'], 0666  );
835                         //$ret .=' Config fil e was succ essfully w ritten to  <strong>'  . $aConf[' dolFile']  . '</stron g><br />';   852                         //$ret .=' Config fil e was succ essfully w ritten to  <strong>'  . $aConf[' dolFile']  . '</stron g><br />';
836                    }   853                    }
837                    else   854                    else
838                    {   855                    {
839                         $text = 'W arning!!!  can not ge t write ac cess to co nfig file  ' . $aConf ['dolFile' ] . '. Her e is confi g file</fo nt><br>';   856                         $text = 'W arning!!!  can not ge t write ac cess to co nfig file  ' . $aConf ['dolFile' ] . '. Her e is confi g file</fo nt><br>';
840                         $ret .= pr intInstall Error( $te xt );   857                         $ret .= pr intInstall Error( $te xt );
841                         $trans = g et_html_tr anslation_ table(HTML _ENTITIES) ;   858                         $trans = g et_html_tr anslation_ table(HTML _ENTITIES) ;
842                         $templ = s trtr($aCon f['headerT empl'], $t rans);   859                         $templ = s trtr($aCon f['headerT empl'], $t rans);
843                         $ret .= '< textarea c ols="20" r ows="10" c lass="head erTextarea ">' . $aCo nf['header Templ'] .  '</textare a>';   860                         $ret .= '< textarea c ols="20" r ows="10" c lass="head erTextarea ">' . $aCo nf['header Templ'] .  '</textare a>';
844                    }   861                    }
845                    $fp  = fopen (  $aConf['pe riodicFile '], 'w');   862                    $fp  = fopen (  $aConf['pe riodicFile '], 'w');
846                    if (  $fp )   863                    if (  $fp )
847                    {   864                    {
848                         fputs ( $f p, $aConf[ 'periodicT empl'] );   865                         fputs ( $f p, $aConf[ 'periodicT empl'] );
849                         fclose ( $ fp );   866                         fclose ( $ fp );
850                         chmod( $aC onf['dolFi le'], 0666  );   867                         chmod( $aC onf['dolFi le'], 0666  );
851                         //$ret .=' Config fil e was succ essfully w ritten to  <strong>'  . $aConf[' periodicFi le'] . '</ strong><br  />';   868                         //$ret .=' Config fil e was succ essfully w ritten to  <strong>'  . $aConf[' periodicFi le'] . '</ strong><br  />';
852                         $ret .= '< div class= "left">   869                         $ret .= '< div class= "left">
853                                 Pl ease, setu p Cron Job s as speci fied below . Helpful  info about  Cron Jobs  is <a hre f="http:// www.boonex .net/dolph in/wiki/De tailedInst all#Settin gupCronjob s">availab le here</a >.';   870                                 Pl ease, setu p Cron Job s as speci fied below . Helpful  info about  Cron Jobs  is <a hre f="http:// www.boonex .net/dolph in/wiki/De tailedInst all#Settin gupCronjob s">availab le here</a >.';
854                         $ret .= '< /div>';   871                         $ret .= '< /div>';
855     872  
856                         $ret .= '< div class= "debug">';   873                         $ret .= '< div class= "debug">';
857                             $aFile Lines = fi le( $aConf ['periodic File'] );   874                             $aFile Lines = fi le( $aConf ['periodic File'] );
858                             foreac h( $aFileL ines as $s Line )   875                             foreac h( $aFileL ines as $s Line )
859                                 $r et .= $sLi ne . '<br  />';   876                                 $r et .= $sLi ne . '<br  />';
860                         $ret .= '< /div>';   877                         $ret .= '< /div>';
861                    }   878                    }
862                    else   879                    else
863                    {   880                    {
864                         $text = '< font color =red>Warni ng!!! can  not get wr ite access  to config  file ' .  $aConf['pe riodicFile '] . '. He re is conf ig file</f ont><br>';   881                         $text = '< font color =red>Warni ng!!! can  not get wr ite access  to config  file ' .  $aConf['pe riodicFile '] . '. He re is conf ig file</f ont><br>';
865                         $ret .= pr intInstall Error( $te xt );   882                         $ret .= pr intInstall Error( $te xt );
866                         $trans = g et_html_tr anslation_ table(HTML _ENTITIES) ;   883                         $trans = g et_html_tr anslation_ table(HTML _ENTITIES) ;
867                         $templ = s trtr($aCon f['periodi cTempl'],  $trans);   884                         $templ = s trtr($aCon f['periodi cTempl'],  $trans);
868                         $ret .= '< textarea c ols="20" r ows="10" c lass="head erTextarea ">' . $aCo nf['period icTempl']  . '</texta rea>';   885                         $ret .= '< textarea c ols="20" r ows="10" c lass="head erTextarea ">' . $aCo nf['period icTempl']  . '</texta rea>';
869                    }   886                    }
870                    @rew riteFile(  '[path_to] ', $_POST[ 'dir_root' ], $aConf[ 'cmdFile']  );   887                    @rew riteFile(  '[path_to] ', $_POST[ 'dir_root' ], $aConf[ 'cmdFile']  );
871                    @rew riteFile(  '[path_to] ', $_POST[ 'dir_root' ], $aConf[ 'notifiesF ile'] );   888                    @rew riteFile(  '[path_to] ', $_POST[ 'dir_root' ], $aConf[ 'notifiesF ile'] );
872                     @rewriteFi le(   '[path_to] ',   $_POST['di r_root'],   $aConf[' tags File']   );   889                     @rewriteFi le(   '[path_to] ',   $_POST['di r_root'],   $aConf[' cupid File']   );
    890                    //@r ewriteFile ( '[path_t o]', $_POS T['dir_roo t'], $aCon f['tagsFil e'] );
873                    @rew riteFile(  '[path_to] ', $_POST[ 'dir_root' ], $aConf[ 'rayHeader '] );   891                    @rew riteFile(  '[path_to] ', $_POST[ 'dir_root' ], $aConf[ 'rayHeader '] );
874     892  
875                    $ret  .= $sRet;   893                    $ret  .= $sRet;
876                       894                    
877                $ret .=  '</div>';   895                $ret .=  '</div>';
878     896  
879       return  $ret;   897       return  $ret;
880   }   898   }
881     899  
882   function s howPermiss ions( $err orMessage= '' )   900   function s howPermiss ions( $err orMessage= '' )
883   {   901   {
884       global  $reversal Directorie s, $revers alFiles;   902       global  $reversal Directorie s, $revers alFiles;
885          903       
886       $ret . = '<div cl ass="posit ion">Permi ssions Rev ersal</div >';   904       $ret . = '<div cl ass="posit ion">Permi ssions Rev ersal</div >';
887     905  
888       if( st rlen( $err orMessage  ) )   906       if( st rlen( $err orMessage  ) )
889       {   907       {
890           $r et .= prin tInstallEr ror( $erro rMessage ) ;   908           $r et .= prin tInstallEr ror( $erro rMessage ) ;
891       }   909       }
892     910  
893       $ret . = '<div cl ass="LeftR ight">';   911       $ret . = '<div cl ass="LeftR ight">';
894       $ret . = '<div cl ass="clear Both"></di v>';       912       $ret . = '<div cl ass="clear Both"></di v>';    
895       $ret . = '<div cl ass="left" >Now, when  Dolphin c ompleted i nstallatio n, you sho uld change  permissio ns for som e files to  keep your  site secu re. Please , change p ermissions  as specif ied in the  chart bel ow. Helpfu l info abo ut permiss ions is <a  href="htt p://www.bo onex.net/c gi-bin/tra c_dolphin. cgi/wiki/D etailedIns tall#Permi ssions" ta rget="_bla nk">availa ble here</ a>.</div>' ;   913       $ret . = '<div cl ass="left" >Now, when  Dolphin c ompleted i nstallatio n, you sho uld change  permissio ns for som e files to  keep your  site secu re. Please , change p ermissions  as specif ied in the  chart bel ow. Helpfu l info abo ut permiss ions is <a  href="htt p://www.bo onex.net/c gi-bin/tra c_dolphin. cgi/wiki/D etailedIns tall#Permi ssions" ta rget="_bla nk">availa ble here</ a>.</div>' ;
896           $r et .= '<di v class="r ight">   914           $r et .= '<di v class="r ight">
897                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">   915                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">
898                <tr clas s="head">   916                <tr clas s="head">
899                    <td> Directorie s</td>   917                    <td> Directorie s</td>
900                    <td> Current Le vel</td>   918                    <td> Current Le vel</td>
901                    <td> Desired Le vel</td>   919                    <td> Desired Le vel</td>
902                </tr>';   920                </tr>';
903                   921                
904                $i = 0;   922                $i = 0;
905                foreach( $reversalD irectories  as $dir)   923                foreach( $reversalD irectories  as $dir)
906                {   924                {
907                    if(  ($i%2) ==  0 )   925                    if(  ($i%2) ==  0 )
908                    {   926                    {
909                         $styleAdd  = 'backgro und-color: #ede9e9;';   927                         $styleAdd  = 'backgro und-color: #ede9e9;';
910                    }   928                    }
911                    else   929                    else
912                    {   930                    {
913                         $styleAdd  = 'backgro und-color: #fff;';   931                         $styleAdd  = 'backgro und-color: #fff;';
914                    }   932                    }
915                    $ret  .= '<tr s tyle="' .  $styleAdd  . '" class ="cont">';   933                    $ret  .= '<tr s tyle="' .  $styleAdd  . '" class ="cont">';
916                         $ret .= '< td>' . $di r . '</td> ';   934                         $ret .= '< td>' . $di r . '</td> ';
917                         $ret .= '< td class=" span">';   935                         $ret .= '< td class=" span">';
918                             if ( i sFullAcces sible('../ '.$dir) )   936                             if ( i sFullAcces sible('../ '.$dir) )
919                             {   937                             {
920                                 $r et .= '<sp an class=" unwritable ">' . getP ermissions ( '../' .  $dir ) . ' </span><sp an>Writabl e</span>';   938                                 $r et .= '<sp an class=" unwritable ">' . getP ermissions ( '../' .  $dir ) . ' </span><sp an>Writabl e</span>';
921                             }   939                             }
922                             else   940                             else
923                             {   941                             {
924                                 $r et .= '<sp an class=" writable"> ' . getPer missions(  '../' . $d ir ) . '</ span><span >Non-writa ble</span> ';   942                                 $r et .= '<sp an class=" writable"> ' . getPer missions(  '../' . $d ir ) . '</ span><span >Non-writa ble</span> ';
925                             }   943                             }
926                         $ret .= '< /td>';   944                         $ret .= '< /td>';
927                         $ret .= '< td class=" span">';   945                         $ret .= '< td class=" span">';
928                             $ret . = '<span c lass="desi red">755</ span><span >Non-writa ble</span> ';   946                             $ret . = '<span c lass="desi red">755</ span><span >Non-writa ble</span> ';
929                         $ret .= '< /td>';   947                         $ret .= '< /td>';
930                    $ret  .= '</tr> ';   948                    $ret  .= '</tr> ';
931                    $i + +;   949                    $i + +;
932                }   950                }
933                   951                
934                $ret .=  '<tr class ="head">   952                $ret .=  '<tr class ="head">
935                    <td> Files</td>   953                    <td> Files</td>
936                    <td> Current Le vel</td>   954                    <td> Current Le vel</td>
937                    <td> Desired Le vel</td>   955                    <td> Desired Le vel</td>
938                </tr>   956                </tr>
939                ';   957                ';
940                $i = 0;   958                $i = 0;
941                foreach( $reversalF iles as $f ile)   959                foreach( $reversalF iles as $f ile)
942                {   960                {
943     961  
944                    $str  = $_SERVE R['DOCUMEN T_ROOT'] .  $_SERVER[ 'SCRIPT_NA ME'];   962                    $str  = $_SERVE R['DOCUMEN T_ROOT'] .  $_SERVER[ 'SCRIPT_NA ME'];
945                    $dir  = preg_re place("/in stall\/(in dex\.php$) /","",$str );   963                    $dir  = preg_re place("/in stall\/(in dex\.php$) /","",$str );
946     964  
947                    if(  file_exist s(  $dir .  $file) )   965                    if(  file_exist s(  $dir .  $file) )
948                    {   966                    {
949                         if( ($i%2)  == 0 )   967                         if( ($i%2)  == 0 )
950                         {   968                         {
951                             $style Add = 'bac kground-co lor:#ede9e 9;';   969                             $style Add = 'bac kground-co lor:#ede9e 9;';
952                         }   970                         }
953                         else   971                         else
954                         {   972                         {
955                             $style Add = 'bac kground-co lor:#fff;' ;   973                             $style Add = 'bac kground-co lor:#fff;' ;
956                         }   974                         }
957                         $ret .= '< tr style=" ' . $style Add . '" c lass="cont ">';   975                         $ret .= '< tr style=" ' . $style Add . '" c lass="cont ">';
958                             $ret . = '<td>' .  $file . ' </td>';   976                             $ret . = '<td>' .  $file . ' </td>';
959                             $ret . = '<td cla ss="span"> ';   977                             $ret . = '<td cla ss="span"> ';
960                             if ( i sRWAccessi ble('../'. $file) )   978                             if ( i sRWAccessi ble('../'. $file) )
961                             {   979                             {
962                                 $r et .= '<sp an class=" unwritable ">' . getP ermissions ( '../' .  $file ) .  '</span><s pan>Writab le</span>' ;   980                                 $r et .= '<sp an class=" unwritable ">' . getP ermissions ( '../' .  $file ) .  '</span><s pan>Writab le</span>' ;
963                             }   981                             }
964                             else   982                             else
965                             {   983                             {
966                                 $r et .= '<sp an class=" writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Non-writ able</span >';   984                                 $r et .= '<sp an class=" writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Non-writ able</span >';
967                             }   985                             }
968                             $ret . = '</td>';   986                             $ret . = '</td>';
969                             $ret . = '<td cla ss="span"> ';   987                             $ret . = '<td cla ss="span"> ';
970                                 $r et .= '<sp an class=" desired">6 44</span>< span>Non-w ritable</s pan>';   988                                 $r et .= '<sp an class=" desired">6 44</span>< span>Non-w ritable</s pan>';
971                             $ret . = '</td>';   989                             $ret . = '</td>';
972                         $ret .= '< /tr>';   990                         $ret .= '< /tr>';
973                         $i ++;   991                         $i ++;
974                    }   992                    }
975                }   993                }
976                $ret .=  '   994                $ret .=  '
977                         </table>   995                         </table>
978                         <div class ="formKeep er1">   996                         <div class ="formKeep er1">
979                             <div c lass="butt on_area_1" >   997                             <div c lass="butt on_area_1" >
980                                 <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">   998                                 <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">
981                                      <input i d="button"  type="ima ge" src="i mages/chec k.gif" />   999                                      <input i d="button"  type="ima ge" src="i mages/chec k.gif" />
982                                      <input t ype="hidde n" name="a ction" val ue="step5"  />   1000                                      <input t ype="hidde n" name="a ction" val ue="step5"  />
983                                 </ form>   1001                                 </ form>
984                             </div> ';   1002                             </div> ';
985                         $ret .= '   1003                         $ret .= '
986                             <div c lass="butt on_area_1" >   1004                             <div c lass="butt on_area_1" >
987                                 <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">   1005                                 <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">
988                                      <input i d="button"  type="ima ge" src="i mages/next .gif" />   1006                                      <input i d="button"  type="ima ge" src="i mages/next .gif" />
989                                      <input t ype="hidde n" name="a ction" val ue="step6"  />   1007                                      <input t ype="hidde n" name="a ction" val ue="step6"  />
990                                 </ form>   1008                                 </ form>
991                             </div> ';   1009                             </div> ';
992                         $ret .= '   1010                         $ret .= '
993                             <div c lass="butt on_area_2" >   1011                             <div c lass="butt on_area_2" >
994                                 <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">   1012                                 <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">
995                                      <input i d="button"  type="ima ge" src="i mages/skip .gif" />   1013                                      <input i d="button"  type="ima ge" src="i mages/skip .gif" />
996                                      <input t ype="hidde n" name="a ction" val ue="step7"  />   1014                                      <input t ype="hidde n" name="a ction" val ue="step7"  />
997                                 </ form>   1015                                 </ form>
998                             </div>   1016                             </div>
999                         </div>   1017                         </div>
1000                    </di v>   1018                    </di v>
1001           <d iv class=" clearBoth" ></div>   1019           <d iv class=" clearBoth" ></div>
1002       </div> ';   1020       </div> ';
1003          1021       
1004       return  $ret;   1022       return  $ret;
1005   }   1023   }
1006     1024  
1007   function i nstallGene ralInfo( $ errorMessa ge = '' )   1025   function i nstallGene ralInfo( $ errorMessa ge = '' )
1008   {   1026   {
1009       global  $aGeneral ;   1027       global  $aGeneral ;
1010     1028  
1011       $ret =  '';   1029       $ret =  '';
1012       $ret . = '<div cl ass="posit ion">Confi guration</ div>';   1030       $ret . = '<div cl ass="posit ion">Confi guration</ div>';
1013       if( st rlen( $err orMessage  ) )   1031       if( st rlen( $err orMessage  ) )
1014       {   1032       {
1015           $r et .= prin tInstallEr ror( $erro rMessage ) ;   1033           $r et .= prin tInstallEr ror( $erro rMessage ) ;
1016           un set($_POST ['site_tit le']);   1034           un set($_POST ['site_tit le']);
1017           un set($_POST ['site_ema il']);   1035           un set($_POST ['site_ema il']);
1018           un set($_POST ['notify_e mail']);   1036           un set($_POST ['notify_e mail']);
1019           un set($_POST ['bug_repo rt_email'] );   1037           un set($_POST ['bug_repo rt_email'] );
1020       }   1038       }
1021       $ret . = '<div cl ass="LeftR irght">   1039       $ret . = '<div cl ass="LeftR irght">
1022           <d iv class=" clearBoth" ></div>   1040           <d iv class=" clearBoth" ></div>
1023           <d iv class=" left">   1041           <d iv class=" left">
1024           </ div>   1042           </ div>
1025           <d iv class=" right">   1043           <d iv class=" right">
1026           <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">   1044           <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">
1027                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">   1045                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">
1028                    <tr  class="hea d">   1046                    <tr  class="hea d">
1029                         <td>&nbsp; </td>   1047                         <td>&nbsp; </td>
1030                         <td>&nbsp; </td>   1048                         <td>&nbsp; </td>
1031                    </tr >';   1049                    </tr >';
1032                    $ret  .= create Table( $aG eneral );   1050                    $ret  .= create Table( $aG eneral );
1033           $r et .= '</t able>   1051           $r et .= '</t able>
1034           <d iv class=" formKeeper ">   1052           <d iv class=" formKeeper ">
1035                <input i d="button"  type="ima ge" src="i mages/next .gif" />   1053                <input i d="button"  type="ima ge" src="i mages/next .gif" />
1036                <input t ype="hidde n" name="a ction" val ue="step4"  />';   1054                <input t ype="hidde n" name="a ction" val ue="step4"  />';
1037                foreach( $_POST as  $postKey = > $postVal ue)   1055                foreach( $_POST as  $postKey = > $postVal ue)
1038                {   1056                {
1039                    if(  'action' = = $postKey  || isset(  $aGeneral [$postKey]  ) )   1057                    if(  'action' = = $postKey  || isset(  $aGeneral [$postKey]  ) )
1040                    {   1058                    {
1041                         $ret .= '' ;   1059                         $ret .= '' ;
1042                    }   1060                    }
1043                    else   1061                    else
1044                    {   1062                    {
1045                         $ret .= '< input type ="hidden"  name="' .  $postKey .  '" value= "' . $post Value . '"  />';   1063                         $ret .= '< input type ="hidden"  name="' .  $postKey .  '" value= "' . $post Value . '"  />';
1046                    }   1064                    }
1047     1065  
1048                }   1066                }
1049           $r et .= '</d iv>   1067           $r et .= '</d iv>
1050           </ form>   1068           </ form>
1051           </ div>   1069           </ div>
1052           ';   1070           ';
1053       $ret . = '<div cl ass="clear Both"></di v>   1071       $ret . = '<div cl ass="clear Both"></di v>
1054       </div> ';   1072       </div> ';
1055     1073  
1056       return  $ret;   1074       return  $ret;
1057   }   1075   }
1058     1076  
1059     1077  
1060   function i nstallDBCo nf( $error Message =  '')   1078   function i nstallDBCo nf( $error Message =  '')
1061   {   1079   {
1062       global  $aDbConf;   1080       global  $aDbConf;
1063     1081  
1064       $ret =  '';   1082       $ret =  '';
1065       $ret . = '<div cl ass="posit ion">Datab ase</div>' ;   1083       $ret . = '<div cl ass="posit ion">Datab ase</div>' ;
1066       if( st rlen( $err orMessage  ) )   1084       if( st rlen( $err orMessage  ) )
1067       {   1085       {
1068           $r et .= prin tInstallEr ror( $erro rMessage ) ;   1086           $r et .= prin tInstallEr ror( $erro rMessage ) ;
1069           un set($_POST ['db_name' ]);   1087           un set($_POST ['db_name' ]);
1070           un set($_POST ['db_user' ]);   1088           un set($_POST ['db_user' ]);
1071           un set($_POST ['db_passw ord']);   1089           un set($_POST ['db_passw ord']);
1072       }   1090       }
1073       $ret . = '<div cl ass="LeftR irght">   1091       $ret . = '<div cl ass="LeftR irght">
1074           <d iv class=" clearBoth" ></div>   1092           <d iv class=" clearBoth" ></div>
1075           <d iv class=" left">   1093           <d iv class=" left">
1076           Pl ease <a hr ef="http:/ /www.boone x.net/cgi- bin/trac_d olphin.cgi /wiki/Deta iledInstal l#Step2:Cr eateaDatab aseandaUse r">create  a database </a> and t ell Dolphi n about it .        1094           Pl ease <a hr ef="http:/ /www.boone x.net/cgi- bin/trac_d olphin.cgi /wiki/Deta iledInstal l#Step2:Cr eateaDatab aseandaUse r">create  a database </a> and t ell Dolphi n about it .     
1077           </ div>   1095           </ div>
1078           <d iv class=" right">   1096           <d iv class=" right">
1079           <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">   1097           <f orm action ="' . $_SE RVER['PHP_ SELF'] . ' " method=" post">
1080                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">   1098                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">
1081                    <tr  class="hea d">   1099                    <tr  class="hea d">
1082                         <td>&nbsp; </td>   1100                         <td>&nbsp; </td>
1083                         <td>&nbsp; </td>   1101                         <td>&nbsp; </td>
1084                    </tr >';   1102                    </tr >';
1085                    $ret  .= create Table( $aD bConf );   1103                    $ret  .= create Table( $aD bConf );
1086           $r et .= '</t able>   1104           $r et .= '</t able>
1087           <d iv class=" formKeeper ">   1105           <d iv class=" formKeeper ">
1088                <input i d="button"  type="ima ge" src="i mages/next .gif" />   1106                <input i d="button"  type="ima ge" src="i mages/next .gif" />
1089                <input t ype="hidde n" name="a ction" val ue="step3"  />';   1107                <input t ype="hidde n" name="a ction" val ue="step3"  />';
1090                foreach( $_POST as  $postKey = > $postVal ue)   1108                foreach( $_POST as  $postKey = > $postVal ue)
1091                {   1109                {
1092                    if(  'action' = = $postKey  || isset(  $aDbConf[ $postKey]  ) )   1110                    if(  'action' = = $postKey  || isset(  $aDbConf[ $postKey]  ) )
1093                    {   1111                    {
1094                         $ret .= '' ;   1112                         $ret .= '' ;
1095                    }   1113                    }
1096                    else   1114                    else
1097                    {   1115                    {
1098                         $ret .= '< input type ="hidden"  name="' .  $postKey .  '" value= "' . $post Value . '"  />';   1116                         $ret .= '< input type ="hidden"  name="' .  $postKey .  '" value= "' . $post Value . '"  />';
1099                    }   1117                    }
1100     1118  
1101                }   1119                }
1102           $r et .= '</d iv>   1120           $r et .= '</d iv>
1103           </ form>   1121           </ form>
1104           </ div>   1122           </ div>
1105           ';   1123           ';
1106       $ret . = '<div cl ass="clear Both"></di v>   1124       $ret . = '<div cl ass="clear Both"></di v>
1107       </div> ';   1125       </div> ';
1108     1126  
1109     1127  
1110       return  $ret;   1128       return  $ret;
1111   }   1129   }
1112     1130  
1113   function i nstallStep First( $er rorMessage  = '' )   1131   function i nstallStep First( $er rorMessage  = '' )
1114   {   1132   {
1115       global   $aConf,  $confFirst ;   1133       global   $aConf,  $confFirst ;
1116     1134  
1117   /*-------- ---------- ---------- ---*/   1135   /*-------- ---------- ---------- ---*/
1118     1136  
1119     1137  
1120   /*-------- ---------- ---------- ---*/   1138   /*-------- ---------- ---------- ---*/
1121     1139  
1122       $ret =  '';   1140       $ret =  '';
1123       $ret . = '<div cl ass="posit ion">Paths  Check</di v>';   1141       $ret . = '<div cl ass="posit ion">Paths  Check</di v>';
1124       if( st rlen( $err orMessage  ) )   1142       if( st rlen( $err orMessage  ) )
1125       {   1143       {
1126           $r et .= prin tInstallEr ror( $erro rMessage ) ;   1144           $r et .= prin tInstallEr ror( $erro rMessage ) ;
1127       }   1145       }
1128       $ret . = '<div cl ass="LeftR irght">';   1146       $ret . = '<div cl ass="LeftR irght">';
1129           $r et .= '<di v class="c learBoth"> </div>';   1147           $r et .= '<di v class="c learBoth"> </div>';
1130           $r et .= '<di v class="l eft">';   1148           $r et .= '<di v class="l eft">';
1131                $ret .=  'Dolphin c hecks gene ral script  paths.';   1149                $ret .=  'Dolphin c hecks gene ral script  paths.';
1132           $r et .= '</d iv>';   1150           $r et .= '</d iv>';
1133           $r et .= '<di v class="r ight">   1151           $r et .= '<di v class="r ight">
1134                <form ac tion="' .  $_SERVER[' PHP_SELF']  . '" meth od="post">   1152                <form ac tion="' .  $_SERVER[' PHP_SELF']  . '" meth od="post">
1135           ';   1153           ';
1136           $r et .= '<ta ble cellpa dding="0"  cellspacin g="1" widt h="100%" b order="0"  style="bac kground-co lor:silver ;">   1154           $r et .= '<ta ble cellpa dding="0"  cellspacin g="1" widt h="100%" b order="0"  style="bac kground-co lor:silver ;">
1137                    <tr  class="hea d">   1155                    <tr  class="hea d">
1138                         <td>&nbsp; </td>   1156                         <td>&nbsp; </td>
1139                         <td>&nbsp; </td>   1157                         <td>&nbsp; </td>
1140                    </tr >';   1158                    </tr >';
1141                    $ret  .= create Table( $co nfFirst );   1159                    $ret  .= create Table( $co nfFirst );
1142                    $ret  .= '   1160                    $ret  .= '
1143                         <tr class= "cont" sty le="backgr ound-color :#ede9e9;" >   1161                         <tr class= "cont" sty le="backgr ound-color :#ede9e9;" >
1144                             <td>   1162                             <td>
1145                                 Ch eck GD Ins talled   1163                                 Ch eck GD Ins talled
1146                             </td>   1164                             </td>
1147                             <td>';   1165                             <td>';
1148                                 if  ( extensi on_loaded(  'gd' ) )   1166                                 if  ( extensi on_loaded(  'gd' ) )
1149                                 {   1167                                 {
1150                                      $ret .=  '<span cla ss="writab le">GD lib rary insta lled</span >';   1168                                      $ret .=  '<span cla ss="writab le">GD lib rary insta lled</span >';
1151                                 }   1169                                 }
1152                                 el se   1170                                 el se
1153                                 {   1171                                 {
1154                                      $ret .=  '<span cla ss="unwrit able">GD l ibrary NOT  installed </span>';   1172                                      $ret .=  '<span cla ss="unwrit able">GD l ibrary NOT  installed </span>';
1155                                 }   1173                                 }
1156     1174  
1157                    $ret  .= '</td>   1175                    $ret  .= '</td>
1158                         </tr>   1176                         </tr>
1159                    ';   1177                    ';
1160     1178  
1161           $r et .= '</t able>   1179           $r et .= '</t able>
1162           <d iv class=" formKeeper ">   1180           <d iv class=" formKeeper ">
1163                <input i d="button"  type="ima ge" src="i mages/next .gif" />   1181                <input i d="button"  type="ima ge" src="i mages/next .gif" />
1164                    <inp ut type="h idden" nam e="action"  value="st ep2" />   1182                    <inp ut type="h idden" nam e="action"  value="st ep2" />
1165                </div>   1183                </div>
1166                    </fo rm>';   1184                    </fo rm>';
1167           $r et .= '</d iv>';   1185           $r et .= '</d iv>';
1168           $r et .= '<di v class="c learBoth"> </div>';   1186           $r et .= '<di v class="c learBoth"> </div>';
1169     1187  
1170     1188  
1171       $ret . = '</div>' ;   1189       $ret . = '</div>' ;
1172     1190  
1173       return  $ret;   1191       return  $ret;
1174   }   1192   }
1175     1193  
1176     1194  
1177   function P reInstall(  $errorMes sage = ''  )   1195   function P reInstall(  $errorMes sage = ''  )
1178   {   1196   {
1179       global  $aConf, $ permFiles,  $permDire ctories, $ aRayFolder s, $aRayFi les;   1197       global  $aConf, $ permFiles,  $permDire ctories, $ aRayFolder s, $aRayFi les;
1180          1198       
1181       if ( i ni_get('sa fe_mode')  == 1 || in i_get('saf e_mode') = = 'On' )   1199       if ( i ni_get('sa fe_mode')  == 1 || in i_get('saf e_mode') = = 'On' )
1182       {   1200       {
1183           $e rrorMessag e .= "Plea se turn of f <b>safe_ mode</b> i n your php .ini file  configurat ion";   1201           $e rrorMessag e .= "Plea se turn of f <b>safe_ mode</b> i n your php .ini file  configurat ion";
1184       }   1202       }
1185     1203  
1186       $ret =  '';   1204       $ret =  '';
1187       $ret . = '<div cl ass="posit ion">Permi ssions</di v>';   1205       $ret . = '<div cl ass="posit ion">Permi ssions</di v>';
1188       if( st rlen( $err orMessage  ) )   1206       if( st rlen( $err orMessage  ) )
1189       {   1207       {
1190           $r et .= prin tInstallEr ror( $erro rMessage ) ;   1208           $r et .= prin tInstallEr ror( $erro rMessage ) ;
1191       }   1209       }
1192       $ret . = '<div cl ass="LeftR irght">';   1210       $ret . = '<div cl ass="LeftR irght">';
1193           $r et .= '<di v class="c learBoth"> </div>';   1211           $r et .= '<di v class="c learBoth"> </div>';
1194           $r et .= '<di v class="l eft">   1212           $r et .= '<di v class="l eft">
1195                Dolphin  needs spec ial access  for certa in files a nd directo ries. Plea se, change  permissio ns as    1213                Dolphin  needs spec ial access  for certa in files a nd directo ries. Plea se, change  permissio ns as 
1196   specified  in the cha rt below.  Helpful in fo about p ermissions  is <a hre f="http:// www.boonex .net/cgi-b in/trac_do lphin.cgi/ wiki/Detai ledInstall #Permissio ns" target ="_blank"> available  here</a>.   1214   specified  in the cha rt below.  Helpful in fo about p ermissions  is <a hre f="http:// www.boonex .net/cgi-b in/trac_do lphin.cgi/ wiki/Detai ledInstall #Permissio ns" target ="_blank"> available  here</a>.
1197           </ div>';   1215           </ div>';
1198           $r et .= '<di v class="c lear_both" ></div>';   1216           $r et .= '<di v class="c lear_both" ></div>';
1199           $r et .= '<di v class="r ight">   1217           $r et .= '<di v class="r ight">
1200                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">   1218                <table c ellpadding ="0" cells pacing="1"  width="10 0%" border ="0" style ="backgrou nd-color:s ilver;">
1201                    <tr  class="hea d">   1219                    <tr  class="hea d">
1202                         <td>Direct ories</td>   1220                         <td>Direct ories</td>
1203                         <td>Curren t Level</t d>   1221                         <td>Curren t Level</t d>
1204                         <td>Desire d Level</t d>   1222                         <td>Desire d Level</t d>
1205                    </tr >';   1223                    </tr >';
1206                    $i =  0;   1224                    $i =  0;
1207                    asor t( $permDi rectories  );   1225                    asor t( $permDi rectories  );
1208                    asor t( $permFi les );   1226                    asor t( $permFi les );
1209                    fore ach($permD irectories  as $dir)   1227                    fore ach($permD irectories  as $dir)
1210                    {   1228                    {
1211                         if( ($i%2)  == 0 )   1229                         if( ($i%2)  == 0 )
1212                         {   1230                         {
1213                             $style Add = 'bac kground-co lor:#ede9e 9;';   1231                             $style Add = 'bac kground-co lor:#ede9e 9;';
1214                         }   1232                         }
1215                         else   1233                         else
1216                         {   1234                         {
1217                             $style Add = 'bac kground-co lor:#fff;' ;   1235                             $style Add = 'bac kground-co lor:#fff;' ;
1218                         }   1236                         }
1219                         $ret .= '< tr style=" ' . $style Add . '" c lass="cont ">';   1237                         $ret .= '< tr style=" ' . $style Add . '" c lass="cont ">';
1220                             $ret . = '<td>' .  $dir . '< /td>';   1238                             $ret . = '<td>' .  $dir . '< /td>';
1221                             $ret . = '<td cla ss="span"> ';   1239                             $ret . = '<td cla ss="span"> ';
1222                                 if  ( isFullA ccessible( '../'.$dir ) )   1240                                 if  ( isFullA ccessible( '../'.$dir ) )
1223                                 {   1241                                 {
1224                                      $ret .=  '<span cla ss="writab le">' . ge tPermissio ns( '../'  . $dir ) .  '</span>< span>Writa ble</span> ';   1242                                      $ret .=  '<span cla ss="writab le">' . ge tPermissio ns( '../'  . $dir ) .  '</span>< span>Writa ble</span> ';
1225                                 }   1243                                 }
1226                                 el se   1244                                 el se
1227                                 {   1245                                 {
1228                                      $ret .=  '<span cla ss="unwrit able">' .  getPermiss ions( '../ ' . $dir )  . '</span ><span>Non -writable< /span>';   1246                                      $ret .=  '<span cla ss="unwrit able">' .  getPermiss ions( '../ ' . $dir )  . '</span ><span>Non -writable< /span>';
1229                                 }   1247                                 }
1230                             $ret . = '</td>';   1248                             $ret . = '</td>';
1231                             $ret . = '<td cla ss="span"> ';   1249                             $ret . = '<td cla ss="span"> ';
1232                                 $r et .= '<sp an class=" desired">7 77</span>< span>Writa ble</span> ';   1250                                 $r et .= '<sp an class=" desired">7 77</span>< span>Writa ble</span> ';
1233                             $ret . = '</td>';   1251                             $ret . = '</td>';
1234                         $ret .= '< /tr>';   1252                         $ret .= '< /tr>';
1235                         $i ++;   1253                         $i ++;
1236                    }   1254                    }
1237                    $ret  .= '<tr c lass="head ">   1255                    $ret  .= '<tr c lass="head ">
1238                         <td>Files< /td>   1256                         <td>Files< /td>
1239                         <td>Curren t Level</t d>   1257                         <td>Curren t Level</t d>
1240                         <td>Desire d Level</t d>   1258                         <td>Desire d Level</t d>
1241                    </tr >   1259                    </tr >
1242                    ';   1260                    ';
1243                    $i =  0;   1261                    $i =  0;
1244                    fore ach($permF iles as $f ile)   1262                    fore ach($permF iles as $f ile)
1245                    {   1263                    {
1246                         $str = $_S ERVER['DOC UMENT_ROOT '] . $_SER VER['SCRIP T_NAME'];   1264                         $str = $_S ERVER['DOC UMENT_ROOT '] . $_SER VER['SCRIP T_NAME'];
1247                         $dir = pre g_replace( "/install\ /(index\.p hp$)/","", $str);   1265                         $dir = pre g_replace( "/install\ /(index\.p hp$)/","", $str);
1248     1266  
1249                         if( file_e xists(  $d ir . $file ) )   1267                         if( file_e xists(  $d ir . $file ) )
1250                         {   1268                         {
1251                             if( ($ i%2) == 0  )   1269                             if( ($ i%2) == 0  )
1252                             {   1270                             {
1253                                 $s tyleAdd =  'backgroun d-color:#e de9e9;';   1271                                 $s tyleAdd =  'backgroun d-color:#e de9e9;';
1254                             }   1272                             }
1255                             else   1273                             else
1256                             {   1274                             {
1257                                 $s tyleAdd =  'backgroun d-color:#f ff;';   1275                                 $s tyleAdd =  'backgroun d-color:#f ff;';
1258                             }   1276                             }
1259                             $ret . = '<tr sty le="' . $s tyleAdd .  '" class=" cont">';   1277                             $ret . = '<tr sty le="' . $s tyleAdd .  '" class=" cont">';
1260                                 $r et .= '<td >' . $file  . '</td>' ;   1278                                 $r et .= '<td >' . $file  . '</td>' ;
1261                                 $r et .= '<td  class="sp an">';   1279                                 $r et .= '<td  class="sp an">';
1262                                      if ( isR WAccessibl e('../'.$f ile) )   1280                                      if ( isR WAccessibl e('../'.$f ile) )
1263                                      {   1281                                      {
1264                                          $ret  .= '<span  class="wr itable">'  . getPermi ssions( '. ./' . $fil e ) . '</s pan><span> Writable</ span>';   1282                                          $ret  .= '<span  class="wr itable">'  . getPermi ssions( '. ./' . $fil e ) . '</s pan><span> Writable</ span>';
1265                                      }   1283                                      }
1266                                      else   1284                                      else
1267                                      {   1285                                      {
1268                                          $ret  .= '<span  class="un writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Non-writ able</span >';   1286                                          $ret  .= '<span  class="un writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Non-writ able</span >';
1269                                      }   1287                                      }
1270                                 $r et .= '</t d>';   1288                                 $r et .= '</t d>';
1271                                 $r et .= '<td  class="sp an">';   1289                                 $r et .= '<td  class="sp an">';
1272                                      $ret .=  '<span cla ss="desire d">666</sp an><span>W ritable</s pan>';   1290                                      $ret .=  '<span cla ss="desire d">666</sp an><span>W ritable</s pan>';
1273                                 $r et .= '</t d>';   1291                                 $r et .= '</t d>';
1274                             $ret . = '</tr>';   1292                             $ret . = '</tr>';
1275                             $i ++;   1293                             $i ++;
1276                         }   1294                         }
1277                    }   1295                    }
1278                       1296                    
1279                    $ret  .= '<tr c lass="head ">   1297                    $ret  .= '<tr c lass="head ">
1280                         <td>Ray Fo lders</td>   1298                         <td>Ray Fo lders</td>
1281                         <td>Curren t Level</t d>   1299                         <td>Curren t Level</t d>
1282                         <td>Desire d Level</t d>   1300                         <td>Desire d Level</t d>
1283                    </tr >';   1301                    </tr >';
1284                    $i =  0;   1302                    $i =  0;
1285                    fore ach($aRayF olders as  $dir)   1303                    fore ach($aRayF olders as  $dir)
1286                    {   1304                    {
1287                         if( ($i%2)  == 0 )   1305                         if( ($i%2)  == 0 )
1288                         {   1306                         {
1289                             $style Add = 'bac kground-co lor:#ede9e 9;';   1307                             $style Add = 'bac kground-co lor:#ede9e 9;';
1290                         }   1308                         }
1291                         else   1309                         else
1292                         {   1310                         {
1293                             $style Add = 'bac kground-co lor:#fff;' ;   1311                             $style Add = 'bac kground-co lor:#fff;' ;
1294                         }   1312                         }
1295                         $ret .= '< tr style=" ' . $style Add . '" c lass="cont ">';   1313                         $ret .= '< tr style=" ' . $style Add . '" c lass="cont ">';
1296                             $ret . = '<td>' .  $dir . '< /td>';   1314                             $ret . = '<td>' .  $dir . '< /td>';
1297                             $ret . = '<td cla ss="span"> ';   1315                             $ret . = '<td cla ss="span"> ';
1298                                 if  ( isFullA ccessible( '../'.$dir ) )   1316                                 if  ( isFullA ccessible( '../'.$dir ) )
1299                                 {   1317                                 {
1300                                      $ret .=  '<span cla ss="writab le">' . ge tPermissio ns( '../'  . $dir ) .  '</span>< span>Writa ble</span> ';   1318                                      $ret .=  '<span cla ss="writab le">' . ge tPermissio ns( '../'  . $dir ) .  '</span>< span>Writa ble</span> ';
1301                                 }   1319                                 }
1302                                 el se   1320                                 el se
1303                                 {   1321                                 {
1304                                      $ret .=  '<span cla ss="unwrit able">' .  getPermiss ions( '../ ' . $dir )  . '</span ><span>Non -writable< /span>';   1322                                      $ret .=  '<span cla ss="unwrit able">' .  getPermiss ions( '../ ' . $dir )  . '</span ><span>Non -writable< /span>';
1305                                 }   1323                                 }
1306                             $ret . = '</td>';   1324                             $ret . = '</td>';
1307                             $ret . = '<td cla ss="span"> ';   1325                             $ret . = '<td cla ss="span"> ';
1308                                 $r et .= '<sp an class=" desired">7 77</span>< span>Writa ble</span> ';   1326                                 $r et .= '<sp an class=" desired">7 77</span>< span>Writa ble</span> ';
1309                             $ret . = '</td>';   1327                             $ret . = '</td>';
1310                         $ret .= '< /tr>';   1328                         $ret .= '< /tr>';
1311                         $i ++;   1329                         $i ++;
1312                    }   1330                    }
1313                       1331                    
1314                    $ret  .= '<tr c lass="head ">   1332                    $ret  .= '<tr c lass="head ">
1315                         <td>Ray Fi les</td>   1333                         <td>Ray Fi les</td>
1316                         <td>Curren t Level</t d>   1334                         <td>Curren t Level</t d>
1317                         <td>Desire d Level</t d>   1335                         <td>Desire d Level</t d>
1318                    </tr >   1336                    </tr >
1319                    ';   1337                    ';
1320                    $i =  0;   1338                    $i =  0;
1321                    fore ach( $aRay Files as $ file )   1339                    fore ach( $aRay Files as $ file )
1322                    {   1340                    {
1323                         $str = $_S ERVER['DOC UMENT_ROOT '] . $_SER VER['SCRIP T_NAME'];   1341                         $str = $_S ERVER['DOC UMENT_ROOT '] . $_SER VER['SCRIP T_NAME'];
1324                         $dir = pre g_replace( "/install\ /(index\.p hp$)/","", $str);   1342                         $dir = pre g_replace( "/install\ /(index\.p hp$)/","", $str);
1325     1343  
1326                         if( file_e xists(  $d ir . $file ) )   1344                         if( file_e xists(  $d ir . $file ) )
1327                         {   1345                         {
1328                             if( ($ i%2) == 0  )   1346                             if( ($ i%2) == 0  )
1329                             {   1347                             {
1330                                 $s tyleAdd =  'backgroun d-color:#e de9e9;';   1348                                 $s tyleAdd =  'backgroun d-color:#e de9e9;';
1331                             }   1349                             }
1332                             else   1350                             else
1333                             {   1351                             {
1334                                 $s tyleAdd =  'backgroun d-color:#f ff;';   1352                                 $s tyleAdd =  'backgroun d-color:#f ff;';
1335                             }   1353                             }
1336                             $ret . = '<tr sty le="' . $s tyleAdd .  '" class=" cont">';   1354                             $ret . = '<tr sty le="' . $s tyleAdd .  '" class=" cont">';
1337                                 $r et .= '<td >' . $file  . '</td>' ;   1355                                 $r et .= '<td >' . $file  . '</td>' ;
1338                                 $r et .= '<td  class="sp an">';   1356                                 $r et .= '<td  class="sp an">';
1339                                 if  ( strpos( $file,'ffm peg') ===  FALSE )   1357                                 if  ( strpos( $file,'ffm peg') ===  FALSE )
1340                                 {   1358                                 {
1341                                      if ( isR WAccessibl e('../'.$f ile) )   1359                                      if ( isR WAccessibl e('../'.$f ile) )
1342                                      {   1360                                      {
1343                                          $ret  .= '<span  class="wr itable">'  . getPermi ssions( '. ./' . $fil e ) . '</s pan><span> Writable</ span>';   1361                                          $ret  .= '<span  class="wr itable">'  . getPermi ssions( '. ./' . $fil e ) . '</s pan><span> Writable</ span>';
1344                                      }   1362                                      }
1345                                      else   1363                                      else
1346                                      {   1364                                      {
1347                                          $ret  .= '<span  class="un writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Non-writ able</span >';   1365                                          $ret  .= '<span  class="un writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Non-writ able</span >';
1348                                      }   1366                                      }
1349                                 }   1367                                 }
1350                                 el se   1368                                 el se
1351                                 {   1369                                 {
1352                                      if ( isF ullAccessi ble('../'. $file) )   1370                                      if ( isF ullAccessi ble('../'. $file) )
1353                                      {   1371                                      {
1354                                          $ret  .= '<span  class="wr itable">'  . getPermi ssions( '. ./' . $fil e ) . '</s pan><span> Executable </span>';   1372                                          $ret  .= '<span  class="wr itable">'  . getPermi ssions( '. ./' . $fil e ) . '</s pan><span> Executable </span>';
1355                                      }   1373                                      }
1356                                      else   1374                                      else
1357                                      {   1375                                      {
1358                                          $ret  .= '<span  class="un writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Unexecut able</span >';   1376                                          $ret  .= '<span  class="un writable"> ' . getPer missions(  '../' . $f ile ) . '< /span><spa n>Unexecut able</span >';
1359                                          $bEr ror = TRUE ;   1377                                          $bEr ror = TRUE ;
1360                                      }   1378                                      }
1361                                 }   1379                                 }
1362                                 $r et .= '</t d>';   1380                                 $r et .= '</t d>';
1363                                 $r et .= '<td  class="sp an">';   1381                                 $r et .= '<td  class="sp an">';
1364                                      if ( str pos($file, 'ffmpeg')  === FALSE  )   1382                                      if ( str pos($file, 'ffmpeg')  === FALSE  )
1365                                      {   1383                                      {
1366                                          $ret  .= '<span  class="de sired">666 </span><sp an>Writabl e</span>';   1384                                          $ret  .= '<span  class="de sired">666 </span><sp an>Writabl e</span>';
1367                                      }   1385                                      }
1368                                      else    1386                                      else 
1369                                      {   1387                                      {
1370                                          $ret  .= '<span  class="de sired">777 </span><sp an>Executa ble</span> ';   1388                                          $ret  .= '<span  class="de sired">777 </span><sp an>Executa ble</span> ';
1371                                      }   1389                                      }
1372                                 $r et .= '</t d>';   1390                                 $r et .= '</t d>';
1373                             $ret . = '</tr>';   1391                             $ret . = '</tr>';
1374                             $i ++;   1392                             $i ++;
1375                         }   1393                         }
1376                    }   1394                    }
1377                       1395                    
1378                       1396                    
1379     1397  
1380                $ret .=  '   1398                $ret .=  '
1381                </table>   1399                </table>
1382                <div cla ss="formKe eper">   1400                <div cla ss="formKe eper">
1383                    <div  class="bu tton_area_ 1">   1401                    <div  class="bu tton_area_ 1">
1384                         <form acti on="' . $_ SERVER['PH P_SELF'] .  '" method ="post">   1402                         <form acti on="' . $_ SERVER['PH P_SELF'] .  '" method ="post">
1385                             <input  id="butto n" type="i mage" src= "images/ch eck.gif" / >   1403                             <input  id="butto n" type="i mage" src= "images/ch eck.gif" / >
1386                             <input  type="hid den" name= "action" v alue="preI nstall" />   1404                             <input  type="hid den" name= "action" v alue="preI nstall" />
1387                         </form>   1405                         </form>
1388                    </di v>';   1406                    </di v>';
1389                $ret .=  '   1407                $ret .=  '
1390                    <div  class="bu tton_area_ 2">   1408                    <div  class="bu tton_area_ 2">
1391                         <form acti on="' . $_ SERVER['PH P_SELF'] .  '" method ="post">   1409                         <form acti on="' . $_ SERVER['PH P_SELF'] .  '" method ="post">
1392                             <input  id="butto n" type="i mage" src= "images/ne xt.gif" />   1410                             <input  id="butto n" type="i mage" src= "images/ne xt.gif" />
1393                             <input  type="hid den" name= "action" v alue="step 1" />   1411                             <input  type="hid den" name= "action" v alue="step 1" />
1394                         </form>   1412                         </form>
1395                    </di v>   1413                    </di v>
1396                    <div  class="cl earBoth">< /div>   1414                    <div  class="cl earBoth">< /div>
1397                </div>   1415                </div>
1398           </ div>';   1416           </ div>';
1399     1417  
1400       $ret . = '</div>' ;   1418       $ret . = '</div>' ;
1401     1419  
1402       return  $ret;   1420       return  $ret;
1403   }   1421   }
1404     1422  
1405   function S tartInstal l()   1423   function S tartInstal l()
1406   {   1424   {
1407       global  $aConf;   1425       global  $aConf;
1408          1426       
1409       $ret . = '<div cl ass="insta ll_pic">';   1427       $ret . = '<div cl ass="insta ll_pic">';
1410           $r et .= 'Dol phin ' . $ aConf['iVe rsion'] .  '.' . $aCo nf['iPatch '];   1428           $r et .= 'Dol phin ' . $ aConf['iVe rsion'] .  '.' . $aCo nf['iPatch '];
1411       $ret . = '</div>' ;   1429       $ret . = '</div>' ;
1412     1430  
1413       $ret . = '<div cl ass="insta ll_text">' ;   1431       $ret . = '<div cl ass="insta ll_text">' ;
1414           $r et .= 'Tha nk you for  choosing  Dolphin Sm art Commun ity Builde r!<br />';   1432           $r et .= 'Tha nk you for  choosing  Dolphin Sm art Commun ity Builde r!<br />';
1415           $r et .= 'Cli ck the but ton below  to create  your own c ommunity.' ;   1433           $r et .= 'Cli ck the but ton below  to create  your own c ommunity.' ;
1416       $ret . = '</div>' ;   1434       $ret . = '</div>' ;
1417          1435       
1418       $ret . = '<div cl ass="insta ll_button" >';   1436       $ret . = '<div cl ass="insta ll_button" >';
1419           $r et .= '<fo rm action= "' . $_SER VER['PHP_S ELF'] . '"  method="p ost">';   1437           $r et .= '<fo rm action= "' . $_SER VER['PHP_S ELF'] . '"  method="p ost">';
1420           $r et .= '<in put id="bu tton" type ="image" s rc="images /install.g if" />';   1438           $r et .= '<in put id="bu tton" type ="image" s rc="images /install.g if" />';
1421           $r et .= '<in put type=" hidden" na me="action " value="p reInstall"  />';   1439           $r et .= '<in put type=" hidden" na me="action " value="p reInstall"  />';
1422           $r et .= '</f orm>';   1440           $r et .= '</f orm>';
1423       $ret . = '</div>' ;   1441       $ret . = '</div>' ;
1424          1442       
1425       return  $ret;   1443       return  $ret;
1426   }   1444   }
1427     1445  
1428   function l oadDolphin ()   1446   function l oadDolphin ()
1429   {   1447   {
1430       $ret . = '<script  type="tex t/javascri pt">   1448       $ret . = '<script  type="tex t/javascri pt">
1431                window.l ocation =  "../index. php";   1449                window.l ocation =  "../index. php";
1432                </script >';   1450                </script >';
1433       return  $ret;   1451       return  $ret;
1434   }   1452   }
1435     1453  
1436   function P ageHeader(  $sAction  = '', $sEr ror = '' )   1454   function P ageHeader(  $sAction  = '', $sEr ror = '' )
1437   {   1455   {
1438       global  $aConf;   1456       global  $aConf;
1439          1457       
1440       $aActi ons = arra y(   1458       $aActi ons = arra y(
1441           "s tartInstal l" => "Dol phin Insta llation",   1459           "s tartInstal l" => "Dol phin Insta llation",
1442           "p reInstall"  => "Permi ssions",   1460           "p reInstall"  => "Permi ssions",
1443           "s tep1" => " Paths",   1461           "s tep1" => " Paths",
1444           "s tep2" => " Database",   1462           "s tep2" => " Database",
1445           "s tep3" => " Configurat ion",   1463           "s tep3" => " Configurat ion",
1446           "s tep4" => " Cron Jobs" ,   1464           "s tep4" => " Cron Jobs" ,
1447           "s tep5" => " Permission s Reversal "   1465           "s tep5" => " Permission s Reversal "
1448       );   1466       );
1449       if( !s trlen( $sA ction ) )   1467       if( !s trlen( $sA ction ) )
1450           $s Action = " startInsta ll";   1468           $s Action = " startInsta ll";
1451     1469  
1452       $ret =  <<<EOJ   1470       $ret =  <<<EOJ
1453   <!DOCTYPE  html PUBLI C "-//W3C/ /DTD XHTML  1.0 Trans itional//E N" "http:/ /www.w3.or g/TR/xhtml 1/DTD/xhtm l1-transit ional.dtd" >   1471   <!DOCTYPE  html PUBLI C "-//W3C/ /DTD XHTML  1.0 Trans itional//E N" "http:/ /www.w3.or g/TR/xhtml 1/DTD/xhtm l1-transit ional.dtd" >
1454       <html  xmlns="htt p://www.w3 .org/1999/ xhtml" xml :lang="en- US" lang=" en-US">   1472       <html  xmlns="htt p://www.w3 .org/1999/ xhtml" xml :lang="en- US" lang=" en-US">
1455           <h ead>   1473           <h ead>
1456                <title>D olphin Sma rt Communi ty Builder  Installat ion Script </title>   1474                <title>D olphin Sma rt Communi ty Builder  Installat ion Script </title>
1457                <link hr ef="genera l.css" rel ="styleshe et" type=" text/css"  />   1475                <link hr ef="genera l.css" rel ="styleshe et" type=" text/css"  />
1458                <meta ht tp-equiv=" Content-Ty pe" conten t="text/ht ml; charse t=UTF-8" / >   1476                <meta ht tp-equiv=" Content-Ty pe" conten t="text/ht ml; charse t=UTF-8" / >
1459                <script  src="../in c/js/funct ions.js" t ype="text/ javascript " language ="javascri pt"></scri pt>   1477                <script  src="../in c/js/funct ions.js" t ype="text/ javascript " language ="javascri pt"></scri pt>
1460                <!--[if  lt IE 7.]>   1478                <!--[if  lt IE 7.]>
1461                <script  defer type ="text/jav ascript" s rc="../inc /js/pngfix .js"></scr ipt>   1479                <script  defer type ="text/jav ascript" s rc="../inc /js/pngfix .js"></scr ipt>
1462                <![endif ]-->   1480                <![endif ]-->
1463           </ head>   1481           </ head>
1464           <b ody>   1482           <b ody>
1465                <div id= "main">   1483                <div id= "main">
1466   EOJ;   1484   EOJ;
1467          1485       
1468       if( $s Action ==  "step5" )   1486       if( $s Action ==  "step5" )
1469           $r et .= '<di v id="topM enuActive" >';   1487           $r et .= '<di v id="topM enuActive" >';
1470       else   1488       else
1471           $r et .= '<di v id="topM enuInactiv e">';   1489           $r et .= '<di v id="topM enuInactiv e">';
1472     1490  
1473       $iCoun terCurrent  = 1;   1491       $iCoun terCurrent  = 1;
1474       $iCoun terActive   = 1;   1492       $iCoun terActive   = 1;
1475     1493  
1476       foreac h ( $aActi ons as $sA ctionKey = > $sAction Value )   1494       foreac h ( $aActi ons as $sA ctionKey = > $sAction Value )
1477       {   1495       {
1478           if ( $sAction  != $sActi onKey )   1496           if ( $sAction  != $sActi onKey )
1479           {   1497           {
1480                $iCounte rActive++;   1498                $iCounte rActive++;
1481           }   1499           }
1482           el se   1500           el se
1483                break;   1501                break;
1484       }   1502       }
1485     1503  
1486       if( st rlen( $sEr ror ) )   1504       if( st rlen( $sEr ror ) )
1487           $i CounterAct ive--;   1505           $i CounterAct ive--;
1488                       1506                    
1489       foreac h ( $aActi ons as $sA ctionKey = > $sAction Value )   1507       foreac h ( $aActi ons as $sA ctionKey = > $sAction Value )
1490       {   1508       {
1491           if ( $iCounte rActive ==  $iCounter Current )   1509           if ( $iCounte rActive ==  $iCounter Current )
1492           {   1510           {
1493                $ret .=  '<div id=" topActive" >';   1511                $ret .=  '<div id=" topActive" >';
1494                    $ret  .= $sActi onValue;   1512                    $ret  .= $sActi onValue;
1495                $ret .=  '</div>';   1513                $ret .=  '</div>';
1496           }   1514           }
1497     1515  
1498           el seif( ($iC ounterActi ve - $iCou nterCurren t) == -1 )   1516           el seif( ($iC ounterActi ve - $iCou nterCurren t) == -1 )
1499           {   1517           {
1500                    $ret  .= '<img  src="image s/active_i nactive.gi f" />';   1518                    $ret  .= '<img  src="image s/active_i nactive.gi f" />';
1501                $ret .=  '<div id=" topInactiv e">';   1519                $ret .=  '<div id=" topInactiv e">';
1502                    $ret  .= $sActi onValue;   1520                    $ret  .= $sActi onValue;
1503                $ret .=  '</div>';   1521                $ret .=  '</div>';
1504                $ret .=  '<img src= "images/in active_ina ctive.gif"  />';   1522                $ret .=  '<img src= "images/in active_ina ctive.gif"  />';
1505           }   1523           }
1506     1524  
1507           el seif( ($iC ounterActi ve - $iCou nterCurren t) == 1 )   1525           el seif( ($iC ounterActi ve - $iCou nterCurren t) == 1 )
1508           {   1526           {
1509                $ret .=  '<div id=" topInactiv e">';   1527                $ret .=  '<div id=" topInactiv e">';
1510                    $ret  .= $sActi onValue;   1528                    $ret  .= $sActi onValue;
1511                $ret .=  '</div>';   1529                $ret .=  '</div>';
1512                $ret .=  '<img src= "images/in active_act ive.gif" / >';   1530                $ret .=  '<img src= "images/in active_act ive.gif" / >';
1513           }   1531           }
1514              1532           
1515           el se   1533           el se
1516           {   1534           {
1517                $ret .=  '<div id=" topInactiv e">';   1535                $ret .=  '<div id=" topInactiv e">';
1518                    $ret  .= $sActi onValue;   1536                    $ret  .= $sActi onValue;
1519                $ret .=  '</div>';   1537                $ret .=  '</div>';
1520                if( $sAc tionKey !=  "step5" )   1538                if( $sAc tionKey !=  "step5" )
1521                    $ret  .= '<img  src="image s/inactive _inactive. gif" />';                    1539                    $ret  .= '<img  src="image s/inactive _inactive. gif" />';                 
1522           }   1540           }
1523              1541           
1524           $i CounterCur rent++;   1542           $i CounterCur rent++;
1525       }   1543       }
1526              1544           
1527          1545       
1528       $ret . = '   1546       $ret . = '
1529                    </di v>   1547                    </di v>
1530                <div id= "header">   1548                <div id= "header">
1531                    <img  src="imag es/boonex_ logo.gif"  alt="" />< /div>   1549                    <img  src="imag es/boonex_ logo.gif"  alt="" />< /div>
1532                <div id= "content"> ';   1550                <div id= "content"> ';
1533     1551  
1534          1552       
1535       return  $ret;   1553       return  $ret;
1536   }   1554   }
1537     1555  
1538   function P ageFooter(  $sAction  )   1556   function P ageFooter(  $sAction  )
1539   {   1557   {
1540       $ret =  '   1558       $ret =  '
1541                </div>';   1559                </div>';
1542          1560       
1543       if( $s Action )   1561       if( $s Action )
1544           $r et .= '   1562           $r et .= '
1545                <div id= "footer">   1563                <div id= "footer">
1546                    <img  src="imag es/dolphin _transpare nt.jpg" al t="" />   1564                    <img  src="imag es/dolphin _transpare nt.jpg" al t="" />
1547                </div>';   1565                </div>';
1548          1566       
1549       $ret . = '   1567       $ret . = '
1550           </ div>   1568           </ div>
1551       </body >   1569       </body >
1552   </html>';   1570   </html>';
1553     1571  
1554       return  $ret;   1572       return  $ret;
1555   }   1573   }
1556     1574  
1557   function p rintInstal lError( $t ext )   1575   function p rintInstal lError( $t ext )
1558   {   1576   {
1559     1577  
1560       $ret . = '<div cl ass="error ">';   1578       $ret . = '<div cl ass="error ">';
1561       $ret . = $text;   1579       $ret . = $text;
1562       $ret . = '</div>' ;   1580       $ret . = '</div>' ;
1563     1581  
1564     1582  
1565     1583  
1566       return  $ret;   1584       return  $ret;
1567   }   1585   }
1568     1586  
1569   function g etPermissi ons( $file name )   1587   function g etPermissi ons( $file name )
1570   {   1588   {
1571       clears tatcache() ;   1589       clears tatcache() ;
1572       $perms  = fileper ms($filena me);   1590       $perms  = fileper ms($filena me);
1573       $ret =  substr( d ecoct( $pe rms ), -3  );   1591       $ret =  substr( d ecoct( $pe rms ), -3  );
1574       return  $ret;   1592       return  $ret;
1575   }   1593   }
1576     1594  
1577   function i sFullAcces sible($fil ename)   1595   function i sFullAcces sible($fil ename)
1578   {   1596   {
1579       clears tatcache() ;   1597       clears tatcache() ;
1580       $perms  = fileper ms($filena me);   1598       $perms  = fileper ms($filena me);
1581       return  ($perms &  0x0004 &&  $perms &  0x0002 &&  $perms & 0 x0001 && ! ($perms &  0x0200)) ?  true : fa lse;   1599       return  ($perms &  0x0004 &&  $perms &  0x0002 &&  $perms & 0 x0001 && ! ($perms &  0x0200)) ?  true : fa lse;
1582   }   1600   }
1583     1601  
1584   function i sRWAccessi ble($filen ame)   1602   function i sRWAccessi ble($filen ame)
1585   {   1603   {
1586       clears tatcache() ;   1604       clears tatcache() ;
1587       $perms  = fileper ms($filena me);   1605       $perms  = fileper ms($filena me);
1588       return  ($perms &  0x0004 &&  $perms &  0x0002) ?  true : fal se;   1606       return  ($perms &  0x0004 &&  $perms &  0x0002) ?  true : fal se;
1589   }   1607   }
1590     1608  
1591   function c reateTable ( $arr )   1609   function c reateTable ( $arr )
1592   {   1610   {
1593       $ret =  '';   1611       $ret =  '';
1594       $i = ' ';   1612       $i = ' ';
1595       foreac h($arr as  $key => $v alue)   1613       foreac h($arr as  $key => $v alue)
1596       {   1614       {
1597           if ( ($i%2) = = 0 )   1615           if ( ($i%2) = = 0 )
1598           {   1616           {
1599                $styleAd d = 'backg round-colo r:#ede9e9; ';   1617                $styleAd d = 'backg round-colo r:#ede9e9; ';
1600           }   1618           }
1601           el se   1619           el se
1602           {   1620           {
1603                $styleAd d = 'backg round-colo r:#fff;';   1621                $styleAd d = 'backg round-colo r:#fff;';
1604           }   1622           }
1605     1623  
1606           $d ef_exp_tex t = "";   1624           $d ef_exp_tex t = "";
1607           if  ( strlen( $value['de f_exp']) )   1625           if  ( strlen( $value['de f_exp']) )
1608           {   1626           {
1609                $funcbod y = $value ['def_exp' ];   1627                $funcbod y = $value ['def_exp' ];
1610                $func =  create_fun ction("",  $funcbody) ;   1628                $func =  create_fun ction("",  $funcbody) ;
1611                $def_exp  = $func() ;   1629                $def_exp  = $func() ;
1612                if ( str len($def_e xp) )   1630                if ( str len($def_e xp) )
1613                {   1631                {
1614                    $def _exp_text  = "&nbsp;< font color =green>fou nd</font>" ;   1632                    $def _exp_text  = "&nbsp;< font color =green>fou nd</font>" ;
1615                    $val ue['def']  = $def_exp ;   1633                    $val ue['def']  = $def_exp ;
1616                }   1634                }
1617                else   1635                else
1618                {   1636                {
1619                    $def _exp_text  = "&nbsp;< font color =red>not f ound</font >";   1637                    $def _exp_text  = "&nbsp;< font color =red>not f ound</font >";
1620                }   1638                }
1621     1639  
1622           }   1640           }
1623     1641  
1624           if  ( $error_ arr[$key]  == 1 )   1642           if  ( $error_ arr[$key]  == 1 )
1625           {   1643           {
1626                $st_err  = ' style= "backgroun d-color:#F FDDDD;" ';   1644                $st_err  = ' style= "backgroun d-color:#F FDDDD;" ';
1627           }   1645           }
1628           el se $st_err  = '';   1646           el se $st_err  = '';
1629           $r et .= '   1647           $r et .= '
1630           <t r class="c ont" style ="' . $sty leAdd . '" >   1648           <t r class="c ont" style ="' . $sty leAdd . '" >
1631                <td>   1649                <td>
1632                <div>   1650                <div>
1633                ' . $val ue['name']  . '   1651                ' . $val ue['name']  . '
1634                </div>   1652                </div>
1635                <div>   1653                <div>
1636                    Desc ription:   1654                    Desc ription:
1637                </div>   1655                </div>
1638                <div>   1656                <div>
1639                    Exam ple:   1657                    Exam ple:
1640                </div>   1658                </div>
1641                </td>   1659                </td>
1642                <td>   1660                <td>
1643                    <div >   1661                    <div >
1644                         <input ' .  $st_err .  ' size="3 0" name="'  . $key .  '" value=" ' . $value ['def'] .  '" />' . $ def_exp_te xt . '   1662                         <input ' .  $st_err .  ' size="3 0" name="'  . $key .  '" value=" ' . $value ['def'] .  '" />' . $ def_exp_te xt . '
1645                    </di v>   1663                    </di v>
1646                    <div >   1664                    <div >
1647                         ' .  $valu e['desc']  . '   1665                         ' .  $valu e['desc']  . '
1648                    </di v>   1666                    </di v>
1649                    <div >   1667                    <div >
1650                         ' . $value ['ex'] . '   1668                         ' . $value ['ex'] . '
1651                    </di v>   1669                    </di v>
1652                </td>   1670                </td>
1653           </ tr>';   1671           </ tr>';
1654           $i  ++;   1672           $i  ++;
1655       }   1673       }
1656     1674  
1657       return  $ret;   1675       return  $ret;
1658   }   1676   }
1659     1677  
1660   function r ewriteFile ($sCode, $ sReplace,  $sFile)   1678   function r ewriteFile ($sCode, $ sReplace,  $sFile)
1661   {   1679   {
1662       $ret =  '';   1680       $ret =  '';
1663       $fs =  filesize(  $sFile );   1681       $fs =  filesize(  $sFile );
1664       $fp =  fopen ( $s File, 'r'  );   1682       $fp =  fopen ( $s File, 'r'  );
1665       if ( $ fp )   1683       if ( $ fp )
1666       {   1684       {
1667           $f content =  fread( $fp , $fs );   1685           $f content =  fread( $fp , $fs );
1668           $f content =  str_replac e( $sCode,  $sReplace , $fconten t );   1686           $f content =  str_replac e( $sCode,  $sReplace , $fconten t );
1669           fc lose( $fp  );   1687           fc lose( $fp  );
1670           $f p = fopen  ( $sFile,  'w' );   1688           $f p = fopen  ( $sFile,  'w' );
1671           if  ( $fp )   1689           if  ( $fp )
1672           {   1690           {
1673                if( fput s ( $fp, $ fcontent )  )   1691                if( fput s ( $fp, $ fcontent )  )
1674                {   1692                {
1675                    $ret  .= true;   1693                    $ret  .= true;
1676                }   1694                }
1677                else   1695                else
1678                {   1696                {
1679                    $ret  .= false;   1697                    $ret  .= false;
1680                }   1698                }
1681                fclose (  $fp );   1699                fclose (  $fp );
1682           }   1700           }
1683           el se   1701           el se
1684           {   1702           {
1685                $ret .=  false;   1703                $ret .=  false;
1686           }   1704           }
1687       }   1705       }
1688       else   1706       else
1689       {   1707       {
1690           $r et .= fals e;   1708           $r et .= fals e;
1691       }   1709       }
1692     1710  
1693       return  $ret;   1711       return  $ret;
1694   }   1712   }
1695     1713  
1696   function R unSQL( $sA dminName,  $sAdminPas sword )   1714   function R unSQL( $sA dminName,  $sAdminPas sword )
1697   {   1715   {
1698       $db['h ost']         = $_POS T['db_host '];   1716       $db['h ost']         = $_POS T['db_host '];
1699       $db['s ock']         = $_POS T['db_sock '];   1717       $db['s ock']         = $_POS T['db_sock '];
1700       $db['p ort']         = $_POS T['db_port '];   1718       $db['p ort']         = $_POS T['db_port '];
1701       $db['u ser']         = $_POS T['db_user '];   1719       $db['u ser']         = $_POS T['db_user '];
1702       $db['p asswd']       = $_POS T['db_pass word'];   1720       $db['p asswd']       = $_POS T['db_pass word'];
1703       $db['d b']           = $_POS T['db_name '];   1721       $db['d b']           = $_POS T['db_name '];
1704          1722       
1705       $db['h ost'] .= (  $db['port '] ? ":{$d b['port']} " : '' ) .  ( $db['so ck'] ? ":{ $db['sock' ]}" : '' ) ;   1723       $db['h ost'] .= (  $db['port '] ? ":{$d b['port']} " : '' ) .  ( $db['so ck'] ? ":{ $db['sock' ]}" : '' ) ;
1706          1724       
1707       $pass  = true;   1725       $pass  = true;
1708       $error Mes = '';   1726       $error Mes = '';
1709       $filen ame = $_PO ST['sql_fi le'];   1727       $filen ame = $_PO ST['sql_fi le'];
1710     1728  
1711       $link  = @mysql_c onnect ( $ db['host'] , $db['use r'], $db[' passwd']   );   1729       $link  = @mysql_c onnect ( $ db['host'] , $db['use r'], $db[' passwd']   );
1712     1730  
1713       if( !$ link )   1731       if( !$ link )
1714           re turn print InstallErr or( mysql_ error() );   1732           re turn print InstallErr or( mysql_ error() );
1715           // return ("< font color =red>Could  not conne ct to MySQ L server:  " . mysql_ error()."< /font>");   1733           // return ("< font color =red>Could  not conne ct to MySQ L server:  " . mysql_ error()."< /font>");
1716     1734  
1717       if (!m ysql_selec t_db ($db[ 'db'], $li nk))   1735       if (!m ysql_selec t_db ($db[ 'db'], $li nk))
1718           re turn print InstallErr or( $db['d b'] . ': '  . mysql_e rror() );   1736           re turn print InstallErr or( $db['d b'] . ': '  . mysql_e rror() );
1719           // return ("< font color =red>Could  not selec t database  '{$db['db ']}': " .  mysql_erro r()."</fon t>");   1737           // return ("< font color =red>Could  not selec t database  '{$db['db ']}': " .  mysql_erro r()."</fon t>");
1720     1738  
1721       if ( ! ($f = fope n ( $filen ame, "r" ) ) )   1739       if ( ! ($f = fope n ( $filen ame, "r" ) ) )
1722           re turn print InstallErr or( 'Could  not open  file with  sql instru ctions:' .  $filename   );   1740           re turn print InstallErr or( 'Could  not open  file with  sql instru ctions:' .  $filename   );
1723          //r eturn ("<f ont color= red>Could  not open f ile with s ql instruc tions: $fi lename </f ont>");   1741          //r eturn ("<f ont color= red>Could  not open f ile with s ql instruc tions: $fi lename </f ont>");
1724     1742  
1725     1743  
1726       //Begi n SQL scri pt executi ng   1744       //Begi n SQL scri pt executi ng
1727       $s_sql  = "";   1745       $s_sql  = "";
1728       while  ( $s = fge ts ( $f, 1 0240) )   1746       while  ( $s = fge ts ( $f, 1 0240) )
1729       {   1747       {
1730           $s  = trim( $ s ); //Utf  with BOM  only   1748           $s  = trim( $ s ); //Utf  with BOM  only
1731     1749  
1732           if ( !strlen(  $s ) ) co ntinue;   1750           if ( !strlen(  $s ) ) co ntinue;
1733           if  ( mb_subs tr( $s, 0,  1 ) == '# '  ) conti nue; //pas s comments   1751           if  ( mb_subs tr( $s, 0,  1 ) == '# '  ) conti nue; //pas s comments
1734           if  ( mb_subs tr( $s, 0,  2 ) == '- -' ) conti nue;   1752           if  ( mb_subs tr( $s, 0,  2 ) == '- -' ) conti nue;
1735           if  ( substr(  $s, 0, 5  ) == "\xEF \xBB\xBF\x 2D\x2D" )  continue;   1753           if  ( substr(  $s, 0, 5  ) == "\xEF \xBB\xBF\x 2D\x2D" )  continue;
1736              1754           
1737           $s _sql .= $s ;   1755           $s _sql .= $s ;
1738              1756           
1739           if  ( mb_subs tr( $s, -1  ) != ';'     ) conti nue;   1757           if  ( mb_subs tr( $s, -1  ) != ';'     ) conti nue;
1740              1758           
1741           $r es = mysql _query ( $ s_sql, $li nk );   1759           $r es = mysql _query ( $ s_sql, $li nk );
1742           if  ( !$res )   1760           if  ( !$res )
1743                $errorMe s .= 'Erro r while ex ecuting: '  . $s_sql   . '<br /> ' . mysql_ error() .  '<hr />';   1761                $errorMe s .= 'Erro r while ex ecuting: '  . $s_sql   . '<br /> ' . mysql_ error() .  '<hr />';
1744              1762           
1745           $s _sql = "";   1763           $s _sql = "";
1746       }   1764       }
1747       mysql_ query ( "U PDATE `Adm ins` SET ` Name`='{$s AdminName} ', `Passwo rd`=md5( ' {$sAdminPa ssword}' )  WHERE `Na me`='admin '", $link  );   1765       mysql_ query ( "U PDATE `Adm ins` SET ` Name`='{$s AdminName} ', `Passwo rd`=md5( ' {$sAdminPa ssword}' )  WHERE `Na me`='admin '", $link  );
1748       if ( ! $res )   1766       if ( ! $res )
1749           $e rrorMes .=  'Error wh ile execut ing: ' . $ s_sql  . ' <br />' .  mysql_erro r() . '<hr  />';   1767           $e rrorMes .=  'Error wh ile execut ing: ' . $ s_sql  . ' <br />' .  mysql_erro r() . '<hr  />';
1750     1768  
1751       fclose ($f);   1769       fclose ($f);
1752     1770  
1753       $enabl e_gd_value  = extensi on_loaded(  'gd' ) ?  'on' : '';   1771       $enabl e_gd_value  = extensi on_loaded(  'gd' ) ?  'on' : '';
1754       if ( ! (mysql_que ry ( "UPDA TE `GlPara ms` SET `V ALUE`='$en able_gd_va lue' WHERE  `Name`='e nable_gd'" , $link )  ) )   1772       if ( ! (mysql_que ry ( "UPDA TE `GlPara ms` SET `V ALUE`='$en able_gd_va lue' WHERE  `Name`='e nable_gd'" , $link )  ) )
1755           $r et .= "<fo nt color=r ed><i><b>E rror</b>:< /i> ".mysq l_error(). "</font><h r>";   1773           $r et .= "<fo nt color=r ed><i><b>E rror</b>:< /i> ".mysq l_error(). "</font><h r>";
1756     1774  
1757       mysql_ close($lin k);   1775       mysql_ close($lin k);
1758     1776  
1759       $error Mes .= $re t;   1777       $error Mes .= $re t;
1760     1778  
1761       if( st rlen( $err orMes ) )   1779       if( st rlen( $err orMes ) )
1762       {   1780       {
1763           re turn print InstallErr or( $error Mes );   1781           re turn print InstallErr or( $error Mes );
1764       }   1782       }
1765       else   1783       else
1766       {   1784       {
1767           re turn 'done ';   1785           re turn 'done ';
1768       }   1786       }
1769     1787  
1770   //    retu rn $ret."T runcating  tables fin ished.<br> ";   1788   //    retu rn $ret."T runcating  tables fin ished.<br> ";
1771   }   1789   }
1772     1790  
1773   // set err or reporti ng level   1791   // set err or reporti ng level
1774   error_repo rting(E_AL L & ~E_NOT ICE);   1792   error_repo rting(E_AL L & ~E_NOT ICE);
1775   ?>   1793   ?>