solenv/bin/modules/installer/windows/patch.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: patch.pm,v $
  10 #
  11 # $Revision: 1.6 $
  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::patch;
  33
  34 use installer::exiter;
  35 use installer::files;
  36 use installer::globals;
  37 use installer::windows::idtglobal;
  38
  39 ####################################################################################
  40 # Creating the file Upgrade.idt dynamically
  41 # Content:
  42 # UpgradeCode VersionMin VersionMax Language Attributes Remove ActionProperty
  43 ####################################################################################
  44
  45 sub update_patch_tables
  46 {
  47     my ($basedir, $allvariables) = @_;
  48
  49     my $reglocatfile = "";
  50     my $appsearchfile = "";
  51
  52     my $reglocatfilename = $basedir . $installer::globals::separator . "RegLocat.idt";
  53     my $appsearchfilename = $basedir . $installer::globals::separator . "AppSearc.idt";
  54     my $signaturefilename = $basedir . $installer::globals::separator . "Signatur.idt";
  55
  56     if ( -f $reglocatfilename )
  57     {
  58         $reglocatfile = installer::files::read_file($reglocatfilename);
  59     }
  60     else
  61     {
  62         my @reglocattable = ();
  63         $reglocatfile = \@reglocattable;
  64         installer::windows::idtglobal::write_idt_header($reglocatfile, "reglocat");
  65     }
  66
  67     if ( -f $appsearchfilename )
  68     {
  69         $appsearchfile = installer::files::read_file($appsearchfilename);
  70     }
  71     else
  72     {
  73         my @appsearchtable = ();
  74         $appsearchfile = \@appsearchtable;
  75         installer::windows::idtglobal::write_idt_header($appsearchfile, "appsearch");
  76     }
  77
  78     if ( -f $signaturefilename )
  79     {
  80         $signaturefile = installer::files::read_file($signaturefilename);
  81     }
  82     else
  83     {
  84         my @signaturetable = ();
  85         $signaturefile = \@signaturetable;
  86         installer::windows::idtglobal::write_idt_header($signaturefile, "signatur");
  87     }
  88
  89     # Writing content into this tables
  90
  91     if ( ! $allvariables->{'PATCHCODEFILE'} ) { installer::exiter::exit_program("ERROR: Variable PATCHCODEFILE must be defined for Windows patches!", "update_patch_tables"); }
  92     my $patchcodesfilename = $installer::globals::idttemplatepath  . $installer::globals::separator . $allvariables->{'PATCHCODEFILE'};
  93     my $patchcodefile = installer::files::read_file($patchcodesfilename);
  94
  95     my $number = 0;
  96
  97     for ( my $i = 0; $i <= $#{$patchcodefile}; $i++ )
  98     {
  99         my $oneline = ${$patchcodefile}[$i];
 100
 101         if ( $oneline =~ /^\s*\#/ ) { next; }   # this is a comment line
 102         if ( $oneline =~ /^\s*$/ ) { next; }
 103
 104         my $code = "";
 105         if ( $oneline =~ /^\s*(\S+)\s/ ) { $code = $1; }
 106
 107         foreach my $name ( sort keys %installer::globals::installlocations )
 108         {
 109             $number++;
 110             my $signature = "dir" . $number . "user";
 111             my $rootvalue = "1";
 112             my $registryname = "";
 113             my $registryversion = "";
 114
 115             if ( $allvariables->{'SEARCHPRODUCTNAME'} ) { $registryname = $allvariables->{'SEARCHPRODUCTNAME'}; }
 116             else { $registryname = $allvariables->{'PRODUCTNAME'}; }
 117
 118             if ( $allvariables->{'SEARCHPRODUCTVERSION'} ) { $registryversion = $allvariables->{'SEARCHPRODUCTVERSION'}; }
 119             else { $registryversion = $allvariables->{'PRODUCTVERSION'}; }
 120
 121             my $key = "Software\\" . $allvariables->{'MANUFACTURER'} . "\\" . $registryname . "\\" . $registryversion . "\\" . $code;
 122
 123             my $type = 2;
 124             my $property = $name;
 125
 126             $oneline = $signature . "\t" . $rootvalue . "\t" . $key . "\t" . $name . "\t" . $type . "\n";
 127             push(@{$reglocatfile}, $oneline);
 128
 129             $oneline = $property . "\t" . $signature . "\n";
 130             push(@{$appsearchfile}, $oneline);
 131
 132             $signature = "dir" . $number . "mach";
 133             $rootvalue = "2";
 134
 135             $oneline = $signature . "\t" . $rootvalue . "\t" . $key . "\t" . $name . "\t" . $type . "\n";
 136             push(@{$reglocatfile}, $oneline);
 137
 138             $oneline = $property . "\t" . $signature . "\n";
 139             push(@{$appsearchfile}, $oneline);
 140         }
 141     }
 142
 143     # Saving the files
 144
 145     installer::files::save_file($reglocatfilename ,$reglocatfile);
 146     my $infoline = "Updated idt file: $reglocatfilename\n";
 147     push(@installer::globals::logfileinfo, $infoline);
 148
 149     installer::files::save_file($appsearchfilename ,$appsearchfile);
 150     $infoline = "Updated idt file: $appsearchfilename\n";
 151     push(@installer::globals::logfileinfo, $infoline);
 152
 153     installer::files::save_file($signaturefilename ,$signaturefile);
 154     $infoline = "Updated idt file: $signaturefilename\n";
 155     push(@installer::globals::logfileinfo, $infoline);
 156
 157 }
 158
 159 1;