|
|
| version 1.4, 2009/04/30 05:18:59 | 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][file;image;keys] | |
| @test_exif[dir][file;image;keys] | $file[^file:list[$dir;\.(?i:jpe?g)^$]] |
| $file[^file:list[$dir;\.(?i:jpe?g)^$]] | ^file.sort{$file.name} |
| ^file.sort($file.name) | <table border="1"> |
| <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> | ^if($image.exif){ |
| ^if($image.exif){ | $keys[^image.exif._keys[]] |
| $keys[^image.exif._keys[]] | ^keys.sort{$keys.key} |
| ^keys.sort{$keys.key} | ^keys.menu{ |
| ^keys.menu{ | ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b> |
| ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b> | }[<br />] |
| }[<br />] | }{ |
| }{ | no EXIF info<br /> |
| no EXIF info<br /> | } |
| } | </td> |
| </td> | </tr> |
| </tr> | } |
| } | </table> |
| </table> | |
| @show_exif_value[value][i] | |
| ^if($value is date){ | |
| @show_exif_value[value][i] | ^value.sql-string[] |
| ^if($value is date){ | }{ |
| ^value.sql-string[] | ^if($value is hash){ |
| }{ | ^for[i](0;$value-1){$value.$i}[,] |
| ^if($value is hash){ | }{ |
| ^for[i](0;$value-1){$value.$i}[,] | $value |
| }{ | } |
| $value | } |
| } | |
| } |