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