solenv/bin/modules/installer/windows/java.pm

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