summaryrefslogtreecommitdiff
path: root/setup_native/scripts/admin.pl
diff options
context:
space:
mode:
authorJoachim Lingner <jl@openoffice.org>2010-07-15 16:28:33 +0200
committerJoachim Lingner <jl@openoffice.org>2010-07-15 16:28:33 +0200
commit757f1ada9215c698c650eba559e05a70322848b7 (patch)
tree864b04aaf31f79590626e0c957ef7a3b6ac04f8b /setup_native/scripts/admin.pl
parent0809a24f900b5cf43a70d1f3ab11c681e1906692 (diff)
jl154 #162868# remove basis/presets/bundled/bundled.ini, and create always share/extensions folder
Diffstat (limited to 'setup_native/scripts/admin.pl')
-rw-r--r--setup_native/scripts/admin.pl17
1 files changed, 10 insertions, 7 deletions
diff --git a/setup_native/scripts/admin.pl b/setup_native/scripts/admin.pl
index dfb584cff..d0869abbd 100644
--- a/setup_native/scripts/admin.pl
+++ b/setup_native/scripts/admin.pl
@@ -43,7 +43,7 @@ BEGIN
$msiinfo_available = 0;
$path_displayed = 0;
$localmsidbpath = "";
- $bundleddir = "";
+ $presetsdir = "";
$plat = $^O;
@@ -824,7 +824,7 @@ sub create_directory_tree
# Create the directory
my $newdir = $fulldir . $separator . $dirname;
if ( ! -f $newdir ) { mkdir $newdir; }
- if (( $bundleddir eq "" ) && ( $newdir =~ /\Wbundled\s*$/ )) { $bundleddir = $newdir; }
+ if (( $presetsdir eq "" ) && ( $newdir =~ /\Wpresets\s*$/ )) { $presetsdir = $newdir; }
# Saving in collector
$pathcollector->{$dir} = $newdir;
# Iteration
@@ -1094,9 +1094,9 @@ sub register_extensions_sync
{
my ($unopkgfile, $localtemppath) = @_;
- if ( $bundleddir eq "" )
+ if ( $presetsdir eq "" )
{
- my $logtext = "ERROR: Failed to determine directory \"bundled\" in \"presets\" folder for extension registration! Please check your installation set.";
+ my $logtext = "ERROR: Failed to determine directory \"presets\" folder for extension registration! Please check your installation set.";
print $logtext . "\n";
exit_program($logtext);
}
@@ -1123,10 +1123,13 @@ sub register_extensions_sync
if ( $^O =~ /cygwin/i ) {
$executable = "./" . $executable;
- $bundleddir = qx{cygpath -m "$bundleddir"};
- chomp($bundleddir);
+ $presetsdir = qx{cygpath -m "$presetsdir"};
+ chomp($presetsdir);
}
-
+
+ $presetsdir =~ s/\/\s*$//g;
+ my $bundleddir = $presetsdir . "/bundled";
+
my $systemcall = $executable . " sync --verbose -env:BUNDLED_EXTENSIONS_USER=\"file:///" . $bundleddir . "\"" . " -env:UserInstallation=file:///" . $localtemppath . " 2\>\&1 |";
print "... $systemcall\n";