summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_stdio.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps_stdio.pm')
-rw-r--r--perl-install/install/steps_stdio.pm36
1 files changed, 36 insertions, 0 deletions
diff --git a/perl-install/install/steps_stdio.pm b/perl-install/install/steps_stdio.pm
new file mode 100644
index 000000000..f6a759cae
--- /dev/null
+++ b/perl-install/install/steps_stdio.pm
@@ -0,0 +1,36 @@
+package install::steps_stdio; # $Id$
+
+use diagnostics;
+use strict;
+use vars qw(@ISA);
+
+@ISA = qw(install::steps_interactive interactive::stdio);
+
+use common;
+use interactive::stdio;
+use install::steps_interactive;
+use lang;
+
+sub new($$) {
+ my ($type, $o) = @_;
+
+ (bless {}, ref($type) || $type)->SUPER::new($o);
+}
+
+sub charsetChanged {
+ my ($o) = @_;
+ lang::load_console_font($o->{locale});
+}
+
+sub enteringStep {
+ my ($o, $step) = @_;
+ print N("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
+ $o->SUPER::enteringStep($step);
+}
+sub leavingStep {
+ my ($o, $step) = @_;
+ $o->SUPER::leavingStep($step);
+ print "--------\n";
+}
+
+1;