solenv/bin/modules/installer/windows/selfreg.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: selfreg.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::selfreg;
  33
  34 use installer::exiter;
  35 use installer::files;
  36 use installer::globals;
  37 use installer::worker;
  38 use installer::windows::idtglobal;
  39
  40 ##############################################################
  41 # Returning the cost for the selfreg table.
  42 ##############################################################
  43
  44 sub get_selfreg_cost
  45 {
  46     my ( $onefile ) = @_;
  47
  48     return "0";
  49 }
  50
  51 ####################################################################################
  52 # Creating the file SelfReg.idt dynamically
  53 # Content:
  54 # File_ Cost
  55 # UpgradeCode VersionMin VersionMax Language Attributes Remove ActionProperty
  56 ####################################################################################
  57
  58 sub create_selfreg_table
  59 {
  60     my ($filesref, $basedir) = @_;
  61
  62     my @selfregtable = ();
  63
  64     installer::windows::idtglobal::write_idt_header(\@selfregtable, "selfreg");
  65
  66     # Registering all libraries with flag "SELFREG"
  67
  68     my $selfregfiles = installer::worker::collect_all_items_with_special_flag($filesref, "SELFREG");
  69
  70     for ( my $i = 0; $i <= $#{$selfregfiles}; $i++ )
  71     {
  72         my $onefile = ${$selfregfiles}[$i];
  73
  74         my %selfreg = ();
  75
  76         $selfreg{'File_'} = $onefile->{'uniquename'};
  77         $selfreg{'Cost'} = get_selfreg_cost($onefile);
  78
  79         my $oneline = $selfreg{'File_'} . "\t" . $selfreg{'Cost'} . "\n";
  80
  81         push(@selfregtable, $oneline);
  82     }
  83
  84     # Saving the file
  85
  86     my $selfregtablename = $basedir . $installer::globals::separator . "SelfReg.idt";
  87     installer::files::save_file($selfregtablename ,\@selfregtable);
  88     my $infoline = "Created idt file: $selfregtablename\n";
  89     push(@installer::globals::logfileinfo, $infoline);
  90 }
  91
  92 1;