strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS native110 (1.6.774); FILE MERGED

Browse source 
2007/10/04 11:21:15 is 1.6.774.1: #i82251# repackaging, part 3
This commit is contained in:
Oliver Bolte 2008-01-04 15:56:42 +00:00
parent 2daf7dbefb
commit 1636982e53
1 changed files with 32 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
solenv/bin/modules/installer/files.pm
View file

@ -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
###########################################