|
|
| version 1.2, 2003/07/24 11:25:58 | version 1.7, 2010/07/25 06:20:48 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^test_exif[096_dir] | ^test_exif[096_dir] |
| @test_exif[dir] | @test_exif[dir][file;image;keys] |
| $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]] | $file[^file:list[$dir;\.(?i:jpe?g)^$]] |
| <table border=1> | ^file.sort{$file.name} |
| <table border="1"> | |
| ^file.menu{ | ^file.menu{ |
| <tr valign=top> | <tr valign="top"> |
| $image[^image::measure[$dir/$file.name]] | $image[^image::measure[$dir/$file.name]] |
| <td>^image.html[$.width(100)$.height(100)]</td> | <td>^image.html[$.width(100)$.height(100)]</td> |
| <td> | <td> |
| $file.name<hr> | $file.name<hr> |
| $exif[$image.exif] | ^if($image.exif){ |
| ^if($exif){ | $keys[^image.exif._keys[]] |
| $keys[^exif._keys[]] ^keys.sort{$keys.key} | ^keys.sort{$keys.key} |
| ^keys.menu{ | ^keys.menu{ |
| $key[$keys.key] | ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b> |
| $value[$exif.$key] | }[<br />] |
| }{ | |
| ${key}: <b>^show_exif_value[$value]</b><br> | no EXIF info<br /> |
| } | } |
| }{ | </td> |
| no EXIF info<br> | </tr> |
| } | |
| </td> | |
| </tr> | |
| } | } |
| </table> | </table> |