summaryrefslogtreecommitdiffstats
path: root/urpm/args.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-14 13:47:02 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-14 13:47:02 +0000
commit0c8f651988b155d12deb3aea26c2f206648c61e5 (patch)
tree9bebdb61d92b19c9db9b98a15efdf8e8d3cf7fae /urpm/args.pm
parentfadf35a458884372e139c97282a333f4a0d84f25 (diff)
downloadurpmi-0c8f651988b155d12deb3aea26c2f206648c61e5.tar
urpmi-0c8f651988b155d12deb3aea26c2f206648c61e5.tar.gz
urpmi-0c8f651988b155d12deb3aea26c2f206648c61e5.tar.bz2
urpmi-0c8f651988b155d12deb3aea26c2f206648c61e5.tar.xz
urpmi-0c8f651988b155d12deb3aea26c2f206648c61e5.zip
Factorize the message/prompt/I18N code of urpm* in a separate module
Diffstat (limited to 'urpm/args.pm')
-rw-r--r--urpm/args.pm14
1 files changed, 9 insertions, 5 deletions
diff --git a/urpm/args.pm b/urpm/args.pm
index 15d246fb..6dc6fb45 100644
--- a/urpm/args.pm
+++ b/urpm/args.pm
@@ -18,6 +18,9 @@ Getopt::Long::Configure(@configuration);
# global urpm object to be passed by the main program
my $urpm;
+# stores the values of the command-line options
+our %options;
+
# options specifications for Getopt::Long
my %options_spec = (
@@ -35,7 +38,9 @@ my %options_spec = (
'excludemedia|exclude-media=s' => \$::excludemedia,
'sortmedia|sort-media=s' => \$::sortmedia,
'synthesis=s' => \$::synthesis,
- auto => \$urpm->{options}{auto},
+ auto => sub {
+ $urpm->{options}{auto} = $::auto = 1;
+ },
'allow-medium-change' => \$::allow_medium_change,
'auto-select' => \$::auto_select,
'no-remove|no-uninstall' => \$::no_remove,
@@ -75,12 +80,12 @@ my %options_spec = (
$value =~ /(.+):(.+)/ or die N("bad proxy declaration on command line\n");
@{$urpm->{proxy}}{qw(user pwd)} = ($1, $2);
},
- 'bug=s' => \$::bug,
+ 'bug=s' => \$options{bug},
'env=s' => \$::env,
- X => \$::X,
+ X => \$options{X},
WID => \$::WID,
'best-output' => sub {
- $::X ||= $ENV{DISPLAY} && system('/usr/X11R6/bin/xtest', '') == 0
+ $options{X} ||= $ENV{DISPLAY} && system('/usr/X11R6/bin/xtest', '') == 0
},
'verify-rpm!' => \$urpm->{options}{'verify-rpm'},
'test!' => \$::test,
@@ -238,7 +243,6 @@ my %options_spec = (
);
# common options setup
-# TODO <> for arguments
foreach my $k ("help|h", "no-locales", "test!", "force", "root=s", "use-distrib=s",
"parallel=s")