From 6799aa95e49b05a5b751bcc13f05893e31e75bf9 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Mon, 2 Dec 2013 23:46:36 +0100 Subject: First attempt to port drakxservice, welcome new baby servicemanager --- modules/services/servicemanager | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100755 modules/services/servicemanager (limited to 'modules') diff --git a/modules/services/servicemanager b/modules/services/servicemanager new file mode 100755 index 00000000..1075865a --- /dev/null +++ b/modules/services/servicemanager @@ -0,0 +1,29 @@ +#!/usr/bin/perl + +use strict; +use lib qw(/usr/lib/libDrakX); + +use standalone; #- warning, standalone must be loaded very first, for 'explanations' + +use common; +use interactive; +use AdminPanel::Shared; +use AdminPanel::Services::services; +use log; + +use yui; + +my $wm_icon = "/usr/share/mcc/themes/default/service-mdk.png"; + +yui::YUI::app()->setApplicationTitle(N("Services and daemons")); +yui::YUI::app()->setApplicationIcon($wm_icon); + +AdminPanel::Services::services::servicePanel(); + + + +# my $in = 'interactive'->vnew('su'); +# begin: +# my $l = services::ask($in); +# services::doit($in, $l) if $l; +# $in->exit(0); -- cgit v1.2.1