Gecko [ christianhealingcodes.com ]

Name	Size	Permission	Date
config_data	6.97 KB	-r-xr-xr-x	2021-03-02 21:02
crc32	1.02 KB	-r-xr-xr-x	2021-03-02 21:01
crontab	1.81 MB	-rwxr-xr-x	2026-04-01 04:35
dbilogstrip	1.35 KB	-r-xr-xr-x	2021-03-02 21:01
dbiprof	6.06 KB	-r-xr-xr-x	2021-03-02 21:01
dbiproxy	5.27 KB	-r-xr-xr-x	2021-03-02 21:01
ea-php54	3.91 MB	-rwxr-xr-x	2026-03-19 03:55
ea-php55	4.01 MB	-rwxr-xr-x	2026-03-19 04:05
ea-php56	4.02 MB	-rwxr-xr-x	2026-03-19 03:51
ea-php70	3.91 MB	-rwxr-xr-x	2026-03-19 04:04
ea-php71	4.08 MB	-rwxr-xr-x	2026-03-19 04:01
ea-php72	4.32 MB	-rwxr-xr-x	2026-03-19 04:07
ea-php73	4.71 MB	-rwxr-xr-x	2026-03-19 04:08
ea-php74	6.09 MB	-rwxr-xr-x	2026-03-19 03:57
ea-php80	6.67 MB	-rwxr-xr-x	2026-03-18 23:17
ea_convert_php_ini	39.85 KB	-rwxr-xr-x	2026-03-18 22:43
ea_current_to_profile	8.31 KB	-rwxr-xr-x	2026-03-18 22:43
ea_install_profile	7.1 KB	-rwxr-xr-x	2026-03-18 22:43
ea_sync_user_phpini_settings	6.73 KB	-rwxr-xr-x	2026-03-18 22:43
enc2xs	40.69 KB	-r-xr-xr-x	2021-03-02 21:02
encguess	2.92 KB	-r-xr-xr-x	2021-03-02 21:02
env_parallel	4.49 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.ash	14.08 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.bash	14.25 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.csh	5.11 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.dash	14.08 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.fish	6.34 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.ksh	13.4 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.mksh	13.46 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.pdksh	5.85 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.sh	14.06 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.tcsh	5.11 KB	-rwxr-xr-x	2021-01-23 21:37
env_parallel.zsh	13.49 KB	-rwxr-xr-x	2021-01-23 21:37
filescout	45.14 KB	-r-x------	2019-05-15 20:49
gpgmailtunl	6.3 KB	-r-xr-xr-x	2021-03-02 21:01
instmodsh	4.1 KB	-r-xr-xr-x	2021-01-13 19:43
json_pp	4.78 KB	-r-xr-xr-x	2021-03-02 21:01
json_xs	6.93 KB	-r-xr-xr-x	2021-01-13 19:43
logscout	5.38 KB	-r-x------	2019-05-15 20:49
lsphp	937 B	-rwxr-xr-x	2025-04-01 16:34
lwp-download	10.05 KB	-r-xr-xr-x	2021-03-02 21:02
lwp-dump	2.65 KB	-r-xr-xr-x	2021-03-02 21:02
lwp-mirror	2.36 KB	-r-xr-xr-x	2021-03-02 21:02
lwp-request	15.82 KB	-r-xr-xr-x	2021-03-02 21:02
niceload	32.36 KB	-rwxr-xr-x	2021-01-23 21:37
parallel	391.58 KB	-rwxr-xr-x	2021-01-23 21:37
parcat	3.93 KB	-rwxr-xr-x	2021-01-23 21:37
parset	3.93 KB	-rwxr-xr-x	2021-01-23 21:37
parsort	6.6 KB	-rwxr-xr-x	2021-01-23 21:37
passwd	3.47 MB	-rwxr-xr-x	2026-04-01 04:35
pear	935 B	-rwxr-xr-x	2025-04-01 16:34
php	933 B	-rwxr-xr-x	2025-04-01 16:34
piconv	8.08 KB	-r-xr-xr-x	2021-03-02 21:02
prove	13.24 KB	-r-xr-xr-x	2021-03-02 21:01
ptar	3.39 KB	-r-xr-xr-x	2021-03-02 21:01
ptardiff	2.49 KB	-r-xr-xr-x	2021-03-02 21:01
ptargrep	4.2 KB	-r-xr-xr-x	2021-03-02 21:01
sem	391.58 KB	-rwxr-xr-x	2021-01-23 21:37
shasum	9.66 KB	-r-xr-xr-x	2021-03-02 21:01
sql	30.91 KB	-rwxr-xr-x	2021-01-23 21:37
test-yaml	1 KB	-r-xr-xr-x	2021-03-02 21:02
whodat	85.81 KB	-r-x------	2025-02-26 19:26
wp	5.31 MB	-rwxr-xr-x	2021-01-13 19:47

Rename

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent ();
use Getopt::Long qw(GetOptions);
use Encode;
use Encode::Locale;

GetOptions(\my %opt, 'parse-head', 'max-length=n', 'keep-client-headers',
    'method=s', 'agent=s', 'request',)
    || usage();

my $url = shift || usage();
@ARGV && usage();

sub usage {
    (my $progname = $0) =~ s,.*/,,;
    die <<"EOT";
Usage: $progname [options] <url>

Recognized options are:
   --agent <str>
   --keep-client-headers
   --max-length <n>
   --method <str>
   --parse-head
   --request

EOT
}

my $ua = LWP::UserAgent->new(
    parse_head => $opt{'parse-head'} || 0,
    keep_alive => 1,
    env_proxy  => 1,
    agent      => $opt{agent}        || "lwp-dump/$LWP::UserAgent::VERSION ",
);

my $req = HTTP::Request->new($opt{method} || 'GET' => decode(locale => $url));
my $res = $ua->simple_request($req);
$res->remove_header(grep /^Client-/, $res->header_field_names)
    unless $opt{'keep-client-headers'}
    or ($res->header("Client-Warning") || "") eq "Internal response";

if ($opt{request}) {
    $res->request->dump;
    print "\n";
}

$res->dump(maxlength => $opt{'max-length'});

__END__

=head1 NAME

lwp-dump - See what headers and content is returned for a URL

=head1 SYNOPSIS

B<lwp-dump> [ I<options> ] I<URL>

=head1 DESCRIPTION

The B<lwp-dump> program will get the resource identified by the URL and then
dump the response object to STDOUT.  This will display the headers returned and
the initial part of the content, escaped so that it's safe to display even
binary content.  The escapes syntax used is the same as for Perl's double
quoted strings.  If there is no content the string "(no content)" is shown in
its place.

The following options are recognized:

=over

=item B<--agent> I<string>

Override the user agent string passed to the server.

=item B<--keep-client-headers>

LWP internally generate various C<Client-*> headers that are stripped by
B<lwp-dump> in order to show the headers exactly as the server provided them.
This option will suppress this.

=item B<--max-length> I<n>

How much of the content to show.  The default is 512.  Set this
to 0 for unlimited.

If the content is longer then the string is chopped at the
limit and the string "...\n(### more bytes not shown)"
appended.

=item B<--method> I<string>

Use the given method for the request instead of the default "GET".

=item B<--parse-head>

By default B<lwp-dump> will not try to initialize headers by looking at the
head section of HTML documents.  This option enables this.  This corresponds to
L<LWP::UserAgent/"parse_head">.

=item B<--request>

Also dump the request sent.

=back

=head1 SEE ALSO

L<lwp-request>, L<LWP>, L<HTTP::Message/"dump">