|
|
| version 1.2, 2003/07/24 11:25:58 | version 1.5, 2009/04/30 05:23:45 |
|---|---|
| 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)^$]] | @test_exif[dir][file;image;keys] |
| <table border=1> | $file[^file:list[$dir;\.(?i:jpe?g)^$]] |
| ^file.menu{ | ^file.sort{$file.name} |
| <tr valign=top> | <table border="1"> |
| $image[^image::measure[$dir/$file.name]] | ^file.menu{ |
| <td>^image.html[$.width(100)$.height(100)]</td> | <tr valign="top"> |
| <td> | $image[^image::measure[$dir/$file.name]] |
| $file.name<hr> | <td>^image.html[$.width(100)$.height(100)]</td> |
| $exif[$image.exif] | <td> |
| ^if($exif){ | $file.name<hr> |
| $keys[^exif._keys[]] ^keys.sort{$keys.key} | ^if($image.exif){ |
| ^keys.menu{ | $keys[^image.exif._keys[]] |
| $key[$keys.key] | ^keys.sort{$keys.key} |
| $value[$exif.$key] | ^keys.menu{ |
| ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b> | |
| ${key}: <b>^show_exif_value[$value]</b><br> | }[<br />] |
| } | }{ |
| }{ | no EXIF info<br /> |
| no EXIF info<br> | } |
| } | </td> |
| </td> | </tr> |
| </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[] |
| }{ | }{ |
| ^if($value is hash){ | ^if($value is hash){ |
| ^for[i](0;$value-1){$value.$i}[,] | ^for[i](0;$value-1){$value.$i}[,] |
| }{ | }{ |
| $value | $value |
| } | } |
| } | } |