Скрипт за извеждане на линкове?

[LiRiX]

Здравейте,
трябва ми скрипт за извеждане на линкове от дадена директория.
Няма значние от езика, може да е и php.
Благодаря предварително.


П.П. Понеже малко трудно обяснявам какво изкам, ще се опитам да дам пример. Имам папка http://myhost.com/mp3/
И изкам този скрипт да извежда песните, но със линкове дирекно.

 

[mute]

Админа ми беше написак една проста тарсачка за мп3 която е с листинг

<FORM ACTION="index.php"  METHOD=POST> 
<INPUT TYPE="text" NAME="search" value="" size="12" maxlength="12"><br> 
<INPUT TYPE=submit value=Search > 
</FORM> 

<?PHP 




$ip= getenv("REMOTE_ADDR"); 
    $current_dir = '../mp3'; 
  $dir = opendir($current_dir); 
$search=$HTTP_POST_VARS['search']; 
$search = strtolower($search); 
if ( $search =='') 
{ 
 while ($file = readdir($dir)) 
  { 

$file='<a href='.$file.'>'.$file.'</a><br>'; 
echo $file; 

} 
 closedir($dir); 
} 
else 
{ 
  while ($file = readdir($dir)) 
  { 
  $filemal=strtolower($file); 
if (strstr($filemal, $search)) 
{ 
$file='<a href='.$file.'>'.$file.'</a><br>'; 
echo $file; 

} 

} 
  closedir($dir); 



} 
?>