|
|
| version 1.1.2.1, 2003/03/04 12:38:16 | version 1.3, 2008/08/26 11:52:13 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^test_exif[096_dir] | ^test_exif[096_dir] |
| @test_exif[dir] | |
| $file[^file:list[$dir;\.(jpe?g|JPE?G)^$]] | |
| <table border=1> | |
| ^file.menu{ | |
| <tr valign=top> | |
| $image[^image::measure[$dir/$file.name]] | |
| <td>^image.html[$.width(100)$.height(100)]</td> | |
| <td> | |
| $file.name<hr> | |
| $exif[$image.exif] | |
| ^if($exif){ | |
| $keys[^exif._keys[]] ^keys.sort{$keys.key} | |
| ^keys.menu{ | |
| $key[$keys.key] | |
| $value[$exif.$key] | |
| ${key}: <b>^show_exif_value[$value]</b><br> | @test_exif[dir][file;image;keys] |
| } | $file[^file:list[$dir;\.(?i:jpe?g)^$]] |
| }{ | <table border="1"> |
| no EXIF info<br> | ^file.menu{ |
| } | <tr valign="top"> |
| </td> | $image[^image::measure[$dir/$file.name]] |
| </tr> | <td>^image.html[$.width(100)$.height(100)]</td> |
| <td> | |
| $file.name<hr> | |
| ^if($image.exif){ | |
| $keys[^image.exif._keys[]] | |
| ^keys.sort{$keys.key} | |
| ^keys.menu{ | |
| ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b> | |
| }[<br />] | |
| }{ | |
| no EXIF info<br /> | |
| } | |
| </td> | |
| </tr> | |
| } | } |
| </table> | </table> |
| @show_exif_value[value][i] | @show_exif_value[value][i] |
| ^if($value is date){ | ^if($value is date){ |
| ^value.sql-string[] | ^value.sql-string[] |