diff options
Diffstat (limited to 'solenv/bin/modules/installer/downloadsigner.pm')
| -rw-r--r-- | solenv/bin/modules/installer/downloadsigner.pm | 585 |
1 files changed, 585 insertions, 0 deletions
diff --git a/solenv/bin/modules/installer/downloadsigner.pm b/solenv/bin/modules/installer/downloadsigner.pm new file mode 100644 index 000000000000..aa3bbb25a484 --- /dev/null +++ b/solenv/bin/modules/installer/downloadsigner.pm @@ -0,0 +1,585 @@ +#************************************************************************* +# +# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +# +# Copyright 2000, 2010 Oracle and/or its affiliates. +# +# OpenOffice.org - a multi-platform office productivity suite +# +# This file is part of OpenOffice.org. +# +# OpenOffice.org is free software: you can redistribute it and/or modify +# it under the terms of the GNU Lesser General Public License version 3 +# only, as published by the Free Software Foundation. +# +# OpenOffice.org 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 version 3 for more details +# (a copy is included in the LICENSE file that accompanied this code). +# +# You should have received a copy of the GNU Lesser General Public License +# version 3 along with OpenOffice.org. If not, see +# <http://www.openoffice.org/license.html> +# for a copy of the LGPLv3 License. +# +#************************************************************************* + +package installer::downloadsigner; + +use installer::exiter; +use installer::files; +use installer::globals; +use installer::logger; +use installer::pathanalyzer; + +############################################ +# Parameter Operations +############################################ + +sub usage +{ + print <<Ende; +-------------------------------------------------------------------------------- +make_download V1.0 +The following parameter are needed: +-d: Full path to the file containing the follow-me info or to a directory + containing the follow-me info files. In the latter case, all follow-me + info files are evaluated. If a directory is used, the successfully used + follow-me info files are renamed using a string "success". Files with + this string are ignored in repeated processes using "-d" with a + directory. + +The following parameter are optional: +-nodownload: Only signing, no creation of download sets (Windows only) +-useminor: Important for installation sets, created without minor set +-writetotemp: Necessary, if you do not want to write into solver + This can be caused by missing privileges (Windows only) +-internalcabinet: Not only the cabinet files are signed, but also all + files included in the cabinet files (Windows only). + +-sign: Uses signing mechanism to sign installation sets +If \"-sign\" is set, the following two parameter are required: +-pfx: Full path to the pfx file +-pw: Full path to the file, containing the pfx password. + +Examples: + +Specifying an installation set (with "-d"): + +perl make_download.pl -d <followmeinfofilename> + +perl make_download.pl -d <followmeinfofilename> + -sign + -pfx <pfxfilename> + -pw <passwordfilename> + +or without specifying an installation set: + +perl make_download.pl -d <followmedirectory> + -sign + -pfx <pfxfilename> + -pw <passwordfilename> +-------------------------------------------------------------------------------- +Ende + exit(-1); +} + +##################################### +# Reading parameter +##################################### + +sub getparameter +{ + # installer::logger::print_message("Checking parameter"); + + while ( $#ARGV >= 0 ) + { + my $param = shift(@ARGV); + + if ($param eq "-d") { $installer::globals::followmeinfofilename = shift(@ARGV); } + elsif ($param eq "-pw") { $installer::globals::pwfile = shift(@ARGV); } + elsif ($param eq "-pfx") { $installer::globals::pfxfile = shift(@ARGV); } + elsif ($param eq "-sign") { $installer::globals::dosign = 1; } + elsif ($param eq "-nodownload") { $installer::globals::nodownload = 1; } + elsif ($param eq "-writetotemp") { $installer::globals::writetotemp = 1; } + elsif ($param eq "-useminor") { $installer::globals::useminor = 1; } + elsif ($param eq "-internalcabinet") { $installer::globals::internal_cabinet_signing = 1; } + else + { + installer::logger::print_error( "unknown parameter: $param" ); + usage(); + exit(-1); + } + } +} + +##################################### +# Controlling required parameter +##################################### + +sub checkparameter +{ + if ( $installer::globals::followmeinfofilename eq "" ) + { + installer::logger::print_error( "Error: Required parameter is missing: -d\n" ); + usage(); + exit(-1); + } + + if ( $installer::globals::dosign ) + { + # -pfx and -pw have to be set + if ( $installer::globals::pfxfile eq "" ) + { + installer::logger::print_error( "Error: If \"-sign\" is set, a pfx file has to be specified: -pfx\n" ); + usage(); + exit(-1); + } + + # -pfx and -pw have to be set + if ( $installer::globals::pwfile eq "" ) + { + installer::logger::print_error( "Error: If \"-sign\" is set, a password file has to be specified: -pw\n" ); + usage(); + exit(-1); + } + + # and both files have to exist + if ( ! -f $installer::globals::pfxfile ) + { + installer::logger::print_error( "Error: pfx file \"$installer::globals::pfxfile\" does not exist.\n" ); + usage(); + exit(-1); + } + + if ( ! -f $installer::globals::pwfile ) + { + installer::logger::print_error( "Error: Password file \"$installer::globals::pwfile\" does not exist (-pw).\n" ); + usage(); + exit(-1); + } + } +} + +############################################# +# Setting the temporary path for the download +# and signing process +############################################# + +sub set_temp_path +{ + my $temppath = ""; + my $pid = $$; # process id + my $time = time(); # time + my $helperdir = "unpackdir_" . $pid . $time; + + if (( $ENV{'TMP'} ) || ( $ENV{'TEMP'} )) + { + if ( $ENV{'TMP'} ) { $temppath = $ENV{'TMP'}; } + elsif ( $ENV{'TEMP'} ) { $temppath = $ENV{'TEMP'}; } + $temppath =~ s/\Q$installer::globals::separator\E\s*$//; # removing ending slashes and backslashes + $temppath = $temppath . $installer::globals::separator . $helperdir; + + if( $^O =~ /cygwin/i ) + { + $temppath = qx{cygpath -w "$temppath"}; + $temppath =~ s/\\/\//g; + $temppath =~ s/\s*$//g; + } + + installer::systemactions::create_directory_structure($temppath); + } + else + { + installer::logger::print_error( "Error: TMP and TEMP not defined. This is required for this process.\n" ); + usage(); + exit(-1); + } + + installer::logger::print_message( "\n... using output path: $temppath ...\n" ); + + push(@installer::globals::removedirs, $temppath); + + return $temppath; +} + +############################################# +# Setting output pathes to temp directory +# This are the: +# unpackpath and the loggingdir +############################################# + +sub set_output_pathes_to_temp +{ + my ($followmeinfohash, $temppath) = @_; + + $followmeinfohash->{'loggingdir'} = $temppath . $installer::globals::separator; + $installer::globals::unpackpath = $temppath; +} + +############################################# +# Setting the minor into the pathes. This is +# required, if the original installation set +# was created without minor +# Value is always saved in +# $installer::globals::lastminor +# which is saved in the follow_me file +############################################# + +sub set_minor_into_pathes +{ + my ($followmeinfohash, $temppath) = @_; + + installer::logger::print_message( "\n... forcing into minor: $installer::globals::lastminor ...\n" ); + + my @pathnames = ("bin", "doc", "inc", "lib", "pck", "res", "xml"); + my $sourcename = "src"; + my $srcpath = $installer::globals::separator . $sourcename . $installer::globals::separator; + + if ( $installer::globals::minor ne "" ) + { + installer::logger::print_message( "\n... already defined minor: $installer::globals::minor -> ignoring parameter \"-useminor\" ...\n" ); + return; + } + + # Affected pathes: + # $contenthash{'installlogdir'} + # $contenthash{'includepatharray'} + # $installer::globals::unpackpath + # $installer::globals::idttemplatepath + # $installer::globals::idtlanguagepath + + installer::logger::include_header_into_logfile("Changing saved pathes to add the minor"); + my $infoline = "Old pathes:\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$followmeinfohash->{'installlogdir'}: $followmeinfohash->{'installlogdir'}\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$installer::globals::unpackpath: $installer::globals::unpackpath\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$installer::globals::idttemplatepath: $installer::globals::idttemplatepath\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$installer::globals::idtlanguagepath: $installer::globals::idtlanguagepath\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "Include pathes:\n"; + push( @installer::globals::logfileinfo, $infoline); + foreach my $path ( @{$followmeinfohash->{'includepatharray'}} ) { push( @installer::globals::logfileinfo, $path); } + + foreach $onepath ( @pathnames ) + { + my $oldvalue = $installer::globals::separator . $onepath . $installer::globals::separator; + my $newvalue = $installer::globals::separator . $onepath . "\." . $installer::globals::lastminor . $installer::globals::separator; + + if (( $followmeinfohash->{'installlogdir'} =~ /\Q$oldvalue\E/ ) && ( ! ( $followmeinfohash->{'installlogdir'} =~ /\Q$srcpath\E/ ))) { $followmeinfohash->{'installlogdir'} =~ s/\Q$oldvalue\E/$newvalue/; } + if (( $installer::globals::unpackpath =~ /\Q$oldvalue\E/ ) && ( ! ( $installer::globals::unpackpath =~ /\Q$srcpath\E/ ))) { $installer::globals::unpackpath =~ s/\Q$oldvalue\E/$newvalue/; } + if (( $installer::globals::idttemplatepath =~ /\Q$oldvalue\E/ ) && ( ! ( $installer::globals::idttemplatepath =~ /\Q$srcpath\E/ ))) { $installer::globals::idttemplatepath =~ s/\Q$oldvalue\E/$newvalue/; } + if (( $installer::globals::idtlanguagepath =~ /\Q$oldvalue\E/ ) && ( ! ( $installer::globals::idtlanguagepath =~ /\Q$srcpath\E/ ))) { $installer::globals::idtlanguagepath =~ s/\Q$oldvalue\E/$newvalue/; } + foreach my $path ( @{$followmeinfohash->{'includepatharray'}} ) { if (( $path =~ /\Q$oldvalue\E/ ) && ( ! ( $path =~ /\Q$srcpath\E/ ))) { $path =~ s/\Q$oldvalue\E/$newvalue/; } } + + # Checking for the end of the path + $oldvalue = $installer::globals::separator . $onepath; + $newvalue = $installer::globals::separator . $onepath . "\." . $installer::globals::lastminor; + + if (( $followmeinfohash->{'installlogdir'} =~ /\Q$oldvalue\E\s*$/ ) && ( ! ( $followmeinfohash->{'installlogdir'} =~ /\Q$srcpath\E/ ))) { $followmeinfohash->{'installlogdir'} =~ s/\Q$oldvalue\E\s*$/$newvalue/; } + if (( $installer::globals::unpackpath =~ /\Q$oldvalue\E\s*$/ ) && ( ! ( $installer::globals::unpackpath =~ /\Q$srcpath\E/ ))) { $installer::globals::unpackpath =~ s/\Q$oldvalue\E\s*$/$newvalue/; } + if (( $installer::globals::idttemplatepath =~ /\Q$oldvalue\E\s*$/ ) && ( ! ( $installer::globals::idttemplatepath =~ /\Q$srcpath\E/ ))) { $installer::globals::idttemplatepath =~ s/\Q$oldvalue\E\s*$/$newvalue/; } + if (( $installer::globals::idtlanguagepath =~ /\Q$oldvalue\E\s*$/ ) && ( ! ( $installer::globals::idtlanguagepath =~ /\Q$srcpath\E/ ))) { $installer::globals::idtlanguagepath =~ s/\Q$oldvalue\E\s*$/$newvalue/; } + foreach my $path ( @{$followmeinfohash->{'includepatharray'}} ) + { + if (( $path =~ /\Q$oldvalue\E\s*$/ ) && ( ! ( $path =~ /\Q$srcpath\E/ ))) + { + $path =~ s/\Q$oldvalue\E\s*$/$newvalue/; + $path = $path . "\n"; + } + } + } + + # And now can follow the replacement for the source path "src". Subdirs like "bin" in the source tree + # must not get the minor. This is instead "src.m9/instsetoo_native/common.pro/bin/..." + # Directory "src" can never be the end of the path + + my $newsrcpath = $installer::globals::separator . $sourcename . "\." . $installer::globals::lastminor . $installer::globals::separator; + + if ( $followmeinfohash->{'installlogdir'} =~ /\Q$srcpath\E/ ) { $followmeinfohash->{'installlogdir'} =~ s/\Q$srcpath\E/$newsrcpath/; } + if ( $installer::globals::unpackpath =~ /\Q$srcpath\E/ ) { $installer::globals::unpackpath =~ s/\Q$srcpath\E/$newsrcpath/; } + if ( $installer::globals::idttemplatepath =~ /\Q$srcpath\E/ ) { $installer::globals::idttemplatepath =~ s/\Q$srcpath\E/$newsrcpath/; } + if ( $installer::globals::idtlanguagepath =~ /\Q$srcpath\E/ ) { $installer::globals::idtlanguagepath =~ s/\Q$srcpath\E/$newsrcpath/; } + foreach my $path ( @{$followmeinfohash->{'includepatharray'}} ) { if ( $path =~ /\Q$srcpath\E/ ) { $path =~ s/\Q$srcpath\E/$newsrcpath/; } } + + $infoline = "\nNew pathes:\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$followmeinfohash->{'installlogdir'}: $followmeinfohash->{'installlogdir'}\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$installer::globals::unpackpath: $installer::globals::unpackpath\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$installer::globals::idttemplatepath: $installer::globals::idttemplatepath\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "\$installer::globals::idtlanguagepath: $installer::globals::idtlanguagepath\n"; + push( @installer::globals::logfileinfo, $infoline); + $infoline = "Include pathes:\n"; + push( @installer::globals::logfileinfo, $infoline); + foreach my $path ( @{$followmeinfohash->{'includepatharray'}} ) { push( @installer::globals::logfileinfo, $path); } +} + +############################################# +# Setting the name of the log file +############################################# + +sub setlogfilename +{ + if ( $installer::globals::dosign ) { $installer::globals::logfilename = "sign_and_download_" . $installer::globals::logfilename; } + else { $installer::globals::logfilename = "download_" . $installer::globals::logfilename; } + # reset the log file + @installer::globals::logfileinfo = (); +} + +######################################################### +# Checking, if this is a task in a cws or +# on the master. Simple check of naming schema: +# CWS: follow_me_DEV300_m40_de.log +# Master: follow_me_4_DEV300_m40_en-US.log +######################################################### + +sub check_cws_build +{ + my ( $filename ) = @_; + + my $iscws = 1; + + if ( $filename =~ /follow_me_\d+_/ ) { $iscws = 0; } + # if ( $filename =~ /log_\d+_/ ) { $iscws = 0; } + + return $iscws; +} + +######################################################### +# Reading a specific key from a follow-me file +######################################################### + +sub get_property_from_file +{ + my ($followmefile, $key) = @_; + + my $value = ""; + + my $filecontent = installer::files::read_file($followmefile); + + for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) + { + if ( ${$filecontent}[$i] =~ /^\s*\Q$key\E\s*\:\s*(.*?)\s*$/ ) + { + $value = $1; + last; + } + } + + return $value; +} + +######################################################### +# Publishing the content of the product list +######################################################### + +sub publishproductlist +{ + my ($infofilelist) = @_; + + installer::logger::print_message( "\n... found products: ...\n" ); + + for ( my $i = 0; $i <= $#{$infofilelist}; $i++ ) + { + my $onefile = ${$infofilelist}[$i]; + installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$onefile); + installer::logger::print_message( "...... $onefile ...\n" ); + } + + installer::logger::print_message( "\n" ); +} + +######################################################### +# Filtering all files, that have correct minor +# and work stamp. +# Master: follow_me_4_DEV300_m40_en-US.log +######################################################### + +sub filter_all_files_with_correct_settings +{ + my ($allfollowmefiles) = @_; + + my @allfiles = (); + my @allfiles2 = (); + my $maxhash = (); + + my $minor = ""; + my $workstamp = ""; + + if ( $ENV{'WORK_STAMP'} ) { $workstamp = $ENV{'WORK_STAMP'}; } + if ( $ENV{'UPDMINOR'} ) { $minor = $ENV{'UPDMINOR'}; } + + if ( $minor eq "" ) { installer::exiter::exit_program("ERROR: Environment variable \"UPDMINOR\" not set!", "filter_all_files_with_correct_settings"); } + if ( $workstamp eq "" ) { installer::exiter::exit_program("ERROR: Environment variable \"WORK_STAMP\" not set!", "filter_all_files_with_correct_settings"); } + + foreach my $onefile ( @{$allfollowmefiles} ) + { + if (( $onefile =~ /_\Q$minor\E_/i ) && ( $onefile =~ /_\Q$workstamp\E_/i )) + { + push(@allfiles, $onefile); + + # also collecting maximum hash + + if ( $onefile =~ /follow_me_(\d+)_\Q$workstamp\E_\Q$minor\E_([-\w]+)\.log\s*$/i ) + { + my $sequence = $1; + my $lang = $2; + + if (( ! exists($maxhash{$lang})) || ( $maxhash{$lang} < $sequence )) { $maxhash{$lang} = $sequence; } + } + } + } + + # second run, because of sequence numbers + + foreach my $onefile ( @allfiles ) + { + if ( $onefile =~ /follow_me_(\d+)_\Q$workstamp\E_\Q$minor\E_([-\w]+)\.log\s*$/i ) + { + my $sequence = $1; + my $lang = $2; + + if ( $sequence == $maxhash{$lang} ) { push(@allfiles2, $onefile); } + } + } + + return ( \@allfiles2 ); +} + +######################################################### +# Creating a list of products, that need to be signed +# or for which download sets need to be created. +######################################################### + +sub createproductlist +{ + # If "-d" specifies an installation set, there is only one product + + my @infofilelist = (); + my @infofilelist2 = (); + + if ( -f $installer::globals::followmeinfofilename ) + { + push(@infofilelist, $installer::globals::followmeinfofilename); + # Saving info, that this is a file + $installer::globals::followme_from_directory = 0; + } + elsif ( -d $installer::globals::followmeinfofilename ) + { + installer::logger::print_message( "\n... reading directory: $installer::globals::followmeinfofilename ...\n" ); + $installer::globals::followmeinfofilename =~ s/$installer::globals::separator\s*$//; + my $allfollowmefiles = installer::systemactions::find_file_with_file_extension("log", $installer::globals::followmeinfofilename); + + if ( ! ( $#{$allfollowmefiles} > -1 )) + { + installer::logger::print_error( "Error: Nothing to do! No follow-me file in directory \"$installer::globals::followmeinfofilename\"!.\n" ); + usage(); + exit(-1); + } + + # Saving info, that this is a directory + $installer::globals::followme_from_directory = 1; + + # Collect all possible installation sets + # CWS: All installation sets + # Master: All installation sets with same major, minor and buildid. Additionally using the highest number. + + my $iscws = check_cws_build(${$allfollowmefiles}[0]); + + if ( $iscws ) + { + # Simply read all follow-me files and check existence of installation sets + foreach my $onefile ( @{$allfollowmefiles} ) + { + my $fullfilename = $installer::globals::followmeinfofilename . $installer::globals::separator . $onefile; + my $installdir = get_property_from_file($fullfilename, "finalinstalldir"); + if (( $installdir ne "" ) && ( -d $installdir )) { push(@infofilelist2, $fullfilename); } + } + } + else + { + $allfollowmefiles = filter_all_files_with_correct_settings($allfollowmefiles); + + foreach my $onefile ( @{$allfollowmefiles} ) + { + my $fullfilename = $installer::globals::followmeinfofilename . $installer::globals::separator . $onefile; + # Check, if installation set still exists + my $installdir = get_property_from_file($fullfilename, "finalinstalldir"); + if (( $installdir ne "" ) && ( -d $installdir )) { push(@infofilelist2, $fullfilename); } + } + } + + # Removing all files, starting with "follow_me_success_" in their names. This have already been used successfully. + + foreach my $onefile ( @infofilelist2 ) + { + if ( $onefile =~ /follow_me_success_/ ) { next; } + push(@infofilelist, $onefile); + } + + # Checking, if there is content in the list + if ( ! ( $#infofilelist > -1 )) + { + installer::logger::print_error( "Error: Nothing to do! No installation set found for follow-me files in directory \"$installer::globals::followmeinfofilename\"!.\n" ); + usage(); + exit(-1); + } + } + else + { + installer::logger::print_error( "Error: Nothing to do! \"$installer::globals::followmeinfofilename\" is no file and no directory (-d).\n" ); + usage(); + exit(-1); + } + + return \@infofilelist; +} + +############################################# +# Logging the content of the download hash +############################################# + +sub logfollowmeinfohash +{ + my ( $followmehash ) = @_; + + print "\n*****************************************\n"; + print "Content of follow-me info file:\n"; + print "finalinstalldir: $followmehash->{'finalinstalldir'}\n"; + print "downloadname: $followmehash->{'downloadname'}\n"; + print "languagestring: $followmehash->{'languagestring'}\n"; + foreach my $lang ( @{$followmehash->{'languagesarray'}} ) { print "languagesarray: $lang\n"; } + foreach my $path ( @{$followmehash->{'includepatharray'}} ) { print "includepatharray: $path"; } + foreach my $key ( sort keys %{$followmehash->{'allvariableshash'}} ) { print "allvariableshash: $key : $followmehash->{'allvariableshash'}->{$key}\n"; } +} + +######################################################################## +# Renaming the follow me info file, if it was successfully used. +# This can only be done, if the parameter "-d" was used with a +# directory, not a name. In this case the repeated use of parameter +# "-d" with this directory has to ignore this already successfully +# used file. +######################################################################## + +sub rename_followme_infofile +{ + my ( $filename ) = @_; + + my $newfilename = $filename; + $newfilename =~ s/follow_me_/follow_me_success_/; # including "_success" after "follow_me" + + if ( $filename ne $newfilename ) + { + my $returnvalue = rename($filename, $newfilename); + if ( $returnvalue ) { installer::logger::print_message( "\n... renamed file \"$filename\" to \"$newfilename\" ...\n" ); } + } +} + +1; |