144 lines
4.7 KiB
Perl
144 lines
4.7 KiB
Perl
#
|
|
# This file is part of the LibreOffice project.
|
|
#
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
#
|
|
# This file incorporates work covered by the following license notice:
|
|
#
|
|
# Licensed to the Apache Software Foundation (ASF) under one or more
|
|
# contributor license agreements. See the NOTICE file distributed
|
|
# with this work for additional information regarding copyright
|
|
# ownership. The ASF licenses this file to you under the Apache
|
|
# License, Version 2.0 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
#
|
|
|
|
package installer::windows::removefile;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use installer::files;
|
|
use installer::globals;
|
|
use installer::windows::idtglobal;
|
|
|
|
########################################################################
|
|
# Returning the FileKey for a folderitem for removefile table.
|
|
########################################################################
|
|
|
|
sub get_removefile_filekey
|
|
{
|
|
my ($folderitem) = @_;
|
|
|
|
# returning the unique identifier
|
|
|
|
my $identifier = "remove_" . $folderitem->{'directory'};
|
|
|
|
$identifier = lc($identifier);
|
|
|
|
return $identifier;
|
|
}
|
|
|
|
########################################################################
|
|
# Returning the Component for a folderitem for removefile table.
|
|
########################################################################
|
|
|
|
sub get_removefile_component
|
|
{
|
|
my ($folderitem) = @_;
|
|
|
|
return $folderitem->{'component'};
|
|
}
|
|
|
|
########################################################################
|
|
# Returning the FileName for a folderitem for removefile table.
|
|
########################################################################
|
|
|
|
sub get_removefile_filename
|
|
{
|
|
my ($folderitem) = @_;
|
|
|
|
# return nothing: The assigned directory will be removed
|
|
|
|
return "";
|
|
}
|
|
|
|
########################################################################
|
|
# Returning the DirProperty for a folderitem for removefile table.
|
|
########################################################################
|
|
|
|
sub get_removefile_dirproperty
|
|
{
|
|
my ($folderitem) = @_;
|
|
|
|
return $folderitem->{'directory'};
|
|
}
|
|
|
|
########################################################################
|
|
# Returning the InstallMode for a folderitem for removefile table.
|
|
########################################################################
|
|
|
|
sub get_removefile_installmode
|
|
{
|
|
my ($folderitem) = @_;
|
|
|
|
# always returning "2": The file is only removed, if the assigned
|
|
# component is removed. Name: msidbRemoveFileInstallModeOnRemove
|
|
|
|
return 2;
|
|
}
|
|
|
|
###########################################################################################################
|
|
# Creating the file RemoveFi.idt dynamically
|
|
# Content:
|
|
# FileKey Component_ FileName DirProperty InstallMode
|
|
###########################################################################################################
|
|
|
|
sub create_removefile_table
|
|
{
|
|
my ($folderitemsref, $basedir) = @_;
|
|
|
|
# Only the directories created for the FolderItems have to be deleted
|
|
# with the information in the table RemoveFile
|
|
|
|
my @directorycollector = ();
|
|
|
|
for ( my $i = 0; $i <= $#{$folderitemsref}; $i++ )
|
|
{
|
|
my $onelink = ${$folderitemsref}[$i];
|
|
|
|
if ( $onelink->{'used'} == 0 ) { next; }
|
|
|
|
next if grep {$_ eq $onelink->{'directory'}} @directorycollector;
|
|
|
|
push(@directorycollector, $onelink->{'directory'});
|
|
|
|
my %removefile = ();
|
|
|
|
$removefile{'FileKey'} = get_removefile_filekey($onelink);
|
|
$removefile{'Component_'} = get_removefile_component($onelink);
|
|
$removefile{'FileName'} = get_removefile_filename($onelink);
|
|
$removefile{'DirProperty'} = get_removefile_dirproperty($onelink);
|
|
# fdo#44565 do not remove empty Desktop folder
|
|
if ( $removefile{'DirProperty'} eq $installer::globals::desktopfolder ) { next; }
|
|
$removefile{'InstallMode'} = get_removefile_installmode($onelink);
|
|
|
|
my $oneline = $removefile{'FileKey'} . "\t" . $removefile{'Component_'} . "\t" . $removefile{'FileName'} . "\t"
|
|
. $removefile{'DirProperty'} . "\t" . $removefile{'InstallMode'} . "\n";
|
|
|
|
push(@installer::globals::removefiletable, $oneline);
|
|
}
|
|
|
|
# Saving the file
|
|
|
|
my $removefiletablename = $basedir . $installer::globals::separator . "RemoveFi.idt";
|
|
installer::files::save_file($removefiletablename ,\@installer::globals::removefiletable);
|
|
my $infoline = "Created idt file: $removefiletablename\n";
|
|
push(@installer::globals::logfileinfo, $infoline);
|
|
|
|
}
|
|
|
|
1;
|