home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / install_steps_stdio.pm < prev    next >
Encoding:
Perl POD Document  |  2000-01-12  |  624 b   |  36 lines
  1. package install_steps_stdio;
  2.  
  3.  
  4.  
  5.  
  6.  
  7. @ISA = qw(install_steps_interactive interactive_stdio);
  8.  
  9. use common qw(:common);
  10. use devices;
  11. use run_program;
  12. use interactive_stdio;
  13. use install_steps_interactive;
  14. use install_any;
  15. use log;
  16.  
  17. sub new($$) {
  18.     my ($type, $o) = @_;
  19.  
  20.     $o->{partitioning}{readonly} = 1; 
  21.     (bless {}, ref $type || $type)->SUPER::new($o);
  22. }
  23.  
  24. sub enteringStep {
  25.     my ($o, $step) = @_;
  26.     print _("Entering step `%s'\n", translate($o->{steps}{$step}{text}));
  27.     $o->SUPER::enteringStep($step);
  28. }
  29. sub leavingStep {
  30.     my ($o, $step) = @_;
  31.     $o->SUPER::leavingStep($step);
  32.     print "--------\n";
  33. }
  34.  
  35. 1;
  36.