<?php
/* fopen bug ??? */
function ask($prompt = '', $mxin = 256) {
	$ret = false;
	print($prompt);
	$ifd = fopen('php://stdin', 'r');
	if ($ifd) {
		$ret = fgets($ifd, $mxin);
		if (! fclose($ifd)) print("FCLOSE FAILED\r\n");
	}
	return $ret;
}

if ($rep = ask()) print($rep);
/*
 * next ask call causes under WIN32 WIN98 Second Edition:
 *[23-Nov-2000 22:51:02] PHP Warning:  fopen("php://stdin","r") - No error in fopenbug.php on line 6
 * under IRIX 6.5 (6.5.8m):
 *[24-Nov-2000 10:35:21] PHP Warning:  fopen("php://stdin","r") - Bad file number in fopenbug.php on line 6
 * and under WINNT 4.0 Service Pack 6:
 *[24-Nov-2000 10:49:34] PHP Warning:  fopen("php://stdin","r") - No error in fopenbug.php on line 6
 */
if ($rep = ask()) print($rep);
?>