solenv/bin/modules/installer/profiles.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: profiles.pm,v $
  10 #
  11 # $Revision: 1.9 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 package installer::profiles;
  33
  34 use installer::converter;
  35 use installer::existence;
  36 use installer::exiter;
  37 use installer::files;
  38 use installer::globals;
  39 use installer::logger;
  40 use installer::remover;
  41 use installer::systemactions;
  42
  43 #############################
  44 # Profiles
  45 #############################
  46
  47 #######################################################
  48 # Sorting the content of a profile
  49 #######################################################
  50
  51 sub sorting_profile
  52 {
  53     my ($profilesref) = @_;
  54
  55     my @profile = ();
  56     my @definedsections = ();
  57
  58     for ( my $i = 0; $i <= $#{$profilesref}; $i++ )
  59     {
  60         my $line = ${$profilesref}[$i];
  61
  62         if ( $line =~ /^\s*(\[.*\])\s*$/ )      # this is a section (every second line)
  63         {
  64             my $section = $1;
  65
  66             if (!(installer::existence::exists_in_array($section, \@definedsections)))
  67             {
  68                 my $sectionline = $section . "\n";
  69                 push(@definedsections, $section);
  70                 push(@profile, $sectionline);
  71
  72                 for ( my $j = 0; $j <= $#{$profilesref}; $j++ )
  73                 {
  74                     my $oneline = ${$profilesref}[$j];
  75                     installer::remover::remove_leading_and_ending_whitespaces(\$oneline);
  76
  77                     if ( $oneline eq $section )
  78                     {
  79                         my $nextline = ${$profilesref}[$j+1];
  80                         push(@profile, $nextline);
  81                     }
  82                 }
  83             }
  84         }
  85     }
  86
  87     return \@profile;
  88 }
  89
  90 #####################################################################
  91 # Adding the newly created profile into the file list
  92 #####################################################################
  93
  94 sub add_profile_into_filelist
  95 {
  96     my ($filesarrayref, $oneprofile, $completeprofilename, $allvariables) = @_;
  97
  98     my %profile = ();
  99
 100     # Taking the base data from the "gid_File_Lib_Vcl"
 101
 102     my $vclgid = "gid_File_Lib_Vcl";
 103     if ( $allvariables->{'GLOBALFILEGID'} ) { $vclgid = $allvariables->{'GLOBALFILEGID'}; }
 104     my $vclfile = installer::existence::get_specified_file($filesarrayref, $vclgid);
 105
 106     # copying all base data
 107     installer::converter::copy_item_object($vclfile, \%profile);
 108
 109     # and overriding all new values
 110
 111     $profile{'ismultilingual'} = 0;
 112     $profile{'sourcepath'} = $completeprofilename;
 113     $profile{'Name'} = $oneprofile->{'Name'};
 114     $profile{'UnixRights'} = "444";
 115     $profile{'gid'} = $oneprofile->{'gid'};
 116     $profile{'Dir'} = $oneprofile->{'Dir'};
 117     $profile{'destination'} = $oneprofile->{'destination'};
 118     $profile{'Styles'} = "";
 119     if ( $oneprofile->{'Styles'} ) { $profile{'Styles'} = $oneprofile->{'Styles'}; }
 120     $profile{'modules'} = $oneprofile->{'ModuleID'};    # Profiles can only be added completely to a module
 121
 122     push(@{$filesarrayref}, \%profile);
 123 }
 124
 125 ###################################################
 126 # Including Windows line ends in ini files
 127 # Profiles on Windows shall have \r\n line ends
 128 ###################################################
 129
 130 sub include_windows_lineends
 131 {
 132     my ($onefile) = @_;
 133
 134     for ( my $i = 0; $i <= $#{$onefile}; $i++ )
 135     {
 136         ${$onefile}[$i] =~ s/\r?\n$/\r\n/;
 137     }
 138 }
 139
 140 ####################################
 141 # Create profiles
 142 ####################################
 143
 144 sub create_profiles
 145 {
 146     my ($profilesref, $profileitemsref, $filesarrayref, $languagestringref, $allvariables) = @_;
 147
 148     my $infoline;
 149
 150     my $profilesdir = installer::systemactions::create_directories("profiles", $languagestringref);
 151
 152     installer::logger::include_header_into_logfile("Creating profiles:");
 153
 154     # Attention: The module dependencies from ProfileItems have to be ignored, because
 155     # the Profile has to be installed completely with all of its content and the correct name.
 156     # Only complete profiles can belong to a specified module, but not ProfileItems!
 157
 158     # iterating over all files
 159
 160     for ( my $i = 0; $i <= $#{$profilesref}; $i++ )
 161     {
 162         my $oneprofile = ${$profilesref}[$i];
 163         my $dir = $oneprofile->{'Dir'};
 164         if ( $dir eq "PREDEFINED_CONFIGDIR" ) { next; }         # ignoring the profile sversion file
 165
 166         my $profilegid = $oneprofile->{'gid'};
 167         my $profilename = $oneprofile->{'Name'};
 168
 169         my $localprofilesdir = $profilesdir . $installer::globals::separator . $profilegid; # uniqueness guaranteed by gid
 170         if ( ! -d $localprofilesdir ) { installer::systemactions::create_directory($localprofilesdir); }
 171
 172         my @onefile = ();
 173         my $profileempty = 1;
 174
 175         for ( my $j = 0; $j <= $#{$profileitemsref}; $j++ )
 176         {
 177             my $oneprofileitem = ${$profileitemsref}[$j];
 178
 179             my $styles = "";
 180             if ( $oneprofileitem->{'Styles'} ) { $styles = $oneprofileitem->{'Styles'}; }
 181             if ( $styles =~ /\bINIFILETABLE\b/ ) { next; }      # these values are written during installation, not during packing
 182
 183             my $profileid = $oneprofileitem->{'ProfileID'};
 184
 185             if ( $profileid eq $profilegid )
 186             {
 187                 my $section = $oneprofileitem->{'Section'};
 188                 my $key = $oneprofileitem->{'Key'};
 189                 my $value = $oneprofileitem->{'Value'};
 190                 for (my $pk = 1; $pk <= 50; $pk++)
 191                 {
 192                     my $key = "ValueList" . $pk;
 193                     if ( $oneprofileitem->{$key} )
 194                         { $value = $value . " " . $oneprofileitem->{$key} }
 195                 }
 196                 my $order = $oneprofileitem->{'Order'}; # ignoring order at the moment
 197
 198                 my $line = "[" . $section . "]" . "\n";
 199                 push(@onefile, $line);
 200                 $line = $key . "=" . $value . "\n";
 201                 push(@onefile, $line);
 202
 203                 $profileempty = 0;
 204             }
 205         }
 206
 207         if ( $profileempty ) { next; }  # ignoring empty profiles
 208
 209         # Sorting the array @onefile
 210         my $onefileref = sorting_profile(\@onefile);
 211
 212         if ( $installer::globals::iswin && $installer::globals::plat =~ /cygwin/i)              # Windows line ends only for Cygwin
 213         {
 214             include_windows_lineends($onefileref);
 215         }
 216
 217         # Saving the profile as a file
 218         $completeprofilename = $localprofilesdir . $installer::globals::separator . $profilename;
 219
 220         installer::files::save_file($completeprofilename, $onefileref);
 221
 222         # Adding the file to the filearray
 223         # Some data are set now, others are taken from the file "soffice.exe" ("soffice.bin")
 224         add_profile_into_filelist($filesarrayref, $oneprofile, $completeprofilename, $allvariables);
 225
 226         $infoline = "Created Profile: $completeprofilename\n";
 227         push( @installer::globals::logfileinfo, $infoline);
 228     }
 229
 230     $infoline = "\n";
 231     push( @installer::globals::logfileinfo, $infoline);
 232 }
 233
 234
 235 1;