Webmin/ErrorPage.pm

   1 package Webmin::ErrorPage;
   2 use WebminCore;
   3
   4 =head2 new Webmin::ErrorPage(subheading, title, message, [program-output], [help-name])
   5 Create a new page object for showing an error of some kind
   6 =cut
   7 sub new
   8 {
   9 if (defined(&Webmin::Theme::ErrorPage::new)) {
  10         return new Webmin::Theme::ErrorPage(@_[1..$#_]);
  11         }
  12 my ($self, $subheading, $title, $message, $output, $help) = @_;
  13 $self = new Webmin::Page($subheading, $title, $help);
  14 $self->add_message("<b>",$text{'error'}," : ",$message,"</b>");
  15 $self->add_message("<pre>",$output,"</pre>");
  16 return $self;
  17 }
  18
  19 1;
  20