1 <?php

     2 

     3 /*

     4  * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between

     5  * Version 1.0 (Banshee)

     6  * Copyright (C) 2006-2007 Dan Fuhry

     7  *

     8  * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License

     9  * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

    10  *

    11  * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied

    12  * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.

    13  */

    14  

    15 function getConfig($n) {

    16   global $enano_config;

    17   if(isset($enano_config[$n])) return $enano_config[$n];

    18   else                         return false;

    19 }

    20 

    21 function setConfig($n, $v) {

    22   global $enano_config, $db;

    23   $enano_config[$n] = $v;

    24   $v = $db->escape($v);

    25   $e=$db->sql_query('DELETE FROM '.table_prefix.'config WHERE config_name=\''.$n.'\';');

    26   if(!$e) $db->_die('Error during generic setConfig() call row deletion.');

    27   $e=$db->sql_query('INSERT INTO '.table_prefix.'config(config_name, config_value) VALUES(\''.$n.'\', \''.$v.'\')');

    28   if(!$e) $db->_die('Error during generic setConfig() call row insertion.');

    29 }

    30 

    31 function makeUrl($t, $query = false, $escape = false)

    32 {

    33   global $db, $session, $paths, $template, $plugins; // Common objects

    34   $flags = '';

    35   $sep = urlSeparator;

    36   if(isset($_GET['printable'])) { $flags .= $sep.'printable'; $sep = '&'; }

    37   if(isset($_GET['theme'])) { $flags .= $sep.'theme='.$session->theme; $sep = '&'; }

    38   if(isset($_GET['style'])) { $flags .= $sep.'style='.$session->style; $sep = '&'; }

    39   $url = $session->append_sid(contentPath.$t.$flags);

    40   if($query)

    41   {

    42     $sep = strstr($url, '?') ? '&' : '?';

    43     $url = $url . $sep . $query;

    44   }

    45   return ($escape) ? htmlspecialchars($url) : $url;

    46 }

    47 

    48 function makeUrlNS($n, $t, $query = false, $escape = false)

    49 {

    50   global $db, $session, $paths, $template, $plugins; // Common objects

    51   $flags = '';

    52   if(defined('ENANO_BASE_CLASSES_INITIALIZED')) $sep = urlSeparator;

    53   else $sep = (strstr($_SERVER['REQUEST_URI'], '?')) ? '&' : '?';

    54   if(isset($_GET['printable'])) { $flags .= $sep.'printable';              $sep = '&'; }

    55   if(isset($_GET['theme']))     { $flags .= $sep.'theme='.$session->theme; $sep = '&'; }

    56   if(isset($_GET['style']))     { $flags .= $sep.'style='.$session->style; $sep = '&'; }

    57   

    58   if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

    59   {

    60     $url = contentPath.$paths->nslist[$n].$t.$flags;

    61   }

    62   else

    63   {

    64     $url = contentPath.$n.':'.$t.$flags;

    65   }

    66   

    67   if($query)

    68   {

    69     if(strstr($url, '?')) $sep =  '&';

    70     else $sep = '?';

    71     $url = $url . $sep . $query . $flags;

    72   }

    73   

    74   if(defined('ENANO_BASE_CLASSES_INITIALIZED'))

    75   {

    76     $url = $session->append_sid($url);

    77   }

    78   

    79   return ($escape) ? htmlspecialchars($url) : $url;

    80 }

    81 

    82 function makeUrlComplete($n, $t, $query = false, $escape = false)

    83 {

    84   global $db, $session, $paths, $template, $plugins; // Common objects

    85   $flags = '';

    86   if(defined('ENANO_BASE_CLASSES_INITIALIZED')) $sep = urlSeparator;

    87   else $sep = (strstr($_SERVER['REQUEST_URI'], '?')) ? '&' : '?';

    88   if(isset($_GET['printable'])) { $flags .= $sep.'printable';              $sep = '&'; }

    89   if(isset($_GET['theme']))     { $flags .= $sep.'theme='.$session->theme; $sep = '&'; }

    90   if(isset($_GET['style']))     { $flags .= $sep.'style='.$session->style; $sep = '&'; }

    91   if(defined('ENANO_BASE_CLASSES_INITIALIZED')) $url = $session->append_sid(contentPath.$paths->nslist[$n].$t.$flags);

    92   else $url = contentPath.$n.':'.$t.$flags;

    93   if($query)

    94   {

    95     if(strstr($url, '?')) $sep =  '&';

    96     else $sep = '?';

    97     $url = $url . $sep . $query . $flags;

    98   }

    99   $baseprot = 'http' . ( isset($_SERVER['HTTPS']) ? 's' : '' ) . '://' . $_SERVER['HTTP_HOST'];

   100   $url = $baseprot . $url;

   101   return ($escape) ? htmlspecialchars($url) : $url;

   102 }

   103 

   104 /**

   105  * Redirect the user to the specified URL.

   106  * @param string $url The URL, either relative or absolute.

   107  * @param string $title The title of the message

   108  * @param string $message A short message to show to the user

   109  * @param string $timeout Timeout, in seconds, to delay the redirect. Defaults to 3.

   110  */

   111  

   112 function redirect($url, $title = 'Redirecting...', $message = 'Please wait while you are redirected.', $timeout = 3)

   113 {

   114   global $db, $session, $paths, $template, $plugins; // Common objects

   115   

   116   if ( $timeout == 0 )

   117   {

   118     header('Location: ' . $url);

   119     header('HTTP/1.1 307 Temporary Redirect');

   120   }

   121   

   122   $template->add_header('<meta http-equiv="refresh" content="' . $timeout . '; url=' . str_replace('"', '\\"', $url) . '" />');

   123   $template->add_header('<script type="text/javascript">

   124       function __r() {

   125         // FUNCTION AUTOMATICALLY GENERATED

   126         window.location="' . str_replace('"', '\\"', $url) . '";

   127       }

   128       setTimeout(\'__r();\', ' . $timeout . '000);

   129     </script>

   130     ');

   131   

   132   $template->tpl_strings['PAGE_NAME'] = $title;

   133   $template->header(true);

   134   echo '<p>' . $message . '</p><p>If you are not redirected within ' . ( $timeout + 1 ) . ' seconds, <a href="' . str_replace('"', '\\"', $url) . '">please click here</a>.</p>';

   135   $template->footer(true);

   136   

   137   $db->close();

   138   exit(0);

   139   

   140 }

   141 

   142 // Removed wikiFormat() from here, replaced with RenderMan::render

   143 

   144 function isPage($p) {

   145   global $db, $session, $paths, $template, $plugins; // Common objects

   146   if(isset($paths->pages[$p])) return true;

   147   $d = RenderMan::strToPageID($p);

   148   if($d[1] != 'Special' && $d[1] != 'Template' && $d[1] != 'Admin') return false;

   149   $a = explode('/', $p);

   150   if(isset($paths->pages[$a[0]])) return true;

   151   else return false;

   152 }

   153 

   154 function arrayItemUp($arr, $keyname) {

   155   $keylist = array_keys($arr);

   156   $keyflop = array_flip($keylist);

   157   $idx = $keyflop[$keyname];

   158   $idxm = $idx - 1;

   159   $temp = $arr[$keylist[$idxm]];

   160   if($arr[$keylist[0]] == $arr[$keyname]) return $arr;

   161   $arr[$keylist[$idxm]] = $arr[$keylist[$idx]];

   162   $arr[$keylist[$idx]] = $temp;

   163   return $arr;

   164 }

   165 

   166 function arrayItemDown($arr, $keyname) {

   167   $keylist = array_keys($arr);

   168   $keyflop = array_flip($keylist);

   169   $idx = $keyflop[$keyname];

   170   $idxm = $idx + 1;

   171   $temp = $arr[$keylist[$idxm]];

   172   $sz = sizeof($arr); $sz--;

   173   if($arr[$keylist[$sz]] == $arr[$keyname]) return $arr;

   174   $arr[$keylist[$idxm]]  =  $arr[$keylist[$idx]];

   175   $arr[$keylist[$idx]]   =  $temp;

   176   return $arr;

   177 }

   178 

   179 function arrayItemTop($arr, $keyname) {

   180   $keylist = array_keys($arr);

   181   $keyflop = array_flip($keylist);

   182   $idx = $keyflop[$keyname];

   183   while( $orig != $arr[$keylist[0]] ) {

   184     // echo 'Keyname: '.$keylist[$idx] . '<br />'; flush(); ob_flush(); // Debugger

   185     if($idx < 0) return $arr;

   186     if($keylist[$idx] == '' || $keylist[$idx] < 0 || !$keylist[$idx]) {

   187       /* echo 'Infinite loop caught in arrayItemTop(<br /><pre>';

   188       print_r($arr);

   189       echo '</pre><br />, '.$keyname.');<br /><br />EnanoCMS: Critical error during function call, exiting to prevent excessive server load.';

   190       exit; */

   191       return $arr;

   192     }

   193     $arr = arrayItemUp($arr, $keylist[$idx]);

   194     $idx--;

   195   }

   196   return $arr;

   197 }

   198 

   199 function arrayItemBottom($arr, $keyname) {

   200   $keylist = array_keys($arr);

   201   $keyflop = array_flip($keylist);

   202   $idx = $keyflop[$keyname];

   203   $sz = sizeof($arr); $sz--;

   204   while( $orig != $arr[$keylist[$sz]] ) {

   205     // echo 'Keyname: '.$keylist[$idx] . '<br />'; flush(); ob_flush(); // Debugger

   206     if($idx > $sz) return $arr;

   207     if($keylist[$idx] == '' || $keylist[$idx] < 0 || !$keylist[$idx]) {

   208       echo 'Infinite loop caught in arrayItemBottom(<br /><pre>';

   209       print_r($arr);

   210       echo '</pre><br />, '.$keyname.');<br /><br />EnanoCMS: Critical error during function call, exiting to prevent excessive server load.';

   211       exit;

   212     }

   213     $arr = arrayItemDown($arr, $keylist[$idx]);

   214     $idx++;

   215   }

   216   return $arr;

   217 }

   218 

   219 // Convert IP address to hex string

   220 // Input:  127.0.0.1  (string)

   221 // Output: 0x7f000001 (string)

   222 // Updated 12/8/06 to work with PHP4 and not use eval() (blech)

   223 function ip2hex($ip) {

   224   if ( preg_match('/^([0-9a-f:]+)$/', $ip) )

   225   {

   226     // this is an ipv6 address

   227     return str_replace(':', '', $ip);

   228   }

   229   $nums = explode('.', $ip);

   230   if(sizeof($nums) != 4) return false;

   231   $str = '0x';

   232   foreach($nums as $n)

   233   {

   234     $str .= (string)dechex($n);

   235   }

   236   return $str;

   237 }

   238 

   239 // Convert DWord to IP address

   240 // Input:  0x7f000001

   241 // Output: 127.0.0.1

   242 // Updated 12/8/06 to work with PHP4 and not use eval() (blech)

   243 function hex2ip($in) {

   244   if(substr($in, 0, 2) == '0x') $ip = substr($in, 2, 8);

   245   else $ip = substr($in, 0, 8);

   246   $octets = enano_str_split($ip, 2);

   247   $str = '';

   248   $newoct = Array();

   249   foreach($octets as $o)

   250   {

   251     $o = (int)hexdec($o);

   252     $newoct[] = $o;

   253   }

   254   return implode('.', $newoct);

   255 }

   256 

   257 // Function strip_php moved to RenderMan class

   258 

   259 function die_semicritical($t, $p)

   260 {

   261   global $db, $session, $paths, $template, $plugins; // Common objects

   262   $db->close();

   263   

   264   if ( ob_get_status() )

   265     ob_end_clean();

   266   

   267   dc_here('functions: <span style="color: red">calling die_semicritical</span>');

   268   

   269   $tpl = new template_nodb();

   270   $tpl->load_theme('oxygen', 'bleu');

   271   $tpl->tpl_strings['SITE_NAME'] = getConfig('site_name');

   272   $tpl->tpl_strings['SITE_DESC'] = getConfig('site_desc');

   273   $tpl->tpl_strings['COPYRIGHT'] = getConfig('copyright_notice');

   274   $tpl->tpl_strings['PAGE_NAME'] = $t;

   275   $tpl->header();

   276   echo $p;

   277   $tpl->footer();

   278   

   279   exit;

   280 }

   281 

   282 function die_friendly($t, $p)

   283 {

   284   global $db, $session, $paths, $template, $plugins; // Common objects

   285   

   286   if ( ob_get_status() )

   287     ob_end_clean();

   288   

   289   dc_here('functions: <span style="color: red">calling die_friendly</span>');

   290   $paths->cpage['name'] = $t;

   291   $template->tpl_strings['PAGE_NAME'] = $t;

   292   $template->header();

   293   echo $p;

   294   $template->footer();

   295   $db->close();

   296   

   297   exit;

   298 }

   299 

   300 function grinding_halt($t, $p)

   301 {

   302   global $db, $session, $paths, $template, $plugins; // Common objects

   303   

   304   $db->close();

   305   

   306   if ( ob_get_status() )

   307     ob_end_clean();

   308   

   309   dc_here('functions: <span style="color: red">calling grinding_halt</span>');

   310   $tpl = new template_nodb();

   311   $tpl->load_theme('oxygen', 'bleu');

   312   $tpl->tpl_strings['SITE_NAME'] = 'Critical error';

   313   $tpl->tpl_strings['SITE_DESC'] = 'This website is experiencing a serious error and cannot load.';

   314   $tpl->tpl_strings['COPYRIGHT'] = 'Unable to retrieve copyright information';

   315   $tpl->tpl_strings['PAGE_NAME'] = $t;

   316   $tpl->header();

   317   echo $p;

   318   $tpl->footer();

   319   exit;

   320 }

   321 

   322 function show_category_info() {

   323   global $db, $session, $paths, $template, $plugins; // Common objects

   324   dc_here('functions: showing category info');

   325   if($template->no_headers && !strpos($_SERVER['REQUEST_URI'], 'ajax.php')) return '';

   326   if($paths->namespace=='Category')

   327   {

   328     $q = $db->sql_query('SELECT page_id,namespace FROM '.table_prefix.'categories WHERE category_id=\''.$paths->cpage['urlname_nons'].'\' AND namespace=\'Category\' ORDER BY page_id;');

   329     if(!$q) $db->_die('The category information could not be selected.');

   330     $ticker = -1;

   331     echo '<h3>Subcategories</h3>';

   332     if($db->numrows() < 1) echo '<p>There are no subcategories in this category.</p>';

   333     echo '<table border="0" cellspacing="1" cellpadding="4">';

   334     while($row = $db->fetchrow())

   335     {

   336       $ticker++;if($ticker==3) $ticker=0;

   337       if($ticker==0) echo '<tr>';

   338       echo '<td style="width: 200px;"><a href="'.makeUrlNS($row['namespace'], $row['page_id']).'">'.$paths->pages[$paths->nslist[$row['namespace']].$row['page_id']]['name'].'</a></td>';

   339       if($ticker==2) echo '</tr>';

   340     }

   341     $db->free_result();

   342     if($ticker) echo '</tr>';

   343     echo '</table>';

   344     

   345     $q = $db->sql_query('SELECT page_id,namespace FROM '.table_prefix.'categories WHERE category_id=\''.$paths->cpage['urlname_nons'].'\' AND namespace!=\'Category\' ORDER BY page_id;');

   346     if(!$q) $db->_die('The category information could not be selected.');

   347     $ticker = -1;

   348     echo '<h3>Pages</h3>';

   349     if($db->numrows() < 1) echo '<p>There are no pages in this category.</p>';

   350     echo '<table border="0" cellspacing="1" cellpadding="4">';

   351     while($row = $db->fetchrow())

   352     {

   353       $ticker++;if($ticker==3) $ticker=0;

   354       if($ticker==0) echo '<tr>';

   355       echo '<td style="width: 200px;"><a href="'.makeUrlNS($row['namespace'], $row['page_id']).'">'.$paths->pages[$paths->nslist[$row['namespace']].$row['page_id']]['name'].'</a></td>';

   356       if($ticker==2) echo '</tr>';

   357     }

   358     $db->free_result();

   359     if($ticker) echo '</tr>';

   360     echo '</table><br /><br />';

   361   }

   362   $q = $db->sql_query('SELECT category_id FROM '.table_prefix.'categories WHERE page_id=\''.$paths->cpage['urlname_nons'].'\' AND namespace=\''.$paths->namespace.'\'');

   363   if(!$q) $db->_die('The error seems to have occurred during selection of category data.');

   364   if($db->numrows() > 0) {

   365     echo '<div class="mdg-comment" style="margin-left: 0;">Categories: ';

   366     $i=0;

   367     while($r = $db->fetchrow())

   368     {

   369       if($i>0) echo ', ';

   370       $i++;

   371       echo '<a href="'.makeUrlNS('Category', $r['category_id']).'">'.$paths->pages[$paths->nslist['Category'].$r['category_id']]['name'].'</a>';

   372     }

   373     if( ( $paths->wiki_mode && !$paths->page_protected ) || ( $session->get_permissions('edit_cat') && $session->get_permissions('even_when_protected') ) ) echo ' [ <a href="'.makeUrl($paths->page, 'do=catedit', true).'" onclick="ajaxCatEdit(); return false;">edit categorization</a> ]</div>';

   374   } else {

   375     echo '<div class="mdg-comment" style="margin-left: 0;">Categories: ';

   376     echo '(Uncategorized)';

   377     if( ( $paths->wiki_mode && !$paths->page_protected ) || ( $session->get_permissions('edit_cat') && $session->get_permissions('even_when_protected') ) ) echo ' [ <a href="'.makeUrl($paths->page, 'do=catedit', true).'" onclick="ajaxCatEdit(); return false;">edit categorization</a> ]</div>';

   378     else echo '</div>';

   379   }

   380   $db->free_result();

   381 }

   382 

   383 function show_file_info()

   384 {

   385   global $db, $session, $paths, $template, $plugins; // Common objects

   386   if($paths->namespace != 'File') return null; // Prevent unnecessary work

   387   $selfn = $paths->cpage['urlname_nons']; // substr($paths->page, strlen($paths->nslist['File']), strlen($paths->cpage));

   388   if(substr($paths->cpage['name'], 0, strlen($paths->nslist['File']))==$paths->nslist['File']) $selfn = substr($paths->cpage['urlname_nons'], strlen($paths->nslist['File']), strlen($paths->cpage['urlname_nons']));

   389   $q = $db->sql_query('SELECT mimetype,time_id,size FROM '.table_prefix.'files WHERE page_id=\''.$selfn.'\' ORDER BY time_id DESC;');

   390   if(!$q) $db->_die('The file type could not be fetched.');

   391   if($db->numrows() < 1) { echo '<div class="mdg-comment" style="margin-left: 0;"><h3>Uploaded file</h3><p>There are no files uploaded with this name yet. <a href="'.makeUrlNS('Special', 'UploadFile/'.$paths->cpage['urlname_nons']).'">Upload a file...</a></p></div><br />'; return; }

   392   $r = $db->fetchrow();

   393   $mimetype = $r['mimetype'];

   394   $datestring = date('F d, Y h:i a', (int)$r['time_id']);

   395   echo '<div class="mdg-comment" style="margin-left: 0;"><p><h3>Uploaded file</h3></p><p>Type: '.$r['mimetype'].'<br />Size: ';

   396   $fs = $r['size'];

   397   echo $fs.' bytes';

   398   $fs = (int)$fs;

   399   if($fs >= 1048576)

   400   {

   401     $fs = round($fs / 1048576, 1);

   402     echo ' ('.$fs.' MB)';

   403   } elseif($fs >= 1024) {

   404     $fs = round($fs / 1024, 1);

   405     echo ' ('.$fs.' KB)';

   406   }

   407   echo '<br />Uploaded: '.$datestring.'</p>';

   408   if(substr($mimetype, 0, 6)!='image/' && ( substr($mimetype, 0, 5) != 'text/' || $mimetype == 'text/html' || $mimetype == 'text/javascript' ))

   409   {

   410     echo '<div class="warning-box">This file type may contain viruses or other code that could harm your computer. You should exercise caution if you download it.</div>';

   411   }

   412   if(substr($mimetype, 0, 6)=='image/')

   413   {

   414     echo '<p><a href="'.makeUrlNS('Special', 'DownloadFile'.'/'.$selfn).'"><img style="border: 0;" alt="'.$paths->page.'" src="'.makeUrlNS('Special', 'DownloadFile'.'/'.$selfn.htmlspecialchars(urlSeparator).'preview').'" /></a></p>';

   415   }

   416   echo '<p><a href="'.makeUrlNS('Special', 'DownloadFile'.'/'.$selfn.'/'.$r['time_id'].htmlspecialchars(urlSeparator).'download').'">Download this file</a>';

   417   if(!$paths->page_protected && ( $paths->wiki_mode || $session->get_permissions('upload_new_version') ))

   418   {

   419     echo '  |  <a href="'.makeUrlNS('Special', 'UploadFile'.'/'.$selfn).'">Upload new version</a>';

   420   }

   421   echo '</p>';

   422   if($db->numrows() > 1)

   423   {

   424     echo '<h3>File history</h3><p>';

   425     while($r = $db->fetchrow())

   426     {

   427       echo '(<a href="'.makeUrlNS('Special', 'DownloadFile'.'/'.$selfn.'/'.$r['time_id'].htmlspecialchars(urlSeparator).'download').'">this ver</a>) ';

   428       if($session->get_permissions('history_rollback'))

   429         echo ' (<a href="#" onclick="ajaxRollback(\''.$r['time_id'].'\'); return false;">revert</a>) ';

   430       $mimetype = $r['mimetype'];

   431       $datestring = date('F d, Y h:i a', (int)$r['time_id']);

   432       echo $datestring.': '.$r['mimetype'].', ';

   433       $fs = $r['size'];

   434       $fs = (int)$fs;

   435       if($fs >= 1048576)

   436       {

   437         $fs = round($fs / 1048576, 1);

   438         echo ' '.$fs.' MB';

   439       } elseif($fs >= 1024) {

   440         $fs = round($fs / 1024, 1);

   441         echo ' '.$fs.' KB';

   442       } else {

   443         echo ' '.$fs.' bytes';

   444       }

   445       echo '<br />';

   446     }

   447     echo '</p>';

   448   }

   449   $db->free_result();

   450   echo '</div><br />';

   451 }

   452 

   453 function display_page_headers()

   454 {

   455   global $db, $session, $paths, $template, $plugins; // Common objects

   456   if($session->get_permissions('vote_reset') && $paths->cpage['delvotes'] > 0)

   457   {

   458     $hr = implode(', ', explode('|', $paths->cpage['delvote_ips']));

   459     $is = 'is';

   460     $s = '';

   461     $s2 = 's';

   462     if ( $paths->cpage['delvotes'] > 1)

   463     {

   464       $is = 'are';

   465       $s = 's';

   466       $s2 = '';

   467     }

   468     echo '<div class="info-box" style="margin-left: 0; margin-top: 5px;" id="mdgDeleteVoteNoticeBox">

   469             <b>Notice:</b> There '.$is.' '.$paths->cpage['delvotes'].' user'.$s.' that think'.$s2.' this page should be deleted.<br />

   470             <b>Users that voted:</b> ' . $hr . '<br />

   471             <a href="'.makeUrl($paths->page, 'do=deletepage').'" onclick="ajaxDeletePage(); return false;">Delete page</a>  |  <a href="'.makeUrl($paths->page, 'do=resetvotes').'" onclick="ajaxResetDelVotes(); return false;">Reset votes</a>

   472           </div>';

   473   }

   474 }

   475 

   476 function display_page_footers()

   477 {

   478   global $db, $session, $paths, $template, $plugins; // Common objects

   479   if(isset($_GET['nofooters'])) return;

   480   $code = $plugins->setHook('send_page_footers');

   481   foreach ( $code as $cmd )

   482   {

   483     eval($cmd);

   484   }

   485   show_file_info();

   486   show_category_info();

   487 }

   488 

   489 function password_prompt($id = false)

   490 {

   491   global $db, $session, $paths, $template, $plugins; // Common objects

   492   if(!$id) $id = $paths->page;

   493   if(isset($paths->pages[$id]['password']) && strlen($paths->pages[$id]['password']) == 40 && !isset($_REQUEST['pagepass']))

   494   {

   495     die_friendly('Password required', '<p>You must supply a password to access this page.</p><form action="'.makeUrl($paths->pages[$id]['urlname']).'" method="post"><p>Password: <input name="pagepass" type="password" /></p><p><input type="submit" value="Submit" /></p>');

   496   } elseif(isset($_REQUEST['pagepass'])) {

   497     $p = (preg_match('#^([a-f0-9]*){40}$#', $_REQUEST['pagepass'])) ? $_REQUEST['pagepass'] : sha1($_REQUEST['pagepass']);

   498     if($p != $paths->pages[$id]['password']) die_friendly('Password required', '<p style="color: red;">The password you entered is incorrect.</p><form action="'.makeUrl($paths->page).'" method="post"><p>Password: <input name="pagepass" type="password" /></p><p><input type="submit" value="Submit" /></p>');

   499   }

   500 }

   501 

   502 function str_hex($string){

   503     $hex='';

   504     for ($i=0; $i < strlen($string); $i++){

   505         $hex .= ' '.dechex(ord($string[$i]));

   506     }

   507     return substr($hex, 1, strlen($hex));

   508 }

   509 

   510 // Function pulled from phpBB's smtp.php

   511 function smtp_get_response($socket, $response, $line = __LINE__) 

   512 {

   513 	$server_response = '';

   514 	while (substr($server_response, 3, 1) != ' ') 

   515 	{

   516 		if (!($server_response = fgets($socket, 256))) 

   517 		{

   518       die_friendly('SMTP Error', "<p>Couldn't get mail server response codes</p>");

   519 		}

   520 	} 

   521 

   522 	if (!(substr($server_response, 0, 3) == $response)) 

   523 	{ 

   524     die_friendly('SMTP Error', "<p>Ran into problems sending mail. Response: $server_response</p>");

   525 	} 

   526 }

   527 

   528 function smtp_send_email($to, $subject, $message, $from)

   529 {

   530   return smtp_send_email_core($to, $subject, $message, "From: <$from>\n");

   531 }

   532 

   533 // Replacement or substitute for PHP's mail command

   534 // Ported from phpBB - copyright (C) phpBB group, GPL.

   535 function smtp_send_email_core($mail_to, $subject, $message, $headers = '')

   536 {

   537 	global $board_config;

   538 

   539 	// Fix any bare linefeeds in the message to make it RFC821 Compliant.

   540 	$message = preg_replace("#(?<!\r)\n#si", "\r\n", $message);

   541 

   542 	if ($headers != '')

   543 	{

   544 		if (is_array($headers))

   545 		{

   546 			if (sizeof($headers) > 1)

   547 			{

   548 				$headers = join("\n", $headers);

   549 			}

   550 			else

   551 			{

   552 				$headers = $headers[0];

   553 			}

   554 		}

   555 		$headers = chop($headers);

   556 

   557 		// Make sure there are no bare linefeeds in the headers

   558 		$headers = preg_replace('#(?<!\r)\n#si', "\r\n", $headers);

   559 

   560 		// Ok this is rather confusing all things considered,

   561 		// but we have to grab bcc and cc headers and treat them differently

   562 		// Something we really didn't take into consideration originally

   563 		$header_array = explode("\r\n", $headers);

   564 		@reset($header_array);

   565 

   566 		$headers = '';

   567 		while(list(, $header) = each($header_array))

   568 		{

   569 			if (preg_match('#^cc:#si', $header))

   570 			{

   571 				$cc = preg_replace('#^cc:(.*)#si', '\1', $header);

   572 			}

   573 			else if (preg_match('#^bcc:#si', $header))

   574 			{

   575 				$bcc = preg_replace('#^bcc:(.*)#si', '\1', $header);

   576 				$header = '';

   577 			}

   578 			$headers .= ($header != '') ? $header . "\r\n" : '';

   579 		}

   580 

   581 		$headers = chop($headers);

   582 		$cc = explode(', ', $cc);

   583 		$bcc = explode(', ', $bcc);

   584 	}

   585 

   586 	if (trim($subject) == '')

   587 	{

   588 		die_friendly(GENERAL_ERROR, "No email Subject specified");

   589 	}

   590 

   591 	if (trim($message) == '')

   592 	{

   593 		die_friendly(GENERAL_ERROR, "Email message was blank");

   594 	}

   595   

   596   // setup SMTP

   597   $host = getConfig('smtp_server');

   598   if ( empty($host) )

   599     return 'No smtp_host in config';

   600   if ( strstr($host, ':' ) )

   601   {

   602     $n = explode(':', $host);

   603     $smtp_host = $n[0];

   604     $port = intval($n[1]);

   605   }

   606   else

   607   {

   608     $smtp_host = $host;

   609     $port = 25;

   610   }

   611   

   612   $smtp_user = getConfig('smtp_user');

   613   $smtp_pass = getConfig('smtp_password');

   614   

   615 	// Ok we have error checked as much as we can to this point let's get on

   616 	// it already.

   617 	if( !$socket = @fsockopen($smtp_host, $port, $errno, $errstr, 20) )

   618 	{

   619 		die_friendly(GENERAL_ERROR, "Could not connect to smtp host : $errno : $errstr");

   620 	}

   621 

   622 	// Wait for reply

   623 	smtp_get_response($socket, "220", __LINE__);

   624 

   625 	// Do we want to use AUTH?, send RFC2554 EHLO, else send RFC821 HELO

   626 	// This improved as provided by SirSir to accomodate

   627 	if( !empty($smtp_user) && !empty($smtp_pass) )

   628 	{ 

   629 		enano_fputs($socket, "EHLO " . $smtp_host . "\r\n");

   630 		smtp_get_response($socket, "250", __LINE__);

   631 

   632 		enano_fputs($socket, "AUTH LOGIN\r\n");

   633 		smtp_get_response($socket, "334", __LINE__);

   634 

   635 		enano_fputs($socket, base64_encode($smtp_user) . "\r\n");

   636 		smtp_get_response($socket, "334", __LINE__);

   637 

   638 		enano_fputs($socket, base64_encode($smtp_pass) . "\r\n");

   639 		smtp_get_response($socket, "235", __LINE__);

   640 	}

   641 	else

   642 	{

   643 		enano_fputs($socket, "HELO " . $smtp_host . "\r\n");

   644 		smtp_get_response($socket, "250", __LINE__);

   645 	}

   646 

   647 	// From this point onward most server response codes should be 250

   648 	// Specify who the mail is from....

   649 	enano_fputs($socket, "MAIL FROM: <" . getConfig('contact_email') . ">\r\n");

   650 	smtp_get_response($socket, "250", __LINE__);

   651 

   652 	// Specify each user to send to and build to header.

   653 	$to_header = '';

   654 

   655 	// Add an additional bit of error checking to the To field.

   656 	$mail_to = (trim($mail_to) == '') ? 'Undisclosed-recipients:;' : trim($mail_to);

   657 	if (preg_match('#[^ ]+\@[^ ]+#', $mail_to))

   658 	{

   659 		enano_fputs($socket, "RCPT TO: <$mail_to>\r\n");

   660 		smtp_get_response($socket, "250", __LINE__);

   661 	}

   662 

   663 	// Ok now do the CC and BCC fields...

   664 	@reset($bcc);

   665 	while(list(, $bcc_address) = each($bcc))

   666 	{

   667 		// Add an additional bit of error checking to bcc header...

   668 		$bcc_address = trim($bcc_address);

   669 		if (preg_match('#[^ ]+\@[^ ]+#', $bcc_address))

   670 		{

   671 			enano_fputs($socket, "RCPT TO: <$bcc_address>\r\n");

   672 			smtp_get_response($socket, "250", __LINE__);

   673 		}

   674 	}

   675 

   676 	@reset($cc);

   677 	while(list(, $cc_address) = each($cc))

   678 	{

   679 		// Add an additional bit of error checking to cc header

   680 		$cc_address = trim($cc_address);

   681 		if (preg_match('#[^ ]+\@[^ ]+#', $cc_address))

   682 		{

   683 			enano_fputs($socket, "RCPT TO: <$cc_address>\r\n");

   684 			smtp_get_response($socket, "250", __LINE__);

   685 		}

   686 	}

   687 

   688 	// Ok now we tell the server we are ready to start sending data

   689 	enano_fputs($socket, "DATA\r\n");

   690 

   691 	// This is the last response code we look for until the end of the message.

   692 	smtp_get_response($socket, "354", __LINE__);

   693 

   694 	// Send the Subject Line...

   695 	enano_fputs($socket, "Subject: $subject\r\n");

   696 

   697 	// Now the To Header.

   698 	enano_fputs($socket, "To: $mail_to\r\n");

   699 

   700 	// Now any custom headers....

   701 	enano_fputs($socket, "$headers\r\n\r\n");

   702 

   703 	// Ok now we are ready for the message...

   704 	enano_fputs($socket, "$message\r\n");

   705 

   706 	// Ok the all the ingredients are mixed in let's cook this puppy...

   707 	enano_fputs($socket, ".\r\n");

   708 	smtp_get_response($socket, "250", __LINE__);

   709 

   710 	// Now tell the server we are done and close the socket...

   711 	enano_fputs($socket, "QUIT\r\n");

   712 	fclose($socket);

   713 

   714 	return TRUE;

   715 }

   716 

   717 /**

   718  * Tell which version of Enano we're running.

   719  * @param bool $long if true, uses English version names (e.g. alpha, beta, release candidate). If false (default) uses abbreviations (1.0a1, 1.0b3, 1.0RC2, etc.)

   720  * @return string

   721  */

   722 

   723 function enano_version($long = false, $no_nightly = false)

   724 {

   725   $r = getConfig('enano_version');

   726   $rc = ( $long ) ? ' release candidate ' : 'RC';

   727   $b = ( $long ) ? ' beta ' : 'b';

   728   $a = ( $long ) ? ' alpha ' : 'a';

   729   if($v = getConfig('enano_rc_version')) $r .= $rc.$v;

   730   if($v = getConfig('enano_beta_version')) $r .= $b.$v;

   731   if($v = getConfig('enano_alpha_version')) $r .= $a.$v;

   732   if ( defined('ENANO_NIGHTLY') && !$no_nightly )

   733   {

   734     $nightlytag  = ENANO_NIGHTLY_MONTH . '-' . ENANO_NIGHTLY_DAY . '-' . ENANO_NIGHTLY_YEAR;

   735     $nightlylong = ' nightly; build date: ' . ENANO_NIGHTLY_MONTH . '-' . ENANO_NIGHTLY_DAY . '-' . ENANO_NIGHTLY_YEAR;

   736     $r = ( $long ) ? $r . $nightlylong : $r . '-nightly-' . $nightlytag;

   737   }

   738   return $r;

   739 }

   740 

   741 function _dualurlenc($t) {

   742   return rawurlencode(rawurlencode($t));

   743 }

   744   

   745 function _die($t) {

   746   $_ob = 'document.getElementById("ajaxEditContainer").innerHTML = unescape(\'' . rawurlencode('' . $t . '') . '\')';

   747   die($_ob);

   748 }

   749 

   750 function jsdie($text) {

   751   global $db, $session, $paths, $template, $plugins; // Common objects

   752   $text = rawurlencode($text . "\n\nSQL Backtrace:\n" . $db->sql_backtrace());

   753   echo 'document.getElementById("ajaxEditContainer").innerHTML = unescape(\''.$text.'\');';

   754 }

   755 

   756 // HTML sanitizing function - written by Kallahar

   757 // Original function at: http://quickwired.com/kallahar/smallprojects/php_xss_filter_function.php

   758 

   759 // UNUSED - todo: remove this in gold or put it to use

   760 

   761 function RemoveXSS($val) {

   762   // remove all non-printable characters. CR(0a) and LF(0b) and TAB(9) are allowed

   763   // this prevents some character re-spacing such as <java\0script>

   764   // note that you have to handle splits with \n, \r, and \t later since they *are* allowed in some inputs

   765   $val = preg_replace('/([\x00-\x08][\x0b-\x0c][\x0e-\x20])/', '', $val);

   766   

   767   // straight replacements, the user should never need these since they're normal characters

   768   // this prevents like <IMG SRC=&#X40&#X61&#X76&#X61&#X73&#X63&#X72&#X69&#X70&#X74&#X3A&#X61&#X6C&#X65&#X72&#X74&#X28&#X27&#X58&#X53&#X53&#X27&#X29>

   769   $search  = 'abcdefghijklmnopqrstuvwxyz';

   770   $search .= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

   771   $search .= '1234567890!@#$%^&*()';

   772   $search .= '~`";:?+/={}[]-_|\'\\';

   773   for ($i = 0; $i < strlen($search); $i++) {

   774     // ;? matches the ;, which is optional

   775     // 0{0,7} matches any padded zeros, which are optional and go up to 8 chars

   776   

   777     // &#x0040 @ search for the hex values

   778     $val = preg_replace('/(&#[x|X]0{0,8}'.dechex(ord($search[$i])).';?)/i', $search[$i], $val); // with a ;

   779     // &#00064 @ 0{0,7} matches '0' zero to seven times

   780     $val = preg_replace('/(&#0{0,8}'.ord($search[$i]).';?)/', $search[$i], $val); // with a ;

   781   }

   782   

   783   // now the only remaining whitespace attacks are \t, \n, and \r

   784   $ra1 = Array('javascript', 'vbscript', 'expression', 'applet', 'meta', 'xml', 'blink', 'link', 'script', 'embed', 'object', 'iframe', 'frame', 'frameset', 'ilayer', 'layer', 'bgsound', 'title', 'base');

   785   $ra2 = Array('onabort', 'onactivate', 'onafterprint', 'onafterupdate', 'onbeforeactivate', 'onbeforecopy', 'onbeforecut', 'onbeforedeactivate', 'onbeforeeditfocus', 'onbeforepaste', 'onbeforeprint', 'onbeforeunload', 'onbeforeupdate', 'onblur', 'onbounce', 'oncellchange', 'onchange', 'onclick', 'oncontextmenu', 'oncontrolselect', 'oncopy', 'oncut', 'ondataavailable', 'ondatasetchanged', 'ondatasetcomplete', 'ondblclick', 'ondeactivate', 'ondrag', 'ondragend', 'ondragenter', 'ondragleave', 'ondragover', 'ondragstart', 'ondrop', 'onerror', 'onerrorupdate', 'onfilterchange', 'onfinish', 'onfocus', 'onfocusin', 'onfocusout', 'onhelp', 'onkeydown', 'onkeypress', 'onkeyup', 'onlayoutcomplete', 'onload', 'onlosecapture', 'onmousedown', 'onmouseenter', 'onmouseleave', 'onmousemove', 'onmouseout', 'onmouseover', 'onmouseup', 'onmousewheel', 'onmove', 'onmoveend', 'onmovestart', 'onpaste', 'onpropertychange', 'onreadystatechange', 'onreset', 'onresize', 'onresizeend', 'onresizestart', 'onrowenter', 'onrowexit', 'onrowsdelete', 'onrowsinserted', 'onscroll', 'onselect', 'onselectionchange', 'onselectstart', 'onstart', 'onstop', 'onsubmit', 'onunload');

   786   $ra = array_merge($ra1, $ra2);

   787   

   788   $found = true; // keep replacing as long as the previous round replaced something

   789   while ($found == true) {

   790     $val_before = $val;

   791     for ($i = 0; $i < sizeof($ra); $i++) {

   792       $pattern = '/';

   793       for ($j = 0; $j < strlen($ra[$i]); $j++) {

   794         if ($j > 0) {

   795           $pattern .= '(';

   796           $pattern .= '(&#[x|X]0{0,8}([9][a][b]);?)?';

   797           $pattern .= '|(&#0{0,8}([9][10][13]);?)?';

   798           $pattern .= ')?';

   799         }

   800         $pattern .= $ra[$i][$j];

   801       }

   802       $pattern .= '/i';

   803       $replacement = substr($ra[$i], 0, 2).'<b></b>'.substr($ra[$i], 2); // add in <> to nerf the tag

   804       $val = preg_replace($pattern, $replacement, $val); // filter out the hex tags

   805       if ($val_before == $val) {

   806         // no replacements were made, so exit the loop

   807         $found = false;

   808       }

   809     }

   810   }

   811   return $val;

   812 }

   813 

   814 /**

   815  * Capitalizes the first letter of a string

   816  * @param $text string the text to be transformed

   817  * @return string

   818  */

   819  

   820 function capitalize_first_letter($text)

   821 {

   822   return strtoupper(substr($text, 0, 1)) . substr($text, 1);

   823 }

   824 

   825 /**

   826  * Checks if a value in a bitfield is on or off

   827  * @param $bitfield int the bit-field value

   828  * @param $value int the value to switch off

   829  * @return bool

   830  */

   831  

   832 function is_bit($bitfield, $value)

   833 {

   834   return ( $bitfield & $value ) ? true : false;

   835 }

   836 

   837 /**

   838  * Trims spaces/newlines from the beginning and end of a string

   839  * @param $text the text to process

   840  * @return string

   841  */

   842  

   843 function trim_spaces($text)

   844 {

   845   $d = true;

   846   while($d)

   847   {

   848     $c = substr($text, 0, 1);

   849     $a = substr($text, strlen($text)-1, strlen($text));

   850     if($c == "\n" || $c == "\r" || $c == "\t" || $c == ' ') $text = substr($text, 1, strlen($text));

   851     elseif($a == "\n" || $a == "\r" || $a == "\t" || $a == ' ') $text = substr($text, 0, strlen($text)-1);

   852     else $d = false;

   853   }

   854   return $text;

   855 }

   856 

   857 /**

   858  * Enano-ese equivalent of str_split() which is only found in PHP5

   859  * @param $text string the text to split

   860  * @param $inc int size of each block

   861  * @return array

   862  */

   863  

   864 function enano_str_split($text, $inc = 1)

   865 {

   866   if($inc < 1) return false;

   867   if($inc >= strlen($text)) return Array($text);

   868   $len = ceil(strlen($text) / $inc);

   869   $ret = Array();

   870   for($i=0;$i<strlen($text);$i=$i+$inc)

   871   {

   872     $ret[] = substr($text, $i, $inc);

   873   }

   874   return $ret;

   875 }

   876 

   877 /**

   878  * Converts a hexadecimal number to a binary string.

   879  * @param text string hexadecimal number

   880  * @return string

   881  */

   882 function hex2bin($text)

   883 {

   884   $arr = enano_str_split($text, 2);

   885   $ret = '';

   886   for ($i=0; $i<sizeof($arr); $i++)

   887   {

   888     $ret .= chr(hexdec($arr[$i]));

   889   }

   890   return $ret;

   891 }

   892 

   893 /**

   894  * Generates and/or prints a human-readable backtrace

   895  * @param bool $return - if true, this function returns a string, otherwise returns null

   896  * @return mixed

   897  */

   898  

   899 function enano_debug_print_backtrace($return = false)

   900 {

   901   ob_start();

   902   echo '<pre>';

   903   debug_print_backtrace();

   904   echo '</pre>';

   905   $c = ob_get_contents();

   906   ob_end_clean();

   907   if($return) return $c;

   908   else echo $c;

   909   return null;

   910 }

   911 

   912 /**

   913  * Like rawurlencode(), but encodes all characters

   914  * @param string $text the text to encode

   915  * @param optional string $prefix text before each hex character

   916  * @param optional string $suffix text after each hex character

   917  * @return string

   918  */

   919  

   920 function hexencode($text, $prefix = '%', $suffix = '')

   921 {

   922   $arr = enano_str_split($text);

   923   $r = '';

   924   foreach($arr as $a)

   925   {

   926     $nibble = (string)dechex(ord($a));

   927     if(strlen($nibble) == 1) $nibble = '0' . $nibble;

   928     $r .= $prefix . $nibble . $suffix;

   929   }

   930   return $r;

   931 }

   932 

   933 /**

   934  * Enano-ese equivalent of get_magic_quotes_gpc()

   935  * @return bool

   936  */

   937  

   938 function enano_get_magic_quotes_gpc()

   939 {

   940   if(function_exists('get_magic_quotes_gpc'))

   941   {

   942     return ( get_magic_quotes_gpc() == 1 );

   943   }

   944   else

   945   {

   946     return ( strtolower(@ini_get('magic_quotes_gpc')) == '1' );

   947   }

   948 }

   949 

   950 /**

   951  * Recursive stripslashes()

   952  * @param array

   953  * @return array

   954  */

   955  

   956 function stripslashes_recurse($arr)

   957 {

   958   foreach($arr as $k => $xxxx)

   959   {

   960     $val =& $arr[$k];

   961     if(is_string($val))

   962       $val = stripslashes($val);

   963     elseif(is_array($val))

   964       $val = stripslashes_recurse($val);

   965   }

   966   return $arr;

   967 }

   968 

   969 /**

   970  * If magic_quotes_gpc is on, calls stripslashes() on everything in $_GET/$_POST/$_COOKIE

   971  * @ignore - this doesn't work

   972  * @todo port version from the PHP manual

   973  * @return void

   974  */

   975 function strip_magic_quotes_gpc()

   976 {

   977   if(enano_get_magic_quotes_gpc())

   978   {

   979     $_POST   = stripslashes_recurse($_POST);

   980     $_GET    = stripslashes_recurse($_GET);

   981     $_COOKIE = stripslashes_recurse($_COOKIE);

   982   }

   983 }

   984 

   985 /**

   986  * A very basic single-character compression algorithm for binary strings/bitfields

   987  * @param string $bits the text to compress

   988  * @return string

   989  */

   990  

   991 function compress_bitfield($bits)

   992 {

   993   $crc32 = crc32($bits);

   994   $bits .= '0';

   995   $start_pos = 0;

   996   $current = substr($bits, 1, 1);

   997   $last    = substr($bits, 0, 1);

   998   $chunk_size = 1;

   999   $len = strlen($bits);

  1000   $crc = $len;

  1001   $crcval = 0;

  1002   for ( $i = 1; $i < $len; $i++ )

  1003   {

  1004     $current = substr($bits, $i, 1);

  1005     $last    = substr($bits, $i - 1, 1);

  1006     $next    = substr($bits, $i + 1, 1);

  1007     // Are we on the last character?

  1008     if($current == $last && $i+1 < $len)

  1009       $chunk_size++;

  1010     else

  1011     {

  1012       if($i+1 == $len && $current == $next)

  1013       {

  1014         // This character completes a chunk

  1015         $chunk_size++;

  1016         $i++;

  1017         $chunk = substr($bits, $start_pos, $chunk_size);

  1018         $chunklen = strlen($chunk);

  1019         $newchunk = $last . '[' . $chunklen . ']';

  1020         $newlen   = strlen($newchunk);

  1021         $bits = substr($bits, 0, $start_pos) . $newchunk . substr($bits, $i, $len);

  1022         $chunk_size = 1;

  1023         $i = $start_pos + $newlen;

  1024         $start_pos = $i;

  1025         $len = strlen($bits);

  1026         $crcval = $crcval + $chunklen;

  1027       }

  1028       else

  1029       {

  1030         // Last character completed a chunk

  1031         $chunk = substr($bits, $start_pos, $chunk_size);

  1032         $chunklen = strlen($chunk);

  1033         $newchunk = $last . '[' . $chunklen . '],';

  1034         $newlen   = strlen($newchunk);

  1035         $bits = substr($bits, 0, $start_pos) . $newchunk . substr($bits, $i, $len);

  1036         $chunk_size = 1;

  1037         $i = $start_pos + $newlen;

  1038         $start_pos = $i;

  1039         $len = strlen($bits);

  1040         $crcval = $crcval + $chunklen;

  1041       }

  1042     }

  1043   }

  1044   if($crc != $crcval)

  1045   {

  1046     echo __FUNCTION__.'(): ERROR: length check failed, this is a bug in the algorithm<br />Debug info: aiming for a CRC val of '.$crc.', got '.$crcval;

  1047     return false;

  1048   }

  1049   $compressed = 'cbf:len='.$crc.';crc='.dechex($crc32).';data='.$bits.'|end';

  1050   return $compressed;

  1051 }

  1052 

  1053 /**

  1054  * Uncompresses a bitfield compressed with compress_bitfield()

  1055  * @param string $bits the compressed bitfield

  1056  * @return string the uncompressed, original (we hope) bitfield OR bool false on error

  1057  */

  1058  

  1059 function uncompress_bitfield($bits)

  1060 {

  1061   if(substr($bits, 0, 4) != 'cbf:')

  1062   {

  1063     echo __FUNCTION__.'(): ERROR: Invalid stream';

  1064     return false;

  1065   }

  1066   $len = intval(substr($bits, strpos($bits, 'len=')+4, strpos($bits, ';')-strpos($bits, 'len=')-4));

  1067   $crc = substr($bits, strpos($bits, 'crc=')+4, 8);

  1068   $data = substr($bits, strpos($bits, 'data=')+5, strpos($bits, '|end')-strpos($bits, 'data=')-5);

  1069   $data = explode(',', $data);

  1070   foreach($data as $a => $b)

  1071   {

  1072     $d =& $data[$a];

  1073     $char = substr($d, 0, 1);

  1074     $dlen = intval(substr($d, 2, strlen($d)-1));

  1075     $s = '';

  1076     for($i=0;$i<$dlen;$i++,$s.=$char);

  1077     $d = $s;

  1078     unset($s, $dlen, $char);

  1079   }

  1080   $decompressed = implode('', $data);

  1081   $decompressed = substr($decompressed, 0, -1);

  1082   $dcrc = (string)dechex(crc32($decompressed));

  1083   if($dcrc != $crc)

  1084   {

  1085     echo __FUNCTION__.'(): ERROR: CRC check failed<br />debug info:<br />original crc: '.$crc.'<br />decomp\'ed crc: '.$dcrc.'<br />';

  1086     return false;

  1087   }

  1088   return $decompressed;

  1089 }

  1090 

  1091 /**

  1092  * Exports a MySQL table into a SQL string.

  1093  * @param string $table The name of the table to export

  1094  * @param bool $structure If true, include a CREATE TABLE command

  1095  * @param bool $data If true, include the contents of the table

  1096  * @param bool $compact If true, omits newlines between parts of SQL statements, use in Enano database exporter

  1097  * @return string

  1098  */

  1099 

  1100 function export_table($table, $structure = true, $data = true, $compact = false)

  1101 {

  1102   global $db, $session, $paths, $template, $plugins; // Common objects

  1103   $struct_keys = '';

  1104   $divider   = (!$compact) ? "\n" : "\n";

  1105   $spacer1   = (!$compact) ? "\n" : " ";

  1106   $spacer2   = (!$compact) ? "  " : " ";

  1107   $rowspacer = (!$compact) ? "\n  " : " ";

  1108   $index_list = Array();

  1109   $cols = $db->sql_query('SHOW COLUMNS IN '.$table.';');

  1110   if(!$cols)

  1111   {

  1112     echo 'export_table(): Error getting column list: '.$db->get_error_text().'<br />';

  1113     return false;

  1114   }

  1115   $col = Array();

  1116   $sqlcol = Array();

  1117   $collist = Array();

  1118   $pri_keys = Array();

  1119   // Using fetchrow_num() here to compensate for MySQL l10n

  1120   while( $row = $db->fetchrow_num() )

  1121   {

  1122     $field =& $row[0];

  1123     $type  =& $row[1];

  1124     $null  =& $row[2];

  1125     $key   =& $row[3];

  1126     $def   =& $row[4];

  1127     $extra =& $row[5];

  1128     $col[] = Array(

  1129       'name'=>$field,

  1130       'type'=>$type,

  1131       'null'=>$null,

  1132       'key'=>$key,

  1133       'default'=>$def,

  1134       'extra'=>$extra,

  1135       );