Your message dated Sat, 27 Dec 2008 10:25:59 GMT
with message-id <[email protected]>
and subject line igal has been removed from Debian, closing #162720
has caused the Debian Bug report #162720,
regarding igal: should take advantage of Exif tags and comment block [patch]
to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what this
message is talking about, this may indicate a serious mail system
misconfiguration somewhere. Please contact [email protected]
immediately.)
--
162720: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=162720
Debian Bug Tracking System
Contact [email protected] with problems
--- Begin Message ---
Package: igal
Version: 1.3-1
Severity: wishlist
I think igal should take advantage of the Exif tags created by a
digital camera, and any comment block created by the user, when it
creates its .captions file. There's already a perl module that
provides the access. Here's some suggested code.
Some things I thought about but have not implemented:
- User-supplied time format (maybe an optional argument to the --ct switch)
- Discard a standard comment like "created by GIMP".
I'm not much of a perl programmer. You'll probably find some things to
clean up.
- Jim Van Zandt
--- /usr/bin/igal-orig Sat Sep 28 22:18:17 2002
+++ igal Sat Sep 28 21:34:11 2002
@@ -32,6 +32,9 @@
use FileHandle;
use Getopt::Long;
+use Image::Info qw(image_info);
+use Time::Local;
+use POSIX qw(strftime);
# find out if the imagemagick commands identify and convert exist
if (!&exist("identify") or !&exist("convert")) {
@@ -59,6 +62,9 @@
$opt_p = "3"; # cellpadding value for the thumbnail index tables
$opt_i = "index.html"; # name of the main thumbnail index file
$opt_c = "0"; # -c to use user-supplied captions
+$opt_ct = "0"; # --ct to include image timestamp in caption file
+$opt_cc = "0"; # --cc to include image comment block in caption file
+$opt_cs = "0"; # --cs to include camera settings from in caption file
$opt_C = "0"; # same as -c, but preserve image names as captions
$opt_f = "0"; # -f to force thumbnail regeneration
$opt_n = "0"; # -n to use image file names for the .html files
@@ -83,6 +89,9 @@
Options: -a write image sizes under thumbnails on index page
-b <n> 6-digit hex color of thumbnail background (000000)
-c first generate and then use captions
+ --ct include image timestamp in captions file
+ --cc include image comment block in captions file
+ --cs include camera settings in captions file
-C like -c, but preserve file names as captions
-d <dir> operate on files in directory <dir> (.)
-e <ext> consider only image files with extension <ext>
@@ -112,7 +121,7 @@
END_OF_USAGE
# process command-line arguments (overriding defaults above)
-GetOptions('d=s','e=s','y=i','w=i','b=s','p=i','t=i','i=s','q=i','c','C','f','n','k','x',
+GetOptions('d=s','e=s','y=i','w=i','b=s','p=i','t=i','i=s','q=i','c','C','ct','cc','cs','f','n','k','x',
'r','s','h','a','as','u','ad','xy=i','bigy=i','help','www') or die
"$usage";
die $usage if ($opt_help or $opt_h);
@@ -234,8 +243,35 @@
print CAP "# This is igal's $captionfile file, first generated
", scalar localtime, ".\n";
print CAP "# To the left of the separator are the image file
names. Enter your captions\n# on the right side, one per line. The captions
may include HTML tags.\n# To add any comments to this file or to exclude any
images from the slide \n# show, add a # sign at the beginning of their
respective lines. You may\n# also change the order of images in your slide
show at this time.\n\n";
for ($i = 0; $i < $nfiles; $i++) {
+ my $info = image_info($imgfiles[$i]);
+
print CAP "$imgfiles[$i] ---- ";
print CAP "$captions[$i]" if $opt_C;
+ if (defined $info->{DateTimeOriginal} &&
$opt_ct){
+ my @ti = split(/[:
]/,$info->{DateTimeOriginal});
+ my $time = timegm(
$ti[5],$ti[4],$ti[3],$ti[2],$ti[1]-1,$ti[0]-1900,0,0 );
+ print CAP strftime("%Y-%m-%d %H:%M:%S",
gmtime($time));
+ }
+ print CAP " $info->{Comment}" if defined
$info->{Comment} && $opt_cc;
+ if ($opt_cs){
+ if (defined $info->{FocalLength}){
+ my @n=split /\//,$info->{FocalLength};
+ printf CAP " %.1f mm",$n[0]/$n[1];
+ }
+ if (defined $info->{ApertureValue}){
+ my @n=split /\//,$info->{ApertureValue};
+ printf CAP "
f/%3.1f",2**($n[0]/2./$n[1]);
+ }
+ if (defined $info->{ShutterSpeedValue}){
+ my @n=split
/\//,$info->{ShutterSpeedValue};
+ $t=2**(-$n[0]/$n[1]);
+ if ($t>=1) {printf(" %.0f sec",$t);}
+ else {printf CAP " 1/%d sec",.5+1/$t;}
+ }
+ if (defined $info->{Flash}){
+ print CAP " flash" if $info->{Flash} =~
/yes/i;
+ }
+ }
print CAP "\n";
}
close(CAP);
-- System Information
Debian Release: 3.0
Kernel Version: Linux vanzandt 2.4.19 #2 Wed Sep 4 21:33:27 EDT 2002 i686
unknown
Versions of the packages igal depends on:
ii imagemagick 5.4.4.5-1 Image manipulation programs.
ii perl 5.6.1-7 Larry Wall's Practical Extraction and Report
--- End Message ---
--- Begin Message ---
Version: 1.4-21+rm
The igal package has been removed from Debian testing, unstable and
experimental, so I am now closing the bugs that were still opened
against it.
For more information about this package's removal, read
http://bugs.debian.org/509534 . That bug might give the reasons why
this package was removed, and suggestions of possible replacements.
Don't hesitate to reply to this mail if you have any question.
Thank you for your contribution to Debian.
--
Marco Rodrigues
http://Marco.Tondela.org
--- End Message ---
