diff options
| author | Oliver Bolte <obo@openoffice.org> | 2008-01-04 15:56:42 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2008-01-04 15:56:42 +0000 |
| commit | 1636982e53278ba08016f490cec392758eb8a54c (patch) | |
| tree | ea68f11c8e1c2009e652241a22fa71506bbe588d | |
| parent | 2daf7dbefbfc10dbadbca80150791625fdb3bc53 (diff) | |
INTEGRATION: CWS native110 (1.6.774); FILE MERGED
2007/10/04 11:21:15 is 1.6.774.1: #i82251# repackaging, part 3
| -rw-r--r-- | solenv/bin/modules/installer/files.pm | 34 |
1 files changed, 32 insertions, 2 deletions
diff --git a/solenv/bin/modules/installer/files.pm b/solenv/bin/modules/installer/files.pm index 9a084b9a9509..c1f469d4e1f0 100644 --- a/solenv/bin/modules/installer/files.pm +++ b/solenv/bin/modules/installer/files.pm @@ -4,9 +4,9 @@ # # $RCSfile: files.pm,v $ # -# $Revision: 1.7 $ +# $Revision: 1.8 $ # -# last change: $Author: obo $ $Date: 2008-01-04 15:01:12 $ +# last change: $Author: obo $ $Date: 2008-01-04 16:56:42 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -159,6 +159,36 @@ sub save_array_of_hashes close( OUT); } +sub save_array_of_hashes_modules +{ + my ($savefile, $arrayref) = @_; + + if ( $installer::globals::debug ) { installer::logger::debuginfo("installer::files::save_array_of_hashes : $savefile : $#{$arrayref}"); } + + my @printcontent = (); + + for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) + { + my $line = "***************************************************\n"; + my $hashref = ${$arrayref}[$i]; + my $itemkey; + + foreach $itemkey ( keys %{$hashref} ) + { + my $itemvalue = $hashref->{$itemkey}; + $line = $line . $itemkey . "=" . $itemvalue . "\n"; + } + + $line = $line . "\n"; + + push(@printcontent, $line); + } + + open( OUT, ">$savefile" ) || installer::exiter::exit_program("ERROR: Cannot open file $savefile for writing", "save_array_of_hashes"); + print OUT @printcontent; + close( OUT); +} + ########################################### # Binary file operations ########################################### |