AOO410/main/solenv/bin/modules/installer/windows/icon.pm

#**************************************************************
#  
#  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
#  
#  Unless required by applicable law or agreed to in writing,
#  software distributed under the License is distributed on an
#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#  KIND, either express or implied.  See the License for the
#  specific language governing permissions and limitations
#  under the License.
#  
#**************************************************************



package installer::windows::icon;

use installer::files;
use installer::globals;
use installer::pathanalyzer;
use installer::windows::idtglobal;

###########################################################################################################
# Creating the file Icon.idt dynamically
# Content: 
# Name Data
###########################################################################################################

sub create_icon_table
{
	my ($iconfilecollector, $basedir) = @_;

	my @icontable = ();
	
	installer::windows::idtglobal::write_idt_header(\@icontable, "icon");

	# Only the iconfiles, that are used in the shortcut table for the 
	# FolderItems (entries in Windows startmenu) are added into the icon table.

	for ( my $i = 0; $i <= $#{$iconfilecollector}; $i++ )
	{
		my $iconfile = ${$iconfilecollector}[$i];
		
		installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$iconfile);
		
		my %icon = ();

		$icon{'Name'} = $iconfile;	# simply soffice.exe
		$icon{'Data'} = $iconfile;	# simply soffice.exe

		my $oneline = $icon{'Name'} . "\t" . $icon{'Data'} . "\n";

		push(@icontable, $oneline);		
	}

	# Saving the file
	
	my $icontablename = $basedir . $installer::globals::separator . "Icon.idt";
	installer::files::save_file($icontablename ,\@icontable);
    $installer::logger::Lang->printf("Created idt file: %s\n", $icontablename); 
}

1;