l10n_getname.pl revision 5214
our $opt_specdir;
my @specs_to_build = ();
my $build_command;
sub usage (;$) {
my $retval = shift;
--dumprc
my $os;
my $os_rel;
sub init () {
chomp ($os);
chomp ($os_rel);
my $defaults;
sub process_defaults () {
sub add_spec ($) {
my $spec_name = shift;
my $spec;
if (-f $spec_name) {
if (not defined ($spec)) {
sub process_args {
my $arg = shift;
if (not defined ($build_command)) {
sub process_options {
'get-sources-from-child=s' => sub { shift; $defaults->set ('get_source_names_from_child', shift); },
'get-builddir-from-child=s' => sub { shift; $defaults->set ('get_builddir_name_from_child', shift); },
sub print_self_name ($) {
my $spec = shift;
my @sources;
sub print_child_names ($) {
my $spec = shift;
my @sources;
sub print_sources ($) {
my $spec = shift;
my @sources;
if (not defined ($src)) {
if (not defined ($src)) {
sub print_sources_from_child ($$) {
my $spec = shift;
my $user_rpm = shift;
my @sources;
sub print_patches ($) {
my $spec = shift;
my @patches;
if (not defined ($patch)) {
if (not defined ($patch )) {
sub print_patches_from_child ($$) {
my $spec = shift;
my $user_rpm = shift;
my @sources;
sub print_builddir ($) {
my $spec = shift;
my @sources;
if (not defined $bsdirname) {
sub print_child_builddirs ($) {
my $spec = shift;
my @sources;
sub print_builddir_from_child ($$) {
my $spec = shift;
my $user_rpm = shift;
my @sources;
sub get_misc () {
my $spec = shift;
my @sources;
if (not defined ($src)) {
if (not defined ($src)) {
$src);
$patch);
sub get_parse_options ($) {
my $spec_id = shift;
my @sources;
my $user_rpm_name;
sub get_misc ();
sub do_build {
sub do_parse {
get_parse_options ($i);
sub main {
process_defaults ();
process_options ();
init;
main;