@Ghazascanner
_2019runbot
Ghazascanner File Manager
server :Linux phpmyadmin-ubuntu-m-2vcpu-16gb-blr1-01 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64
Current Path :
/
usr
/
share
/
perl5
/
Debconf
/
Element
/
Editor
/
Path :
Upload File :
New :
File
Dir
//usr/share/perl5/Debconf/Element/Editor/Boolean.pm
#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Editor::Boolean; use strict; use Debconf::Gettext; use base qw(Debconf::Element); sub show { my $this=shift; $this->frontend->comment($this->question->extended_description."\n\n". "(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n". $this->question->description."\n"); my $default=''; $default=$this->question->value if defined $this->question->value; if ($default eq 'true') { $default=gettext("yes"); } elsif ($default eq 'false') { $default=gettext("no"); } $this->frontend->item($this->question->name, $default); } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; if ($value eq 'yes' || $value eq gettext("yes")) { return $this->SUPER::value('true'); } elsif ($value eq 'no' || $value eq gettext("no")) { return $this->SUPER::value('false'); } else { return $this->SUPER::value($this->question->value); } } 1