more consistent assignement during failure branches
[brisk.git] / web / briskin5 / Obj / briskin5.phh
index 3cec95d..356c579 100644 (file)
@@ -2,7 +2,7 @@
 /*
  *  brisk - briskin5.phh
  *
- *  Copyright (C) 2006-2011 Matteo Nastasi
+ *  Copyright (C) 2006-2012 Matteo Nastasi
  *                          mailto: nastasi@alternativeoutput.it 
  *                                  matteo.nastasi@milug.org
  *                          web: http://www.alternativeoutput.it
@@ -584,112 +584,6 @@ class Bin5_user extends User {
         @unlink(BIN5_PROXY_PATH."/table".$tab_id."/".$sess.".step");
     }
     
-    static function load_data($tab_id, $id, $sess) 
-    {
-        log_load("Bin5_user::load_data: tab_id [".$tab_id."] id [".$id."] sess [".($sess == FALSE ? "FALSE" : $sess)."] ");
-        
-        do {
-            if (($tok = @ftok(FTOK_PATH."/bin5/table".$tab_id."/user".$id, "B")) == -1) {
-                log_main("ftok failed");
-                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)) {
-                if (($user = @shm_get_var($shm, $tok)) == FALSE) {
-                    break;
-                }
-                
-                if ($sess != FALSE && $user->sess != $sess) {
-                    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_shme("Bin5_user::save_data2");
-
-                        log_only("PUT_VAR FALLITA ".strlen(serialize($user)));
-                        log_only(serialize($user));
-                    }
-                }
-                else {
-                    if ($sess != FALSE) {
-                        // This part isn't strictly required but is good to verify
-                        // the coerence of cached and User class saved value of step field.
-                        $old_step = $user->step;
-                        $arr = Bin5_user::load_step($tab_id, $sess);
-                        $user->step = $arr['s'];
-                        if ($old_step != $user->step) {
-                            log_crit("Bin5:: steps are diffetents User->step ".$user->step." Old_step: ".$old_step);
-                        }
-
-                    }
-                }
-                
-                $user->shm_sz = $shm_sz;
-                
-                shm_detach($shm);
-            }
-            
-            //  
-            // SHSPLIT: load users from the shared memory
-            //
-            return ($user);
-        } while (0);
-        
-        log_crit("Bin5_user::load_data:ret FALSE");
-        
-        return (FALSE);
-    }
-
-    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);
-                $user->save_step();
-                log_main("User[".$id."] saved.");
-
-                log_shme("Bin5_user::save_data");
-
-                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);
-    }
-
     function destroy_data($tab_id) 
     {
         do {
@@ -720,58 +614,22 @@ class Bin5_user extends User {
         return ($ret);
     }
 
-public static function stream_fini($is_unrecoverable)
-{
-    GLOBAL $G_four_rnd_string;
-
-    printf("xXx user::stream_fini\n");
-
-    // IF IFRAME THEN:
-    $body = "";
-    $body .= sprintf("<html>
-<head>
-<script type=\"text/javascript\" src=\"%scommons.js\"></script>
-<script type=\"text/javascript\" src=\"%sxynt-http-streaming-ifra.js\"></script>
-<script type=\"text/javascript\">
-var http_streaming = \"ready\";", self::base_get(), self::base_get());
-    $body .= sprintf("
-window.onload = function () { if (http_streaming != \"ready\") { http_streaming.reload(); } };
-</script>
-</head>
-<body>");
-    $body .= sprintf("<!-- \n%s -->\n", $G_four_rnd_string);
-    $body .= sprintf("<script id='hs%d' type='text/javascript'><!--
-push(\"%s\");
-// -->
-</script>", 0, escpush(self::blocking_error($is_unrecoverable)) );
-    // ELSE IF XHR THEN:
-    // return (self::blocking_error($is_unrecoverable));
-    return ($body);
-}
-
-
     protected function blocking_error($is_unrecoverable)
     {
-        GLOBAL $is_page_streaming;
-        
-        $is_page_streaming = TRUE;
         log_crit("BLOCKING_ERROR UNREC: ".($is_unrecoverable ? "TRUE" : "FALSE"));
-        return (sprintf(($is_unrecoverable ? 'hstm.stop(); ' : '').'window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");'));
+        return (sprintf(($is_unrecoverable ? 'xstm.stop(); ' : '').'window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");'));
     }
     
     protected function page_sync($sess, $page)
     {
-        GLOBAL $is_page_streaming;
-        
-        $is_page_streaming = TRUE;
         log_rd2("PAGE_SYNC");
         printf("xXx BIN5_USER::PAGE_SYNC\n");
-        return (sprintf('hstm.stop(); window.onbeforeunload = null; window.onunload = null; document.location.assign("%s");', $page));
+        return (sprintf('xstm.stop(); window.onbeforeunload = null; window.onunload = null; document.location.assign("%s");', $page));
     }
 
     protected function maincheck($cur_stat, $cur_subst, $cur_step, &$new_stat, &$new_subst, &$new_step, $splashdate, $table_idx, $table_token)
     {
-        GLOBAL $G_lang, $mlang_indrd, $is_page_streaming;
+        GLOBAL $G_lang, $mlang_indrd;
         GLOBAL $G_with_splash, $G_splash_content, $G_splash_interval, $G_splash_idx;
         GLOBAL $G_splash_w, $G_splash_h, $G_splash_timeout;
         $CO_splashdate = "CO_splashdate".$G_splash_idx;
@@ -784,23 +642,6 @@ push(\"%s\");
         $ret = FALSE;
         $curtime = time();
         
-        /* if ((($curtime - $this->lacc) >  STREAM_TIMEOUT) || Room::garbage_time_is_expired($curtime)) { */
-        /*     $S_load_stat['lL_laccgarb']++; */
-        
-        /*     if (($curtime - $this->lacc) >=  STREAM_TIMEOUT) { */
-        /*         $S_load_stat['wU_lacc_upd']++; */
-        /*         $this->lacc = $curtime; */
-        /*     } */
-        
-        /*     if (Room::garbage_time_is_expired($curtime)) { */
-        /*         log_only("F"); */
-        
-        /*         $S_load_stat['wR_garbage']++; */
-        /*         log_main("pre garbage_manager TRE"); */
-        /*         $this->room->garbage_manager(FALSE); */
-        /*     } */
-        /* } */
-        
       /* Nothing changed, return. */
       if ($cur_step == $this->step) 
           return (FALSE);
