package imageindex
tags 492934 + patch
thanks
Hello
The problem is not only about link to slides, it everywhere imageindex
generate a new filename from an existing one.
Attached a patch that solve this.
--- imageindex 2007-04-04 21:55:51.000000000 +0200
+++ /usr/bin/imageindex 2011-01-11 17:43:26.000000000 +0100
@@ -611,10 +614,10 @@
if (defined($prev)) {
my ($name,$path,$suffix);
- ($name,$path,$suffix) = fileparse($prev,'\.\S+');
+ ($name,$path,$suffix) = fileparse($prev,'\.[^.]+');
$back{$pathname} = "$name.html";
- ($name,$path,$suffix) = fileparse($pathname,'\.\S+');
+ ($name,$path,$suffix) = fileparse($pathname,'\.[^.]+');
$forward{$prev} = "$name.html";
}
$prev = $pathname;
@@ -1848,7 +1851,7 @@
$info{$pathname}{'format'} = $info{$pathname}{'video_format'};
- my ($name,$path,$suffix) = fileparse($filename,'\.\S+');
+ my ($name,$path,$suffix) = fileparse($filename,'\.[^.]+');
if (-e "${name}.txt") {
my $text;
@@ -1942,7 +1945,7 @@
$info{$pathname}{'comment'} = $image->Get('comment');
- my ($name,$path,$suffix) = fileparse($filename,'\.\S+');
+ my ($name,$path,$suffix) = fileparse($filename,'\.[^.]+');
if ($info{$pathname}{'format'} =~ /JFIF/i) {
@@ -2276,7 +2279,7 @@
print "<HEAD>\n";
$verstring = &versionstring();
printf ("<META NAME=\"GENERATOR\" CONTENT=\"imageindex %s\">\n", $verstring);
- printf ("<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=ISO-8859-1\">\n");
+ printf ("<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=%s\">\n", $charset);
if (defined ($write_meta_tag{$titlemetatag})) {
print "<META NAME=\"$titlemetatag\" CONTENT=\"$current_titletext\">\n";
}
@@ -2628,7 +2631,7 @@
print "<HEAD>\n";
$verstring = &versionstring();
printf ("<META NAME=\"GENERATOR\" CONTENT=\"imageindex %s\">\n", $verstring);
- printf ("<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=ISO-8859-1\">\n");
+ printf ("<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=%s\">\n", $charset);
print "<LINK TYPE=\"text/css\" REL=\"stylesheet\" HREF=\"../$stylefile\">";
print "<TITLE>$current_titletext</TITLE>\n";
print "<LINK TYPE=\"text/css\" REL=\"stylesheet\" HREF=\"../$stylefile\">\n";
@@ -2783,7 +2786,7 @@
$ctime,$blksize,$blocks) = stat($file);
my $posix_mtime = POSIX::strftime ("%Y%m%d%H%M.%S",localtime($mtime));
- my ($name,$path,$suffix) = fileparse($file,'\.\S+');
+ my ($name,$path,$suffix) = fileparse($file,'\.[^.]+');
my $thumb;
my $medium;
--
Rémi Vanicat
