solenv/bin/modules/installer/scppatchsoname.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: scppatchsoname.pm,v $
  10 #
  11 # $Revision: 1.8 $
  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::scppatchsoname;
  33
  34 use installer::files;
  35 use installer::globals;
  36 use installer::logger;
  37 use installer::setupscript;
  38 use installer::systemactions;
  39
  40 ########################################################################################
  41 # The length of the new string must be identical with the length of the old string
  42 ########################################################################################
  43
  44 sub change_length_of_string
  45 {
  46     my ($newstringref, $oldstring) = @_;
  47
  48     while ( length($$newstringref) < length($oldstring) )
  49     {
  50         $$newstringref = $$newstringref . chr(0);
  51     }
  52 }
  53
  54 ########################################################################################
  55 # The length of the new string must be identical with the length of the old string
  56 ########################################################################################
  57
  58 sub change_length_of_string_with_letter
  59 {
  60     my ($newstringref, $oldstring, $onestring) = @_;
  61
  62     while ( length($$newstringref) < length($oldstring) )
  63     {
  64         $$newstringref = $$newstringref . $onestring;
  65     }
  66 }
  67
  68 ########################################################################################
  69 # Converting a string to a unicode string
  70 ########################################################################################
  71
  72 sub convert_to_unicode
  73 {
  74     my ($string) = @_;
  75
  76     my $unicodestring = "";
  77
  78     my $stringlength = length($string);
  79
  80     for ( my $i = 0; $i < $stringlength; $i++ )
  81     {
  82         $unicodestring = $unicodestring . substr($string, $i, 1);
  83         $unicodestring = $unicodestring . chr(0);
  84     }
  85
  86     return $unicodestring;
  87 }
  88
  89 ########################################################################################
  90 # Replacing the so name in all files with flag PATCH_SO_NAME
  91 ########################################################################################
  92
  93 sub replace_productname_in_file
  94 {
  95     my ($sourcepath, $destpath, $variableshashref, $onefilehash, $styles) = @_;
  96
  97     my $onefile = installer::files::read_binary_file($sourcepath);
  98
  99     # searching for "x"
 100
 101     my $onestring = "x" . chr(0);
 102     my $replacestring = "";
 103     for ( my $i = 1; $i <= 80; $i++ ) { $replacestring .= $onestring; }
 104
 105     my $productname = $variableshashref->{'PRODUCTNAME'} . " " . $variableshashref->{'PRODUCTVERSION'};
 106     if ( exists($onefilehash->{'FileDescription'}) ) { $productname = $onefilehash->{'FileDescription'}; }
 107     my $unicode_productname = convert_to_unicode($productname);
 108
 109     change_length_of_string(\$unicode_productname, $replacestring);
 110
 111     my $found1 = $onefile =~ s/$replacestring/$unicode_productname/sg;
 112
 113     my $found2 = 0;
 114
 115     if ( $styles =~ /\bPATCH_SO_NAME_Z\b/ )
 116     {
 117         # searching for "z"
 118
 119         $onestring = "z" . chr(0);
 120         $replacestring = "";
 121         for ( my $i = 1; $i <= 80; $i++ ) { $replacestring .= $onestring; }
 122
 123         my $productname2 = $variableshashref->{'PRODUCTNAME'} . " " . $variableshashref->{'PRODUCTVERSION'};
 124         if ( exists($onefilehash->{'FileDescriptionZ'}) ) { $productname2 = $onefilehash->{'FileDescriptionZ'}; }
 125         my $unicode_productname2 = convert_to_unicode($productname2);
 126
 127         change_length_of_string_with_letter(\$unicode_productname2, $replacestring, $onestring);
 128
 129         $found2 = $onefile =~ s/$replacestring/$unicode_productname2/sg;
 130     }
 131
 132     installer::files::save_binary_file($onefile, $destpath);
 133
 134     my $found = $found1 + $found2;
 135
 136     return $found;
 137 }
 138
 139 #########################################################
 140 # Analyzing files with flag PATCH_SO_NAME
 141 #########################################################
 142
 143 sub resolving_patchsoname_flag
 144 {
 145     my ($filesarrayref, $variableshashref, $item, $languagestringref) = @_;
 146
 147     my $diritem = lc($item);
 148
 149     my $replacedirbase = installer::systemactions::create_directories("patchsoname_$diritem", $languagestringref);
 150
 151     installer::logger::include_header_into_logfile("$item with flag PATCH_SO_NAME:");
 152
 153     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 154     {
 155         my $onefile = ${$filesarrayref}[$i];
 156         my $styles = "";
 157
 158         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
 159
 160         if ( $styles =~ /\bPATCH_SO_NAME\b/ )
 161         {
 162             # Language specific subdirectory
 163
 164             my $onelanguage = $onefile->{'specificlanguage'};
 165             my $filedescription = "";
 166
 167             if ($onelanguage eq "")
 168             {
 169                 $onelanguage = "00";    # files without language into directory "00"
 170             }
 171
 172             my $replacedir = $replacedirbase . $installer::globals::separator . $onelanguage . $installer::globals::separator;
 173             installer::systemactions::create_directory($replacedir);    # creating language specific directories
 174
 175             # copy files and edit them with the variables defined in the zip.lst
 176
 177             my $onefilename = $onefile->{'Name'};
 178             my $sourcepath = $onefile->{'sourcepath'};
 179             my $destinationpath = $replacedir . $onefilename;
 180             my $movepath = $destinationpath . ".orig";
 181
 182             # if (!(-f $destinationpath))       # do nothing if the file already exists
 183             # {
 184
 185             my $copysuccess = installer::systemactions::copy_one_file($sourcepath, $movepath);
 186
 187             if ( $copysuccess )
 188             {
 189                 # Now the file can be patch (binary!)
 190                 my $found = replace_productname_in_file($movepath, $destinationpath, $variableshashref, $onefile, $styles);
 191
 192                 if ($found == 0)
 193                 {
 194                     my $infoline = "Did not patch the file $destinationpath\n";
 195                     push( @installer::globals::logfileinfo, $infoline);
 196                 }
 197                 else
 198                 {
 199                     my $infoline = "Successfully patched $destinationpath, Count: $found\n";
 200                     push( @installer::globals::logfileinfo, $infoline);
 201                 }
 202             }
 203
 204             # }
 205
 206             # Saving the original source, where the file was found
 207             $onefile->{'originalsourcepath'} = $onefile->{'sourcepath'};
 208
 209             # Saving the original source, where the file was found
 210             $onefile->{'originalsourcepath'} = $onefile->{'sourcepath'};
 211
 212             # Writing the new sourcepath into the hashref, even if it was no copied
 213
 214             $onefile->{'sourcepath'} = $destinationpath;
 215         }
 216     }
 217
 218     my $infoline = "\n";
 219     push( @installer::globals::logfileinfo, $infoline);
 220 }
 221
 222 1;