|
|
1.2 paf 1: @main[]
2: ^test_exif[096_dir]
3:
1.3 ! misha 4:
! 5: @test_exif[dir][file;image;keys]
! 6: $file[^file:list[$dir;\.(?i:jpe?g)^$]]
! 7: <table border="1">
1.2 paf 8: ^file.menu{
1.3 ! misha 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>
1.2 paf 25: }
26: </table>
27:
1.3 ! misha 28:
1.2 paf 29: @show_exif_value[value][i]
30: ^if($value is date){
31: ^value.sql-string[]
32: }{
33: ^if($value is hash){
34: ^for[i](0;$value-1){$value.$i}[,]
35: }{
36: $value
37: }
38: }