<?php
  		function fgets_u($pStdn) {
				$pArr = array($pStdn);
				if (false === ($num_changed_streams = stream_select($pArr, $write = NULL, $except = NULL, 0))) {
        	print("\$ 001 Socket Error : UNABLE TO WATCH STDIN.\n");
          return FALSE;
				} elseif ($num_changed_streams > 0) {
        	return trim(fgets($pStdn, 1024));
				}
			}
			
			function read($pipe) {
				echo '<PRE>';
   				//while (! feof($pipe))
       			//echo fgets_u($pipe)."\n";
       		
					//while ($buffer = fgets_u($pipe))
       			//echo $buffer."\n";
       		
       		while (($buffer = fgetc($pipe)))
       			echo $buffer;
       		
       		//while (! feof($pipe))
       			//echo fgetc($pipe);
       		
       		//while (! feof($pipe))
       			//echo fread($pipe, 1024);
       		
   			echo '</PRE><HR>';
			}
			
  		error_reporting(E_ALL);
  		
    	$descriptorspec = array(
   			0 => array("pipe", "r"),
   			1 => array("pipe", "w"),
   			2 => array("file", "error-output.txt", "a")
			);

			$process = proc_open("cmd", $descriptorspec, $pipes);
			
			echo $process;
			echo '<HR>';

			if (is_resource($process)) {
 				
 				read($pipes[1]);
 				
 				fwrite($pipes[0], "dir\n");
 				fflush($pipes[0]);
 				
 				read($pipes[1]);
 				
   			fwrite($pipes[0], "exit\n");
   			
   			read($pipes[1]);
   			
   			fclose($pipes[0]);
   			fclose($pipes[1]);
   			//fclose($pipes[2]);

   			$return_value = proc_close($process);
			}
    ?>