- $addr = stream_socket_get_name($new_socket, TRUE);
-
- switch ($path) {
- case SITE_PREFIX:
- case SITE_PREFIX."index.php":
- $header_out = array();
- ob_start();
- index_main($room, $header_out, $addr, $get, $post, $cookie);
- $content = ob_get_contents();
- ob_end_clean();
- $content_sz = mb_strlen($content, "LATIN1");
- $hea = headers_render($header_out);
-
- // TODO: FIX THIS PART TO A SPAWN WRITE AS CUEUE.
- printf("OUT: [%d]\n", $content_sz);
- for ($w = 0 ; $w < 10 ; $w++) {
- if (($wret = fwrite($new_socket, $content, $content_sz)) == $content_sz
- || $wret <= 0)
- break;
- printf("wret: [%d]\n", $wret);
- $content = substr($content, $wret, $content_sz - $wret);
- usleep(100000);
- }
- fclose($new_socket);
- break;
- case SITE_PREFIX."index_wr.php":
- $header_out = array();
- $addr = "";
- // $ret = socket_getpeername($new_socket, $addr);
- printf("RET: %s\n", $addr);
- // exit(123);
- ob_start();
- index_wr_main($room, $addr, $get, $post, $cookie);
- $content = ob_get_contents();
- ob_end_clean();
-
- // printf("OUT: [%s]\n", $G_content);
- fwrite($new_socket, headers_render($header_out).$content);
- fclose($new_socket);
- break;
- case SITE_PREFIX."index_rd_ifra.php":
- do {
- $header_out = array();
- if (!isset($cookie['sess'])
- || (($user = $room->get_user($cookie['sess'], $idx)) == FALSE)) {
- $body = index_rd_ifra_fini(TRUE);
- fwrite($new_socket, headers_render($header_out).$body);
- fflush($new_socket);
- fclose($new_socket);
- break;
- }
- // close a previous opened index_read_ifra socket, if exists
- if (($prev = $user->rd_socket_get()) != NULL) {
- unset($s2u[intval($user->rd_socket_get())]);
- unset($socks[intval($user->rd_socket_get())]);
- fclose($user->rd_socket_get());
- printf("CLOSE AND OPEN AGAIN ON IFRA2\n");
- $user->rd_socket_set(NULL);
- }
-
- $body = "";
- index_rd_ifra_init($room, $user, $header_out, $body, $get, $post, $cookie);
- fwrite($new_socket, headers_render($header_out).$body);
- fflush($new_socket);
-
- $s2u[intval($new_socket)] = $idx;
- $socks[intval($new_socket)] = $new_socket;
- $user->rd_socket_set($new_socket);
- } while (FALSE);
-
- break;
- }
- }
- else {
- printf("WARNING: ancillary_getstream failed\n");
- }
- }
- else {
- if (($buf = fread($sock, 512)) === FALSE) {
- printf("error read\n");
- exit(123);
- }
- else if (strlen($buf) === 0) {
- if ($sock === $list) {
- printf("Arrivati %d bytes da list\n", strlen($buf));
- }
- else if ($sock === $in) {
- printf("Arrivati %d bytes da stdin\n", strlen($buf));
- }
- else {
- // $user_a[$s2u[intval($sock)]]->disable();
- if ($room->user[$s2u[intval($sock)]]->rd_socket_get() != NULL) {
- $room->user[$s2u[intval($sock)]]->rd_socket_set(NULL);
- }
- unset($socks[intval($sock)]);
- unset($s2u[intval($sock)]);
- fclose($sock);
- printf("CLOSE ON READ\n");
- }
- if ($debug > 1) {
- printf("post unset\n");
- print_r($socks);
- }
- }
- else {
- if ($debug > 1) {
- print_r($read);
- }
- if ($sock === $list) {
- printf("Arrivati %d bytes da list\n", strlen($buf));
- }
- else if ($sock === $in) {
- printf("Arrivati %d bytes da stdin\n", strlen($buf));
- }
- else {
- $key = array_search("$sock", $socks);
- printf("Arrivati %d bytes dalla socket n. %d\n", strlen($buf), $key);
- }
- }
- }
- }
- }
-
- foreach ($socks as $k => $sock) {
- if (isset($s2u[intval($sock)])) {
- $user = $room->user[$s2u[intval($sock)]];
- $body = $user->rd_cache_get();
- if ($body == "")
- index_rd_ifra_main($room, $user, $body);
-
- if ($body == "" && $user->rd_kalive_is_expired($curtime)) {
- $body = index_rd_ifra_keepalive($user);
- }
-
- if ($body != "") {
- echo "SPIA: [".substr($body, 0, 60)."...]\n";
- $body_l = mb_strlen($body, "LATIN1");
- $ret = @fwrite($sock, $body);
- if ($ret < $body_l) {
- printf("TROUBLE WITH FWRITE: %d\n", $ret);
- $user->rd_cache_set(mb_substr($body, $ret, $body_l - $ret, "LATIN1"));
- }
- else {
- $user->rd_cache_set("");
- }
- fflush($sock);
- $user->rd_kalive_reset($curtime);
- }
-
- // close socket after a while to prevent client memory consumption
- if ($user->rd_endtime_is_expired($curtime)) {
- // $user_a[$s2u[intval($sock)]]->disable();
- if ($room->user[$s2u[intval($sock)]]->rd_socket_get() != NULL) {
- $room->user[$s2u[intval($sock)]]->rd_socket_set(NULL);
- }
- unset($socks[intval($sock)]);
- unset($s2u[intval($sock)]);
- fclose($sock);
- printf("CLOSE ON LOOP\n");
- }
- }
- }
- }
-