summaryrefslogtreecommitdiffstats
path: root/urpm/msg.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm/msg.pm')
-rw-r--r--urpm/msg.pm80
1 files changed, 27 insertions, 53 deletions
diff --git a/urpm/msg.pm b/urpm/msg.pm
index 8c681fa9..00dc5b75 100644
--- a/urpm/msg.pm
+++ b/urpm/msg.pm
@@ -3,7 +3,7 @@ package urpm::msg;
use strict;
use Exporter;
our @ISA = 'Exporter';
-our @EXPORT = qw(N log_it to_utf8 message_input gmessage message toMb);
+our @EXPORT = qw(N log_it to_utf8 message_input message toMb);
#- I18N.
eval {
@@ -35,68 +35,42 @@ sub log_it {
sub to_utf8 { Locale::gettext::iconv($_[0], undef, "UTF-8") }
-#- this function returns a value via $?. this is evil; FIXME (and use zenity)
-sub gmessage {
- my ($msg, %params) = @_;
- my $ok = to_utf8($params{ok} || N("Ok"));
- my $cancel = to_utf8($params{cancel} || N("Cancel"));
- $ok =~ s/,/\\,/g; $cancel =~ s/,/\\,/g;
- my $buttons = $params{ok_only} ? "$ok:0" : "$ok:0,$cancel:2";
- foreach (@{$params{add_buttons}}) {
- s/,/\\,/g;
- $buttons .= ",$_";
- }
- $msg = to_utf8($msg);
- `gmessage -default "$ok" -buttons "$buttons" "$msg"`;
-}
-
sub message_input {
my ($msg, $default_input, %opts) = @_;
my $input;
- if ($urpm::args::options{X} && !$default_input) {
- #- if a default input is given, the user doesn't have to choose (and being asked).
- gmessage($msg, ok_only => 1);
- $urpm::args::options{bug} and log_it($msg);
- } else {
- while (1) {
- if ($urpm::args::options{bug} || !defined fileno ::SAVEOUT) {
- print STDOUT $msg;
- } else {
- print ::SAVEOUT $msg;
- }
- if ($default_input) {
- $urpm::args::options{bug} and log_it($default_input);
- return $default_input;
- }
- $input = <STDIN>;
- defined $input or return undef;
- chomp $input;
- $urpm::args::options{bug} and log_it($input);
- if ($opts{boolean}) {
- $input =~ /^[$noexpr$yesexpr]?$/ and last;
- } elsif ($opts{range}) {
- $input eq "" and $input = 1; #- defaults to first choice
- (defined $opts{range_min} ? $opts{range_min} : 1) <= $input && $input <= $opts{range} and last;
- } else {
- last;
- }
- message(N("Sorry, bad choice, try again\n"));
+ while (1) {
+ if ($urpm::args::options{bug} || !defined fileno ::SAVEOUT) {
+ print STDOUT $msg;
+ } else {
+ print ::SAVEOUT $msg;
}
+ if ($default_input) {
+ $urpm::args::options{bug} and log_it($default_input);
+ return $default_input;
+ }
+ $input = <STDIN>;
+ defined $input or return undef;
+ chomp $input;
+ $urpm::args::options{bug} and log_it($input);
+ if ($opts{boolean}) {
+ $input =~ /^[$noexpr$yesexpr]?$/ and last;
+ } elsif ($opts{range}) {
+ $input eq "" and $input = 1; #- defaults to first choice
+ (defined $opts{range_min} ? $opts{range_min} : 1) <= $input && $input <= $opts{range} and last;
+ } else {
+ last;
+ }
+ message(N("Sorry, bad choice, try again\n"));
}
return $input;
}
sub message {
- my ($msg, $no_X) = @_;
- if ($urpm::args::options{X} && !$no_X && !$::auto) {
- gmessage($msg, ok_only => 1);
- $urpm::args::options{bug} and log_it($msg);
+ my ($msg) = @_;
+ if ($urpm::args::options{bug} || !defined fileno ::SAVEOUT) {
+ print STDOUT "$msg\n";
} else {
- if ($urpm::args::options{bug} || !defined fileno ::SAVEOUT) {
- print STDOUT "$msg\n";
- } else {
- print ::SAVEOUT "$msg\n";
- }
+ print ::SAVEOUT "$msg\n";
}
}