diff options
Diffstat (limited to 'solenv/bin/modules/installer/followme.pm')
-rw-r--r-- | solenv/bin/modules/installer/followme.pm | 112 |
1 files changed, 0 insertions, 112 deletions
diff --git a/solenv/bin/modules/installer/followme.pm b/solenv/bin/modules/installer/followme.pm index f36b8e9c73cf..73b1d2e4b6e7 100644 --- a/solenv/bin/modules/installer/followme.pm +++ b/solenv/bin/modules/installer/followme.pm @@ -99,116 +99,4 @@ sub save_followme_info installer::logger::print_message( "... creating \"follow me\" info file $downloadinfofilename.\n" ); } -#################################################### -# Reading the file, that contains all information -# to create a follow up process. -#################################################### - -sub read_followme_info -{ - my ( $filename ) = @_; - - if ( ! -f $filename ) { installer::exiter::exit_program("ERROR: Could not find file: $filename", "read_download_info"); } - - installer::logger::print_message( "\n... reading \"follow me\" info file $filename\n" ); - - my %contenthash = (); - - my $finalinstalldir = ""; - my $downloadname = ""; - my $currentinstallnumber = ""; - my $loggingdir = ""; - my $installlogdir = ""; - my $languagestring = ""; - my @includepatharray = (); - my @languagesarray = (); - my %allvariableshash = (); - - # Global variables can be set directly - - my $filecontent = installer::files::read_file($filename); - - # First line has to contain the string "finalinstalldir:". - # Otherwise this is not a correct file. - - - if ( ! ( ${$filecontent}[0] =~ /s*finalinstalldir:\s*(.*?)\s*$/ )) { installer::exiter::exit_program("ERROR: Not a correct download info file: $filename", "read_download_info"); } - - for ( my $i = 0; $i <= $#{$filecontent}; $i++ ) - { - my $line = ${$filecontent}[$i]; - - if ( $line =~ /^\s*finalinstalldir:\s*(.*?)\s*$/ ) { $finalinstalldir = $1; } - if( $^O =~ /cygwin/i ) { $finalinstalldir =~ s/\\/\//; } - if ( $line =~ /^\s*downloadname:\s*(.*?)\s*$/ ) { $downloadname = $1; } - if ( $line =~ /^\s*currentinstallnumber:\s*(.*?)\s*$/ ) { $currentinstallnumber = $1; } - if ( $line =~ /^\s*loggingdir:\s*(.*?)\s*$/ ) { $loggingdir = $1; } - if( $^O =~ /cygwin/i ) { $loggingdir =~ s/\\/\//; } - if ( $line =~ /^\s*installlogdir:\s*(.*?)\s*$/ ) { $installlogdir = $1; } - if( $^O =~ /cygwin/i ) { $installlogdir =~ s/\\/\//; } - if ( $line =~ /^\s*languagestring:\s*(.*?)\s*$/ ) { $languagestring = $1; } - if ( $line =~ /^\s*languagesarray:\s*(.*?)\s*$/ ) { push(@languagesarray, $1); } - if ( $line =~ /^\s*includepatharray:\s*(.*?)\s*$/ ) - { - my $path = $1; - if( $^O =~ /cygwin/i ) { $path =~ s/\\/\//; } - push(@includepatharray, $path . "\n"); - } - if ( $line =~ /^\s*allvariableshash:\s*(.*?)\s*:\s*(.*?)\s*$/ ) { $allvariableshash{$1} = $2; } - if ( $line =~ /^\s*globals:(.*?)\s*:\s*(.*?)\s*$/ ) - { - my $name = $1; - my $value = $2; - if ( $name eq "updatepack" ) { $installer::globals::updatepack = $value; } - if ( $name eq "added_english" ) { $installer::globals::added_english = $value; } - if ( $name eq "iswindowsbuild" ) { $installer::globals::iswindowsbuild = $value; } - if ( $name eq "issolarisbuild" ) { $installer::globals::issolarisbuild = $value; } - if ( $name eq "issolarispkgbuild" ) { $installer::globals::issolarispkgbuild = $value; } - if ( $name eq "issolarissparcbuild" ) { $installer::globals::issolarissparcbuild = $value; } - if ( $name eq "issolarisx86build" ) { $installer::globals::issolarisx86build = $value; } - if ( $name eq "isfreebsdpkgbuild" ) { $installer::globals::isfreebsdpkgbuild = $value; } - if ( $name eq "islinuxbuild" ) { $installer::globals::islinuxbuild = $value; } - if ( $name eq "isrpmbuild" ) { $installer::globals::isrpmbuild = $value; } - if ( $name eq "islinuxintelrpmbuild" ) { $installer::globals::islinuxintelrpmbuild = $value; } - if ( $name eq "islinuxppcrpmbuild" ) { $installer::globals::islinuxppcrpmbuild = $value; } - if ( $name eq "islinuxx86_64rpmbuild" ) { $installer::globals::islinuxx86_64rpmbuild = $value; } - if ( $name eq "isdebbuild" ) { $installer::globals::isdebbuild = $value; } - if ( $name eq "islinuxinteldebbuild" ) { $installer::globals::islinuxinteldebbuild = $value; } - if ( $name eq "islinuxppcdebbuild" ) { $installer::globals::islinuxppcdebbuild = $value; } - if ( $name eq "islinuxx86_64debbuild" ) { $installer::globals::islinuxx86_64debbuild = $value; } - if ( $name eq "issolaris" ) { $installer::globals::issolaris = $value; } - if ( $name eq "islinux" ) { $installer::globals::islinux = $value; } - if ( $name eq "unpackpath" ) { $installer::globals::unpackpath = $value; } - if( $^O =~ /cygwin/i ) { $installer::globals::unpackpath =~ s/\\/\//; } - if ( $name eq "idttemplatepath" ) { $installer::globals::idttemplatepath = $value; } - if( $^O =~ /cygwin/i ) { $installer::globals::idttemplatepath =~ s/\\/\//; } - if ( $name eq "idtlanguagepath" ) { $installer::globals::idtlanguagepath = $value; } - if( $^O =~ /cygwin/i ) { $installer::globals::idtlanguagepath =~ s/\\/\//; } - if ( $name eq "logfilename" ) { $installer::globals::logfilename = $value; } - if ( $name eq "product" ) { $installer::globals::product = $value; } - if ( $name eq "patch" ) { $installer::globals::patch = $value; } - if ( $name eq "languagepack" ) { $installer::globals::languagepack = $value; } - if ( $name eq "helppack" ) { $installer::globals::helppack = $value; } - if ( $name eq "installertypedir" ) { $installer::globals::installertypedir = $value; } - if ( $name eq "max_lang_length" ) { $installer::globals::max_lang_length = $value; } - if ( $name eq "compiler" ) { $installer::globals::compiler = $value; } - if ( $name eq "product" ) { $installer::globals::product = $value; } - if ( $name eq "minor" ) { $installer::globals::minor = $value; } - if ( $name eq "lastminor" ) { $installer::globals::lastminor = $value; } - } - } - - $contenthash{'finalinstalldir'} = $finalinstalldir; - $contenthash{'downloadname'} = $downloadname; - $contenthash{'currentinstallnumber'} = $currentinstallnumber; - $contenthash{'loggingdir'} = $loggingdir; - $contenthash{'installlogdir'} = $installlogdir; - $contenthash{'languagestring'} = $languagestring; - $contenthash{'languagesarray'} = \@languagesarray; - $contenthash{'includepatharray'} = \@includepatharray; - $contenthash{'allvariableshash'} = \%allvariableshash; - - return \%contenthash; -} - 1; |