X-Git-Url: http://mop.ddnsfree.com/gitweb/?a=blobdiff_plain;f=web%2Fbriskin5%2FObj%2Fbriskin5.phh;h=dc1e0559216b857af24899edfcc48de6e2c4239b;hb=e469882b494df00aab18f2e38d18c5faa214c740;hp=e05e7b99f3a73c5983216216079650607ac2495f;hpb=fa82ba0deaaab26b5b9efe37c392a34cbec50a66;p=brisk.git diff --git a/web/briskin5/Obj/briskin5.phh b/web/briskin5/Obj/briskin5.phh index e05e7b9..dc1e055 100644 --- a/web/briskin5/Obj/briskin5.phh +++ b/web/briskin5/Obj/briskin5.phh @@ -21,12 +21,13 @@ * Suite 330, Boston, MA 02111-1307, USA. * */ -define(BRISKIN5_PLAYERS_N, 3); -define(BRISKIN5_MAX_PLAYERS, BRISKIN5_PLAYERS_N); -// define(BRISKIN5_SHM_MIN, (50000 * BRISKIN5_MAX_PLAYERS)); -define(BRISKIN5_SHM_MIN, 32768); -define(BRISKIN5_SHM_MAX, (BRISKIN5_SHM_MIN + 1048576)); -define(BRISKIN5_SHM_DLT, 32768); +define(BIN5_PLAYERS_N, 3); +define(BIN5_MAX_PLAYERS, BIN5_PLAYERS_N); +// define(BIN5_SHM_MIN, (50000 * BIN5_MAX_PLAYERS)); +define(BIN5_SHM_MIN, 32768); +define(BIN5_SHM_MAX, (BIN5_SHM_MIN + 1048576)); +define(BIN5_SHM_DLT, 32768); +define(BIN5_PROXY_PATH, PROXY_PATH."/bin5"); $mlang_bin5_bin5 = array( 'info_part' => array( 'it' => '
Nell\'ultima mano ha chiamato %s, il socio era %s,
', @@ -137,7 +138,7 @@ class Card { } } // end class Card -class Table_briskin5 extends Table { +class Bin5_table extends Table { var $card; // il mazzo di carte var $mazzo; // chi e' di mazzo var $gstart; @@ -164,18 +165,16 @@ class Table_briskin5 extends Table { var $old_win; var $old_friend; - function Table_briskin5() + function Bin5_table() { } /* CREATE() NOT USED - function &create($idx) + function create($idx) { - GLOBAL $G_false; - - if (($thiz =& new Table_briskin5()) == FALSE) - return ($G_false); + if (($thiz =& new Bin5_table()) == FALSE) + return (FALSE); $thiz->create($idx); @@ -206,12 +205,10 @@ class Table_briskin5 extends Table { */ /* CLONE() NOT USED - function &myclone(&$from) + function myclone(&$from) { - GLOBAL $G_false; - - if (($thiz =& new Table_briskin5()) == FALSE) - return ($G_false); + if (($thiz =& new Bin5_table()) == FALSE) + return (FALSE); parent::copy($from); @@ -250,18 +247,17 @@ class Table_briskin5 extends Table { parent::copy($from); } - function &spawn(&$from) + function spawn(&$from) { - GLOBAL $G_false; - - if (($thiz =& new Table_briskin5()) == FALSE) - return ($G_false); + if (($thiz =& new Bin5_table()) == FALSE) + return (FALSE); $thiz->parentcopy($from); log_main("PLAYER_N - spawn.".$thiz->player_n); - $thiz->card = &$thiz->bunch_create(); + $thiz->card = array(); + $thiz->bunch_create(); $thiz->mazzo = rand(0,PLAYERS_N-1); $thiz->points_n = 0; $thiz->mult = 1; @@ -279,17 +275,26 @@ class Table_briskin5 extends Table { } - function &bunch_create() + // function bunch_create_old() function AND + // { + // $ret = array(); + // + // for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + // // for ($i = 0 ; $i < 40 ; $i++) { + // $ret[$i] =& new Card($i, 'bunch', 'no_owner'); + // } + // + // $oret = &$ret; + // return ($oret); + // } + + function bunch_create() { - $ret = array(); - - for ($i = 0 ; $i < (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { - // for ($i = 0 ; $i < 40 ; $i++) { - $ret[$i] =& new Card($i, 'bunch', 'no_owner'); - } - - $oret = &$ret; - return ($oret); + $ret = array(); + + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + $this->card[$i] = new Card($i, 'bunch', 'no_owner'); + } } function bunch_make() @@ -299,10 +304,10 @@ class Table_briskin5 extends Table { mt_srand(make_seed()); - for ($i = (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) - 1 ; $i >= 0 ; $i--) + for ($i = (BIN5_PLAYERS_N == 5 ? 40 : 24) - 1 ; $i >= 0 ; $i--) $rest[$i] = $i; - for ($i = (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) - 1 ; $i >= 0 ; $i--) { + for ($i = (BIN5_PLAYERS_N == 5 ? 40 : 24) - 1 ; $i >= 0 ; $i--) { $rn = rand(0, $i); if ($rn == 0) @@ -310,7 +315,7 @@ class Table_briskin5 extends Table { $id = $rest[$rn]; - $owner = $i % BRISKIN5_PLAYERS_N; + $owner = $i % BIN5_PLAYERS_N; $this->card[$id]->assign('hand', $owner); $rest[$rn] = $rest[$i]; @@ -319,7 +324,7 @@ class Table_briskin5 extends Table { log_main("bunch_make end"); } - function init(&$userarr) + function init($userarr) { /* MOVED INTO SPAWN $this->mazzo = rand(0,PLAYERS_N-1); @@ -328,24 +333,24 @@ class Table_briskin5 extends Table { $this->old_win = -1; $this->old_reason = ""; */ - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { $this->total[$i] = 0; - $user_cur = &$userarr[$this->player[$i]]; + $user_cur = $userarr[$this->player[$i]]; $user_cur->exitislock = TRUE; } log_main("table::init: ci siamo"); } - function game_init(&$userarr) + function game_init($userarr) { log_rd2("GSTART 4"); - $this->gstart = ($this->mazzo+1) % BRISKIN5_PLAYERS_N; + $this->gstart = ($this->mazzo+1) % BIN5_PLAYERS_N; $this->bunch_make(); - $this->asta_pla_n = BRISKIN5_PLAYERS_N; + $this->asta_pla_n = BIN5_PLAYERS_N; $this->asta_card = -1; $this->asta_pnt = 60; $this->asta_win = -1; @@ -353,9 +358,9 @@ class Table_briskin5 extends Table { $this->friend = -1; $this->turn = 0; - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { $this->asta_pla[$i] = TRUE; - $user_cur = &$userarr[$this->player[$i]]; + $user_cur = $userarr[$this->player[$i]]; $user_cur->subst = 'asta'; $user_cur->asta_card = -2; $user_cur->asta_pnt = -1; @@ -367,7 +372,7 @@ class Table_briskin5 extends Table { function game_next() { - $this->mazzo = ($this->mazzo + 1) % BRISKIN5_PLAYERS_N; + $this->mazzo = ($this->mazzo + 1) % BIN5_PLAYERS_N; } @@ -377,7 +382,7 @@ class Table_briskin5 extends Table { $tot = 0; - for ($i = 0 ; $i < (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { // for ($i = 0 ; $i < 40 ; $i++) { if ($this->card[$i]->owner != $idx) continue; @@ -390,9 +395,9 @@ class Table_briskin5 extends Table { } - function exitlock_show(&$userarr, $table_pos) + function exitlock_show($userarr, $table_pos) { - $ct = $this->exitlock_calc(&$userarr, $table_pos); + $ct = $this->exitlock_calc($userarr, $table_pos); $ret = sprintf('exitlock_show(%d, %s);', $ct, ($userarr[$this->player[$table_pos]]->exitislock ? 'true' : 'false')); @@ -410,104 +415,267 @@ class Table_briskin5 extends Table { return ($ct); } -} // end class Table_briskin5 +} // end class Bin5_table define(BIN5_USER_FLAG_RING_ENDAUCT, 0x01); -class User_briskin5 extends User { - var $asta_card; // - var $asta_pnt; // - var $handpt; // Total card points at the beginning of the current hand. - var $exitislock; // Player can exit from the table ? - var $privflags; // Flags for briskin5 only - - function User() { - } - - /* CREATE NOT USED - function &create($name, $sess, $stat = "", $subst = "", $table = -1, $ip="0.0.0.0") { - GLOBAL $G_false; - - if (($thiz =& new User()) == FALSE) - return ($G_false); - - $thiz->asta_card = -2; - $thiz->asta_pnt = -1; - $thiz->handpt = -1; - $thiz->exitislock = TRUE; - $thiz->privflags = 0; - - return ($thiz); - } - */ - - function parentcopy(&$from) - { - parent::copy($from); - } - - function copy(&$from) - { - $this->parentcopy($from); - - $this->asta_card = $from->asta_card; - $this->asta_pnt = $from->asta_pnt; - $this->handpt = $from->handpt; - $this->exitislock = $from->exitislock; - $this->privflags = $from->privflags; - } - - /* CLONE NOT USED - function &myclone(&$from) - { - GLOBAL $G_false; +class Bin5_user extends User { + var $asta_card; // + var $asta_pnt; // + var $handpt; // Total card points at the beginning of the current hand. + var $exitislock; // Player can exit from the table ? + var $privflags; // Flags for briskin5 only - if (($thiz =& new User()) == FALSE) - return ($G_false); - - $thiz->copy($from); - - return ($thiz); - } - */ - - function &spawn(&$from, $table, $table_pos) - { - GLOBAL $G_false, $CO_bin5_pref_ring_endauct; + function User() { + } - if (($thiz =& new User_briskin5()) == FALSE) - return ($G_false); + /* CREATE NOT USED + function create($name, $sess, $stat = "", $subst = "", $table = -1, $ip="0.0.0.0") { + if (($thiz =& new User()) == FALSE) + return (FALSE); + + $thiz->asta_card = -2; + $thiz->asta_pnt = -1; + $thiz->handpt = -1; + $thiz->exitislock = TRUE; + $thiz->privflags = 0; + + return ($thiz); + } + */ - $thiz->parentcopy($from); - - $thiz->asta_card = -2; - $thiz->asta_pnt = -1; - $thiz->handpt = -1; - $thiz->exitislock = TRUE; - - log_wr("Briskin5 constructor"); - - $this->privflags = ($CO_bin5_pref_ring_endauct == "true" ? BIN5_USER_FLAG_RING_ENDAUCT : 0) | 0; + function parentcopy(&$from) + { + parent::copy($from); + } + + function copy(&$from) + { + $this->parentcopy($from); + + $this->asta_card = $from->asta_card; + $this->asta_pnt = $from->asta_pnt; + $this->handpt = $from->handpt; + $this->exitislock = $from->exitislock; + $this->privflags = $from->privflags; + } + + /* CLONE NOT USED + function myclone(&$from) + { + if (($thiz =& new User()) == FALSE) + return (FALSE); + + $thiz->copy($from); + + return ($thiz); + } + */ + + function spawn($from, $table, $table_pos) + { + GLOBAL $CO_bin5_pref_ring_endauct; + + if (($thiz = new Bin5_user()) == FALSE) + return (FALSE); + + $thiz->parentcopy($from); + + /* NOTE: at this moment idx and table_pos fields have the same value + but diffentent functions, we keep them separated for a while */ + $thiz->idx = $table_pos; + $thiz->asta_card = -2; + $thiz->asta_pnt = -1; + $thiz->handpt = -1; + $thiz->exitislock = TRUE; + + log_wr("Bin5 constructor"); + + $this->privflags = ($CO_bin5_pref_ring_endauct == "true" ? BIN5_USER_FLAG_RING_ENDAUCT : 0) | 0; + + $thiz->table_orig = $table; + $thiz->table = 0; + $thiz->table_pos = $table_pos; + + $thiz->step_inc(); + + return ($thiz); + } - $thiz->table_orig = $table; - $thiz->table = 0; - $thiz->table_pos = $table_pos; + function step_set($step) + { + $this->step = $step & 0x7fffffff; + + do { + if (validate_sess($this->sess) == FALSE) + break; + if (file_exists(BIN5_PROXY_PATH) == FALSE) + mkdir(BIN5_PROXY_PATH, 0775, TRUE); + if (($fp = @fopen(BIN5_PROXY_PATH."/".$this->sess.".step", 'w')) == FALSE) + break; + fwrite($fp, pack("LL",$this->step, $this->idx)); + fclose($fp); + + log_main("step_set [".$this->sess. "] [".$this->step."]"); + + return (TRUE); + } while (0); + + return (FALSE); + } + + function step_inc($delta = 1) { + $this->step += $delta; + /* modularization because unpack() not manage unsigned 32bit int correctly */ + $this->step &= 0x7fffffff; + + if (validate_sess($this->sess)) { + if (file_exists(BIN5_PROXY_PATH) == FALSE) + mkdir(BIN5_PROXY_PATH); + $fp = fopen(BIN5_PROXY_PATH."/".$this->sess.".step", 'w'); + fwrite($fp, pack("LL", $this->step, $this->idx)); + fclose($fp); + + log_main("step_inc [".$this->sess. "] [".$this->step."]"); + + return (TRUE); + } + + return (FALSE); + } + + static function step_get($sess) + { + $fp = FALSE; + do { + if (validate_sess($sess) == FALSE) + break; + + if (file_exists(BIN5_PROXY_PATH) == FALSE) + mkdir(BIN5_PROXY_PATH); + if (($fp = @fopen(BIN5_PROXY_PATH."/".$sess.".step", 'rb')) == FALSE) + break; + if (($s = fread($fp, 8)) == FALSE) + break; + if (strlen($s) != 8) + break; + $arr = unpack('Ls/Li', $s); + fclose($fp); + + // log_rd2("A0: ".$arr[0]." A1: ".$arr[1]); + return ($arr); + } while (0); + + if ($fp != FALSE) + fclose($fp); + + log_rd2("STEP_GET [".$sess."]: return false "); + + return (FALSE); + } + + static function load_data($tab_id, $id, $sess) + { + log_main("Bin5_user::load_data: tab_id [".$tab_id."] id [".$id."] sess [".($sess == FALSE ? "FALSE" : $sess)."] "); + + $doexit = FALSE; + do { + if (($tok = @ftok(FTOK_PATH."/bin5/table".$tab_id."/user".$id, "B")) == -1) { + log_main("ftok failed"); + $doexit = TRUE; + break; + } + + if (($shm_sz = sharedmem_sz($tok)) == -1) { + log_main("shmop_open failed"); + } + + if ($shm_sz == -1) + $shm_sz = SHM_DIMS_U_MIN; + + if ($shm = shm_attach($tok, $shm_sz)) { + $user = @shm_get_var($shm, $tok); + + if ($sess != FALSE && $user->sess != $sess) { + $doexit = TRUE; + break; + } + log_only("user == ".($user == FALSE ? "FALSE" : "TRUE")." user === ".($user === FALSE ? "FALSE" : "TRUE")." user isset ".(isset($user) ? "TRUE" : "FALSE")); + + if ($user == FALSE) { + log_only("INIT MAIN DATA"); + + // SHSPLIT FIXME: init_data for User class ?? + $user = User::create($id, "", ""); + if (@shm_put_var($shm, $tok, $user) == FALSE) { + log_only("PUT_VAR FALLITA ".strlen(serialize($user))); + log_only(serialize($user)); + } + } + + $user->shm_sz = $shm_sz; + + shm_detach($shm); + } + + // + // SHSPLIT: load users from the shared memory + // + return ($user); + } while (0); + + if ($doexit) + exit(); + + return (FALSE); + } - return ($thiz); + static function save_data($user, $tab_id, $id) + { + GLOBAL $sess; + + $shm = FALSE; + + if (($tok = @ftok(FTOK_PATH."/bin5/table".$tab_id."/user".$id, "B")) == -1) { + return (FALSE); + } + while ($user->shm_sz < SHM_DIMS_U_MAX) { + if (($shm = shm_attach($tok, $user->shm_sz)) == FALSE) + break; + + // log_only("PUT_VAR DI ".strlen(serialize($user))); + if (shm_put_var($shm, $tok, $user) != FALSE) { + shm_detach($shm); + log_main("User[".$id."] saved."); + return (TRUE); + } + if (shm_remove($shm) === FALSE) { + log_only("REMOVE FALLITA"); + break; + } + shm_detach($shm); + $user->shm_sz += SHM_DIMS_U_DLT; + } + + if ($shm) + shm_detach($shm); + + return (FALSE); } -} // end class User_briskin5 +} // end class Bin5_user -class Briskin5 { + +class Bin5 { var $user; var $table; var $comm; // commands for many people var $step; // current step of the comm array - var $garbage_timeout; + // externalized var $garbage_timeout; var $shm_sz; var $table_idx; @@ -516,44 +684,44 @@ class Briskin5 { var $the_end; var $tok; - function Briskin5 (&$room, $table_idx, $table_token) { + function Bin5 ($room, $table_idx, $table_token) { $this->user = array(); $this->table = array(); $this->the_end = FALSE; - $this->shm_sz = BRISKIN5_SHM_MIN; - if (($this->tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) { + $this->shm_sz = BIN5_SHM_MIN; + if (($this->tok = @ftok(FTOK_PATH."/bin5/table".$table_idx."/table", "B")) == -1) { echo "FTOK FAILED"; exit; } - $user =& $room->user; - $table =& $room->table[$table_idx]; + $user = $room->user; + $table = $room->table[$table_idx]; - log_wr("Briskin5 constructor"); + log_wr("Bin5 constructor"); for ($i = 0 ; $i < $table->player_n ; $i++) { $user[$table->player[$i]]->table_token = $table_token; - $this->user[$i] =& User_briskin5::spawn(&$user[$table->player[$i]], $table_idx, $i); + $this->user[$i] = Bin5_user::spawn($user[$table->player[$i]], $table_idx, $i); } - $this->table[0] =& Table_briskin5::spawn(&$table); + $this->table[0] = Bin5_table::spawn(&$table); - log_main("TABLE_OLD_WIN - Briskin5:".$this->table[0]->old_win); + log_main("TABLE_OLD_WIN - Bin5:".$this->table[0]->old_win); $this->table_idx = $table_idx; $this->table_token = $table_token; - $this->garbage_timeout = 0; + Bin5::garbage_time_expire_set(0); - log_wr("Briskin5 constructor end"); + log_wr("Bin5 constructor end"); } - function &get_user($sess, &$idx) + function get_user($sess, &$idx) { - GLOBAL $PHP_SELF, $G_false; + GLOBAL $PHP_SELF; if (validate_sess($sess)) { - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { if (strcmp($sess, $this->user[$i]->sess) == 0) { // find it $idx = $i; @@ -562,27 +730,28 @@ class Briskin5 { } } log_main(sprintf("get_user: Wrong sess from page [%s]",$PHP_SELF)); - // for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) + // for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) // log_main(sprintf("get_user: Wrong sess compared with [%s]",$this->user[$i]->sess)); } else { log_main(sprintf("get_user: Wrong strlen [%s]",$sess)); } - return ($G_false); + return (FALSE); } function garbage_manager($force) { - + GLOBAL $G_base; + /* Garbage collector degli utenti in timeout */ $ismod = FALSE; $curtime = time(); - if ($force || $this->garbage_timeout < $curtime) { - - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - $user_cur = &$this->user[$i]; + // externalized if ($force || $this->garbage_timeout < $curtime) { + if ($force || Bin5::garbage_time_is_expired($curtime)) { + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $user_cur = $this->user[$i]; if ($user_cur->sess == "" || ($user_cur->stat == 'table' && ($user_cur->subst == 'shutdowned' || $user_cur->subst == 'shutdowner'))) continue; @@ -606,41 +775,37 @@ class Briskin5 { /* se gli altri utenti non erano d'accordo questo utente viene bannato */ $remcalc = $this->table[0]->exitlock_calc(&$this->user, $user_cur->table_pos); if ($remcalc < 3) { - require_once("/var/www/webspace/trusty/Obj/hardban.phh"); + require_once("${G_base}Obj/hardban.phh"); Hardbans::add(($user_cur->flags & USER_FLAG_AUTH ? $user_cur->name : FALSE), $user_cur->ip, $user_cur->sess, $user_cur->laccwr + BAN_TIME); } // $user->bantime = $user->laccwr + BAN_TIME; - $this->table_wakeup(&$user_cur); + $this->table_wakeup($user_cur); } } } log_rd2($user_cur->sess." GARBAGE UPDATED!"); - $this->garbage_timeout = $curtime + GARBAGE_TIMEOUT; + // externalized $this->garbage_timeout = $curtime + GARBAGE_TIMEOUT; + Bin5::garbage_time_expire_set($curtime + GARBAGE_TIMEOUT); + $ismod = TRUE; } return ($ismod); } - - - - // - // static functions - // - function &load_data($table_idx, $table_token = "") + // Bin5::load_data + static function load_data($table_idx, $table_token = "") { - GLOBAL $G_false, $sess; $doexit = FALSE; $shm = FALSE; - log_wr("TABLE_IDX ".FTOK_PATH."/table".$table_idx); + log_wr("TABLE_FTOK ".FTOK_PATH."/bin5/table".$table_idx."/table"); do { - if (($tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) { + if (($tok = @ftok(FTOK_PATH."/bin5/table".$table_idx."/table", "B")) == -1) { log_main("ftok failed"); $doexit = TRUE; break; @@ -659,15 +824,17 @@ class Briskin5 { if ($table_token != "" && $bri->table_token != $table_token) { log_wr("bri->table_token: ".$bri->table_token."table_token: ".$table_token); - break; } $bri->tok = $tok; shm_detach($shm); - - $ret = &$bri; - return ($ret); + + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $bri->user[$i] = Bin5_user::load_data($table_idx, $i, FALSE); + } + + return ($bri); } while (FALSE); if ($shm != FALSE) @@ -675,49 +842,60 @@ class Briskin5 { log_wr("briskin5 load_data failed"); if ($doexit) - exit(); + exit(); - return ($G_false); + return (FALSE); } - function save_data(&$bri) + function save_data($bri) { - GLOBAL $sess; - - $ret = FALSE; - $shm = FALSE; - - log_main("SAVE BRISKIN5 DATA"); - - if (!isset($bri->tok)) - return (FALSE); - - while ($bri->shm_sz < BRISKIN5_SHM_MAX) { - if (($shm = shm_attach($bri->tok, $bri->shm_sz)) == FALSE) - break; + GLOBAL $sess; + + $ret = FALSE; + $shm = FALSE; - if (@shm_put_var($shm, $bri->tok, $bri) != FALSE) { - shm_detach($shm); - return (TRUE); + log_main("SAVE BRISKIN5 DATA"); + + if (!isset($bri->tok)) + return (FALSE); + + $user_park = array(); + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $user_park[$i] = $bri->user[$i]; + $bri->user[$i] = FALSE; } - if (shm_remove($shm) === FALSE) { - log_only("REMOVE FALLITA"); - break; + + while ($bri->shm_sz < BIN5_SHM_MAX) { + if (($shm = shm_attach($bri->tok, $bri->shm_sz)) == FALSE) + break; + + if (@shm_put_var($shm, $bri->tok, $bri) != FALSE) { + $ret = TRUE; + break; + } + if (shm_remove($shm) === FALSE) { + log_only("REMOVE FALLITA"); + break; + } + shm_detach($shm); + $bri->shm_sz += BIN5_SHM_DLT; + } + + if ($shm) + shm_detach($shm); + + // SHSPLIT: reattach users to the room class + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + Bin5_user::save_data($user_park[$i], $bri->table_idx, $i); + $bri->user[$i] = $user_park[$i]; } - shm_detach($shm); - $bri->shm_sz += BRISKIN5_SHM_DLT; - } - - log_crit("save data failed!"); - - if ($shm) - shm_detach($shm); - - return ($ret); + log_load("FINISH: ".($ret == TRUE ? "TRUE" : "FALSE")); + + return ($ret); } - + function destroy_data($table_idx) @@ -731,7 +909,7 @@ class Briskin5 { do { log_main("DESTROY2 BRISKIN5 DATA"); - if (($tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) + if (($tok = @ftok(FTOK_PATH."/bin5/table".$table_idx."/table", "B")) == -1) break; if (($shm = @shmop_open($tok, 'a', 0, 0)) == FALSE) @@ -759,11 +937,11 @@ class Briskin5 { { GLOBAL $sess; - log_lock("LOCK_DATA ".FTOK_PATH."/table".$table_idx); + log_lock("LOCK_DATA ".FTOK_PATH."/bin5/table".$table_idx."/table"); // echo "LOCK: ".FTOK_PATH."/main"; // exit; // WARNING monitor this step - if (($tok = @ftok(FTOK_PATH."/table".$table_idx, "B")) == -1) { + if (($tok = @ftok(FTOK_PATH."/bin5/table".$table_idx."/table", "B")) == -1) { return (FALSE); } // WARNING monitor this step @@ -790,7 +968,7 @@ class Briskin5 { } - function chatt_send(&$user, $mesg) + function chatt_send($user, $mesg) { GLOBAL $mlang_brisk, $G_lang; @@ -818,8 +996,8 @@ class Briskin5 { // change // update local graph // update remote graphs - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { - $user_cur = &$this->user[$i]; + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { + $user_cur = $this->user[$i]; // if ($user_cur->sess == '' || $user_cur->stat != 'room') if ($user_cur->sess == '') continue; @@ -832,7 +1010,7 @@ class Briskin5 { break; } } - if ($i == BRISKIN5_MAX_PLAYERS) { + if ($i == BIN5_MAX_PLAYERS) { if ($user->flags & USER_FLAG_AUTH && strcasecmp($user->name,$name_new) != 0) { if ($this->table[$user->table]->auth_only == TRUE) { $user->comm[$user->step % COMM_N] = "gst.st = ".($user->step+1)."; "; @@ -850,7 +1028,7 @@ class Briskin5 { log_main($user->sess." chatt_send start set"); - for ($i = 0 ; $i < BRISKIN5_MAX_PLAYERS ; $i++) { + for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) { log_main($user->sess." chatt_send set loop"); $user_cur = &$this->user[$i]; @@ -862,20 +1040,20 @@ class Briskin5 { $user_cur->comm[$user_cur->step % COMM_N] = "gst.st = ".($user_cur->step+1)."; "; $user_cur->comm[$user_cur->step % COMM_N] .= sprintf('set_names([%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"]); ', - $this->user[$table->player[($user_cur->table_pos) % BRISKIN5_PLAYERS_N]]->flags, - xcape($this->user[$table->player[($user_cur->table_pos) % BRISKIN5_PLAYERS_N]]->name), + $this->user[$table->player[($user_cur->table_pos) % BIN5_PLAYERS_N]]->flags, + xcape($this->user[$table->player[($user_cur->table_pos) % BIN5_PLAYERS_N]]->name), - $this->user[$table->player[($user_cur->table_pos+1) % BRISKIN5_PLAYERS_N]]->flags, - xcape($this->user[$table->player[($user_cur->table_pos+1) % BRISKIN5_PLAYERS_N]]->name), + $this->user[$table->player[($user_cur->table_pos+1) % BIN5_PLAYERS_N]]->flags, + xcape($this->user[$table->player[($user_cur->table_pos+1) % BIN5_PLAYERS_N]]->name), - $this->user[$table->player[($user_cur->table_pos+2) % BRISKIN5_PLAYERS_N]]->flags, - xcape($this->user[$table->player[($user_cur->table_pos+2) % BRISKIN5_PLAYERS_N]]->name), + $this->user[$table->player[($user_cur->table_pos+2) % BIN5_PLAYERS_N]]->flags, + xcape($this->user[$table->player[($user_cur->table_pos+2) % BIN5_PLAYERS_N]]->name), - (BRISKIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+3) % BRISKIN5_PLAYERS_N]]->flags), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+3) % BRISKIN5_PLAYERS_N]]->name)), + (BIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+3) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+3) % BIN5_PLAYERS_N]]->name)), - (BRISKIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+4) % BRISKIN5_PLAYERS_N]]->flags), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+4) % BRISKIN5_PLAYERS_N]]->name))); + (BIN5_PLAYERS_N == 3 ? 0: $this->user[$table->player[($user_cur->table_pos+4) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($this->user[$table->player[($user_cur->table_pos+4) % BIN5_PLAYERS_N]]->name))); if ($user_cur == $user) { $itin = ($user->flags & USER_FLAG_AUTH ? "" : ""); $itou = ($user->flags & USER_FLAG_AUTH ? "" : ""); @@ -888,7 +1066,7 @@ class Briskin5 { } } else { - for ($i = 0 ; $i < ($user->stat == 'room' ? BRISKIN5_MAX_PLAYERS : BRISKIN5_PLAYERS_N) ; $i++) { + for ($i = 0 ; $i < ($user->stat == 'room' ? BIN5_MAX_PLAYERS : BIN5_PLAYERS_N) ; $i++) { if ($user->stat == 'room') { $user_cur = &$this->user[$i]; if ($user_cur->sess == '' || $user_cur->stat != 'room') @@ -907,15 +1085,15 @@ class Briskin5 { } } - function table_wakeup(&$user) + function table_wakeup($user) { $table = &$this->table[0]; - log_main("BRISKIN5_WAKEUP begin function table stat: ".$user->stat." subst: ".$user->subst); + log_main("BIN5_WAKEUP begin function table stat: ".$user->stat." subst: ".$user->subst); $curtime = time(); - log_main("BRISKIN5_WAKEUP from table [".$user->table."] nplayers_n: ".$this->table[$user->table]->player_n); + log_main("BIN5_WAKEUP from table [".$user->table."] nplayers_n: ".$this->table[$user->table]->player_n); for ($i = 0 ; $i < $table->player_n ; $i++) { $user_cur = &$this->user[$i]; @@ -930,7 +1108,7 @@ class Briskin5 { $ret = "gst.st = ".($user_cur->step+1)."; "; $ret .= 'gst.st_loc++; the_end=true; window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");|'; - log_wr($user_cur->sess." BRISKIN5_WAKEUP: ".$ret); + log_wr($user_cur->sess." BIN5_WAKEUP: ".$ret); $user_cur->comm[$user_cur->step % COMM_N] = $ret; $user_cur->step_inc(); } @@ -959,7 +1137,51 @@ class Briskin5 { return ($is_ab); } -} // end class Briskin5 + + + static function garbage_time_is_expired($tm) + { + $ret = TRUE; + $fp = FALSE; + do { + if (file_exists(BIN5_PROXY_PATH) == FALSE) + mkdir(BIN5_PROXY_PATH); + if (($fp = @fopen(BIN5_PROXY_PATH."/garbage_time.expired", 'rb')) == FALSE) + break; + if (($s = fread($fp, 4)) == FALSE) + break; + if (strlen($s) != 4) + break; + $arr = unpack('Le', $s); + if ($arr['e'] > $tm) + $ret = FALSE; + } while (0); + + if ($fp != FALSE) + fclose($fp); + + log_rd2("END: return ".($ret ? "TRUE" : "FALSE")); + + return ($ret); + } + + static function garbage_time_expire_set($tm) + { + do { + if (file_exists(BIN5_PROXY_PATH) == FALSE) + mkdir(BIN5_PROXY_PATH); + if (($fp = @fopen(BIN5_PROXY_PATH."/garbage_time.expired", 'wb')) == FALSE) + break; + fwrite($fp, pack("L",$tm)); + fclose($fp); + + return (TRUE); + } while (0); + + return (FALSE); + } + +} // end class Bin5 function locshm_exists($tok) { @@ -1012,7 +1234,7 @@ function calculate_points(&$table) $table->old_asta_pnt = $table->asta_pnt; $table->old_mult = $table->mult; - for ($i = 0 ; $i < (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { // for ($i = 0 ; $i < 40 ; $i++) { $ctt = $table->card[$i]->value % 10; $own = $table->card[$i]->owner; @@ -1025,7 +1247,7 @@ function calculate_points(&$table) if ($table->asta_pnt == 61 && $pro == 60) { // PATTA ! $table->points[$table->points_n % MAX_POINTS] = array(); - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { $table->points[$table->points_n % MAX_POINTS][$i] = 0; $ret[$i] = 0; } @@ -1044,7 +1266,7 @@ function calculate_points(&$table) $gamult = asta2mult($table->asta_pnt); $table->points[$table->points_n % MAX_POINTS] = array(); - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { if ($i == $table->asta_win) $pt = ($i == $table->friend ? 4 : 2); else if ($i == $table->friend) @@ -1084,7 +1306,7 @@ Examples of $is_transition, $is_again: function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) { $table_idx = $user->table; - $table = &$room->table[$table_idx]; + $table = $room->table[$table_idx]; $table_pos = $user->table_pos; $ret = "table_init();"; @@ -1105,20 +1327,20 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) $ret .= sprintf('$("myname").innerHTML = "%s%s%s";', $itin, xcape($user->name), $itou); $ret .= sprintf('set_names([%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"], [%d, "%s"]); ', - $room->user[$table->player[($table_pos) % BRISKIN5_PLAYERS_N]]->flags, - xcape($room->user[$table->player[($table_pos) % BRISKIN5_PLAYERS_N]]->name), + $room->user[$table->player[($table_pos) % BIN5_PLAYERS_N]]->flags, + xcape($room->user[$table->player[($table_pos) % BIN5_PLAYERS_N]]->name), - $room->user[$table->player[($table_pos+1) % BRISKIN5_PLAYERS_N]]->flags, - xcape($room->user[$table->player[($table_pos+1) % BRISKIN5_PLAYERS_N]]->name), + $room->user[$table->player[($table_pos+1) % BIN5_PLAYERS_N]]->flags, + xcape($room->user[$table->player[($table_pos+1) % BIN5_PLAYERS_N]]->name), - $room->user[$table->player[($table_pos+2) % BRISKIN5_PLAYERS_N]]->flags, - xcape($room->user[$table->player[($table_pos+2) % BRISKIN5_PLAYERS_N]]->name), + $room->user[$table->player[($table_pos+2) % BIN5_PLAYERS_N]]->flags, + xcape($room->user[$table->player[($table_pos+2) % BIN5_PLAYERS_N]]->name), - (BRISKIN5_PLAYERS_N == 3 ? 0 : $room->user[$table->player[($table_pos+3) % BRISKIN5_PLAYERS_N]]->flags), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($room->user[$table->player[($table_pos+3) % BRISKIN5_PLAYERS_N]]->name)), + (BIN5_PLAYERS_N == 3 ? 0 : $room->user[$table->player[($table_pos+3) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($room->user[$table->player[($table_pos+3) % BIN5_PLAYERS_N]]->name)), - (BRISKIN5_PLAYERS_N == 3 ? 0 : $room->user[$table->player[($table_pos+4) % BRISKIN5_PLAYERS_N]]->flags), - (BRISKIN5_PLAYERS_N == 3 ? "" : xcape($room->user[$table->player[($table_pos+4) % BRISKIN5_PLAYERS_N]]->name))); + (BIN5_PLAYERS_N == 3 ? 0 : $room->user[$table->player[($table_pos+4) % BIN5_PLAYERS_N]]->flags), + (BIN5_PLAYERS_N == 3 ? "" : xcape($room->user[$table->player[($table_pos+4) % BIN5_PLAYERS_N]]->name))); } /* NOTIFY FOR THE CARD MAKER */ if ($is_transition) { // && $user->subst == "asta" superfluo @@ -1137,11 +1359,11 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) $ret .= "|"; for ($i = 0 ; $i < 8 ; $i++) { - for ($e = 0 ; $e < BRISKIN5_PLAYERS_N ; $e++) { + for ($e = 0 ; $e < BIN5_PLAYERS_N ; $e++) { $ct = 0; - for ($o = 0 ; $o < (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) && $ct < $i+1 ; $o++) { + for ($o = 0 ; $o < (BIN5_PLAYERS_N == 5 ? 40 : 24) && $ct < $i+1 ; $o++) { // for ($o = 0 ; $o < 40 && $ct < $i+1 ; $o++) { - if ($table->card[$o]->owner == (($e + $table->gstart) % BRISKIN5_PLAYERS_N)) { + if ($table->card[$o]->owner == (($e + $table->gstart) % BIN5_PLAYERS_N)) { $ct++; if ($ct == $i+1) break; @@ -1149,10 +1371,10 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) } log_rd("O ".$o." VAL ".$table->card[$o]->value." Owner: ".$table->card[$o]->owner); - $ret .= sprintf( ' card_send(%d,%d,%d,%8.2f,%d);|', ($table->gstart + $e) % BRISKIN5_PLAYERS_N, - $i, ((($e + BRISKIN5_PLAYERS_N - $table_pos + $table->gstart) % BRISKIN5_PLAYERS_N) == 0 ? + $ret .= sprintf( ' card_send(%d,%d,%d,%8.2f,%d);|', ($table->gstart + $e) % BIN5_PLAYERS_N, + $i, ((($e + BIN5_PLAYERS_N - $table_pos + $table->gstart) % BIN5_PLAYERS_N) == 0 ? $table->card[$o]->value : -1), - ($i == 7 && $e == (BRISKIN5_PLAYERS_N - 1) ? 1 : 0.5),$i+1); + ($i == 7 && $e == (BIN5_PLAYERS_N - 1) ? 1 : 0.5),$i+1); } } } @@ -1162,7 +1384,7 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) $ontabl = array(-1,-1,-1,-1,-1); $cards = array(); - for ($i = 0 ; $i < (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { // for ($i = 0 ; $i < 40 ; $i++) { if ($table->card[$i]->stat == 'hand') { if ($table->card[$i]->owner == $table_pos) { @@ -1179,7 +1401,7 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) } } $logg = "\n"; - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { $logg .= sprintf("INHAND: %d IN TABLE %d TAKED %d\n", $inhand[$i], $ontabl[$i], $taked[$i]); } log_main("Stat table: ".$logg); @@ -1193,7 +1415,7 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) $ret .= sprintf('card_setours(%s);', $oursarg); /* Dispose all cards */ - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { /* Qui sotto al posto di + 1 c'era + ->gstart ... credo in modo errato */ $ret .= sprintf('cards_dispose(%d,%d,%d);', $i, ($inhand[$i] <= 8 ? $inhand[$i] : 8) , $taked[$i]); @@ -1211,12 +1433,12 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) /* show users auction status */ $showst = ""; - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { $user_cur = &$room->user[$table->player[$i]]; $showst .= sprintf("%s%d", ($i == 0 ? "" : ", "), ($user_cur->asta_card < 9 ? $user_cur->asta_card : $user_cur->asta_pnt)); } - if (BRISKIN5_PLAYERS_N == 3) + if (BIN5_PLAYERS_N == 3) $showst .= ",-2,-2"; $ret .= sprintf('document.title = "Brisk - Tavolo %d (asta)";', $user->table_orig); $ret .= sprintf('show_astat(%s);', $showst); @@ -1228,7 +1450,7 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) } else { /* show auction */ - if ($table_pos == ($table->gstart % BRISKIN5_PLAYERS_N) && + if ($table_pos == ($table->gstart % BIN5_PLAYERS_N) && $table->asta_win == -1) $ret .= sprintf('dispose_asta(%d,%d, %s);', $table->asta_card + 1, $table->asta_pnt+1, ($user->handpt <= 2 ? "true" : "false")); @@ -1239,7 +1461,7 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) /* Remark */ if ($table->asta_win == -1) { // auction case - if ($table_pos == ($table->gstart % BRISKIN5_PLAYERS_N)) + if ($table_pos == ($table->gstart % BIN5_PLAYERS_N)) $ret .= "remark_on();"; else $ret .= "remark_off();"; @@ -1253,7 +1475,7 @@ function show_table(&$room, &$user, $sendstep, $is_transition, $is_again) } else if ($user->subst == 'game') { /* HIGHLIGHT */ - if (($table->gstart + $table->turn) % BRISKIN5_PLAYERS_N == $table_pos) + if (($table->gstart + $table->turn) % BIN5_PLAYERS_N == $table_pos) $ret .= "is_my_time = true; remark_on();"; else $ret .= "remark_off();"; @@ -1274,7 +1496,7 @@ function calculate_winner(&$table) $cur_val = 100; $cur_seed = $table->briscola - ($table->briscola % 10); - for ($i = 0 ; $i < (BRISKIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { + for ($i = 0 ; $i < (BIN5_PLAYERS_N == 5 ? 40 : 24) ; $i++) { // for ($i = 0 ; $i < 40 ; $i++) { if ($table->card[$i]->stat != "table") continue; @@ -1295,7 +1517,7 @@ function calculate_winner(&$table) $cur_seed = $cur_val - ($cur_val % 10); } - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { if (($ontab[$i] - ($ontab[$i] % 10)) == $cur_seed) { if ($ontab[$i] < $cur_val) { $cur_val = $ontab[$i]; @@ -1304,7 +1526,7 @@ function calculate_winner(&$table) } } - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) { + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) { $table->card[$ontid[$i]]->owner = $cur_win; $table->card[$ontid[$i]]->stat = "take"; // Card stat } @@ -1316,13 +1538,13 @@ function show_table_info(&$room, &$table, $table_pos) GLOBAL $G_lang, $mlang_bin5_bin5; $ret = ""; - $user = &$room->user[$table->player[$table_pos]]; + $user = $room->user[$table->player[$table_pos]]; $pnt_min = $table->points_n - MAX_POINTS < 0 ? 0 : $table->points_n - MAX_POINTS; $noty = sprintf(''); // Names. - for ($i = 0 ; $i < BRISKIN5_PLAYERS_N ; $i++) + for ($i = 0 ; $i < BIN5_PLAYERS_N ; $i++) $noty .= sprintf('', xcape($room->user[$table->player[$i]]->name)); $noty .= sprintf(""); @@ -1331,14 +1553,14 @@ function show_table_info(&$room, &$table, $table_pos) for ($i = $pnt_min ; $i < $table->points_n ; $i++) { $noty .= sprintf('', $i+1); - for ($e = 0 ; $e < BRISKIN5_PLAYERS_N ; $e++) + for ($e = 0 ; $e < BIN5_PLAYERS_N ; $e++) $noty .= sprintf('', $table->points[$i % MAX_POINTS][$e]); $noty .= ""; } // Total points. $noty .= ''; - for ($e = 0 ; $e < BRISKIN5_PLAYERS_N ; $e++) + for ($e = 0 ; $e < BIN5_PLAYERS_N ; $e++) $noty .= sprintf('', $table->total[$e]); $noty .= "
%s
%d%d
Tot.%d
"; @@ -1400,12 +1622,12 @@ function show_table_info(&$room, &$table, $table_pos) if ($user->subst == 'asta') { if ($table->asta_win == -1) // auction case - $curplayer = $table->gstart % BRISKIN5_PLAYERS_N; + $curplayer = $table->gstart % BIN5_PLAYERS_N; else $curplayer = $table->asta_win; } else if ($user->subst == 'game') { - $curplayer = ($table->gstart + $table->turn) % BRISKIN5_PLAYERS_N; + $curplayer = ($table->gstart + $table->turn) % BIN5_PLAYERS_N; } /* MLANG: " tocca a te giocare.", " tocca a $unam giocare.", " La partita vale %s.", "torna alla partita" */ @@ -1463,7 +1685,7 @@ function briscola_show($room, $table, $user) $ret .= sprintf($prestr, xcape($room->user[$table->player[$table->asta_win]]->name), $ptnadd); } - $ret .= sprintf('set_iscalling(%d);', ($table->asta_win - $user->table_pos + BRISKIN5_PLAYERS_N) % BRISKIN5_PLAYERS_N); + $ret .= sprintf('set_iscalling(%d);', ($table->asta_win - $user->table_pos + BIN5_PLAYERS_N) % BIN5_PLAYERS_N); $ret .= sprintf('$("caller").style.backgroundImage = \'url("img/brisk_caller_sand%d.png")\';', $table->asta_win); @@ -1496,4 +1718,17 @@ function game_result($asta_pnt, $pnt) } } +function log_points($curtime, $user, $where, $mesg) +{ + GLOBAL $_SERVER; + + if (($fp = @fopen(LEGAL_PATH."/points.log", 'a')) != FALSE) { + /* Unix time | session | nickname | IP | where was | mesg */ + fwrite($fp, sprintf("%ld|%s|%s|%s|%s|%s|%s|\n", $curtime, $user->sess, + ($user->flags & USER_FLAG_AUTH ? 'A' : 'N'), + $user->name, $_SERVER['REMOTE_ADDR'], $where , $mesg)); + fclose($fp); + } +} + ?>