solenv/bin/modules/installer/windows/removefile.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::windows::removefile;
  20
  21 use installer::files;
  22 use installer::globals;
  23 use installer::windows::idtglobal;
  24
  25 ########################################################################
  26 # Returning the FileKey for a folderitem for removefile table.
  27 ########################################################################
  28
  29 sub get_removefile_filekey
  30 {
  31     my ($folderitem) = @_;
  32
  33     # returning the unique identifier
  34
  35     my $identifier = "remove_" . $folderitem->{'directory'};
  36
  37     $identifier = lc($identifier);
  38
  39     return $identifier;
  40 }
  41
  42 ########################################################################
  43 # Returning the Component for a folderitem for removefile table.
  44 ########################################################################
  45
  46 sub get_removefile_component
  47 {
  48     my ($folderitem) = @_;
  49
  50     return $folderitem->{'component'};
  51 }
  52
  53 ########################################################################
  54 # Returning the FileName for a folderitem for removefile table.
  55 ########################################################################
  56
  57 sub get_removefile_filename
  58 {
  59     my ($folderitem) = @_;
  60
  61      # return nothing: The assigned directory will be removed
  62
  63     return "";
  64 }
  65
  66 ########################################################################
  67 # Returning the DirProperty for a folderitem for removefile table.
  68 ########################################################################
  69
  70 sub get_removefile_dirproperty
  71 {
  72     my ($folderitem) = @_;
  73
  74     return $folderitem->{'directory'};
  75 }
  76
  77 ########################################################################
  78 # Returning the InstallMode for a folderitem for removefile table.
  79 ########################################################################
  80
  81 sub get_removefile_installmode
  82 {
  83     my ($folderitem) = @_;
  84
  85     # always returning "2": The file is only removed, if the assigned
  86     # component is removed. Name: msidbRemoveFileInstallModeOnRemove
  87
  88     return 2;
  89 }
  90
  91 ###########################################################################################################
  92 # Creating the file RemoveFi.idt dynamically
  93 # Content:
  94 # FileKey Component_ FileName DirProperty InstallMode
  95 ###########################################################################################################
  96
  97 sub create_removefile_table
  98 {
  99     my ($folderitemsref, $basedir) = @_;
 100
 101     # Only the directories created for the FolderItems have to be deleted
 102     # with the information in the table RemoveFile
 103
 104     my @directorycollector = ();
 105
 106     for ( my $i = 0; $i <= $#{$folderitemsref}; $i++ )
 107     {
 108         my $onelink = ${$folderitemsref}[$i];
 109
 110         if ( $onelink->{'used'} == 0 ) { next; }
 111
 112         next if grep {$_ eq $onelink->{'directory'}} @directorycollector;
 113
 114         push(@directorycollector, $onelink->{'directory'});
 115
 116         my %removefile = ();
 117
 118         $removefile{'FileKey'} = get_removefile_filekey($onelink);
 119         $removefile{'Component_'} = get_removefile_component($onelink);
 120         $removefile{'FileName'} = get_removefile_filename($onelink);
 121         $removefile{'DirProperty'} = get_removefile_dirproperty($onelink);
 122         # fdo#44565 do not remove empty Desktop folder
 123         if ( $removefile{'DirProperty'} eq $installer::globals::desktopfolder ) { next; }
 124         $removefile{'InstallMode'} = get_removefile_installmode($onelink);
 125
 126         my $oneline = $removefile{'FileKey'} . "\t" . $removefile{'Component_'} . "\t" . $removefile{'FileName'} . "\t"
 127                     . $removefile{'DirProperty'} . "\t" . $removefile{'InstallMode'} . "\n";
 128
 129         push(@installer::globals::removefiletable, $oneline);
 130     }
 131
 132     # Saving the file
 133
 134     my $removefiletablename = $basedir . $installer::globals::separator . "RemoveFi.idt";
 135     installer::files::save_file($removefiletablename ,\@installer::globals::removefiletable);
 136     my $infoline = "Created idt file: $removefiletablename\n";
 137     push(@installer::globals::logfileinfo, $infoline);
 138
 139 }
 140
 141 1;