## Serie micro scripts - Selecão de jpg's de um diretório
## Este script deve estar num diretorio que contenha imagens .jpg
## BobFrank - 31/01/2003

<form action="<?$PHP_SELF?>" method=post>
<select name='imagem' size=1>
<?=imagens($imagem)?>
</select>
<input type=submit value="ok!">
</form>

<?
function imagens($sel=0) {
	$imagem = "Selecione";
	$rel_img  = "<option value=\"$imagem\" ";
	$rel_img .= ($imagem==$sel) ? "selected " : "";
	$rel_img .= " >Selecione</option>\n";
	
	$handle=opendir('.'); 
	while (($file = readdir($handle))!==false)
	{ 
   		if(eregi("\.jpg",$file)) 
   		{ 
       		$img[$cont]="$file"; 
     		$cont +=1; 
   		} 
	} 
	closedir($handle); 
		
	foreach($img as $imagem) {
		$rel_img.= "<option value=\"$imagem\" ";
		$rel_img.= ($imagem==$sel) ? "selected " : "";
		$rel_img.= " >$imagem</option>\n";
	}
	return $rel_img;
}	
?>