From d80182fb067de110a09af88969ab9844e11ce21d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 25 Oct 1999 22:59:18 +0000
Subject: no_comment

---
 perl-install/install_steps_auto_install.pm | 34 ++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create 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
new file mode 100644
index 000000000..254f092ff
--- /dev/null
+++ b/perl-install/install_steps_auto_install.pm
@@ -0,0 +1,34 @@
+package install_steps_auto_install;
+
+use diagnostics;
+use strict;
+use vars qw(@ISA);
+
+@ISA = qw(install_steps);
+
+#-######################################################################################
+#- misc imports
+#-######################################################################################
+use common qw(:common);
+use install_steps;
+use log;
+
+sub enteringStep($$$) {
+    my ($o, $step) = @_;
+    print _("Entering step `%s'\n", $o->{steps}{$step}{text});
+    $o->SUPER::enteringStep($step);
+}
+
+sub ask_warn {
+    log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]);
+}
+
+sub errorInStep { 
+    print "error :(\n"; 
+    print "switch to console f2 for a shell\n";
+    print "press to return to reboot\n";
+    <STDIN>;
+    exec "true";
+}
+
+1;
-- 
cgit v1.2.1