1*cdf0e10cSrcweir#*************************************************************************
2*cdf0e10cSrcweir#
3*cdf0e10cSrcweir# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4*cdf0e10cSrcweir#
5*cdf0e10cSrcweir# Copyright 2000, 2010 Oracle and/or its affiliates.
6*cdf0e10cSrcweir#
7*cdf0e10cSrcweir# OpenOffice.org - a multi-platform office productivity suite
8*cdf0e10cSrcweir#
9*cdf0e10cSrcweir# This file is part of OpenOffice.org.
10*cdf0e10cSrcweir#
11*cdf0e10cSrcweir# OpenOffice.org is free software: you can redistribute it and/or modify
12*cdf0e10cSrcweir# it under the terms of the GNU Lesser General Public License version 3
13*cdf0e10cSrcweir# only, as published by the Free Software Foundation.
14*cdf0e10cSrcweir#
15*cdf0e10cSrcweir# OpenOffice.org is distributed in the hope that it will be useful,
16*cdf0e10cSrcweir# but WITHOUT ANY WARRANTY; without even the implied warranty of
17*cdf0e10cSrcweir# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18*cdf0e10cSrcweir# GNU Lesser General Public License version 3 for more details
19*cdf0e10cSrcweir# (a copy is included in the LICENSE file that accompanied this code).
20*cdf0e10cSrcweir#
21*cdf0e10cSrcweir# You should have received a copy of the GNU Lesser General Public License
22*cdf0e10cSrcweir# version 3 along with OpenOffice.org.  If not, see
23*cdf0e10cSrcweir# <http://www.openoffice.org/license.html>
24*cdf0e10cSrcweir# for a copy of the LGPLv3 License.
25*cdf0e10cSrcweir#
26*cdf0e10cSrcweir#*************************************************************************
27*cdf0e10cSrcweir
28*cdf0e10cSrcweirpackage installer::windows::binary;
29*cdf0e10cSrcweir
30*cdf0e10cSrcweiruse installer::existence;
31*cdf0e10cSrcweiruse installer::files;
32*cdf0e10cSrcweiruse installer::globals;
33*cdf0e10cSrcweir
34*cdf0e10cSrcweir###########################################################################################################
35*cdf0e10cSrcweir# Updating the table Binary dynamically with all files from $binarytablefiles
36*cdf0e10cSrcweir# Content:
37*cdf0e10cSrcweir# Name	Data
38*cdf0e10cSrcweir# s72	v0
39*cdf0e10cSrcweir# Binary	Name
40*cdf0e10cSrcweir###########################################################################################################
41*cdf0e10cSrcweir
42*cdf0e10cSrcweirsub update_binary_table
43*cdf0e10cSrcweir{
44*cdf0e10cSrcweir	my ($languageidtdir, $filesref, $binarytablefiles) = @_;
45*cdf0e10cSrcweir
46*cdf0e10cSrcweir	my $binaryidttablename = $languageidtdir . $installer::globals::separator . "Binary.idt";
47*cdf0e10cSrcweir	my $binaryidttable = installer::files::read_file($binaryidttablename);
48*cdf0e10cSrcweir
49*cdf0e10cSrcweir	# Only the iconfiles, that are used in the shortcut table for the
50*cdf0e10cSrcweir	# FolderItems (entries in Windows startmenu) are added into the icon table.
51*cdf0e10cSrcweir
52*cdf0e10cSrcweir	for ( my $i = 0; $i <= $#{$binarytablefiles}; $i++ )
53*cdf0e10cSrcweir	{
54*cdf0e10cSrcweir		my $binaryfile = ${$binarytablefiles}[$i];
55*cdf0e10cSrcweir		my $binaryfilename = $binaryfile->{'Name'};
56*cdf0e10cSrcweir		my $binaryfiledata = $binaryfilename;
57*cdf0e10cSrcweir
58*cdf0e10cSrcweir		$binaryfilename =~ s/\.//g;	 # removing "." in filename: "abc.dll" to "abcdll" in name column
59*cdf0e10cSrcweir
60*cdf0e10cSrcweir		my %binary = ();
61*cdf0e10cSrcweir
62*cdf0e10cSrcweir		$binary{'Name'} = $binaryfilename;
63*cdf0e10cSrcweir		$binary{'Data'} = $binaryfiledata;
64*cdf0e10cSrcweir
65*cdf0e10cSrcweir		my $oneline = $binary{'Name'} . "\t" . $binary{'Data'} . "\n";
66*cdf0e10cSrcweir
67*cdf0e10cSrcweir		push(@{$binaryidttable}, $oneline);
68*cdf0e10cSrcweir	}
69*cdf0e10cSrcweir
70*cdf0e10cSrcweir	# Saving the file
71*cdf0e10cSrcweir
72*cdf0e10cSrcweir	installer::files::save_file($binaryidttablename ,$binaryidttable);
73*cdf0e10cSrcweir	my $infoline = "Updated idt file: $binaryidttablename\n";
74*cdf0e10cSrcweir	push(@installer::globals::logfileinfo, $infoline);
75*cdf0e10cSrcweir}
76*cdf0e10cSrcweir
77*cdf0e10cSrcweir1;
78