$dir = 'svn/trunk/icons' ; function ls ( $dir ) { $res = array () ; $handle = opendir( $dir ) or die ( "can't open $dir" ) ; while ( false !== ($file = readdir($handle)) ) { if ( strcmp ( substr ( $file, -4 ), ".gif" ) == 0 and strcmp ( $file, 'mirmon.gif' ) ) { $res [] = $file ; } } closedir($handle); return $res ; } $list = ls ( $dir ) ; sort ( $list ) ; echo <<
\n" ; echo "\n" ; echo <<\n" ; printf ( "
\n" ; echo "\n", count ( $list ) ) ; printf ( ' %s icons ' . "\n" ) ; foreach ( $list as $item ) { $file = "$dir/$item" ; $line = ' name icon size ' . ' ' ; printf ( "$line\n", $item, $item, $file, filesize ( $file ) ) ; } echo "%s ' . '' . ' %s ' . '