1 files changed, 0 insertions, 99 deletions
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
deleted file mode 100644
index f72565fd4..000000000
--- a/perl-install/install_steps_auto_install.pm
+++ /dev/null
@@ -1,99 +0,0 @@
-package install_steps_auto_install; # $Id$
-
-use diagnostics;
-use strict;
-use lang;
-use vars qw(@ISA $graphical @graphical_steps);
-
-@ISA = qw(install_steps);
-
-@graphical_steps = qw(enteringStep beforeInstallPackages installPackages);
-
-use modules;
-
-
-#-######################################################################################
-#- misc imports
-#-######################################################################################
-use common qw(:common :functional);
-use install_steps;
-use log;
-
-sub new {
-    my ($type, $o) = @_;
-
-    if ($graphical) {
-	require install_steps_gtk;
-	push @ISA, 'interactive_gtk';
-	foreach my $f (@graphical_steps) {
-	    no strict 'refs';
-	    my $pkg = $install_steps_gtk::{$f} ? 'install_steps_gtk' : 'install_steps_interactive';
-	    log::l("install_steps_auto_install: adding function ", $pkg, "::", $f);
-	    *{"install_steps_auto_install::$f"} = sub {
-		local @ISA = ('install_steps_gtk', @ISA);
-		&{$pkg . '::' . $f};
-	    };
-	}
-	goto &install_steps_gtk::new;
-    } else {
-	(bless {}, ref $type || $type)->SUPER::new($o);
-    }
-}
-
-sub configureNetwork {
-    my ($o) = @_;
-    modules::load_thiskind('net');
-    goto &install_steps::configureNetwork;
-}
-
-sub enteringStep($$$) {
-    my ($o, $step) = @_;
-    print _("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
-    $o->SUPER::enteringStep($step);
-}
-
-sub ask_warn {
-    log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]);
-}
-sub wait_message {}
-
-sub errorInStep {
-    print "error :(\n"; 
-    print "switch to console f2 for a shell\n";
-    print "Press <Enter> to reboot\n";
-    <STDIN>;
-    c::_exit(0);
-}
-
-
-#-######################################################################################
-#- Steps Functions
-#-######################################################################################
-sub selectLanguage {
-    my ($o) = @_;
-    $o->SUPER::selectLanguage;
-    lang::load_console_font($o->{lang});
-}
-
-sub installPackages {
-    my ($o, $packages) = @_;
-    catch_cdie { $o->install_steps::installPackages($packages) } sub { print "$@\n"; 1 }
-}
-
-sub exitInstall {
-    my ($o, $alldone) = @_;
-    return if $o->{autoExitInstall};
-
-    if ($graphical) {
-	my $O = bless $o, "install_steps_gtk";
-	$O->exitInstall($alldone);
-    } else {
-	install_steps::exitInstall($o);
-	print "\a";
-	print "Auto installation complete (the postInstall is not done yet though)\n";
-	print "Press <Enter> to reboot\n";
-	<STDIN>;
-    }
-}
-
-1;