solenv/bin/modules/installer/existence.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: existence.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::existence;
  33
  34 #############################
  35 # Test of existence
  36 #############################
  37
  38 sub exists_in_array
  39 {
  40     my ($searchstring, $arrayref) = @_;
  41
  42     my $alreadyexists = 0;
  43
  44     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
  45     {
  46         if ( ${$arrayref}[$i] eq $searchstring)
  47         {
  48             $alreadyexists = 1;
  49             last;
  50         }
  51     }
  52
  53     return $alreadyexists;
  54 }
  55
  56 sub exists_in_array_of_hashes
  57 {
  58     my ($searchkey, $searchvalue, $arrayref) = @_;
  59
  60     my $valueexists = 0;
  61
  62     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
  63     {
  64         my $hashref = ${$arrayref}[$i];
  65
  66         if ( $hashref->{$searchkey} eq $searchvalue )
  67         {
  68             $valueexists = 1;
  69             last;
  70         }
  71     }
  72
  73     return $valueexists;
  74 }
  75
  76 #####################################################################
  77 # Returning a specified file as base for the new
  78 # configuration file, defined by its "gid"
  79 #####################################################################
  80
  81 sub get_specified_file
  82 {
  83     my ($filesarrayref, $searchgid) = @_;
  84
  85     my $foundfile = 0;
  86     my $onefile;
  87
  88     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
  89     {
  90         $onefile = ${$filesarrayref}[$i];
  91         my $filegid = $onefile->{'gid'};
  92
  93         if ( $filegid eq $searchgid )
  94         {
  95             $foundfile = 1;
  96             last;
  97         }
  98     }
  99
 100     my $errorline = "ERROR: Could not find file $searchgid in list of files!";
 101
 102     if ( $installer::globals::patch) { $errorline = "ERROR: Could not find file $searchgid in list of files! intro.bmp must be part of every patch. Please assign the flag PATCH in scp2 project."; }
 103
 104     if (!($foundfile))
 105     {
 106         installer::exiter::exit_program($errorline, "get_specified_file");
 107     }
 108
 109     return $onefile;
 110 }
 111
 112 #####################################################################
 113 # Returning a specified file as base for a new file,
 114 # defined by its "Name"
 115 #####################################################################
 116
 117 sub get_specified_file_by_name
 118 {
 119     my ($filesarrayref, $searchname) = @_;
 120
 121     my $foundfile = 0;
 122     my $onefile;
 123
 124     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 125     {
 126         $onefile = ${$filesarrayref}[$i];
 127         my $filename = $onefile->{'Name'};
 128
 129         if ( $filename eq $searchname )
 130         {
 131             $foundfile = 1;
 132             last;
 133         }
 134     }
 135
 136     if (!($foundfile))
 137     {
 138         installer::exiter::exit_program("ERROR: Could not find file $searchname in list of files!", "get_specified_file_by_name");
 139     }
 140
 141     return $onefile;
 142 }
 143
 144 #####################################################################
 145 # Checking existence of a specific file, defined by its "Name"
 146 #####################################################################
 147
 148 sub filename_exists_in_filesarray
 149 {
 150     my ($filesarrayref, $searchname) = @_;
 151
 152     my $foundfile = 0;
 153
 154     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 155     {
 156         my $onefile = ${$filesarrayref}[$i];
 157         my $filename = $onefile->{'Name'};
 158
 159         if ( $filename eq $searchname )
 160         {
 161             $foundfile = 1;
 162             last;
 163         }
 164     }
 165
 166     return $foundfile;
 167 }
 168
 169 #####################################################################
 170 # Checking existence of a specific file, defined by its "gid"
 171 #####################################################################
 172
 173 sub filegid_exists_in_filesarray
 174 {
 175     my ($filesarrayref, $searchgid) = @_;
 176
 177     my $foundfile = 0;
 178
 179     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 180     {
 181         my $onefile = ${$filesarrayref}[$i];
 182         my $filegid = $onefile->{'gid'};
 183
 184         if ( $filegid eq $searchgid )
 185         {
 186             $foundfile = 1;
 187             last;
 188         }
 189     }
 190
 191     return $foundfile;
 192 }
 193
 194 1;