|
|
|---|
| |
# Copyright 1999-2003 Gentoo Technologies, Inc. | # Copyright 1999-2003 Gentoo Technologies, Inc. |
# Distributed under the terms of the GNU General Public License v2 | # Distributed under the terms of the GNU General Public License v2 |
# $Header: /var/cvsroot/gentoo-src/ufed/ufed.pl,v 1.19 2004/06/03 04:58:49 fava Exp $ |
# $Header: /home/cvsroot/gentoo-src/ufed/ufed.pl,v 1.18 2003/08/11 04:44:03 fava Exp $ |
| |
# If you make ANY changes, please put them directly to the CVS log. The | # If you make ANY changes, please put them directly to the CVS log. The |
# ChangeLog file is generated automatically from that data. | # ChangeLog file is generated automatically from that data. |
|
|
|---|
# the associated flag is emabled | # the associated flag is emabled |
my ($flag, $package); | my ($flag, $package); |
my @flags; | my @flags; |
open(FILE, '/etc/make.profile/use.defaults') or die ('couldn\'t open ' . "use.defaults"); |
my $path = readlink '/etc/make.profile'; |
|
my $tmppath; |
|
$path =~ s!..!!; #FIXME sanitizie the path better |
|
my @items = split /\//, $path ; |
|
|
|
#open(FILE, '/etc/make.profile/use.defaults') or die ('couldn\'t open ' . "use.defaults"); |
| |
while (<FILE>) |
while (@items) |
{ | { |
s!#.*!!; |
$tmppath = join '/', @items ; |
($flag, $package) = split (m![\t ]+!); |
pop @items; |
$flag =~ s![ \t]!!g; |
if (open(FILE,$tmppath . 'use.defaults' )) |
$package =~ s![ \t]!!g; |
|
chomp($package); |
|
|
|
if ((defined($package)) and my_glob("/var/db/pkg/$package")) |
|
{ | { |
|
while (<FILE>) |
|
{ |
|
s!#.*!!; |
|
($flag, $package) = split (m![\t ]+!); |
|
$flag =~ s![ \t]!!g; |
|
$package =~ s![ \t]!!g; |
|
chomp($package); |
| |
#the package exists, therefore we add the use flag |
if ((defined($package)) and my_glob("/var/db/pkg/$package")) |
push (@flags, $flag); |
{ |
|
#the package exists, therefore we add the use flag |
|
push (@flags, $flag); |
|
} |
|
} |
} | } |
|
close(FILE); |
} | } |
close(FILE); |
|
return (@flags); | return (@flags); |
} | } |
| |
