1 files changed, 7 insertions, 13 deletions
diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
index 293813893..5d814354e 100755
--- a/perl-install/standalone/drakxservices
+++ b/perl-install/standalone/drakxservices
@@ -1,24 +1,18 @@
 #!/usr/bin/perl
 
+use strict;
 use lib qw(/usr/lib/libDrakX);
 
-use common qw(:common :functional :file);
+use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
+
+use common;
 use interactive;
-use standalone;
 use services;
 use log;
 
-$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-
-local $_ = join '', @ARGV;
-
-/-h/ and die "usage: drakxservices\n";
-
-
-my $in = vnew interactive('su');
+$ugtk3::wm_icon = "/usr/share/mcc/themes/default/service-mdk.png";
+my $in = 'interactive'->vnew('su');
 begin:
 my $l = services::ask($in);
 services::doit($in, $l) if $l;
-!$::isEmbedded and $in->exit(0);
-kill USR1, $::CCPID;
-goto begin;
+$in->exit(0);