summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-10 08:21:31 +0000
committerdamien <damien@mandriva.com>2001-03-10 08:21:31 +0000
commit17a2685fc66cd736922635acf03b7b6977f6dd9c (patch)
treef0a52cf1e03d244adbcbcc7a83e6ab9142b41332 /perl-install
parent20409600370b8741d3939aab059b3b2a961e21d9 (diff)
downloaddrakx-17a2685fc66cd736922635acf03b7b6977f6dd9c.tar
drakx-17a2685fc66cd736922635acf03b7b6977f6dd9c.tar.gz
drakx-17a2685fc66cd736922635acf03b7b6977f6dd9c.tar.bz2
drakx-17a2685fc66cd736922635acf03b7b6977f6dd9c.tar.xz
drakx-17a2685fc66cd736922635acf03b7b6977f6dd9c.zip
improved.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/services.pm45
1 files changed, 43 insertions, 2 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index 319e4ff49..d806e3123 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -9,6 +9,8 @@ use strict;
use common qw(:common :functional :system :file);
use commands;
use run_program;
+use my_gtk qw(:helpers :wrappers);
+use Data::Dumper;
sub description {
my %services = (
@@ -95,7 +97,7 @@ sub services {
sub ask {
my ($in, $prefix) = @_;
my ($l, $on_services) = services($prefix);
- $in->ask_many_from_list("drakxservices",
+ ref($in) !~ /gtk/ and return $in->ask_many_from_list("drakxservices",
_("Choose which services should be automatically started at boot time"),
{
list => $l,
@@ -103,12 +105,51 @@ sub ask {
values => $on_services,
sort => 1,
});
+ my $W = my_gtk->new(_("Resolution"));
+ my ($x, $y, $w_popup);
+ gtkadd($W->{window}, gtkadd(my $b = new Gtk::EventBox(), gtkpack_($W->create_box_with_title(_("Services and deamons")),
+ 1, gtkset_usize(createScrolledWindow(create_packtable({ col_spacings => 10, row_spacings => 3 },
+ map {
+ my $infos_old = description($_, $prefix);
+ my $infos;
+ while ($infos_old =~ s/(.{40})//) {
+ $1 =~ /(.*) ([^ ]*)/;
+ $infos .= "$1\n$2";
+ }
+ $infos .= $infos_old;
+ $infos ||= "No additionnal information\n about this service, sorry.";
+ my $stopped = `service $_ status` =~ /stop/;
+ my $started = `service $_ status` =~ /running/;
+ my $state; $started && -e "/var/lock/subsys/$_" and $state="running";
+ $stopped and $state="running";
+ $state ||= "unknown";
+ my $w;
+ [ gtkpack__(new Gtk::HBox(0,0), $_),
+ gtkpack__(new Gtk::HBox(0,0), $state),
+ gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button("Infos"), clicked => sub {
+ $w_popup and $w_popup->destroy;
+ gtkmove(gtkshow(gtkadd($w_popup=new Gtk::Window (-popup),
+ gtksignal_connect(gtkadd(new Gtk::EventBox(),
+ gtkadd(gtkset_shadow_type(new Gtk::Frame, 'etched_out'),
+ gtkset_justify(new Gtk::Label($infos), 0))),
+ button_press_event => sub { $w_popup->destroy; }
+ ))), $x, $y);}))
+ ]
+ }
+ @$l)), 450, 400)))
+ );
+ $b->set_events(["pointer_motion_mask"]);
+ $b->signal_connect( motion_notify_event => sub { my ($w, $e) = @_;
+ my ($ox, $oy) = $w->window->get_deskrelative_origin;
+ $x = $e->{'x'}+$ox; $y = $e->{'y'}+$oy; });
+ $b->signal_connect( button_press_event => sub { $w_popup and $w_popup->destroy;});
+ $W->main or return;
}
sub doit {
my ($in, $on_services, $prefix) = @_;
my ($l, $was_on_services) = services($prefix);
-
+
foreach (@$l) {
my $before = member($_, @$was_on_services);
my $after = member($_, @$on_services);