1#************************************************************** 2# 3# Licensed to the Apache Software Foundation (ASF) under one 4# or more contributor license agreements. See the NOTICE file 5# distributed with this work for additional information 6# regarding copyright ownership. The ASF licenses this file 7# to you under the Apache License, Version 2.0 (the 8# "License"); you may not use this file except in compliance 9# with the License. You may obtain a copy of the License at 10# 11# http://www.apache.org/licenses/LICENSE-2.0 12# 13# Unless required by applicable law or agreed to in writing, 14# software distributed under the License is distributed on an 15# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16# KIND, either express or implied. See the License for the 17# specific language governing permissions and limitations 18# under the License. 19# 20#************************************************************** 21 22 23 24package installer::followme; 25 26use File::Spec; 27use installer::exiter; 28use installer::files; 29use installer::globals; 30use installer::logger; 31use installer::systemactions; 32 33#################################################### 34# Creating a file, that contains all information 35# to create a follow up process. 36#################################################### 37 38sub save_followme_info 39{ 40 my ($finalinstalldir, $includepatharrayref, $allvariableshashref, $downloadname, $languagestringref, $languagesarrayref, $current_install_number, $loggingdir, $installlogdir) = @_; 41 42 my $downloadinfofilename = $installer::globals::logfilename; 43 if ( $installer::globals::updatepack ) { $downloadinfofilename =~ s/log_/log_$current_install_number\_/; } 44 $downloadinfofilename =~ s/log_/follow_me_/; 45 46 # Creating directory 47 my $downloadinfodir = installer::systemactions::create_directory_next_to_directory($finalinstalldir, "follow_me"); 48 49 my @filecontent = (); 50 51 push(@filecontent, "finalinstalldir: $finalinstalldir\n"); 52 push(@filecontent, "downloadname: $downloadname\n"); 53 push(@filecontent, "currentinstallnumber: $current_install_number\n"); 54 push(@filecontent, "loggingdir: $loggingdir\n"); 55 push(@filecontent, "installlogdir: $installlogdir\n"); 56 push(@filecontent, "languagestring: $$languagestringref\n"); 57 foreach my $element ( @{$languagesarrayref} ) { push(@filecontent, "languagesarray: $element\n"); } 58 foreach my $path ( @{$includepatharrayref} ) { push(@filecontent, "includepatharray: $path"); } 59 foreach my $key ( sort keys %{$allvariableshashref} ) { push(@filecontent, "allvariableshash: $key : $allvariableshashref->{$key}\n"); } 60 push(@filecontent, "globals:updatepack: $installer::globals::updatepack\n"); 61 push(@filecontent, "globals:added_english: $installer::globals::added_english\n"); 62 push(@filecontent, "globals:iswindowsbuild: $installer::globals::iswindowsbuild\n"); 63 push(@filecontent, "globals:issolarisbuild: $installer::globals::issolarisbuild\n"); 64 push(@filecontent, "globals:issolarispkgbuild: $installer::globals::issolarispkgbuild\n"); 65 push(@filecontent, "globals:issolarissparcbuild: $installer::globals::issolarissparcbuild\n"); 66 push(@filecontent, "globals:issolarisx86build: $installer::globals::issolarisx86build\n"); 67 push(@filecontent, "globals:isfreebsdpkgbuild: $installer::globals::isfreebsdpkgbuild\n"); 68 push(@filecontent, "globals:islinuxbuild: $installer::globals::islinuxbuild\n"); 69 push(@filecontent, "globals:islinuxrpmbuild: $installer::globals::islinuxrpmbuild\n"); 70 push(@filecontent, "globals:islinuxintelrpmbuild: $installer::globals::islinuxintelrpmbuild\n"); 71 push(@filecontent, "globals:islinuxppcrpmbuild: $installer::globals::islinuxppcrpmbuild\n"); 72 push(@filecontent, "globals:islinuxx86_64rpmbuild: $installer::globals::islinuxx86_64rpmbuild\n"); 73 push(@filecontent, "globals:islinuxdebbuild: $installer::globals::islinuxdebbuild\n"); 74 push(@filecontent, "globals:islinuxinteldebbuild: $installer::globals::islinuxinteldebbuild\n"); 75 push(@filecontent, "globals:islinuxppcdebbuild: $installer::globals::islinuxppcdebbuild\n"); 76 push(@filecontent, "globals:islinuxx86_64debbuild: $installer::globals::islinuxx86_64debbuild\n"); 77 push(@filecontent, "globals:issolaris: $installer::globals::issolaris\n"); 78 push(@filecontent, "globals:islinux: $installer::globals::islinux\n"); 79 push(@filecontent, "globals:unpackpath: $installer::globals::unpackpath\n"); 80 push(@filecontent, "globals:idttemplatepath: $installer::globals::idttemplatepath\n"); 81 push(@filecontent, "globals:idtlanguagepath: $installer::globals::idtlanguagepath\n"); 82 push(@filecontent, "globals:logfilename: $installer::globals::logfilename\n"); 83 push(@filecontent, "globals:product: $installer::globals::product\n"); 84 push(@filecontent, "globals:patch: $installer::globals::patch\n"); 85 push(@filecontent, "globals:languagepack: $installer::globals::languagepack\n"); 86 push(@filecontent, "globals:installertypedir: $installer::globals::installertypedir\n"); 87 push(@filecontent, "globals:max_lang_length: $installer::globals::max_lang_length\n"); 88 push(@filecontent, "globals:compiler: $installer::globals::compiler\n"); 89 push(@filecontent, "globals:product: $installer::globals::product\n"); 90 push(@filecontent, "globals:minor: $installer::globals::minor\n"); 91 push(@filecontent, "globals:lastminor: $installer::globals::lastminor\n"); 92 push(@filecontent, "globals:nsisfilename: $installer::globals::nsisfilename\n"); 93 94 # Saving file 95 installer::files::save_file($downloadinfodir . $installer::globals::separator . $downloadinfofilename, \@filecontent); 96 $installer::logger::Info->printf("... creating \"follow me\" info file %s.\n", $downloadinfofilename); 97} 98 99#################################################### 100# Reading the file, that contains all information 101# to create a follow up process. 102#################################################### 103 104sub read_followme_info 105{ 106 my ( $filename ) = @_; 107 108 if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file: $filename", "read_download_info"); } 109 110 $installer::logger::Info->print("\n"); 111 $installer::logger::Info->printf("... reading \"follow me\" info file %s\n", $filename); 112 113 my %contenthash = (); 114 115 my $finalinstalldir = ""; 116 my $downloadname = ""; 117 my $currentinstallnumber = ""; 118 my $loggingdir = ""; 119 my $installlogdir = ""; 120 my $languagestring = ""; 121 my @includepatharray = (); 122 my @languagesarray = (); 123 my %allvariableshash = (); 124 125 # Global variables can be set directly 126 127 my $filecontent = installer::files::read_file($filename); 128 129 # First line has to contain the string "finalinstalldir:". 130 # Otherwise this is not a correct file. 131 132 133 if ( ! ( ${$filecontent}[0] =~ /s*finalinstalldir:\s*(.*?)\s*$/ )) { installer::exiter::exit_program("ERROR: Not a correct download info file: $filename", "read_download_info"); } 134 135 for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) 136 { 137 my $line = ${$filecontent}[$i]; 138 139 if ( $line =~ /^\s*finalinstalldir:\s*(.*?)\s*$/ ) { $finalinstalldir = $1; } 140 if( $^O =~ /cygwin/i ) { $finalinstalldir =~ s/\\/\//; } 141 if ( $line =~ /^\s*downloadname:\s*(.*?)\s*$/ ) { $downloadname = $1; } 142 if ( $line =~ /^\s*currentinstallnumber:\s*(.*?)\s*$/ ) { $currentinstallnumber = $1; } 143 if ( $line =~ /^\s*loggingdir:\s*(.*?)\s*$/ ) { $loggingdir = $1; } 144 if( $^O =~ /cygwin/i ) { $loggingdir =~ s/\\/\//; } 145 if ( $line =~ /^\s*installlogdir:\s*(.*?)\s*$/ ) { $installlogdir = $1; } 146 if( $^O =~ /cygwin/i ) { $installlogdir =~ s/\\/\//; } 147 if ( $line =~ /^\s*languagestring:\s*(.*?)\s*$/ ) { $languagestring = $1; } 148 if ( $line =~ /^\s*languagesarray:\s*(.*?)\s*$/ ) { push(@languagesarray, $1); } 149 if ( $line =~ /^\s*includepatharray:\s*(.*?)\s*$/ ) 150 { 151 my $path = $1; 152 if( $^O =~ /cygwin/i ) { $path =~ s/\\/\//; } 153 push(@includepatharray, $path . "\n"); 154 } 155 if ( $line =~ /^\s*allvariableshash:\s*(.*?)\s*:\s*(.*?)\s*$/ ) { $allvariableshash{$1} = $2; } 156 if ( $line =~ /^\s*globals:(.*?)\s*:\s*(.*?)\s*$/ ) 157 { 158 my $name = $1; 159 my $value = $2; 160 if ( $name eq "updatepack" ) { $installer::globals::updatepack = $value; } 161 if ( $name eq "added_english" ) { $installer::globals::added_english = $value; } 162 if ( $name eq "iswindowsbuild" ) { $installer::globals::iswindowsbuild = $value; } 163 if ( $name eq "issolarisbuild" ) { $installer::globals::issolarisbuild = $value; } 164 if ( $name eq "issolarispkgbuild" ) { $installer::globals::issolarispkgbuild = $value; } 165 if ( $name eq "issolarissparcbuild" ) { $installer::globals::issolarissparcbuild = $value; } 166 if ( $name eq "issolarisx86build" ) { $installer::globals::issolarisx86build = $value; } 167 if ( $name eq "isfreebsdpkgbuild" ) { $installer::globals::isfreebsdpkgbuild = $value; } 168 if ( $name eq "islinuxbuild" ) { $installer::globals::islinuxbuild = $value; } 169 if ( $name eq "islinuxrpmbuild" ) { $installer::globals::islinuxrpmbuild = $value; } 170 if ( $name eq "islinuxintelrpmbuild" ) { $installer::globals::islinuxintelrpmbuild = $value; } 171 if ( $name eq "islinuxppcrpmbuild" ) { $installer::globals::islinuxppcrpmbuild = $value; } 172 if ( $name eq "islinuxx86_64rpmbuild" ) { $installer::globals::islinuxx86_64rpmbuild = $value; } 173 if ( $name eq "islinuxdebbuild" ) { $installer::globals::islinuxdebbuild = $value; } 174 if ( $name eq "islinuxinteldebbuild" ) { $installer::globals::islinuxinteldebbuild = $value; } 175 if ( $name eq "islinuxppcdebbuild" ) { $installer::globals::islinuxppcdebbuild = $value; } 176 if ( $name eq "islinuxx86_64debbuild" ) { $installer::globals::islinuxx86_64debbuild = $value; } 177 if ( $name eq "issolaris" ) { $installer::globals::issolaris = $value; } 178 if ( $name eq "islinux" ) { $installer::globals::islinux = $value; } 179 if ( $name eq "unpackpath" ) { $installer::globals::unpackpath = $value; } 180 if( $^O =~ /cygwin/i ) { $installer::globals::unpackpath =~ s/\\/\//; } 181 if ( $name eq "idttemplatepath" ) { $installer::globals::idttemplatepath = $value; } 182 if( $^O =~ /cygwin/i ) { $installer::globals::idttemplatepath =~ s/\\/\//; } 183 if ( $name eq "idtlanguagepath" ) { $installer::globals::idtlanguagepath = $value; } 184 if( $^O =~ /cygwin/i ) { $installer::globals::idtlanguagepath =~ s/\\/\//; } 185 if ( $name eq "logfilename" ) { $installer::globals::logfilename = $value; } 186 if ( $name eq "product" ) { $installer::globals::product = $value; } 187 if ( $name eq "patch" ) { $installer::globals::patch = $value; } 188 if ( $name eq "languagepack" ) { $installer::globals::languagepack = $value; } 189 if ( $name eq "installertypedir" ) { $installer::globals::installertypedir = $value; } 190 if ( $name eq "max_lang_length" ) { $installer::globals::max_lang_length = $value; } 191 if ( $name eq "compiler" ) { $installer::globals::compiler = $value; } 192 if ( $name eq "product" ) { $installer::globals::product = $value; } 193 if ( $name eq "minor" ) { $installer::globals::minor = $value; } 194 if ( $name eq "lastminor" ) { $installer::globals::lastminor = $value; } 195 if ( $name eq "nsisfilename" ) { $installer::globals::nsisfilename = $value; } 196 } 197 } 198 199 $contenthash{'finalinstalldir'} = $finalinstalldir; 200 $contenthash{'downloadname'} = $downloadname; 201 $contenthash{'currentinstallnumber'} = $currentinstallnumber; 202 $contenthash{'loggingdir'} = $loggingdir; 203 $contenthash{'installlogdir'} = $installlogdir; 204 $contenthash{'languagestring'} = $languagestring; 205 $contenthash{'languagesarray'} = \@languagesarray; 206 $contenthash{'includepatharray'} = \@includepatharray; 207 $contenthash{'allvariableshash'} = \%allvariableshash; 208 209 return \%contenthash; 210} 211 2121; 213