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

# Simple mirror utility using LWP

=head1 NAME

lwp-mirror - Simple mirror utility

=head1 SYNOPSIS

lwp-mirror [-v] [-t timeout] <url> <local file>

=head1 DESCRIPTION

This program can be used to mirror a document from a WWW server.  The
document is only transferred if the remote copy is newer than the local
copy.  If the local copy is newer nothing happens.

Use the C<-v> option to print the version number of this program.

The timeout value specified with the C<-t> option.  The timeout value
is the time that the program will wait for response from the remote
server before it fails.  The default unit for the timeout value is
seconds.  You might append "m" or "h" to the timeout value to make it
minutes or hours, respectively.

Because this program is implemented using the LWP library, it only
supports the protocols that LWP supports.

=head1 SEE ALSO

L<lwp-request>, L<LWP>

=head1 AUTHOR

Gisle Aas <gisle@aas.no>

=cut

use strict;
use warnings;
use LWP::Simple qw(mirror is_success status_message $ua);
use Getopt::Long qw(GetOptions);
use Encode;
use Encode::Locale;

my $progname = $0;
$progname =~ s,.*/,,;       # use basename only
$progname =~ s/\.\w*$//;    #strip extension if any

my %opts;
unless (GetOptions(\%opts, 'h', 'v', 't=i')) {
    usage();
}

if ($opts{v}) {
    require LWP;
    my $DISTNAME = 'libwww-perl-' . $LWP::VERSION;
    die <<"EOT";
This is lwp-mirror version $LWP::Simple::VERSION ($DISTNAME)

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
EOT
}

my $url = decode(locale => shift) or usage();
my $file = encode(locale_fs => decode(locale => shift)) or usage();
usage() if $opts{h} or @ARGV;

if ($opts{t}) {
    if ($opts{t} =~ /^(\d+)([smh])?/) {
        my $timeout = $1;
        $timeout *= 60   if ($2 eq "m");
        $timeout *= 3600 if ($2 eq "h");
        $ua->timeout($timeout);
    }
    else {
        die "$progname: Illegal timeout value!\n";
    }
}

my $rc = mirror($url, $file);

if ($rc == 304) {
    print STDERR "$progname: $file is up to date\n";
}
elsif (!is_success($rc)) {
    print STDERR "$progname: $rc ", status_message($rc), "   ($url)\n";
    exit 1;
}
exit;

sub usage {
    die <<"EOT";
Usage: $progname [-options] <url> <file>
    -v           print version number of program
    -t <timeout> Set timeout value
EOT
}