}
print "\t\thelp\n";
print $pkg->{description};
- print "\n"
+ print "\n";
+
+ $pkg->{config} and print $pkg->{config}."\n";
}
}
print "endmenu\n\n";
$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;
}
}