First attempt to port drakxservice, welcome new baby servicemanager

1 files changed, 29 insertions, 0 deletions

diff --git a/modules/services/servicemanager b/modules/services/servicemanager
new file mode 100755
index 0000000..1075865
--- /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);