Return to 096.html CVS log

Up to [parser3project] / parser3 / tests

no message

@main[]
^test_exif[096_dir]


@test_exif[dir][file;image;keys]
$file[^file:list[$dir;\.(?i:jpe?g)^$]]
^file.sort{$file.name}
<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>
			^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>


@show_exif_value[value][i]
^if($value is date){
	^value.sql-string[]
}{
	^if($value is hash){
		^for[i](0;$value-1){$value.$i}[,]
	}{
		$value
	}
}