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

INTEGRATION: CWS native97 (1.65.36); FILE MERGED

Browse source 
2007/07/10 10:47:10 is 1.65.36.1: #i79432# enable Unix links in scp2
This commit is contained in:
Ivo Hinkelmann 2007-07-12 10:15:36 +00:00
parent 45b92f2e06
commit 8e380a40c7
1 changed files with 21 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
solenv/bin/modules/installer/epmfile.pm
View file

@ -4,9 +4,9 @@
#
# $RCSfile: epmfile.pm,v $
#
# $Revision: 1.65 $
# $Revision: 1.66 $
#
# last change: $Author: kz $ $Date: 2007-06-18 16:33:20 $
# last change: $Author: ihi $ $Date: 2007-07-12 11:15:36 $
#
# The Contents of this file are made available subject to
# the terms of GNU Lesser General Public License Version 2.1.
@ -203,6 +203,25 @@ sub put_links_into_epmfile
}
}
sub put_unixlinks_into_epmfile
{
my ($unixlinksinproductarrayref, $epmfileref) = @_;
my $group = "bin";
if ( $installer::globals::islinuxbuild ) { $group = "root"; }
for ( my $i = 0; $i <= $#{$unixlinksinproductarrayref}; $i++ )
{
my $onelink = ${$unixlinksinproductarrayref}[$i];
my $destination = $onelink->{'destination'};
my $target = $onelink->{'Target'};
my $line = "l 000 root $group $destination $target\n";
push(@{$epmfileref}, $line)
}
}
###############################################
# Creating epm header file
###############################################