xref: /AOO41X/main/solenv/bin/modules/installer/epmfile.pm (revision 4bfbcde8d64cc5d114df10dce4a9ed79eff32278) 
1#**************************************************************
2#
3#  Licensed to the Apache Software Foundation (ASF) under one
4#  or more contributor license agreements.  See the NOTICE file
5#  distributed with this work for additional information
6#  regarding copyright ownership.  The ASF licenses this file
7#  to you under the Apache License, Version 2.0 (the
8#  "License"); you may not use this file except in compliance
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22
23
24package installer::epmfile;
25
26use Cwd;
27use installer::converter;
28use installer::existence;
29use installer::exiter;
30use installer::files;
31use installer::globals;
32use installer::logger;
33use installer::packagelist;
34use installer::pathanalyzer;
35use installer::remover;
36use installer::scriptitems;
37use installer::systemactions;
38use installer::worker;
39use POSIX;
40
41############################################################################
42# Reading the package map to find Solaris package names for
43# the corresponding abbreviations
44############################################################################
45
46sub read_packagemap
47{
48    my ($allvariables, $includepatharrayref, $languagesarrayref) = @_;
49
50    my $packagemapname = "";
51    if ( $allvariables->{'PACKAGEMAP'} ) { $packagemapname = $allvariables->{'PACKAGEMAP'}; }
52    if ( $packagemapname eq "" ) { installer::exiter::exit_program("ERROR: Property PACKAGEMAP must be defined!", "read_packagemap"); }
53
54    my $infoline = "\n\nCollected abbreviations and package names:\n";
55    push(@installer::globals::logfileinfo, $infoline);
56
57    # Can be a comma separated list. All files have to be found in include pathes
58    my $allpackagemapnames = installer::converter::convert_stringlist_into_hash(\$packagemapname, ",");
59    foreach my $onepackagemapname ( keys %{$allpackagemapnames} )
60    {
61        my $packagemapref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$onepackagemapname, $includepatharrayref, 0);
62
63        if ( $$packagemapref eq "" ) { installer::exiter::exit_program("ERROR: Could not find package map file \"$onepackagemapname\" (propery PACKAGEMAP)!", "read_packagemap"); }
64
65        my $packagemapcontent = installer::files::read_file($$packagemapref);
66
67        for ( my $i = 0; $i <= $#{$packagemapcontent}; $i++ )
68        {
69            my $line = ${$packagemapcontent}[$i];
70
71            if ( $line =~ /^\s*\#/ ) { next; }  # comment line
72            if ( $line =~ /^\s*$/ ) { next; }  # empty line
73
74            if ( $line =~ /^\s*(.*?)\t(.*?)\s*$/ )
75            {
76                my $abbreviation = $1;
77                my $packagename = $2;
78                installer::packagelist::resolve_packagevariables(\$abbreviation, $allvariables, 0);
79                installer::packagelist::resolve_packagevariables(\$packagename, $allvariables, 0);
80
81                # Special handling for language strings %LANGUAGESTRING
82
83                if (( $abbreviation =~ /\%LANGUAGESTRING/ ) || ( $packagename =~ /\%LANGUAGESTRING/ ))
84                {
85                    foreach my $onelang ( @{$languagesarrayref} )
86                    {
87                        my $local_abbreviation = $abbreviation;
88                        my $local_packagename = $packagename;
89                        $local_abbreviation =~ s/\%LANGUAGESTRING/$onelang/g;
90                        $local_packagename =~ s/\%LANGUAGESTRING/$onelang/g;
91
92                        # Logging all abbreviations and packagenames
93                        $infoline = "$onelang : $local_abbreviation : $local_packagename\n";
94                        push(@installer::globals::logfileinfo, $infoline);
95
96                        if ( exists($installer::globals::dependfilenames{$local_abbreviation}) )
97                        {
98                            installer::exiter::exit_program("ERROR: Packagename for  Solaris package $local_abbreviation already defined ($installer::globals::dependfilenames{$local_abbreviation})!", "read_packagemap");
99                        }
100                        else
101                        {
102                            $installer::globals::dependfilenames{$local_abbreviation} = $local_packagename;
103                        }
104                    }
105                }
106                else
107                {
108                    # Logging all abbreviations and packagenames
109                    $infoline = "$abbreviation : $packagename\n";
110                    push(@installer::globals::logfileinfo, $infoline);
111
112                    if ( exists($installer::globals::dependfilenames{$abbreviation}) )
113                    {
114                        installer::exiter::exit_program("ERROR: Packagename for  Solaris package $abbreviation already defined ($installer::globals::dependfilenames{$abbreviation})!", "read_packagemap");
115                    }
116                    else
117                    {
118                        $installer::globals::dependfilenames{$abbreviation} = $packagename;
119                    }
120                }
121            }
122            else
123            {
124                my $errorline = $i + 1;
125                installer::exiter::exit_program("ERROR: Wrong syntax in file \"$onepackagemapname\" (line $errorline)!", "read_packagemap");
126            }
127        }
128    }
129
130    $infoline = "\n\n";
131    push(@installer::globals::logfileinfo, $infoline);
132
133}
134
135############################################################################
136# The header file contains the strings for the epm header in all languages
137############################################################################
138
139sub get_string_from_headerfile
140{
141    my ($searchstring, $language, $fileref) = @_;
142
143    my $returnstring  = "";
144    my $onestring  = "";
145    my $englishstring  = "";
146    my $foundblock = 0;
147    my $foundstring = 0;
148    my $foundenglishstring = 0;
149    my $englishidentifier = "01";
150
151    $searchstring = "[" . $searchstring . "]";
152
153    for ( my $i = 0; $i <= $#{$fileref}; $i++ )
154    {
155        my $line = ${$fileref}[$i];
156
157        if ( $line =~ /^\s*\Q$searchstring\E\s*$/ )
158        {
159            $foundblock = 1;
160            my $counter = $i + 1;
161
162            $line = ${$fileref}[$counter];
163
164            # Beginning of the next block oder Dateiende
165
166            while ((!($line =~ /^\s*\[\s*\w+\s*\]\s*$/ )) && ( $counter <= $#{$fileref} ))
167            {
168                if ( $line =~ /^\s*\Q$language\E\s+\=\s*\"(.*)\"\s*$/ )
169                {
170                    $onestring = $1;
171                    $foundstring = 1;
172                    last;
173                }
174
175                if ( $line =~ /^\s*\Q$englishidentifier\E\s+\=\s*\"(.*)\"\s*$/ )
176                {
177                    $englishstring = $1;
178                    $foundenglishstring = 1;
179                }
180
181                $counter++;
182                $line = ${$fileref}[$counter];
183            }
184        }
185    }
186
187    if ( $foundstring )
188    {
189        $returnstring = $onestring;
190    }
191    else
192    {
193        if ( $foundenglishstring )
194        {
195            $returnstring = $englishstring;
196        }
197        else
198        {
199            installer::exiter::exit_program("ERROR: No string found for $searchstring in epm header file (-h)", "get_string_from_headerfile");
200        }
201    }
202
203    return \$returnstring;
204}
205
206##########################################################
207# Filling the epm file with directories, files and links
208##########################################################
209
210sub put_directories_into_epmfile
211{
212    my ($directoriesarrayref, $epmfileref, $allvariables, $packagerootpath) = @_;
213    my $group = "bin";
214
215    if ( $installer::globals::islinuxbuild )
216    {
217        $group = "root";
218    }
219
220    for ( my $i = 0; $i <= $#{$directoriesarrayref}; $i++ )
221    {
222        my $onedir = ${$directoriesarrayref}[$i];
223        my $dir = "";
224
225        if ( $onedir->{'Dir'} ) { $dir = $onedir->{'Dir'}; }
226
227        # if (!($dir =~ /\bPREDEFINED_/ ))
228        if ((!($dir =~ /\bPREDEFINED_/ )) || ( $dir =~ /\bPREDEFINED_PROGDIR\b/ ))
229        {
230            my $hostname = $onedir->{'HostName'};
231
232            # not including simple directory "/opt"
233            # if (( $allvariables->{'SETSTATICPATH'} ) && ( $hostname eq $packagerootpath )) { next; }
234
235            my $line = "d 755 root $group $hostname -\n";
236
237            push(@{$epmfileref}, $line)
238        }
239    }
240}
241
242sub put_files_into_epmfile
243{
244    my ($filesinproductarrayref, $epmfileref) = @_;
245
246    for ( my $i = 0; $i <= $#{$filesinproductarrayref}; $i++ )
247    {
248        my $onefile = ${$filesinproductarrayref}[$i];
249
250        my $unixrights = $onefile->{'UnixRights'};
251        my $destination = $onefile->{'destination'};
252        my $sourcepath = $onefile->{'sourcepath'};
253
254        my $filetype = "f";
255        my $styles = "";
256        if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
257        if ( $styles =~ /\bCONFIGFILE\b/ ) { $filetype = "c"; }
258
259        my $group = "bin";
260        if ( $installer::globals::islinuxbuild ) { $group = "root"; }
261        if (( $installer::globals::issolarisbuild ) && ( $onefile->{'SolarisGroup'} )) { $group = $onefile->{'SolarisGroup'}; }
262
263        my $line = "$filetype $unixrights root $group $destination $sourcepath\n";
264
265        push(@{$epmfileref}, $line);
266    }
267}
268
269sub put_links_into_epmfile
270{
271    my ($linksinproductarrayref, $epmfileref) = @_;
272    my $group = "bin";
273
274    if ( $installer::globals::islinuxbuild )
275    {
276        $group = "root";
277    }
278
279
280    for ( my $i = 0; $i <= $#{$linksinproductarrayref}; $i++ )
281    {
282        my $onelink = ${$linksinproductarrayref}[$i];
283        my $destination = $onelink->{'destination'};
284        my $destinationfile = $onelink->{'destinationfile'};
285
286        my $line = "l 000 root $group $destination $destinationfile\n";
287
288        push(@{$epmfileref}, $line)
289    }
290}
291
292sub put_unixlinks_into_epmfile
293{
294    my ($unixlinksinproductarrayref, $epmfileref) = @_;
295    my $group = "bin";
296
297    if ( $installer::globals::islinuxbuild ) { $group = "root"; }
298
299    for ( my $i = 0; $i <= $#{$unixlinksinproductarrayref}; $i++ )
300    {
301        my $onelink = ${$unixlinksinproductarrayref}[$i];
302        my $destination = $onelink->{'destination'};
303        my $target = $onelink->{'Target'};
304
305        my $line = "l 000 root $group $destination $target\n";
306
307        push(@{$epmfileref}, $line)
308    }
309}
310
311###############################################
312# Creating epm header file
313###############################################
314
315sub create_epm_header
316{
317    my ($variableshashref, $filesinproduct, $languagesref, $onepackage) = @_;
318
319    my @epmheader = ();
320
321    my ($licensefilename, $readmefilename);
322
323    my $foundlicensefile = 0;
324    my $foundreadmefile = 0;
325
326    my $line = "";
327    my $infoline = "";
328
329    # %product OpenOffice.org Software
330    # %version 2.0
331    # %description A really great software
332    # %copyright 1999-2003 by OOo
333    # %vendor OpenOffice.org
334    # %license /test/replace/01/LICENSE01
335    # %readme /test/replace/01/README01
336    # %requires foo
337    # %provides bar
338
339    # The first language in the languages array determines the language of license and readme file
340
341    my $searchlanguage = ${$languagesref}[0];
342
343    # using the description for the %product line in the epm list file
344
345    my $productnamestring = $onepackage->{'description'};
346    installer::packagelist::resolve_packagevariables(\$productnamestring, $variableshashref, 0);
347    if ( $variableshashref->{'PRODUCTEXTENSION'} ) { $productnamestring = $productnamestring . " " . $variableshashref->{'PRODUCTEXTENSION'}; }
348
349    $line = "%product" . " " . $productnamestring . "\n";
350    push(@epmheader, $line);
351
352    # Determining the release version
353    # This release version has to be listed in the line %version : %version versionnumber releasenumber
354
355    # if ( $variableshashref->{'PACKAGEVERSION'} ) { $installer::globals::packageversion = $variableshashref->{'PACKAGEVERSION'}; }
356    if ( ! $onepackage->{'packageversion'} ) { installer::exiter::exit_program("ERROR: No packageversion defined for package: $onepackage->{'module'}!", "create_epm_header"); }
357    $installer::globals::packageversion = $onepackage->{'packageversion'};
358    installer::packagelist::resolve_packagevariables(\$installer::globals::packageversion, $variableshashref, 0);
359    if ( $variableshashref->{'PACKAGEREVISION'} ) { $installer::globals::packagerevision = $variableshashref->{'PACKAGEREVISION'}; }
360
361    $line = "%version" . " " . $installer::globals::packageversion . "\n";
362    push(@epmheader, $line);
363
364    $line = "%release" . " " . $installer::globals::packagerevision . "\n";
365    if ( $installer::globals::islinuxrpmbuild ) { $line = "%release" . " " . $installer::globals::buildid . "\n"; }
366    push(@epmheader, $line);
367
368    # Description, Copyright and Vendor are multilingual and are defined in
369    # the string file for the header file ($headerfileref)
370
371    my $descriptionstring = $onepackage->{'description'};
372    installer::packagelist::resolve_packagevariables(\$descriptionstring, $variableshashref, 0);
373    $line = "%description" . " " . $descriptionstring . "\n";
374    push(@epmheader, $line);
375
376    my $copyrightstring = $onepackage->{'copyright'};
377    installer::packagelist::resolve_packagevariables(\$copyrightstring, $variableshashref, 0);
378    $line = "%copyright" . " " . $copyrightstring . "\n";
379    push(@epmheader, $line);
380
381    my $vendorstring = $onepackage->{'vendor'};
382    installer::packagelist::resolve_packagevariables(\$vendorstring, $variableshashref, 0);
383    $line = "%vendor" . " " . $vendorstring . "\n";
384    push(@epmheader, $line);
385
386    # License and Readme file can be included automatically from the file list
387
388    if ( $installer::globals::iswindowsbuild )
389    {
390        $licensefilename = "license.txt";
391        $readmefilename = "readme.txt";
392    }
393    else
394    {
395        $licensefilename = "LICENSE";
396        $readmefilename = "README";
397    }
398
399    if (( $installer::globals::languagepack )   # in language packs the files LICENSE and README are removed, because they are not language specific
400        || ( $variableshashref->{'NO_README_IN_ROOTDIR'} ))
401    {
402        if ( $installer::globals::iswindowsbuild )
403        {
404            $licensefilename = "license_$searchlanguage.txt";
405            $readmefilename = "readme_$searchlanguage.txt";
406        }
407        else
408        {
409            $licensefilename = "LICENSE_$searchlanguage";
410            $readmefilename = "README_$searchlanguage";
411        }
412    }
413
414    my $license_in_package_defined = 0;
415
416    if ( $installer::globals::issolarisbuild )
417    {
418        if ( $onepackage->{'solariscopyright'} )
419        {
420            $licensefilename = $onepackage->{'solariscopyright'};
421            $license_in_package_defined = 1;
422        }
423    }
424
425    # Process for Linux packages, in which only a very basic license file is
426    # included into the package.
427
428    if ( $installer::globals::islinuxbuild )
429    {
430        if ( $variableshashref->{'COPYRIGHT_INTO_LINUXPACKAGE'} )
431        {
432            $licensefilename = "linuxcopyrightfile";
433            $license_in_package_defined = 1;
434        }
435    }
436    # searching for and readme file
437
438    for ( my $i = 0; $i <= $#{$filesinproduct}; $i++ )
439    {
440        my $onefile = ${$filesinproduct}[$i];
441        my $filename = $onefile->{'Name'};
442        if ( $filename eq $readmefilename )
443        {
444            $foundreadmefile = 1;
445            $line = "%readme" . " " . $onefile->{'sourcepath'} . "\n";
446            push(@epmheader, $line);
447            last;
448        }
449    }
450
451    # searching for and license file
452
453    if ( $license_in_package_defined )
454    {
455        my $fileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$licensefilename, "" , 0);
456
457        if ( $$fileref eq "" ) { installer::exiter::exit_program("ERROR: Could not find license file $licensefilename (A)!", "create_epm_header"); }
458
459        # Special handling to add the content of the file "license_en-US" to the solaris copyrightfile. But not for all products
460
461        if (( $installer::globals::issolarispkgbuild ) && ( ! $variableshashref->{'NO_LICENSE_INTO_COPYRIGHT'} ))
462        {
463            if ( ! $installer::globals::englishlicenseset ) { installer::worker::set_english_license() }
464
465            # The location for the new file
466            my $languagestring = "";
467            for ( my $i = 0; $i <= $#{$languagesref}; $i++ ) { $languagestring = $languagestring . "_" . ${$languagesref}[$i]; }
468            $languagestring =~ s/^\s*_//;
469
470            my $copyrightdir = installer::systemactions::create_directories("copyright", \$languagestring);
471
472            my $copyrightfile = installer::files::read_file($$fileref);
473
474            # Adding license content to copyright file
475            push(@{$copyrightfile}, "\n");
476            for ( my $i = 0; $i <= $#{$installer::globals::englishlicense}; $i++ ) { push(@{$copyrightfile}, ${$installer::globals::englishlicense}[$i]); }
477
478            # New destination for $$fileref
479            $$fileref = $copyrightdir . $installer::globals::separator . "solariscopyrightfile_" . $onepackage->{'module'};
480            if ( -f $$fileref ) { unlink $$fileref; }
481            installer::files::save_file($$fileref, $copyrightfile);
482        }
483
484        $infoline = "Using license file: \"$$fileref\"!\n";
485        push(@installer::globals::logfileinfo, $infoline);
486
487        $foundlicensefile = 1;
488        $line = "%license" . " " . $$fileref . "\n";
489        push(@epmheader, $line);
490    }
491    else
492    {
493        for ( my $i = 0; $i <= $#{$filesinproduct}; $i++ )
494        {
495            my $onefile = ${$filesinproduct}[$i];
496            my $filename = $onefile->{'Name'};
497
498            if ( $filename eq $licensefilename )
499            {
500                $foundlicensefile = 1;
501                $line = "%license" . " " . $onefile->{'sourcepath'} . "\n";
502                push(@epmheader, $line);
503                last;
504            }
505        }
506    }
507
508    if (!($foundlicensefile))
509    {
510        installer::exiter::exit_program("ERROR: Could not find license file $licensefilename (B)", "create_epm_header");
511    }
512
513    if (!($foundreadmefile))
514    {
515        installer::exiter::exit_program("ERROR: Could not find readme file $readmefilename (C)", "create_epm_header");
516    }
517
518    # including %replaces
519
520    my $replaces = "";
521
522    if (( $installer::globals::issolarispkgbuild ) && ( ! $installer::globals::patch ))
523    {
524        $replaces = "solarisreplaces";   # the name in the packagelist
525    }
526    elsif (( $installer::globals::islinuxbuild ) && ( ! $installer::globals::patch ))
527    {
528        $replaces = "linuxreplaces";    # the name in the packagelist
529    }
530
531    if (( $replaces ) && ( ! $installer::globals::patch ))
532    {
533        if ( $onepackage->{$replaces} )
534        {
535            my $replacesstring = $onepackage->{$replaces};
536
537            my $allreplaces = installer::converter::convert_stringlist_into_array(\$replacesstring, ",");
538
539            for ( my $i = 0; $i <= $#{$allreplaces}; $i++ )
540            {
541                my $onereplaces = ${$allreplaces}[$i];
542                $onereplaces =~ s/\s*$//;
543                installer::packagelist::resolve_packagevariables(\$onereplaces, $variableshashref, 1);
544                if ( $installer::globals::linuxlinkrpmprocess ) { $onereplaces = $onereplaces . "u"; }
545                if ( $installer::globals::debian ) { $onereplaces =~ s/_/-/g; } # Debian allows no underline in package name
546                $line = "%replaces" . " " . $onereplaces . "\n";
547                push(@epmheader, $line);
548
549                # Force the openofficeorg packages to get removed,
550                # see http://www.debian.org/doc/debian-policy/ch-relationships.html
551                # 7.5.2 Replacing whole packages, forcing their removal
552
553                if ( $installer::globals::debian )
554                {
555                    $line = "%incompat" . " " . $onereplaces . "\n";
556                    push(@epmheader, $line);
557                }
558            }
559
560            if ( $installer::globals::debian && $variableshashref->{'UNIXPRODUCTNAME'} eq 'openoffice.org' )
561            {
562                $line = "%provides" . " openoffice.org-unbundled\n";
563                push(@epmheader, $line);
564                $line = "%incompat" . " openoffice.org-bundled\n";
565                push(@epmheader, $line);
566            }
567        }
568    }
569
570    # including the directives for %requires and %provides
571
572    my $provides = "";
573    my $requires = "";
574
575    if ( $installer::globals::issolarispkgbuild )
576    {
577        $provides = "solarisprovides";   # the name in the packagelist
578        $requires = "solarisrequires";   # the name in the packagelist
579    }
580    elsif ( $installer::globals::isfreebsdpkgbuild )
581    {
582        $provides = "freebsdprovides";   # the name in the packagelist
583        $requires = "freebsdrequires";   # the name in the packagelist
584    }
585    elsif (( $installer::globals::islinuxrpmbuild ) &&
586            ( $installer::globals::patch ) &&
587            ( exists($onepackage->{'linuxpatchrequires'}) ))
588    {
589        $provides = "provides";  # the name in the packagelist
590        $requires = "linuxpatchrequires";    # the name in the packagelist
591    }
592    else
593    {
594        $provides = "provides";         # the name in the packagelist
595        $requires = "requires";         # the name in the packagelist
596    }
597
598    # if ( $installer::globals::patch )
599    # {
600    #   $onepackage->{$provides} = "";
601        my $isdict = 0;
602        if ( $onepackage->{'packagename'} =~ /-dict-/ ) { $isdict = 1;  }
603
604    #   $onepackage->{$requires} = "";
605    # }
606
607    if ( $onepackage->{$provides} )
608    {
609        my $providesstring = $onepackage->{$provides};
610
611        my $allprovides = installer::converter::convert_stringlist_into_array(\$providesstring, ",");
612
613        for ( my $i = 0; $i <= $#{$allprovides}; $i++ )
614        {
615            my $oneprovides = ${$allprovides}[$i];
616            $oneprovides =~ s/\s*$//;
617            installer::packagelist::resolve_packagevariables(\$oneprovides, $variableshashref, 1);
618            if ( $installer::globals::linuxlinkrpmprocess ) { $oneprovides = $oneprovides . "u"; }
619            if ( $installer::globals::debian ) { $oneprovides =~ s/_/-/g; } # Debian allows no underline in package name
620            $line = "%provides" . " " . $oneprovides . "\n";
621            push(@epmheader, $line);
622        }
623    }
624
625    if ( $onepackage->{$requires} )
626    {
627        my $requiresstring = $onepackage->{$requires};
628
629        if ( $installer::globals::add_required_package ) { $requiresstring = $requiresstring . "," . $installer::globals::add_required_package; }
630
631        # The requires string can contain the separator "," in the names (descriptions) of the packages
632        # (that are required for Solaris depend files). Therefore "," inside such a description has to
633        # masked with a backslash.
634        # This masked separator need to be found and replaced, before the stringlist is converted into an array.
635        # This replacement has to be turned back after the array is created.
636
637        my $replacementstring = "COMMAREPLACEMENT";
638        $requiresstring = installer::converter::replace_masked_separator($requiresstring, ",", "$replacementstring");
639
640        my $allrequires = installer::converter::convert_stringlist_into_array(\$requiresstring, ",");
641
642        installer::converter::resolve_masked_separator($allrequires, ",", $replacementstring);
643
644        for ( my $i = 0; $i <= $#{$allrequires}; $i++ )
645        {
646            my $onerequires = ${$allrequires}[$i];
647            $onerequires =~ s/\s*$//;
648            installer::packagelist::resolve_packagevariables2(\$onerequires, $variableshashref, 0, $isdict);
649            if ( $installer::globals::debian ) { $onerequires =~ s/_/-/g; } # Debian allows no underline in package name
650
651            # Special handling for Solaris. In depend files, the names of the packages are required, not
652            # only the abbreviation. Therefore there is a special syntax for names in packagelist:
653            # solarisrequires = "SUNWcar (Name="Package name of SUNWcar"),SUNWkvm (Name="Package name of SUNWcar"), ...
654            # if ( $installer::globals::issolarispkgbuild )
655            # {
656            #   if ( $onerequires =~ /^\s*(.*?)\s+\(\s*Name\s*=\s*\"(.*?)\"\s*\)\s*$/ )
657            #   {
658            #       $onerequires = $1;
659            #       $packagename = $2;
660            #       $installer::globals::dependfilenames{$onerequires} = $packagename;
661            #   }
662            # }
663
664            $line = "%requires" . " " . $onerequires . "\n";
665            push(@epmheader, $line);
666        }
667    }
668    else
669    {
670        if ( $installer::globals::add_required_package )
671        {
672            my $requiresstring = $installer::globals::add_required_package;
673
674            my $replacementstring = "COMMAREPLACEMENT";
675            $requiresstring = installer::converter::replace_masked_separator($requiresstring, ",", "$replacementstring");
676            my $allrequires = installer::converter::convert_stringlist_into_array(\$requiresstring, ",");
677            installer::converter::resolve_masked_separator($allrequires, ",", $replacementstring);
678
679            for ( my $i = 0; $i <= $#{$allrequires}; $i++ )
680            {
681                my $onerequires = ${$allrequires}[$i];
682                $onerequires =~ s/\s*$//;
683                installer::packagelist::resolve_packagevariables(\$onerequires, $variableshashref, 0);
684                if ( $installer::globals::debian ) { $onerequires =~ s/_/-/g; } # Debian allows no underline in package name
685
686                # Special handling for Solaris. In depend files, the names of the packages are required, not
687                # only the abbreviation. Therefore there is a special syntax for names in packagelist:
688                # solarisrequires = "SUNWcar (Name="Package name of SUNWcar"),SUNWkvm (Name="Package name of SUNWcar"), ...
689                # if ( $installer::globals::issolarispkgbuild )
690                # {
691                #   if ( $onerequires =~ /^\s*(.*?)\s+\(\s*Name\s*=\s*\"(.*?)\"\s*\)\s*$/ )
692                #   {
693                #       $onerequires = $1;
694                #       $packagename = $2;
695                #       $installer::globals::dependfilenames{$onerequires} = $packagename;
696                #   }
697                # }
698
699                $line = "%requires" . " " . $onerequires . "\n";
700                push(@epmheader, $line);
701            }
702        }
703    }
704
705    return \@epmheader;
706}
707
708#######################################
709# Adding header to epm file
710#######################################
711
712sub adding_header_to_epm_file
713{
714    my ($epmfileref, $epmheaderref) = @_;
715
716    for ( my $i = 0; $i <= $#{$epmheaderref}; $i++ )
717    {
718        push( @{$epmfileref}, ${$epmheaderref}[$i] );
719    }
720
721    push( @{$epmfileref}, "\n\n" );
722}
723
724#####################################################
725# Replace one in shell scripts ( ${VARIABLENAME} )
726#####################################################
727
728sub replace_variable_in_shellscripts
729{
730    my ($scriptref, $variable, $searchstring) = @_;
731
732    for ( my $i = 0; $i <= $#{$scriptref}; $i++ )
733    {
734        ${$scriptref}[$i] =~ s/\$\{$searchstring\}/$variable/g;
735    }
736}
737
738###################################################
739# Replace one in shell scripts ( %VARIABLENAME )
740###################################################
741
742sub replace_percent_variable_in_shellscripts
743{
744    my ($scriptref, $variable, $searchstring) = @_;
745
746    for ( my $i = 0; $i <= $#{$scriptref}; $i++ )
747    {
748        ${$scriptref}[$i] =~ s/\%$searchstring/$variable/g;
749    }
750}
751
752################################################
753# Replacing many variables in shell scripts
754################################################
755
756sub replace_many_variables_in_shellscripts
757{
758    my ($scriptref, $variableshashref) = @_;
759
760    my $key;
761
762    foreach $key (keys %{$variableshashref})
763    {
764        my $value = $variableshashref->{$key};
765        # $value = lc($value);  # lowercase !
766        # if ( $installer::globals::issolarisbuild) { $value =~ s/\.org/org/g; }    # openofficeorg instead of openoffice.org
767        replace_variable_in_shellscripts($scriptref, $value, $key);
768    }
769}
770
771#######################################
772# Adding shell scripts to epm file
773#######################################
774
775sub adding_shellscripts_to_epm_file
776{
777    my ($epmfileref, $shellscriptsfilename, $localrootpath, $allvariableshashref, $filesinpackage) = @_;
778
779    # $installer::globals::shellscriptsfilename
780
781    push( @{$epmfileref}, "\n\n" );
782
783    my $shellscriptsfileref = installer::files::read_file($shellscriptsfilename);
784
785    replace_variable_in_shellscripts($shellscriptsfileref, $localrootpath, "rootpath");
786
787    replace_many_variables_in_shellscripts($shellscriptsfileref, $allvariableshashref);
788
789    for ( my $i = 0; $i <= $#{$shellscriptsfileref}; $i++ )
790    {
791        push( @{$epmfileref}, ${$shellscriptsfileref}[$i] );
792    }
793
794    push( @{$epmfileref}, "\n" );
795}
796
797#################################################
798# Determining the epm on the system
799#################################################
800
801sub find_epm_on_system
802{
803    my ($includepatharrayref) = @_;
804
805    installer::logger::include_header_into_logfile("Check epm on system");
806
807    my $epmname = "epm";
808
809    # epm should be defined through the configure script but we need to
810    # check for it to be defined because of the Sun environment.
811    # Check the environment variable first and if it is not defined,
812    # or if it is but the location is not executable, search further.
813    # It has to be found in the solver or it has to be in the path
814    # (saved in $installer::globals::epm_in_path) or we get the specified
815    # one through the environment (i.e. when --with-epm=... is specified)
816
817    if ($ENV{'EPM'})
818    {
819        if (($ENV{'EPM'} ne "") && (-x "$ENV{'EPM'}"))
820        {
821            $epmname = $ENV{'EPM'};
822        }
823        elsif ( ($ENV{'EPM'} eq "no") || ($ENV{'EPM'} eq "internal") )
824        {
825            $epmname = "epm";
826            my $epmref = installer::scriptitems::get_sourcepath_from_filename_and_includepath( \$epmname, $includepatharrayref, 0);
827            if ($$epmref eq "") { installer::exiter::exit_program("ERROR: Could not find program $epmname (EPM set to \"internal\" or \"no\")!", "find_epm_on_system"); }
828            $epmname = $$epmref;
829        }
830        else
831        {
832            installer::exiter::exit_program("Environment variable EPM set (\"$ENV{'EPM'}\"), but file does not exist or is not executable!", "find_epm_on_system");
833        }
834    }
835    else
836    {
837        my $epmfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$epmname, $includepatharrayref, 0);
838
839        if (($$epmfileref eq "") && (!($installer::globals::epm_in_path))) { installer::exiter::exit_program("ERROR: Could not find program $epmname!", "find_epm_on_system"); }
840        if (($$epmfileref eq "") && ($installer::globals::epm_in_path)) { $epmname = $installer::globals::epm_path; }
841        if (!($$epmfileref eq "")) { $epmname = $$epmfileref; }
842    }
843
844    my $infoline = "Using epmfile: $epmname\n";
845    push( @installer::globals::logfileinfo, $infoline);
846
847    return $epmname;
848}
849
850#################################################
851# Determining the epm patch state
852# saved in $installer::globals::is_special_epm
853#################################################
854
855sub set_patch_state
856{
857    my ($epmexecutable) = @_;
858
859    my $infoline = "";
860
861    my $systemcall = "$epmexecutable |";
862    open (EPMPATCH, "$systemcall");
863
864    while (<EPMPATCH>)
865    {
866        chop;
867        if ( $_ =~ /Patched for OpenOffice.org/ ) { $installer::globals::is_special_epm = 1; }
868    }
869
870    close (EPMPATCH);
871
872    if ( $installer::globals::is_special_epm )
873    {
874        $infoline = "\nPatch state: This is a patched version of epm!\n\n";
875        push( @installer::globals::logfileinfo, $infoline);
876    }
877    else
878    {
879        $infoline = "\nPatch state: This is an unpatched version of epm!\n\n";
880        push( @installer::globals::logfileinfo, $infoline);
881    }
882
883    if ( ( $installer::globals::is_special_epm ) && (($installer::globals::islinuxrpmbuild) || ($installer::globals::issolarispkgbuild)) )
884    {
885        # Special postprocess handling only for Linux RPM and Solaris packages
886        $installer::globals::postprocess_specialepm = 1;
887        $installer::globals::postprocess_standardepm = 0;
888    }
889    else
890    {
891        $installer::globals::postprocess_specialepm = 0;
892        $installer::globals::postprocess_standardepm = 1;
893    }
894}
895
896#################################################
897# LD_PRELOAD string for Debian packages
898#################################################
899
900sub get_ld_preload_string
901{
902    my ($includepatharrayref) = @_;
903
904    my $getuidlibraryname = "getuid.so";
905
906    my $getuidlibraryref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$getuidlibraryname, $includepatharrayref, 0);
907    if ($$getuidlibraryref eq "") { installer::exiter::exit_program("ERROR: Could not find $getuidlibraryname!", "get_ld_preload_string"); }
908
909    my $ldpreloadstring = "LD_PRELOAD=" . $$getuidlibraryref;
910
911    return $ldpreloadstring;
912}
913
914#################################################
915# Calling epm to create the installation sets
916#################################################
917
918sub call_epm
919{
920    my ($epmname, $epmlistfilename, $packagename, $includepatharrayref) = @_;
921
922    installer::logger::include_header_into_logfile("epm call for $packagename");
923
924    my $packageformat = $installer::globals::packageformat;
925
926    my $localpackagename = $packagename;
927    # Debian allows only lowercase letters in package name
928    if ( $installer::globals::debian ) { $localpackagename = lc($localpackagename); }
929
930    my $outdirstring = "";
931    if ( $installer::globals::epmoutpath ne "" ) { $outdirstring = " --output-dir $installer::globals::epmoutpath"; }
932
933    # Debian package build needs a LD_PRELOAD for correct rights
934
935    my $ldpreloadstring = "";
936
937    if ( $installer::globals::debian ) { $ldpreloadstring = get_ld_preload_string($includepatharrayref) . " "; }
938
939    my $extraflags = "";
940        if ($ENV{'EPM_FLAGS'}) { $extraflags = $ENV{'EPM_FLAGS'}; }
941
942    my $verboseflag = "-v";
943    if ( ! $installer::globals::quiet ) { $verboseflag = "-v2"; };
944
945    my $systemcall = $ldpreloadstring . $epmname . " -f " . $packageformat . " " . $extraflags . " " . $localpackagename . " " . $epmlistfilename . $outdirstring . " " . $verboseflag . " " . " 2\>\&1 |";
946
947    installer::logger::print_message( "... $systemcall ...\n" );
948
949    my $maxepmcalls = 3;
950
951    for ( my $i = 1; $i <= $maxepmcalls; $i++ )
952    {
953        my @epmoutput = ();
954
955        open (EPM, "$systemcall");
956        while (<EPM>) {push(@epmoutput, $_); }
957        close (EPM);
958
959        my $returnvalue = $?;   # $? contains the return value of the systemcall
960
961        my $infoline = "Systemcall  (Try $i): $systemcall\n";
962        push( @installer::globals::logfileinfo, $infoline);
963
964        for ( my $j = 0; $j <= $#epmoutput; $j++ )
965        {
966            if ( $i < $maxepmcalls ) { $epmoutput[$j] =~ s/\bERROR\b/PROBLEM/ig; }
967            push( @installer::globals::logfileinfo, "$epmoutput[$j]");
968        }
969
970        if ($returnvalue)
971        {
972            $infoline = "Try $i : Could not execute \"$systemcall\"!\n";
973            push( @installer::globals::logfileinfo, $infoline);
974            if ( $i == $maxepmcalls ) { installer::exiter::exit_program("ERROR: \"$systemcall\"!", "call_epm"); }
975        }
976        else
977        {
978            installer::logger::print_message( "Success (Try $i): \"$systemcall\"\n" );
979            $infoline = "Success: Executed \"$systemcall\" successfully!\n";
980            push( @installer::globals::logfileinfo, $infoline);
981            last;
982        }
983    }
984}
985
986#####################################################################
987# Adding the new line for relocatables into pkginfo file (Solaris)
988# or spec file (Linux) created by epm
989#####################################################################
990
991sub add_one_line_into_file
992{
993    my ($file, $insertline, $filename) = @_;
994
995    if ( $installer::globals::issolarispkgbuild )
996    {
997        push(@{$file}, $insertline);        # simply adding at the end of pkginfo file
998    }
999
1000    if ( $installer::globals::islinuxrpmbuild )
1001    {
1002        # Adding behind the line beginning with: Group:
1003
1004        my $inserted_line = 0;
1005
1006        for ( my $i = 0; $i <= $#{$file}; $i++ )
1007        {
1008            if ( ${$file}[$i] =~ /^\s*Group\:\s*/ )
1009            {
1010                splice(@{$file},$i+1,0,$insertline);
1011                $inserted_line = 1;
1012                last;
1013            }
1014        }
1015
1016        if (! $inserted_line) { installer::exiter::exit_program("ERROR: Did not find string \"Group:\" in file: $filename", "add_one_line_into_file"); }
1017    }
1018
1019    $insertline =~ s/\s*$//;    # removing line end for correct logging
1020    my $infoline = "Success: Added line $insertline into file $filename!\n";
1021    push( @installer::globals::logfileinfo, $infoline);
1022}
1023
1024#####################################################################
1025# Setting the revision VERSION=1.9,REV=66  .
1026# Also adding the new line: "AutoReqProv: no"
1027#####################################################################
1028
1029sub set_revision_in_pkginfo
1030{
1031    my ($file, $filename, $variables, $packagename) = @_;
1032
1033    my $revisionstring = "\,REV\=" . $installer::globals::packagerevision;
1034
1035    # Adding also a time string to the revision. Syntax: VERSION=8.0.0,REV=66.2005.01.24
1036
1037    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
1038
1039    $mday = $mday;
1040    $mon = $mon + 1;
1041    $year = $year + 1900;
1042
1043    if ( $mday < 10 ) { $mday = "0" . $mday; }
1044    if ( $mon < 10 ) { $mon = "0" . $mon; }
1045    $datestring = $year . "." . $mon . "." . $mday;
1046    $revisionstring = $revisionstring . "." . $datestring;
1047
1048    for ( my $i = 0; $i <= $#{$file}; $i++ )
1049    {
1050        if ( ${$file}[$i] =~ /^\s*(VERSION\=.*?)\s*$/ )
1051        {
1052            my $oldstring = $1;
1053            my $newstring = $oldstring . $revisionstring;   # also adding the date string
1054            ${$file}[$i] =~ s/$oldstring/$newstring/;
1055            my $infoline = "Info: Changed in $filename file: \"$oldstring\" to \"$newstring\"!\n";
1056            push( @installer::globals::logfileinfo, $infoline);
1057            last;
1058        }
1059    }
1060
1061    # For Update and Patch reasons, this string can also be kept constant
1062
1063    my $pkgversion = "SOLSPARCPKGVERSION";
1064    if ( $installer::globals::issolarisx86build ) { $pkgversion = "SOLIAPKGVERSION"; }
1065
1066    if (( $variables->{$pkgversion} ) && ( $variables->{$pkgversion} ne "" ))
1067    {
1068        if ( $variables->{$pkgversion} ne "FINALVERSION" )
1069        {
1070            # In OOo 3.x timeframe, this string is no longer unique for all packages, because of the three layer.
1071            # In the string: "3.0.0,REV=9.2008.09.30" only the part "REV=9.2008.09.30" can be unique for all packages
1072            # and therefore be set as $pkgversion.
1073            # The first part "3.0.0" has to be derived from the
1074
1075            my $version = $installer::globals::packageversion;
1076            if ( $version =~ /^\s*(\d+)\.(\d+)\.(\d+)\s*$/ )
1077            {
1078                my $major = $1;
1079                my $minor = $2;
1080                my $micro = $3;
1081
1082                my $finalmajor = $major;
1083                my $finalminor = $minor;
1084                my $finalmicro = 0;
1085
1086                # if (( $packagename =~ /-ure\s*$/ ) && ( $finalmajor == 1 )) { $finalminor = 4; }
1087
1088                $version = "$finalmajor.$finalminor.$finalmicro";
1089            }
1090
1091            my $datestring = $variables->{$pkgversion};
1092
1093            # Allowing some packages to have another date of creation.
1094            # They can be defined in product definition using a key like "SOLSPARCPKGVERSION_$packagename"
1095
1096            my $additionalkey = $pkgversion . "_" . $packagename;
1097            if (( $variables->{$additionalkey} ) && ( $variables->{$additionalkey} ne "" )) { $datestring = $variables->{$additionalkey}; }
1098
1099            my $versionstring = "$version,$datestring";
1100
1101            for ( my $i = 0; $i <= $#{$file}; $i++ )
1102            {
1103                if ( ${$file}[$i] =~ /^\s*(VERSION\=).*?\s*$/ )
1104                {
1105                    my $start = $1;
1106                    my $newstring = $start . $versionstring . "\n"; # setting the complete new string
1107                    my $oldstring = ${$file}[$i];
1108                    ${$file}[$i] = $newstring;
1109                    $oldstring =~ s/\s*$//;
1110                    $newstring =~ s/\s*$//;
1111                    my $infoline = "Info: Changed in $filename file: \"$oldstring\" to \"$newstring\"!\n";
1112                    push( @installer::globals::logfileinfo, $infoline);
1113                    last;
1114                }
1115            }
1116        }
1117    }
1118}
1119
1120########################################################
1121# Setting Patch information for Respin versions
1122# into pkginfo file. This prevents Respin versions
1123# from patching.
1124########################################################
1125
1126sub set_patchlist_in_pkginfo_for_respin
1127{
1128    my ($changefile, $filename, $allvariables, $packagename) = @_;
1129
1130    my $patchlistname = "SOLSPARCPATCHLISTFORRESPIN";
1131    if ( $installer::globals::issolarisx86build ) { $patchlistname = "SOLIAPATCHLISTFORRESPIN"; }
1132
1133    if ( $allvariables->{$patchlistname} )
1134    {
1135        # patchlist separator is a blank
1136        my $allpatchesstring = $allvariables->{$patchlistname};
1137        my @usedpatches = ();
1138
1139        # Analyzing the patchlist
1140        # Syntax: 120186-10 126411-01(+core-01) -> use 126411-01 only for core-01
1141        # Syntax: 120186-10 126411-01(-core-01) -> use 126411-01 for all packages except for core-01
1142        my $allpatches = installer::converter::convert_whitespace_stringlist_into_array(\$allpatchesstring);
1143
1144        for ( my $i = 0; $i <= $#{$allpatches}; $i++ )
1145        {
1146            my $patchdefinition = ${$allpatches}[$i];
1147
1148            my $patchid = "";
1149            my $symbol = "";
1150            my $constraint = "";
1151            my $isusedpatch = 0;
1152
1153            if ( $patchdefinition =~ /^\s*(.+)\(([+-])(.+)\)\s*$/ )
1154            {
1155                $patchid = $1;
1156                $symbol = $2;
1157                $constraint = $3;
1158            }
1159            elsif (( $patchdefinition =~ /\(/ ) || ( $patchdefinition =~ /\)/ ))    # small syntax check
1160            {
1161                # if there is a bracket in the $patchdefinition, but it does not
1162                # match the if-condition, this is an erroneous definition.
1163                installer::exiter::exit_program("ERROR: Unknown patch string: $patchdefinition", "set_patchlist_in_pkginfo_for_respin");
1164            }
1165            else
1166            {
1167                $patchid = $patchdefinition;
1168                $isusedpatch = 1; # patches without constraint are always included
1169            }
1170
1171            if ( $symbol ne "" )
1172            {
1173                if ( $symbol eq "+" )
1174                {
1175                    if ( $packagename =~ /^.*\Q$constraint\E\s*$/ ) { $isusedpatch = 1; }
1176                }
1177
1178                if ( $symbol eq "-" )
1179                {
1180                    if ( ! ( $packagename =~ /^.*\Q$constraint\E\s*$/ )) { $isusedpatch = 1; }
1181                }
1182            }
1183
1184            if ( $isusedpatch ) { push(@usedpatches, $patchid); }
1185        }
1186
1187        if ( $#usedpatches > -1 )
1188        {
1189            my $patchstring = installer::converter::convert_array_to_space_separated_string(\@usedpatches);
1190
1191            my $newline = "PATCHLIST=" . $patchstring . "\n";
1192            add_one_line_into_file($changefile, $newline, $filename);
1193
1194            # Adding patch info for each used patch in the patchlist
1195
1196            for ( my $i = 0; $i <= $#usedpatches; $i++ )
1197            {
1198                my $patchid = $usedpatches[$i];
1199                my $key = "PATCH_INFO_" . $patchid;
1200                $key =~ s/\s*$//;
1201
1202                if ( ! $allvariables->{$key} ) { installer::exiter::exit_program("ERROR: No Patch info available in zip list file for $key", "set_patchlist_in_pkginfo"); }
1203                my $value = set_timestamp_in_patchinfo($allvariables->{$key});
1204                $newline = $key . "=" . $value . "\n";
1205
1206                add_one_line_into_file($changefile, $newline, $filename);
1207            }
1208        }
1209    }
1210}
1211
1212########################################################
1213# Solaris requires, that the time of patch installation
1214# must not be empty.
1215# Format: Mon Mar 24 11:20:56 PDT 2008
1216# Log file: Tue Apr 29 23:26:19 2008 (04:31 min.)
1217# Replace string: ${TIMESTAMP}
1218########################################################
1219
1220sub set_timestamp_in_patchinfo
1221{
1222    my ($value) = @_;
1223
1224    my $currenttime = localtime();
1225
1226    if ( $currenttime =~ /^\s*(.+?)(\d\d\d\d)\s*$/ )
1227    {
1228        my $start = $1;
1229        my $year = $2;
1230        $currenttime = $start . "CET " . $year;
1231    }
1232
1233    $value =~ s/\$\{TIMESTAMP\}/$currenttime/;
1234
1235    return $value;
1236}
1237
1238########################################################
1239# Setting MAXINST=1000 into the pkginfo file.
1240########################################################
1241
1242sub set_maxinst_in_pkginfo
1243{
1244    my ($changefile, $filename) = @_;
1245
1246    my $newline = "MAXINST\=1000\n";
1247
1248    add_one_line_into_file($changefile, $newline, $filename);
1249}
1250
1251#############################################################
1252# Setting several Solaris variables into the pkginfo file.
1253#############################################################
1254
1255sub set_solaris_parameter_in_pkginfo
1256{
1257    my ($changefile, $filename, $allvariables) = @_;
1258
1259    my $newline = "";
1260
1261    # SUNW_PRODNAME
1262    # SUNW_PRODVERS
1263    # SUNW_PKGVERS
1264    # Not: SUNW_PKGTYPE
1265    # HOTLINE
1266    # EMAIL
1267
1268    my $productname = $allvariables->{'PRODUCTNAME'};
1269    $newline = "SUNW_PRODNAME=$productname\n";
1270    add_one_line_into_file($changefile, $newline, $filename);
1271
1272    my $productversion = "";
1273    if ( $allvariables->{'PRODUCTVERSION'} )
1274    {
1275        $productversion = $allvariables->{'PRODUCTVERSION'};
1276        if ( $allvariables->{'PRODUCTEXTENSION'} ) { $productversion = $productversion . "/" . $allvariables->{'PRODUCTEXTENSION'}; }
1277    }
1278    $newline = "SUNW_PRODVERS=$productversion\n";
1279    add_one_line_into_file($changefile, $newline, $filename);
1280
1281    $newline = "SUNW_PKGVERS=1\.0\n";
1282    add_one_line_into_file($changefile, $newline, $filename);
1283
1284    if ( $allvariables->{'SUNW_PKGTYPE'} )
1285    {
1286        $newline = "SUNW_PKGTYPE=$allvariables->{'SUNW_PKGTYPE'}\n";
1287        add_one_line_into_file($changefile, $newline, $filename);
1288    }
1289    else
1290    {
1291        $newline = "SUNW_PKGTYPE=\n";
1292        add_one_line_into_file($changefile, $newline, $filename);
1293    }
1294
1295    $newline = "HOTLINE=Please contact your local service provider\n";
1296    add_one_line_into_file($changefile, $newline, $filename);
1297
1298    $newline = "EMAIL=\n";
1299    add_one_line_into_file($changefile, $newline, $filename);
1300
1301}
1302
1303#####################################################################
1304# epm uses as archtecture for Solaris x86 "i86pc". This has to be
1305# changed to "i386".
1306#####################################################################
1307
1308sub fix_architecture_setting
1309{
1310    my ($changefile) = @_;
1311
1312    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1313    {
1314        if ( ${$changefile}[$i] =~ /^\s*ARCH=i86pc\s*$/ )
1315        {
1316            ${$changefile}[$i] =~ s/i86pc/i386/;
1317            last;
1318        }
1319
1320    }
1321}
1322
1323#####################################################################
1324# Adding a new line for topdir into specfile, removing old
1325# topdir if set.
1326#####################################################################
1327
1328sub set_topdir_in_specfile
1329{
1330    my ($changefile, $filename, $newepmdir) = @_;
1331
1332    # $newepmdir =~ s/^\s*\.//; # removing leading "."
1333    $newepmdir = cwd() . $installer::globals::separator . $newepmdir; # only absolute path allowed
1334
1335    # removing "%define _topdir", if existing
1336
1337    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1338    {
1339        if ( ${$changefile}[$i] =~ /^\s*\%define _topdir\s+/ )
1340        {
1341            my $removeline = ${$changefile}[$i];
1342            $removeline =~ s/\s*$//;
1343            splice(@{$changefile},$i,1);
1344            my $infoline = "Info: Removed line \"$removeline\" from file $filename!\n";
1345            push( @installer::globals::logfileinfo, $infoline);
1346            last;
1347        }
1348    }
1349
1350    # Adding "topdir" behind the line beginning with: Group:
1351
1352    my $inserted_line = 0;
1353
1354    my $topdirline = "\%define _topdir $newepmdir\n";
1355
1356    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1357    {
1358        if ( ${$changefile}[$i] =~ /^\s*Group\:\s*/ )
1359        {
1360            splice(@{$changefile},$i+1,0,$topdirline);
1361            $inserted_line = 1;
1362            $topdirline =~ s/\s*$//;
1363            my $infoline = "Success: Added line $topdirline into file $filename!\n";
1364            push( @installer::globals::logfileinfo, $infoline);
1365        }
1366    }
1367
1368    if (! $inserted_line) { installer::exiter::exit_program("ERROR: Did not find string \"Group:\" in file: $filename", "set_topdir_in_specfile"); }
1369
1370}
1371
1372#####################################################################
1373# Setting the packager in the spec file
1374# Syntax: Packager: abc@def
1375#####################################################################
1376
1377sub set_packager_in_specfile
1378{
1379    my ($changefile) = @_;
1380
1381    my $packager = $installer::globals::longmanufacturer;
1382
1383    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1384    {
1385        if ( ${$changefile}[$i] =~ /^\s*Packager\s*:\s*(.+?)\s*$/ )
1386        {
1387            my $oldstring = $1;
1388            ${$changefile}[$i] =~ s/\Q$oldstring\E/$packager/;
1389            my $infoline = "Info: Changed Packager in spec file from $oldstring to $packager!\n";
1390            push( @installer::globals::logfileinfo, $infoline);
1391            last;
1392        }
1393    }
1394}
1395
1396#####################################################################
1397# Setting the requirements in the spec file (i81494)
1398# Syntax: PreReq: "requirements" (only for shared extensions)
1399#####################################################################
1400
1401sub set_prereq_in_specfile
1402{
1403    my ($changefile) = @_;
1404
1405    my $prereq = "PreReq:";
1406
1407    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1408    {
1409        if ( ${$changefile}[$i] =~ /^\s*Requires:\s*(.+?)\s*$/ )
1410        {
1411            my $oldstring = ${$changefile}[$i];
1412            ${$changefile}[$i] =~ s/Requires:/$prereq/;
1413            my $infoline = "Info: Changed requirements in spec file from $oldstring to ${$changefile}[$i]!\n";
1414            push( @installer::globals::logfileinfo, $infoline);
1415        }
1416    }
1417}
1418
1419#####################################################################
1420# Setting the Auto[Req]Prov line and __find_requires
1421#####################################################################
1422
1423sub set_autoprovreq_in_specfile
1424{
1425    my ($changefile, $findrequires, $bindir) = @_;
1426
1427    my $autoreqprovline;
1428
1429    if ( $findrequires )
1430    {
1431        $autoreqprovline = "AutoProv\: no\n%define __find_requires $bindir/$findrequires\n";
1432    }
1433    else
1434    {
1435        $autoreqprovline = "AutoReqProv\: no\n";
1436    }
1437
1438    $autoreqprovline .= "%define _binary_filedigest_algorithm 1\n%define _binary_payload w9.gzdio\n";
1439
1440    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1441    {
1442        # Adding "autoreqprov" behind the line beginning with: Group:
1443        if ( ${$changefile}[$i] =~ /^\s*Group\:\s*/ )
1444        {
1445            splice(@{$changefile},$i+1,0,$autoreqprovline);
1446            $autoreqprovline =~ s/\s*$//;
1447            $infoline = "Success: Added line $autoreqprovline into spec file!\n";
1448            push( @installer::globals::logfileinfo, $infoline);
1449
1450            last;
1451        }
1452    }
1453}
1454
1455#####################################################################
1456# Replacing Copyright with License in the spec file
1457# Syntax: License: LGPL, SISSL
1458#####################################################################
1459
1460sub set_license_in_specfile
1461{
1462    my ($changefile, $variableshashref) = @_;
1463
1464    my $license = $variableshashref->{'LICENSENAME'};
1465
1466    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1467    {
1468        if ( ${$changefile}[$i] =~ /^\s*Copyright\s*:\s*(.+?)\s*$/ )
1469        {
1470            ${$changefile}[$i] = "License: $license\n";
1471            my $infoline = "Info: Replaced Copyright with License: $license !\n";
1472            push( @installer::globals::logfileinfo, $infoline);
1473            last;
1474        }
1475    }
1476}
1477
1478#########################################################
1479# Building relocatable Solaris packages means:
1480# 1. Add "BASEDIR=/opt" into pkginfo
1481# 2. Remove "/opt/" from all objects in prototype file
1482# For step2 this function exists
1483# Sample: d none /opt/openofficeorg20/help 0755 root other
1484# -> d none openofficeorg20/help 0755 root other
1485#########################################################
1486
1487sub make_prototypefile_relocatable
1488{
1489    my ($prototypefile, $relocatablepath) = @_;
1490
1491    for ( my $i = 0; $i <= $#{$prototypefile}; $i++ )
1492    {
1493        if ( ${$prototypefile}[$i] =~ /^\s*\w\s+\w+\s+\/\w+/ )  # this is an object line
1494        {
1495            ${$prototypefile}[$i] =~ s/$relocatablepath//;  # Important: $relocatablepath has a "/" at the end. Example "/opt/"
1496        }
1497    }
1498
1499    # If the $relocatablepath is "/opt/openoffice20/" the line "d none /opt/openoffice20" was not changed.
1500    # This line has to be removed now
1501
1502    if ( $relocatablepath ne "/" ) { $relocatablepath =~ s/\/\s*$//; }      # removing the ending slash
1503
1504    for ( my $i = 0; $i <= $#{$prototypefile}; $i++ )
1505    {
1506        if ( ${$prototypefile}[$i] =~ /^\s*d\s+\w+\s+\Q$relocatablepath\E/ )
1507        {
1508            my $line = ${$prototypefile}[$i];
1509            splice(@{$prototypefile},$i,1); # removing the line
1510            $line =~ s/\s*$//;
1511            my $infoline = "Info: Removed line \"$line\" from prototype file!\n";
1512            push( @installer::globals::logfileinfo, $infoline);
1513            last;
1514        }
1515    }
1516
1517    # Making "\$" to "$" in prototype file. "\$" was created by epm.
1518
1519    for ( my $i = 0; $i <= $#{$prototypefile}; $i++ )
1520    {
1521        if ( ${$prototypefile}[$i] =~ /\\\$/ )
1522        {
1523            ${$prototypefile}[$i] =~ s/\\\$/\$/g;
1524            my $infoline2 = "Info: Changed line in prototype file: ${$prototypefile}[$i] !\n";
1525            push( @installer::globals::logfileinfo, $infoline2);
1526        }
1527    }
1528}
1529
1530
1531#########################################################################
1532# In scp the flag VOLATEFILE can be used. This shall lead to style "v"
1533# in Solaris prototype file. This is not supported by epm and has
1534# therefore to be included in prototypefile, not in epm list file.
1535#########################################################################
1536
1537sub set_volatilefile_into_prototypefile
1538{
1539    my ($prototypefile, $filesref) = @_;
1540
1541    for ( my $i = 0; $i <= $#{$filesref}; $i++ )
1542    {
1543        my $onefile = ${$filesref}[$i];
1544
1545        my $styles = "";
1546        if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
1547
1548        if ( $styles =~ /\bVOLATILEFILE\b/ )
1549        {
1550            my $sourcepath = $onefile->{'sourcepath'};
1551
1552            for ( my $j = 0; $j <= $#{$prototypefile}; $j++ )
1553            {
1554                if (( ${$prototypefile}[$j] =~ /^\s*f\s+none\s+/ ) && ( ${$prototypefile}[$j] =~ /\=\Q$sourcepath\E\s+/ ))
1555                {
1556                    my $oldline = ${$prototypefile}[$j];
1557                    ${$prototypefile}[$j] =~ s/^\s*f/v/;
1558                    my $newline = ${$prototypefile}[$j];
1559                    $oldline =~ s/\s*$//;
1560                    $newline =~ s/\s*$//;
1561                    my $infoline = "Volatile file: Changing content from \"$oldline\" to \"$newline\" .\n";
1562                    push(@installer::globals::logfileinfo, $infoline);
1563                    last;
1564                }
1565            }
1566        }
1567    }
1568}
1569
1570#########################################################################
1571# Replacing the variables in the Solaris patch shell scripts.
1572# Taking care, that multiple slashes are not always removed.
1573#########################################################################
1574
1575sub replace_variables_in_shellscripts_for_patch
1576{
1577    my ($scriptfile, $scriptfilename, $oldstring, $newstring) = @_;
1578
1579    for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
1580    {
1581        if ( ${$scriptfile}[$i] =~ /\Q$oldstring\E/ )
1582        {
1583            my $oldline = ${$scriptfile}[$i];
1584            if (( $oldstring eq "PRODUCTDIRECTORYNAME" ) && ( $newstring eq "" )) { $oldstring = $oldstring . "/"; }
1585            ${$scriptfile}[$i] =~ s/\Q$oldstring\E/$newstring/g;
1586            my $infoline = "Info: Substituting in $scriptfilename $oldstring by $newstring\n";
1587            push(@installer::globals::logfileinfo, $infoline);
1588        }
1589    }
1590}
1591
1592#########################################################################
1593# Replacing the variables in the shell scripts or in the epm list file
1594# Linux: spec file
1595# Solaris: preinstall, postinstall, preremove, postremove
1596# If epm is used in the original version (not relocatable)
1597# the variables have to be exchanged in the list file,
1598# created for epm.
1599#########################################################################
1600
1601sub replace_variables_in_shellscripts
1602{
1603    my ($scriptfile, $scriptfilename, $oldstring, $newstring) = @_;
1604
1605    my $debug = 0;
1606    if ( $oldstring eq "PRODUCTDIRECTORYNAME" ) { $debug = 1; }
1607
1608    for ( my $i = 0; $i <= $#{$scriptfile}; $i++ )
1609    {
1610        if ( ${$scriptfile}[$i] =~ /\Q$oldstring\E/ )
1611        {
1612            my $oldline = ${$scriptfile}[$i];
1613            ${$scriptfile}[$i] =~ s/\Q$oldstring\E/$newstring/g;
1614            ${$scriptfile}[$i] =~ s/\/\//\//g;  # replacing "//" by "/" , if path $newstring is empty!
1615            my $infoline = "Info: Substituting in $scriptfilename $oldstring by $newstring\n";
1616            push(@installer::globals::logfileinfo, $infoline);
1617            if ( $debug )
1618            {
1619                $infoline = "Old Line: $oldline";
1620                push(@installer::globals::logfileinfo, $infoline);
1621                $infoline = "New Line: ${$scriptfile}[$i]";
1622                push(@installer::globals::logfileinfo, $infoline);
1623            }
1624        }
1625    }
1626}
1627
1628############################################################
1629# Determinig the directory created by epm, in which the
1630# RPMS or Solaris packages are created.
1631############################################################
1632
1633sub determine_installdir_ooo
1634{
1635    # A simple "ls" command returns the directory name
1636
1637    my $dirname = "";
1638
1639    my $systemcall = "ls |";
1640    open (LS, "$systemcall");
1641    $dirname = <LS>;
1642    close (LS);
1643
1644    $dirname =~ s/\s*$//;
1645
1646    my $infoline = "Info: Directory created by epm: $dirname\n";
1647    push(@installer::globals::logfileinfo, $infoline);
1648
1649    return $dirname;
1650}
1651
1652############################################################
1653# Setting the tab content into the file container
1654############################################################
1655
1656sub set_tab_into_datafile
1657{
1658    my ($changefile, $filesref) = @_;
1659
1660    my @newclasses = ();
1661    my $newclassesstring = "";
1662
1663    if ( $installer::globals::issolarispkgbuild )
1664    {
1665        for ( my $i = 0; $i <= $#{$filesref}; $i++ )
1666        {
1667            my $onefile = ${$filesref}[$i];
1668
1669            if ( $onefile->{'SolarisClass'} )
1670            {
1671                my $sourcepath = $onefile->{'sourcepath'};
1672
1673                for ( my $j = 0; $j <= $#{$changefile}; $j++ )
1674                {
1675                    if (( ${$changefile}[$j] =~ /^\s*f\s+none\s+/ ) && ( ${$changefile}[$j] =~ /\=\Q$sourcepath\E\s+/ ))
1676                    {
1677                        my $oldline = ${$changefile}[$j];
1678                        ${$changefile}[$j] =~ s/f\s+none/e $onefile->{'SolarisClass'}/;
1679                        my $newline = ${$changefile}[$j];
1680                        $oldline =~ s/\s*$//;
1681                        $newline =~ s/\s*$//;
1682
1683                        my $infoline = "TAB: Changing content from \"$oldline\" to \"$newline\" .\n";
1684                        push(@installer::globals::logfileinfo, $infoline);
1685
1686                        # collecting all new classes
1687                        if (! installer::existence::exists_in_array($onefile->{'SolarisClass'}, \@newclasses))
1688                        {
1689                            push(@newclasses, $onefile->{'SolarisClass'});
1690                        }
1691
1692                        last;
1693                    }
1694                }
1695            }
1696        }
1697
1698        $newclassesstring = installer::converter::convert_array_to_space_separated_string(\@newclasses);
1699    }
1700
1701    if ( $installer::globals::islinuxrpmbuild )
1702    {
1703        for ( my $i = 0; $i <= $#{$filesref}; $i++ )
1704        {
1705            my $onefile = ${$filesref}[$i];
1706
1707            if ( $onefile->{'SpecFileContent'} )
1708            {
1709                my $destination = $onefile->{'destination'};
1710
1711                for ( my $j = 0; $j <= $#{$changefile}; $j++ )
1712                {
1713                    if ( ${$changefile}[$j] =~ /^\s*(\%attr\(.*\))\s+(\".*?\Q$destination\E\"\s*)$/ )
1714                    {
1715                        my $begin = $1;
1716                        my $end = $2;
1717
1718                        my $oldline = ${$changefile}[$j];
1719                        ${$changefile}[$j] = $begin . " " . $onefile->{'SpecFileContent'} . " " . $end;
1720                        my $newline = ${$changefile}[$j];
1721
1722                        $oldline =~ s/\s*$//;
1723                        $newline =~ s/\s*$//;
1724
1725                        my $infoline = "TAB: Changing content from \"$oldline\" to \"$newline\" .\n";
1726                        push(@installer::globals::logfileinfo, $infoline);
1727
1728                        last;
1729                    }
1730                }
1731            }
1732        }
1733    }
1734
1735    return $newclassesstring;
1736}
1737
1738############################################################
1739# Including additional classes into the pkginfo file
1740############################################################
1741
1742sub include_classes_into_pkginfo
1743{
1744    my ($changefile, $classesstring) = @_;
1745
1746    for ( my $i = 0; $i <= $#{$changefile}; $i++ )
1747    {
1748        if ( ${$changefile}[$i] =~ /^\s*CLASSES\=none/ )
1749        {
1750            ${$changefile}[$i] =~ s/\s*$//;
1751            my $oldline = ${$changefile}[$i];
1752            ${$changefile}[$i] = ${$changefile}[$i] . " " . $classesstring . "\n";
1753            my $newline = ${$changefile}[$i];
1754            $newline =~ s/\s*$//;
1755
1756            my $infoline = "pkginfo file: Changing content from \"$oldline\" to \"$newline\" .\n";
1757            push(@installer::globals::logfileinfo, $infoline);
1758        }
1759    }
1760}
1761
1762##########################################################################################
1763# Checking, if an extension is included into the package (Linux).
1764# All extension files have to be installed into directory
1765# share/extension/install
1766# %attr(0444,root,root) "/opt/staroffice8/share/extension/install/SunSearchToolbar.oxt"
1767##########################################################################################
1768
1769sub is_extension_package
1770{
1771    my ($specfile) = @_;
1772
1773    my $is_extension_package = 0;
1774
1775    for ( my $i = 0; $i <= $#{$specfile}; $i++ )
1776    {
1777        my $line = ${$specfile}[$i];
1778        if ( $line =~ /share\/extension\/install\/.*?\.oxt\"\s*$/ )
1779        {
1780            $is_extension_package = 1;
1781            last;
1782        }
1783    }
1784
1785    return $is_extension_package;
1786}
1787
1788######################################################################
1789# Checking, if an extension is included into the package (Solaris).
1790# All extension files have to be installed into directory
1791# share/extension/install
1792######################################################################
1793
1794sub contains_extension_dir
1795{
1796    my ($prototypefile) = @_;
1797
1798    my $contains_extension_dir = 0;
1799
1800    # d none opt/openoffice.org3/share/extensions/
1801
1802    for ( my $i = 0; $i <= $#{$prototypefile}; $i++ )
1803    {
1804        my $line = ${$prototypefile}[$i];
1805        if ( $line =~ /^\s*d\s+none\s.*\/share\/extensions\// )
1806        {
1807            $contains_extension_dir = 1;
1808            last;
1809        }
1810    }
1811
1812    return $contains_extension_dir;
1813}
1814
1815############################################################
1816# A Solaris patch contains 7 specific scripts
1817############################################################
1818
1819sub add_scripts_into_prototypefile
1820{
1821    my ($prototypefile, $prototypefilename, $languagestringref, $staticpath) = @_;
1822
1823    # The files are stored in the directory $installer::globals::patchincludepath
1824    # The file names are available via @installer::globals::solarispatchscripts
1825
1826    my $path = $installer::globals::patchincludepath;
1827    $path =~ s/\/\s*$//;
1828    $path = $path . $installer::globals::separator;
1829
1830    my @newlines = ();
1831    my $is_extension_package = contains_extension_dir($prototypefile);
1832
1833    if ( $is_extension_package )
1834    {
1835        for ( my $i = 0; $i <= $#installer::globals::solarispatchscriptsforextensions; $i++ )
1836        {
1837            my $sourcefilename = $path . $installer::globals::solarispatchscriptsforextensions[$i];
1838            my $destfile = $installer::globals::solarispatchscriptsforextensions[$i];
1839
1840            # If the sourcepath has "_extension" in its name, this has to be removed
1841            $destfile =~ s/_extensions\s*$//;  # hard coded renaming of script name
1842
1843            # Creating unique directory name with $prototypefilename
1844            my $extensiondir = installer::systemactions::create_directories("extensionscripts", $languagestringref);
1845
1846            if ( $prototypefilename =~ /\/(\S*?)\s*$/ ) { $prototypefilename = $1; }
1847            $prototypefilename =~ s/\./_/g;
1848            my $destdir = $extensiondir . $installer::globals::separator . $prototypefilename;
1849            if ( ! -d $destdir ) { installer::systemactions::create_directory($destdir); }
1850            my $destpath = $destdir . $installer::globals::separator . $destfile;
1851            if ( -f $destpath ) { unlink($destpath); }
1852
1853            # Reading file
1854            my $scriptfile = installer::files::read_file($sourcefilename);
1855
1856            # Replacing variables
1857            my $oldstring = "PRODUCTDIRECTORYNAME";
1858            replace_variables_in_shellscripts_for_patch($scriptfile, $destpath, $oldstring, $staticpath);
1859
1860            # Saving file
1861            installer::files::save_file($destpath, $scriptfile);
1862
1863            # Writing file destination into prototype file
1864            my $line = "i $destfile=" . $destpath . "\n";
1865            push(@newlines, $line);
1866        }
1867    }
1868    else
1869    {
1870        for ( my $i = 0; $i <= $#installer::globals::solarispatchscripts; $i++ )
1871        {
1872            my $line = "i $installer::globals::solarispatchscripts[$i]=" . $path . $installer::globals::solarispatchscripts[$i] . "\n";
1873            push(@newlines, $line);
1874        }
1875    }
1876
1877    # Including the new lines after the last line starting with "i"
1878
1879    for ( my $i = 0; $i <= $#{$prototypefile}; $i++ )
1880    {
1881        if ( ${$prototypefile}[$i] =~ /^\s*i\s+copyright/ )
1882        {
1883            splice(@{$prototypefile}, $i, 1);   # ignoring old copyright text, using patch standard
1884            next;
1885        }
1886        if ( ${$prototypefile}[$i] =~ /^\s*i\s+/ ) { next; }
1887        splice(@{$prototypefile}, $i, 0, @newlines);
1888        last;
1889    }
1890}
1891
1892############################################################
1893# Adding patch infos in pkginfo file
1894############################################################
1895
1896sub include_patchinfos_into_pkginfo
1897{
1898    my ( $changefile, $filename, $variableshashref ) = @_;
1899
1900    # SUNW_PATCHID=101998-10
1901    # SUNW_OBSOLETES=114999-01 113999-01
1902    # SUNW_PKGTYPE=usr
1903    # SUNW_PKGVERS=1.0
1904    # SUNW_REQUIRES=126411-01
1905
1906    my $patchidname = "SOLSPARCPATCHID";
1907    if ( $installer::globals::issolarisx86build ) { $patchidname = "SOLIAPATCHID"; }
1908
1909    if ( ! $variableshashref->{$patchidname} ) { installer::exiter::exit_program("ERROR: Variable $patchidname not defined in zip list file!", "include_patchinfos_into_pkginfo"); }
1910
1911    my $newline = "SUNW_PATCHID=" . $variableshashref->{$patchidname} . "\n";
1912    add_one_line_into_file($changefile, $newline, $filename);
1913
1914    my $patchobsoletesname = "SOLSPARCPATCHOBSOLETES";
1915    if ( $installer::globals::issolarisx86build ) { $patchobsoletesname = "SOLIAPATCHOBSOLETES"; }
1916
1917    my $obsoletes = "";
1918    if ( $variableshashref->{$patchobsoletesname} ) { $obsoletes = $variableshashref->{$patchobsoletesname}; }
1919    $newline = "SUNW_OBSOLETES=" . $obsoletes . "\n";
1920    add_one_line_into_file($changefile, $newline, $filename);
1921
1922    my $patchrequiresname = "SOLSPARCPATCHREQUIRES";
1923    if ( $installer::globals::issolarisx86build ) { $patchrequiresname = "SOLIAPATCHREQUIRES"; }
1924
1925    if ( $variableshashref->{$patchrequiresname} )
1926    {
1927        my $requires = $variableshashref->{$patchrequiresname};
1928        $newline = "SUNW_REQUIRES=" . $requires . "\n";
1929        add_one_line_into_file($changefile, $newline, $filename);
1930    }
1931    $newline = "SUNW_PATCH_PROPERTIES=\n";
1932    add_one_line_into_file($changefile, $newline, $filename);
1933    # $newline = "SUNW_PKGTYPE=usr\n";
1934    # add_one_line_into_file($changefile, $newline, $filename);
1935
1936    # $newline = "SUNW_PKGVERS=1.0\n";
1937    # add_one_line_into_file($changefile, $newline, $filename);
1938}
1939
1940############################################################
1941# Setting the correct Solaris locales
1942############################################################
1943
1944sub get_solaris_language_for_langpack
1945{
1946    my ( $onelanguage ) = @_;
1947
1948    my $sollanguage = $onelanguage;
1949    $sollanguage =~ s/\-/\_/;
1950
1951    if ( $sollanguage eq "de" ) { $sollanguage = "de"; }
1952    elsif ( $sollanguage eq "en_US" ) { $sollanguage = "en_AU,en_CA,en_GB,en_IE,en_MT,en_NZ,en_US,en_US.UTF-8"; }
1953    elsif ( $sollanguage eq "es" ) { $sollanguage = "es"; }
1954    elsif ( $sollanguage eq "fr" ) { $sollanguage = "fr"; }
1955    elsif ( $sollanguage eq "hu" ) { $sollanguage = "hu_HU"; }
1956    elsif ( $sollanguage eq "it" ) { $sollanguage = "it"; }
1957    elsif ( $sollanguage eq "nl" ) { $sollanguage = "nl_BE,nl_NL"; }
1958    elsif ( $sollanguage eq "pl" ) { $sollanguage = "pl_PL"; }
1959    elsif ( $sollanguage eq "sv" ) { $sollanguage = "sv"; }
1960    elsif ( $sollanguage eq "pt" ) { $sollanguage = "pt_PT"; }
1961    elsif ( $sollanguage eq "pt_BR" ) { $sollanguage = "pt_BR"; }
1962    elsif ( $sollanguage eq "ru" ) { $sollanguage = "ru_RU"; }
1963    elsif ( $sollanguage eq "ja" ) { $sollanguage = "ja,ja_JP,ja_JP.PCK,ja_JP.UTF-8"; }
1964    elsif ( $sollanguage eq "ko" ) { $sollanguage = "ko,ko.UTF-8"; }
1965    elsif ( $sollanguage eq "zh_CN" ) { $sollanguage = "zh,zh.GBK,zh_CN.GB18030,zh.UTF-8"; }
1966    elsif ( $sollanguage eq "zh_TW" ) { $sollanguage = "zh_TW,zh_TW.BIG5,zh_TW.UTF-8,zh_HK.BIG5HK,zh_HK.UTF-8"; }
1967
1968    return $sollanguage;
1969}
1970
1971############################################################
1972# Adding language infos in pkginfo file
1973############################################################
1974
1975sub include_languageinfos_into_pkginfo
1976{
1977    my ( $changefile, $filename, $languagestringref, $onepackage, $variableshashref ) = @_;
1978
1979    # SUNWPKG_LIST=core01
1980    # SUNW_LOC=de
1981
1982    my $locallang = $onepackage->{'language'};
1983    my $solarislanguage = get_solaris_language_for_langpack($locallang);
1984
1985    my $newline = "SUNW_LOC=" . $solarislanguage . "\n";
1986    add_one_line_into_file($changefile, $newline, $filename);
1987
1988    # SUNW_PKGLIST is required, if SUNW_LOC is defined.
1989    if ( $onepackage->{'pkg_list_entry'} )
1990    {
1991        my $packagelistentry = $onepackage->{'pkg_list_entry'};
1992        installer::packagelist::resolve_packagevariables(\$packagelistentry, $variableshashref, 1);
1993        $newline = "SUNW_PKGLIST=" . $packagelistentry . "\n";
1994        add_one_line_into_file($changefile, $newline, $filename);
1995    }
1996    else
1997    {
1998        # Using default package ooobasis30-core01.
1999        my $packagelistentry = "%BASISPACKAGEPREFIX%WITHOUTDOTOOOBASEVERSION-core01";
2000        installer::packagelist::resolve_packagevariables(\$packagelistentry, $variableshashref, 1);
2001        $newline = "SUNW_PKGLIST=" . $packagelistentry . "\n";
2002        add_one_line_into_file($changefile, $newline, $filename);
2003    }
2004}
2005
2006############################################################
2007# Collecting all files included in patch in
2008# @installer::globals::patchfilecollector
2009############################################################
2010
2011sub collect_patch_files
2012{
2013    my ($file, $packagename, $prefix) = @_;
2014
2015    # $file is the spec file or the prototypefile
2016
2017    $prefix = $prefix . "/";
2018    my $packagenamestring = "Package " . $packagename . " \:\n";
2019    push(@installer::globals::patchfilecollector, $packagenamestring);
2020
2021    for ( my $i = 0; $i <= $#{$file}; $i++ )
2022    {
2023        my $line = ${$file}[$i];
2024
2025        if ( $installer::globals::islinuxrpmbuild )
2026        {
2027            # %attr(0444,root,root) "/opt/openofficeorg20/program/about.bmp"
2028
2029            if ( $line =~ /^\s*\%attr\(.*\)\s*\"(.*?)\"\s*$/ )
2030            {
2031                my $filename = $1 . "\n";
2032                $filename =~ s/^\s*\Q$prefix\E//;
2033                push(@installer::globals::patchfilecollector, $filename);
2034            }
2035        }
2036
2037        if ( $installer::globals::issolarispkgbuild )
2038        {
2039            # f none program/msomrl.rdb=/ab/SRC680/unxsols4.pro/bin/msomrl.rdb 0444 root bin
2040
2041            if ( $line =~ /^\s*f\s+\w+\s+(.*?)\=/ )
2042            {
2043                my $filename = $1 . "\n";
2044                push(@installer::globals::patchfilecollector, $filename);
2045            }
2046        }
2047    }
2048
2049    push(@installer::globals::patchfilecollector, "\n");
2050
2051}
2052
2053############################################################
2054# Including package names into the depend files.
2055# The package names have to be included into
2056# packagelist. They are already saved in
2057# %installer::globals::dependfilenames.
2058############################################################
2059
2060sub put_packagenames_into_dependfile
2061{
2062    my ( $file ) = @_;
2063
2064    for ( my $i = 0; $i <= $#{$file}; $i++ )
2065    {
2066        my $line = ${$file}[$i];
2067        if ( $line =~ /^\s*\w\s+(.*?)\s*$/ )
2068        {
2069            my $abbreviation = $1;
2070
2071            if ( $abbreviation =~ /\%/ ) { installer::exiter::exit_program("ERROR: Could not resolve all properties in Solaris package abbreviation \"$abbreviation\"!", "read_packagemap"); }
2072
2073            if ( exists($installer::globals::dependfilenames{$abbreviation}) )
2074            {
2075                my $packagename = $installer::globals::dependfilenames{$abbreviation};
2076                if ( $packagename =~ /\%/ ) { installer::exiter::exit_program("ERROR: Could not resolve all properties in Solaris package name \"$packagename\"!", "read_packagemap"); }
2077
2078                $line =~ s/\s*$//;
2079                ${$file}[$i] = $line . "\t" . $packagename . "\n";
2080            }
2081            else
2082            {
2083                installer::exiter::exit_program("ERROR: Missing packagename for Solaris package \"$abbreviation\"!", "put_packagenames_into_dependfile");
2084            }
2085        }
2086    }
2087}
2088
2089############################################################
2090# Including the relocatable directory into
2091# spec file and pkginfo file
2092# Linux: set topdir in specfile
2093# Solaris: remove $relocatablepath (/opt/)
2094# for all objects in prototype file
2095# and changing "topdir" for Linux
2096############################################################
2097
2098sub prepare_packages
2099{
2100    my ($loggingdir, $packagename, $staticpath, $relocatablepath, $onepackage, $variableshashref, $filesref, $languagestringref) = @_;
2101
2102    my $filename = "";
2103    my $newline = "";
2104    my $newepmdir = $installer::globals::epmoutpath . $installer::globals::separator;
2105
2106    my $localrelocatablepath = $relocatablepath;
2107    if ( $localrelocatablepath ne "/" ) { $localrelocatablepath =~ s/\/\s*$//; }
2108
2109    if ( $installer::globals::issolarispkgbuild )
2110    {
2111        $filename = $packagename . ".pkginfo";
2112        $newline = "BASEDIR\=" . $localrelocatablepath . "\n";
2113    }
2114
2115    if ( $installer::globals::islinuxrpmbuild )
2116    {
2117        # if ( $localrelocatablepath =~ /^\s*$/ ) { $localrelocatablepath = "/"; }; # at least the "/"
2118        $filename =  $packagename . ".spec";
2119        $newline = "Prefix\:\ " . $localrelocatablepath . "\n";
2120    }
2121
2122    my $completefilename = $newepmdir . $filename;
2123
2124    if ( ! -f $completefilename) { installer::exiter::exit_program("ERROR: Did not find file: $completefilename", "prepare_packages"); }
2125    my $changefile = installer::files::read_file($completefilename);
2126    if ( $newline ne "" )
2127    {
2128        add_one_line_into_file($changefile, $newline, $filename);
2129        installer::files::save_file($completefilename, $changefile);
2130    }
2131
2132    # my $newepmdir = $completefilename;
2133    # installer::pathanalyzer::get_path_from_fullqualifiedname(\$newepmdir);
2134
2135    # adding new "topdir" and removing old "topdir" in specfile
2136
2137    if ( $installer::globals::islinuxrpmbuild )
2138    {
2139        set_topdir_in_specfile($changefile, $filename, $newepmdir);
2140        set_autoprovreq_in_specfile($changefile, $onepackage->{'findrequires'}, "$installer::globals::unpackpath" . "/bin");
2141        set_packager_in_specfile($changefile);
2142        if ( is_extension_package($changefile) ) { set_prereq_in_specfile($changefile); }
2143        set_license_in_specfile($changefile, $variableshashref);
2144        set_tab_into_datafile($changefile, $filesref);
2145        # check_requirements_in_specfile($changefile);
2146        installer::files::save_file($completefilename, $changefile);
2147        if ( $installer::globals::patch ) { collect_patch_files($changefile, $packagename, $localrelocatablepath); }
2148    }
2149
2150    # removing the relocatable path in prototype file
2151
2152    if ( $installer::globals::issolarispkgbuild )
2153    {
2154        set_revision_in_pkginfo($changefile, $filename, $variableshashref, $packagename);
2155        set_maxinst_in_pkginfo($changefile, $filename);
2156        set_solaris_parameter_in_pkginfo($changefile, $filename, $variableshashref);
2157        if ( $installer::globals::issolarisx86build ) { fix_architecture_setting($changefile); }
2158        if ( ! $installer::globals::patch ) { set_patchlist_in_pkginfo_for_respin($changefile, $filename, $variableshashref, $packagename); }
2159        if ( $installer::globals::patch ) { include_patchinfos_into_pkginfo($changefile, $filename, $variableshashref); }
2160        if (( $onepackage->{'language'} ) && ( $onepackage->{'language'} ne "" ) && ( $onepackage->{'language'} ne "en-US" )) { include_languageinfos_into_pkginfo($changefile, $filename, $languagestringref, $onepackage, $variableshashref); }
2161        installer::files::save_file($completefilename, $changefile);
2162
2163        my $prototypefilename = $packagename . ".prototype";
2164        $prototypefilename = $newepmdir . $prototypefilename;
2165        if (! -f $prototypefilename) { installer::exiter::exit_program("ERROR: Did not find prototype file: $prototypefilename", "prepare_packages"); }
2166
2167        my $prototypefile = installer::files::read_file($prototypefilename);
2168        make_prototypefile_relocatable($prototypefile, $relocatablepath);
2169        set_volatilefile_into_prototypefile($prototypefile, $filesref);
2170        my $classesstring = set_tab_into_datafile($prototypefile, $filesref);
2171        if ($classesstring)
2172        {
2173            include_classes_into_pkginfo($changefile, $classesstring);
2174            installer::files::save_file($completefilename, $changefile);
2175        }
2176
2177        if ( $installer::globals::patch ) { add_scripts_into_prototypefile($prototypefile, $prototypefilename, $languagestringref, $staticpath); }
2178
2179        installer::files::save_file($prototypefilename, $prototypefile);
2180        if ( $installer::globals::patch ) { collect_patch_files($prototypefile, $packagename, ""); }
2181
2182        # Adding package names into depend files for Solaris (not supported by epm)
2183        my $dependfilename = $packagename . ".depend";
2184        $dependfilename = $newepmdir . $dependfilename;
2185        if ( -f $dependfilename)
2186        {
2187            my $dependfile = installer::files::read_file($dependfilename);
2188            put_packagenames_into_dependfile($dependfile);
2189            installer::files::save_file($dependfilename, $dependfile);
2190        }
2191    }
2192
2193    return $newepmdir;
2194}
2195
2196############################################################
2197# Linux requirement for perl is changed by epm from
2198# /usr/bin/perl to perl .
2199# Requires: perl
2200############################################################
2201
2202sub check_requirements_in_specfile
2203{
2204    my ( $specfile ) = @_;
2205
2206    for ( my $i = 0; $i <= $#{$specfile}; $i++ )
2207    {
2208        if (( ${$specfile}[$i] =~ /^\s*Requires/ ) && ( ${$specfile}[$i] =~ /\bperl\b/ ) && ( ! (  ${$specfile}[$i] =~ /\/usr\/bin\/perl\b/ )))
2209        {
2210            my $oldline = ${$specfile}[$i];
2211            ${$specfile}[$i] =~ s/perl/\/usr\/bin\/perl/;
2212            my $newline = ${$specfile}[$i];
2213
2214            $oldline =~ s/\s*$//;
2215            $newline =~ s/\s*$//;
2216            my $infoline = "Spec File: Changing content from \"$oldline\" to \"$newline\".\n";
2217            push(@installer::globals::logfileinfo, $infoline);
2218        }
2219    }
2220}
2221
2222###############################################################################
2223# Replacement of PRODUCTINSTALLLOCATION and PRODUCTDIRECTORYNAME in the
2224# epm list file.
2225# The complete rootpath is stored in $installer::globals::rootpath
2226# or for each package in $onepackage->{'destpath'}
2227# The static rootpath is stored in $staticpath
2228# The relocatable path is stored in $relocatablepath
2229# PRODUCTINSTALLLOCATION is the relocatable part ("/opt") and
2230# PRODUCTDIRECTORYNAME the static path ("openofficeorg20").
2231# In standard epm process:
2232# No usage of package specific variables like $BASEDIR, because
2233# 1. These variables would be replaced in epm process
2234# 2. epm version 3.7 does not support relocatable packages
2235###############################################################################
2236
2237sub resolve_path_in_epm_list_before_packaging
2238{
2239    my ($listfile, $listfilename, $variable, $path) = @_;
2240
2241    installer::logger::include_header_into_logfile("Replacing variables in epm list file:");
2242
2243    $path =~ s/\/\s*$//;
2244    replace_variables_in_shellscripts($listfile, $listfilename, $variable, $path);
2245
2246}
2247
2248#################################################################
2249# Determining the rpm version. Beginning with rpm version 4.0
2250# the tool to create RPMs is "rpmbuild" and no longer "rpm"
2251#################################################################
2252
2253sub determine_rpm_version
2254{
2255    my $rpmversion = 0;
2256    my $rpmout = "";
2257    my $systemcall = "";
2258
2259    # my $systemcall = "rpm --version |";
2260    # "rpm --version" has problems since LD_LIBRARY_PATH was removed. Therefore the content of $RPM has to be called.
2261    # "rpm --version" and "rpmbuild --version" have the same output. Therefore $RPM can be used. Its value
2262    # is saved in $installer::globals::rpm
2263
2264    if ( $installer::globals::rpm ne "" )
2265    {
2266        $systemcall = "$installer::globals::rpm --version |";
2267    }
2268    else
2269    {
2270        $systemcall = "rpm --version |";
2271    }
2272
2273    open (RPM, "$systemcall");
2274    $rpmout = <RPM>;
2275    close (RPM);
2276
2277    if ( $rpmout ne "" )
2278    {
2279        $rpmout =~ s/\s*$//g;
2280
2281        my $infoline = "Systemcall: $systemcall\n";
2282        push( @installer::globals::logfileinfo, $infoline);
2283
2284        if ( $rpmout eq "" ) { $infoline = "ERROR: Could not find file \"rpm\" !\n"; }
2285        else { $infoline = "Success: rpm version: $rpmout\n"; }
2286
2287        push( @installer::globals::logfileinfo, $infoline);
2288
2289        if ( $rpmout =~ /(\d+)\.(\d+)\.(\d+)/ ) { $rpmversion = $1; }
2290        elsif ( $rpmout =~ /(\d+)\.(\d+)/ ) { $rpmversion = $1; }
2291        elsif ( $rpmout =~ /(\d+)/ ) { $rpmversion = $1; }
2292        else { installer::exiter::exit_program("ERROR: Unknown format: $rpmout ! Expected: \"a.b.c\", or \"a.b\", or \"a\"", "determine_rpm_version"); }
2293    }
2294
2295    return $rpmversion;
2296}
2297
2298####################################################
2299# Writing some info about rpm into the log file
2300####################################################
2301
2302sub log_rpm_info
2303{
2304    my $systemcall = "";
2305    my $infoline = "";
2306
2307    $infoline = "\nLogging rpmrc content using --showrc\n\n";
2308    push( @installer::globals::logfileinfo, $infoline);
2309
2310    if ( $installer::globals::rpm ne "" )
2311    {
2312        $systemcall = "$installer::globals::rpm --showrc |";
2313    }
2314    else
2315    {
2316        $systemcall = "rpm --showrc |";
2317    }
2318
2319    my @fullrpmout = ();
2320
2321    open (RPM, "$systemcall");
2322    while (<RPM>) {push(@fullrpmout, $_); }
2323    close (RPM);
2324
2325    if ( $#fullrpmout > -1 )
2326    {
2327        for ( my $i = 0; $i <= $#fullrpmout; $i++ )
2328        {
2329            my $rpmout = $fullrpmout[$i];
2330            $rpmout =~ s/\s*$//g;
2331
2332            $infoline = "$rpmout\n";
2333            $infoline =~ s/error/e_r_r_o_r/gi;  # avoiding log problems
2334            push( @installer::globals::logfileinfo, $infoline);
2335        }
2336    }
2337    else
2338    {
2339        $infoline = "Problem in systemcall: $systemcall : No return value\n";
2340        push( @installer::globals::logfileinfo, $infoline);
2341    }
2342
2343    $infoline = "End of logging rpmrc\n\n";
2344    push( @installer::globals::logfileinfo, $infoline);
2345}
2346
2347#################################################
2348# Systemcall to start the packaging process
2349#################################################
2350
2351sub create_packages_without_epm
2352{
2353    my ($epmdir, $packagename, $includepatharrayref, $allvariables, $languagestringref) = @_;
2354
2355    # Solaris: pkgmk -o -f solaris-2.8-sparc/SUNWso8m34.prototype -d solaris-2.8-sparc
2356    # Solaris: pkgtrans solaris-2.8-sparc SUNWso8m34.pkg SUNWso8m34
2357    # Solaris: tar -cf - SUNWso8m34 | gzip > SUNWso8m34.tar.gz
2358
2359    if ( $installer::globals::issolarispkgbuild )
2360    {
2361        my $prototypefile = $epmdir . $packagename . ".prototype";
2362        if (! -f $prototypefile) { installer::exiter::exit_program("ERROR: Did not find file: $prototypefile", "create_packages_without_epm"); }
2363
2364        my $destinationdir = $prototypefile;
2365        installer::pathanalyzer::get_path_from_fullqualifiedname(\$destinationdir);
2366        $destinationdir =~ s/\/\s*$//;  # removing ending slashes
2367
2368        # my $systemcall = "pkgmk -o -f $prototypefile -d $destinationdir \> /dev/null 2\>\&1";
2369        my $systemcall = "pkgmk -l 1073741824 -o -f $prototypefile -d $destinationdir 2\>\&1 |";
2370        installer::logger::print_message( "... $systemcall ...\n" );
2371
2372        my $maxpkgmkcalls = 3;
2373
2374        for ( my $i = 1; $i <= $maxpkgmkcalls; $i++ )
2375        {
2376            my @pkgmkoutput = ();
2377
2378            open (PKGMK, "$systemcall");
2379            while (<PKGMK>) {push(@pkgmkoutput, $_); }
2380            close (PKGMK);
2381
2382            my $returnvalue = $?;   # $? contains the return value of the systemcall
2383
2384            my $infoline = "Systemcall (Try $i): $systemcall\n";
2385            push( @installer::globals::logfileinfo, $infoline);
2386
2387            for ( my $j = 0; $j <= $#pkgmkoutput; $j++ )
2388            {
2389                if ( $i < $maxpkgmkcalls ) { $pkgmkoutput[$j] =~ s/\bERROR\b/PROBLEM/ig; }
2390                push( @installer::globals::logfileinfo, "$pkgmkoutput[$j]");
2391            }
2392
2393            if ($returnvalue)
2394            {
2395                $infoline = "Try $i : Could not execute \"$systemcall\"!\n";
2396                push( @installer::globals::logfileinfo, $infoline);
2397                if ( $i == $maxpkgmkcalls ) { installer::exiter::exit_program("ERROR: \"$systemcall\"!", "create_packages_without_epm"); }
2398            }
2399            else
2400            {
2401                installer::logger::print_message( "Success (Try $i): \"$systemcall\"\n" );
2402                $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2403                push( @installer::globals::logfileinfo, $infoline);
2404                last;
2405            }
2406        }
2407
2408        # It might be necessary to save uncompressed Solaris packages
2409
2410        if ( $allvariables->{'JDSBUILD'} )
2411        {
2412            if ( ! $installer::globals::jds_language_controlled )
2413            {
2414                my $correct_language = installer::worker::check_jds_language($allvariables, $languagestringref);
2415                $installer::globals::correct_jds_language = $correct_language;
2416                $installer::globals::jds_language_controlled = 1;
2417            }
2418
2419            if ( $installer::globals::correct_jds_language )
2420            {
2421                if ( $installer::globals::saved_packages_path eq "" )
2422                {
2423                    $packagestempdir = installer::systemactions::create_directories("jds", $languagestringref);
2424                    $installer::globals::saved_packages_path = $packagestempdir;
2425                    push(@installer::globals::jdsremovedirs, $packagestempdir);
2426                }
2427
2428                $systemcall = "cd $destinationdir; cp -p -R $packagename $installer::globals::saved_packages_path;";
2429                make_systemcall($systemcall);
2430                installer::logger::print_message( "... $systemcall ...\n" );
2431
2432                # Setting unix rights to "775" for all created directories inside the package,
2433                # that is saved in temp directory
2434
2435                $systemcall = "cd $packagestempdir; find $packagename -type d -exec chmod 775 \{\} \\\;";
2436                installer::logger::print_message( "... $systemcall ...\n" );
2437
2438                $returnvalue = system($systemcall);
2439
2440                $infoline = "Systemcall: $systemcall\n";
2441                push( @installer::globals::logfileinfo, $infoline);
2442
2443                if ($returnvalue)
2444                {
2445                    $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2446                    push( @installer::globals::logfileinfo, $infoline);
2447                }
2448                else
2449                {
2450                    $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2451                    push( @installer::globals::logfileinfo, $infoline);
2452                }
2453            }
2454        }
2455
2456        # compressing packages
2457
2458        if ( ! $installer::globals::solarisdontcompress )
2459        {
2460            my $faspac = "faspac-so.sh";
2461
2462            my $compressorref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$faspac, $includepatharrayref, 0);
2463            if ($$compressorref ne "")
2464            {
2465                # Saving original pkginfo, to set time stamp later
2466                my $pkginfoorig = "$destinationdir/$packagename/pkginfo";
2467                my $pkginfotmp = "$destinationdir/$packagename" . ".pkginfo.tmp";
2468                $systemcall = "cp -p $pkginfoorig $pkginfotmp";
2469                make_systemcall($systemcall);
2470
2471                $faspac = $$compressorref;
2472                $infoline = "Found compressor: $faspac\n";
2473                push( @installer::globals::logfileinfo, $infoline);
2474
2475                installer::logger::print_message( "... $faspac ...\n" );
2476                installer::logger::include_timestamp_into_logfile("Starting $faspac");
2477
2478                $systemcall = "/bin/sh $faspac -a -q -d $destinationdir $packagename";   # $faspac has to be the absolute path!
2479                make_systemcall($systemcall);
2480
2481                # Setting time stamp for pkginfo, because faspac-so.sh changed the pkginfo file,
2482                # updated the size and checksum, but not the time stamp.
2483                $systemcall = "touch -r $pkginfotmp $pkginfoorig";
2484                make_systemcall($systemcall);
2485                if ( -f $pkginfotmp ) { unlink($pkginfotmp); }
2486
2487                installer::logger::include_timestamp_into_logfile("End of $faspac");
2488            }
2489            else
2490            {
2491                $infoline = "Not found: $faspac\n";
2492                push( @installer::globals::logfileinfo, $infoline);
2493            }
2494        }
2495
2496        # Setting unix rights to "775" for all created directories inside the package
2497
2498        $systemcall = "cd $destinationdir; find $packagename -type d -exec chmod 775 \{\} \\\;";
2499        installer::logger::print_message( "... $systemcall ...\n" );
2500
2501        $returnvalue = system($systemcall);
2502
2503        $infoline = "Systemcall: $systemcall\n";
2504        push( @installer::globals::logfileinfo, $infoline);
2505
2506        if ($returnvalue)
2507        {
2508            $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2509            push( @installer::globals::logfileinfo, $infoline);
2510        }
2511        else
2512        {
2513            $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2514            push( @installer::globals::logfileinfo, $infoline);
2515        }
2516
2517        ######################
2518        # making pkg files
2519        ######################
2520
2521        # my $streamname = $packagename . ".pkg";
2522        # $systemcall = "pkgtrans $destinationdir $streamname $packagename";
2523        # print "... $systemcall ...\n";
2524
2525        # $returnvalue = system($systemcall);
2526
2527        # $infoline = "Systemcall: $systemcall\n";
2528        # push( @installer::globals::logfileinfo, $infoline);
2529
2530        # if ($returnvalue)
2531        # {
2532        #   $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2533        #   push( @installer::globals::logfileinfo, $infoline);
2534        # }
2535        # else
2536        # {
2537        #   $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2538        #   push( @installer::globals::logfileinfo, $infoline);
2539        # }
2540
2541        #########################
2542        # making tar.gz files
2543        #########################
2544
2545        # my $targzname = $packagename . ".tar.gz";
2546        # $systemcall = "cd $destinationdir; tar -cf - $packagename | gzip > $targzname";
2547        # print "... $systemcall ...\n";
2548
2549        # $returnvalue = system($systemcall);
2550
2551        # $infoline = "Systemcall: $systemcall\n";
2552        # push( @installer::globals::logfileinfo, $infoline);
2553
2554        # if ($returnvalue)
2555        # {
2556        #   $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2557        #   push( @installer::globals::logfileinfo, $infoline);
2558        # }
2559        # else
2560        # {
2561        #   $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2562        #   push( @installer::globals::logfileinfo, $infoline);
2563        # }
2564    }
2565
2566    # Linux: rpm -bb so8m35.spec    ( -> dependency check abklemmen? )
2567
2568    if ( $installer::globals::islinuxrpmbuild )
2569    {
2570        my $specfilename = $epmdir . $packagename . ".spec";
2571        if (! -f $specfilename) { installer::exiter::exit_program("ERROR: Did not find file: $specfilename", "create_packages_without_epm"); }
2572
2573        # my $rpmcommand = "rpm";
2574        my $rpmcommand = $installer::globals::rpm;
2575        my $rpmversion = determine_rpm_version();
2576
2577        # if ( $rpmversion >= 4 ) { $rpmcommand = "rpmbuild"; }
2578
2579        # saving globally for later usage
2580        $installer::globals::rpmcommand = $rpmcommand;
2581        $installer::globals::rpmquerycommand = "rpm";
2582
2583        my $target = "";
2584        if ( $installer::globals::compiler =~ /unxlngi/) { $target = "i586"; }
2585        elsif ( $installer::globals::compiler =~ /unxlng/) {$target = (POSIX::uname())[4]; }
2586
2587        # rpm 4.6 ignores buildroot tag in spec file
2588
2589        my $buildrootstring = "";
2590
2591        if ( $rpmversion >= 4 )
2592        {
2593            my $dir = getcwd;
2594            my $buildroot = $dir . "/" . $epmdir . "buildroot/";
2595            $buildrootstring = "--buildroot=$buildroot";
2596            mkdir($buildroot = $dir . "/" . $epmdir . "BUILD/");
2597        }
2598
2599        if ( ! $installer::globals::rpminfologged )
2600        {
2601            log_rpm_info();
2602            $installer::globals::rpminfologged = 1;
2603        }
2604
2605        my $systemcall = "$rpmcommand -bb --define \"_unpackaged_files_terminate_build  0\" $specfilename --target $target $buildrootstring 2\>\&1 |";
2606
2607        installer::logger::print_message( "... $systemcall ...\n" );
2608
2609        my $maxrpmcalls = 3;
2610        my $rpm_failed = 0;
2611
2612        for ( my $i = 1; $i <= $maxrpmcalls; $i++ )
2613        {
2614            my @rpmoutput = ();
2615
2616            open (RPM, "$systemcall");
2617            while (<RPM>) {push(@rpmoutput, $_); }
2618            close (RPM);
2619
2620            my $returnvalue = $?;   # $? contains the return value of the systemcall
2621
2622            my $infoline = "Systemcall (Try $i): $systemcall\n";
2623            push( @installer::globals::logfileinfo, $infoline);
2624
2625            for ( my $j = 0; $j <= $#rpmoutput; $j++ )
2626            {
2627                # if ( $i < $maxrpmcalls ) { $rpmoutput[$j] =~ s/\bERROR\b/PROBLEM/ig; }
2628                $rpmoutput[$j] =~ s/\bERROR\b/PROBLEM/ig;
2629                push( @installer::globals::logfileinfo, "$rpmoutput[$j]");
2630            }
2631
2632            if ($returnvalue)
2633            {
2634                $infoline = "Try $i : Could not execute \"$systemcall\"!\n";
2635                push( @installer::globals::logfileinfo, $infoline);
2636                $rpm_failed = 1;
2637            }
2638            else
2639            {
2640                installer::logger::print_message( "Success (Try $i): \"$systemcall\"\n" );
2641                $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2642                push( @installer::globals::logfileinfo, $infoline);
2643                $rpm_failed = 0;
2644                last;
2645            }
2646        }
2647
2648        if ( $rpm_failed )
2649        {
2650            # Because of the problems with LD_LIBARY_PATH, a direct call of local "rpm" or "rpmbuild" might be successful
2651            my $rpmprog = "";
2652            if ( -f "/usr/bin/rpmbuild" ) { $rpmprog = "/usr/bin/rpmbuild"; }
2653            elsif ( -f "/usr/bin/rpm" ) { $rpmprog = "/usr/bin/rpm"; }
2654
2655            if ( $rpmprog ne "" )
2656            {
2657                installer::logger::print_message( "... $rpmprog ...\n" );
2658
2659                my $helpersystemcall = "$rpmprog -bb $specfilename --target $target $buildrootstring 2\>\&1 |";
2660
2661                my @helperrpmoutput = ();
2662
2663                open (RPM, "$helpersystemcall");
2664                while (<RPM>) {push(@helperrpmoutput, $_); }
2665                close (RPM);
2666
2667                my $helperreturnvalue = $?; # $? contains the return value of the systemcall
2668
2669                $infoline = "\nLast try: Using $rpmprog directly (problem with LD_LIBARY_PATH)\n";
2670                push( @installer::globals::logfileinfo, $infoline);
2671
2672                $infoline = "\nSystemcall: $helpersystemcall\n";
2673                push( @installer::globals::logfileinfo, $infoline);
2674
2675                for ( my $j = 0; $j <= $#helperrpmoutput; $j++ ) { push( @installer::globals::logfileinfo, "$helperrpmoutput[$j]"); }
2676
2677                if ($helperreturnvalue)
2678                {
2679                    $infoline = "Could not execute \"$helpersystemcall\"!\n";
2680                    push( @installer::globals::logfileinfo, $infoline);
2681                }
2682                else
2683                {
2684                    installer::logger::print_message( "Success: \"$helpersystemcall\"\n" );
2685                    $infoline = "Success: Executed \"$helpersystemcall\" successfully!\n";
2686                    push( @installer::globals::logfileinfo, $infoline);
2687                    $rpm_failed = 0;
2688                }
2689            }
2690
2691            # Now it is really time to exit this packaging process, if the error still occurs
2692            if ( $rpm_failed ) { installer::exiter::exit_program("ERROR: \"$systemcall\"!", "create_packages_without_epm"); }
2693        }
2694    }
2695}
2696
2697#################################################
2698# Removing all temporary files created by epm
2699#################################################
2700
2701sub remove_temporary_epm_files
2702{
2703    my ($epmdir, $loggingdir, $packagename) = @_;
2704
2705    # saving the files into the loggingdir
2706
2707    if ( $installer::globals::issolarispkgbuild )
2708    {
2709        my @extensions = ();
2710        push(@extensions, ".pkginfo");
2711        push(@extensions, ".prototype");
2712        push(@extensions, ".postinstall");
2713        push(@extensions, ".postremove");
2714        push(@extensions, ".preinstall");
2715        push(@extensions, ".preremove");
2716        push(@extensions, ".depend");
2717
2718        for ( my $i = 0; $i <= $#extensions; $i++ )
2719        {
2720            my $removefile = $epmdir . $packagename . $extensions[$i];
2721            my $destfile = $loggingdir . $packagename . $extensions[$i] . ".log";
2722
2723            if (! -f $removefile) { next; }
2724
2725            my $systemcall = "mv -f $removefile $destfile";
2726            system($systemcall);     # ignoring the return value
2727            $infoline = "Systemcall: $systemcall\n";
2728            push( @installer::globals::logfileinfo, $infoline);
2729        }
2730
2731        # removing the package
2732
2733#       my $removedir = $epmdir . $packagename;
2734#
2735#       my $systemcall = "rm -rf $removedir";
2736#
2737#       print "... $systemcall ...\n";
2738#
2739#       my $returnvalue = system($systemcall);
2740#
2741#       my $infoline = "Systemcall: $systemcall\n";
2742#       push( @installer::globals::logfileinfo, $infoline);
2743#
2744#       if ($returnvalue)
2745#       {
2746#           $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2747#           push( @installer::globals::logfileinfo, $infoline);
2748#       }
2749#       else
2750#       {
2751#           $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2752#           push( @installer::globals::logfileinfo, $infoline);
2753#       }
2754    }
2755
2756    if ( $installer::globals::islinuxrpmbuild )
2757    {
2758        my $removefile = $epmdir . $packagename . ".spec";
2759        my $destfile = $loggingdir . $packagename . ".spec.log";
2760
2761         # if (! -f $removefile) { next; }
2762
2763        my $systemcall = "mv -f $removefile $destfile";
2764        system($systemcall);     # ignoring the return value
2765        $infoline = "Systemcall: $systemcall\n";
2766        push( @installer::globals::logfileinfo, $infoline);
2767
2768        # removing the directory "buildroot"
2769
2770        my $removedir = $epmdir . "buildroot";
2771
2772        $systemcall = "rm -rf $removedir";
2773
2774        installer::logger::print_message( "... $systemcall ...\n" );
2775
2776        my $returnvalue = system($systemcall);
2777
2778        $removedir = $epmdir . "BUILD";
2779
2780        $systemcall = "rm -rf $removedir";
2781
2782        installer::logger::print_message( "... $systemcall ...\n" );
2783
2784        $returnvalue = system($systemcall);
2785
2786
2787        my $infoline = "Systemcall: $systemcall\n";
2788        push( @installer::globals::logfileinfo, $infoline);
2789
2790        if ($returnvalue)
2791        {
2792            $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2793            push( @installer::globals::logfileinfo, $infoline);
2794        }
2795        else
2796        {
2797            $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2798            push( @installer::globals::logfileinfo, $infoline);
2799        }
2800    }
2801}
2802
2803######################################################
2804# Making the systemcall
2805######################################################
2806
2807sub make_systemcall
2808{
2809    my ($systemcall) = @_;
2810
2811    my $returnvalue = system($systemcall);
2812
2813    my $infoline = "Systemcall: $systemcall\n";
2814    push( @installer::globals::logfileinfo, $infoline);
2815
2816    if ($returnvalue)
2817    {
2818        $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
2819        push( @installer::globals::logfileinfo, $infoline);
2820    }
2821    else
2822    {
2823        $infoline = "Success: Executed \"$systemcall\" successfully!\n";
2824        push( @installer::globals::logfileinfo, $infoline);
2825    }
2826}
2827
2828###########################################################
2829# Creating a better directory structure in the solver.
2830###########################################################
2831
2832sub create_new_directory_structure
2833{
2834    my ($newepmdir) = @_;
2835
2836    my $newdir = $installer::globals::epmoutpath;
2837
2838    if ( $installer::globals::islinuxrpmbuild )
2839    {
2840        my $rpmdir;
2841                my $machine = "";
2842        if ( $installer::globals::compiler =~ /unxlngi/) {
2843                    $rpmdir = "$installer::globals::epmoutpath/RPMS/i586";
2844                }
2845        elsif ( $installer::globals::compiler =~ /unxlng/) {
2846                    $machine = (POSIX::uname())[4];
2847                    $rpmdir = "$installer::globals::epmoutpath/RPMS/$machine";
2848                }
2849                else { installer::exiter::exit_program("ERROR: rpmdir undefined !", "create_new_directory_structure"); }
2850
2851        my $systemcall = "mv $rpmdir/* $newdir";    # moving the rpms into the directory "RPMS"
2852
2853        my $returnvalue = system($systemcall);
2854
2855        my $infoline = "Systemcall: $systemcall\n";
2856        push( @installer::globals::logfileinfo, $infoline);
2857
2858        if ($returnvalue)
2859        {
2860            $infoline = "ERROR: Could not move content of \"$rpmdir\" to \"$newdir\"!\n";
2861            push( @installer::globals::logfileinfo, $infoline);
2862        }
2863        else
2864        {
2865            $infoline = "Success: Moved content of \"$rpmdir\" to \"$newdir\"!\n";
2866            push( @installer::globals::logfileinfo, $infoline);
2867        }
2868
2869        # and removing the empty directory
2870
2871        if ( $machine ne "" )
2872        {
2873            installer::systemactions::remove_empty_directory("$installer::globals::epmoutpath/RPMS/$machine");
2874        }
2875        installer::systemactions::remove_empty_directory("$installer::globals::epmoutpath/RPMS/x86_64");
2876        installer::systemactions::remove_empty_directory("$installer::globals::epmoutpath/RPMS/i586");
2877        installer::systemactions::remove_empty_directory("$installer::globals::epmoutpath/RPMS/i386");
2878        installer::systemactions::remove_empty_directory("$installer::globals::epmoutpath/RPMS");
2879
2880    }
2881
2882    # Setting unix rights to "775" for $newdir ("RPMS" or "packages")
2883
2884    my $localcall = "chmod 775 $newdir \>\/dev\/null 2\>\&1";
2885    my $callreturnvalue = system($localcall);
2886
2887    my $callinfoline = "Systemcall: $localcall\n";
2888    push( @installer::globals::logfileinfo, $callinfoline);
2889
2890    if ($callreturnvalue)
2891    {
2892        $callinfoline = "ERROR: Could not execute \"$localcall\"!\n";
2893        push( @installer::globals::logfileinfo, $callinfoline);
2894    }
2895    else
2896    {
2897        $callinfoline = "Success: Executed \"$localcall\" successfully!\n";
2898        push( @installer::globals::logfileinfo, $callinfoline);
2899    }
2900}
2901
2902######################################################
2903# Collect modules with product specific styles.
2904######################################################
2905
2906sub collect_modules_with_style
2907{
2908    my ($style, $modulesarrayref) = @_;
2909
2910    my @allmodules = ();
2911
2912    for ( my $i = 0; $i <= $#{$modulesarrayref}; $i++ )
2913    {
2914        my $onemodule = ${$modulesarrayref}[$i];
2915        my $styles = "";
2916        if ( $onemodule->{'Styles'} ) { $styles = $onemodule->{'Styles'}; }
2917        if ( $styles =~ /\b\Q$style\E\b/ )
2918        {
2919            push(@allmodules, $onemodule);
2920        }
2921    }
2922
2923    return \@allmodules;
2924}
2925
2926######################################################
2927# Remove modules without packagecontent.
2928######################################################
2929
2930sub remove_modules_without_package
2931{
2932    my ($allmodules) = @_;
2933
2934    my @allmodules = ();
2935
2936    for ( my $i = 0; $i <= $#{$allmodules}; $i++ )
2937    {
2938        my $onemodule = ${$allmodules}[$i];
2939        my $packagename = "";
2940        if ( $onemodule->{'PackageName'} ) { $packagename = $onemodule->{'PackageName'}; }
2941        if ( $packagename ne "" )
2942        {
2943            push(@allmodules, $onemodule);
2944        }
2945    }
2946
2947    return \@allmodules;
2948}
2949
2950######################################################
2951# Unpacking tar.gz file and setting new packagename.
2952######################################################
2953
2954sub unpack_tar_gz_file
2955{
2956    my ($packagename, $destdir) = @_;
2957
2958    my $newpackagename = "";
2959
2960    if ( $packagename =~ /\.tar\.gz\s*$/ )
2961    {
2962        # Collecting all packages in directory "packages"
2963        my $oldcontent = installer::systemactions::read_directory($destdir);
2964
2965        # unpacking gunzip
2966        my $systemcall = "cd $destdir; cat $packagename | gunzip | tar -xf -";
2967        make_systemcall($systemcall);
2968
2969        # deleting the tar.gz files
2970        $systemcall = "cd $destdir; rm -f $packagename";
2971        make_systemcall($systemcall);
2972
2973        # Finding new content -> that is the package name
2974        my ($newcontent, $allcontent ) = installer::systemactions::find_new_content_in_directory($destdir, $oldcontent);
2975        $newpackagename = ${$newcontent}[0];
2976        installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$newpackagename);
2977    }
2978
2979    if ( $newpackagename ne "" ) { $packagename = $newpackagename; }
2980
2981    return $packagename;
2982}
2983
2984######################################################
2985# Copying files of child projects.
2986######################################################
2987
2988sub copy_childproject_files
2989{
2990    my ($allmodules, $sopackpath, $destdir, $modulesarrayref, $allvariables, $subdir, $includepatharrayref, $use_sopackpath) = @_;
2991
2992    for ( my $i = 0; $i <= $#{$allmodules}; $i++ )
2993    {
2994        my $localdestdir = $destdir;
2995        my $onemodule = ${$allmodules}[$i];
2996        my $packagename = $onemodule->{'PackageName'};
2997        my $sourcefile = "";
2998        if ( $use_sopackpath )
2999        {
3000            $sourcefile = $sopackpath . $installer::globals::separator . $installer::globals::compiler . $installer::globals::separator . $subdir . $installer::globals::separator . $packagename;
3001        }
3002        else
3003        {
3004            my $sourcepathref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$packagename, $includepatharrayref, 1);
3005            $sourcefile = $$sourcepathref;
3006        }
3007
3008        if ( ! -f $sourcefile ) { installer::exiter::exit_program("ERROR: File not found: $sourcefile ($packagename) !", "copy_childproject_files"); }
3009        if ( $onemodule->{'Subdir'} )
3010        {
3011            $localdestdir = $localdestdir . $installer::globals::separator . $onemodule->{'Subdir'};
3012            if ( ! -d $localdestdir ) { installer::systemactions::create_directory($localdestdir); }
3013        }
3014        installer::systemactions::copy_one_file($sourcefile, $localdestdir);
3015        # Solaris: unpacking tar.gz files and setting new packagename
3016        if ( $installer::globals::issolarispkgbuild ) { $packagename = unpack_tar_gz_file($packagename, $localdestdir); }
3017
3018        if (( $installer::globals::isxpdplatform ) && ( $allvariables->{'XPDINSTALLER'} ))
3019        {
3020            installer::xpdinstaller::create_xpd_file_for_childproject($onemodule, $localdestdir, $packagename, $allvariableshashref, $modulesarrayref);
3021        }
3022    }
3023
3024}
3025
3026######################################################
3027# Copying files for system integration.
3028######################################################
3029
3030sub copy_and_unpack_tar_gz_files
3031{
3032    my ($sourcefile, $destdir) = @_;
3033
3034    my $systemcall = "cd $destdir; cat $sourcefile | gunzip | tar -xf -";
3035    make_systemcall($systemcall);
3036}
3037
3038######################################################
3039# Including child packages into the
3040# installation set.
3041######################################################
3042
3043sub put_childprojects_into_installset
3044{
3045    my ($newdir, $allvariables, $modulesarrayref, $includepatharrayref) = @_;
3046
3047    my $infoline = "";
3048
3049    my $sopackpath = "";
3050    if ( $ENV{'SO_PACK'} ) { $sopackpath  = $ENV{'SO_PACK'}; }
3051    else { installer::exiter::exit_program("ERROR: Environment variable SO_PACK not set!", "put_childprojects_into_installset"); }
3052
3053    my $destdir = "$newdir";
3054
3055    # adding Java
3056
3057    my $sourcefile = "";
3058
3059    # Finding the modules defined in scp (with flag JAVAMODULE, ADAMODULE, ...)
3060    # Getting name of package from scp-Module
3061    # Copy file into installation set
3062    # Create xpd file and put it into xpd directory
3063    # xpd file has to be created completely from module and package itself (-> no packagelist!)
3064
3065    if ( $allvariables->{'JAVAPRODUCT'} )
3066    {
3067        # Collect all modules with flag "JAVAMODULE"
3068        my $allmodules = collect_modules_with_style("JAVAMODULE", $modulesarrayref);
3069        $allmodules = remove_modules_without_package($allmodules);
3070        copy_childproject_files($allmodules, $sopackpath, $destdir, $modulesarrayref, $allvariables, "jre", $includepatharrayref, 1);
3071    }
3072
3073    # Adding additional required packages (freetype).
3074    # This package names are stored in global array @installer::globals::requiredpackages
3075
3076    if ( $allvariables->{'ADDREQUIREDPACKAGES'} )
3077    {
3078        # Collect all modules with flag "REQUIREDPACKAGEMODULE"
3079        my $allmodules = collect_modules_with_style("REQUIREDPACKAGEMODULE", $modulesarrayref);
3080        $allmodules = remove_modules_without_package($allmodules);
3081        copy_childproject_files($allmodules, $sopackpath, $destdir, $modulesarrayref, $allvariables, "requiredpackages", $includepatharrayref, 1);
3082    }
3083
3084    # Collect all modules with flag "USERLANDMODULE"
3085    my $alluserlandmodules = collect_modules_with_style("USERLANDMODULE", $modulesarrayref);
3086    $alluserlandmodules = remove_modules_without_package($alluserlandmodules);
3087    copy_childproject_files($alluserlandmodules, $sopackpath, $destdir, $modulesarrayref, $allvariables, "", $includepatharrayref, 0);
3088
3089}
3090
3091######################################################
3092# Checking whether the new content is a directory and
3093# not a package. If it is a directory, the complete
3094# content of the directory has to be added to the
3095# array newcontent.
3096######################################################
3097
3098sub control_subdirectories
3099{
3100    my ($content, $subdir) = @_;
3101
3102    my @newcontent = ();
3103
3104    for ( my $i = 0; $i <= $#{$content}; $i++ )
3105    {
3106        if ( -d ${$content}[$i] )
3107        {
3108            $subdir = ${$content}[$i];
3109            installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$subdir);
3110            my $allpackages = installer::systemactions::read_directory(${$content}[$i]);
3111            for ( my $j = 0; $j <= $#{$allpackages}; $j++ )
3112            {
3113                # Currently only Linux rpm is supported, debian packages cannot be installed via xpd installer
3114                if (( $installer::globals::islinuxbuild ) && ( ! ( ${$allpackages}[$j] =~ /\.rpm\s*$/ ))) { next; }
3115                push(@newcontent, ${$allpackages}[$j]);
3116            }
3117        }
3118        else
3119        {
3120            push(@newcontent, ${$content}[$i]);
3121        }
3122    }
3123
3124    return (\@newcontent, $subdir);
3125}
3126
3127######################################################
3128# Including the system integration files into the
3129# installation sets.
3130######################################################
3131
3132sub put_systemintegration_into_installset
3133{
3134    my ($newdir, $includepatharrayref, $allvariables, $modulesarrayref) = @_;
3135
3136    my $destdir = $newdir;
3137
3138    # adding System integration files
3139
3140    my $sourcefile = "";
3141
3142    # Finding the modules defined in scp (with flag SYSTEMMODULE)
3143    # Getting name of package from scp-Module
3144    # Search package in list off all include files
3145    # Copy file into installation set and unpack it (always tar.gz)
3146    # Create xpd file and put it into xpd directory
3147    # tar.gz can contain a different number of packages -> automatically create hidden sub modules
3148    # xpd file has to be created completely from module and package itself (-> no packagelist!)
3149
3150    # Collect all modules with flag "SYSTEMMODULE"
3151    my $allmodules = collect_modules_with_style("SYSTEMMODULE", $modulesarrayref);
3152    $allmodules = remove_modules_without_package($allmodules);
3153
3154    for ( my $i = 0; $i <= $#{$allmodules}; $i++ )
3155    {
3156        my $onemodule = ${$allmodules}[$i];
3157        my $packagetarfilename = $onemodule->{'PackageName'};
3158
3159        my $infoline = "Including into installation set: $packagetarfilename\n";
3160        push( @installer::globals::logfileinfo, $infoline);
3161
3162        my $sourcepathref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$packagetarfilename, $includepatharrayref, 1);
3163        if ( $$sourcepathref eq "" ) { installer::exiter::exit_program("ERROR: Source path not found for $packagetarfilename!", "copy_systemintegration_files"); }
3164
3165        # Collecting all packages in directory "packages" or "RPMS"
3166        my $oldcontent = installer::systemactions::read_directory($destdir);
3167
3168        copy_and_unpack_tar_gz_files($$sourcepathref, $destdir);
3169
3170        # Finding new content -> that is the package name
3171        my ($newcontent, $allcontent ) = installer::systemactions::find_new_content_in_directory($destdir, $oldcontent);
3172
3173        # special handling, if new content is a directory
3174        my $subdir = "";
3175        if ( ! $installer::globals::issolarispkgbuild ) { ($newcontent, $subdir) = control_subdirectories($newcontent); }
3176
3177        # Adding license content into Solaris packages
3178        if (( $installer::globals::issolarispkgbuild ) && ( $installer::globals::englishlicenseset ) && ( ! $variableshashref->{'NO_LICENSE_INTO_COPYRIGHT'} )) { installer::worker::add_license_into_systemintegrationpackages($destdir, $newcontent); }
3179
3180        if (( $installer::globals::isxpdplatform ) && ( $allvariables->{'XPDINSTALLER'} ))
3181        {
3182            installer::xpdinstaller::create_xpd_file_for_systemintegration($onemodule, $newcontent, $modulesarrayref, $subdir);
3183        }
3184    }
3185}
3186
3187######################################################
3188# Analyzing the Unix installation path.
3189# From the installation path /opt/openofficeorg20
3190# is the part /opt relocatable and the part
3191# openofficeorg20 static.
3192######################################################
3193
3194sub analyze_rootpath
3195{
3196    my ($rootpath, $staticpathref, $relocatablepathref, $allvariables) = @_;
3197
3198    $rootpath =~ s/\/\s*$//;    # removing ending slash
3199
3200    ##############################################################
3201    # Version 1: "/opt" is variable and "openofficeorg20" fixed
3202    ##############################################################
3203
3204    # my $staticpath = $rootpath;
3205    # installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$staticpath);
3206    # $$staticpathref = $staticpath;                # will be "openofficeorg20"
3207
3208    # my $relocatablepath = $rootpath;
3209    # installer::pathanalyzer::get_path_from_fullqualifiedname(\$relocatablepath);
3210    # $$relocatablepathref = $relocatablepath;      # will be "/opt/"
3211
3212    ##############################################################
3213    # Version 2: "/opt/openofficeorg20" is variable and "" fixed
3214    ##############################################################
3215
3216    # if ( $$relocatablepathref eq "" ) # relocatablepath is not defined in package list
3217    # {
3218    #   $$staticpathref = "";   # will be ""
3219    #   $$relocatablepathref = $rootpath . "\/"; # relocatable path must end with "/", will be "/opt/openofficeorg20/"
3220    #   # setting the static path to the hostname of the directory with style OFFICEDIRECTORY
3221    #   if ( $allvariables->{'SETSTATICPATH'} ) { $$staticpathref = $installer::globals::officedirhostname; }
3222    #
3223    # }
3224    # else  # relocatablepath is defined in package list
3225    # {
3226    #   $$relocatablepathref =~ s/\/\s*$//;         # removing ending slash
3227    #   $$relocatablepathref = $$relocatablepathref . "\/"; # relocatable path must end with "/"
3228    #   my $staticpath = $rootpath;
3229    #   $staticpath =~ s/\Q$$relocatablepathref\E//;
3230    #   $staticpath =~ s/\/\s*$//;
3231    #   $$staticpathref = $staticpath;
3232    # }
3233
3234    ##############################################################
3235    # Version 3: "/" is variable and "/opt/openofficeorg20" fixed
3236    ##############################################################
3237
3238    $$relocatablepathref = "/";
3239    # Static path has to contain the office directory name. This is replaced in shellscripts.
3240    $$staticpathref = $rootpath . $installer::globals::separator . $installer::globals::officedirhostname;
3241    # For RPM version 3.x it is required, that Prefix is not "/" in spec file. In this case --relocate will not work,
3242    # because RPM 3.x says, that the package is not relocatable. Therefore we have to use Prefix=/opt and for
3243    # all usages of --relocate this path has to be on both sides of the "=": --relocate /opt=<myselectdir>/opt .
3244    if ( $installer::globals::islinuxrpmbuild )
3245    {
3246        $$relocatablepathref = $rootpath . "\/"; # relocatable path must end with "/", will be "/opt/"
3247        $$staticpathref = $installer::globals::officedirhostname; # to be used as replacement in shell scripts
3248    }
3249
3250    if ( $installer::globals::islinuxdebbuild )
3251    {
3252        $$relocatablepathref = "";
3253        # $$staticpathref is already "/opt/openoffice.org3", no additional $rootpath required.
3254        # $$staticpathref = $rootpath . $installer::globals::separator . $$staticpathref;  # no relocatibility for Debian
3255    }
3256
3257}
3258
3259######################################################
3260# Including license and readme into
3261# Unix installation sets.
3262######################################################
3263
3264sub put_installsetfiles_into_installset
3265{
3266    my ($destdir) = @_;
3267
3268    # All files for the installation set are saved in the global
3269    # array @installer::globals::installsetfiles
3270
3271    for ( my $i = 0; $i <= $#installer::globals::installsetfiles; $i++ )
3272    {
3273        my $onefile = $installer::globals::installsetfiles[$i];
3274        my $sourcefile = $onefile->{'sourcepath'};
3275        my $destfile = "";
3276        if ( $installer::globals::addjavainstaller ) { $destfile = $onefile->{'Name'}; }
3277        else { $destfile = $destdir . $installer::globals::separator . $onefile->{'Name'}; }
3278        installer::systemactions::copy_one_file($sourcefile, $destfile);
3279
3280        my $infoline = "Adding to installation set \"$destfile\" from source \"$sourcefile\".\n";
3281        push( @installer::globals::logfileinfo, $infoline);
3282    }
3283}
3284
3285######################################################
3286# Replacing one variable in patchinfo file
3287######################################################
3288
3289sub replace_one_variable_in_file
3290{
3291    my ( $file, $placeholder, $value ) = @_;
3292
3293    for ( my $i = 0; $i <= $#{$file}; $i++ )
3294    {
3295        ${$file}[$i] =~ s/$placeholder/$value/g;
3296    }
3297}
3298
3299######################################################
3300# Setting variables in the patchinfo file
3301######################################################
3302
3303sub set_patchinfo
3304{
3305    my ( $patchinfofile, $patchid, $allvariables ) = @_;
3306
3307    # Setting: PATCHIDPLACEHOLDER and ARCHITECTUREPLACEHOLDER and PATCHCORRECTSPLACEHOLDER
3308
3309    replace_one_variable_in_file($patchinfofile, "PATCHIDPLACEHOLDER", $patchid);
3310
3311    my $architecture = "";
3312    if ( $installer::globals::issolarissparcbuild ) { $architecture = "sparc"; }
3313    if ( $installer::globals::issolarisx86build ) { $architecture = "i386"; }
3314
3315    replace_one_variable_in_file($patchinfofile, "ARCHITECTUREPLACEHOLDER", $architecture);
3316
3317    if ( ! $allvariables->{'SOLARISPATCHCORRECTS'} ) { installer::exiter::exit_program("ERROR: No setting for PATCH_CORRECTS in zip list file!", "set_patchinfo"); }
3318    my $patchcorrects = $allvariables->{'SOLARISPATCHCORRECTS'};
3319
3320    replace_one_variable_in_file($patchinfofile, "PATCHCORRECTSPLACEHOLDER", $patchcorrects);
3321
3322    # Setting also PATCH_REQUIRES in patch info file, if entry in zip list file exists
3323    my $requiresstring = "";
3324    if ( $installer::globals::issolarissparcbuild ) { $requiresstring = "SOLSPARCPATCHREQUIRES"; }
3325    if ( $installer::globals::issolarisx86build ) { $requiresstring = "SOLIAPATCHREQUIRES"; }
3326
3327    if ( $allvariables->{$requiresstring} )
3328    {
3329        my $newline = "PATCH_REQUIRES=\"" . $allvariables->{$requiresstring} . "\"" . "\n";
3330        push(@{$patchinfofile}, $newline);
3331    }
3332}
3333
3334######################################################
3335# Finalizing patch: Renaming directory and
3336# including additional patch files.
3337######################################################
3338
3339sub finalize_patch
3340{
3341    my ( $newepmdir, $allvariables ) = @_;
3342
3343    my $patchidname = "SOLSPARCPATCHID";
3344    if ( $installer::globals::issolarisx86build ) { $patchidname = "SOLIAPATCHID"; }
3345
3346    if ( ! $allvariables->{$patchidname} ) { installer::exiter::exit_program("ERROR: Variable $patchidname not defined in zip list file!", "finalize_patch"); }
3347    my $patchid = $allvariables->{$patchidname};
3348    installer::systemactions::rename_directory($newepmdir, $patchid);
3349
3350    # Copying all typical patch files into the patch directory
3351    # All patch file names are stored in @installer::globals::solarispatchfiles
3352    # Location of the file is $installer::globals::patchincludepath
3353
3354    my $sourcepath = $installer::globals::patchincludepath;
3355    $sourcepath =~ s/\/\s*$//;
3356
3357    for ( my $i = 0; $i <= $#installer::globals::solarispatchfiles; $i++ )
3358    {
3359        my $sourcefile = $sourcepath . $installer::globals::separator . $installer::globals::solarispatchfiles[$i];
3360        my $destfile = $patchid . $installer::globals::separator . $installer::globals::solarispatchfiles[$i];
3361        installer::systemactions::copy_one_file($sourcefile, $destfile);
3362    }
3363
3364    # And editing the patchinfo file
3365
3366    my $patchinfofilename = $patchid . $installer::globals::separator . "patchinfo";
3367    my $patchinfofile = installer::files::read_file($patchinfofilename);
3368    set_patchinfo($patchinfofile, $patchid, $allvariables);
3369    installer::files::save_file($patchinfofilename, $patchinfofile);
3370}
3371
3372######################################################
3373# Finalizing Linux patch: Renaming directory and
3374# including additional patch files.
3375######################################################
3376
3377sub finalize_linux_patch
3378{
3379    my ( $newepmdir, $allvariables, $includepatharrayref ) = @_;
3380
3381    # Copying the setup into the patch directory
3382    # and including the list of RPMs into it
3383
3384    print "... creating patch setup ...\n";
3385
3386    installer::logger::include_header_into_logfile("Creating Linux patch setup:");
3387
3388    # find and read setup script template
3389
3390    my $scriptfilename = "linuxpatchscript.sh";
3391    my $scriptref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$scriptfilename, $includepatharrayref, 0);
3392    if ($$scriptref eq "") { installer::exiter::exit_program("ERROR: Could not find patch script template $scriptfilename!", "finalize_linux_patch"); }
3393    my $scriptfile = installer::files::read_file($$scriptref);
3394
3395    my $infoline = "Found  script file $scriptfilename: $$scriptref \n";
3396    push( @installer::globals::logfileinfo, $infoline);
3397
3398    # Collecting all RPMs in the patch directory
3399
3400    my $fileextension = "rpm";
3401    my $rpmfiles = installer::systemactions::find_file_with_file_extension($fileextension, $newepmdir);
3402    if ( ! ( $#{$rpmfiles} > -1 )) { installer::exiter::exit_program("ERROR: Could not find rpm in directory $newepmdir!", "finalize_linux_patch"); }
3403    for ( my $i = 0; $i <= $#{$rpmfiles}; $i++ ) { installer::pathanalyzer::make_absolute_filename_to_relative_filename(\${$rpmfiles}[$i]); }
3404
3405#   my $installline = "";
3406#
3407#   for ( my $i = 0; $i <= $#{$rpmfiles}; $i++ )
3408#   {
3409#       $installline = $installline . "  rpm --prefix \$PRODUCTINSTALLLOCATION -U $newepmdir/${$rpmfiles}[$i]\n";
3410#   }
3411#
3412#   $installline =~ s/\s*$//;
3413#
3414#   for ( my $j = 0; $j <= $#{$scriptfile}; $j++ )
3415#   {
3416#       ${$scriptfile}[$j] =~ s/INSTALLLINES/$installline/;
3417#   }
3418
3419    # Searching packagename containing -core01
3420    my $found_package = 0;
3421    my $searchpackagename = "";
3422    for ( my $i = 0; $i <= $#{$rpmfiles}; $i++ )
3423    {
3424        if ( ${$rpmfiles}[$i] =~ /-core01-/ )
3425        {
3426            $searchpackagename = ${$rpmfiles}[$i];
3427            $found_package = 1;
3428            if ( $searchpackagename =~ /^\s*(.*?-core01)-.*/ ) { $searchpackagename = $1; }
3429            last;
3430        }
3431    }
3432
3433    if ( ! $found_package ) { installer::exiter::exit_program("ERROR: No package containing \"-core01\" found in directory \"$newepmdir\"", "finalize_linux_patch"); }
3434
3435    # Replacing the searchpackagename
3436    for ( my $j = 0; $j <= $#{$scriptfile}; $j++ ) { ${$scriptfile}[$j] =~ s/SEARCHPACKAGENAMEPLACEHOLDER/$searchpackagename/; }
3437
3438    # Setting the PRODUCTDIRECTORYNAME to $installer::globals::officedirhostname
3439    for ( my $j = 0; $j <= $#{$scriptfile}; $j++ ) { ${$scriptfile}[$j] =~ s/PRODUCTDIRECTORYNAME/$installer::globals::officedirhostname/; }
3440
3441    # Replacing the productname
3442    my $productname = $allvariables->{'PRODUCTNAME'};
3443    $productname = lc($productname);
3444    $productname =~ s/ /_/g;    # abc office -> abc_office
3445#   $productname =~ s/\.//g;    # openoffice.org -> openofficeorg
3446
3447    $infoline = "Adding productname $productname into Linux patch script\n";
3448    push( @installer::globals::logfileinfo, $infoline);
3449
3450    for ( my $j = 0; $j <= $#{$scriptfile}; $j++ ) { ${$scriptfile}[$j] =~ s/PRODUCTNAMEPLACEHOLDER/$productname/; }
3451
3452    # Saving the file
3453
3454    my $newscriptfilename = "setup"; # $newepmdir . $installer::globals::separator . "setup";
3455    installer::files::save_file($newscriptfilename, $scriptfile);
3456
3457    $infoline = "Saved Linux patch setup $newscriptfilename \n";
3458    push( @installer::globals::logfileinfo, $infoline);
3459
3460    # Setting unix rights 755
3461    my $localcall = "chmod 775 $newscriptfilename \>\/dev\/null 2\>\&1";
3462    system($localcall);
3463}
3464
34651;
3466