solenv/bin/modules/installer/servicesfile.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: servicesfile.pm,v $
  10 #
  11 # $Revision: 1.33 $
  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::servicesfile;
  33
  34 use Cwd;
  35 use installer::converter;
  36 use installer::existence;
  37 use installer::exiter;
  38 use installer::globals;
  39 use installer::logger;
  40 use installer::pathanalyzer;
  41 use installer::remover;
  42 use installer::scriptitems;
  43 use installer::systemactions;
  44
  45 ################################################################
  46 # Adding the newly created file into the files collector
  47 ################################################################
  48
  49 sub add_services_sourcepath_into_filearray
  50 {
  51     my ( $filesarrayref, $servicesfile, $servicesname ) = @_;
  52
  53     my $found = 0;
  54     my $onefile;
  55
  56     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
  57     {
  58         $onefile = ${$filesarrayref}[$i];
  59         my $name = $onefile->{'Name'};
  60
  61         if ( $servicesname eq $name )
  62         {
  63             $found = 1;
  64             $onefile->{'sourcepath'} = $servicesfile;   # setting the sourcepath!
  65             last;
  66         }
  67     }
  68
  69     if ( ! $found ) { installer::exiter::exit_program("ERROR: Did not find $servicesname in files collector!", "add_services_sourcepath_into_filearray"); }
  70
  71 }
  72
  73 ################################################################
  74 # Generating a file url from a path
  75 ################################################################
  76
  77 sub make_file_url
  78 {
  79     my ( $path ) = @_;
  80
  81     my $fileurl = "";
  82
  83     # removing ending slash/backslash
  84
  85     installer::remover::remove_ending_pathseparator(\$path);
  86
  87     if ($installer::globals::iswin)
  88     {
  89         $path =~ s/\\/\//g;
  90         $fileurl = "file\:\/\/\/" . $path;
  91     }
  92     else
  93     {
  94         $fileurl = "file\:\/\/" . $path;
  95     }
  96
  97     return $fileurl;
  98 }
  99
 100 ################################################################
 101 # Determining all sourcepath from the uno components
 102 ################################################################
 103
 104 sub get_all_sourcepathes
 105 {
 106     my ( $filesref ) = @_;
 107
 108     my @pathes = ();
 109
 110     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
 111     {
 112         my $onefile = ${$filesref}[$i];
 113         my $path = $onefile->{'sourcepath'};
 114
 115         installer::pathanalyzer::get_path_from_fullqualifiedname(\$path);
 116
 117         if (! installer::existence::exists_in_array($path, \@pathes))
 118         {
 119             push(@pathes, $path);
 120         }
 121     }
 122
 123     return \@pathes;
 124 }
 125
 126 ################################################################
 127 # Registering all uno component files in the services.rdb
 128 ################################################################
 129
 130 sub register_unocomponents
 131 {
 132     my ($allvariableshashref, $unocomponents, $regcompfileref, $servicesfile, $nativeservicesurlprefix) = @_;
 133
 134     installer::logger::include_header_into_logfile("Registering UNO components:");
 135
 136     my $error_occured = 0;
 137     my $filestring = "";
 138     for ( my $i = 0; $i <= $#{$unocomponents}; ++$i )
 139     {
 140         my $sourcepath = make_file_url(${$unocomponents}[$i]->{'sourcepath'});
 141         my $urlprefix = ${$unocomponents}[$i]->{'NativeServicesURLPrefix'};
 142         if (defined($urlprefix))
 143         {
 144             call_regcomp(
 145                 $regcompfileref, $servicesfile, $sourcepath, $urlprefix);
 146         }
 147         else
 148         {
 149             $filestring .= ";" unless $filestring eq "";
 150             $filestring .= $sourcepath;
 151         }
 152         if (length($filestring) > $installer::globals::unomaxservices ||
 153             ($i == $#{$unocomponents} && $filestring ne ""))
 154         {
 155             call_regcomp(
 156                 $regcompfileref, $servicesfile, $filestring,
 157                 $nativeservicesurlprefix);
 158             $filestring = "";
 159         }
 160     }
 161
 162     return $error_occured;
 163 }
 164
 165 sub call_regcomp
 166 {
 167     my ($regcompfileref, $servicesfile, $filestring, $urlprefix) = @_;
 168     my @regcompoutput = ();
 169
 170     my $systemcall = "$installer::globals::wrapcmd $$regcompfileref -register -r ".fix_cygwin_path($servicesfile)." -c "  . $installer::globals::quote . $filestring . $installer::globals::quote . " -wop=" . $installer::globals::quote . $urlprefix . $installer::globals::quote . " 2\>\&1 |";
 171
 172     open (REG, "$systemcall");
 173     while (<REG>) {push(@regcompoutput, $_); }
 174     close (REG);
 175
 176     my $returnvalue = $?;   # $? contains the return value of the systemcall
 177
 178     my $infoline = "Systemcall: $systemcall\n";
 179     push( @installer::globals::logfileinfo, $infoline);
 180
 181     for ( my $j = 0; $j <= $#regcompoutput; $j++ ) { push( @installer::globals::logfileinfo, "$regcompoutput[$j]"); }
 182
 183     if ($returnvalue)
 184     {
 185         $infoline = "ERROR: $systemcall\n";
 186         push( @installer::globals::logfileinfo, $infoline);
 187         $error_occured = 1;
 188     }
 189     else
 190     {
 191         $infoline = "SUCCESS: $systemcall\n";
 192         push( @installer::globals::logfileinfo, $infoline);
 193     }
 194 }
 195
 196 ################################################################
 197 # Registering all java component files in the services.rdb
 198 ################################################################
 199
 200 sub register_javacomponents
 201 {
 202     my ($allvariableshashref, $javacomponents, $regcompfileref, $servicesfile, $regcomprdb, $javaservicesurlprefix) = @_;
 203
 204     installer::logger::include_header_into_logfile("Registering Java components:");
 205
 206     my $ridljar_ref = "ridl.jar";
 207     my $ure_internal_java_dir_ref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$ridljar_ref, "", 1);
 208     installer::pathanalyzer::get_path_from_fullqualifiedname($ure_internal_java_dir_ref);
 209     if ( $$ure_internal_java_dir_ref eq "" ) { installer::exiter::exit_program("Could not determine URE_INTERNAL_JAVA_DIR when registering Java components!", "register_javacomponents"); }
 210
 211     my $error_occured = 0;
 212
 213     my $do_register = 1;
 214     if (!( $installer::globals::solarjava )) { $do_register = 0; }
 215
 216     if ( $do_register )
 217     {
 218         my $filestring = "";
 219
 220         for ( my $i = 0; $i <= $#{$javacomponents}; )
 221         {
 222             my $sourcepath = ${$javacomponents}[$i++]->{'sourcepath'};
 223
 224             $filestring = $filestring . make_file_url($sourcepath);
 225
 226             if ( $i % $installer::globals::javamaxservices == 0 || $i > $#{$javacomponents} )   # limiting to $installer::globals::maxservices files
 227             {
 228                 my @regcompoutput = ();
 229
 230                 my $systemcall = "$installer::globals::wrapcmd $$regcompfileref -register -br ".fix_cygwin_path($regcomprdb)." -r ".fix_cygwin_path($servicesfile)." -c " . $installer::globals::quote . $filestring . $installer::globals::quote . " -l com.sun.star.loader.Java2 -wop=" . $installer::globals::quote . $javaservicesurlprefix . $installer::globals::quote ." -env:URE_INTERNAL_JAVA_DIR=" . $installer::globals::quote . make_file_url($$ure_internal_java_dir_ref) . $installer::globals::quote . " 2\>\&1 |";
 231
 232                 open (REG, "$systemcall");
 233                 while (<REG>) {push(@regcompoutput, $_); }
 234                 close (REG);
 235
 236                 my $returnvalue = $?;   # $? contains the return value of the systemcall
 237
 238                 my $infoline = "Systemcall: $systemcall\n";
 239                 push( @installer::globals::logfileinfo, $infoline);
 240
 241                 for ( my $k = 0; $k <= $#regcompoutput; $k++ ) { push( @installer::globals::logfileinfo, "$regcompoutput[$k]"); }
 242
 243                 if ($returnvalue)
 244                 {
 245                     $infoline = "ERROR: $systemcall\n";
 246                     $error_occured = 1;
 247                 }
 248                 else
 249                 {
 250                     $infoline = "SUCCESS: $systemcall\n";
 251                 }
 252
 253                 push( @installer::globals::logfileinfo, $infoline);
 254
 255                 $filestring = "";
 256             }
 257             else
 258             {
 259                 $filestring = $filestring . ";";
 260             }
 261         }
 262     }
 263
 264     return $error_occured;
 265 }
 266
 267
 268
 269 ################################################################
 270 # Helper routine to change cygwin (POSIX) path to DOS notation
 271 # if needed
 272 ################################################################
 273 sub fix_cygwin_path
 274 {
 275     my ( $path ) = @_;
 276
 277     if ( $installer::globals::iswin eq 1 && $installer::globals::wrapcmd eq "" )
 278     {
 279     $path = qx{cygpath -m "$path"};
 280     chomp($path);
 281     }
 282
 283     return $path;
 284 }
 285
 286
 287
 288 ################################################################
 289 # Registering all uno component files in the services.rdb
 290 ################################################################
 291 sub get_source_path_cygwin_safe
 292 {
 293     my ( $name, $array, $int ) = @_;
 294
 295     my $ret = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$name, $array, $int);
 296     if ( $installer::globals::iswin eq 1 )
 297     {
 298     if( substr( $$ret, 1,1 ) eq ":" )
 299     {
 300         chomp($$ret = qx{cygpath -u "$$ret"});
 301     }
 302     }
 303     return $ret;
 304 }
 305
 306 sub register_pythoncomponents
 307 {
 308     my ($pythoncomponents, $regcompfileref, $servicesfile,$includepatharrayref) = @_;
 309
 310     installer::logger::include_header_into_logfile("Registering python UNO components:");
 311
 312     my $error_occured = 0;
 313     my $counter = 0;
 314
 315     my $systemcall = "";
 316
 317     my $allsourcepathes = get_all_sourcepathes($pythoncomponents);
 318
 319     for ( my $j = 0; $j <= $#{$allsourcepathes}; $j++ )
 320     {
 321         my $filestring = "";
 322         my $onesourcepath = ${$allsourcepathes}[$j];
 323         my $to = "";
 324         my $from = cwd();
 325         if ( $installer::globals::iswin ) { $from =~ s/\//\\/g; }
 326
 327         my $typesrdbname = "types.rdb";
 328
 329         # FIXME: Remove the unneeded
 330         # get_source_path_cygwin_safe() -> fix_cygwin_path()
 331         # when WRAPCMD is gone
 332         my $typesrdbref = get_source_path_cygwin_safe($typesrdbname, $includepatharrayref, 1);
 333
 334         if ( $$typesrdbref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $typesrdbname !", "register_pythoncomponents"); }
 335
 336         my $pyunoservicesrdbname = "pyuno_services.rdb";
 337         my $pyunoservicesrdbref = get_source_path_cygwin_safe($pyunoservicesrdbname, $includepatharrayref, 1);
 338
 339         if ( $$pyunoservicesrdbref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $pyunoservicesrname !", "register_pythoncomponents"); }
 340
 341         for ( my $i = 0; $i <= $#{$pythoncomponents}; $i++ )
 342         {
 343             my $doinclude = 1;
 344             my $sourcepath = ${$pythoncomponents}[$i]->{'sourcepath'};
 345
 346             $to = $sourcepath;
 347             installer::pathanalyzer::get_path_from_fullqualifiedname(\$to);
 348
 349             if (!($to eq $onesourcepath)) { $doinclude = 0; }
 350
 351             if ( $doinclude )
 352             {
 353                 my $filename = ${$pythoncomponents}[$i]->{'Name'};
 354                 $filestring = $filestring . $filename . "\;";
 355                 $counter++;
 356             }
 357
 358             if ( $counter > 0 )
 359             {
 360                 $filestring =~ s/\;\s*$//;
 361                 $filestring = substr( $filestring, 0, length($filestring)-3);
 362                 chdir($onesourcepath);
 363
 364                 my @regcompoutput = ();
 365
 366                 $systemcall = "$installer::globals::wrapcmd $$regcompfileref -register"
 367                 . " -br " . fix_cygwin_path($$typesrdbref)
 368                 . " -br " . fix_cygwin_path($$pyunoservicesrdbref)
 369                 . " -r " . fix_cygwin_path($servicesfile)
 370                 . " -c vnd.openoffice.pymodule:" . $filestring . " -l com.sun.star.loader.Python 2\>\&1 |";
 371
 372                 open (REG, "$systemcall");
 373                 while (<REG>) {push(@regcompoutput, $_); }
 374                 close (REG);
 375
 376                 my $returnvalue = $?;   # $? contains the return value of the systemcall
 377
 378                 my $infoline = "Systemcall: $systemcall\n";
 379                 push( @installer::globals::logfileinfo, $infoline);
 380
 381                 for ( my $j = 0; $j <= $#regcompoutput; $j++ ) { push( @installer::globals::logfileinfo, "$regcompoutput[$j]"); }
 382
 383                 if ($returnvalue)
 384                 {
 385                     $infoline = "ERROR: $systemcall\n";
 386                     push( @installer::globals::logfileinfo, $infoline);
 387                     $error_occured = 1;
 388                 }
 389                 else
 390                 {
 391                     $infoline = "SUCCESS: $systemcall\n";
 392                     push( @installer::globals::logfileinfo, $infoline);
 393                 }
 394
 395                 chdir($from);
 396
 397                 $counter = 0;
 398                 $filestring = "";
 399             }
 400         }
 401     }
 402
 403     return $error_occured;
 404 }
 405
 406 ################################################################
 407 # Iterating over all files, to find all files with the
 408 # style UNO_COMPONENT. This can be libraries and jar files.
 409 ################################################################
 410
 411 sub register_all_components
 412 {
 413     my ( $allvariableshashref, $servicesgid, $filesarrayref, $regcompfileref, $servicesfile, $regcomprdb, $includepatharrayref, $nativeservicesurlprefix, $javaservicesurlprefix ) = @_;
 414
 415     my $registererrorflag = 0;
 416
 417     my @unocomponents = ();
 418     my @javacomponents = ();
 419     my @pythoncomponents = ();
 420
 421     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 422     {
 423         my $onefile = ${$filesarrayref}[$i];
 424         my $styles = "";
 425         my $regmergefile = "";
 426         my $registryid = "";
 427
 428         if ( $onefile->{'RegistryID'} ) { $registryid = $onefile->{'RegistryID'}; }
 429
 430         if ( $servicesgid ne $registryid ) { next; } # only registration for the current $servicesgid
 431
 432         if ( $onefile->{'Regmergefile'} ) { $regmergefile = $onefile->{'Regmergefile'}; }
 433
 434         if ( $onefile->{'Styles'} ) { $styles = $onefile->{'Styles'}; }
 435
 436         if (( $styles =~ /\bUNO_COMPONENT\b/ ) && ( $regmergefile eq "" ))      # regmergefiles will not be registered with regcomp
 437         {
 438             my $filename = $onefile->{'Name'};
 439
 440             if ( $filename =~ /\.jar\s*$/ )     # java component
 441             {
 442                 push(@javacomponents, $onefile);
 443             }
 444             elsif( $filename =~ /\.py\s*$/ )    # python_component
 445             {
 446                 push(@pythoncomponents, $onefile);
 447             }
 448             else                            # uno component
 449             {
 450                 push(@unocomponents, $onefile);
 451             }
 452         }
 453     }
 454
 455     $uno_error_occured = 0;
 456     $java_error_occured = 0;
 457     $python_error_occured = 0;
 458
 459     if ( $#unocomponents > -1 ) { $uno_error_occured = register_unocomponents($allvariableshashref, \@unocomponents, $regcompfileref, $servicesfile, $nativeservicesurlprefix); }
 460     if ( $#javacomponents > -1 ) { $java_error_occured = register_javacomponents($allvariableshashref, \@javacomponents, $regcompfileref, $servicesfile, $regcomprdb, $javaservicesurlprefix); }
 461     if ( $#pythoncomponents > -1 ) { $python_error_occured = register_pythoncomponents(\@pythoncomponents, $regcompfileref, $servicesfile, $includepatharrayref); }
 462
 463     if ( $uno_error_occured || $java_error_occured || $python_error_occured ) { $registererrorflag = 1; }
 464
 465     return $registererrorflag;
 466 }
 467
 468 ###################################################
 469 # Include the solver lib directory into
 470 # the LD_LIBRARY_PATH for Unix platforms
 471 ###################################################
 472
 473 sub include_libdir_into_ld_library_path
 474 {
 475     my ( $var, $binfile ) = @_;
 476
 477     my $ld_library_path = $binfile;
 478     installer::pathanalyzer::get_path_from_fullqualifiedname(\$ld_library_path);
 479     $ld_library_path =~ s/\/\s*$//;             # removing ending slashes
 480     $ld_library_path =~ s/\/bin\./\/lib\./;
 481     $ld_library_path =~ s/\/bin\s*$/\/lib/;     # when packing from flat
 482
 483     my $oldldlibrarypathstring = $ENV{$var};
 484     my $new_ld_library_path = $ld_library_path;
 485     if ( defined $oldldlibrarypathstring ) {
 486         $new_ld_library_path = $new_ld_library_path . $installer::globals::pathseparator . $oldldlibrarypathstring;
 487     }
 488     if ( $ENV{'SYSTEM_MOZILLA'} && $ENV{'SYSTEM_MOZILLA'} eq "YES" &&
 489       (!$ENV{'WITH_OPENLDAP'} || $ENV{'WITH_OPENLDAP'} ne "YES")) {
 490         $new_ld_library_path = $new_ld_library_path . $installer::globals::pathseparator . $ENV{'MOZ_LIB'};
 491     }
 492     $ENV{$var} = $new_ld_library_path;
 493
 494     my $infoline = "Setting $var to $ENV{$var}\n";
 495     push( @installer::globals::logfileinfo, $infoline);
 496 }
 497
 498 ##################################################################
 499 # Setting the needed jar files into the CLASSPATH
 500 # They are needed from regcomp.
 501 # The jar files are defined in @installer::globals::regcompjars
 502 ##################################################################
 503
 504 sub prepare_classpath_for_java_registration
 505 {
 506     my ( $includepatharrayref ) = @_;
 507     my $local_pathseparator = $installer::globals::pathseparator;
 508
 509     if( $^O =~ /cygwin/i )
 510     {   # $CLASSPATH must use DOS separator even when using cygwin's perl
 511         $local_pathseparator = ';';
 512     }
 513
 514     for ( my $i = 0; $i <= $#installer::globals::regcompjars; $i++ )
 515     {
 516         my $filename = $installer::globals::regcompjars[$i];
 517
 518         my $jarfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 1);
 519
 520         if ( $$jarfileref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $filename for registering java components!", "prepare_classpath_for_java_registration"); }
 521
 522         my $oldclasspathstring = "";
 523         if ( $ENV{'CLASSPATH'} ) { $oldclasspathstring = $ENV{'CLASSPATH'}; }
 524         else { $oldclasspathstring = "\."; }
 525         my $classpathstring = $$jarfileref . $local_pathseparator . $oldclasspathstring;
 526         if ( $^O =~ /cygwin/i ) {
 527             $classpathstring =~ s/\//\\/g;              # guw.pl likes '\' in $PATH.
 528         }
 529         $ENV{'CLASSPATH'} = $classpathstring;
 530
 531         my $infoline = "Setting CLASSPATH to $ENV{'CLASSPATH'}\n";
 532         push( @installer::globals::logfileinfo, $infoline);
 533     }
 534 }
 535
 536 ##################################################################
 537 # Setting the jdk lib into the LD_LIBRARY_PATH (Unix)
 538 # This is used by regcomp to register Java components.
 539 # The jdk lib is defined in $installer::globals::jdklib
 540 ##################################################################
 541
 542 sub add_jdklib_into_ld_library_path
 543 {
 544     my ($var) = @_;
 545     if (defined $installer::globals::jdklib) {
 546         my $oldldlibrarypathstring = $ENV{$var};
 547         my $new_ld_library_path = $installer::globals::jdklib;
 548         if (defined $oldldlibrarypathstring) {
 549             $new_ld_library_path .=
 550                 $installer::globals::pathseparator . $oldldlibrarypathstring;
 551         }
 552         $ENV{$var} = $new_ld_library_path;
 553         my $infoline = "Setting $var to $ENV{$var}\n";
 554         push( @installer::globals::logfileinfo, $infoline);
 555     }
 556 }
 557
 558 ##################################################################
 559 # Adding the libraries included in zip files into path variable
 560 # (for example mozruntime.zip). This is needed to register all
 561 # libraries successfully.
 562 ##################################################################
 563
 564 sub add_path_to_pathvariable_directory
 565 {
 566     my ( $filesarrayref, $searchstring ) = @_;
 567
 568     # determining the path
 569
 570     my $path = "";
 571
 572     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 573     {
 574         my $onefile = ${$filesarrayref}[$i];
 575         my $sourcepath = $onefile->{'sourcepath'};
 576
 577         installer::pathanalyzer::get_path_from_fullqualifiedname(\$sourcepath);
 578         installer::remover::remove_ending_pathseparator(\$sourcepath);
 579
 580         if ( $sourcepath =~ /\Q$searchstring\E\s*$/ )
 581         {
 582             $path = $sourcepath;
 583             last;
 584         }
 585     }
 586
 587     # adding the path to the PATH variable
 588
 589     if ( $path ne "" )
 590     {
 591         my $oldpath = "";
 592         if ( $ENV{'PATH'} ) { $oldpath = $ENV{'PATH'}; }
 593         else { $oldpath = "\."; }
 594         if ( $^O =~ /cygwin/i ) {
 595             $path = qx(cygpath -u "$path");
 596             chomp $path;
 597         }
 598         my $newpath = $path . $installer::globals::pathseparator . $oldpath;
 599         $ENV{'PATH'} = $newpath;
 600
 601         my $infoline = "Setting PATH to $ENV{'PATH'}\n";
 602         push( @installer::globals::logfileinfo, $infoline);
 603     }
 604 }
 605
 606 ##################################################################
 607 # Adding the path of a specified library to the path variable
 608 # (for example msvcr70.dll). This is needed to register all
 609 # libraries successfully.
 610 ##################################################################
 611
 612 sub add_path_to_pathvariable
 613 {
 614     my ( $filesarrayref, $searchstring ) = @_;
 615
 616     # determining the path
 617
 618     my $path = "";
 619
 620     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 621     {
 622         my $onefile = ${$filesarrayref}[$i];
 623         my $sourcepath = $onefile->{'sourcepath'};
 624
 625         if ( $sourcepath =~ /\Q$searchstring\E\s*$/ )
 626         {
 627             installer::pathanalyzer::get_path_from_fullqualifiedname(\$sourcepath);
 628             installer::remover::remove_ending_pathseparator(\$sourcepath);
 629             $path = $sourcepath;
 630             last;
 631         }
 632     }
 633
 634     # adding the path to the PATH variable
 635
 636     if ( $path ne "" )
 637     {
 638         my $oldpath = "";
 639         if ( $ENV{'PATH'} ) { $oldpath = $ENV{'PATH'}; }
 640         else { $oldpath = "\."; }
 641         if ( $^O =~ /cygwin/i ) {
 642             $path = qx(cygpath -u "$path");
 643             chomp $path;
 644         }
 645         my $newpath = $path . $installer::globals::pathseparator . $oldpath;
 646         $ENV{'PATH'} = $newpath;
 647
 648         my $infoline = "Setting PATH to $ENV{'PATH'}\n";
 649         push( @installer::globals::logfileinfo, $infoline);
 650     }
 651 }
 652
 653 ##################################################################
 654 # Setting the jre path into the PATH (Windows only)
 655 # This is used by regcomp.exe to register Java components.
 656 # The jre path is saved in $installer::globals::jrepath
 657 ##################################################################
 658
 659 sub add_jrepath_into_path
 660 {
 661     my $oldpath = "";
 662     if ( $ENV{'PATH'} ) { $oldpath = $ENV{'PATH'}; }
 663     else { $oldpath = "\."; }
 664
 665     if ( $installer::globals::jrepath ne "" )
 666     {
 667         my $newpath = $installer::globals::jrepath . $installer::globals::pathseparator . $oldpath;
 668         $ENV{'PATH'} = $newpath;
 669
 670         my $infoline = "Setting PATH to $ENV{'PATH'}\n";
 671         push( @installer::globals::logfileinfo, $infoline);
 672     }
 673 }
 674
 675 #######################################################################################
 676 # Preparing a registry "regcomp.rdb" which regcomp can work on (types+java services).
 677 # Copying the "udkapi.rdb", renaming it to "regcomp.rdb" and registering the
 678 # libraries @installer::globals::regcompregisterlibs, which are javavm.uno.so
 679 # and javaloader.uno.so or javavm.uno.dll and javaloader.uno.dll
 680 #######################################################################################
 681
 682 sub prepare_regcomp_rdb
 683 {
 684     my ( $regcompfile, $servicesdir, $includepatharrayref) = @_;
 685
 686     # udkapi.rdb has to be found in the sourcepath
 687
 688     my $filename = "udkapi.rdb";
 689     my $udkapirdbref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$filename, $includepatharrayref, 1);
 690     if ( $$udkapirdbref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $filename for creating regcomp.rdb!", "prepare_regcomp_rdb"); }
 691
 692     my $regcompfilename = "regcomp.rdb";
 693     my $regcomprdb = $servicesdir . $installer::globals::separator . $regcompfilename;
 694
 695     # If there is an older version of this file, it has to be removed
 696     if ( -f $regcomprdb ) { unlink($regcomprdb); }
 697
 698     installer::systemactions::copy_one_file($$udkapirdbref, $regcomprdb);
 699
 700     # now the libraries in @installer::globals::regcompregisterlibs can be registered in the "regcomp.rdb"
 701
 702     for ( my $i = 0; $i <= $#installer::globals::regcompregisterlibs; $i++ )
 703     {
 704         my $libfilename = $installer::globals::regcompregisterlibs[$i] . $installer::globals::libextension;
 705         my $libfileref = installer::scriptitems::get_sourcepath_from_filename_and_includepath(\$libfilename, $includepatharrayref, 1);
 706         if ( $$libfileref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $libfilename for creating regcomp.rdb!", "prepare_regcomp_rdb"); }
 707
 708         my $from = cwd();
 709         if ( $installer::globals::iswin ) { $from =~ s/\//\\/g; }
 710
 711         my $to = $$libfileref;
 712         installer::pathanalyzer::get_path_from_fullqualifiedname(\$to);
 713
 714         chdir($to);
 715
 716         my $systemcall = "$installer::globals::wrapcmd $regcompfile -register -s -r " . fix_cygwin_path($regcomprdb) . " -c $libfilename";
 717
 718         my $returnvalue = system($systemcall);
 719
 720         chdir($from);
 721
 722         my $infoline;
 723         if ($returnvalue) {     $infoline = "ERROR: $systemcall\n"; }
 724         else { $infoline = "SUCCESS: $systemcall\n"; }
 725
 726         push( @installer::globals::logfileinfo, $infoline);
 727     }
 728
 729     return $regcomprdb;
 730 }
 731
 732 ################################################################
 733 # Collecting all gids of the databases, that are part of
 734 # the file definition
 735 ################################################################
 736
 737 sub collect_all_services_gids
 738 {
 739     my ($filesarrayref) = @_;
 740
 741     my @databasegids = ();
 742     my $error_occured = 0;
 743     my @error_files = ();
 744
 745     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 746     {
 747         my $onefile = ${$filesarrayref}[$i];
 748
 749         if ( $onefile->{'RegistryID'} )
 750         {
 751             my $databasegid = $onefile->{'RegistryID'};
 752             if (! installer::existence::exists_in_array($databasegid, \@databasegids)) { push(@databasegids, $databasegid); }
 753         }
 754         else
 755         {
 756             push(@error_files, $onefile->{'gid'});
 757             $error_occured = 1;
 758         }
 759     }
 760
 761     if ( $error_occured )
 762     {
 763         my $infoline = "ERROR: Style UNO_COMPONENT is set, but no RegistryID is assigned!\n";
 764         push( @installer::globals::logfileinfo, $infoline);
 765         print $infoline;
 766
 767         for ( my $j = 0; $j <= $#error_files; $j++ )
 768         {
 769             $infoline = "$error_files[$j]\n";
 770             push( @installer::globals::logfileinfo, $infoline);
 771             print $infoline;
 772         }
 773
 774         installer::exiter::exit_program("ERROR: File defintion error.", "collect_all_services_gids");
 775     }
 776
 777     return \@databasegids;
 778 }
 779
 780 ######################################################################
 781 # All gids in $databasegids are as RegistryID assigned to files.
 782 # For all this Registry Files a definition has to exist.
 783 ######################################################################
 784
 785 sub check_defintion_of_databasegids
 786 {
 787     my ($databasegids, $registryfiles) = @_;
 788
 789     my @registryfiles = ();
 790
 791     # First check: For all assigned Registry files, a definition of
 792     # a file with flag STARREGISTRY has to exist.
 793
 794     for ( my $i = 0; $i <= $#{$databasegids}; $i++ )
 795     {
 796         my $onegid = ${$databasegids}[$i];
 797         my $gid_defined = 0;
 798
 799         for ( my $j = 0; $j <= $#{$registryfiles}; $j++ )
 800         {
 801             my $registrygid = ${$registryfiles}[$j]->{'gid'};
 802
 803             if ( $onegid eq $registrygid )
 804             {
 805                 $gid_defined = 1;
 806                 last;
 807             }
 808         }
 809
 810         if ( ! $gid_defined )
 811         {
 812             installer::exiter::exit_program("ERROR: Gid $onegid is assigned to file(s), but not defined!", "check_defintion_of_databasegids");
 813         }
 814     }
 815
 816     # Second check: If there is a file defined as StarRegistry, is a file with flag UNO_COMPONENT assigned?
 817
 818     for ( my $j = 0; $j <= $#{$registryfiles}; $j++ )
 819     {
 820         my $onefile = ${$registryfiles}[$j];
 821         my $registrygid = $onefile->{'gid'};
 822
 823         my $gid_assigned = 0;
 824
 825         for ( my $i = 0; $i <= $#{$databasegids}; $i++ )
 826         {
 827             my $onegid = ${$databasegids}[$i];
 828
 829             if ( $onegid eq $registrygid )
 830             {
 831                 $gid_assigned = 1;
 832                 last;
 833             }
 834         }
 835
 836         if ( ! $gid_assigned )
 837         {
 838             my $infoline = "Warning: $registrygid is defined with flag STARREGISTRY, but no file is assigned to the registry.\n";
 839             push( @installer::globals::logfileinfo, $infoline);
 840         }
 841         else
 842         {
 843             push(@registryfiles, $onefile);
 844         }
 845     }
 846
 847     return \@registryfiles;
 848 }
 849
 850 ################################################################
 851 # Some files have flag UNO_COMPONENT, but are not registered
 852 # with regcomp. This files use the regmerge mechanism, that
 853 # is not used in this perl-file. Therefore this files
 854 # have to be filtered out here.
 855 ################################################################
 856
 857 sub filter_regmergefiles
 858 {
 859     my ($unocomponentfiles) = @_;
 860
 861     my @regcompfiles = ();
 862
 863     for ( my $i = 0; $i <= $#{$unocomponentfiles}; $i++ )
 864     {
 865         my $onefile = ${$unocomponentfiles}[$i];
 866         my $regmergefile = "";
 867
 868         if ( $onefile->{'Regmergefile'} ) { $regmergefile = $onefile->{'Regmergefile'}; }
 869         if ( $regmergefile ne "" ) { next; }
 870
 871         push(@regcompfiles, $onefile);
 872     }
 873
 874     return \@regcompfiles;
 875 }
 876
 877 ################################################################
 878 # Setting defaults for Creating services.rdb file by registering all uno components
 879 ################################################################
 880
 881 sub set_url_prefixes
 882 {
 883     my ( $registryfile ) = @_;
 884
 885     my $nativeservicesurlprefix = "";
 886     my $javaservicesurlprefix = "";
 887
 888     if ( $registryfile->{'NativeServicesURLPrefix'} ) { $nativeservicesurlprefix = $registryfile->{'NativeServicesURLPrefix'}; }
 889     else { $nativeservicesurlprefix = "vnd.sun.star.expand:\$ORIGIN/"; }
 890
 891     if ( $registryfile->{'JavaServicesURLPrefix'} ) { $javaservicesurlprefix = $registryfile->{'JavaServicesURLPrefix'}; }
 892     else { $javaservicesurlprefix = "vnd.sun.star.expand:\$UNO_JAVA_COMPONENT_PATH/"; }
 893
 894     return ($nativeservicesurlprefix, $javaservicesurlprefix);
 895 }
 896
 897 ################################################################
 898 # Creating services.rdb file by registering all uno components
 899 ################################################################
 900
 901 sub create_services_rdb
 902 {
 903     my ($allvariableshashref, $filesarrayref, $includepatharrayref, $languagestringref) = @_;
 904
 905     # collecting all services files
 906     my $unocomponentfiles = installer::worker::collect_all_items_with_special_flag($filesarrayref, "UNO_COMPONENT");
 907     $unocomponentfiles = filter_regmergefiles($unocomponentfiles);
 908
 909     if ( $#{$unocomponentfiles} > -1 )  # not empty -> at least one file with flag UNO_COMPONENT
 910     {
 911         my $databasegids = collect_all_services_gids($unocomponentfiles);
 912
 913         my $registryfiles = installer::worker::collect_all_items_with_special_flag($filesarrayref, "STARREGISTRY");
 914
 915         $registryfiles = check_defintion_of_databasegids($databasegids, $registryfiles);
 916
 917         # Now the creation of all files with flag STARREGISTRY can begin
 918
 919         for ( my $i = 0; $i <= $#{$registryfiles}; $i++ )
 920         {
 921             my $registryfile = ${$registryfiles}[$i];
 922
 923             # my $servicesname = "services.rdb";
 924             my $servicesname = $registryfile->{'Name'};  # not unique!
 925             my $servicesgid = $registryfile->{'gid'};  # unique
 926             my $uniquedirname = $servicesgid . "_servicesrdb";
 927             # my $uniquedirname = $servicesgid;
 928
 929             my ($nativeservicesurlprefix, $javaservicesurlprefix) = set_url_prefixes($registryfile);
 930
 931             installer::logger::include_header_into_logfile("Creating $servicesname ($servicesgid):");
 932
 933             # my $servicesdir = installer::systemactions::create_directories($servicesname, $languagestringref);
 934             my $servicesdir = installer::systemactions::create_directories($uniquedirname, $languagestringref);
 935
 936 #                       if ( $^O =~ /cygwin/i )
 937 #                       {      # $servicesdir is used as a parameter for regcomp and has to be DOS style
 938 #                           $servicesdir = qx{cygpath -d "$servicesdir"};
 939 #                           chomp($servicesdir);
 940 #                           $servicesdir =~ s/\\/\//g;
 941 #                       }
 942
 943             push(@installer::globals::removedirs, $servicesdir);
 944
 945             my $servicesfile = $servicesdir . $installer::globals::separator . $servicesname;
 946
 947             # If there is an older version of this file, it has to be removed
 948             if ( -f $servicesfile ) { unlink($servicesfile); }
 949
 950             # if ((-f $servicesfile) && (!($installer::globals::services_rdb_created))) { $installer::globals::services_rdb_created = 1; }
 951             # if ((!($installer::globals::services_rdb_created)) && $installer::globals::servicesrdb_can_be_created )   # This has to be done once
 952             if ( $installer::globals::servicesrdb_can_be_created )      # This has to be done always
 953             {
 954                 # Creating the services.rdb in directory "inprogress"
 955                 my $origservicesdir = $servicesdir;
 956                 $servicesdir = installer::systemactions::make_numbered_dir("inprogress", $servicesdir);
 957                 $servicesfile = $servicesdir . $installer::globals::separator . $servicesname;
 958
 959                 # determining the location of the file regcomp
 960                 # Because the program regcomp.exe (regcomp) is used now, it has to be taken the version
 961                 # from the platform, this script is running. It is not important, for which platform the
 962                 # product is built.
 963
 964                 my $searchname;
 965
 966                 if ($installer::globals::isunix) { $searchname = "regcomp"; }
 967                 else { $searchname = "regcomp.exe"; }
 968
 969                 $regcompfileref = get_source_path_cygwin_safe($searchname, $includepatharrayref, 1);
 970                 if ( $$regcompfileref eq "" ) { installer::exiter::exit_program("ERROR: Could not find file $searchname for registering uno components!", "create_services_rdb"); }
 971
 972                 # For Windows the libraries included into the mozruntime.zip have to be added to the path
 973                 if ($installer::globals::iswin) { add_path_to_pathvariable_directory($filesarrayref, "mozruntime_zip"); }
 974                 if ($installer::globals::iswin) { add_path_to_pathvariable($filesarrayref, "msvcr70.dll"); }
 975
 976                 # setting the LD_LIBRARY_PATH, needed by regcomp
 977                 # Linux: Take care of the lock daemon. He has to be started!
 978                 # For windows it is necessary that "msvcp7x.dll" and "msvcr7x.dll" are included into the path !
 979
 980                 my $var_library_path;
 981                 my $old_library_path;
 982                 if ( $installer::globals::isunix ) {
 983                     $var_library_path = $installer::globals::ismacosx ?
 984                         'DYLD_LIBRARY_PATH' : 'LD_LIBRARY_PATH';
 985                     $old_library_path = $ENV{$var_library_path};
 986                     include_libdir_into_ld_library_path(
 987                         $var_library_path, $$regcompfileref);
 988                 }
 989
 990                 my $regcomprdb = "";
 991
 992                 if ( $installer::globals::solarjava )    # this is needed to register Java components
 993                 {
 994                     prepare_classpath_for_java_registration($includepatharrayref);
 995
 996                     if ( $installer::globals::isunix )
 997                     { add_jdklib_into_ld_library_path($var_library_path); }
 998                     else { add_jrepath_into_path(); }
 999
1000                     # Preparing a registry which regcomp can work on (types+java services).
1001                     # Copying the "udkapi.rdb", renaming it to "regcomp.rdb" and registering the
1002                     # libraries $(REGISTERLIBS_JAVA), which are javavm.uno.so and javaloader.uno.so
1003                     # or javavm.uno.dll and javaloader.uno.dll
1004
1005                     $regcomprdb = prepare_regcomp_rdb($$regcompfileref, $servicesdir, $includepatharrayref);
1006                 }
1007
1008                 # and now iteration over all files
1009
1010                 # my $error_during_registration = register_all_components($filesarrayref, $regcompfileref, $servicesfile, $regcomprdb, $includepatharrayref);
1011                 my $error_during_registration = register_all_components($allvariableshashref, $servicesgid, $unocomponentfiles, $regcompfileref, $servicesfile, $regcomprdb, $includepatharrayref, $nativeservicesurlprefix, $javaservicesurlprefix);
1012
1013                 if (defined $var_library_path) {
1014                     if (defined $old_library_path) {
1015                         $ENV{$var_library_path} = $old_library_path;
1016                     } else {
1017                         delete $ENV{$var_library_path};
1018                     }
1019                 }
1020
1021                 # Dependent from the success, the registration directory can be renamed.
1022
1023                 if ( $error_during_registration )
1024                 {
1025                     $servicesdir = installer::systemactions::rename_string_in_directory($servicesdir, "inprogress", "witherror");
1026                     push(@installer::globals::removedirs, $servicesdir);
1027                     # and exiting the packaging process
1028                     installer::exiter::exit_program("ERROR: Could not register all components for file $servicesname ($servicesgid)!", "create_services_rdb");
1029                 }
1030                 else
1031                 {
1032                     $servicesdir = installer::systemactions::rename_directory($servicesdir, $origservicesdir);
1033                 }
1034
1035                 $servicesfile = $servicesdir . $installer::globals::separator . $servicesname;
1036             }
1037             else
1038             {
1039                 my $infoline;
1040
1041                 if (!($installer::globals::servicesrdb_can_be_created))
1042                 {
1043                     $infoline = "Warning: $servicesname was not created. Build platform and compiler do not match. Build platform: $installer::globals::plat, compiler : $installer::globals::compiler\n";
1044                     push( @installer::globals::logfileinfo, $infoline);
1045                 }
1046
1047                 if ( $installer::globals::services_rdb_created )
1048                 {
1049                     $infoline = "Info: $servicesname was not created. $servicesfile already exists.\n";
1050                     push( @installer::globals::logfileinfo, $infoline);
1051                 }
1052
1053                 if ((!($installer::globals::servicesrdb_can_be_created)) && (!($installer::globals::services_rdb_created)))
1054                 {
1055                     $infoline = "ERROR: $servicesname was not created and does not exist!\n";
1056                     push( @installer::globals::logfileinfo, $infoline);
1057                 }
1058             }
1059
1060             # Adding the new services file source path to the filearray
1061             $registryfile->{'sourcepath'} = $servicesfile;      # setting the sourcepath!
1062             # add_services_sourcepath_into_filearray( $filesarrayref, $servicesfile, $servicesname );
1063         }
1064     }
1065
1066     # Setting the global variable $installer::globals::services_rdb_created
1067
1068     $installer::globals::services_rdb_created = 1;
1069 }
1070
1071 1;