From 882ed9f801f347b87e162777b296d5be79b8b7ba Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Tue, 23 Jul 2002 11:21:56 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V1_1_8_9mdk'.

---
 perl-install/install_steps_auto_install.pm | 111 -----------------------------
 1 file changed, 111 deletions(-)
 delete mode 100644 perl-install/install_steps_auto_install.pm

(limited to 'perl-install/install_steps_auto_install.pm')

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
deleted file mode 100644
index cd0282800..000000000
--- a/perl-install/install_steps_auto_install.pm
+++ /dev/null
@@ -1,111 +0,0 @@
-package install_steps_auto_install; # $Id$
-
-use diagnostics;
-use strict;
-use vars qw(@ISA $graphical @graphical_steps);
-
-@ISA = qw(install_steps);
-
-#-######################################################################################
-#- misc imports
-#-######################################################################################
-use common;
-use install_steps;
-
-sub new {
-    my ($type, $o) = @_;
-
-    # Handle legacy options
-    $o->{interactive} ||= 'gtk' if $graphical || !is_empty_array_ref($o->{interactiveSteps});
-    push @{$o->{interactiveSteps}}, qw(installPackages exitInstall), @graphical_steps;
-
-    if ($o->{interactive}) {
-        my $interactiveClass = "install_steps_$o->{interactive}";
-	require"$interactiveClass.pm"; #- no space to skip perl2fcalls
-
-	@ISA = ($interactiveClass, @ISA);
-
-	for (my $f = $o->{steps}{first}; $f; $f = $o->{steps}{$f}{next}) {
-	    my $auto_name = member($f, @{$o->{interactiveSteps}}) ? 'noauto' : 'auto';
-	    $o->{steps}{$f}{$auto_name} = 1;
-	}
-
-	goto &{$::{$interactiveClass . "::"}{new}};
-    } else {
-	@ISA = ('install_steps_auto_install_non_interactive', @ISA);
-	(bless {}, ref $type || $type)->install_steps::new($o);
-    }
-}
-
-
-sub exitInstall {
-    my ($o, $alldone) = @_;
-    return if $o->{autoExitInstall};
-
-    if ($o->{interactive}) {
-	$o->SUPER::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>;
-    }
-}
-
-
-#-######################################################################################
-#- install_steps_auto_install_non_interactive package
-#-######################################################################################
-package install_steps_auto_install_non_interactive;
-
-use install_steps;
-use lang;
-use modules;
-use common;
-use log;
-
-sub configureNetwork {
-    my ($o) = @_;
-    modules::load_category('network/main|usb');
-    goto &install_steps::configureNetwork;
-}
-
-sub enteringStep {
-    my ($o, $step) = @_;
-    my ($s, $t) = (__("Entering step `%s'\n"), $o->{steps}{$step}{text});
-    ($s, $t) = (translate($s), translate($t)) if $ENV{LANG} !~ /ja|ko|zh/;
-    print sprintf($s, $t);
-    $o->install_steps::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->install_steps::selectLanguage;
-    lang::load_console_font($o->{lang});
-}
-
-sub installPackages {
-    my ($o, $packages) = @_;
-    catch_cdie { $o->install_steps::installPackages($packages) } sub { print "$@\n"; 1 }
-}
-
-1;
-- 
cgit v1.2.1