blob: 1075865aee9f49f210aecb5dffa7f7c6e52c28cf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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);
|
