solenv/bin/modules/installer/systemactions.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: systemactions.pm,v $
  10 #
  11 # $Revision: 1.38 $
  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::systemactions;
  33
  34 use Cwd;
  35 use File::Copy;
  36 use installer::converter;
  37 use installer::exiter;
  38 use installer::globals;
  39 use installer::pathanalyzer;
  40 use installer::remover;
  41
  42 ######################################################
  43 # Creating a new direcotory
  44 ######################################################
  45
  46 sub create_directory
  47 {
  48     my ($directory) = @_;
  49
  50     my $returnvalue = 1;
  51     my $infoline = "";
  52
  53     if (!(-d $directory))
  54     {
  55         $returnvalue = mkdir($directory, 0775);
  56
  57         if ($returnvalue)
  58         {
  59             $infoline = "\nCreated directory: $directory\n";
  60             push(@installer::globals::logfileinfo, $infoline);
  61
  62             my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
  63         }
  64         else
  65         {
  66             # New solution in parallel packing: It is possible, that the directory now exists, although it
  67             # was not created in this process. There is only an important error, if the directory does not
  68             # exist now.
  69
  70             $infoline = "\nDid not succeed in creating directory: \"$directory\". Further attempts will follow.\n";
  71             push(@installer::globals::logfileinfo, $infoline);
  72
  73             if (!(-d $directory))
  74             {
  75                 # Problem with parallel packaging? -> Try a little harder, before exiting.
  76                 # Did someone else remove the parent directory in the meantime?
  77                 my $parentdir = $directory;
  78                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir);
  79                 if (!(-d $parentdir))
  80                 {
  81                     $returnvalue = mkdir($parentdir, 0775);
  82
  83                     if ($returnvalue)
  84                     {
  85                         $infoline = "\nAttention: Successfully created parent directory (should already be created before): $parentdir\n";
  86                         push(@installer::globals::logfileinfo, $infoline);
  87
  88                         my $localcall = "chmod 775 $parentdir \>\/dev\/null 2\>\&1";
  89                         system($localcall);
  90                     }
  91                     else
  92                     {
  93                         $infoline = "\Error: \"$directory\" could not be created. Even the parent directory \"$parentdir\" does not exist and could not be created.\n";
  94                         push(@installer::globals::logfileinfo, $infoline);
  95                         if ( -d $parentdir )
  96                         {
  97                             $infoline = "\nAttention: Finally the parent directory \"$parentdir\" exists, but I could not create it.\n";
  98                             push(@installer::globals::logfileinfo, $infoline);
  99                         }
 100                         else
 101                         {
 102                             # Now it is time to exit, even the parent could not be created.
 103                             installer::exiter::exit_program("ERROR: Could not create parent directory \"$parentdir\"", "create_directory");
 104                         }
 105                     }
 106                 }
 107
 108                 # At this point we have to assume, that the parent directory exist.
 109                 # Trying once more to create the desired directory
 110
 111                 $returnvalue = mkdir($directory, 0775);
 112
 113                 if ($returnvalue)
 114                 {
 115                     $infoline = "\nAttention: Created directory \"$directory\" in the second try.\n";
 116                     push(@installer::globals::logfileinfo, $infoline);
 117
 118                     my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
 119                     system($localcall);
 120                 }
 121                 else
 122                 {
 123                     if ( -d $directory )
 124                     {
 125                         $infoline = "\nAttention: Finally the directory \"$directory\" exists, but I could not create it.\n";
 126                         push(@installer::globals::logfileinfo, $infoline);
 127                     }
 128                     else
 129                     {
 130                         # It is time to exit, even the second try failed.
 131                         installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_directory");
 132                     }
 133                 }
 134             }
 135             else
 136             {
 137                 $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n";
 138                 push(@installer::globals::logfileinfo, $infoline);
 139             }
 140         }
 141     }
 142     else
 143     {
 144         $infoline = "\nAlready existing directory, did not create: $directory\n";
 145         push(@installer::globals::logfileinfo, $infoline);
 146     }
 147 }
 148
 149 ######################################################
 150 # Creating a new direcotory with defined privileges
 151 ######################################################
 152
 153 sub create_directory_with_privileges
 154 {
 155     my ($directory, $privileges) = @_;
 156
 157     my $returnvalue = 1;
 158     my $infoline = "";
 159
 160     if (!(-d $directory))
 161     {
 162         my $localprivileges = oct("0".$privileges); # changes "777" to 0777
 163         $returnvalue = mkdir($directory, $localprivileges);
 164
 165         if ($returnvalue)
 166         {
 167             $infoline = "\nCreated directory: $directory\n";
 168             push(@installer::globals::logfileinfo, $infoline);
 169
 170             my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
 171             system($localcall);
 172         }
 173         else
 174         {
 175             # New solution in parallel packing: It is possible, that the directory now exists, although it
 176             # was not created in this process. There is only an important error, if the directory does not
 177             # exist now.
 178
 179             $infoline = "\nDid not succeed in creating directory: \"$directory\". Further attempts will follow.\n";
 180             push(@installer::globals::logfileinfo, $infoline);
 181
 182             if (!(-d $directory))
 183             {
 184                 # Problem with parallel packaging? -> Try a little harder, before exiting.
 185                 # Did someone else remove the parent directory in the meantime?
 186                 my $parentdir = $directory;
 187                 installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir);
 188                 if (!(-d $parentdir))
 189                 {
 190                     $returnvalue = mkdir($directory, $localprivileges);
 191
 192                     if ($returnvalue)
 193                     {
 194                         $infoline = "\nAttention: Successfully created parent directory (should already be created before): $parentdir\n";
 195                         push(@installer::globals::logfileinfo, $infoline);
 196
 197                         my $localcall = "chmod $privileges $parentdir \>\/dev\/null 2\>\&1";
 198                         system($localcall);
 199                     }
 200                     else
 201                     {
 202                         $infoline = "\Error: \"$directory\" could not be created. Even the parent directory \"$parentdir\" does not exist and could not be created.\n";
 203                         push(@installer::globals::logfileinfo, $infoline);
 204                         if ( -d $parentdir )
 205                         {
 206                             $infoline = "\nAttention: Finally the parent directory \"$parentdir\" exists, but I could not create it.\n";
 207                             push(@installer::globals::logfileinfo, $infoline);
 208                         }
 209                         else
 210                         {
 211                             # Now it is time to exit, even the parent could not be created.
 212                             installer::exiter::exit_program("ERROR: Could not create parent directory \"$parentdir\"", "create_directory_with_privileges");
 213                         }
 214                     }
 215                 }
 216
 217                 # At this point we have to assume, that the parent directory exist.
 218                 # Trying once more to create the desired directory
 219
 220                 $returnvalue = mkdir($directory, $localprivileges);
 221
 222                 if ($returnvalue)
 223                 {
 224                     $infoline = "\nAttention: Created directory \"$directory\" in the second try.\n";
 225                     push(@installer::globals::logfileinfo, $infoline);
 226
 227                     my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
 228                     system($localcall);
 229                 }
 230                 else
 231                 {
 232                     if ( -d $directory )
 233                     {
 234                         $infoline = "\nAttention: Finally the directory \"$directory\" exists, but I could not create it.\n";
 235                         push(@installer::globals::logfileinfo, $infoline);
 236                     }
 237                     else
 238                     {
 239                         # It is time to exit, even the second try failed.
 240                         installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_directory_with_privileges");
 241                     }
 242                 }
 243             }
 244             else
 245             {
 246                 $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n";
 247                 push(@installer::globals::logfileinfo, $infoline);
 248             }
 249         }
 250     }
 251     else
 252     {
 253         $infoline = "\nAlready existing directory, did not create: $directory\n";
 254         push(@installer::globals::logfileinfo, $infoline);
 255
 256         my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
 257         system($localcall);
 258     }
 259 }
 260
 261 ######################################################
 262 # Removing a new direcotory
 263 ######################################################
 264
 265 sub remove_empty_directory
 266 {
 267     my ($directory) = @_;
 268
 269     my $returnvalue = 1;
 270
 271     if (-d $directory)
 272     {
 273         my $systemcall = "rmdir $directory";
 274
 275         $returnvalue = system($systemcall);
 276
 277         my $infoline = "Systemcall: $systemcall\n";
 278         push( @installer::globals::logfileinfo, $infoline);
 279
 280         if ($returnvalue)
 281         {
 282             $infoline = "ERROR: Could not remove \"$directory\"!\n";
 283             push( @installer::globals::logfileinfo, $infoline);
 284         }
 285         else
 286         {
 287             $infoline = "Success: Removed \"$directory\"!\n";
 288             push( @installer::globals::logfileinfo, $infoline);
 289         }
 290     }
 291 }
 292
 293 #######################################################################
 294 # Creating the directories, in which files are generated or unzipped
 295 #######################################################################
 296
 297 sub create_directories
 298 {
 299     my ($newdirectory, $languagesref) =@_;
 300
 301     $installer::globals::unpackpath =~ s/\Q$installer::globals::separator\E\s*$//;      # removing ending slashes and backslashes
 302
 303     my $path = "";
 304
 305     if (( $newdirectory eq "uno" ) || ( $newdirectory eq "zip" ) || ( $newdirectory eq "cab" ) || ( $newdirectory =~ /rdb\s*$/i )) # special handling for zip files, cab files and services file because of performance reasons
 306     {
 307         if ( $installer::globals::temppathdefined ) { $path = $installer::globals::temppath; }
 308         else { $path = $installer::globals::unpackpath; }
 309         $path =~ s/\Q$installer::globals::separator\E\s*$//;    # removing ending slashes and backslashes
 310         $path = $path . $installer::globals::separator;
 311     }
 312     elsif ( ( $newdirectory eq "jds" ) )
 313     {
 314         if ( $installer::globals::jdstemppathdefined ) { $path = $installer::globals::jdstemppath; }
 315         else { $path = $installer::globals::unpackpath; }
 316         $path =~ s/\Q$installer::globals::separator\E\s*$//;    # removing ending slashes and backslashes
 317         $path = $path . $installer::globals::separator;
 318         installer::systemactions::create_directory($path);
 319     }
 320     else
 321     {
 322         $path = $installer::globals::unpackpath . $installer::globals::separator;
 323     }
 324
 325     $infoline = "create_directories: Using $path for $newdirectory !\n";
 326     push( @installer::globals::logfileinfo, $infoline);
 327
 328     if ($newdirectory eq "unzip" )      # special handling for common directory
 329     {
 330         $path = $path  . ".." . $installer::globals::separator . "common" . $installer::globals::productextension . $installer::globals::separator;
 331         create_directory($path);
 332
 333         $path = $path . $newdirectory . $installer::globals::separator;
 334         create_directory($path);
 335     }
 336     else
 337     {
 338         my $localproductname = $installer::globals::product;
 339         my $localproductsubdir = "";
 340
 341         if ( $installer::globals::product =~ /^\s*(.+?)\_\_(.+?)\s*$/ )
 342         {
 343             $localproductname = $1;
 344             $localproductsubdir = $2;
 345         }
 346
 347         if ( $installer::globals::languagepack ) { $path = $path . $localproductname . "_languagepack" . $installer::globals::separator; }
 348         elsif ( $installer::globals::patch ) { $path = $path . $localproductname . "_patch" . $installer::globals::separator; }
 349         else { $path = $path . $localproductname . $installer::globals::separator; }
 350
 351         create_directory($path);
 352
 353         if ( $localproductsubdir )
 354         {
 355             $path = $path . $localproductsubdir . $installer::globals::separator;
 356             create_directory($path);
 357         }
 358
 359         $path = $path . $installer::globals::installertypedir . $installer::globals::separator;
 360         create_directory($path);
 361
 362         $path = $path . $newdirectory . $installer::globals::separator;
 363         create_directory($path);
 364
 365         my $locallanguagesref = "";
 366
 367         if ( $$languagesref ) { $locallanguagesref = $$languagesref; }
 368
 369         if (!($locallanguagesref eq "" ))       # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files
 370         {
 371             my $languagestring = $$languagesref;
 372
 373             if (length($languagestring) > $installer::globals::max_lang_length )
 374             {
 375                 chomp(my $shorter = `echo $languagestring | md5sum | sed -e "s/ .*//g"`);
 376                 $languagestring = $shorter;
 377             }
 378
 379             $path = $path . $languagestring  . $installer::globals::separator;
 380             create_directory($path);
 381         }
 382     }
 383
 384     installer::remover::remove_ending_pathseparator(\$path);
 385
 386     $path = installer::converter::make_path_conform($path);
 387
 388     return $path;
 389 }
 390
 391 ########################
 392 # Copying one file
 393 ########################
 394
 395 sub copy_one_file
 396 {
 397     my ($source, $dest) = @_;
 398
 399     my ($returnvalue, $infoline);
 400
 401     my $copyreturn = copy($source, $dest);
 402
 403     if ($copyreturn)
 404     {
 405         $infoline = "Copy: $source to $dest\n";
 406         $returnvalue = 1;
 407     }
 408     else
 409     {
 410         $infoline = "ERROR: Could not copy $source to $dest\n";
 411         $returnvalue = 0;
 412     }
 413
 414     push(@installer::globals::logfileinfo, $infoline);
 415
 416     if ( !$returnvalue ) {
 417         return $returnvalue;
 418     }
 419
 420     # taking care of file attributes
 421     if ($installer::globals::iswin && -f $dest) {
 422         my $mode = -x $source ? 0775 : 0664;
 423         my $mode_str = sprintf("%o", $mode);
 424         my $chmodreturn = chmod($mode, $dest);
 425         if ($chmodreturn)
 426         {
 427             $infoline = "chmod $mode_str, $dest\n";
 428             $returnvalue = 1;
 429         }
 430         else
 431         {
 432             $infoline = "WARNING: Could not chmod $dest: $!\n";
 433             $returnvalue = 0;
 434         }
 435
 436         push(@installer::globals::logfileinfo, $infoline);
 437     }
 438
 439     return $returnvalue;
 440 }
 441
 442 ##########################
 443 # Hard linking one file
 444 ##########################
 445
 446 sub hardlink_one_file
 447 {
 448     my ($source, $dest) = @_;
 449
 450     my ($returnvalue, $infoline);
 451
 452     my $copyreturn = link($source, $dest);
 453
 454     if ($copyreturn)
 455     {
 456         $infoline = "Link: $source to $dest\n";
 457         $returnvalue = 1;
 458     }
 459     else
 460     {
 461         $infoline = "ERROR: Could not link $source to $dest\n";
 462         $returnvalue = 0;
 463     }
 464
 465     push(@installer::globals::logfileinfo, $infoline);
 466
 467     return $returnvalue;
 468 }
 469
 470 ##########################
 471 # Soft linking one file
 472 ##########################
 473
 474 sub softlink_one_file
 475 {
 476     my ($source, $dest) = @_;
 477
 478     my ($returnvalue, $infoline);
 479
 480     my $linkreturn = symlink($source, $dest);
 481
 482     if ($linkreturn)
 483     {
 484         $infoline = "Symlink: $source to $dest\n";
 485         $returnvalue = 1;
 486     }
 487     else
 488     {
 489         $infoline = "ERROR: Could not symlink $source to $dest\n";
 490         $returnvalue = 0;
 491     }
 492
 493     push(@installer::globals::logfileinfo, $infoline);
 494
 495     return $returnvalue;
 496 }
 497
 498 ########################
 499 # Renaming one file
 500 ########################
 501
 502 sub rename_one_file
 503 {
 504     my ($source, $dest) = @_;
 505
 506     my ($returnvalue, $infoline);
 507
 508     my $renamereturn = rename($source, $dest);
 509
 510     if ($renamereturn)
 511     {
 512         $infoline = "Rename: $source to $dest\n";
 513         $returnvalue = 1;
 514     }
 515     else
 516     {
 517         $infoline = "ERROR: Could not rename $source to $dest\n";
 518         $returnvalue = 0;
 519     }
 520
 521     push(@installer::globals::logfileinfo, $infoline);
 522
 523     return $returnvalue;
 524 }
 525
 526 ##########################################
 527 # Copying all files from one directory
 528 # to another directory
 529 ##########################################
 530
 531 sub copy_directory
 532 {
 533     my ($sourcedir, $destdir) = @_;
 534
 535     my @sourcefiles = ();
 536
 537     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 538     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 539
 540     my $infoline = "\n";
 541     push(@installer::globals::logfileinfo, $infoline);
 542     $infoline = "Copying files from directory $sourcedir to directory $destdir\n";
 543     push(@installer::globals::logfileinfo, $infoline);
 544
 545     opendir(DIR, $sourcedir);
 546     @sourcefiles = readdir(DIR);
 547     closedir(DIR);
 548
 549     my $onefile;
 550
 551     foreach $onefile (@sourcefiles)
 552     {
 553         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 554         {
 555             my $sourcefile = $sourcedir . $installer::globals::separator . $onefile;
 556             my $destfile = $destdir . $installer::globals::separator . $onefile;
 557             if ( -f $sourcefile )       # only files, no directories
 558             {
 559                 copy_one_file($sourcefile, $destfile);
 560             }
 561         }
 562     }
 563 }
 564
 565 ##########################################
 566 # Copying all files from one directory
 567 # to another directory
 568 ##########################################
 569
 570 sub is_empty_dir
 571 {
 572     my ($dir) = @_;
 573
 574     my $directory_is_empty = 1;
 575     my @sourcefiles = ();
 576
 577     opendir(DIR, $dir);
 578     @sourcefiles = readdir(DIR);
 579     closedir(DIR);
 580
 581     my $onefile;
 582     my @realcontent = ();
 583
 584     foreach $onefile (@sourcefiles)
 585     {
 586         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 587         {
 588             push(@realcontent, $onefile);
 589         }
 590     }
 591
 592     if ( $#realcontent > -1 ) { $directory_is_empty = 0; }
 593
 594     return $directory_is_empty;
 595 }
 596
 597 #####################################################################
 598 # Creating hard links to a complete directory with sub directories.
 599 #####################################################################
 600
 601 sub hardlink_complete_directory
 602 {
 603     my ($sourcedir, $destdir) = @_;
 604
 605     my @sourcefiles = ();
 606
 607     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 608     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 609
 610     if ( ! -d $destdir ) { create_directory($destdir); }
 611
 612     my $infoline = "\n";
 613     push(@installer::globals::logfileinfo, $infoline);
 614     $infoline = "Creating hard links for all files from directory $sourcedir to directory $destdir\n";
 615     push(@installer::globals::logfileinfo, $infoline);
 616
 617     opendir(DIR, $sourcedir);
 618     @sourcefiles = readdir(DIR);
 619     closedir(DIR);
 620
 621     my $onefile;
 622
 623     foreach $onefile (@sourcefiles)
 624     {
 625         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 626         {
 627             my $source = $sourcedir . $installer::globals::separator . $onefile;
 628             my $dest = $destdir . $installer::globals::separator . $onefile;
 629             if ( -f $source )   # only files, no directories
 630             {
 631                 hardlink_one_file($source, $dest);
 632             }
 633             if ( -d $source )   # recursive
 634             {
 635                 hardlink_complete_directory($source, $dest);
 636             }
 637         }
 638     }
 639 }
 640
 641 #####################################################################
 642 # Creating hard links to a complete directory with sub directories.
 643 #####################################################################
 644
 645 sub softlink_complete_directory
 646 {
 647     my ($sourcedir, $destdir, $depth) = @_;
 648
 649     my @sourcefiles = ();
 650
 651     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 652     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 653
 654     if ( ! -d $destdir ) { create_directory($destdir); }
 655
 656     my $infoline = "\n";
 657     push(@installer::globals::logfileinfo, $infoline);
 658     $infoline = "Creating soft links for all files from directory $sourcedir to directory $destdir\n";
 659     push(@installer::globals::logfileinfo, $infoline);
 660
 661     opendir(DIR, $sourcedir);
 662     @sourcefiles = readdir(DIR);
 663     closedir(DIR);
 664
 665     my $onefile;
 666
 667     foreach $onefile (@sourcefiles)
 668     {
 669         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 670         {
 671             my $source = $sourcedir . $installer::globals::separator . $onefile;
 672             my $dest = $destdir . $installer::globals::separator . $onefile;
 673             if ( -f $source )   # only files, no directories
 674             {
 675                 my $localsource = $source;
 676                 if ( $depth > 0 ) { for ( my $i = 1; $i <= $depth; $i++ ) { $localsource = "../" . $localsource; } }
 677                 softlink_one_file($localsource, $dest);
 678             }
 679             if ( -d $source )   # recursive
 680             {
 681                 my $newdepth = $depth + 1;
 682                 softlink_complete_directory($source, $dest, $newdepth);
 683             }
 684         }
 685     }
 686 }
 687
 688 #####################################################
 689 # Copying a complete directory with sub directories.
 690 #####################################################
 691
 692 sub copy_complete_directory
 693 {
 694     my ($sourcedir, $destdir) = @_;
 695
 696     my @sourcefiles = ();
 697
 698     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 699     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 700
 701     if ( ! -d $destdir ) { create_directory($destdir); }
 702
 703     my $infoline = "\n";
 704     push(@installer::globals::logfileinfo, $infoline);
 705     $infoline = "Copying files from directory $sourcedir to directory $destdir\n";
 706     push(@installer::globals::logfileinfo, $infoline);
 707
 708     opendir(DIR, $sourcedir);
 709     @sourcefiles = readdir(DIR);
 710     closedir(DIR);
 711
 712     my $onefile;
 713
 714     foreach $onefile (@sourcefiles)
 715     {
 716         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 717         {
 718             my $source = $sourcedir . $installer::globals::separator . $onefile;
 719             my $dest = $destdir . $installer::globals::separator . $onefile;
 720             if ( -f $source )   # only files, no directories
 721             {
 722                 copy_one_file($source, $dest);
 723             }
 724             if ( -d $source )   # recursive
 725             {
 726                 if ((!( $source =~ /packages\/SUNW/ )) && (!( $source =~ /packages\/OOO/ )))    # do not copy complete Solaris packages!
 727                 {
 728                     copy_complete_directory($source, $dest);
 729                 }
 730             }
 731         }
 732     }
 733 }
 734
 735 #####################################################################################
 736 # Copying a complete directory with sub directories, but not the CVS directories.
 737 #####################################################################################
 738
 739 sub copy_complete_directory_without_cvs
 740 {
 741     my ($sourcedir, $destdir) = @_;
 742
 743     my @sourcefiles = ();
 744
 745     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 746     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 747
 748     if ( ! -d $destdir ) { create_directory($destdir); }
 749
 750     my $infoline = "\n";
 751     push(@installer::globals::logfileinfo, $infoline);
 752     $infoline = "Copying files from directory $sourcedir to directory $destdir (without CVS)\n";
 753     push(@installer::globals::logfileinfo, $infoline);
 754
 755     opendir(DIR, $sourcedir);
 756     @sourcefiles = readdir(DIR);
 757     closedir(DIR);
 758
 759     my $onefile;
 760
 761     foreach $onefile (@sourcefiles)
 762     {
 763         if ((!($onefile eq ".")) && (!($onefile eq "..")) && (!($onefile eq "CVS")))
 764         {
 765             my $source = $sourcedir . $installer::globals::separator . $onefile;
 766             my $dest = $destdir . $installer::globals::separator . $onefile;
 767             if ( -f $source )   # only files, no directories
 768             {
 769                 copy_one_file($source, $dest);
 770             }
 771             if ( -d $source )   # recursive
 772             {
 773                 copy_complete_directory_without_cvs($source, $dest);
 774             }
 775         }
 776     }
 777 }
 778
 779 #####################################################
 780 # Copying all files with a specified file extension
 781 # from one directory to another directory.
 782 #####################################################
 783
 784 sub copy_directory_with_fileextension
 785 {
 786     my ($sourcedir, $destdir, $extension) = @_;
 787
 788     my @sourcefiles = ();
 789
 790     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 791     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 792
 793     $infoline = "\n";
 794     push(@installer::globals::logfileinfo, $infoline);
 795     $infoline = "Copying files with extension $extension from directory $sourcedir to directory $destdir\n";
 796     push(@installer::globals::logfileinfo, $infoline);
 797
 798     opendir(DIR, $sourcedir);
 799     @sourcefiles = readdir(DIR);
 800     closedir(DIR);
 801
 802     my $onefile;
 803
 804     foreach $onefile (@sourcefiles)
 805     {
 806         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 807         {
 808             if ( $onefile =~ /\.$extension\s*$/ )       # only copying specified files
 809             {
 810                 my $sourcefile = $sourcedir . $installer::globals::separator . $onefile;
 811                 my $destfile = $destdir . $installer::globals::separator . $onefile;
 812                 if ( -f $sourcefile )   # only files, no directories
 813                 {
 814                     copy_one_file($sourcefile, $destfile);
 815                 }
 816             }
 817         }
 818     }
 819 }
 820
 821 #########################################################
 822 # Copying all files without a specified file extension
 823 # from one directory to another directory.
 824 #########################################################
 825
 826 sub copy_directory_except_fileextension
 827 {
 828     my ($sourcedir, $destdir, $extension) = @_;
 829
 830     my @sourcefiles = ();
 831
 832     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 833     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 834
 835     $infoline = "\n";
 836     push(@installer::globals::logfileinfo, $infoline);
 837     $infoline = "Copying files without extension $extension from directory $sourcedir to directory $destdir\n";
 838     push(@installer::globals::logfileinfo, $infoline);
 839
 840     opendir(DIR, $sourcedir);
 841     @sourcefiles = readdir(DIR);
 842     closedir(DIR);
 843
 844     my $onefile;
 845
 846     foreach $onefile (@sourcefiles)
 847     {
 848         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 849         {
 850             if ( ! ( $onefile =~ /\.$extension\s*$/ ))  # only copying not having the specified extension
 851             {
 852                 my $sourcefile = $sourcedir . $installer::globals::separator . $onefile;
 853                 my $destfile = $destdir . $installer::globals::separator . $onefile;
 854                 if ( -f $sourcefile )   # only files, no directories
 855                 {
 856                     copy_one_file($sourcefile, $destfile);
 857                 }
 858             }
 859         }
 860     }
 861 }
 862
 863 ########################################################
 864 # Renaming all files with a specified file extension
 865 # in a specified directory.
 866 # Example: "Feature.idt.01" -> "Feature.idt"
 867 ########################################################
 868
 869 sub rename_files_with_fileextension
 870 {
 871     my ($dir, $extension) = @_;
 872
 873     my @sourcefiles = ();
 874
 875     $dir =~ s/\Q$installer::globals::separator\E\s*$//;
 876
 877     my $infoline = "\n";
 878     push(@installer::globals::logfileinfo, $infoline);
 879     $infoline = "Renaming files with extension \"$extension\" in the directory $dir\n";
 880     push(@installer::globals::logfileinfo, $infoline);
 881
 882     opendir(DIR, $dir);
 883     @sourcefiles = readdir(DIR);
 884     closedir(DIR);
 885
 886     my $onefile;
 887
 888     foreach $onefile (@sourcefiles)
 889     {
 890         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 891         {
 892             if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ )    # only renaming specified files
 893             {
 894                 my $destfile = $1;
 895                 my $sourcefile = $dir . $installer::globals::separator . $onefile;
 896                 $destfile = $dir . $installer::globals::separator . $destfile;
 897                 if ( -f $sourcefile )   # only files, no directories
 898                 {
 899                     rename_one_file($sourcefile, $destfile);
 900                 }
 901             }
 902         }
 903     }
 904 }
 905
 906 ########################################################
 907 # Finding all files with a specified file extension
 908 # in a specified directory.
 909 ########################################################
 910
 911 sub find_file_with_file_extension
 912 {
 913     my ($extension, $dir) = @_;
 914
 915     my @allfiles = ();
 916
 917     $dir =~ s/\Q$installer::globals::separator\E\s*$//;
 918
 919     my $infoline = "\n";
 920     push(@installer::globals::logfileinfo, $infoline);
 921     $infoline = "Searching files with extension \"$extension\" in the directory $dir\n";
 922     push(@installer::globals::logfileinfo, $infoline);
 923
 924     opendir(DIR, $dir);
 925     @sourcefiles = readdir(DIR);
 926     closedir(DIR);
 927
 928     my $onefile;
 929
 930     foreach $onefile (@sourcefiles)
 931     {
 932         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 933         {
 934             if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ )
 935             {
 936                 push(@allfiles, $onefile)
 937             }
 938         }
 939     }
 940
 941     return \@allfiles;
 942 }
 943
 944 ##############################################################
 945 # Creating a unique directory, for example "01_inprogress_7"
 946 # in the install directory.
 947 ##############################################################
 948
 949 sub make_numbered_dir
 950 {
 951     my ($newstring, $olddir) = @_;
 952
 953     my $basedir = $olddir;
 954     installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir);
 955
 956     my $alldirs = get_all_directories($basedir);
 957
 958     # searching for the highest number extension
 959
 960     my $maxnumber = 0;
 961
 962     for ( my $i = 0; $i <= $#{$alldirs}; $i++ )
 963     {
 964         if ( ${$alldirs}[$i] =~ /\_(\d+)\s*$/ )
 965         {
 966             my $number = $1;
 967             if ( $number > $maxnumber ) { $maxnumber = $number; }
 968         }
 969     }
 970
 971     my $newnumber = $maxnumber + 1;
 972
 973     my $newdir = $olddir . "_" . $newstring . "_" . $newnumber;
 974
 975     my $returndir = "";
 976
 977     if ( move($olddir, $newdir) )
 978     {
 979         $infoline = "\nMoved directory from $olddir to $newdir\n";
 980         push(@installer::globals::logfileinfo, $infoline);
 981         $returndir = $newdir;
 982     }
 983     else
 984     {
 985         $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"make_numbered_dir\"\n";
 986         push(@installer::globals::logfileinfo, $infoline);
 987         $returndir = $olddir;
 988     }
 989
 990     return $returndir;
 991 }
 992
 993 ##############################################################
 994 # Determining the highest number in the install directory.
 995 ##############################################################
 996
 997 sub determine_maximum_number
 998 {
 999     my ($dir, $languagestringref) = @_;
1000
1001     my $basedir = $dir;
1002     installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir);
1003
1004     my $alldirs = get_all_directories($basedir);
1005
1006     my $maxnumber = 1;
1007
1008     # In control.pm the installation directory is determined as:
1009     # $installer::globals::build . "_" . $installer::globals::lastminor . "_" .
1010     # "native_inprogress-number_" . $$languagesref . "\." . $installer::globals::buildid;
1011
1012     # searching for the highest number extension after the first "-", which belongs to
1013     # $installer::globals::build, $installer::globals::lastminor and $installer::globals::buildid
1014     # In this step not looking for the language!
1015
1016     my @correctbuildiddirs = ();
1017
1018     for ( my $i = 0; $i <= $#{$alldirs}; $i++ )
1019     {
1020         my $onedir = ${$alldirs}[$i];
1021         installer::pathanalyzer::make_absolute_filename_to_relative_filename(\$onedir);
1022
1023         if ( $onedir =~ /^\s*\Q$installer::globals::build\E\_\Q$installer::globals::lastminor\E\_(.*?)\-(\d+)\_(.*?)\.\Q$installer::globals::buildid\E\s*$/ )
1024         {
1025             my $number = $2;
1026             if ( $number > $maxnumber ) { $maxnumber = $number; }
1027             push(@correctbuildiddirs, $onedir);
1028         }
1029     }
1030
1031     # From all directories with correct $installer::globals::build, $installer::globals::lastminor
1032     # and $installer::globals::buildid, those directories, which already have the maximum number
1033     # have to be selected
1034
1035     my @maximumnumberdirs = ();
1036
1037     for ( my $i = 0; $i <= $#correctbuildiddirs; $i++ )
1038     {
1039         my $onedir = $correctbuildiddirs[$i];
1040
1041         if ( $onedir =~ /^\s*(.*?)\-(\d+)\_(.*?)\.(.*?)\s*$/ )
1042         {
1043             my $number = $2;
1044
1045             if ( $number == $maxnumber )
1046             {
1047                 push(@maximumnumberdirs, $onedir);
1048             }
1049         }
1050     }
1051
1052     # @maximumnumberdirs contains only those directories with correct $installer::globals::build,
1053     # $installer::globals::lastminor and $installer::globals::buildid, which already have the maximum number.
1054     # If the current language is part of this directory, the number has to be increased.
1055
1056     my $increase_counter = 0;
1057
1058     for ( my $i = 0; $i <= $#maximumnumberdirs; $i++ )
1059     {
1060         my $onedir = $maximumnumberdirs[$i];
1061
1062         if ( $onedir =~ /^\s*(.*?)\-(\d+)\_(.*?)\.(.*?)\s*$/ )
1063         {
1064             my $number = $2;
1065             my $languagestring = $3;
1066
1067             if ( $languagestring eq $$languagestringref )
1068             {
1069                 $increase_counter = 1;
1070             }
1071         }
1072     }
1073
1074     if ( $increase_counter )
1075     {
1076         $maxnumber = $maxnumber + 1;
1077     }
1078
1079     return $maxnumber;
1080 }
1081
1082 #####################################################################################
1083 # Renaming a directory by exchanging a string, for example from "01_inprogress_7"
1084 # to "01_witherror_7".
1085 #####################################################################################
1086
1087 sub rename_string_in_directory
1088 {
1089     my ($olddir, $oldstring, $newstring) = @_;
1090
1091     my $newdir = $olddir;
1092     my $infoline = "";
1093
1094     $newdir =~ s/$oldstring/$newstring/g;
1095
1096     if (( -d $newdir ) && ( $olddir ne $newdir )) { remove_complete_directory($newdir, 1); }
1097
1098     if ( move($olddir, $newdir) )
1099     {
1100         $infoline = "\nMoved directory from $olddir to $newdir\n";
1101         push(@installer::globals::logfileinfo, $infoline);
1102     }
1103     else
1104     {
1105         $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"rename_string_in_directory\"\n";
1106         push(@installer::globals::logfileinfo, $infoline);
1107     }
1108
1109     return $newdir;
1110 }
1111
1112 ######################################################
1113 # Returning the complete directory name,
1114 # input is the first part of the directory name.
1115 ######################################################
1116
1117 sub get_directoryname
1118 {
1119     my ($searchdir, $startstring) = @_;
1120
1121     my $dirname = "";
1122     my $founddir = 0;
1123     my $direntry;
1124
1125     opendir(DIR, $searchdir);
1126
1127     foreach $direntry (readdir (DIR))
1128     {
1129         next if $direntry eq ".";
1130         next if $direntry eq "..";
1131
1132         if (( -d $direntry ) && ( $direntry =~ /^\s*\Q$startstring\E/ ))
1133         {
1134             $dirname = $direntry;
1135             $founddir = 1;
1136             last;
1137         }
1138     }
1139
1140     closedir(DIR);
1141
1142     if ( ! $founddir ) { installer::exiter::exit_program("ERROR: Did not find directory beginning with $startstring in directory $searchdir", "get_directoryname"); }
1143
1144     return $dirname;
1145 }
1146
1147
1148 ###################################
1149 # Renaming a directory
1150 ###################################
1151
1152 sub rename_directory
1153 {
1154     my ($olddir, $newdir) = @_;
1155
1156     my $infoline = "";
1157
1158     if ( move($olddir, $newdir) )
1159     {
1160         $infoline = "\nMoved directory from $olddir to $newdir\n";
1161         push(@installer::globals::logfileinfo, $infoline);
1162     }
1163     else
1164     {
1165         installer::exiter::exit_program("ERROR: Could not move directory from $olddir to $newdir", "rename_directory");
1166         # $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"rename_directory\"\n";
1167         # push(@installer::globals::logfileinfo, $infoline);
1168     }
1169
1170     return $newdir;
1171 }
1172
1173 ##############################################################
1174 # Creating a directory next to an existing directory
1175 ##############################################################
1176
1177 sub create_directory_next_to_directory
1178 {
1179     my ($topdir, $dirname) = @_;
1180
1181     my $basedir = $topdir;
1182     installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir);
1183
1184     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1185
1186     my $newdir = $basedir . $installer::globals::separator . $dirname;
1187
1188     create_directory($newdir);
1189
1190     return $newdir;
1191 }
1192
1193 ##############################################################
1194 # Collecting all directories inside a directory
1195 ##############################################################
1196
1197 sub get_all_directories
1198 {
1199     my ($basedir) = @_;
1200
1201     my @alldirs = ();
1202     my $direntry;
1203
1204     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1205
1206     opendir(DIR, $basedir);
1207
1208     foreach $direntry (readdir (DIR))
1209     {
1210         next if $direntry eq ".";
1211         next if $direntry eq "..";
1212
1213         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1214
1215         if ( -d $completeentry ) { push(@alldirs, $completeentry); }
1216     }
1217
1218     closedir(DIR);
1219
1220     return \@alldirs;
1221 }
1222
1223 ##############################################################
1224 # Collecting all directories inside a directory
1225 # Returning without path
1226 ##############################################################
1227
1228 sub get_all_directories_without_path
1229 {
1230     my ($basedir) = @_;
1231
1232     my @alldirs = ();
1233     my $direntry;
1234
1235     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1236
1237     opendir(DIR, $basedir);
1238
1239     foreach $direntry (readdir (DIR))
1240     {
1241         next if $direntry eq ".";
1242         next if $direntry eq "..";
1243
1244         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1245
1246         if ( -d $completeentry ) { push(@alldirs, $direntry); }
1247     }
1248
1249     closedir(DIR);
1250
1251     return \@alldirs;
1252 }
1253
1254 ##############################################################
1255 # Collecting all files inside one directory
1256 ##############################################################
1257
1258 sub get_all_files_from_one_directory
1259 {
1260     my ($basedir) = @_;
1261
1262     my @allfiles = ();
1263     my $direntry;
1264
1265     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1266
1267     opendir(DIR, $basedir);
1268
1269     foreach $direntry (readdir (DIR))
1270     {
1271         next if $direntry eq ".";
1272         next if $direntry eq "..";
1273
1274         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1275
1276         if ( -f $completeentry ) { push(@allfiles, $completeentry); }
1277     }
1278
1279     closedir(DIR);
1280
1281     return \@allfiles;
1282 }
1283
1284 ##############################################################
1285 # Collecting all files inside one directory
1286 ##############################################################
1287
1288 sub get_all_files_from_one_directory_without_path
1289 {
1290     my ($basedir) = @_;
1291
1292     my @allfiles = ();
1293     my $direntry;
1294
1295     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1296
1297     opendir(DIR, $basedir);
1298
1299     foreach $direntry (readdir (DIR))
1300     {
1301         next if $direntry eq ".";
1302         next if $direntry eq "..";
1303
1304         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1305
1306         if ( -f $completeentry ) { push(@allfiles, $direntry); }
1307     }
1308
1309     closedir(DIR);
1310
1311     return \@allfiles;
1312 }
1313
1314 ##############################################################
1315 # Collecting all files and directories inside one directory
1316 ##############################################################
1317
1318 sub read_directory
1319 {
1320     my ($basedir) = @_;
1321
1322     my @allcontent = ();
1323     my $direntry;
1324
1325     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1326
1327     opendir(DIR, $basedir);
1328
1329     foreach $direntry (readdir (DIR))
1330     {
1331         next if $direntry eq ".";
1332         next if $direntry eq "..";
1333
1334         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1335
1336         if (( -f $completeentry ) || ( -d $completeentry )) { push(@allcontent, $completeentry); }
1337     }
1338
1339     closedir(DIR);
1340
1341     return \@allcontent;
1342 }
1343
1344 ##############################################################
1345 # Finding the new content in a directory
1346 ##############################################################
1347
1348 sub find_new_content_in_directory
1349 {
1350     my ( $basedir, $oldcontent ) = @_;
1351
1352     my @newcontent = ();
1353     my @allcontent = ();
1354
1355     my $direntry;
1356
1357     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1358
1359     opendir(DIR, $basedir);
1360
1361     foreach $direntry (readdir (DIR))
1362     {
1363         next if $direntry eq ".";
1364         next if $direntry eq "..";
1365
1366         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1367
1368         if (( -f $completeentry ) || ( -d $completeentry ))
1369         {
1370             push(@allcontent, $completeentry);
1371             if (! installer::existence::exists_in_array($completeentry, $oldcontent))
1372             {
1373                 push(@newcontent, $completeentry);
1374             }
1375         }
1376     }
1377
1378     closedir(DIR);
1379
1380     return (\@newcontent, \@allcontent);
1381 }
1382
1383 ##############################################################
1384 # Trying to create a directory, no error if this fails
1385 ##############################################################
1386
1387 sub try_to_create_directory
1388 {
1389     my ($directory) = @_;
1390
1391     my $returnvalue = 1;
1392     my $created_directory = 0;
1393
1394     if (!(-d $directory))
1395     {
1396         $returnvalue = mkdir($directory, 0775);
1397
1398         if ($returnvalue)
1399         {
1400             $created_directory = 1;
1401             $infoline = "\nCreated directory: $directory\n";
1402             push(@installer::globals::logfileinfo, $infoline);
1403
1404             my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
1405             system($localcall);
1406         }
1407         else
1408         {
1409             $created_directory = 0;
1410         }
1411     }
1412     else
1413     {
1414         $created_directory = 1;
1415     }
1416
1417     return $created_directory;
1418 }
1419
1420 ##############################################################
1421 # Creating a complete directory structure
1422 ##############################################################
1423
1424 sub create_directory_structure
1425 {
1426     my ($directory) = @_;
1427
1428     if ( ! try_to_create_directory($directory) )
1429     {
1430         my $parentdir = $directory;
1431         installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir);
1432
1433         my $infoline = "INFO: Did not create directory $directory\n";
1434         push(@installer::globals::logfileinfo, $infoline);
1435         $infoline = "Now trying to create parent directory $parentdir\n";
1436         push(@installer::globals::logfileinfo, $infoline);
1437
1438         create_directory_structure($parentdir);                                                                 # recursive
1439     }
1440
1441     create_directory($directory);       # now it has to succeed
1442 }
1443
1444 ######################################################
1445 # Removing a complete directory with subdirectories
1446 ######################################################
1447
1448 sub remove_complete_directory
1449 {
1450     my ($directory, $start) = @_;
1451
1452     my @content = ();
1453     my $infoline = "";
1454
1455     $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1456
1457     if ( -d $directory )
1458     {
1459         if ( $start )
1460         {
1461             $infoline = "\n";
1462             push(@installer::globals::logfileinfo, $infoline);
1463             $infoline = "Removing directory $directory\n";
1464             push(@installer::globals::logfileinfo, $infoline);
1465         }
1466
1467         opendir(DIR, $directory);
1468         @content = readdir(DIR);
1469         closedir(DIR);
1470
1471         my $oneitem;
1472
1473         foreach $oneitem (@content)
1474         {
1475             if ((!($oneitem eq ".")) && (!($oneitem eq "..")))
1476             {
1477                 my $item = $directory . $installer::globals::separator . $oneitem;
1478
1479                 if ( -f $item || -l $item )     # deleting files or links
1480                 {
1481                     unlink($item);
1482                 }
1483
1484                 if ( -d $item )         # recursive
1485                 {
1486                     remove_complete_directory($item, 0);
1487                 }
1488             }
1489         }
1490
1491         # try to remove empty directory
1492
1493         my $returnvalue = rmdir $directory;
1494
1495         if ( ! $returnvalue )
1496         {
1497             $infoline = "Warning: Problem with removing empty dir $directory\n";
1498             push(@installer::globals::logfileinfo, $infoline);
1499         }
1500
1501         # try a little bit harder (sometimes there is a performance problem)
1502         if ( -d $directory )
1503         {
1504             for ( my $j = 1; $j <= 3; $j++ )
1505             {
1506                 if ( -d $directory )
1507                 {
1508                     $infoline = "\n";
1509                     push(@installer::globals::logfileinfo, $infoline);
1510                     $infoline = "Warning (Try $j): Problems with removing directory $directory\n";
1511                     push(@installer::globals::logfileinfo, $infoline);
1512
1513                     $returnvalue = rmdir $directory;
1514
1515                     if ( $returnvalue )
1516                     {
1517                         $infoline = "Successfully removed empty dir $directory\n";
1518                         push(@installer::globals::logfileinfo, $infoline);
1519                     } else {
1520                         $infoline = "Warning: rmdir $directory failed.\n";
1521                         push(@installer::globals::logfileinfo, $infoline);
1522                     }
1523                 }
1524             }
1525         }
1526     }
1527 }
1528
1529 ######################################################
1530 # Creating a unique directory with number extension
1531 ######################################################
1532
1533 sub create_unique_directory
1534 {
1535     my ($directory) = @_;
1536
1537     $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1538     $directory = $directory . "_INCREASINGNUMBER";
1539
1540     my $counter = 1;
1541     my $created = 0;
1542     my $localdirectory = "";
1543
1544     do
1545     {
1546         $localdirectory = $directory;
1547         $localdirectory =~ s/INCREASINGNUMBER/$counter/;
1548         $counter++;
1549
1550         if ( ! -d $localdirectory )
1551         {
1552             create_directory($localdirectory);
1553             $created = 1;
1554         }
1555     }
1556     while ( ! $created );
1557
1558     return $localdirectory;
1559 }
1560
1561 ######################################################
1562 # Creating a unique directory with pid extension
1563 ######################################################
1564
1565 sub create_pid_directory
1566 {
1567     my ($directory) = @_;
1568
1569     $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1570     my $pid = $$;                       # process id
1571     my $time = time();          # time
1572
1573     $directory = $directory . "_" . $pid . $time;
1574
1575     if ( ! -d $directory ) { create_directory($directory); }
1576     else { installer::exiter::exit_program("ERROR: Directory $directory already exists!", "create_pid_directory"); }
1577
1578     return $directory;
1579 }
1580
1581 ##############################################################
1582 # Reading all files from a directory and its subdirectories
1583 ##############################################################
1584
1585 sub read_complete_directory
1586 {
1587     my ($directory, $pathstring, $filecollector) = @_;
1588
1589     my @content = ();
1590     opendir(DIR, $directory);
1591     @content = readdir(DIR);
1592     closedir(DIR);
1593
1594     my $onefile;
1595
1596     foreach $onefile (@content)
1597     {
1598         if ((!($onefile eq ".")) && (!($onefile eq "..")))
1599         {
1600             my $completefilename = $directory . $installer::globals::separator . $onefile;
1601             my $sep = "";
1602             if ( $pathstring ne "" ) { $sep = $installer::globals::separator; }
1603
1604             if ( ! -d $completefilename )       # only files, no directories
1605             {
1606                 my $content = $pathstring . $sep . $onefile;
1607                 push(@{$filecollector}, $content);
1608             }
1609             else  # recursive for directories
1610             {
1611                 my $newpathstring = $pathstring . $sep . $onefile;
1612                 read_complete_directory($completefilename, $newpathstring, $filecollector);
1613             }
1614         }
1615     }
1616 }
1617
1618 ##############################################################
1619 # Reading all files from a directory and its subdirectories
1620 # Version 2
1621 ##############################################################
1622
1623 sub read_full_directory {
1624     my ( $currentdir, $pathstring, $collector ) = @_;
1625     my $item;
1626     my $fullname;
1627     local *DH;
1628
1629     unless (opendir(DH, $currentdir))
1630     {
1631         return;
1632     }
1633     while (defined ($item = readdir(DH)))
1634     {
1635         next if($item eq "." or $item eq "..");
1636         $fullname = $currentdir . $installer::globals::separator . $item;
1637         my $sep = "";
1638         if ( $pathstring ne "" ) { $sep = $installer::globals::separator; }
1639
1640         if( -d $fullname)
1641         {
1642             my $newpathstring = $pathstring . $sep . $item;
1643             read_full_directory($fullname, $newpathstring, $collector) if(-d $fullname);
1644         }
1645         else
1646         {
1647             my $content = $pathstring . $sep . $item;
1648             push(@{$collector}, $content);
1649         }
1650     }
1651     closedir(DH);
1652     return
1653 }
1654
1655 1;