546 lines
21 KiB
Perl
546 lines
21 KiB
Perl
#
|
|
# This file is part of the LibreOffice project.
|
|
#
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
#
|
|
# This file incorporates work covered by the following license notice:
|
|
#
|
|
# 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 .
|
|
#
|
|
|
|
package installer::parameter;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Cwd;
|
|
use installer::exiter;
|
|
use installer::files;
|
|
use installer::globals;
|
|
use installer::logger;
|
|
use installer::remover;
|
|
use installer::systemactions;
|
|
use File::Temp qw/ :mktemp /;
|
|
|
|
############################################
|
|
# Parameter Operations
|
|
############################################
|
|
|
|
sub usage
|
|
{
|
|
print <<End;
|
|
--------------------------------------------------------------------------------
|
|
The following parameter are needed:
|
|
-f: Path to the product list (required)
|
|
-s: Path to the setup script (optional, if defined in product list)
|
|
-i: Install path of the product (/opt/openofficeorg20) (optional)
|
|
-p: Product from product list to be created (required)
|
|
-l: Language of the product (comma and hash) (optional, defined in productlist)
|
|
-simple: Path to do a simple install to
|
|
-u: Path, in which zipfiles are unpacked (optional)
|
|
-msitemplate: Source of the msi file templates (Windows compiler only)
|
|
-msilanguage: Source of the msi file templates (Windows compiler only)
|
|
-buildid: Current BuildID (optional)
|
|
-pro: Product version
|
|
-format: Package format
|
|
-debian: Create Debian packages for Linux
|
|
-dontunzip: do not unzip all files with flag ARCHIVE
|
|
-dontcallepm : do not call epm to create install sets (opt., non-Windows only)
|
|
-ispatchedepm : Usage of a patched (non-standard) epm (opt., non-Windows only)
|
|
-copyproject : is set for projects that are only used for copying (optional)
|
|
-languagepack : do create a languagepack, no product pack (optional)
|
|
-helppack : do create a helppack, no product pack (optional)
|
|
-strip: Stripping files (Unix only)
|
|
-packer: Path and parameters for tarball packaging tool (default: gzip (Unix only))
|
|
-log : Logging all available information (optional)
|
|
|
|
Examples for Windows:
|
|
|
|
perl make_epmlist.pl -f zip.lst -p OfficeFAT -l en-US
|
|
-u /export/unpack -buildid 8712
|
|
-msitemplate /export/msi_files
|
|
-msilanguage /export/msi_languages
|
|
|
|
Examples for Non-Windows:
|
|
|
|
perl make_epmlist.pl -f zip.lst -p OfficeFAT -l en-US -format rpm
|
|
-u /export/unpack -buildid 8712 -ispatchedepm
|
|
--------------------------------------------------------------------------------
|
|
End
|
|
exit(-1);
|
|
}
|
|
|
|
#########################################
|
|
# Writing all parameter into logfile
|
|
#########################################
|
|
|
|
sub saveparameter
|
|
{
|
|
my $include = "";
|
|
|
|
installer::logger::globallog("Command line arguments:");
|
|
|
|
for ( my $i = 0; $i <= $#ARGV; $i++ )
|
|
{
|
|
$include = $ARGV[$i] . "\n";
|
|
push(@installer::globals::globallogfileinfo, $include);
|
|
}
|
|
|
|
# also saving global settings:
|
|
|
|
$include = "Separator: $installer::globals::separator\n";
|
|
push(@installer::globals::globallogfileinfo, $include);
|
|
|
|
}
|
|
|
|
#####################################
|
|
# Reading parameter
|
|
#####################################
|
|
|
|
sub getparameter
|
|
{
|
|
while ( $#ARGV >= 0 )
|
|
{
|
|
my $param = shift(@ARGV);
|
|
|
|
if ($param eq "-f") { $installer::globals::ziplistname = shift(@ARGV); }
|
|
elsif ($param eq "-s") { $installer::globals::setupscriptname = shift(@ARGV); }
|
|
elsif ($param eq "-p") { $installer::globals::product = shift(@ARGV); }
|
|
elsif ($param eq "-l") { $installer::globals::languagelist = shift(@ARGV); }
|
|
elsif ($param eq "-dontunzip") { $installer::globals::dounzip = 0; }
|
|
elsif ($param eq "-pro") { $installer::globals::pro = 1; }
|
|
elsif ($param eq "-format") { $installer::globals::packageformat = shift(@ARGV); }
|
|
elsif ($param eq "-quiet") { $installer::globals::quiet = 1; }
|
|
elsif ($param eq "-verbose") { $installer::globals::quiet = 0; }
|
|
elsif ($param eq "-u") { $installer::globals::unpackpath = shift(@ARGV); }
|
|
elsif ($param eq "-i") { $installer::globals::rootpath = shift(@ARGV); }
|
|
elsif ($param eq "-dontcallepm") { $installer::globals::call_epm = 0; }
|
|
elsif ($param eq "-msitemplate") { $installer::globals::idttemplatepath = shift(@ARGV); }
|
|
elsif ($param eq "-msilanguage") { $installer::globals::idtlanguagepath = shift(@ARGV); }
|
|
elsif ($param eq "-buildid") { $installer::globals::buildid = shift(@ARGV); }
|
|
elsif ($param eq "-copyproject") { $installer::globals::is_copy_only_project = 1; }
|
|
elsif ($param eq "-languagepack") { $installer::globals::languagepack = 1; }
|
|
elsif ($param eq "-helppack") { $installer::globals::helppack = 1;}
|
|
elsif ($param eq "-debian") { $installer::globals::debian = 1; }
|
|
elsif ($param eq "-strip") { $installer::globals::strip = 1; }
|
|
elsif ($param eq "-packer") { $installer::globals::packertool = shift(@ARGV); }
|
|
elsif ($param eq "-destdir") # new parameter for simple installer
|
|
{
|
|
$installer::globals::rootpath ne "" && die "must set destdir before -i or -simple";
|
|
|
|
my $path = shift(@ARGV);
|
|
mkdir $path;
|
|
$installer::globals::destdir = Cwd::realpath($path);
|
|
}
|
|
elsif ($param eq "-simple") # new parameter for simple installer
|
|
{
|
|
$installer::globals::simple = 1;
|
|
$installer::globals::call_epm = 0;
|
|
$installer::globals::makedownload = 0;
|
|
my $path = shift(@ARGV);
|
|
$path =~ s/^\Q$installer::globals::destdir\E//;
|
|
$installer::globals::rootpath = $path;
|
|
}
|
|
else
|
|
{
|
|
installer::logger::print_error( "unknown parameter: $param" );
|
|
usage();
|
|
exit(-1);
|
|
}
|
|
}
|
|
|
|
# Usage of simple installer (not for Windows):
|
|
# $PERL -w $SRCDIR/solenv/bin/make_installer.pl \
|
|
# -f openoffice.lst -l en-US -p OpenOffice \
|
|
# -buildid $BUILD -rpm \
|
|
# -destdir /tmp/nurk -simple $INSTALL_PATH
|
|
}
|
|
|
|
############################################
|
|
# Controlling the fundamental parameter
|
|
# (required for every process)
|
|
############################################
|
|
|
|
sub control_fundamental_parameter
|
|
{
|
|
if ($installer::globals::product eq "")
|
|
{
|
|
installer::logger::print_error( "Product name not set!" );
|
|
usage();
|
|
exit(-1);
|
|
}
|
|
}
|
|
|
|
##########################################################
|
|
# The path parameters can be relative or absolute.
|
|
# This function creates absolute paths.
|
|
##########################################################
|
|
|
|
sub make_path_absolute
|
|
{
|
|
my ($pathref) = @_;
|
|
return if ( $^O =~ /MSWin/i ); # no need to do anything here
|
|
|
|
if ( $installer::globals::isunix )
|
|
{
|
|
if (!($$pathref =~ /^\s*\//)) # this is a relative unix path
|
|
{
|
|
$$pathref = cwd() . $installer::globals::separator . $$pathref;
|
|
}
|
|
}
|
|
|
|
if ( $installer::globals::iswin )
|
|
{
|
|
if ( $^O =~ /cygwin/i )
|
|
{
|
|
if ( $$pathref !~ /^\s*\// && $$pathref !~ /^\s*\w\:/ ) # not an absolute POSIX or DOS path
|
|
{
|
|
$$pathref = cwd() . $installer::globals::separator . $$pathref;
|
|
}
|
|
my $p = $$pathref;
|
|
chomp( $p );
|
|
my $q = '';
|
|
# Avoid the $(LANG) problem.
|
|
if ($p =~ /(\A.*)(\$\(.*\Z)/) {
|
|
$p = $1;
|
|
$q = $2;
|
|
}
|
|
$p =~ s/\\/\\\\/g;
|
|
chomp( $p = qx{cygpath -w "$p"} );
|
|
$$pathref = $p.$q;
|
|
# Use windows paths, but with '/'s.
|
|
$$pathref =~ s/\\/\//g;
|
|
}
|
|
else
|
|
{
|
|
if (!($$pathref =~ /^\s*\w\:/)) # this is a relative windows path (no dos drive)
|
|
{
|
|
$$pathref = cwd() . $installer::globals::separator . $$pathref;
|
|
|
|
$$pathref =~ s/\//\\/g;
|
|
}
|
|
}
|
|
}
|
|
$$pathref =~ s/[\/\\]\s*$//; # removing ending slashes
|
|
}
|
|
|
|
# Setting some global parameters
|
|
# This has to be expanded with further platforms
|
|
|
|
sub setglobalvariables
|
|
{
|
|
# Setting the installertype directory corresponding to the environment variable PKGFORMAT
|
|
# The global variable $installer::globals::packageformat can only contain one package format.
|
|
# If PKGFORMAT contains more than one format (for example "rpm deb") this is split in the
|
|
# makefile calling the perl program.
|
|
$installer::globals::installertypedir = $installer::globals::packageformat;
|
|
|
|
if ( $installer::globals::os eq 'WNT' )
|
|
{
|
|
$installer::globals::iswindowsbuild = 1;
|
|
}
|
|
|
|
if ( $installer::globals::os eq 'SOLARIS')
|
|
{
|
|
$installer::globals::issolarisbuild = 1;
|
|
if ( $installer::globals::packageformat eq "pkg" )
|
|
{
|
|
$installer::globals::issolarispkgbuild = 1;
|
|
$installer::globals::epmoutpath = "packages";
|
|
}
|
|
if ( $installer::globals::cpuname eq 'INTEL')
|
|
{
|
|
$installer::globals::issolarisx86build = 1;
|
|
}
|
|
else
|
|
{
|
|
$installer::globals::issolarissparcbuild = 1;
|
|
}
|
|
}
|
|
|
|
if ( $installer::globals::os eq 'MACOSX' )
|
|
{
|
|
$installer::globals::ismacbuild = 1;
|
|
|
|
if ( $installer::globals::packageformat eq "dmg" )
|
|
{
|
|
$installer::globals::ismacdmgbuild = 1;
|
|
}
|
|
}
|
|
|
|
if ( $installer::globals::os eq 'OPENBSD')
|
|
{
|
|
$installer::globals::epmoutpath = "openbsd";
|
|
}
|
|
|
|
if ( $installer::globals::os eq 'FREEBSD')
|
|
{
|
|
$installer::globals::isfreebsdbuild = 1;
|
|
|
|
if ( $installer::globals::packageformat eq "bsd" )
|
|
{
|
|
$installer::globals::epmoutpath = "freebsd";
|
|
$installer::globals::isfreebsdpkgbuild = 1;
|
|
}
|
|
}
|
|
|
|
if ($installer::globals::os eq 'LINUX')
|
|
{
|
|
$installer::globals::islinuxbuild = 1;
|
|
if ( $installer::globals::packageformat eq "rpm" )
|
|
{
|
|
$installer::globals::isrpmbuild = 1;
|
|
$installer::globals::epmoutpath = "RPMS";
|
|
|
|
if ( $installer::globals::rpm eq "" ) { installer::exiter::exit_program("ERROR: Environment variable \"\$RPM\" has to be defined!", "setglobalvariables"); }
|
|
}
|
|
|
|
# Creating Debian packages ?
|
|
if (( $installer::globals::packageformat eq "deb" ) || ( $installer::globals::debian ))
|
|
{
|
|
$installer::globals::debian = 1;
|
|
$installer::globals::packageformat = "deb";
|
|
my $message = "Creating Debian packages";
|
|
installer::logger::print_message( $message );
|
|
push(@installer::globals::globallogfileinfo, $message);
|
|
$installer::globals::isrpmbuild = 0;
|
|
$installer::globals::isdebbuild = 1;
|
|
$installer::globals::epmoutpath = "DEBS";
|
|
}
|
|
}
|
|
|
|
# Defaulting to native package format for epm
|
|
|
|
# no languages defined as parameter
|
|
if ($installer::globals::languagelist eq "") { $installer::globals::languages_defined_in_productlist = 1; }
|
|
|
|
# setting and creating the unpackpath
|
|
|
|
if ($installer::globals::unpackpath eq "") # unpackpath not set
|
|
{
|
|
$installer::globals::unpackpath = cwd();
|
|
}
|
|
|
|
if ($installer::globals::workpath eq "") # workpath not set
|
|
{
|
|
$installer::globals::workpath = cwd();
|
|
}
|
|
|
|
if ( $installer::globals::localunpackdir ne "" ) { $installer::globals::unpackpath = $installer::globals::localunpackdir; }
|
|
|
|
if (!($installer::globals::unpackpath eq ""))
|
|
{
|
|
make_path_absolute(\$installer::globals::unpackpath);
|
|
}
|
|
|
|
$installer::globals::unpackpath =~ s/\Q$installer::globals::separator\E\s*$//;
|
|
|
|
if (! -d $installer::globals::unpackpath ) # create unpackpath
|
|
{
|
|
installer::systemactions::create_directory($installer::globals::unpackpath);
|
|
}
|
|
|
|
# setting and creating the temppath
|
|
|
|
if ( $ENV{'TMPDIR'} )
|
|
{
|
|
$installer::globals::temppath = $ENV{'TMPDIR'};
|
|
$installer::globals::temppath =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes
|
|
$installer::globals::temppath .= $installer::globals::separator . 'ooopackagingXXXXXX';
|
|
$installer::globals::temppath = mkdtemp($installer::globals::temppath);
|
|
|
|
my $dirsave = $installer::globals::temppath;
|
|
|
|
if ( $installer::globals::platformid eq 'maosx_x86_64')
|
|
{
|
|
chmod 0777, $installer::globals::temppath;
|
|
}
|
|
|
|
$installer::globals::temppath = $installer::globals::temppath . $installer::globals::separator . "i";
|
|
$installer::globals::temppath = installer::systemactions::create_pid_directory($installer::globals::temppath);
|
|
push(@installer::globals::removedirs, $installer::globals::temppath);
|
|
|
|
if ( ! -d $installer::globals::temppath ) { installer::exiter::exit_program("ERROR: Failed to create directory $installer::globals::temppath ! Possible reason: Wrong privileges in directory $dirsave .", "setglobalvariables"); }
|
|
|
|
$installer::globals::temppath = $installer::globals::temppath . $installer::globals::separator . $installer::globals::platformid;
|
|
installer::systemactions::create_directory($installer::globals::temppath);
|
|
if ( $^O =~ /cygwin/i )
|
|
{
|
|
$installer::globals::cyg_temppath = $installer::globals::temppath;
|
|
$installer::globals::cyg_temppath =~ s/\\/\\\\/g;
|
|
chomp( $installer::globals::cyg_temppath = qx{cygpath -w "$installer::globals::cyg_temppath"} );
|
|
}
|
|
$installer::globals::temppathdefined = 1;
|
|
}
|
|
else
|
|
{
|
|
$installer::globals::temppathdefined = 0;
|
|
}
|
|
|
|
# only one cab file, if Windows msp patches shall be prepared
|
|
if ( $installer::globals::prepare_winpatch ) { $installer::globals::number_of_cabfiles = 1; }
|
|
|
|
}
|
|
|
|
############################################
|
|
# Controlling the parameter that are
|
|
# required for special processes
|
|
############################################
|
|
|
|
sub control_required_parameter
|
|
{
|
|
if (!($installer::globals::is_copy_only_project))
|
|
{
|
|
##############################################################################################
|
|
# idt template path. Only required for Windows build
|
|
# for the creation of the msi database.
|
|
##############################################################################################
|
|
|
|
if (($installer::globals::idttemplatepath eq "") && ($installer::globals::iswindowsbuild))
|
|
{
|
|
installer::logger::print_error( "idt template path not set (-msitemplate)!" );
|
|
usage();
|
|
exit(-1);
|
|
}
|
|
|
|
##############################################################################################
|
|
# idt language path. Only required for Windows build
|
|
# for the creation of the msi database.
|
|
##############################################################################################
|
|
|
|
if (($installer::globals::idtlanguagepath eq "") && ($installer::globals::iswindowsbuild))
|
|
{
|
|
installer::logger::print_error( "idt language path not set (-msilanguage)!" );
|
|
usage();
|
|
exit(-1);
|
|
}
|
|
|
|
# Analyzing the idt template path
|
|
|
|
if (!($installer::globals::idttemplatepath eq "")) # idttemplatepath set, relative or absolute?
|
|
{
|
|
make_path_absolute(\$installer::globals::idttemplatepath);
|
|
}
|
|
|
|
installer::remover::remove_ending_pathseparator(\$installer::globals::idttemplatepath);
|
|
|
|
# Analyzing the idt language path
|
|
|
|
if (!($installer::globals::idtlanguagepath eq "")) # idtlanguagepath set, relative or absolute?
|
|
{
|
|
make_path_absolute(\$installer::globals::idtlanguagepath);
|
|
}
|
|
|
|
installer::remover::remove_ending_pathseparator(\$installer::globals::idtlanguagepath);
|
|
|
|
# In the msi template directory a files "codes.txt" has to exist, in which the ProductCode
|
|
# and the UpgradeCode for the product are defined.
|
|
# The name "codes.txt" can be overwritten in Product definition with CODEFILENAME (msiglobal.pm)
|
|
|
|
if (( $installer::globals::iswindowsbuild ) && ( $installer::globals::packageformat ne "archive" ) && ( $installer::globals::packageformat ne "installed" ))
|
|
{
|
|
$installer::globals::codefilename = $installer::globals::idttemplatepath . $installer::globals::separator . $installer::globals::codefilename;
|
|
installer::files::check_file($installer::globals::codefilename);
|
|
$installer::globals::componentfilename = $installer::globals::idttemplatepath . $installer::globals::separator . $installer::globals::componentfilename;
|
|
installer::files::check_file($installer::globals::componentfilename);
|
|
}
|
|
|
|
}
|
|
|
|
#######################################
|
|
# Testing existence of files
|
|
# also for copy-only projects
|
|
#######################################
|
|
|
|
if ($installer::globals::ziplistname eq "")
|
|
{
|
|
installer::logger::print_error( "ERROR: Zip list file has to be defined (Parameter -f) !" );
|
|
usage();
|
|
exit(-1);
|
|
}
|
|
else
|
|
{
|
|
installer::files::check_file($installer::globals::ziplistname);
|
|
}
|
|
|
|
if ($installer::globals::setupscriptname eq "") { $installer::globals::setupscript_defined_in_productlist = 1; }
|
|
else { installer::files::check_file($installer::globals::setupscriptname); } # if the setupscript file is defined, it has to exist
|
|
|
|
}
|
|
|
|
################################################
|
|
# Writing parameter to shell and into logfile
|
|
################################################
|
|
|
|
sub outputparameter
|
|
{
|
|
my $element;
|
|
|
|
my @output = ();
|
|
|
|
push(@output, "\n########################################################\n");
|
|
push(@output, "Product list file: $installer::globals::ziplistname\n");
|
|
if (!($installer::globals::setupscript_defined_in_productlist))
|
|
{
|
|
push(@output, "Setup script: $installer::globals::setupscriptname\n");
|
|
}
|
|
else
|
|
{
|
|
push(@output, "Taking setup script from workdir\n");
|
|
}
|
|
push(@output, "Unpackpath: $installer::globals::unpackpath\n");
|
|
push(@output, "PLATFORMID: $installer::globals::platformid\n");
|
|
push(@output, "OS: $installer::globals::os\n");
|
|
push(@output, "CPUNAME: $installer::globals::cpuname\n");
|
|
push(@output, "COM: $installer::globals::com\n");
|
|
push(@output, "Product: $installer::globals::product\n");
|
|
push(@output, "BuildID: $installer::globals::buildid\n");
|
|
push(@output, "Build: $installer::globals::build\n");
|
|
if ( $installer::globals::pro ) { push(@output, "Product version\n"); }
|
|
else { push(@output, "Non-Product version\n"); }
|
|
if ( $installer::globals::rootpath eq "" ) { push(@output, "Using default installpath\n"); }
|
|
else { push(@output, "Installpath: $installer::globals::rootpath\n"); }
|
|
push(@output, "Package format: $installer::globals::packageformat\n");
|
|
if (!($installer::globals::idttemplatepath eq "")) { push(@output, "msi templatepath: $installer::globals::idttemplatepath\n"); }
|
|
if ((!($installer::globals::idttemplatepath eq "")) && (!($installer::globals::iswindowsbuild))) { push(@output, "msi template path will be ignored for non Windows builds!\n"); }
|
|
if (!($installer::globals::idtlanguagepath eq "")) { push(@output, "msi languagepath: $installer::globals::idtlanguagepath\n"); }
|
|
if ((!($installer::globals::idtlanguagepath eq "")) && (!($installer::globals::iswindowsbuild))) { push(@output, "msi language path will be ignored for non Windows builds!\n"); }
|
|
if ((!($installer::globals::iswindowsbuild)) && ( $installer::globals::call_epm )) { push(@output, "Calling epm\n"); }
|
|
if ((!($installer::globals::iswindowsbuild)) && (!($installer::globals::call_epm))) { push(@output, "Not calling epm\n"); }
|
|
if ( $installer::globals::strip ) { push(@output, "Stripping files\n"); }
|
|
else { push(@output, "No file stripping\n"); }
|
|
if ( $installer::globals::debian ) { push(@output, "Linux: Creating Debian packages\n"); }
|
|
if ( $installer::globals::dounzip ) { push(@output, "Unzip ARCHIVE files\n"); }
|
|
else { push(@output, "Not unzipping ARCHIVE files\n"); }
|
|
if (!($installer::globals::languages_defined_in_productlist))
|
|
{
|
|
push(@output, "Languages:\n");
|
|
foreach $element (@installer::globals::languageproducts) { push(@output, "\t$element\n"); }
|
|
}
|
|
else
|
|
{
|
|
push(@output, "Languages defined in $installer::globals::ziplistname\n");
|
|
}
|
|
if ( $installer::globals::is_copy_only_project ) { push(@output, "This is a copy only project!\n"); }
|
|
if ( $installer::globals::languagepack ) { push(@output, "Creating language pack!\n"); }
|
|
if ( $installer::globals::helppack ) { push(@output, "Creating help pack!\n"); }
|
|
push(@output, "########################################################\n");
|
|
|
|
# output into shell and into logfile
|
|
|
|
for ( my $i = 0; $i <= $#output; $i++ )
|
|
{
|
|
installer::logger::print_message( $output[$i] );
|
|
push(@installer::globals::globallogfileinfo, $output[$i]);
|
|
}
|
|
}
|
|
|
|
1;
|