FM / bin

/usr/local/bin

Name	Size	Mode	Actions
config_data	7138	0555	edit dl rm
crc32	1043	0555	edit dl rm
crontab	3320736	0755	edit dl rm
drush	6138646	0755	edit dl rm
drush.phar	6138646	0755	edit dl rm
ea-php72	5815400	0755	edit dl rm
ea-php73	5647288	0755	edit dl rm
ea-php74	6383296	0755	edit dl rm
ea-php80	7986080	0755	edit dl rm
ea-php81	8098952	0755	edit dl rm
ea_convert_php_ini	40811	0755	edit dl rm
ea_current_to_profile	11519	0755	edit dl rm
ea_install_profile	7274	0755	edit dl rm
ea_sync_user_phpini_settings	6888	0755	edit dl rm
htmltree	1173	0555	edit dl rm
instmodsh	4194	0555	edit dl rm
ipcount	3724	0555	edit dl rm
iptab	982	0555	edit dl rm
json_pp	3828	0555	edit dl rm
json_xs	7013	0555	edit dl rm
lsphp	937	0755	edit dl rm
lwp-download	8635	0555	edit dl rm
lwp-dump	2797	0555	edit dl rm
lwp-mirror	2478	0555	edit dl rm
lwp-request	15059	0555	edit dl rm
mech-dump	4623	0555	edit dl rm
passwd	3768664	0755	edit dl rm
pear	935	0755	edit dl rm
php	933	0755	edit dl rm
php-config	6384	0755	edit dl rm
prove	13457	0555	edit dl rm
ptar	3456	0555	edit dl rm
ptardiff	2535	0555	edit dl rm
ptargrep	4299	0555	edit dl rm
shasum	9287	0555	edit dl rm
tpage	8923	0555	edit dl rm
ttree	39234	0555	edit dl rm
wp	6928461	0755	edit dl rm
wp-cli.phar	6928461	0755	edit dl rm
zipdetails	48366	0555	edit dl rm

Edit: /usr/local/bin/mech-dump (4623B)

#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

# PODNAME: mech-dump
# ABSTRACT: Dumps information about a web page

use warnings;
use strict;
use WWW::Mechanize ();
use Getopt::Long;
use Pod::Usage;

use HTTP::Cookies;
my @actions;
my $absolute;

my $user;
my $pass;
my $agent;
my $agent_alias;
my $cookie_filename;

GetOptions(
    'user=s'        => \$user,
    'password=s'    => \$pass,
    headers         => sub { push( @actions, \&dump_headers ) },
    forms           => sub { push( @actions, \&dump_forms ) },
    links           => sub { push( @actions, \&dump_links ) },
    images          => sub { push( @actions, \&dump_images ) },
    all             => sub { push( @actions, \&dump_headers, \&dump_forms, \&dump_links, \&dump_images ) },
    text            => sub { push( @actions, \&dump_text ) },
    absolute        => \$absolute,
    'agent=s'       => \$agent,
    'agent-alias=s' => \$agent_alias,
    'cookie-file=s' => \$cookie_filename,
    help            => sub { pod2usage(1); },
) or pod2usage(2);

my $uri = shift or die "Must specify a URL or file to check.  See --help for details.\n";
if ( -e $uri ) {
    require URI::file;
    $uri = URI::file->new_abs( $uri )->as_string;
}

@actions = (\&dump_forms) unless @actions;

my $mech = WWW::Mechanize->new();
if ( defined $agent ) {
    $mech->agent( $agent );
}
elsif ( defined $agent_alias ) {
    $mech->agent_alias( $agent_alias );
}
if ( defined $cookie_filename ) {
    my $cookies = HTTP::Cookies->new( file => $cookie_filename, autosave => 1, ignore_discard => 1 );
    $cookies->load() ;
    $mech->cookie_jar($cookies);
}
else {
    $mech->cookie_jar(undef) ;
}

$mech->env_proxy();
my $response = $mech->get( $uri );
if (!$response->is_success and defined ($response->www_authenticate)) {
    if (!defined $user or !defined $pass) {
        die("Page requires username and password, but none specified.\n");
    }
    $mech->credentials($user,$pass);
    $response = $mech->get( $uri );
    $response->is_success or die "Can't fetch $uri with username and password\n", $response->status_line, "\n";
}
$mech->is_html or die qq{$uri returns type "}, $mech->ct, qq{", not "text/html"\n};

while ( my $action = shift @actions ) {
    $action->( $mech );
    print "\n" if @actions;
}

sub dump_headers {
    my $mech = shift;
    $mech->dump_headers( undef );
    return;
}

sub dump_forms {
    my $mech = shift;
    $mech->dump_forms( undef, $absolute );
    return;
}

sub dump_links {
    my $mech = shift;
    $mech->dump_links( undef, $absolute );
    return;
}

sub dump_images {
    my $mech = shift;
    $mech->dump_images( undef, $absolute );
    return;
}

sub dump_text {
    my $mech = shift;
    $mech->dump_text();
    return;
}

__END__

=pod

=encoding UTF-8

=head1 NAME

mech-dump - Dumps information about a web page

=head1 VERSION

version 1.83

=head1 SYNOPSIS

mech-dump [options] [file|url]

Options:

--headers              Dump HTTP response headers
    --forms                Dump table of forms (default action)
    --links                Dump table of links
    --images               Dump table of images
    --all                  Dump all four of the above, in that order

--text                 Dumps the textual part of the web page

--user=user            Set the username
    --password=pass        Set the password
    --cookie-file=filename Set the filename to use for persistent cookies

--agent=agent          Specify the UserAgent to pass
    --agent-alias=alias
                           Specify the alias for the UserAgent to pass.
                           Pick one of:
                               * Windows IE 6
                               * Windows Mozilla
                               * Mac Safari
                               * Mac Mozilla
                               * Linux Mozilla
                               * Linux Konqueror

--absolute             Show URLs as absolute, even if relative in the page
    --help                 Show this message

The order of the options specified is relevant.  Repeated options
get repeated dumps.

Proxy settings are specified through the environment (e.g. C<http_proxy=http://proxy.my.place/>).
See LWP::UserAgent for details.

=head1 SEE ALSO

L<WWW::Mechanize>

=head1 AUTHOR

Andy Lester <andy at petdance.com>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

cmd: