From 9f8734e27c9a88137a2933970b7a5962e37789da Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 16 Jul 1999 14:03:47 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_stdio.pm | 30 +++++++++++++-----------------
 1 file changed, 13 insertions(+), 17 deletions(-)

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

diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index c752e62df..44de0dd60 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -18,6 +18,15 @@ use log;
 
 1;
 
+sub enteringStep($$$) {
+    my ($o, $step) = @_;
+    print "Starting step `$o->{steps}->{$step}->{text}'\n";
+}
+sub leavingStep {
+    my ($o) = @_;
+    print "--------\n";
+}
+
 sub chooseLanguage($) {
     my $lang = ask_from_list('Language', 'Which language do you want?', [ lang::list() ]);
     run_program::run('xmodmap', "/usr/bin/$lang.map");
@@ -120,18 +129,6 @@ the Mandrake rescue image, making it much easier to recover from severe system
 failures. Would you like to create a bootdisk for your system?");
 }
 
-sub exitInstall {
-    ask_warn('', 
-"Congratulations, installation is complete.
-Remove the boot media and press return to reboot.
-For information on fixes which are available for this release of Linux Mandrake,
-consult the Errata available from http://www.linux-mandrake.com/.
-Information on configuring your system is available in the post
-install chapter of the Official Linux Mandrake User's Guide.");
-}
-
-
-
 sub readln {
     my $l = <STDIN>;
     chomp $l;
@@ -140,13 +137,12 @@ sub readln {
 
 sub ask_warn {
     my ($title, @msgs) = @_;
-    print "----------\n", map { "$_\n" } @_;
-    print "Press enter"; readln();
+    warn(@msgs);
 }
 
 sub ask_yesorno {
     my ($title, @msgs) = @_;
-    print "----------\n", join("\n", @_);
+    print join("\n", @_);
     print " (yes/No) "; readln() =~ /y/i;
 
 }
@@ -159,7 +155,7 @@ sub check_it {
 sub ask_from_list {
     my ($title, @msgs) = @_;
     my $list = pop @msgs;
-    print "----------\n", map { "$_\n" } @msgs;
+    print map { "$_\n" } @msgs;
     my $n = 0; foreach (@$list) { $n++; print "$n: $_\n"; }
     my $i;
     do {
@@ -175,7 +171,7 @@ sub ask_many_from_list {
     my $default = pop @msgs;
     my $list = pop @msgs;
     my @defaults;
-    print "----------\n", map { "$_\n" } @msgs;
+    print map { "$_\n" } @msgs;
     my $n = 0; foreach (@$list) { 
 	$n++; 
 	print "$n: $_\n"; 
-- 
cgit v1.2.1