#!/usr/bin/perl -w
$|++;
my
$cfg
= new Gentoo::Config;
if
(
@ARGV
) {
*nextline
=
sub
() {
return
shift
@ARGV
};
}
elsif
( -t 0 ) {
my
$rl
= new Term::ReadLine;
my
$attr
=
$rl
->Attribs;
$attr
->{completion_entry_function} =
$attr
->{list_completion_function};
$attr
->{completion_word}=[
$cfg
->
keys
() ];
*nextline
=
sub
(){
$rl
->
readline
(
"attr: "
); };
}
else
{
*nextline
=
sub
(){
scalar
(<STDIN>); };
};
while
(
defined
(
$_
=nextline())){
for
(
split
) {
my
$v
=
$cfg
->get(
$_
,
undef
);
if
(isa(
$v
,
'ARRAY'
)){
print
"$_=(\n\t"
,
join
(
"\n\t"
,
@$v
).
")\n"
;
}
elsif
(
defined
$v
) {
print
"$_=\"$v\"\n"
;
}
else
{
print
"$_=\n"
;
};
};
};