JAL-3394 JAL-3420 Temporary measure limits unix file extension to be the shortest...

[jalview.git] / utils / install4j / auto_file_associations-i4j8.pl

diff --git a/utils/install4j/auto_file_associations-i4j8.pl b/utils/install4j/auto_file_associations-i4j8.pl
index 9a607c6..71044fe 100755 (executable)
--- a/utils/install4j/auto_file_associations-i4j8.pl
+++ b/utils/install4j/auto_file_associations-i4j8.pl
@@ -178,6 +178,18 @@ for my $shortname (@ordered) {
   $i4jentry =~ s/\$\$MIMETYPE\$\$/$xmimetype/g;
   $i4jentry =~ s/\$\$ICONFILE\$\$/$xiconfile/g;
 
+  my $unixext;
+  for my $ext (sort @extensions) {
+    if (not defined($unixext)) {
+      $unixext = $ext;
+      next;
+    }
+    if (length($ext) < length($unixext)) {
+      $unixext = $ext;
+      next;
+    }
+  }
+
   for my $ext (@extensions) {
     $i4jcount++;
     #print "COUNT: $i4jcount\n";
@@ -185,7 +197,10 @@ for my $shortname (@ordered) {
     #print "PC: $progresspercent\n";
     $progresspercent = 100 if $progresspercent > 100;
     my $xext = xml_escape($ext);
+    my $addunixextension = ($ext eq $unixext)?"true":"false";
+
     my $i4jextentry = $i4jentry;
+    $i4jextentry =~ s/\$\$ADDUNIXEXTENSION\$\$/$addunixextension/g;
     $i4jextentry =~ s/\$\$EXTENSION\$\$/$xext/g;
     $i4jextentry =~ s/\$\$PROGRESSPERCENT\$\$/$progresspercent/g;
     $i4jextentry =~ s/\$\$ID\$\$/$id/g;