Webmin/Icon.pm

   1 package Webmin::Icon;
   2 use WebminCore;
   3
   4 =head2 Webmin::Icon(type, [message])
   5 This object generates an icon indicating some status. Possible types are :
   6 ok - OK
   7 critial - A serious problem
   8 major - A relatively serious problem
   9 minor - A small problem
  10 Can be used inside tables and property lists
  11 =cut
  12 sub new
  13 {
  14 if (defined(&Webmin::Theme::Icon::new) && caller() !~ /Webmin::Theme::Icon/) {
  15         return new Webmin::Theme::Icon(@_[1..$#_]);
  16         }
  17 my ($self, $type, $message) = @_;
  18 $self = { };
  19 bless($self);
  20 $self->set_type($type);
  21 $self->set_message($message) if (defined($message));
  22 return $self;
  23 }
  24
  25 =head2 html()
  26 Returns HTML for the icon
  27 =cut
  28 sub html
  29 {
  30 my ($self) = @_;
  31 my $rv;
  32 $rv .= "<img src=/images/".$self->get_type().".gif align=middle>";
  33 if ($self->get_message()) {
  34         $rv .= "&nbsp;".$self->get_message();
  35         }
  36 return $rv;
  37 }
  38
  39 sub set_type
  40 {
  41 my ($self, $type) = @_;
  42 $self->{'type'} = $type;
  43 }
  44
  45 sub get_type
  46 {
  47 my ($self) = @_;
  48 return $self->{'type'};
  49 }
  50
  51 sub set_message
  52 {
  53 my ($self, $message) = @_;
  54 $self->{'message'} = $message;
  55 }
  56
  57 sub get_message
  58 {
  59 my ($self) = @_;
  60 return $self->{'message'};
  61 }
  62
  63 1;
  64