includes/main.inc

   1 <?php
   2 /**********************************************************************
   3     Copyright (C) FrontAccounting, LLC.
   4         Released under the terms of the GNU General Public License, GPL,
   5         as published by the Free Software Foundation, either version 3
   6         of the License, or (at your option) any later version.
   7     This program is distributed in the hope that it will be useful,
   8     but WITHOUT ANY WARRANTY; without even the implied warranty of
   9     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10     See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
  11 ***********************************************************************/
  12 include_once($path_to_root . "/includes/db/connect_db.inc");
  13
  14 include_once($path_to_root . "/includes/errors.inc");
  15 include_once($path_to_root . "/includes/types.inc");
  16 include_once($path_to_root . "/includes/systypes.inc");
  17 include_once($path_to_root . "/includes/references.inc");
  18 include_once($path_to_root . "/includes/db/comments_db.inc");
  19 include_once($path_to_root . "/includes/db/sql_functions.inc");
  20 include_once($path_to_root . "/includes/db/audit_trail_db.inc");
  21 //include_once($path_to_root . "/includes/validation.inc");
  22
  23 include_once($path_to_root . "/admin/db/users_db.inc");
  24 include_once($path_to_root . "/includes/ui/ui_view.inc");
  25 include_once($path_to_root . "/includes/ui/ui_controls.inc");
  26
  27 function page($title, $no_menu=false, $is_index=false, $onload="", $js="", $script_only=false)
  28 {
  29
  30         global $path_to_root, $page_security;
  31
  32
  33         $hide_menu = $no_menu;
  34
  35         include($path_to_root . "/includes/page/header.inc");
  36
  37         page_header($title, $no_menu, $is_index, $onload, $js);
  38         check_page_security($page_security);
  39 //      error_box();
  40         if($script_only) {
  41                 echo '<noscript>';
  42                 echo display_heading(_('This page is usable only with javascript enabled browsers.'));
  43                 echo '</noscript>';
  44                 div_start('_page_body', null, true);
  45         } else {
  46                 div_start('_page_body'); // whole page content for ajax reloading
  47         }
  48 }
  49
  50 function end_page($no_menu=false, $is_index=false, $hide_back_link=false, $type_no=0, $trans_no=0)
  51 {
  52         global $path_to_root;
  53
  54         if (!$is_index && !$hide_back_link && function_exists('hyperlink_back'))
  55                 hyperlink_back(true, $no_menu, $type_no, $trans_no);
  56         div_end();      // end of _page_body section
  57
  58         include($path_to_root . "/includes/page/footer.inc");
  59         page_footer($no_menu, $is_index, $hide_back_link);
  60 }
  61
  62 function flush_dir($path, $wipe = false)
  63 {
  64         $dir = opendir($path);
  65         while(false !== ($fname = readdir($dir))) {
  66                 if($fname=='.' || $fname=='..' || $fname=='CVS' || (!$wipe && $fname=='index.php')) continue;
  67                 if(is_dir($path.'/'.$fname)) {
  68                     flush_dir($path.'/'.$fname, $wipe);
  69                     if ($wipe) @rmdir($path.'/'.$fname);
  70                 } else
  71                     @unlink($path.'/'.$fname);
  72         }
  73 }
  74
  75 function cache_js_file($fpath, $text)
  76 {
  77         global $go_debug;
  78
  79         if(!$go_debug) $text = js_compress($text);
  80
  81         $file = fopen($fpath, 'w');
  82         if (!$file) return false;
  83         if (!fwrite($file, $text)) return false;
  84         return fclose($file);
  85
  86 }
  87
  88 function add_js_file($filename)
  89 {
  90           global $js_static;
  91
  92           $search = array_search($filename, $js_static);
  93           if ($search === false || $search === null) // php>4.2.0 returns null
  94                 $js_static[] = $filename;
  95 }
  96
  97 function add_js_ufile($filename)
  98 {
  99           global $js_userlib;
 100
 101           $search = array_search($filename, $js_userlib);
 102           if ($search === false || $search === null) // php>4.2.0 returns null
 103                 $js_userlib[] = $filename;
 104 }
 105
 106 function add_js_source($text)
 107 {
 108           global $js_lib;
 109
 110           $search = array_search($text, $js_lib);
 111           if ($search === false || $search === null) // php>4.2.0 returns null
 112                 $js_lib[] = $text;
 113 }
 114
 115 /**
 116  * Compresses the Javascript code for more efficient delivery.
 117  * copyright (c) 2005 by Jared White & J. Max Wilson
 118  * http://www.xajaxproject.org
 119  * Added removing comments from output.
 120  * Warning: Fails on RegExp with quotes - use new RegExp() in this case.
 121  */
 122 function js_compress($sJS)
 123 {
 124         //remove windows cariage returns
 125         $sJS = str_replace("\r","",$sJS);
 126
 127         //array to store replaced literal strings
 128         $literal_strings = array();
 129
 130         //explode the string into lines
 131         $lines = explode("\n",$sJS);
 132         //loop through all the lines, building a new string at the same time as removing literal strings
 133         $clean = "";
 134         $inComment = false;
 135         $literal = "";
 136         $inQuote = false;
 137         $escaped = false;
 138         $quoteChar = "";
 139
 140         for($i=0;$i<count($lines);$i++)
 141         {
 142                 $line = $lines[$i];
 143                 $inNormalComment = false;
 144
 145                 //loop through line's characters and take out any literal strings, replace them with ___i___ where i is the index of this string
 146                 $len = strlen($line);
 147                 for($j=0;$j<$len;$j++)
 148                 {
 149                         $c = $line[$j];         // this is _really_ faster than subst
 150                         $d = $c.$line[$j+1];
 151
 152                         //look for start of quote
 153                         if(!$inQuote && !$inComment)
 154                         {
 155                                 //is this character a quote or a comment
 156                                 if(($c=="\"" || $c=="'") && !$inComment && !$inNormalComment)
 157                                 {
 158                                         $inQuote = true;
 159                                         $inComment = false;
 160                                         $escaped = false;
 161                                         $quoteChar = $c;
 162                                         $literal = $c;
 163                                 }
 164                                 else if($d=="/*" && !$inNormalComment)
 165                                 {
 166                                         $inQuote = false;
 167                                         $inComment = true;
 168                                         $escaped = false;
 169                                         $quoteChar = $d;
 170                                         $literal = $d;
 171                                         $j++;
 172                                 }
 173                                 else if($d=="//") //ignore string markers that are found inside comments
 174                                 {
 175                                         $inNormalComment = true;
 176                                         $clean .= $c;
 177                                 }
 178                                 else
 179                                 {
 180                                         $clean .= $c;
 181                                 }
 182                         }
 183                         else //allready in a string so find end quote
 184                         {
 185                                 if($c == $quoteChar && !$escaped && !$inComment)
 186                                 {
 187                                         $inQuote = false;
 188                                         $literal .= $c;
 189
 190                                         //subsitute in a marker for the string
 191                                         $clean .= "___" . count($literal_strings) . "___";
 192
 193                                         //push the string onto our array
 194                                         array_push($literal_strings,$literal);
 195
 196                                 }
 197                                 else if($inComment && $d=="*/")
 198                                 {
 199                                         $inComment = false;
 200                                         $literal .= $d;
 201
 202                                         //subsitute in a marker for the string
 203                                         $clean .= "___" . count($literal_strings) . "___";
 204
 205                                         //push the string onto our array
 206                                         array_push($literal_strings,$literal);
 207
 208                                         $j++;
 209                                 }
 210                                 else if($c == "\\" && !$escaped)
 211                                         $escaped = true;
 212                                 else
 213                                         $escaped = false;
 214
 215                                 $literal .= $c;
 216                         }
 217                 }
 218                 if($inComment) $literal .= "\n";
 219                 $clean .= "\n";
 220         }
 221         //explode the clean string into lines again
 222         $lines = explode("\n",$clean);
 223
 224         //now process each line at a time
 225         for($i=0;$i<count($lines);$i++)
 226         {
 227                 $line = $lines[$i];
 228
 229                 //remove comments
 230                 $line = preg_replace("/\/\/(.*)/","",$line);
 231
 232                 //strip leading and trailing whitespace
 233                 $line = trim($line);
 234
 235                 //remove all whitespace with a single space
 236                 $line = preg_replace("/\s+/"," ",$line);
 237
 238                 //remove any whitespace that occurs after/before an operator
 239                 $line = preg_replace("/\s*([!\}\{;,&=\|\-\+\*\/\)\(:])\s*/","\\1",$line);
 240
 241                 $lines[$i] = $line;
 242         }
 243
 244         //implode the lines
 245         $sJS = implode("\n",$lines);
 246
 247         //make sure there is a max of 1 \n after each line
 248         $sJS = preg_replace("/[\n]+/","\n",$sJS);
 249
 250         //strip out line breaks that immediately follow a semi-colon
 251         $sJS = preg_replace("/;\n/",";",$sJS);
 252
 253         //curly brackets aren't on their own
 254         $sJS = preg_replace("/[\n]*\{[\n]*/","{",$sJS);
 255
 256         //finally loop through and replace all the literal strings:
 257         for($i=0;$i<count($literal_strings);$i++) {
 258             if (strpos($literal_strings[$i],"/*")!==false)
 259                 $literal_strings[$i]= '';
 260                 $sJS = str_replace("___".$i."___",$literal_strings[$i],$sJS);
 261         }
 262         return $sJS;
 263 }
 264
 265 /*
 266         Check if file can be updated, restoring subdirectories
 267         if needed. Returns 1 when no confilcts, -1 when file exists and is writable
 268 */
 269 function check_write($path)
 270 {
 271         if ($path == ''//|| $path == '.' || $path == '..'
 272         ) return 0;
 273
 274         return is_writable($path) ? (is_dir($path) ? 1 : -1)
 275                 : ($path =='.' ? 0 : check_write(dirname($path)));
 276 }
 277
 278 /*
 279         Copies set of files. When $strict is set
 280         also removes files from the $to which
 281         does not exists in $from directory but arelisted in $flist.
 282 */
 283 function copy_files($flist, $from, $to, $strict=false)
 284 {
 285         foreach ($flist as $file) {
 286                 if (file_exists($from.'/'.$file))
 287                         if (!copy_file($file, $from, $to))
 288                                 return false;
 289                 if ($strict && !is_file($from.'/'.$file)) // if
 290                                 unlink($to.'/'.$file);
 291         }
 292         return true;
 293 }
 294
 295 /*
 296         Copies file from base to target directory, restoring subdirectories
 297         if needed.
 298 */
 299 function copy_file($file, $from, $to)
 300 {
 301
 302         if (!is_dir(dirname($file=='.' ? $to : ($to.'/'.$file)))) {
 303                 if (!copy_file(dirname($file), null, $to))
 304                         return false;
 305         }
 306         if (!$from) {
 307         //              error_log( 'dodanie katalogu '.$to.'/'.$file);
 308                 return @mkdir($file=='.' ? $to : ($to.'/'.$file));
 309         }
 310         else {
 311         //              error_log( 'skopiowanie '.$to.'/'.$file);
 312                 return @copy($from.'/'.$file, $to.'/'.$file);
 313         }
 314 }
 315 /*
 316         Returns current path to company private folder.
 317         (Current path can change after chdir).
 318 */
 319 function company_path($comp=null)
 320 {
 321         global $path_to_root, $comp_path;
 322
 323         if (!isset($comp))
 324                 $comp = user_company();
 325
 326         // if path is relative, set current path_to_root
 327         return ($comp_path[0]=='.' ? $path_to_root.'/'.basename($comp_path) : $comp_path)
 328                         . '/'.$comp;
 329 }
 330 /*
 331         Search for file, looking first for company specific version, then for
 332         version provided by any extension module, finally in main FA directory.
 333         Also adds include path for any related files.
 334
 335         Returns found file path or null.
 336 */
 337 function find_custom_file($rep)
 338 {
 339         global $installed_extensions, $comp_path, $path_to_root;
 340
 341         // customized per company version
 342         $path = company_path();
 343         $file = $path.'/'.$rep;
 344         if (file_exists($file)) {
 345                 // add local include path
 346                 set_include_path($path.PATH_SEPARATOR.get_include_path());
 347                 return $file;
 348         }
 349         // file added by active extension modules
 350         if (count($installed_extensions) > 0)
 351         {
 352                 $extensions = $installed_extensions;
 353                 foreach ($extensions as $ext)
 354                         if (($ext['active'] && $ext['type'] == 'extension')) {
 355                                 $path = $path_to_root.'/'.$ext['path'];
 356                                 $file = $path.$rep;
 357                                 if (file_exists($file)) {
 358                                         set_include_path($path.PATH_SEPARATOR.get_include_path());
 359                                         return $file;
 360                                 }
 361                         }
 362         }
 363         // standard location
 364         $file = $path_to_root.$rep;
 365         if (file_exists($file))
 366                 return $file;
 367
 368         return null;
 369 }
 370
 371
 372 ?>