home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Debconf / Element / Web / Password.pm < prev    next >
Encoding:
Perl POD Document  |  2009-03-24  |  483 b   |  27 lines

  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Web::Password;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub show {
  11.     my $this=shift;
  12.  
  13.     $_=$this->question->extended_description;
  14.     s/\n/\n<br>\n/g;
  15.     $_.="\n<p>\n";
  16.  
  17.     my $default='';
  18.     $default=$this->question->value if defined $this->question->value;
  19.     my $id=$this->id;
  20.     $_.="<b>".$this->question->description."</b><input type=password name=\"$id\" value=\"$default\">\n";
  21.  
  22.     return $_;
  23. }
  24.  
  25.  
  26. 1
  27.