clean up menu configuration

SVN-Revision: 3801
This commit is contained in:
Mike Baker
2006-05-19 22:46:24 +00:00
parent b64d24928b
commit 59c1faa150
5 changed files with 33 additions and 14 deletions

View File

@@ -30,7 +30,9 @@ sub print_category($) {
}
print "\t\thelp\n";
print $pkg->{description};
print "\n"
print "\n";
$pkg->{config} and print $pkg->{config}."\n";
}
}
print "endmenu\n\n";
@@ -75,6 +77,15 @@ while ($line = <>) {
$desc .= "\t\t$line";
}
$pkg->{description} = $desc;
};
$line =~ /^Config: \s*(.*)\s*$/ and do {
my $conf = "$1\n";
my $line;
while ($line = <>) {
last if $line =~ /^@@/;
$conf .= "$line";
}
$pkg->{config} = $conf;
}
}