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

  1. #!/usr/bin/perl -w
  2. # This file was preprocessed, do not edit!
  3.  
  4.  
  5. package Debconf::Element::Dialog::Password;
  6. use strict;
  7. use base qw(Debconf::Element);
  8.  
  9.  
  10. sub show {
  11.     my $this=shift;
  12.     
  13.     my ($text, $lines, $columns)=
  14.         $this->frontend->makeprompt($this->question);
  15.  
  16.     my @params=('--passwordbox');
  17.     push @params, $this->frontend->dashsep if $this->frontend->dashsep;
  18.     push @params, ($text, $lines + $this->frontend->spacer, $columns);
  19.     my $ret=$this->frontend->showdialog($this->question, @params);
  20.  
  21.     if (! defined $ret || $ret eq '') {
  22.         my $default='';
  23.         $default=$this->question->value
  24.             if defined $this->question->value;
  25.         $this->value($default);
  26.     }
  27.     else {
  28.         $this->value($ret);
  29.     }
  30. }
  31.  
  32. 1
  33.