replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster

1 files changed, 0 insertions, 1443 deletions

diff --git a/setup_native/scripts/admin.pl b/setup_native/scripts/admin.pl
deleted file mode 100644
index 57cae516b..000000000
--- a/setup_native/scripts/admin.pl
+++ /dev/null
@@ -1,1443 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-# 
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org.  If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-use Cwd;
-use File::Copy;
-
-#################################################################################
-# Global settings
-#################################################################################
-
-BEGIN
-{
-    $prog = "msi installer";
-    $targetdir = "";
-    $databasepath = "";
-    $starttime = "";
-    $globaltempdirname = "ooopackaging";
-    $savetemppath = "";
-    $msiinfo_available = 0;
-    $path_displayed = 0;
-    $localmsidbpath = "";
-
-    $plat = $^O;
-
-    if ( $plat =~ /cygwin/i )
-    {
-        $separator = "/";
-        $pathseparator = "\:";
-    }
-    else
-    {
-        $separator = "\\";
-        $pathseparator = "\;";
-    }
-}
-
-#################################################################################
-# Program information
-#################################################################################
-
-sub usage
-{
-    print <<Ende;
-----------------------------------------------------------------------
-This program installs a Windows Installer installation set
-without using msiexec.exe. The installation is comparable
-with an administrative installation using the Windows Installer
-service.
-Required parameter:
--d Path to installation set or msi database
--t Target directory
----------------------------------------------------------------------
-Ende
-    exit(-1);
-}
-
-#################################################################################
-# Collecting parameter
-#################################################################################
-
-sub getparameter
-{
-    if (( $#ARGV < 3 ) || ( $#ARGV > 3 )) { usage(); }
-
-    while ( $#ARGV >= 0 )
-    {
-        my $param = shift(@ARGV);
-        
-        if ($param eq "-t") { $targetdir = shift(@ARGV); }
-        elsif ($param eq "-d") { $databasepath = shift(@ARGV); }
-        else
-        {
-            print "\n**********************************************\n";
-            print "Error: Unknows parameter: $param";
-            print "\n**********************************************\n";
-            usage();
-            exit(-1);
-        }
-    }
-}
-
-#################################################################################
-# Checking content of parameter
-#################################################################################
-
-sub controlparameter
-{
-    if ( $targetdir eq "" )
-    {
-        print "\n******************************************************\n";
-        print "Error: Target directory not defined (parameter -t)!";
-        print "\n******************************************************\n";
-        usage();
-        exit(-1);
-    }
-
-    if ( $databasepath eq "" )
-    {
-        print "\n******************************************************\n";
-        print "Error: Path to msi database not defined (parameter -d)!";
-        print "\n******************************************************\n";
-        usage();
-        exit(-1);
-    }
-    
-    if ( -d $databasepath )
-    {
-        $databasepath =~ s/\\\s*$//;
-        $databasepath =~ s/\/\s*$//;
-        
-        my $msifiles = find_file_with_file_extension("msi", $databasepath);
-    
-        if ( $#{$msifiles} < 0 ) { exit_program("ERROR: Did not find msi database in directory $installationdir"); }
-        if ( $#{$msifiles} > 0 ) { exit_program("ERROR: Did find more than one msi database in directory $installationdir"); }
-
-        $databasepath = $databasepath . $separator . ${$msifiles}[0];
-    }
-
-    if ( ! -f $databasepath ) { exit_program("ERROR: Did not find msi database in directory $databasepath."); }
-    
-    if ( ! -d $targetdir ) { create_directories($targetdir); }
-}
-
-#############################################################################
-# The program msidb.exe can be located next to the Perl program. Then it is
-# not neccessary to find it in the PATH variable. 
-#############################################################################
-
-sub check_local_msidb
-{
-    my $msidbname = "msidb.exe";
-    my $perlprogramm = $0;
-    my $path = $perlprogramm;
-    
-    get_path_from_fullqualifiedname(\$path);
-
-    $path =~ s/\\\s*$//;
-    $path =~ s/\/\s*$//;
-
-    my $msidbpath = "";
-    if ( $path =~ /^\s*$/ ) { $msidbpath = $msidbname; }
-    else { $msidbpath = $path . $separator . $msidbname; }
-
-    if ( -f $msidbpath )
-    {
-        $localmsidbpath = $msidbpath;
-        print "Using $msidbpath (next to \"admin.pl\")\n";
-    }
-}
-
-#############################################################################
-# Converting a string list with separator $listseparator 
-# into an array
-#############################################################################
-
-sub convert_stringlist_into_array
-{
-    my ( $includestringref, $listseparator ) = @_;
-    
-    my @newarray = ();
-    my $first;
-    my $last = ${$includestringref};
-
-    while ( $last =~ /^\s*(.+?)\Q$listseparator\E(.+)\s*$/)	# "$" for minimal matching
-    {
-        $first = $1;
-        $last = $2;	
-        # Problem with two directly following listseparators. For example a path with two ";;" directly behind each other
-        $first =~ s/^$listseparator//;
-        push(@newarray, "$first\n");
-    }	
-
-    push(@newarray, "$last\n");	
-    
-    return \@newarray;
-}
-
-#########################################################
-# Checking the local system
-# Checking existence of needed files in include path
-#########################################################
-
-sub check_system_path
-{
-    my $onefile;	
-    my $error = 0;
-    my $pathvariable = $ENV{'PATH'};
-    my $local_pathseparator = $pathseparator;
-    
-    if( $^O =~ /cygwin/i )
-    {	# When using cygwin's perl the PATH variable is POSIX style and ...
-        $pathvariable = qx{cygpath -mp "$pathvariable"} ;
-        # has to be converted to DOS style for further use.
-        $local_pathseparator = ';';
-    }
-    my $patharrayref = convert_stringlist_into_array(\$pathvariable, $local_pathseparator);
-    
-    my @needed_files_in_path = ("expand.exe");
-    if ( $localmsidbpath eq "" ) { push(@needed_files_in_path, "msidb.exe"); } # not found locally -> search in path
-    my @optional_files_in_path = ("msiinfo.exe");
-
-    print("\nChecking required files:\n");
-
-    foreach $onefile ( @needed_files_in_path )
-    {
-        print("...... searching $onefile ...");
-
-        my $fileref = get_sourcepath_from_filename_and_includepath(\$onefile, $patharrayref);
-
-        if ( $$fileref eq "" )
-        {
-            $error = 1;
-            print( "$onefile not found\n" );
-        }
-        else
-        {
-            print( "\tFound: $$fileref\n" );
-        }		
-    }
-
-    if ( $error ) { exit_program("ERROR: Could not find all needed files in path (using setsolar should help)!"); }
-
-    print("\nChecking optional files:\n");
-
-    foreach $onefile ( @optional_files_in_path )
-    {
-        print("...... searching $onefile ...");
-
-        my $fileref = get_sourcepath_from_filename_and_includepath(\$onefile, $patharrayref);
-
-        if ( $$fileref eq "" )
-        {
-            print( "$onefile not found\n" );
-            if ( $onefile eq "msiinfo.exe" ) { $msiinfo_available = 0; }
-        }
-        else
-        {
-            print( "\tFound: $$fileref\n" );
-            if ( $onefile eq "msiinfo.exe" ) { $msiinfo_available = 1; }
-        }		
-    }
-
-}
-
-##########################################################################
-# Searching a file in a list of pathes
-##########################################################################
-
-sub get_sourcepath_from_filename_and_includepath
-{
-    my ($searchfilenameref, $includepatharrayref) = @_;
-
-    my $onefile = "";
-    my $foundsourcefile = 0;
-        
-    for ( my $j = 0; $j <= $#{$includepatharrayref}; $j++ )
-    {
-        my $includepath = ${$includepatharrayref}[$j];
-        $includepath =~ s/^\s*//;
-        $includepath =~ s/\s*$//;
-
-        $onefile = $includepath . $separator . $$searchfilenameref;
-
-        if ( -f $onefile )
-        {
-            $foundsourcefile = 1;
-            last;
-        }
-    }
-
-    if (!($foundsourcefile)) { $onefile = ""; }
-    
-    return \$onefile;
-}
-
-##############################################################
-# Removing all empty directories below a specified directory
-##############################################################
-
-sub remove_empty_dirs_in_folder
-{
-    my ( $dir, $firstrun ) = @_;
-
-    if ( $firstrun )
-    {
-        print "Removing superfluous directories\n";
-    }
-
-    my @content = ();
-    
-    $dir =~ s/\Q$separator\E\s*$//;
-
-    if ( -d $dir )
-    {
-        opendir(DIR, $dir);
-        @content = readdir(DIR);
-        closedir(DIR);
-
-        my $oneitem;
-    
-        foreach $oneitem (@content)
-        {
-            if ((!($oneitem eq ".")) && (!($oneitem eq "..")))
-            {
-                my $item = $dir . $separator . $oneitem;
-
-                if ( -d $item ) # recursive
-                {
-                    remove_empty_dirs_in_folder($item, 0);
-                }
-            }
-        }
-        
-        # try to remove empty directory		
-        my $returnvalue = rmdir $dir;
-
-        # if ( $returnvalue ) { print "Successfully removed empty dir $dir\n"; }	
-    }
-}
-
-####################################################
-# Detecting the directory with extensions
-####################################################
-
-sub get_extensions_dir
-{
-    my ( $unopkgfile ) = @_;
-    
-    my $localbranddir = $unopkgfile;
-    get_path_from_fullqualifiedname(\$localbranddir); # "program" dir in brand layer
-    get_path_from_fullqualifiedname(\$localbranddir); # root dir in brand layer
-    $localbranddir =~ s/\Q$separator\E\s*$//;
-    my $extensiondir = $localbranddir . $separator . "share" . $separator . "extensions";
-    my $preregdir = $localbranddir . $separator . "share" . $separator . "prereg" . $separator . "bundled";
-    
-    return ($extensiondir, $preregdir);	
-}
-
-########################################################
-# Finding all files with a specified file extension
-# in a specified directory.
-########################################################
-
-sub find_file_with_file_extension
-{
-    my ($extension, $dir) = @_;
-    
-    my @allfiles = ();
-    my @sourcefiles = ();
-
-    $dir =~ s/\Q$separator\E\s*$//;
-
-    opendir(DIR, $dir);
-    @sourcefiles = readdir(DIR);
-    closedir(DIR);
-
-    my $onefile;
-    
-    foreach $onefile (@sourcefiles)
-    {
-        if ((!($onefile eq ".")) && (!($onefile eq "..")))
-        {
-            if ( $onefile =~ /^\s*(\S.*?)\.$extension\s*$/ )
-            {
-                push(@allfiles, $onefile)
-            }
-        }
-    }
-    
-    return \@allfiles;
-}
-
-##############################################################
-# Creating a directory with all parent directories
-##############################################################
-
-sub create_directories
-{
-    my ($directory) = @_;
-
-    if ( ! try_to_create_directory($directory) )
-    {
-        my $parentdir = $directory;
-        get_path_from_fullqualifiedname(\$parentdir);
-        create_directories($parentdir);   # recursive
-    }
-    
-    create_directory($directory);	# now it has to succeed
-}
-
-##############################################################
-# Creating one directory
-##############################################################
-
-sub create_directory
-{
-    my ($directory) = @_;
-
-    if ( ! -d $directory ) { mkdir($directory, 0775); }
-}
-
-##############################################################
-# Trying to create a directory, no error if this fails
-##############################################################
-
-sub try_to_create_directory
-{
-    my ($directory) = @_;
-    
-    my $returnvalue = 1;
-    my $created_directory = 0;
-
-    if (!(-d $directory))
-    {
-        $returnvalue = mkdir($directory, 0775);
-
-        if ($returnvalue)
-        {
-            $created_directory = 1;
-    
-            my $localcall = "chmod 775 $directory \>\/dev\/null 2\>\&1";
-            system($localcall);
-        }
-        else
-        {
-            $created_directory = 0;
-        }
-    }
-    else
-    {
-        $created_directory = 1;
-    }
-
-    return $created_directory;
-}
-
-###########################################
-# Getting path from full file name
-###########################################
-
-sub get_path_from_fullqualifiedname
-{
-    my ($longfilenameref) = @_;
-
-    if ( $$longfilenameref =~ /\Q$separator\E/ )	# Is there a separator in the path? Otherwise the path is empty.
-    {	
-        if ( $$longfilenameref =~ /^\s*(\S.*\Q$separator\E)(\S.+\S?)/ )
-        {
-            $$longfilenameref = $1;
-        }
-    }
-    else
-    {
-        $$longfilenameref = "";	# there is no path
-    }	
-}
-
-##############################################################
-# Getting file name from full file name
-##############################################################
-
-sub make_absolute_filename_to_relative_filename
-{
-    my ($longfilenameref) = @_;
-    
-    # Either '/' or '\'.
-    if ( $$longfilenameref =~ /^.*[\/\\](\S.+\S?)/ )
-    {
-        $$longfilenameref = $1;
-    }
-}
-
-############################################
-# Exiting the program with an error
-# This function is used instead of "die"
-############################################
-
-sub exit_program
-{
-    my ($message) = @_;
-
-    print "\n***************************************************************\n";
-    print "$message\n";
-    print "***************************************************************\n";
-    remove_complete_directory($savetemppath, 1);
-    print "\n" . get_time_string();
-    exit(-1);	
-}
-
-#################################################################################
-# Unpacking cabinet files with expand
-#################################################################################
-
-sub unpack_cabinet_file
-{
-    my ($cabfilename, $unpackdir) = @_;
-    
-    my $expandfile = "expand.exe"; # has to be in the PATH
-    
-    # expand.exe has to be located in the system directory.
-    # Cygwin has another tool expand.exe, that converts tabs to spaces. This cannot be used of course. 
-    # But this wrong expand.exe is typically in the PATH before this expand.exe, to unpack 
-    # cabinet files.
-
-    if ( $^O =~ /cygwin/i )
-    {
-        $expandfile = $ENV{'SYSTEMROOT'} . "/system32/expand.exe"; # Has to be located in the systemdirectory
-        $expandfile =~ s/\\/\//;
-        if ( ! -f $expandfile ) { exit_program("ERROR: Did not find file $expandfile in the Windows system folder!"); }
-    }
-    
-    my $expandlogfile = $unpackdir . $separator . "expand.log";
-
-    # exclude cabinet file
-    # my $systemcall = $cabarc . " -o X " . $mergemodulehash->{'cabinetfile'};
-
-    my $systemcall = "";
-    if ( $^O =~ /cygwin/i ) {
-        my $localunpackdir = qx{cygpath -w "$unpackdir"};
-        $localunpackdir =~ s/\\/\\\\/g;
-
-        my $localcabfilename = qx{cygpath -w "$cabfilename"};
-        $localcabfilename =~ s/\\/\\\\/g;
-        $localcabfilename =~ s/\s*$//g;
-
-        $systemcall = $expandfile . " " . $localcabfilename . " -F:\* " . $localunpackdir . " \>\/dev\/null 2\>\&1";
-    }
-    else
-    {
-        $systemcall = $expandfile . " " . $cabfilename . " -F:\* " . $unpackdir . " \> " . $expandlogfile;
-    }
-
-    my $returnvalue = system($systemcall);
-
-    if ($returnvalue) { exit_program("ERROR: Could not execute $systemcall !"); }
-}
-
-#################################################################################
-# Extracting tables from msi database
-#################################################################################
-
-sub extract_tables_from_database
-{
-    my ($fullmsidatabasepath, $workdir, $tablelist) = @_;
-
-    my $msidb = "msidb.exe";	# Has to be in the path
-    if ( $localmsidbpath ) { $msidb = $localmsidbpath; }
-    my $infoline = "";
-    my $systemcall = "";
-    my $returnvalue = "";
-
-    if ( $^O =~ /cygwin/i ) {
-        chomp( $fullmsidatabasepath = qx{cygpath -w "$fullmsidatabasepath"} ); 
-        # msidb.exe really wants backslashes. (And double escaping because system() expands the string.)
-        $fullmsidatabasepath =~ s/\\/\\\\/g;
-        $workdir =~ s/\\/\\\\/g;
-        # and if there are still slashes, they also need to be double backslash
-        $fullmsidatabasepath =~ s/\//\\\\/g;
-        $workdir =~ s/\//\\\\/g;
-    }
-
-    # Export of all tables by using "*"
-                            
-    $systemcall = $msidb . " -d " . $fullmsidatabasepath . " -f " . $workdir . " -e $tablelist";
-    print "\nAnalyzing msi database\n";
-    $returnvalue = system($systemcall);
-
-    if ($returnvalue)
-    {
-        $infoline = "ERROR: Could not execute $systemcall !\n";
-        exit_program($infoline);
-    }
-}
-
-########################################################
-# Check, if this installation set contains
-# internal cabinet files included into the msi
-# database.
-########################################################
-
-sub check_for_internal_cabfiles
-{
-    my ($cabfilehash) = @_;
-    
-    my $contains_internal_cabfiles = 0;
-    my %allcabfileshash = ();
-    
-    foreach my $filename ( keys %{$cabfilehash} )
-    {
-        if ( $filename =~ /^\s*\#/ )	 # starting with a hash
-        {
-            $contains_internal_cabfiles = 1;
-            # setting real filename without hash as key and name with hash as value
-            my $realfilename = $filename;
-            $realfilename =~ s/^\s*\#//;
-            $allcabfileshash{$realfilename} = $filename;
-        }
-    }
-    
-    return ( $contains_internal_cabfiles, \%allcabfileshash );
-}
-
-#################################################################
-# Exclude all cab files from the msi database.
-#################################################################
-
-sub extract_cabs_from_database
-{
-    my ($msidatabase, $allcabfiles) = @_;
-
-    my $infoline = "";
-    my $fullsuccess = 1;
-    my $msidb = "msidb.exe";	# Has to be in the path
-    if ( $localmsidbpath ) { $msidb = $localmsidbpath; }
-    
-    my @all_excluded_cabfiles = ();
-
-    if( $^O =~ /cygwin/i )
-    {
-        $msidatabase = qx{cygpath -w "$msidatabase"};
-        $msidatabase =~ s/\\/\\\\/g;
-        $msidatabase =~ s/\s*$//g;
-    }
-    else
-    {
-        # msidb.exe really wants backslashes. (And double escaping because system() expands the string.)
-        $msidatabase =~ s/\//\\\\/g;
-    }
-
-    foreach my $onefile ( keys %{$allcabfiles} )
-    {
-        my $systemcall = $msidb . " -d " . $msidatabase . " -x " . $onefile;
-         system($systemcall); 		
-         push(@all_excluded_cabfiles, $onefile);
-    }
-    
-    \@all_excluded_cabfiles;
-}
-
-################################################################################
-# Collect all DiskIds to the corresponding cabinet files from Media.idt.
-################################################################################
-
-sub analyze_media_file
-{
-    my ($filecontent) = @_;
-    
-    my %diskidhash = ();
-
-    for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
-    {
-        if ( $i < 3 ) { next; }
-
-        if ( ${$filecontent}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
-        {
-            my $diskid = $1;
-            my $cabfile = $4;
-
-            $diskidhash{$cabfile} = $diskid;
-        }
-    }
-
-    return \%diskidhash;
-}
-
-sub analyze_customaction_file
-{
-    my ($filecontent) = @_;
-
-    my $register_extensions_exists = 0;
-    
-    my %table = ();
-
-    for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
-    {
-        if ( ${$filecontent}[$i] =~ /^\s*RegisterExtensions\s+/ )
-        { 
-            $register_extensions_exists = 1;
-            last;
-        }
-    }
-
-    return $register_extensions_exists;
-}
-
-################################################################################
-# Analyzing the content of Directory.idt
-#################################################################################
-
-sub analyze_directory_file
-{
-    my ($filecontent) = @_;
-    
-    my %table = ();
-
-    for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
-    {
-        if (( $i == 0 ) || ( $i == 1 ) || ( $i == 2 )) { next; }
-
-        if ( ${$filecontent}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\s*$/ )
-        {
-            my $dir = $1;
-            my $parent = $2;
-            my $name = $3;
-            
-            if ( $name =~ /^\s*(.*?)\s*\:\s*(.*?)\s*$/ ) { $name = $2; }
-            if ( $name =~ /^\s*(.*?)\s*\|\s*(.*?)\s*$/ ) { $name = $2; }
-            
-            my %helphash = ();
-            $helphash{'Directory_Parent'} = $parent;
-            $helphash{'DefaultDir'} = $name;
-            $table{$dir} = \%helphash;
-        }
-    }
-    
-    return \%table;	
-}
-
-#################################################################################
-# Analyzing the content of Component.idt
-#################################################################################
-
-sub analyze_component_file
-{
-    my ($filecontent) = @_;
-    
-    my %table = ();
-    
-    for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
-    {
-        if (( $i == 0 ) || ( $i == 1 ) || ( $i == 2 )) { next; }
-
-        if ( ${$filecontent}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
-        {
-            my $component = $1;
-            my $dir = $3;
-            
-            $table{$component} = $dir;
-        }
-    }
-
-    return \%table;	
-}
-
-#################################################################################
-# Analyzing the content of File.idt
-#################################################################################
-
-sub analyze_file_file
-{
-    my ($filecontent) = @_;
-    
-    my %table = ();
-    my %fileorder = ();
-    my $maxsequence = 0;
-    
-    for ( my $i = 0; $i <= $#{$filecontent}; $i++ )
-    {
-        if (( $i == 0 ) || ( $i == 1 ) || ( $i == 2 )) { next; }
-
-        if ( ${$filecontent}[$i] =~ /^\s*(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\s*$/ )
-        {
-            my $file = $1;
-            my $comp = $2;
-            my $filename = $3;
-            my $sequence = $8;
-
-            if ( $filename =~ /^\s*(.*?)\s*\|\s*(.*?)\s*$/ ) { $filename = $2; }
-            
-            my %helphash = ();
-            $helphash{'Component'} = $comp;
-            $helphash{'FileName'} = $filename;
-            $helphash{'Sequence'} = $sequence;
-
-            $table{$file} = \%helphash;
-            
-            $fileorder{$sequence} = $file;
-            
-            if ( $sequence > $maxsequence ) { $maxsequence = $sequence; }
-        }
-    }
-
-    return (\%table, \%fileorder, $maxsequence);
-}
-
-####################################################################################
-# Recursively creating the directory tree
-####################################################################################
-
-sub create_directory_tree
-{
-    my ($parent, $pathcollector, $fulldir, $dirhash) = @_;	
-
-    foreach my $dir ( keys %{$dirhash} )
-    {
-        if (( $dirhash->{$dir}->{'Directory_Parent'} eq $parent ) && ( $dirhash->{$dir}->{'DefaultDir'} ne "." ))
-        {
-            my $dirname = $dirhash->{$dir}->{'DefaultDir'};
-            # Create the directory
-            my $newdir = $fulldir . $separator . $dirname;
-            if ( ! -f $newdir ) { mkdir $newdir; }
-            # Saving in collector
-            $pathcollector->{$dir} = $newdir;
-            # Iteration
-            create_directory_tree($dir, $pathcollector, $newdir, $dirhash);
-        }
-    }
-}
-
-####################################################################################
-# Creating the directory tree
-####################################################################################
-
-sub create_directory_structure
-{
-    my ($dirhash, $targetdir) = @_;
-
-    print "Creating directories\n";
-    
-    my %fullpathhash = ();
-    
-    my @startparents = ("TARGETDIR", "INSTALLLOCATION");
-    
-    foreach $dir (@startparents) { create_directory_tree($dir, \%fullpathhash, $targetdir, $dirhash); }
-
-    # Also adding the pathes of the startparents
-    foreach $dir (@startparents)
-    {
-        if ( ! exists($fullpathhash{$dir}) ) { $fullpathhash{$dir} = $targetdir; }
-    }
-    
-    return \%fullpathhash;
-}
-
-####################################################################################
-# Cygwin: Setting privileges for files
-####################################################################################
-
-sub change_privileges
-{
-    my ($destfile, $privileges) = @_;
-    
-    my $localcall = "chmod $privileges " . "\"" . $destfile . "\"";
-    system($localcall);
-}
-
-####################################################################################
-# Cygwin: Setting privileges for files recursively
-####################################################################################
-
-sub change_privileges_full
-{
-    my ($target) = @_;
-
-    print "Changing privileges\n";
-
-    my $localcall = "chmod -R 755 " . "\"" . $target . "\"";
-    system($localcall);
-}
-
-######################################################
-# Creating a new directory with defined privileges
-######################################################
-
-sub create_directory_with_privileges
-{
-    my ($directory, $privileges) = @_;
-        
-    my $returnvalue = 1;
-    my $infoline = "";
-
-    if (!(-d $directory))
-    {
-        my $localprivileges = oct("0".$privileges); # changes "777" to 0777
-        $returnvalue = mkdir($directory, $localprivileges);
-
-        if ($returnvalue)
-        {	
-            my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
-            system($localcall);
-        }
-    }
-    else
-    {
-        my $localcall = "chmod $privileges $directory \>\/dev\/null 2\>\&1";
-        system($localcall);
-    }
-}
-
-######################################################
-# Creating a unique directory with pid extension	
-######################################################
-
-sub create_pid_directory
-{
-    my ($directory) = @_;
-    
-    $directory =~ s/\Q$separator\E\s*$//;
-    my $pid = $$;			# process id
-    my $time = time();		# time
-    
-    $directory = $directory . "_" . $pid . $time;
-
-    if ( ! -d $directory ) { create_directory($directory); }		
-    else { exit_program("ERROR: Directory $directory already exists!"); }
-    
-    return $directory;
-}
-
-####################################################################################
-# Copying files into installation set
-####################################################################################
-
-sub copy_files_into_directory_structure
-{
-    my ($fileorder, $filehash, $componenthash, $fullpathhash, $maxsequence, $unpackdir, $installdir, $dirhash) = @_;
-
-    print "Copying files\n";
-
-    my $unopkgfile = "";
-    
-    for ( my $i = 1; $i <= $maxsequence; $i++ )
-    {
-        if ( exists($fileorder->{$i}) )
-        {
-            my $file = $fileorder->{$i};
-            if ( ! exists($filehash->{$file}->{'Component'}) ) { exit_program("ERROR: Did not find component for file: \"$file\"."); }
-            my $component = $filehash->{$file}->{'Component'};
-            if ( ! exists($componenthash->{$component}) ) { exit_program("ERROR: Did not find directory for component: \"$component\"."); }
-            my $dirname = $componenthash->{$component};
-            if ( ! exists($fullpathhash->{$dirname}) ) { exit_program("ERROR: Did not find full directory path for dir: \"$dirname\"."); }
-            my $destdir = $fullpathhash->{$dirname};
-            if ( ! exists($filehash->{$file}->{'FileName'}) ) { exit_program("ERROR: Did not find \"FileName\" for file: \"$file\"."); }
-            my $destfile = $filehash->{$file}->{'FileName'};
-
-            $destfile = $destdir . $separator . $destfile;
-            my $sourcefile = $unpackdir . $separator . $file;
-            
-            if ( ! -f $sourcefile )
-            {
-                # It is possible, that this was an unpacked file
-                # Looking in the dirhash, to find the subdirectory in the installation set (the id is $dirname)
-                # subdir is not recursively analyzed, only one directory.
-                
-                my $oldsourcefile = $sourcefile;			
-                my $subdir = "";
-                if ( exists($dirhash->{$dirname}->{'DefaultDir'}) ) { $subdir = $dirhash->{$dirname}->{'DefaultDir'} . $separator; }
-                my $realfilename = $filehash->{$file}->{'FileName'};
-                my $localinstalldir = $installdir;
-                
-                $localinstalldir =~ s/\\\s*$//;
-                $localinstalldir =~ s/\/\s*$//;
-                
-                $sourcefile = $localinstalldir . $separator . $subdir . $realfilename;
-                
-                if ( ! -f $sourcefile ) { exit_program("ERROR: File not found: \"$oldsourcefile\" (or \"$sourcefile\")."); }
-            }
-
-            my $copyreturn = copy($sourcefile, $destfile);
-
-            if ( ! $copyreturn) { exit_program("ERROR: Could not copy $source to $dest\n"); }
-
-            # Searching unopkg.exe
-            if ( $destfile =~ /unopkg\.exe\s*$/ ) { $unopkgfile = $destfile; }
-            # if (( $^O =~ /cygwin/i ) && ( $destfile =~ /\.exe\s*$/ )) { change_privileges($destfile, "775"); }
-        }
-        # else	# allowing missing sequence numbers ?
-        # {
-        # 	exit_program("ERROR: No file assigned to sequence $i");
-        # }
-    }
-    
-    return ($unopkgfile);
-}
-
-######################################################
-# Removing a complete directory with subdirectories
-######################################################
-
-sub remove_complete_directory
-{
-    my ($directory, $start) = @_;
-
-    my @content = ();
-    my $infoline = "";
-    
-    $directory =~ s/\Q$separator\E\s*$//;
-
-    if ( -d $directory )
-    {
-        if ( $start ) { print "Removing directory $directory\n"; }
-    
-        opendir(DIR, $directory);
-        @content = readdir(DIR);
-        closedir(DIR);
-
-        my $oneitem;
-    
-        foreach $oneitem (@content)
-        {
-            if ((!($oneitem eq ".")) && (!($oneitem eq "..")))
-            {
-                my $item = $directory . $separator . $oneitem;
-
-                if ( -f $item || -l $item ) 	# deleting files or links
-                {
-                    unlink($item);
-                }
-
-                if ( -d $item ) 	# recursive
-                {
-                    remove_complete_directory($item, 0);
-                }
-            }
-        }
-        
-        # try to remove empty directory
-        my $returnvalue = rmdir $directory;
-        if ( ! $returnvalue ) { print "Warning: Problem with removing empty dir $directory\n"; }
-    }	
-}
-
-####################################################################################
-# Defining a temporary path
-####################################################################################
-
-sub get_temppath
-{
-    my $temppath = "";
-    
-    if (( $ENV{'TMP'} ) || ( $ENV{'TEMP'} ))
-    {
-        if ( $ENV{'TMP'} ) { $temppath = $ENV{'TMP'}; }
-        elsif ( $ENV{'TEMP'} )  { $temppath = $ENV{'TEMP'}; }
-
-        $temppath =~ s/\Q$separator\E\s*$//;	# removing ending slashes and backslashes
-        $temppath = $temppath . $separator . $globaltempdirname;
-        create_directory_with_privileges($temppath, "777");
-
-        my $dirsave = $temppath;
-
-        $temppath = $temppath . $separator . "a";
-        $temppath = create_pid_directory($temppath);
-
-        if ( ! -d $temppath ) { exit_program("ERROR: Failed to create directory $temppath ! Possible reason: Wrong privileges in directory $dirsave."); }
-
-        if ( $^O =~ /cygwin/i )
-        {
-            $temppath =~ s/\\/\\\\/g;
-            chomp( $temppath = qx{cygpath -w "$temppath"} ); 
-        }
-
-        $savetemppath = $temppath;
-    }
-    else
-    {
-        exit_program("ERROR: Could not set temporary directory (TMP and TEMP not set!).");
-    }
-    
-    return $temppath;
-}
-
-####################################################################################
-# Registering extensions
-####################################################################################
-
-sub register_extensions_sync
-{
-    my ($unopkgfile, $localtemppath, $preregdir) = @_;
-
-    if ( $preregdir eq "" )
-    {
-        my $logtext = "ERROR: Failed to determine \"prereg\" folder for extension registration! Please check your installation set.";
-        print $logtext . "\n";
-        exit_program($logtext);		
-    }
-
-    my $from = cwd();
-    
-    my $path = $unopkgfile;
-    get_path_from_fullqualifiedname(\$path);
-    $path =~ s/\\\s*$//;
-    $path =~ s/\/\s*$//;
-
-    my $executable = $unopkgfile;
-    make_absolute_filename_to_relative_filename(\$executable);
-
-    chdir($path);		
-
-    if ( ! $path_displayed )
-    {
-        print "... current dir: $path ...\n";
-        $path_displayed = 1;
-    }
-
-    $localtemppath =~ s/\\/\//g;
-
-    if ( $^O =~ /cygwin/i ) {
-        $executable = "./" . $executable;
-        $preregdir = qx{cygpath -m "$preregdir"};
-        chomp($preregdir);
-    }
-
-    $preregdir =~ s/\/\s*$//g;
-    
-    my $systemcall = $executable . " sync --verbose 2\>\&1 |";
-
-    print "... $systemcall\n";
-
-    my @unopkgoutput = ();
-
-    open (UNOPKG, $systemcall);
-    while (<UNOPKG>) {push(@unopkgoutput, $_); }
-    close (UNOPKG);
-
-    my $returnvalue = $?;	# $? contains the return value of the systemcall
-
-    if ($returnvalue)
-    {
-        print "ERROR: Could not execute \"$systemcall\"!\nExitcode: '$returnvalue'\n";
-        for ( my $j = 0; $j <= $#unopkgoutput; $j++ ) { print "$unopkgoutput[$j]"; }
-        exit_program("ERROR: $systemcall failed!");
-    }
-    
-    chdir($from);
-}
-
-####################################################################################
-# Registering all extensions located in /share/extension/install
-####################################################################################
-
-sub register_extensions
-{
-    my ($unopkgfile, $temppath, $preregdir) = @_;
-    
-    print "Registering extensions:\n"; 
-
-    if (( ! -f $unopkgfile ) || ( $unopkgfile eq "" ))
-    {
-        print("WARNING: Could not find unopkg.exe (Language Pack?)!\n");
-    }
-    else
-    {
-        register_extensions_sync($unopkgfile, $temppath, $preregdir);
-        remove_complete_directory($temppath, 1);
-    }
-
-}
-
-####################################################################################
-# Reading one file
-####################################################################################
-
-sub read_file
-{
-    my ($localfile) = @_;
-
-    my @localfile = ();
-
-    open( IN, "<$localfile" ) || exit_program("ERROR: Cannot open file $localfile for reading");
-
-    #	Don't use "my @localfile = <IN>" here, because
-    #	perl has a problem with the internal "large_and_huge_malloc" function
-    #	when calling perl using MacOS 10.5 with a perl built with MacOS 10.4
-    while ( $line = <IN> ) {
-        push @localfile, $line;
-    }
-
-    close( IN );
-
-    return \@localfile;
-}
-
-###############################################################
-# Setting the time string for the 
-# Summary Information stream in the 
-# msi database of the admin installations.
-###############################################################
-
-sub get_sis_time_string
-{	
-    # Syntax: <yyyy/mm/dd hh:mm:ss>
-    my $second = (localtime())[0];
-    my $minute = (localtime())[1];
-    my $hour = (localtime())[2];
-    my $day = (localtime())[3];
-    my $month = (localtime())[4];
-    my $year = 1900 + (localtime())[5];
-    $month++;
-    
-    if ( $second < 10 ) { $second = "0" . $second; }
-    if ( $minute < 10 ) { $minute = "0" . $minute; }
-    if ( $hour < 10 ) { $hour = "0" . $hour; }
-    if ( $day < 10 ) { $day = "0" . $day; }
-    if ( $month < 10 ) { $month = "0" . $month; }
-    
-    my $timestring = $year . "/" . $month . "/" . $day . " " . $hour . ":" . $minute . ":" . $second;
-        
-    return $timestring;
-}
-
-###############################################################
-# Writing content of administrative installations into 
-# Summary Information Stream of msi database. 
-# This is required for example for following
-# patch processes using Windows Installer service.
-###############################################################
-
-sub write_sis_info
-{
-    my ($msidatabase) = @_;
-
-    print "Setting SIS in msi database\n";
-    
-    if ( ! -f $msidatabase ) { exit_program("ERROR: Cannot find file $msidatabase"); }
-
-    my $msiinfo = "msiinfo.exe";	# Has to be in the path
-    my $infoline = "";
-    my $systemcall = "";
-    my $returnvalue = "";
-
-    # Required setting for administrative installations:
-    # -w 4   (source files are unpacked),  wordcount
-    # -s <date of admin installation>, LastPrinted, Syntax: <yyyy/mm/dd hh:mm:ss>
-    # -l <person_making_admin_installation>, LastSavedBy
-    
-    my $wordcount = 4;  # Unpacked files
-    my $lastprinted = get_sis_time_string();
-    my $lastsavedby = "Installer";
-    
-    my $localmsidatabase = $msidatabase;
-    
-    if( $^O =~ /cygwin/i )
-    {
-        $localmsidatabase = qx{cygpath -w "$localmsidatabase"};
-        $localmsidatabase =~ s/\\/\\\\/g;
-        $localmsidatabase =~ s/\s*$//g;
-    }
-                        
-    $systemcall = $msiinfo . " " . "\"" . $localmsidatabase . "\"" . " -w " . $wordcount . " -s " . "\"" . $lastprinted . "\"" . " -l $lastsavedby";
-
-    $returnvalue = system($systemcall);
-
-    if ($returnvalue)
-    {
-        $infoline = "ERROR: Could not execute $systemcall !\n";
-        exit_program($infoline);
-    }	
-}
-
-###############################################################
-# Convert time string
-###############################################################
-
-sub convert_timestring
-{
-    my ($secondstring) = @_;
-
-    my $timestring = "";
-    
-    if ( $secondstring < 60 )	 # less than a minute
-    {
-        if ( $secondstring < 10 ) { $secondstring = "0" . $secondstring; }
-        $timestring = "00\:$secondstring min\.";	
-    }
-    elsif ( $secondstring < 3600 )
-    {
-        my $minutes = $secondstring / 60;
-        my $seconds = $secondstring % 60;
-        if ( $minutes =~ /(\d*)\.\d*/ ) { $minutes = $1; }
-        if ( $minutes < 10 ) { $minutes = "0" . $minutes; }
-        if ( $seconds < 10 ) { $seconds = "0" . $seconds; }
-        $timestring = "$minutes\:$seconds min\.";
-    }
-    else	# more than one hour
-    {
-        my $hours = $secondstring / 3600;
-        my $secondstring = $secondstring % 3600;
-        my $minutes = $secondstring / 60;
-        my $seconds = $secondstring % 60;
-        if ( $hours =~ /(\d*)\.\d*/ ) { $hours = $1; }
-        if ( $minutes =~ /(\d*)\.\d*/ ) { $minutes = $1; }
-        if ( $hours < 10 ) { $hours = "0" . $hours; }
-        if ( $minutes < 10 ) { $minutes = "0" . $minutes; }
-        if ( $seconds < 10 ) { $seconds = "0" . $seconds; }
-        $timestring = "$hours\:$minutes\:$seconds hours";		
-    }
-    
-    return $timestring;
-}
-
-###############################################################
-# Returning time string for logging
-###############################################################
-
-sub get_time_string
-{
-    my $currenttime = time();
-    $currenttime = $currenttime - $starttime;
-    $currenttime = convert_timestring($currenttime);
-    $currenttime = localtime() . " \(" . $currenttime . "\)\n";
-    return $currenttime;
-}
-
-####################################################################################
-# Simulating an administrative installation
-####################################################################################
-
-$starttime = time();
-
-getparameter();
-controlparameter();
-check_local_msidb();
-check_system_path();
-my $temppath = get_temppath();
-
-print("\nmsi database: $databasepath\n");
-print("Destination directory: $targetdir\n" );
-
-my $helperdir = $temppath . $separator . "installhelper";
-create_directory($helperdir);
-    
-# Get File.idt, Component.idt and Directory.idt from database
-    
-my $tablelist = "File Directory Component Media CustomAction";
-extract_tables_from_database($databasepath, $helperdir, $tablelist);
-
-# Set unpackdir
-my $unpackdir = $helperdir . $separator . "unpack";
-create_directory($unpackdir);
-
-# Reading media table to check for internal cabinet files
-my $filename = $helperdir . $separator . "Media.idt";
-if ( ! -f $filename ) { exit_program("ERROR: Could not find required file: $filename !"); }
-my $filecontent = read_file($filename);
-my $cabfilehash = analyze_media_file($filecontent);
-
-# Check, if there are internal cab files 
-my ( $contains_internal_cabfiles, $all_internal_cab_files) = check_for_internal_cabfiles($cabfilehash);
-
-if ( $contains_internal_cabfiles )
-{
-    # Set unpackdir
-    my $cabdir = $helperdir . $separator . "internal_cabs";
-    create_directory($cabdir);
-    my $from = cwd();
-    chdir($cabdir);
-    # Exclude all cabinet files from database
-    my $all_excluded_cabs = extract_cabs_from_database($databasepath, $all_internal_cab_files);
-    print "Unpacking files from internal cabinet file(s)\n";
-    foreach my $cabfile ( @{$all_excluded_cabs} ) { unpack_cabinet_file($cabfile, $unpackdir); }
-    chdir($from);
-}
-    
-# Unpack all cab files into $helperdir, cab files must be located next to msi database
-my $installdir = $databasepath;
-
-get_path_from_fullqualifiedname(\$installdir);
-
-my $databasefilename = $databasepath;
-make_absolute_filename_to_relative_filename(\$databasefilename);
-
-my $cabfiles = find_file_with_file_extension("cab", $installdir);
-    
-if (( $#{$cabfiles} < 0 ) && ( ! $contains_internal_cabfiles )) { exit_program("ERROR: Did not find any cab file in directory $installdir"); }
-
-print "Unpacking files from cabinet file(s)\n";
-for ( my $i = 0; $i <= $#{$cabfiles}; $i++ )
-{
-    my $cabfile = $installdir . $separator . ${$cabfiles}[$i];
-    unpack_cabinet_file($cabfile, $unpackdir);
-}
-    
-# Reading tables
-$filename = $helperdir . $separator . "Directory.idt";
-$filecontent = read_file($filename);
-my $dirhash = analyze_directory_file($filecontent);
-    
-$filename = $helperdir . $separator . "Component.idt";
-$filecontent = read_file($filename);
-my $componenthash = analyze_component_file($filecontent);
-    
-$filename = $helperdir . $separator . "File.idt";
-$filecontent = read_file($filename);
-my ( $filehash, $fileorder, $maxsequence ) = analyze_file_file($filecontent);
-
-# Creating the directory structure
-my $fullpathhash = create_directory_structure($dirhash, $targetdir);
-
-# Copying files
-my ($unopkgfile) = copy_files_into_directory_structure($fileorder, $filehash, $componenthash, $fullpathhash, $maxsequence, $unpackdir, $installdir, $dirhash);
-if ( $^O =~ /cygwin/i ) { change_privileges_full($targetdir); }
-    
-my $msidatabase = $targetdir . $separator . $databasefilename;
-my $copyreturn = copy($databasepath, $msidatabase);
-if ( ! $copyreturn) { exit_program("ERROR: Could not copy $source to $dest\n"); }
-
-# Reading tables
-$filename = $helperdir . $separator . "CustomAction.idt";
-$filecontent = read_file($filename);
-my $register_extensions_exists = analyze_customaction_file($filecontent);
-
-# Removing empty dirs in extension folder
-my ( $extensionfolder, $preregdir ) = get_extensions_dir($unopkgfile);
-if ( -d $extensionfolder ) { remove_empty_dirs_in_folder($extensionfolder, 1); }
-
-if ( $register_extensions_exists )
-{
-    # Registering extensions
-    register_extensions($unopkgfile, $temppath, $preregdir);
-}
-
-# Saving info in Summary Information Stream of msi database (required for following patches)
-if ( $msiinfo_available ) { write_sis_info($msidatabase); }
-
-# Removing the helper directory
-remove_complete_directory($temppath, 1);
-
-print "\nSuccessful installation: " . get_time_string();