* @version 1.4.3 * @package Netzbrett * @modulegroup Netzbrett_Socket * @module Netzbrett_Socket_Text */ /** * Comparses two entries by date and id. *@param array $b Item 1 *@param array $a Item 2 *@return integer comparison result (-1,0,1) */ function date_sort($b, $a) { if ($a["DATE"] != $b["DATE"]) { return ($a["DATE"] < $b["DATE"]) ? -1 : 1; } else if ($a["FILE"] != $b["FILE"]) { return ($a["FILE"] < $b["FILE"]) ? -1 : 1; } else { return 0; } } /** * Converts a string to a timestamp * (to import old data from Netzbrett 1.2.x) *@param string $str string to convert *@return integer timestamp */ function str2date($str) { ereg("^([0-9]{2})\.([0-9]{2})\.([0-9]{4})-([0-9]{1,2}):([0-9]{2})$",$str,$regs); return mktime($regs[4], $regs[5], 0, $regs[2], $regs[1], $regs[3]); } /** * Read entries list without TEXT. *@param string $data_dir data directory *@return array entries list or false *@access public */ function text_read_entries($data_dir="./data/") { $result = false; $handle=@opendir($data_dir); if ($handle) { $mustchange = false; while ($file = readdir($handle)) { if (($file != ".") and ($file != "..")) { $i_no = (integer) $file; if (($i_no == $file) && ($i_no > 0)) { $entry = array("FILE"=>(integer)$file); $flines = file (chk_slash($data_dir).$file); $ftext = implode("",$flines); $fcontents = split("\|\|EO[LF]{1}",$ftext); while (list ($line_num, $line) = each ($fcontents)) { ereg("^([A-Z]{4})\|\|(.*)$",trim($line),$regs); if ($GLOBALS["importmode"]) { if ($regs[1] == "DATE") { $i_date = (integer) $regs[2]; $i_date = (string) $i_date; if ($i_date != $regs[2]) { $mustchange = true; $entry["DATE"] = str2date($regs[2]); } else { $entry[$regs[1]] = $regs[2]; } } else if (strlen(trim($regs[1]))>3) { $entry[$regs[1]] = $regs[2]; } } else { if (($regs[1] != "TEXT") && (strlen(trim($regs[1]))>3)) { $entry[$regs[1]] = $regs[2]; } } } $entries_list[$file] = $entry; } } } closedir($handle); if (gettype($entries_list)=="array") { if ($mustchange) { $entries_list2 = $entries_list; while (list($key,$val) = each($entries_list2)) { $val["PATH"] = ";".get_prevs($val["PREV"],$entries_list2); text_save_entry($data_dir,false,$val,$val["FILE"]); unset($val["TEXT"]); $entries_list[$key] = $val; } } uasort ($entries_list, date_sort); $result = $entries_list; } } else { echo "

Can not open "".$data_dir.""!

"; } return $result; } /** * Read one entry *@param string $data_dir data directory *@param integer $entrynr entry number *@return array loaded entry *@access public */ function text_read_entry($data_dir="./data/",$entrynr=0) { $entry = false; if (($entrynr > 0) and file_exists(chk_slash($data_dir).$entrynr)) { $entry = array("FILE"=>$entrynr); $flines = file (chk_slash($data_dir).$entrynr); $ftext = implode(" ",$flines); $fcontents = split("\|\|EO[LF]{1}",$ftext); while (list ($line_num, $line) = each ($fcontents)) { ereg("^([A-Z]{4})\|\|(.*)$",trim($line),$regs); $entry[$regs[1]] = $regs[2]; } } return $entry; } /** * Save/Update entry *@param string $data_dir data directory *@param boolean $new save as new entry *@param array $entry_data entry data *@param integer $entryno number of entry ($new==true) or of previous entry *@return integer entry number or false *@access public */ function text_save_entry($data_dir="./data/",$new,$entry_data,$entryno) { $result = false; $fileno = (integer) $entryno; $can_write = true; if ($new) { $fileno++; while (file_exists(chk_slash($data_dir).$fileno)) {$fileno++;} } else { if (! file_exists(chk_slash($data_dir).$fileno)) { $can_write = false; } } if ($can_write) { ksort($entry_data); $fhandle = fopen(chk_slash($data_dir).$fileno, "w"); if ($fhandle) { while(list($key,$val) = each($entry_data)) { flock($fhandle, "2"); fwrite($fhandle,$key."||".$val."||EOL\r\n"); flock($fhandle, "3"); } @fclose($fhandle); $result = $fileno; } } return $result; } /** * Delete entry and it´s answers *@param string $data_dir data directory *@param integer $entry_nr number of entry *@return integer true or false *@access public */ function text_delete_entries($data_dir="./data/",$entry_nr) { $entries_list = text_read_entries($data_dir); if (gettype($entries_list) == "array") { $entries = optimize_data($entry_nr,$entries_list); } $result = text_delete_entry($data_dir,$entry_nr,$entries_list); unset ($entries_list); return $result; } /** * Delete one entry *@param string $data_dir data directory *@param integer $entry_nr number of entry *@param array $entries_list list of entries *@return integer true or false */ function text_delete_entry($data_dir="./data/",$entry_nr,$entries_list) { if (gettype($entries_list) == "array") { while (list($key,$entry) = each($entries_list)) { if (($entry["PREV"] > 0) and ($entry["PREV"] == $entry_nr)) { text_delete_entry($data_dir,$entry["FILE"],$entries_list); } } } if (file_exists ($data_dir.$entry_nr)) { $result = unlink ($data_dir.$entry_nr); if (! $result) { chdir("$data_dir"); $result = exec("del $entry_nr"); } } return $result; } /** * Load last entry *@param string $data_dir data directory *@return array last entry *@access public */ function text_read_lastentry($data_dir) { $entry = false; $entries = text_read_entries($data_dir); if (gettype($entries) == "array") { usort($entries, date_sort); reset($entries); $entry = current($entries); $entry = text_read_entry($data_dir,$entry["FILE"]); } return $entry; } ?>