Increase speed startup lunching from apanel (slow exit now)

todo add back service reload function if xinetd is enabled (drakxservice don't
have it though)

1 files changed, 184 insertions, 18 deletions

diff --git a/AdminPanel/Services/AdminService.pm b/AdminPanel/Services/AdminService.pm
index 3dfb38f3..7313249e 100644
--- a/AdminPanel/Services/AdminService.pm
+++ b/AdminPanel/Services/AdminService.pm
@@ -54,7 +54,66 @@ has '+name' => (
     default => N("AdminService"), 
 );
 
+has 'services' => (
+    traits  => ['Array'],
+    is      => 'rw',
+    isa     => 'ArrayRef[Str]',
+    default => sub { [] },
+    init_arg  => undef,
+    handles => {
+        all_services    => 'elements',
+        add_service     => 'push',
+        map_service     => 'map',
+        service_count   => 'count',
+        sorted_services => 'sort',
+    },
+);
+
+has 'xinetd_services' => (
+    traits  => ['Array'],
+    is      => 'rw',
+    isa     => 'ArrayRef[Str]',
+    default => sub { [] },
+    init_arg  => undef,
+    handles => {
+        all_xinetd_services    => 'elements',
+        add_xinetd_service     => 'push',
+        map_xinetd_service     => 'map',
+        xinetd_service_count   => 'count',
+        sorted_xinetd_services => 'sort',
+    },
+);
 
+has 'on_services' => (
+    traits  => ['Array'],
+    is      => 'rw',
+    isa     => 'ArrayRef[Str]',
+    default => sub { [] },
+    init_arg  => undef,
+    handles => {
+        all_on_services    => 'elements',
+        add_on_service     => 'push',
+        map_on_service     => 'map',
+        on_service_count   => 'count',
+        sorted_on_services => 'sort',
+    },
+);
+
+
+has 'running_services' => (
+    traits  => ['Array'],
+    is      => 'rw',
+    isa     => 'ArrayRef[Str]',
+    default => sub { [] },
+    init_arg  => undef,
+    handles => {
+        all_running_services    => 'elements',
+        add_running_service     => 'push',
+        map_running_service     => 'map',
+        running_service_count   => 'count',
+        sorted_running_services => 'sort',
+    },
+);
 =head1 VERSION
 
 Version 1.0.0
@@ -198,7 +257,29 @@ xinetd => N_("Starts other deamons on demand."),
     $s;
 }
 
+sub BUILD {
+    my $self = shift;
+
+    $self->loadServices();
+}
+
+
+#=============================================================
+
+=head2 start
+
+=head3 INPUT
 
