OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
perl5
/
Debconf
/
Element
Server IP: 139.59.38.164
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📁
Dialog
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📁
Editor
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📁
Gnome
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📄
Gnome.pm
2.8 KB
05/06/2019 04:30:30 PM
rw-r--r--
📁
Kde
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📄
Kde.pm
2.13 KB
05/06/2019 04:30:30 PM
rw-r--r--
📄
Multiselect.pm
916 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📁
Noninteractive
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📄
Noninteractive.pm
342 bytes
05/06/2019 04:30:30 PM
rw-r--r--
📄
Select.pm
1.94 KB
05/06/2019 04:30:30 PM
rw-r--r--
📁
Teletype
-
10/21/2019 03:48:56 PM
rwxr-xr-x
📁
Web
-
10/21/2019 03:48:56 PM
rwxr-xr-x
Editing: Multiselect.pm
Close
#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Multiselect; use strict; use base qw(Debconf::Element::Select); sub order_values { my $this=shift; my %vals=map { $_ => 1 } @_; $this->question->template->i18n(''); my @ret=grep { $vals{$_} } $this->question->choices_split; $this->question->template->i18n(1); return @ret; } sub visible { my $this=shift; my @choices=$this->question->choices_split; return ($#choices >= 0); } sub translate_default { my $this=shift; my @choices=$this->question->choices_split; $this->question->template->i18n(''); my @choices_c=$this->question->choices_split; $this->question->template->i18n(1); my @ret; foreach my $c_default ($this->question->value_split) { foreach (my $x=0; $x <= $#choices; $x++) { push @ret, $choices[$x] if $choices_c[$x] eq $c_default; } } return @ret; } 1