create branch 2007.1 from drakx-installer-* tarballs

(needed after the big svn loss)

1 files changed, 18 insertions, 0 deletions

diff --git a/perl-install/standalone/drakxservices b/perl-install/standalone/drakxservices
new file mode 100755
index 000000000..91317d1f4
--- /dev/null
+++ b/perl-install/standalone/drakxservices
@@ -0,0 +1,18 @@
+#!/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);