Linux cpanel.rrshost.in 5.15.0-25-generic #25-Ubuntu SMP Wed Mar 30 15:54:22 UTC 2022 x86_64
Apache
: 109.123.238.221 | : 172.70.127.47
128 Domain
8.2.28
aev999
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Debconf /
Element /
Web /
[ HOME SHELL ]
Name
Size
Permission
Action
Boolean.pm
660
B
-rw-r--r--
Error.pm
160
B
-rw-r--r--
Multiselect.pm
958
B
-rw-r--r--
Note.pm
159
B
-rw-r--r--
Password.pm
483
B
-rw-r--r--
Progress.pm
231
B
-rw-r--r--
Select.pm
877
B
-rw-r--r--
String.pm
467
B
-rw-r--r--
Text.pm
315
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Boolean.pm
#!/usr/bin/perl -w # This file was preprocessed, do not edit! package Debconf::Element::Web::Boolean; use strict; use base qw(Debconf::Element); sub show { my $this=shift; $_=$this->question->extended_description; s/\n/\n<br>\n/g; $_.="\n<p>\n"; my $default=''; $default=$this->question->value if defined $this->question->value; my $id=$this->id; $_.="<input type=checkbox name=\"$id\"". ($default eq 'true' ? ' checked' : ''). ">\n<b>". $this->question->description."</b>"; return $_; } sub value { my $this=shift; return $this->SUPER::value() unless @_; my $value=shift; $this->SUPER::value($value eq 'on' ? 'true' : 'false'); } 1
Close
