office-gobmx/solenv/bin/modules/installer/profiles.pm
Jens-Heiner Rechtien 5b282e1629 INTEGRATION: CWS systemjava (1.5.266); FILE MERGED
2006/03/22 13:49:20 cmc 1.5.266.1: #i61189# allow a valuelist for profile entries
2006-04-19 14:08:57 +00:00

235 lines
7.6 KiB
Perl

#*************************************************************************
#
# OpenOffice.org - a multi-platform office productivity suite
#
# $RCSfile: profiles.pm,v $
#
# $Revision: 1.6 $
#
# last change: $Author: hr $ $Date: 2006-04-19 15:08:57 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
#
#
# GNU Lesser General Public License Version 2.1
# =============================================
# Copyright 2005 by Sun Microsystems, Inc.
# 901 San Antonio Road, Palo Alto, CA 94303, USA
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License version 2.1, as published by the Free Software Foundation.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA
#
#*************************************************************************
package installer::profiles;
use installer::converter;
use installer::existence;
use installer::exiter;
use installer::files;
use installer::globals;
use installer::logger;
use installer::remover;
use installer::systemactions;
#############################
# Profiles
#############################
#######################################################
# Sorting the content of a profile
#######################################################
sub sorting_profile
{
my ($profilesref) = @_;
my @profile = ();
my @definedsections = ();
for ( my $i = 0; $i <= $#{$profilesref}; $i++ )
{
my $line = ${$profilesref}[$i];
if ( $line =~ /^\s*(\[.*\])\s*$/ ) # this is a section (every second line)
{
my $section = $1;
if (!(installer::existence::exists_in_array($section, \@definedsections)))
{
my $sectionline = $section . "\n";
push(@definedsections, $section);
push(@profile, $sectionline);
for ( my $j = 0; $j <= $#{$profilesref}; $j++ )
{
my $oneline = ${$profilesref}[$j];
installer::remover::remove_leading_and_ending_whitespaces(\$oneline);
if ( $oneline eq $section )
{
my $nextline = ${$profilesref}[$j+1];
push(@profile, $nextline);
}
}
}
}
}
return \@profile;
}
#####################################################################
# Adding the newly created profile into the file list
#####################################################################
sub add_profile_into_filelist
{
my ($filesarrayref, $oneprofile, $completeprofilename) = @_;
my %profile = ();
# Taking the base data from the "gid_File_Lib_Vcl"
my $vclgid = "gid_File_Lib_Vcl";
my $vclfile = installer::existence::get_specified_file($filesarrayref, $vclgid);
# copying all base data
installer::converter::copy_item_object($vclfile, \%profile);
# and overriding all new values
$profile{'ismultilingual'} = 0;
$profile{'sourcepath'} = $completeprofilename;
$profile{'Name'} = $oneprofile->{'Name'};
$profile{'UnixRights'} = "444";
$profile{'gid'} = $oneprofile->{'gid'};
$profile{'Dir'} = $oneprofile->{'Dir'};
$profile{'destination'} = $oneprofile->{'destination'};
$profile{'Styles'} = "";
if ( $oneprofile->{'Styles'} ) { $profile{'Styles'} = $oneprofile->{'Styles'}; }
$profile{'modules'} = $oneprofile->{'ModuleID'}; # Profiles can only be added completely to a module
push(@{$filesarrayref}, \%profile);
}
###################################################
# Including Windows line ends in ini files
# Profiles on Windows shall have \r\n line ends
###################################################
sub include_windows_lineends
{
my ($onefile) = @_;
for ( my $i = 0; $i <= $#{$onefile}; $i++ )
{
${$onefile}[$i] =~ s/\r?\n$/\r\n/;
}
}
####################################
# Create profiles
####################################
sub create_profiles
{
my ($profilesref, $profileitemsref, $filesarrayref, $languagestringref) = @_;
my $infoline;
my $profilesdir = installer::systemactions::create_directories("profiles", $languagestringref);
installer::logger::include_header_into_logfile("Creating profiles:");
# Attention: The module dependencies from ProfileItems have to be ignored, because
# the Profile has to be installed completely with all of its content and the correct name.
# Only complete profiles can belong to a specified module, but not ProfileItems!
# iterating over all files
for ( my $i = 0; $i <= $#{$profilesref}; $i++ )
{
my $oneprofile = ${$profilesref}[$i];
my $dir = $oneprofile->{'Dir'};
if ( $dir eq "PREDEFINED_CONFIGDIR" ) { next; } # ignoring the profile sversion file
my $profilegid = $oneprofile->{'gid'};
my $profilename = $oneprofile->{'Name'};
my @onefile = ();
my $profileempty = 1;
for ( my $j = 0; $j <= $#{$profileitemsref}; $j++ )
{
my $oneprofileitem = ${$profileitemsref}[$j];
my $styles = "";
if ( $oneprofileitem->{'Styles'} ) { $styles = $oneprofileitem->{'Styles'}; }
if ( $styles =~ /\bINIFILETABLE\b/ ) { next; } # these values are written during installation, not during packing
my $profileid = $oneprofileitem->{'ProfileID'};
if ( $profileid eq $profilegid )
{
my $section = $oneprofileitem->{'Section'};
my $key = $oneprofileitem->{'Key'};
my $value = $oneprofileitem->{'Value'};
for (my $pk = 1; $pk <= 50; $pk++)
{
my $key = "ValueList" . $pk;
if ( $oneprofileitem->{$key} )
{ $value = $value . " " . $oneprofileitem->{$key} }
}
my $order = $oneprofileitem->{'Order'}; # ignoring order at the moment
my $line = "[" . $section . "]" . "\n";
push(@onefile, $line);
$line = $key . "=" . $value . "\n";
push(@onefile, $line);
$profileempty = 0;
}
}
if ( $profileempty ) { next; } # ignoring empty profiles
# Sorting the array @onefile
my $onefileref = sorting_profile(\@onefile);
if ( $installer::globals::iswin && $installer::globals::plat =~ /cygwin/i) # Windows line ends only for Cygwin
{
include_windows_lineends($onefileref);
}
# Saving the profile as a file
$completeprofilename = $profilesdir . $installer::globals::separator . $profilename;
installer::files::save_file($completeprofilename, $onefileref);
# Adding the file to the filearray
# Some data are set now, others are taken from the file "soffice.exe" ("soffice.bin")
add_profile_into_filelist($filesarrayref, $oneprofile, $completeprofilename);
$infoline = "Created Profile: $completeprofilename\n";
push( @installer::globals::logfileinfo, $infoline);
}
$infoline = "\n";
push( @installer::globals::logfileinfo, $infoline);
}
1;