#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Teletype::Boolean; use strict; use Debconf::Gettext; use base qw(Debconf::Element); sub show { my $this=shift; my $y=gettext("yes"); my $n=gettext("no"); $this->frontend->display($this->question->extended_description."\n"); my $default=''; $default=$this->question->value if defined $this->question->value; if ($default eq 'true') { $default=$y; } elsif ($default eq 'false') { $default=$n; } my $description=$this->question->description; if (Debconf::Config->terse eq 'false') { $description.=" [$y/$n]"; } my $value=''; while (1) { $_=$this->frontend->prompt( default => $default, completions => [$y, $n], prompt => $description, question => $this->question, ); return unless defined $_; if (substr($y, 0, 1) ne substr($n, 0, 1)) { $y=substr($y, 0, 1); $n=substr($n, 0, 1); } if (/^\Q$y\E/i) { $value='true'; last; } elsif (/^\Q$n\E/i) { $value='false'; last; } if (/^y/i) { $value='true'; last; } elsif (/^n/i) { $value='false'; last; } } $this->frontend->display("\n"); $this->value($value); } 1
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
Boolean.pm | File | 1.17 KB | 0644 |
|
Error.pm | File | 170 B | 0644 |
|
Multiselect.pm | File | 1.85 KB | 0644 |
|
Note.pm | File | 403 B | 0644 |
|
Password.pm | File | 629 B | 0644 |
|
Progress.pm | File | 805 B | 0644 |
|
Select.pm | File | 3.21 KB | 0644 |
|
String.pm | File | 573 B | 0644 |
|
Text.pm | File | 315 B | 0644 |
|