Server IP : 15.235.198.142 / Your IP : 216.73.216.0 Web Server : Apache/2.4.58 (Ubuntu) System : Linux ballsack 6.8.0-45-generic #45-Ubuntu SMP PREEMPT_DYNAMIC Fri Aug 30 12:02:04 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 8.3.6 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : OFF Directory : /usr/share/perl5/Debconf/Element/Teletype/ |
Upload File : |
#!/usr/bin/perl # This file was preprocessed, do not edit! package Debconf::Element::Teletype::Boolean; use warnings; 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