+    $self: this object
+
+=head3 DESCRIPTION
+
+    This method extends Module::start and is invoked to
+    start  adminService
+
+=cut
+
+#=============================================================
 sub start {
     my $self = shift;
 
@@ -206,6 +287,49 @@ sub start {
 };
 
 
+#=============================================================
+
+=head2 loadServices
+
+=head3 INPUT
+
+    $self: this object
+
+=head3 DESCRIPTION
+
+   This methonds load service info into local attributes such
+   as xinetd_services, on_services and all the available, 
+   services
+
+=cut
+
+#=============================================================
+sub loadServices {
+    my $self = shift;
+
+    my ($l, $on_services) = AdminPanel::Services::Utility::services();
+    my @xinetd_services = map { $_->[0] } AdminPanel::Services::Utility::xinetd_services();
+
+    $self->xinetd_services();
+    $self->xinetd_services(\@xinetd_services);
+    $self->services(\@$l);
+    $self->on_services(\@$on_services);
+
+    $self->refreshRunningServices();
+}
+
+sub refreshRunningServices {
+    my $self = shift;
+
+    my @running;
+    foreach ($self->all_services) {
+
+        my $serviceName = $_;
+        push @running, $serviceName if is_service_running($serviceName);
+    }
+    $self->running_services(\@running);
+}
+
 ## serviceInfo sets widgets accordingly to selected service status 
 ## param
 ##   'service'     service name 
@@ -222,7 +346,14 @@ sub serviceInfo {
 sub serviceStatus {
     my ($self, $tbl, $item) = @_;
 
-    my $started = (is_service_running($item->label())? N("running") : N("stopped"));
+    my $started;
+
+    if (member($item->label(), $self->all_xinetd_services)) {
+        $started = N("Start when requested");
+    }
+    else {
+        $started = (member($item->label(), $self->all_running_services)? N("running") : N("stopped"));
+    }
 # TODO add icon green/red led  
     my $cell   = $tbl->toCBYTableItem($item)->cell(1);
     if ($cell) {
@@ -242,8 +373,8 @@ sub servicePanel {
     ## set icon if not already set by external launcher
     yui::YUI::app()->setApplicationIcon($self->icon);
 
-    my ($l, $on_services) = services();
-    my @xinetd_services = map { $_->[0] } xinetd_services();
+#    my ($l, $on_services) = services();
+#    my @xinetd_services = map { $_->[0] } xinetd_services();
 
     my $mageiaPlugin = "mga";
     my $factory      = yui::YUI::widgetFactory;
@@ -265,15 +396,24 @@ sub servicePanel {
     ## service list (serviceBox)
     my $serviceTbl = $mgaFactory->createCBTable($hbox, $yTableHeader, $yui::YCBTableCheckBoxOnLastColumn);
     my $itemCollection = new yui::YItemCollection;
-    foreach (@$l) {
+    foreach ($self->all_services) {
+
         my $serviceName = $_;
         
         my $item = new yui::YCBTableItem($serviceName);
-        my $started = (is_service_running($serviceName)? N("running") : N("stopped"));
+        my $started;
+        if (member($serviceName, $self->all_xinetd_services)) {
+            $started = N("Start when requested");
+        }
+        else {
+            $started = (member($serviceName, $self->all_running_services)? N("running") : N("stopped"));
+        }
+
 # TODO add icon green/red led  
         my $cell   = new yui::YTableCell($started);
         $item->addCell($cell);
-        $item->check(member($serviceName, @$on_services));
+
+        $item->check(member($serviceName, $self->all_on_services));
         $item->setLabel($serviceName);
         $itemCollection->push($item);
         $item->DISOWN();
@@ -309,12 +449,22 @@ sub servicePanel {
 
     #first item status
     my $item = $serviceTbl->selectedItem();
-    $self->serviceInfo($item->label(), $infoPanel) if ($item);
+    if ($item) {
+        $self->serviceInfo($item->label(), $infoPanel);
+        if (member($item->label(), $self->all_xinetd_services)) {
+            $stopButton->setDisabled();
+            $startButton->setDisabled();
+        }
+        else {
+            $stopButton->setEnabled(1);
+            $startButton->setEnabled(1);
+        }
+    }
 
     while(1) {
-        my $event     = $dialog->waitForEvent();
-        my $eventType = $event->eventType();
-        
+        my $event       = $dialog->waitForEvent();
+        my $eventType   = $event->eventType();
+
         #event type checking
         if ($eventType == $yui::YEvent::CancelEvent) {
             last;
@@ -322,7 +472,8 @@ sub servicePanel {
         elsif ($eventType == $yui::YEvent::WidgetEvent) {
             # widget selected
             my $widget = $event->widget();
-
+            my $wEvent = yui::toYWidgetEvent($event);
+            
             if ($widget == $closeButton) {
                 last;
             }
@@ -343,14 +494,29 @@ sub servicePanel {
                 );
             }
             elsif ($widget == $serviceTbl) {
+                
                 # service selection changed
                 $item = $serviceTbl->selectedItem();
-                $self->serviceInfo($item->label(), $infoPanel) if ($item);
-                $item = $serviceTbl->changedItem();
                 if ($item) {
-                    set_service($item->label(), $item->checked());
-                    # we can push/pop service, but this (slower) should return real situation
-                    ($l, $on_services) = services();
+                    $self->serviceInfo($item->label(), $infoPanel);
+                    if (member($item->label(), $self->all_xinetd_services)) {
+                        $stopButton->setDisabled();
+                        $startButton->setDisabled();
+                    }
+                    else {
+                        $stopButton->setEnabled(1);
+                        $startButton->setEnabled(1);
+                    }
+                }
+# TODO fix libyui-mga-XXX item will always be changed after first one
+                if ($wEvent->reason() == $yui::YEvent::ValueChanged) {
+                    $item = $serviceTbl->changedItem();
+                    if ($item) {
+
+                        set_service($item->label(), $item->checked());
+                        # we can push/pop service, but this (slower) should return real situation
+                        $self->refreshRunningServices();
+                    }
                 }
             }
             elsif ($widget == $startButton) {
@@ -358,7 +524,7 @@ sub servicePanel {
                 if ($item) {
                     restart_or_start($item->label());
                     # we can push/pop service, but this (slower) should return real situation
-                    ($l, $on_services) = services();
+                    $self->refreshRunningServices();
                     $self->serviceStatus($serviceTbl, $item);
                 }
             }
@@ -367,7 +533,7 @@ sub servicePanel {
                 if ($item) {
                     stop($item->label());
                     # we can push/pop service, but this (slower) should return real situation
-                    ($l, $on_services) = services();
+                    $self->refreshRunningServices();
                     $self->serviceStatus($serviceTbl, $item);
                 }
             }