This commit was manufactured by cvs2svn to create branch 'mandrakesoft'.topic/mandrakesoft

1 files changed, 0 insertions, 41 deletions

diff --git a/perl-install/standalone/drakauth b/perl-install/standalone/drakauth
deleted file mode 100755
index f091a3000..000000000
--- a/perl-install/standalone/drakauth
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl
-
-use lib qw(/usr/lib/libDrakX);
-
-use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
-
-use common;
-use interactive;
-use authentication;
-use network::network;
-
-my $netc = {};
-my $intf = {};
-read_all_conf('', $netc, $intf);
-
-my $in = 'interactive'->vnew('su');
-
-
-my $authentication = {}; # TODO
-
-my $kind = authentication::to_kind($authentication);
-
-main:
-$in->ask_from('', '', 
-	      [ 
-	       { label => N("Authentication"), val => \$kind, list => [ authentication::kinds() ], format => \&authentication::kind2description },
-	      ]) or $in->exit;
-
-authentication::ask_parameters($in, $netc, $authentication, $kind) or goto main;
-
-eval { 
-    authentication::set($in, $netc, $authentication, sub { my ($f) = @_; $f->() });
-    network::network::write_conf("$::prefix/etc/sysconfig/network", $netc);
-};
-if (my $err = $@) {
-    $in->ask_warn(N("Error"), formatError($err));
-    goto main;
-}
-
-
-$in->exit;