OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Debconf
/
Element
/
Dialog
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📄
Boolean.pm
729 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📄
Error.pm
331 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📄
Multiselect.pm
1.79 KB
05/06/2019 04:30:30 PM
rw-r--r--
📄
Note.pm
330 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📄
Password.pm
690 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📄
Progress.pm
1.8 KB
05/06/2019 04:30:30 PM
rw-r--r--
📄
Select.pm
1.32 KB
05/06/2019 04:30:30 PM
rw-r--r--
📄
String.pm
788 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📄
Text.pm
330 bytes
05/06/2019 04:30:30 PM
rw-r--r--
Editing: Boolean.pm
Close
#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Dialog::Boolean; use strict; use base qw(Debconf::Element); sub show { my $this=shift; my @params=('--yesno'); push @params, $this->frontend->dashsep if $this->frontend->dashsep; push @params, $this->frontend->makeprompt($this->question, 1); if (defined $this->question->value && $this->question->value eq 'false') { unshift @params, '--defaultno'; } my ($ret, $value)=$this->frontend->showdialog($this->question, @params); if (defined $ret) { $this->value($ret eq 0 ? 'true' : 'false'); } else { my $default=''; $default=$this->question->value if defined $this->question->value; $this->value($default); } } 1