home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-2 / Inter.Net 55-2.iso / Mandrake / mdkinst / usr / bin / perl-install / install_steps_auto_install.pm < prev    next >
Encoding:
Perl POD Document  |  2000-01-12  |  628 b   |  41 lines
  1. package install_steps_auto_install;
  2.  
  3.  
  4.  
  5.  
  6.  
  7. @ISA = qw(install_steps);
  8.  
  9.  
  10.  
  11.  
  12. use common qw(:common);
  13. use install_steps;
  14. use log;
  15.  
  16. sub enteringStep($$$) {
  17.     my ($o, $step) = @_;
  18.     print _("Entering step `%s'\n", $o->{steps}{$step}{text});
  19.     $o->SUPER::enteringStep($step);
  20. }
  21.  
  22. sub ask_warn {
  23.     log::l(ref $_[1] ? join " ", @{$_[1]} : $_[1]);
  24. }
  25.  
  26. sub errorInStep {
  27.     print "error :(\n"; 
  28.     print "switch to console f2 for a shell\n";
  29.     print "press to return to reboot\n";
  30.     <STDIN>;
  31.     c::_exit(0);
  32. }
  33.  
  34. sub exitInstall {
  35.     print "Auto installation complete\n";
  36.     print "Press <enter> to reboot\n";
  37.     <STDIN>;
  38. }
  39.  
  40. 1;
  41.