diff options
Diffstat (limited to 'solenv/bin/modules/installer/windows/java.pm')
-rw-r--r-- | solenv/bin/modules/installer/windows/java.pm | 124 |
1 files changed, 124 insertions, 0 deletions
diff --git a/solenv/bin/modules/installer/windows/java.pm b/solenv/bin/modules/installer/windows/java.pm new file mode 100644 index 000000000000..6b9cb7d725aa --- /dev/null +++ b/solenv/bin/modules/installer/windows/java.pm @@ -0,0 +1,124 @@ +#************************************************************************* +# +# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +# +# Copyright 2008 by Sun Microsystems, Inc. +# +# OpenOffice.org - a multi-platform office productivity suite +# +# $RCSfile: java.pm,v $ +# +# $Revision: 1.5 $ +# +# 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::windows::java; + +use installer::exiter; +use installer::files; +use installer::globals; +use installer::windows::idtglobal; + +#################################################################################### +# Writing content into RegLocat.idt and AppSearc.idt to find Java on system +#################################################################################### + +sub update_java_tables +{ + my ($basedir, $allvariables) = @_; + + my $reglocatfile = ""; + my $appsearchfile = ""; + + my $reglocatfilename = $basedir . $installer::globals::separator . "RegLocat.idt"; + my $appsearchfilename = $basedir . $installer::globals::separator . "AppSearc.idt"; + my $signaturefilename = $basedir . $installer::globals::separator . "Signatur.idt"; + + if ( -f $reglocatfilename ) + { + $reglocatfile = installer::files::read_file($reglocatfilename); + } + else + { + my @reglocattable = (); + $reglocatfile = \@reglocattable; + installer::windows::idtglobal::write_idt_header($reglocatfile, "reglocat"); + } + + if ( -f $appsearchfilename ) + { + $appsearchfile = installer::files::read_file($appsearchfilename); + } + else + { + my @appsearchtable = (); + $appsearchfile = \@appsearchtable; + installer::windows::idtglobal::write_idt_header($appsearchfile, "appsearch"); + } + + if ( -f $signaturefilename ) + { + $signaturefile = installer::files::read_file($signaturefilename); + } + else + { + my @signaturetable = (); + $signaturefile = \@signaturetable; + installer::windows::idtglobal::write_idt_header($signaturefile, "signatur"); + } + + # Writing content into this tables + # Java version is saved in scp project + # $installer::globals::javafile was defined in installer::windows::idtglobal::add_childprojects + + if ( ! $installer::globals::javafile->{'Javaversion'} ) { installer::exiter::exit_program("ERROR: \"Javaversion\" has to be defined in $installer::globals::javafile->{'gid'} in scp project!", "update_java_tables"); } + + my $javastring = $installer::globals::javafile->{'Javaversion'}; + + my $signature = "JavaReg"; + my $rootvalue = "2"; + my $key = "Software\\JavaSoft\\Java Runtime Environment\\" . $javastring; + my $name = "JavaHome"; + my $type = 2; + my $property = "JAVAPATH"; + + my $oneline = $signature . "\t" . $rootvalue . "\t" . $key . "\t" . $name . "\t" . $type . "\n"; + push(@{$reglocatfile}, $oneline); + + $oneline = $property . "\t" . $signature . "\n"; + push(@{$appsearchfile}, $oneline); + + # Saving the files + + installer::files::save_file($reglocatfilename ,$reglocatfile); + my $infoline = "Updated idt file for Java: $reglocatfilename\n"; + push(@installer::globals::logfileinfo, $infoline); + + installer::files::save_file($appsearchfilename ,$appsearchfile); + $infoline = "Updated idt file for Java: $appsearchfilename\n"; + push(@installer::globals::logfileinfo, $infoline); + + installer::files::save_file($signaturefilename ,$signaturefile); + $infoline = "Updated idt file: $signaturefilename\n"; + push(@installer::globals::logfileinfo, $infoline); + +} + +1; |