K2LL33D SHELL

 Apache/2.4.7 (Ubuntu)
 Linux sman1baleendah 3.13.0-24-generic #46-Ubuntu SMP Thu Apr 10 19:11:08 UTC 2014 x86_64
 uid=33(www-data) gid=33(www-data) groups=33(www-data)
 safemode : OFF
 MySQL: ON | Perl: ON | cURL: OFF | WGet: ON
  >  / usr / bin / 		server ip : 104.21.89.46

your ip : 108.162.241.180

H O M E


Filename/usr/bin/w3mman
Size1.11 kb
Permissionrwxr-xr-x
Ownerroot : root
Create time27-Apr-2025 09:56
Last modified04-Jan-2014 19:15
Last accessed05-Jul-2025 16:15
Actionsedit | rename | delete | download (gzip)
Viewtext | code | image
#!/usr/bin/perl

@W3M = split(' ', $ENV{'W3MMAN_W3M'} || 'w3m');
$ENV{'W3MMAN_MAN'} ||= '/usr/bin/man';
$SCRIPT = 'file:///$LIB/w3mman2html.cgi';

sub usage {
($_ = $0) =~ s@.*/@@;
print STDERR "$_ [-M <path>] [[<section>] <command>]\n";
print STDERR "$_ [-M <path>] [-k <keyword>]\n";
print STDERR "$_ [-l <file>]\n";
exit 1;
}

$query = "";
while (@ARGV) {
$_ = shift @ARGV;
if (/^-M$/) {
@ARGV || &usage();
$ENV{'MANPATH'} = shift @ARGV;
} elsif (/^-k$/) {
@ARGV || &usage();
$query = "?keyword=" . &form_encode(shift @ARGV);
} elsif (/^-l$/) {
@ARGV || &usage();
$query = "?quit=ok&local=" . &form_encode(shift @ARGV);
$query .= "&pwd=" . &form_encode($ENV{'PWD'});
} elsif (/^-/) {
&usage();
} elsif (/^\d/ || $_ eq 'n') {
@ARGV || &usage();
$query = "?quit=ok&man=" . &form_encode(shift @ARGV);
$query .= "&section=" . &form_encode($_);
} else {
$query = "?quit=ok&man=" . &form_encode($_);
}
}

exec @W3M, "$SCRIPT$query";

sub form_encode {
local($_) = @_;
s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
return $_;
}