@@ -814,10 +655,9 @@ push(\"%s\");
           
           $S_load_stat['wR_minusone']++;
           
-          if ($this->the_end == TRUE) { 
-              log_rd2("main_check: the end".var_export(debug_backtrace()));
-              $is_page_streaming = TRUE;
-          }
+          // if ($this->the_end == TRUE) {
+          // log_rd2("main_check: the end".var_export(debug_backtrace()));
+          // }
           
           if ($this->trans_step != -1) {
               log_rd2("TRANS USATO ".$this->trans_step);
@@ -926,7 +766,7 @@ class Bin5 {
     var $table;
     var $comm; // commands for many people
     var $step; // current step of the comm array
-    // externalized var $garbage_timeout;
+    var $garbage_timeout;
     var $shm_sz;
     
     var $table_idx;
@@ -984,7 +824,7 @@ class Bin5 {
         
         $this->table_idx = $table_idx;
         $this->table_token = $table_token;
-        Bin5::garbage_time_expire_set($table_idx, 0);
+        $this->garbage_timeout = 0;
         
         log_wr("Bin5 constructor end");
     }
@@ -1022,8 +862,7 @@ class Bin5 {
         /* Garbage collector degli utenti in timeout */
         $ismod = FALSE;
         $curtime = time();
-        // externalized if ($force || $this->garbage_timeout < $curtime) {
-        if ($force || Bin5::garbage_time_is_expired($this->table_idx, $curtime)) {
+        if ($force || $this->garbage_timeout < $curtime) {
             for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) {
                 $user_cur = $this->user[$i];
                 if ($user_cur->sess == "" || 
@@ -1061,8 +900,7 @@ class Bin5 {
             }
             log_rd2($user_cur->sess." GARBAGE UPDATED!");
             
-            // externalized $this->garbage_timeout = $curtime + GARBAGE_TIMEOUT;
-            Bin5::garbage_time_expire_set($this->table_idx, $curtime + GARBAGE_TIMEOUT);
+            $this->garbage_timeout = $curtime + GARBAGE_TIMEOUT;
             
             $ismod = TRUE;
         }
@@ -1070,112 +908,6 @@ class Bin5 {
         return ($ismod);
     }
     
-    // Bin5::load_data
-    static function load_data($table_idx, $table_token = "") 
-    {
-        $shm = FALSE;
-        
-        log_wr("TABLE_FTOK ".FTOK_PATH."/bin5/table".$table_idx."/table");
-        
-        do {
-            if (($tok = @ftok(FTOK_PATH."/bin5/table".$table_idx."/table", "B")) == -1) {
-                log_main("ftok failed");
-                break;
-            }
-            
-            if (($shm_sz = sharedmem_sz($tok)) == -1) {
-                log_main("shmop_open failed");
-                break;
-            }
-       
-            if (($shm = shm_attach($tok, $shm_sz)) == FALSE)
-                break;
-
-            if (($bri = @shm_get_var($shm, $tok)) == FALSE) 
-                break;
-
-            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);
-      
-            for ($i = 0 ; $i < BIN5_MAX_PLAYERS ; $i++) {
-                if (($bri->user[$i] = Bin5_user::load_data($table_idx, $i, FALSE)) == FALSE) {
-                    log_crit("Bin5_user::load_data failed");
-                    break;
-                }
-            }
-            if ($i < BIN5_MAX_PLAYERS) {
-                break;
-            }
-      
-            return ($bri); 
-        } while (FALSE);
-
-        if ($shm != FALSE)
-            shm_detach($shm);
-
-        log_wr("briskin5 load_data failed");
-    
-        return (FALSE);
-    }
-  
-
-
-    function save_data($bri) 
-    {
-        GLOBAL $sess;
-      
-        $ret =   FALSE;
-        $shm =   FALSE;
-      
-        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;
-        }
-      
-        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) {
-
-                log_shme("Bin5::save_data");
-
-                $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];
-        }
-        log_load("FINISH: ".($ret == TRUE ? "TRUE" : "FALSE"));
-      
-        return ($ret);
-    }
-  
-
 
     function destroy_data() 
     {
@@ -1376,7 +1108,7 @@ class Bin5 {
             $user_cur->laccwr = $curtime;
 
             $ret = "gst.st = ".($user_cur->step+1)."; ";
-            $ret .= 'gst.st_loc++; hstm.stop(); window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");|';
+            $ret .= 'gst.st_loc++; xstm.stop(); window.onbeforeunload = null; window.onunload = null; document.location.assign("../index.php");|';
 
             log_wr($user_cur->sess." BIN5_WAKEUP: ".$ret);
             $user_cur->comm[$user_cur->step % COMM_N] = $ret;
@@ -1408,94 +1140,70 @@ class Bin5 {
         return ($is_ab);
     }
 
-
-    static function garbage_time_is_expired($tab_id, $tm) 
-    {
-        $ret = TRUE;
-        $fp = FALSE;
-        do {
-            if (file_exists(BIN5_PROXY_PATH."/table".$tab_id) == FALSE)
-                mkdir(BIN5_PROXY_PATH."/table".$tab_id, 0775, TRUE);
-            if (($fp = @fopen(BIN5_PROXY_PATH."/table".$tab_id."/garbage_time.expired", 'rb')) == FALSE)
-                break;
-            if (($s = fread($fp, 4)) == FALSE)
-                break;
-            if (mb_strlen($s, "ASCII") != 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($tab_id, $tm) 
-    {
-        do {
-            if (file_exists(BIN5_PROXY_PATH."/table".$tab_id) == FALSE)
-                mkdir(BIN5_PROXY_PATH."/table".$tab_id, 0775, TRUE);
-            if (($fp = @fopen(BIN5_PROXY_PATH."/table".$tab_id."/garbage_time.expired", 'wb')) == FALSE)
-                break;
-            fwrite($fp, pack("L",$tm));
-            fclose($fp);
-          
-            return (TRUE);
-        } while (0);
-      
-        return (FALSE);
-    }
-
-    static function request_mgr(&$s_a_p, &$header_out, &$new_socket, $path, $addr, $get, $post, $cookie)
+    static function request_mgr(&$s_a_p, $header, &$header_out, &$new_socket, $path, $addr, $get, $post, $cookie)
     {
         printf("NEW_SOCKET (root): %d\n", intval($new_socket));
         
+        $enc = get_encoding($header);
+        if (isset($header['User-Agent']) && strstr($header['User-Agent'], "MSIE")) {
+            $transp_type = "htmlfile";
+        }
+        else {
+            $transp_type = "iframe";
+        }
+        force_no_cache($header_out);
+
         if (($table_idx = gpcs_var('table_idx', $get, $post, $cookie)) === FALSE) 
             unset($table_idx);
         
         if (($table_token = gpcs_var('table_token', $get, $post, $cookie)) === FALSE) 
             unset($table_token);
 
-        force_no_cache($header_out);
 
         switch ($path) {
         case "":
         case "index.php":
             ob_start();
-            bin5_index_main($header_out, $addr, $get, $post, $cookie);
+            bin5_index_main($transp_type, $header_out, $addr, $get, $post, $cookie);
             $content = ob_get_contents();
             ob_end_clean();
         
-            $s_a_p->pgflush_try_add($new_socket, 20, $header_out, $content);
+            $s_a_p->pgflush_try_add($enc, $new_socket, 20, $header_out, $content);
             return TRUE;
         
         break;
         case "index_wr.php":
-            $bri = $s_a_p->app->match_get($table_idx, $table_token);
-            ob_start();
-            bin5_index_wr_main($bri, $addr, $get, $post, $cookie);
-            $content = ob_get_contents();
-            ob_end_clean();
-            
-            $s_a_p->pgflush_try_add($new_socket, 20, $header_out, $content);
+            // FIXME $content can be unset
+            if (isset($table_idx) && isset($table_token)) {
+                if (($bri = $s_a_p->app->match_get($table_idx, $table_token)) != FALSE) {
+                    ob_start();
+                    bin5_index_wr_main($bri, $addr, $get, $post, $cookie);
+                    $content = ob_get_contents();
+                    ob_end_clean();
+                }
+                else {
+                    $content = "Bin5 Load data error";
+                }
+            }
+            else {
+                $content = "Bin5 Load data error";
+            }
+            $s_a_p->pgflush_try_add($enc, $new_socket, 20, $header_out, $content);
             return TRUE;
             
             break;
         case "index_rd_ifra.php":
             do {
-                if (($bri = $s_a_p->app->match_get($table_idx, $table_token)) == NULL
+                if (!isset($table_idx)
+                    || !isset($table_token)
                     || !isset($cookie['sess'])
+                    || ($bri = $s_a_p->app->match_get($table_idx, $table_token)) == NULL
                     || (($user = $bri->get_user($cookie['sess'], $idx)) == FALSE)) {
 
-                    $content = Bin5_user::stream_fini(TRUE);                    
-                    $s_a_p->pgflush_try_add($new_socket, 20, $header_out, $content);
+                    $content = Bin5_user::stream_fini($s_a_p->rndstr, TRUE);
+                    $s_a_p->pgflush_try_add($enc, $new_socket, 20, $header_out, $content);
 
-                    return TRUE;                    
+                    return TRUE;
                     break;
                 }
                 // close a previous opened index_read_ifra socket, if exists
@@ -1507,8 +1215,8 @@ class Bin5 {
                 }
                 
                 $content = "";
-                $user->stream_init($header_out, $content, $get, $post, $cookie);
-                $response = headers_render($header_out, -1).chunked_content($content);
+                $user->stream_init($s_a_p->rndstr, $enc, $header_out, $content, $get, $post, $cookie);
+                $response = headers_render($header_out, -1).chunked_content($user->rd_zls_get(), $content);
                 $response_l = mb_strlen($response, "ASCII");
                 
                 $wret = @fwrite($new_socket, $response, $response_l);
@@ -1702,6 +1410,7 @@ function show_table(&$bri, &$user, $sendstep, $is_transition, $is_again)
     /* NOTIFY FOR THE CARD MAKER */
     if ($is_transition) { //  && $user->subst ==  "asta" superfluo
         $ret .= show_table_info(&$bri, &$table, $table_pos);
+        $ret .= "setTimeout(preload_images, 500, g_preload_img_arr, g_imgct);";
     }
     if (!$is_again) 
         $ret .= table_wellcome($user);