1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28package installer::windows::java; 29 30use installer::exiter; 31use installer::files; 32use installer::globals; 33use installer::windows::idtglobal; 34 35#################################################################################### 36# Writing content into RegLocat.idt and AppSearc.idt to find Java on system 37#################################################################################### 38 39sub update_java_tables 40{ 41 my ($basedir, $allvariables) = @_; 42 43 my $reglocatfile = ""; 44 my $appsearchfile = ""; 45 46 my $reglocatfilename = $basedir . $installer::globals::separator . "RegLocat.idt"; 47 my $appsearchfilename = $basedir . $installer::globals::separator . "AppSearc.idt"; 48 my $signaturefilename = $basedir . $installer::globals::separator . "Signatur.idt"; 49 50 if ( -f $reglocatfilename ) 51 { 52 $reglocatfile = installer::files::read_file($reglocatfilename); 53 } 54 else 55 { 56 my @reglocattable = (); 57 $reglocatfile = \@reglocattable; 58 installer::windows::idtglobal::write_idt_header($reglocatfile, "reglocat"); 59 } 60 61 if ( -f $appsearchfilename ) 62 { 63 $appsearchfile = installer::files::read_file($appsearchfilename); 64 } 65 else 66 { 67 my @appsearchtable = (); 68 $appsearchfile = \@appsearchtable; 69 installer::windows::idtglobal::write_idt_header($appsearchfile, "appsearch"); 70 } 71 72 if ( -f $signaturefilename ) 73 { 74 $signaturefile = installer::files::read_file($signaturefilename); 75 } 76 else 77 { 78 my @signaturetable = (); 79 $signaturefile = \@signaturetable; 80 installer::windows::idtglobal::write_idt_header($signaturefile, "signatur"); 81 } 82 83 # Writing content into this tables 84 # Java version is saved in scp project 85 # $installer::globals::javafile was defined in installer::windows::idtglobal::add_childprojects 86 87 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"); } 88 89 my $javastring = $installer::globals::javafile->{'Javaversion'}; 90 91 my $signature = "JavaReg"; 92 my $rootvalue = "2"; 93 my $key = "Software\\JavaSoft\\Java Runtime Environment\\" . $javastring; 94 my $name = "JavaHome"; 95 my $type = 2; 96 my $property = "JAVAPATH"; 97 98 my $oneline = $signature . "\t" . $rootvalue . "\t" . $key . "\t" . $name . "\t" . $type . "\n"; 99 push(@{$reglocatfile}, $oneline); 100 101 $oneline = $property . "\t" . $signature . "\n"; 102 push(@{$appsearchfile}, $oneline); 103 104 # Saving the files 105 106 installer::files::save_file($reglocatfilename ,$reglocatfile); 107 my $infoline = "Updated idt file for Java: $reglocatfilename\n"; 108 push(@installer::globals::logfileinfo, $infoline); 109 110 installer::files::save_file($appsearchfilename ,$appsearchfile); 111 $infoline = "Updated idt file for Java: $appsearchfilename\n"; 112 push(@installer::globals::logfileinfo, $infoline); 113 114 installer::files::save_file($signaturefilename ,$signaturefile); 115 $infoline = "Updated idt file: $signaturefilename\n"; 116 push(@installer::globals::logfileinfo, $infoline); 117 118} 119 1201; 121