|
|
1.4 misha 1: @main[]
2: ^test_exif[096_dir]
3:
4: @test_exif[dir][file;image;keys]
5: $file[^file:list[$dir;\.(?i:jpe?g)^$]]
1.5 misha 6: ^file.sort{$file.name}
1.4 misha 7: <table border="1">
8: ^file.menu{
9: <tr valign="top">
10: $image[^image::measure[$dir/$file.name]]
11: <td>^image.html[$.width(100)$.height(100)]</td>
12: <td>
13: $file.name<hr>
14: ^if($image.exif){
15: $keys[^image.exif._keys[]]
16: ^keys.sort{$keys.key}
17: ^keys.menu{
18: ${keys.key}: <b>^show_exif_value[$image.exif.[$keys.key]]</b>
19: }[<br />]
20: }{
21: no EXIF info<br />
22: }
23: </td>
24: </tr>
25: }
26: </table>
27:
28: @show_exif_value[value][i]
29: ^if($value is date){
30: ^value.sql-string[]
31: }{
32: ^if($value is hash){
33: ^for[i](0;$value-1){$value.$i}[,]
34: }{
35: $value
36: }
37: }