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