#!/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 services; use log; $ugtk2::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; $in->exit(0); le='drakx Git repository'/>
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-07-26 18:16:47 +0000
committerThierry Vignaud <tv@mageia.org>2012-07-26 18:16:47 +0000
commit3f93b0cd67a2f22bd89f1d279f7c22f0d44565e4 (patch)
tree0ec34115a389f9fc125b786d715fa1b6d1093371
parentedb1f9172ad098477c6fe933ad95f5ef08e3a2e1 (diff)
downloaddrakx-3f93b0cd67a2f22bd89f1d279f7c22f0d44565e4.tar
drakx-3f93b0cd67a2f22bd89f1d279f7c22f0d44565e4.tar.gz
drakx-3f93b0cd67a2f22bd89f1d279f7c22f0d44565e4.tar.bz2
drakx-3f93b0cd67a2f22bd89f1d279f7c22f0d44565e4.tar.xz
drakx-3f93b0cd67a2f22bd89f1d279f7c22f0d44565e4.zip
sync with code