From bd3847478d1933ebf02ecaf47040172ec6db53de Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Wed, 10 Aug 2005 01:52:59 +0000 Subject: various fix to be able to re run drakwizard in console mode (#16839) --- common/Wizcommon.pm | 95 ----------------------------------------------------- 1 file changed, 95 deletions(-) (limited to 'common/Wizcommon.pm') diff --git a/common/Wizcommon.pm b/common/Wizcommon.pm index 676b3138..43971713 100644 --- a/common/Wizcommon.pm +++ b/common/Wizcommon.pm @@ -62,99 +62,4 @@ sub test_host_domain { return 1; } - -sub wizard_progress_bar { - use lib qw(/usr/lib/libDrakX); - use ugtk2 qw(:wrappers); - my ($command, $descr) = @_; - my ($value, $timer); - my $my_win = ugtk2->new(""); - my $window1 = $my_win->{window}; - gtkadd($window1, - gtkpack(Gtk2::VBox->new(0,0), - gtkpack_(Gtk2::VBox->new(0, 3), - 0, my $text = Gtk2::Label->new($descr), - 0, my $text2 = Gtk2::Label->new, - 0, Gtk2::HSeparator->new, - 0, my $pbar = Gtk2::ProgressBar->new, - ), - ), - ); - $window1->realize; - $pbar->set_pulse_step(0.1); - - local *TMP; - open(TMP, "$command 2>&1 |"); - while ($value = ) { - $timer = Glib::Timeout->add(10, sub {}); - $pbar->pulse; - $text2->set_text($value); - gtkflush(); - next; - $my_win->main; - $window1->show_all; - undef $value; - } - close TMP; - $my_win->destroy; - return 0; -} - - -my $timeout; -sub gtktext_get_log { - my ($command, $log_w, $log_scroll) = @_; - my $buffer = $log_w->get_buffer; - $buffer->delete($buffer->get_start_iter, $buffer->get_end_iter); - - my ($prev_scroll, $want_scroll_down) = (0, 1); - my $pid = open(my $F, "$command 2>&1 |") or return sub { 1 }; - fcntl($F, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!"; - Glib::Source->remove($timeout) if $timeout; $timeout = ''; - $timeout = Glib::Timeout->add(100, sub { - if ($buffer) { - my $end = $buffer->get_end_iter; - while (defined (my $s = <$F>)) { - $buffer->insert_interactive($end, $s, -1); - } - my $new_scroll = $log_scroll->child->get_vadjustment->get_value; - $want_scroll_down &&= $new_scroll >= $prev_scroll; - $prev_scroll = $new_scroll; - $log_w->scroll_to_iter($end, 0, 0, 0, 0) if $want_scroll_down; - } - if (waitpid($pid, c::WNOHANG()) > 0) { - $buffer->insert_interactive($buffer->get_end_iter, "\n" . "#" x 20 . "\n" . " This script has terminated,\nyou can close this window", -1) if $buffer; - $pid = $timeout = ''; - 0; - } else { - 1; - } - }); - sub { - if ($pid) { - $::in->ask_yesorno('', N("The command is still running. Do you want to kill it and quit the Wizard?")) or return; - kill 9, $pid+1; - 1; - } - $buffer = ''; - 1; - }; -} - -sub run_command_and_log { - use lib qw(/usr/lib/libDrakX); - my ($command, $descr, $when_command_is_over) = @_; - my $w = ugtk2->new(''); - gtkadd(gtkset_size_request($w->{window}, 800, 400), - gtkpack_(gtkset_modal(Gtk2::VBox->new, 1), - 0, $descr, - 1, my $log_scroll = create_scrolled_window(my $log_w = gtkset_editable(Gtk2::TextView->new, 0)), - 0, my $close_w = Gtk2::Button->new(N("Close"))), - ); - my $stop_running = gtktext_get_log($command, $log_w, $log_scroll); - $close_w->signal_connect(clicked => sub { $stop_running->() and $w->destroy and return 0 }); - $close_w->grab_focus; - $w->show; -} - 1; -- cgit v1.2.1