solenv/bin/modules/installer/systemactions.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19 package installer::systemactions;
  20
  21 use Cwd;
  22 use File::Copy;
  23 use installer::converter;
  24 use installer::exiter;
  25 use installer::globals;
  26 use installer::pathanalyzer;
  27 use installer::remover;
  28 use installer::windows::msiglobal;
  29
  30 ######################################################
  31 # Creating a new direcotory
  32 ######################################################
  33
  34 sub create_directory
  35 {
  36     my ($directory) = @_;
  37
  38     create_directory_with_privileges( $directory, "755" );
  39 }
  40
  41 ######################################################
  42 # Creating a new direcotory with defined privileges
  43 ######################################################
  44
  45 sub create_directory_with_privileges
  46 {
  47     my ($directory, $privileges) = @_;
  48
  49     my $returnvalue = 1;
  50     my $infoline = "";
  51     my $localprivileges = oct("0".$privileges); # changes "777" to 0777
  52
  53     if (!(-d $directory))
  54     {
  55         $returnvalue = mkdir($directory, $localprivileges);
  56
  57         if ($returnvalue)
  58         {
  59             $infoline = "\nCreated directory: $directory\n";
  60             push(@installer::globals::logfileinfo, $infoline);
  61
  62             chmod $localprivileges, $directory;
  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($directory, $localprivileges);
  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                         chmod $localprivileges, $parentdir;
  89                     }
  90                     else
  91                     {
  92                         $infoline = "\nError: \"$directory\" could not be created. Even the parent directory \"$parentdir\" does not exist and could not be created.\n";
  93                         push(@installer::globals::logfileinfo, $infoline);
  94                         if ( -d $parentdir )
  95                         {
  96                             $infoline = "\nAttention: Finally the parent directory \"$parentdir\" exists, but I could not create it.\n";
  97                             push(@installer::globals::logfileinfo, $infoline);
  98                         }
  99                         else
 100                         {
 101                             # Now it is time to exit, even the parent could not be created.
 102                             installer::exiter::exit_program("ERROR: Could not create parent directory \"$parentdir\"", "create_directory_with_privileges");
 103                         }
 104                     }
 105                 }
 106
 107                 # At this point we have to assume, that the parent directory exist.
 108                 # Trying once more to create the desired directory
 109
 110                 $returnvalue = mkdir($directory, $localprivileges);
 111
 112                 if ($returnvalue)
 113                 {
 114                     $infoline = "\nAttention: Created directory \"$directory\" in the second try.\n";
 115                     push(@installer::globals::logfileinfo, $infoline);
 116
 117                     chmod $localprivileges, $directory;
 118                 }
 119                 else
 120                 {
 121                     if ( -d $directory )
 122                     {
 123                         $infoline = "\nAttention: Finally the directory \"$directory\" exists, but I could not create it.\n";
 124                         push(@installer::globals::logfileinfo, $infoline);
 125                     }
 126                     else
 127                     {
 128                         # It is time to exit, even the second try failed.
 129                         installer::exiter::exit_program("ERROR: Failed to create the directory: $directory", "create_directory_with_privileges");
 130                     }
 131                 }
 132             }
 133             else
 134             {
 135                 $infoline = "\nAnother process created this directory in exactly this moment :-) : $directory\n";
 136                 push(@installer::globals::logfileinfo, $infoline);
 137             }
 138         }
 139     }
 140     else
 141     {
 142         $infoline = "\nAlready existing directory, did not create: $directory\n";
 143         push(@installer::globals::logfileinfo, $infoline);
 144
 145         chmod $localprivileges, $directory;
 146     }
 147 }
 148
 149 #######################################################################
 150 # Calculating the number of languages in the string
 151 #######################################################################
 152
 153 sub get_number_of_langs
 154 {
 155     my ($languagestring) = @_;
 156
 157     my $number = 1;
 158
 159     my $workstring = $languagestring;
 160
 161     while ( $workstring =~ /^\s*(.*)_(.*?)\s*$/ )
 162     {
 163         $workstring = $1;
 164         $number++;
 165     }
 166
 167     return $number;
 168 }
 169
 170 #######################################################################
 171 # Creating the directories, in which files are generated or unzipped
 172 #######################################################################
 173
 174 sub create_directories
 175 {
 176     my ($newdirectory, $languagesref) =@_;
 177
 178     $installer::globals::unpackpath =~ s/\Q$installer::globals::separator\E\s*$//;  # removing ending slashes and backslashes
 179
 180     my $path = "";
 181
 182     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
 183     {
 184         if ( $installer::globals::temppathdefined ) { $path = $installer::globals::temppath; }
 185         else { $path = $installer::globals::unpackpath; }
 186         $path =~ s/\Q$installer::globals::separator\E\s*$//;    # removing ending slashes and backslashes
 187         $path = $path . $installer::globals::separator;
 188     }
 189     else
 190     {
 191         $path = $installer::globals::unpackpath . $installer::globals::separator;
 192
 193         # special handling, if LOCALINSTALLDIR is set
 194         if (( $installer::globals::localinstalldirset ) && ( $newdirectory eq "install" ))
 195         {
 196             $installer::globals::localinstalldir =~ s/\Q$installer::globals::separator\E\s*$//;
 197             $path = $installer::globals::localinstalldir . $installer::globals::separator;
 198         }
 199     }
 200
 201     $infoline = "create_directories: Using $path for $newdirectory !\n";
 202     push( @installer::globals::logfileinfo, $infoline);
 203
 204     if ($newdirectory eq "unzip" )  # special handling for common directory
 205     {
 206     }
 207     else
 208     {
 209         my $localproductname = $installer::globals::product;
 210         my $localproductsubdir = "";
 211
 212         if ( $installer::globals::product =~ /^\s*(.+?)\_\_(.+?)\s*$/ )
 213         {
 214             $localproductname = $1;
 215             $localproductsubdir = $2;
 216         }
 217
 218         if ( $installer::globals::languagepack ) { $path = $path . $localproductname . "_languagepack" . $installer::globals::separator; }
 219         elsif ( $installer::globals::helppack ) { $path = $path . $localproductname . "_helppack" . $installer::globals::separator; }
 220         else { $path = $path . $localproductname . $installer::globals::separator; }
 221
 222         create_directory($path);
 223
 224         if ( $localproductsubdir )
 225         {
 226             $path = $path . $localproductsubdir . $installer::globals::separator;
 227             create_directory($path);
 228         }
 229
 230         $path = $path . $installer::globals::installertypedir . $installer::globals::separator;
 231         create_directory($path);
 232
 233         $path = $path . $newdirectory . $installer::globals::separator;
 234         create_directory($path);
 235
 236         my $locallanguagesref = "";
 237
 238         if ( $$languagesref ) { $locallanguagesref = $$languagesref; }
 239
 240         if ($newdirectory eq "install" && $installer::globals::ooodownloadfilename ne "" )
 241         {
 242             # put packages into versioned path; needed only on linux (fdo#30837)
 243             $path = $path . "$installer::globals::ooodownloadfilename" . $installer::globals::separator;
 244             create_directory($path);
 245         }
 246         else
 247         {
 248             if ($locallanguagesref ne "")   # this will be a path like "01_49", for Profiles and ConfigurationFiles, idt-Files
 249             {
 250
 251                 my $languagestring = $$languagesref;
 252
 253                 if (length($languagestring) > $installer::globals::max_lang_length )
 254                 {
 255                     my $number_of_languages = get_number_of_langs($languagestring);
 256                     #replace this in the same it was done in installer/windows/directory.pm
 257                     #chomp(my $shorter = `echo $languagestring | $ENV{'MD5SUM'} | sed -e "s/ .*//g"`);
 258                     #my $id = substr($shorter, 0, 8); # taking only the first 8 digits
 259                     my $id = installer::windows::msiglobal::calculate_id($languagestring, 8); # taking only the first 8 digits
 260                     $languagestring = "lang_" . $number_of_languages . "_id_" . $id;
 261                 }
 262
 263                 $path = $path . $languagestring . $installer::globals::separator;
 264                 create_directory($path);
 265             }
 266         }
 267     }
 268
 269     installer::remover::remove_ending_pathseparator(\$path);
 270
 271     $path = installer::converter::make_path_conform($path);
 272
 273     return $path;
 274 }
 275
 276 ########################
 277 # Copying one file
 278 ########################
 279
 280 sub copy_one_file
 281 {
 282     my ($source, $dest) = @_;
 283
 284     my ($returnvalue, $infoline, $copyreturn);
 285
 286     if ( -l $source ) {
 287         $copyreturn = symlink(readlink("$source"), "$dest");
 288     }
 289     else {
 290         $copyreturn = copy($source, $dest);
 291     }
 292
 293     if ($copyreturn)
 294     {
 295         $infoline = "Copy: $source to $dest\n";
 296         $returnvalue = 1;
 297     }
 298     else
 299     {
 300         $infoline = "ERROR: Could not copy $source to $dest $!\n";
 301         $returnvalue = 0;
 302     }
 303
 304     push(@installer::globals::logfileinfo, $infoline);
 305
 306     if ( !$returnvalue ) {
 307         return $returnvalue;
 308     }
 309
 310     # taking care of file attributes
 311     if ($installer::globals::iswin && -f $dest) {
 312         my $mode = -x $source ? 0775 : 0664;
 313         my $mode_str = sprintf("%o", $mode);
 314         my $chmodreturn = chmod($mode, $dest);
 315         if ($chmodreturn)
 316         {
 317             $infoline = "chmod $mode_str, $dest\n";
 318             $returnvalue = 1;
 319         }
 320         else
 321         {
 322             $infoline = "WARNING: Could not chmod $dest: $!\n";
 323             $returnvalue = 0;
 324         }
 325
 326         push(@installer::globals::logfileinfo, $infoline);
 327     }
 328
 329     return $returnvalue;
 330 }
 331
 332 ##########################
 333 # Hard linking one file
 334 ##########################
 335
 336 sub hardlink_one_file
 337 {
 338     my ($source, $dest) = @_;
 339
 340     my ($returnvalue, $infoline);
 341
 342     my $copyreturn = link($source, $dest);
 343
 344     if ($copyreturn)
 345     {
 346         $infoline = "Link: $source to $dest\n";
 347         $returnvalue = 1;
 348     }
 349     else
 350     {
 351         $infoline = "ERROR: Could not link $source to $dest\n";
 352         $returnvalue = 0;
 353     }
 354
 355     push(@installer::globals::logfileinfo, $infoline);
 356
 357     return $returnvalue;
 358 }
 359
 360 ##########################
 361 # Soft linking one file
 362 ##########################
 363
 364 sub softlink_one_file
 365 {
 366     my ($source, $dest) = @_;
 367
 368     my ($returnvalue, $infoline);
 369
 370     my $linkreturn = symlink($source, $dest);
 371
 372     if ($linkreturn)
 373     {
 374         $infoline = "Symlink: $source to $dest\n";
 375         $returnvalue = 1;
 376     }
 377     else
 378     {
 379         $infoline = "ERROR: Could not symlink $source to $dest\n";
 380         $returnvalue = 0;
 381     }
 382
 383     push(@installer::globals::logfileinfo, $infoline);
 384
 385     return $returnvalue;
 386 }
 387
 388 ########################
 389 # Renaming one file
 390 ########################
 391
 392 sub rename_one_file
 393 {
 394     my ($source, $dest) = @_;
 395
 396     my ($returnvalue, $infoline);
 397
 398     my $renamereturn = rename($source, $dest);
 399
 400     if ($renamereturn)
 401     {
 402         $infoline = "Rename: $source to $dest\n";
 403         $returnvalue = 1;
 404     }
 405     else
 406     {
 407         $infoline = "ERROR: Could not rename $source to $dest\n";
 408         $returnvalue = 0;
 409     }
 410
 411     push(@installer::globals::logfileinfo, $infoline);
 412
 413     return $returnvalue;
 414 }
 415
 416 ##########################################
 417 # Copying all files from one directory
 418 # to another directory
 419 ##########################################
 420
 421 sub copy_directory
 422 {
 423     my ($sourcedir, $destdir) = @_;
 424
 425     my @sourcefiles = ();
 426
 427     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 428     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 429
 430     my $infoline = "\n";
 431     push(@installer::globals::logfileinfo, $infoline);
 432     $infoline = "Copying files from directory $sourcedir to directory $destdir\n";
 433     push(@installer::globals::logfileinfo, $infoline);
 434
 435     opendir(DIR, $sourcedir);
 436     @sourcefiles = readdir(DIR);
 437     closedir(DIR);
 438
 439     my $onefile;
 440
 441     foreach $onefile (@sourcefiles)
 442     {
 443         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 444         {
 445             my $sourcefile = $sourcedir . $installer::globals::separator . $onefile;
 446             my $destfile = $destdir . $installer::globals::separator . $onefile;
 447             if ( -f $sourcefile )   # only files, no directories
 448             {
 449                 copy_one_file($sourcefile, $destfile);
 450             }
 451         }
 452     }
 453 }
 454
 455 ##########################################
 456 # Copying all files from one directory
 457 # to another directory
 458 ##########################################
 459
 460 sub is_empty_dir
 461 {
 462     my ($dir) = @_;
 463
 464     my $directory_is_empty = 1;
 465     my @sourcefiles = ();
 466
 467     opendir(DIR, $dir);
 468     @sourcefiles = readdir(DIR);
 469     closedir(DIR);
 470
 471     my $onefile;
 472     my @realcontent = ();
 473
 474     foreach $onefile (@sourcefiles)
 475     {
 476         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 477         {
 478             push(@realcontent, $onefile);
 479         }
 480     }
 481
 482     if ( $#realcontent > -1 ) { $directory_is_empty = 0; }
 483
 484     return $directory_is_empty;
 485 }
 486
 487 #####################################################################
 488 # Creating hard links to a complete directory with sub directories.
 489 #####################################################################
 490
 491 sub hardlink_complete_directory
 492 {
 493     my ($sourcedir, $destdir) = @_;
 494
 495     my @sourcefiles = ();
 496
 497     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 498     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 499
 500     if ( ! -d $destdir ) { create_directory($destdir); }
 501
 502     my $infoline = "\n";
 503     push(@installer::globals::logfileinfo, $infoline);
 504     $infoline = "Creating hard links for all files from directory $sourcedir to directory $destdir\n";
 505     push(@installer::globals::logfileinfo, $infoline);
 506
 507     opendir(DIR, $sourcedir);
 508     @sourcefiles = readdir(DIR);
 509     closedir(DIR);
 510
 511     my $onefile;
 512
 513     foreach $onefile (@sourcefiles)
 514     {
 515         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 516         {
 517             my $source = $sourcedir . $installer::globals::separator . $onefile;
 518             my $dest = $destdir . $installer::globals::separator . $onefile;
 519             if ( -f $source )   # only files, no directories
 520             {
 521                 hardlink_one_file($source, $dest);
 522             }
 523             if ( -d $source )   # recursive
 524             {
 525                 hardlink_complete_directory($source, $dest);
 526             }
 527         }
 528     }
 529 }
 530
 531 #####################################################################
 532 # Creating hard links to a complete directory with sub directories.
 533 #####################################################################
 534
 535 sub softlink_complete_directory
 536 {
 537     my ($sourcedir, $destdir, $depth) = @_;
 538
 539     my @sourcefiles = ();
 540
 541     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 542     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 543
 544     if ( ! -d $destdir ) { create_directory($destdir); }
 545
 546     my $infoline = "\n";
 547     push(@installer::globals::logfileinfo, $infoline);
 548     $infoline = "Creating soft links for all files from directory $sourcedir to directory $destdir\n";
 549     push(@installer::globals::logfileinfo, $infoline);
 550
 551     opendir(DIR, $sourcedir);
 552     @sourcefiles = readdir(DIR);
 553     closedir(DIR);
 554
 555     my $onefile;
 556
 557     foreach $onefile (@sourcefiles)
 558     {
 559         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 560         {
 561             my $source = $sourcedir . $installer::globals::separator . $onefile;
 562             my $dest = $destdir . $installer::globals::separator . $onefile;
 563             if ( -f $source )   # only files, no directories
 564             {
 565                 my $localsource = $source;
 566                 if ( $depth > 0 ) { for ( my $i = 1; $i <= $depth; $i++ ) { $localsource = "../" . $localsource; } }
 567                 softlink_one_file($localsource, $dest);
 568             }
 569             if ( -d $source )   # recursive
 570             {
 571                 my $newdepth = $depth + 1;
 572                 softlink_complete_directory($source, $dest, $newdepth);
 573             }
 574         }
 575     }
 576 }
 577
 578 #####################################################
 579 # Copying a complete directory with sub directories.
 580 #####################################################
 581
 582 sub copy_complete_directory
 583 {
 584     my ($sourcedir, $destdir) = @_;
 585
 586     my @sourcefiles = ();
 587
 588     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 589     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 590
 591     if ( ! -d $destdir ) { create_directory($destdir); }
 592
 593     my $infoline = "\n";
 594     push(@installer::globals::logfileinfo, $infoline);
 595     $infoline = "Copying files from directory $sourcedir to directory $destdir\n";
 596     push(@installer::globals::logfileinfo, $infoline);
 597
 598     opendir(DIR, $sourcedir);
 599     @sourcefiles = readdir(DIR);
 600     closedir(DIR);
 601
 602     my $onefile;
 603
 604     foreach $onefile (@sourcefiles)
 605     {
 606         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 607         {
 608             my $source = $sourcedir . $installer::globals::separator . $onefile;
 609             my $dest = $destdir . $installer::globals::separator . $onefile;
 610             if ( -f $source )   # only files, no directories
 611             {
 612                 copy_one_file($source, $dest);
 613             }
 614             if ( -d $source )   # recursive
 615             {
 616                 if ((!( $source =~ /packages\/SUNW/ )) && (!( $source =~ /packages\/OOO/ )))    # do not copy complete Solaris packages!
 617                 {
 618                     copy_complete_directory($source, $dest);
 619                 }
 620             }
 621         }
 622     }
 623 }
 624
 625 #####################################################
 626 # Copying all files with a specified file extension
 627 # from one directory to another directory.
 628 #####################################################
 629
 630 sub copy_directory_with_fileextension
 631 {
 632     my ($sourcedir, $destdir, $extension) = @_;
 633
 634     my @sourcefiles = ();
 635
 636     $sourcedir =~ s/\Q$installer::globals::separator\E\s*$//;
 637     $destdir =~ s/\Q$installer::globals::separator\E\s*$//;
 638
 639     $infoline = "\n";
 640     push(@installer::globals::logfileinfo, $infoline);
 641     $infoline = "Copying files with extension $extension from directory $sourcedir to directory $destdir\n";
 642     push(@installer::globals::logfileinfo, $infoline);
 643
 644     opendir(DIR, $sourcedir);
 645     @sourcefiles = readdir(DIR);
 646     closedir(DIR);
 647
 648     my $onefile;
 649
 650     foreach $onefile (@sourcefiles)
 651     {
 652         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 653         {
 654             if ( $onefile =~ /\.$extension\s*$/ )   # only copying specified files
 655             {
 656                 my $sourcefile = $sourcedir . $installer::globals::separator . $onefile;
 657                 my $destfile = $destdir . $installer::globals::separator . $onefile;
 658                 if ( -f $sourcefile )   # only files, no directories
 659                 {
 660                     copy_one_file($sourcefile, $destfile);
 661                 }
 662             }
 663         }
 664     }
 665 }
 666
 667 ########################################################
 668 # Renaming all files with a specified file extension
 669 # in a specified directory.
 670 # Example: "Feature.idt.01" -> "Feature.idt"
 671 ########################################################
 672
 673 sub rename_files_with_fileextension
 674 {
 675     my ($dir, $extension) = @_;
 676
 677     my @sourcefiles = ();
 678
 679     $dir =~ s/\Q$installer::globals::separator\E\s*$//;
 680
 681     my $infoline = "\n";
 682     push(@installer::globals::logfileinfo, $infoline);
 683     $infoline = "Renaming files with extension \"$extension\" in the directory $dir\n";
 684     push(@installer::globals::logfileinfo, $infoline);
 685
 686     opendir(DIR, $dir);
 687     @sourcefiles = readdir(DIR);
 688     closedir(DIR);
 689
 690     my $onefile;
 691
 692     foreach $onefile (@sourcefiles)
 693     {
 694         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 695         {
 696             if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ )    # only renaming specified files
 697             {
 698                 my $destfile = $1;
 699                 my $sourcefile = $dir . $installer::globals::separator . $onefile;
 700                 $destfile = $dir . $installer::globals::separator . $destfile;
 701                 if ( -f $sourcefile )   # only files, no directories
 702                 {
 703                     rename_one_file($sourcefile, $destfile);
 704                 }
 705             }
 706         }
 707     }
 708 }
 709
 710 ########################################################
 711 # Finding all files with a specified file extension
 712 # in a specified directory.
 713 ########################################################
 714
 715 sub find_file_with_file_extension
 716 {
 717     my ($extension, $dir) = @_;
 718
 719     my @allfiles = ();
 720
 721     $dir =~ s/\Q$installer::globals::separator\E\s*$//;
 722
 723     my $infoline = "\n";
 724     push(@installer::globals::logfileinfo, $infoline);
 725     $infoline = "Searching files with extension \"$extension\" in the directory $dir\n";
 726     push(@installer::globals::logfileinfo, $infoline);
 727
 728     opendir(DIR, $dir);
 729     @sourcefiles = sort readdir(DIR);
 730     closedir(DIR);
 731
 732     my $onefile;
 733
 734     foreach $onefile (@sourcefiles)
 735     {
 736         if ((!($onefile eq ".")) && (!($onefile eq "..")))
 737         {
 738             if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ )
 739             {
 740                 push(@allfiles, $onefile)
 741             }
 742         }
 743     }
 744
 745     return \@allfiles;
 746 }
 747
 748 ##############################################################
 749 # Creating a unique directory, for example "01_inprogress_7"
 750 # in the install directory.
 751 ##############################################################
 752
 753 sub make_numbered_dir
 754 {
 755     my ($newstring, $olddir) = @_;
 756
 757     my $basedir = $olddir;
 758     installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir);
 759
 760     my $alldirs = get_all_directories($basedir);
 761
 762     # searching for the highest number extension
 763
 764     my $maxnumber = 0;
 765
 766     for ( my $i = 0; $i <= $#{$alldirs}; $i++ )
 767     {
 768         if ( ${$alldirs}[$i] =~ /\_(\d+)\s*$/ )
 769         {
 770             my $number = $1;
 771             if ( $number > $maxnumber ) { $maxnumber = $number; }
 772         }
 773     }
 774
 775     my $newnumber = $maxnumber + 1;
 776
 777     my $newdir = $olddir . "_" . $newstring . "_" . $newnumber;
 778
 779     my $returndir = "";
 780
 781     if ( move($olddir, $newdir) )
 782     {
 783         $infoline = "\nMoved directory from $olddir to $newdir\n";
 784         push(@installer::globals::logfileinfo, $infoline);
 785         $returndir = $newdir;
 786     }
 787     else
 788     {
 789         $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"make_numbered_dir\"\n";
 790         push(@installer::globals::logfileinfo, $infoline);
 791         $returndir = $olddir;
 792     }
 793
 794     return $returndir;
 795 }
 796
 797 #####################################################################################
 798 # Renaming a directory by exchanging a string, for example from "01_inprogress_7"
 799 # to "01_witherror_7".
 800 #####################################################################################
 801
 802 sub rename_string_in_directory
 803 {
 804     my ($olddir, $oldstring, $newstring) = @_;
 805
 806     my $newdir = $olddir;
 807     my $infoline = "";
 808
 809     $newdir =~ s/$oldstring/$newstring/g;
 810
 811     if (( -d $newdir ) && ( $olddir ne $newdir )) { remove_complete_directory($newdir, 1); }
 812
 813     if ( move($olddir, $newdir) )
 814     {
 815         $infoline = "\nMoved directory from $olddir to $newdir\n";
 816         push(@installer::globals::logfileinfo, $infoline);
 817     }
 818     else
 819     {
 820         $infoline = "\nATTENTION: Could not move directory from $olddir to $newdir, \"rename_string_in_directory\"\n";
 821         push(@installer::globals::logfileinfo, $infoline);
 822     }
 823
 824     return $newdir;
 825 }
 826
 827 ######################################################
 828 # Returning the complete directory name,
 829 # input is the first part of the directory name.
 830 ######################################################
 831
 832 sub get_directoryname
 833 {
 834     my ($searchdir, $startstring) = @_;
 835
 836     my $dirname = "";
 837     my $founddir = 0;
 838     my $direntry;
 839
 840     opendir(DIR, $searchdir);
 841
 842     foreach $direntry (readdir (DIR))
 843     {
 844         next if $direntry eq ".";
 845         next if $direntry eq "..";
 846
 847         if (( -d $direntry ) && ( $direntry =~ /^\s*\Q$startstring\E/ ))
 848         {
 849             $dirname = $direntry;
 850             $founddir = 1;
 851             last;
 852         }
 853     }
 854
 855     closedir(DIR);
 856
 857     if ( ! $founddir ) { installer::exiter::exit_program("ERROR: Did not find directory beginning with $startstring in directory $searchdir", "get_directoryname"); }
 858
 859     return $dirname;
 860 }
 861
 862
 863 ###################################
 864 # Renaming a directory
 865 ###################################
 866
 867 sub rename_directory
 868 {
 869     my ($olddir, $newdir) = @_;
 870
 871     my $infoline = "";
 872
 873     if ( move($olddir, $newdir) )
 874     {
 875         $infoline = "\nMoved directory from $olddir to $newdir\n";
 876         push(@installer::globals::logfileinfo, $infoline);
 877     }
 878     else
 879     {
 880         installer::exiter::exit_program("ERROR: Could not move directory from $olddir to $newdir $!", "rename_directory");
 881     }
 882
 883     return $newdir;
 884 }
 885
 886 ##############################################################
 887 # Creating a directory next to an existing directory
 888 ##############################################################
 889
 890 sub create_directory_next_to_directory
 891 {
 892     my ($topdir, $dirname) = @_;
 893
 894     my $basedir = $topdir;
 895     installer::pathanalyzer::get_path_from_fullqualifiedname(\$basedir);
 896
 897     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
 898
 899     my $newdir = $basedir . $installer::globals::separator . $dirname;
 900
 901     create_directory($newdir);
 902
 903     return $newdir;
 904 }
 905
 906 ##############################################################
 907 # Collecting all directories inside a directory
 908 ##############################################################
 909
 910 sub get_all_directories
 911 {
 912     my ($basedir) = @_;
 913
 914     my @alldirs = ();
 915     my $direntry;
 916
 917     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
 918
 919     opendir(DIR, $basedir);
 920
 921     foreach $direntry (readdir (DIR))
 922     {
 923         next if $direntry eq ".";
 924         next if $direntry eq "..";
 925
 926         my $completeentry = $basedir . $installer::globals::separator . $direntry;
 927
 928         if ( -d $completeentry ) { push(@alldirs, $completeentry); }
 929     }
 930
 931     closedir(DIR);
 932
 933     return \@alldirs;
 934 }
 935
 936 ##############################################################
 937 # Collecting all directories inside a directory
 938 # Returning without path
 939 ##############################################################
 940
 941 sub get_all_directories_without_path
 942 {
 943     my ($basedir) = @_;
 944
 945     my @alldirs = ();
 946     my $direntry;
 947
 948     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
 949
 950     opendir(DIR, $basedir);
 951
 952     foreach $direntry (readdir (DIR))
 953     {
 954         next if $direntry eq ".";
 955         next if $direntry eq "..";
 956
 957         my $completeentry = $basedir . $installer::globals::separator . $direntry;
 958
 959         if ( -d $completeentry ) { push(@alldirs, $direntry); }
 960     }
 961
 962     closedir(DIR);
 963
 964     return \@alldirs;
 965 }
 966
 967 ##############################################################
 968 # Collecting all files and directories inside one directory
 969 ##############################################################
 970
 971 sub read_directory
 972 {
 973     my ($basedir) = @_;
 974
 975     my @allcontent = ();
 976     my $direntry;
 977
 978     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
 979
 980     opendir(DIR, $basedir);
 981
 982     foreach $direntry (readdir (DIR))
 983     {
 984         next if $direntry eq ".";
 985         next if $direntry eq "..";
 986
 987         my $completeentry = $basedir . $installer::globals::separator . $direntry;
 988
 989         if (( -f $completeentry ) || ( -d $completeentry )) { push(@allcontent, $completeentry); }
 990     }
 991
 992     closedir(DIR);
 993
 994     return \@allcontent;
 995 }
 996
 997 ##############################################################
 998 # Finding the new content in a directory
 999 ##############################################################
