diff options
Diffstat (limited to 'solenv/bin/modules/installer/windows/java.pm')
-rw-r--r-- | solenv/bin/modules/installer/windows/java.pm | 120 |
1 files changed, 0 insertions, 120 deletions
diff --git a/solenv/bin/modules/installer/windows/java.pm b/solenv/bin/modules/installer/windows/java.pm deleted file mode 100644 index e61947d2b..000000000 --- a/solenv/bin/modules/installer/windows/java.pm +++ /dev/null @@ -1,120 +0,0 @@ -#************************************************************************* -# -# 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::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; |