Linux vps-61133.fhnet.fr 4.9.0-19-amd64 #1 SMP Debian 4.9.320-2 (2022-06-30) x86_64
Apache/2.4.25 (Debian)
Server IP : 93.113.207.21 & Your IP : 216.73.216.112
Domains :
Cant Read [ /etc/named.conf ]
User : www-data
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
perl5 /
Debconf /
Element /
Delete
Unzip
Name
Size
Permission
Date
Action
Dialog
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Editor
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Gnome
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Kde
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Noninteractive
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Teletype
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Web
[ DIR ]
drwxr-xr-x
2017-06-20 11:40
Gnome.pm
2.89
KB
-rw-r--r--
2017-05-21 19:08
Kde.pm
2.13
KB
-rw-r--r--
2017-05-21 19:08
Multiselect.pm
916
B
-rw-r--r--
2017-05-21 19:08
Noninteractive.pm
342
B
-rw-r--r--
2017-05-21 19:08
Select.pm
1.94
KB
-rw-r--r--
2017-05-21 19:08
Save
Rename
#!/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