Webmin/Password.pm

   1 package Webmin::Password;
   2 @ISA = ( "Webmin::Textbox" );
   3 use Webmin::Textbox;
   4 use WebminCore;
   5
   6 =head2 new Webmin::Password(name, value, [size])
   7 Create a new text input field, for a password
   8 =cut
   9 sub new
  10 {
  11 if (defined(&Webmin::Theme::Password::new)) {
  12         return new Webmin::Theme::Password(@_[1..$#_]);
  13         }
  14 my ($self, $name, $value, $size) = @_;
  15 $self = new Webmin::Textbox($name, $value, $size);
  16 bless($self);
  17 return $self;
  18 }
  19
  20 =head2 html()
  21 Returns the HTML for this password input
  22 =cut
  23 sub html
  24 {
  25 my ($self) = @_;
  26 return &ui_password($self->get_name(), $self->get_value(),
  27                           $self->{'size'},
  28                           $self->{'$disabled'});
  29 }
  30
  31
  32