[Libreoffice-commits] core.git: solenv/bin

[Thomas Arnhold]

 solenv/bin/modules/installer/windows/media.pm |   24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

New commits:
commit 01f4383f62b0a4e3b9184456a923d6f8c975cb8b
Author: Thomas Arnhold <thomas at arnhold.org>
Date:   Thu Sep 12 06:29:13 2013 +0200

    installer: restore generate_cab_filename_for_some_cabs
    
    Change-Id: I98155bcf6663aa0e7944807fd7cc8b49ab349ee8

diff --git a/solenv/bin/modules/installer/windows/media.pm b/solenv/bin/modules/installer/windows/media.pm
index 9f53069..7214e90 100644
--- a/solenv/bin/modules/installer/windows/media.pm
+++ b/solenv/bin/modules/installer/windows/media.pm
@@ -61,6 +61,30 @@ sub get_media_source
     return "";
 }
 
+#################################################
+# Creating the cab file name dynamically
+#################################################
+
+sub generate_cab_filename_for_some_cabs
+{
+    my ( $allvariables, $id ) = @_;
+
+    my $name = $allvariables->{'PRODUCTNAME'};
+
+    $name = lc($name);
+    $name =~ s/\.//g;
+    $name =~ s/\s//g;
+
+    # possibility to overwrite the name with variable CABFILENAME
+    if ( $allvariables->{'CABFILENAME'} ) { $name = $allvariables->{'CABFILENAME'}; }
+
+    $name = $name . $id . ".cab";
+
+    if ( $installer::globals::include_cab_in_msi ) { $name = "\#" . $name; }
+
+    return $name;
+}
+
 sub get_maximum_filenumber
 {
     my ($allfiles, $maxcabfilenumber) = @_;