+ print MA $macentry;
+
+ my $i4jentry = $i4jtemplate;
+ $i4jentry =~ s/\$\$NAME\$\$/$xname/g;
+ $i4jentry =~ s/\$\$SHORTNAME\$\$/$xshortname/g;
+ $i4jentry =~ s/\$\$MIMETYPE\$\$/$xmimetype/g;
+ $i4jentry =~ s/\$\$ICONFILE\$\$/$xiconfile/g;
+ $i4jentry =~ s/\$\$PRIMARY\$\$/$xprimarystring/g;
+ $i4jentry =~ s/\$\$MACASSOCIATIONROLE\$\$/$xROLE/g;
+
+ my $ext = join(",",sort(@extensions));
+ my $xdisplayext = xml_escape(join(", ", map(".$_",sort(@extensions))));
+ my $progresspercent = int(($i4jcount/$num)*100);
+ $progresspercent = 100 if $progresspercent > 100;
+ $i4jcount++;
+ my $xext = xml_escape($ext);
+ my $addunixextension = "true";
+
+ $i4jentry =~ s/\$\$ADDUNIXEXTENSION\$\$/$addunixextension/g;
+ $i4jentry =~ s/\$\$EXTENSION\$\$/$xext/g;
+ $i4jentry =~ s/\$\$DISPLAYEXTENSION\$\$/$xdisplayext/g;
+ $i4jentry =~ s/\$\$PROGRESSPERCENT\$\$/$progresspercent/g;
+ $i4jentry =~ s/\$\$ID\$\$/$id/g;
+ $id++;
+ $i4jentry =~ s/\$\$ID1\$\$/$id/g;
+ $id++;
+ $i4jentry =~ s/\$\$ID2\$\$/$id/g;
+ $id++;
+
+ print IA $i4jentry;