source: www/www/_new/kernel/units/data_uni.php@ 1

<?php
/******************************************************************************/
/* PHP-MWS: Module Web Site V.1.01.001 (http://mws.zde.cz) - units            */
/* Copyright 2002 (C) BOMI software group (http://bomi.zde.cz, bomi@zde.cz)   */
/******************************************************************************/

// Distributed as free software under GNU/GPL v.2 license!
// file: data_cfg.php, ver: 1.000, date: 2003-01-14
// PHP-MWS Basic kernel - read ".info.php" for more info

// Jednotka pro práci s daty - databáze
if (!function_exists('import')) exit;
 // Naètení dat do pole
function dt_uniget($input) {
  $lst=array();
  if (@$input['path']) $input['path'].='/';
  include '../'.@$input['group'].'/'.@$input['path'].$input['name'].'.lst'._EXT;
  return $lst;
}

function dt_uniupdate($input) {
  systemunit('getline');
  if ($input['path']) $input['path'].='/';
  $fl=@fopen('../'.$input['group'].'/'.$input['path'].$input['name'].'.lst'._EXT,'r');
  unset($desc);
  if ($fl) {
    $desc=getline($fl);
    fclose($fl);
    if (!$desc) { if ($input['desc']) { $desc=$input['desc']; } else $desc=_BEGSTR; }
    $fl=@fopen('../'.$input['group'].'/'.$input['path'].$input['name'].'.lst'._EXT,'w');
    if ($fl) {
      putline($fl, $desc);
      $value=&$input['data'];
      if (is_array($value)) {
        reset($value);
        while (list($index, $item)=each($value)) {
          $item=$value[$index];
          $line="lst[$index]=";
          if (is_array($item)) {
            $line.='array(';
            reset($item);
            while (list($key, $val)=each($item)) {
              if ($line[0]=='$') { $line.=', '; } else $line='$'.$line;
              $line.="'$key'=>'$val'";
            }
            putline($fl,$line.');');
          } else if ($item) {
            $line.="'$item';";
            putline($fl,'$'.$line);
          }
        }
        putline($fl,_ENDSTR);
        return 1;
      } else return 2;
      @fclose($fl);
    } else return 3;
  } else return 4;
}
?>