1000
1001 sub find_new_content_in_directory
1002 {
1003     my ( $basedir, $oldcontent ) = @_;
1004
1005     my @newcontent = ();
1006     my @allcontent = ();
1007
1008     my $direntry;
1009
1010     $basedir =~ s/\Q$installer::globals::separator\E\s*$//;
1011
1012     opendir(DIR, $basedir);
1013
1014     foreach $direntry (readdir (DIR))
1015     {
1016         next if $direntry eq ".";
1017         next if $direntry eq "..";
1018
1019         my $completeentry = $basedir . $installer::globals::separator . $direntry;
1020
1021         if (( -f $completeentry ) || ( -d $completeentry ))
1022         {
1023             push(@allcontent, $completeentry);
1024             if (! grep {$_ eq $completeentry} @{$oldcontent})
1025             {
1026                 push(@newcontent, $completeentry);
1027             }
1028         }
1029     }
1030
1031     closedir(DIR);
1032
1033     return (\@newcontent, \@allcontent);
1034 }
1035
1036 ##############################################################
1037 # Trying to create a directory, no error if this fails
1038 ##############################################################
1039
1040 sub try_to_create_directory
1041 {
1042     my ($directory) = @_;
1043
1044     my $returnvalue = 1;
1045     my $created_directory = 0;
1046
1047     if (!(-d $directory))
1048     {
1049         $returnvalue = mkdir($directory, 0775);
1050
1051         if ($returnvalue)
1052         {
1053             $created_directory = 1;
1054             $infoline = "\nCreated directory: $directory\n";
1055             push(@installer::globals::logfileinfo, $infoline);
1056
1057             chmod 0775, $directory;
1058         }
1059         else
1060         {
1061             $created_directory = 0;
1062         }
1063     }
1064     else
1065     {
1066         $created_directory = 1;
1067     }
1068
1069     return $created_directory;
1070 }
1071
1072 ##############################################################
1073 # Creating a complete directory structure
1074 ##############################################################
1075
1076 sub create_directory_structure
1077 {
1078     my ($directory) = @_;
1079
1080     if ( ! try_to_create_directory($directory) )
1081     {
1082         my $parentdir = $directory;
1083         installer::pathanalyzer::get_path_from_fullqualifiedname(\$parentdir);
1084
1085         my $infoline = "INFO: Did not create directory $directory\n";
1086         push(@installer::globals::logfileinfo, $infoline);
1087         $infoline = "Now trying to create parent directory $parentdir\n";
1088         push(@installer::globals::logfileinfo, $infoline);
1089
1090         create_directory_structure($parentdir);                                 # recursive
1091     }
1092
1093     create_directory($directory);   # now it has to succeed
1094 }
1095
1096 ######################################################
1097 # Removing a complete directory with subdirectories
1098 ######################################################
1099
1100 sub remove_complete_directory
1101 {
1102     my ($directory, $start) = @_;
1103
1104     my @content = ();
1105     my $infoline = "";
1106
1107     $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1108
1109     if ( -d $directory )
1110     {
1111         if ( $start )
1112         {
1113             $infoline = "\n";
1114             push(@installer::globals::logfileinfo, $infoline);
1115             $infoline = "Removing directory $directory\n";
1116             push(@installer::globals::logfileinfo, $infoline);
1117         }
1118
1119         opendir(DIR, $directory);
1120         @content = readdir(DIR);
1121         closedir(DIR);
1122
1123         my $oneitem;
1124
1125         foreach $oneitem (@content)
1126         {
1127             if ((!($oneitem eq ".")) && (!($oneitem eq "..")))
1128             {
1129                 my $item = $directory . $installer::globals::separator . $oneitem;
1130
1131                 if ( -f $item || -l $item )     # deleting files or links
1132                 {
1133                     unlink($item);
1134                 }
1135
1136                 if ( -d $item )     # recursive
1137                 {
1138                     remove_complete_directory($item, 0);
1139                 }
1140             }
1141         }
1142
1143         # try to remove empty directory
1144
1145         my $returnvalue = rmdir $directory;
1146
1147         if ( ! $returnvalue )
1148         {
1149             $infoline = "Warning: Problem with removing empty dir $directory\n";
1150             push(@installer::globals::logfileinfo, $infoline);
1151         }
1152
1153         # try a little bit harder (sometimes there is a performance problem)
1154         if ( -d $directory )
1155         {
1156             for ( my $j = 1; $j <= 3; $j++ )
1157             {
1158                 if ( -d $directory )
1159                 {
1160                     $infoline = "\n";
1161                     push(@installer::globals::logfileinfo, $infoline);
1162                     $infoline = "Warning (Try $j): Problems with removing directory $directory\n";
1163                     push(@installer::globals::logfileinfo, $infoline);
1164
1165                     $returnvalue = rmdir $directory;
1166
1167                     if ( $returnvalue )
1168                     {
1169                         $infoline = "Successfully removed empty dir $directory\n";
1170                         push(@installer::globals::logfileinfo, $infoline);
1171                     } else {
1172                         $infoline = "Warning: rmdir $directory failed.\n";
1173                         push(@installer::globals::logfileinfo, $infoline);
1174                     }
1175                 }
1176             }
1177         }
1178     }
1179 }
1180
1181 ######################################################
1182 # Creating a unique directory with pid extension
1183 ######################################################
1184
1185 sub create_pid_directory
1186 {
1187     my ($directory) = @_;
1188
1189     $directory =~ s/\Q$installer::globals::separator\E\s*$//;
1190     my $pid = $$;           # process id
1191     my $time = time();      # time
1192
1193     $directory = $directory . "_" . $pid . $time;
1194
1195     if ( ! -d $directory ) { create_directory($directory); }
1196     else { installer::exiter::exit_program("ERROR: Directory $directory already exists!", "create_pid_directory"); }
1197
1198     return $directory;
1199 }
1200
1201 ##############################################################
1202 # Reading all files from a directory and its subdirectories
1203 ##############################################################
1204
1205 sub read_complete_directory
1206 {
1207     my ($directory, $pathstring, $filecollector) = @_;
1208
1209     my @content = ();
1210     opendir(DIR, $directory);
1211     @content = readdir(DIR);
1212     closedir(DIR);
1213
1214     my $onefile;
1215
1216     foreach $onefile (@content)
1217     {
1218         if ((!($onefile eq ".")) && (!($onefile eq "..")))
1219         {
1220             my $completefilename = $directory . $installer::globals::separator . $onefile;
1221             my $sep = "";
1222             if ( $pathstring ne "" ) { $sep = $installer::globals::separator; }
1223
1224             if ( ! -d $completefilename )   # only files, no directories
1225             {
1226                 my $content = $pathstring . $sep . $onefile;
1227                 push(@{$filecollector}, $content);
1228             }
1229             else  # recursive for directories
1230             {
1231                 my $newpathstring = $pathstring . $sep . $onefile;
1232                 read_complete_directory($completefilename, $newpathstring, $filecollector);
1233             }
1234         }
1235     }
1236 }
1237
1238 ##############################################################
1239 # Reading all files from a directory and its subdirectories
1240 # Version 2
1241 ##############################################################
1242
1243 sub read_full_directory {
1244     my ( $currentdir, $pathstring, $collector ) = @_;
1245     my $item;
1246     my $fullname;
1247     local *DH;
1248
1249     unless (opendir(DH, $currentdir))
1250     {
1251         return;
1252     }
1253     while (defined ($item = readdir(DH)))
1254     {
1255         next if($item eq "." or $item eq "..");
1256         $fullname = $currentdir . $installer::globals::separator . $item;
1257         my $sep = "";
1258         if ( $pathstring ne "" ) { $sep = $installer::globals::separator; }
1259
1260         if( -d $fullname)
1261         {
1262             my $newpathstring = $pathstring . $sep . $item;
1263             read_full_directory($fullname, $newpathstring, $collector) if(-d $fullname);
1264         }
1265         else
1266         {
1267             my $content = $pathstring . $sep . $item;
1268             push(@{$collector}, $content);
1269         }
1270     }
1271     closedir(DH);
1272     return
1273 }
1274
1275 ##############################################################
1276 # Removing all empty directories below a specified directory
1277 ##############################################################
1278
1279 sub remove_empty_dirs_in_folder
1280 {
1281     my ( $dir ) = @_;
1282
1283     my @content = ();
1284     my $infoline = "";
1285
1286     $dir =~ s/\Q$installer::globals::separator\E\s*$//;
1287
1288     if ( -d $dir )
1289     {
1290         opendir(DIR, $dir);
1291         @content = readdir(DIR);
1292         closedir(DIR);
1293
1294         my $oneitem;
1295
1296         foreach $oneitem (@content)
1297         {
1298             if ((!($oneitem eq ".")) && (!($oneitem eq "..")))
1299             {
1300                 my $item = $dir . $installer::globals::separator . $oneitem;
1301
1302                 if ( -d $item ) # recursive
1303                 {
1304                     remove_empty_dirs_in_folder($item);
1305                 }
1306             }
1307         }
1308
1309         # try to remove empty directory
1310         my $returnvalue = rmdir $dir;
1311
1312         if ( $returnvalue )
1313         {
1314             $infoline = "Successfully removed empty dir $dir\n";
1315             push(@installer::globals::logfileinfo, $infoline);
1316         }
1317
1318     }
1319
1320 }
1321
1322 ######################################################
1323 # Making systemcall
1324 ######################################################
1325
1326 sub make_systemcall
1327 {
1328     my ($systemcall) = @_;
1329
1330     my $returnvalue = system($systemcall);
1331
1332     my $infoline = "Systemcall: $systemcall\n";
1333     push( @installer::globals::logfileinfo, $infoline);
1334
1335     if ($returnvalue)
1336     {
1337         $infoline = "ERROR: Could not execute \"$systemcall\"!\n";
1338         push( @installer::globals::logfileinfo, $infoline);
1339     }
1340     else
1341     {
1342         $infoline = "Success: Executed \"$systemcall\" successfully!\n";
1343         push( @installer::globals::logfileinfo, $infoline);
1344     }
1345 }
1346
1347 1;