strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS socs17 (1.64.18); FILE MERGED

Browse source 
2008/07/22 13:58:46 tkr 1.64.18.1: #158228# license text added
This commit is contained in:
Oliver Bolte 2008-07-25 10:52:08 +00:00
parent 9802ee93a6
commit 66cc159985
1 changed files with 34 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
solenv/bin/modules/installer/worker.pm
View file

@ -8,7 +8,7 @@
#
# $RCSfile: worker.pm,v $
#
# $Revision: 1.64 $
# $Revision: 1.65 $
#
# This file is part of OpenOffice.org.
#
@ -2958,4 +2958,37 @@ sub set_spellcheckerlanguages
push( @installer::globals::globallogfileinfo, $infoline);
}
################################################
# Including a license text into setup script
################################################
sub put_license_into_setup
{
my ($installdir, $includepatharrayref) = @_;
# find and read english license file
my $licenselanguage = "en-US"; # always english !
my $licensefilename = "LICENSE_" . $licenselanguage;
my $licenseincludepatharrayref = get_language_specific_include_pathes($includepatharrayref, $licenselanguage);
my $licenseref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$licensefilename, $licenseincludepatharrayref, 0);
if ($$licenseref eq "") { installer::exiter::exit_program("ERROR: Could not find License file $licensefilename!", "put_license_into_setup"); }
my $licensefile = installer::files::read_file($$licenseref);
# Read setup
my $setupfilename = $installdir . $installer::globals::separator . "setup";
my $setupfile = installer::files::read_file($setupfilename);
# Replacement
my $infoline = "Adding licensefile into setup script\n";
push( @installer::globals::logfileinfo, $infoline);
my $includestring = "";
for ( my $i = 0; $i <= $#{$licensefile}; $i++ ) { $includestring = $includestring . ${$licensefile}[$i]; }
for ( my $i = 0; $i <= $#{$setupfile}; $i++ ) { ${$setupfile}[$i] =~ s/LICENSEFILEPLACEHOLDER/$includestring/; }
# Write setup
installer::files::save_file($setupfilename, $setupfile);
}
1;