INTEGRATION: CWS obr09 (1.25.16); FILE MERGED

2008/06/09 13:14:49 obr 1.25.16.2: RESYNC: (1.25-1.26); FILE MERGED
2008/05/30 13:39:47 is 1.25.16.1: #i89959# langpack download names for Debian changed

solenv/bin/modules/installer/windows/property.pm

@@ -8,7 +8,7 @@
 #
 # $RCSfile: property.pm,v $
 #
-# $Revision: 1.26 $
+# $Revision: 1.27 $
 #
 # This file is part of OpenOffice.org.
 #
@@ -281,6 +281,30 @@ sub set_important_properties
         push(@{$propertyfile}, $onepropertyline);
     }
 
+    if ( $installer::globals::officedirhostname )
+    {
+        my $onepropertyline = "OFFICEDIRHOSTNAME" . "\t" . $installer::globals::officedirhostname . "\n";
+        push(@{$propertyfile}, $onepropertyline);
+    }
+
+    if ( $installer::globals::basisdirhostname )
+    {
+        my $onepropertyline = "BASISDIRHOSTNAME" . "\t" . $installer::globals::basisdirhostname . "\n";
+        push(@{$propertyfile}, $onepropertyline);
+    }
+
+    if ( $installer::globals::uredirhostname )
+    {
+        my $onepropertyline = "UREDIRHOSTNAME" . "\t" . $installer::globals::uredirhostname . "\n";
+        push(@{$propertyfile}, $onepropertyline);
+    }
+
+    if ( $installer::globals::sundirhostname )
+    {
+        my $onepropertyline = "SUNDIRHOSTNAME" . "\t" . $installer::globals::sundirhostname . "\n";
+        push(@{$propertyfile}, $onepropertyline);
+    }
+
     if ( $installer::globals::desktoplinkexists )
     {
         my $onepropertyline = "DESKTOPLINKEXISTS" . "\t" . "1" . "\n";